10REM" ALL LOTTERY COMBINATIONS 20REM" (13,983,816 - NINE DAYS) 30REM" John Davis -'98. 40REM" ======================== 50REM *TV255,1 60MODE7 70ONERRORVDU26:END 80VDU23,1,0;0;0;0; 90PRINT 100PRINT" Our computer has decided - against our better judgement - that, as a kind" 110PRINT" of perverse public service, it wants to display ALL the possible com binations of National Lottery numbers. " 120PRINT" Well, here they are..." 130PRINTTAB(0,7)CHR$(145)STRING$(39,"| "); 140FORN=8TO16 150PRINTTAB(0,N)CHR$(145)CHR$(255) 160PRINTTAB(31,N)CHR$(145)CHR$(255) 170PRINTTAB(38,N)CHR$(145)CHR$(255); 180NEXT 190PRINTTAB(0,17)CHR$(145)STRING$(39," /"); 200PRINTTAB(33,9)" TIME" 210PRINTTAB(33,10)" Days" 220PRINTTAB(33,11)" 0" 230PRINTTAB(33,12)" Hrs" 240PRINTTAB(33,13)" 0" 250PRINTTAB(33,14)" Mins" 260PRINTTAB(33,15)" 0" 270PRINTTAB(0,18)" This will take a bout 9 days, running"; 280PRINT" 24 hours a day. It started a t 5pm on Saturday, Jan.17, and should finish -if"; 290PRINT" nobody bashes the plug - som etime next Monday, Jan.26." 300PRINT" (To win the lottery, all you have to do is pick the right one...) "; 310VDU28,2,16,30,9 320C%=0:TIME=0 330 FORM%=1TO44 340 FORN%=M%+1TO45 350 FORO%=N%+1TO46 360 FORP%=O%+1TO47 370 FORQ%=P%+1TO48 380 FORR%=Q%+1TO49 390 C%=C%+1 400 PRINTTAB(0,7);" "C%" "M%" "N%" "O %" "P%" "Q%" "R% 410 NEXT:NEXT 420MIN%=INT(TIME/6000) 430HR%=INT(MIN%/60) 440MIN%=MIN%-HR%*60 450DAY%=INT(HR%/24) 460HR%=HR%-DAY%*24 470VDU26 480PRINTTAB(33,11)" ";DAY% 490PRINTTAB(33,13)" ";HR%;" " 500PRINTTAB(33,15)" ";MIN%;" " 510VDU28,2,16,30,9 520 NEXT:NEXT:NEXT:NEXT 530VDU7:VDU7:VDU7 540VDU26 550PRINTTAB(2,16)" WHEW! Finished." 560GOTO560