10 REM:MODLOONEY-SCROLL VERSION-UP-DATED 20 *KEY6 CHAIN"LOONEY"|M 30 *KEY7 VDU14|M SAVE"LOONEY"|M LISTO 7|M LIST|M 40 *KEY8 RUN|M 50 *KEY9 MODE135|M|N *FX4|M *FX200|M LISTO 7|M LIST|M 60 *FX15,0 70 REM:EORb%=Number (1 TO 49) picked EORtime 80 REM:EORd%=No. of times computer has EORpicked a number 90 REM:EORe%=No. of numbers between 1 EOR and 49 still to be picked 100 REM:EORT%=TIME 110 : 120 : 1000 REM:ERROR*** 1010 MODE135:CLS:VDU23;8202;0;0;0; 1020 ON ERROR PROCerror 1030 PROCtitle1:PROCintro 1040 CLS:PROCchoice:PROCspeed 1050 b%=0:d%=0:e%=49 1060 IF choice%=1 THEN PROCtitle2 1070 IF choice%=2 THEN PROCtitle3 1080 IF choice%=3 THEN PROCtitle4 1090 PROCstrings 1100 PROCpicking 1110 T%=TIME:REPEAT 1120 PROCnumthistime 1130 PROCtimetaken 1140 PROCnumsleft 1150 IF choice%=1 AND e%=6 THEN PRINTTAB(11,23)"ƒˆPress any key‰":A=GET:GOTO1040 1160 IF choice%=2 AND e%=8 THEN PRINTTAB(11,23)"ƒˆPress any key‰":A=GET:GOTO1040 1170 IF choice%=3 AND e%=10 THEN PRINTTAB(11,23)"ƒˆPress any key‰":A=GET:GOTO1040 1180 PROCmainprog 1190 UNTIL FALSE 1200 GOTO1040 1210 END 1220 : 1230 : 2000 REM:ERROR*** 2010 DEFPROCmainprog 2020 t%=t%+1 2030 IF b%=1 AND f1%=1 PRINTTAB(1,4)" " TAB(1,5)" ":e%=e%-1:f1%=2 2040 IF b%=2 AND f2%=1 PRINTTAB(5,4)" " TAB(5,5)" ":e%=e%-1:f2%=2 2050 IF b%=3 AND f3%=1 PRINTTAB(9,4)" " TAB(9,5)" ":e%=e%-1:f3%=2 2060 IF b%=4 AND f4%=1 PRINTTAB(13,4)" " TAB(13,5)" ":e%=e%-1:f4%=2 2070 IF b%=5 AND f5%=1 PRINTTAB(17,4)" " TAB(17,5)" ":e%=e%-1:f5%=2 2080 IF b%=6 AND f6%=1 PRINTTAB(21,4)" " TAB(21,5)" ":e%=e%-1:f6%=2 2090 IF b%=7 AND f7%=1 PRINTTAB(25,4)" " TAB(25,5)" ":e%=e%-1:f7%=2 2100 IF b%=8 AND f8%=1 PRINTTAB(29,4)" " TAB(29,5)" ":e%=e%-1:f8%=2 2110 IF b%=9 AND f9%=1 PRINTTAB(32,4)" " TAB(32,5)" ":e%=e%-1:f9%=2 2120 IF b%=10 AND f10%=1 PRINTTAB(36,4)" " TAB(36,5)" ":e%=e%-1:f10%=2 2130 IF b%=11 AND f11%=1 PRINTTAB(1,6)" " TAB(1,7)" ":e%=e%-1:f11%=2 2140 IF b%=12 AND f12%=1 PRINTTAB(4,6)" " TAB(4,7)" ":e%=e%-1:f12%=2 2150 IF b%=13 AND f13%=1 PRINTTAB(8,6)" " TAB(8,7)" ":e%=e%-1:f13%=2 2160 IF b%=14 AND f14%=1 PRINTTAB(12,6)" " TAB(12,7)" ":e%=e%-1:f14%=2 2170 IF b%=15 AND f15%=1 PRINTTAB(16,6)" " TAB(16,7)" ":e%=e%-1:f15%=2 2180 IF b%=16 AND f16%=1 PRINTTAB(20,6)" " TAB(20,7)" ":e%=e%-1:f16%=2 2190 IF b%=17 AND f17%=1 PRINTTAB(24,6)" " TAB(24,7)" ":e%=e%-1:f17%=2 2200 IF b%=18 AND f18%=1 PRINTTAB(28,6)" " TAB(28,7)" ":e%=e%-1:f18%=2 2210 IF b%=19 AND f19%=1 PRINTTAB(32,6)" " TAB(32,7)" ":e%=e%-1:f19%=2 2220 IF b%=20 AND f20%=1 PRINTTAB(36,6)" " TAB(36,7)" ":e%=e%-1:f20%=2 2230 IF b%=21 AND f21%=1 PRINTTAB(1,8)" " TAB(1,9)" ":e%=e%-1:f21%=2 2240 IF b%=22 AND f22%=1 PRINTTAB(4,8)" " TAB(4,9)" ":e%=e%-1:f22%=2 2250 IF b%=23 AND f23%=1 PRINTTAB(8,8)" " TAB(8,9)" ":e%=e%-1:f23%=2 2260 IF b%=24 AND f24%=1 PRINTTAB(12,8)" " TAB(12,9)" ":e%=e%-1:f24%=2 2270 IF b%=25 AND f25%=1 PRINTTAB(16,8)" " TAB(16,9)" ":e%=e%-1:f25%=2 2280 IF b%=26 AND f26%=1 PRINTTAB(20,8)" " TAB(20,9)" ":e%=e%-1:f26%=2 2290 IF b%=27 AND f27%=1 PRINTTAB(24,8)" " TAB(24,9)" ":e%=e%-1:f27%=2 2300 IF b%=28 AND f28%=1 PRINTTAB(28,8)" " TAB(28,9)" ":e%=e%-1:f28%=2 2310 IF b%=29 AND f29%=1 PRINTTAB(32,8)" " TAB(32,9)" ":e%=e%-1:f29%=2 2320 IF b%=30 AND f30%=1 PRINTTAB(36,8)" " TAB(36,9)" ":e%=e%-1:f30%=2 2330 IF b%=31 AND f31%=1 PRINTTAB(1,10)" " TAB(1,11)" ":e%=e%-1:f31%=2 2340 IF b%=32 AND f32%=1 PRINTTAB(4,10)" " TAB(4,11)" ":e%=e%-1:f32%=2 2350 IF b%=33 AND f33%=1 PRINTTAB(8,10)" " TAB(8,11)" ":e%=e%-1:f33%=2 2360 IF b%=34 AND f34%=1 PRINTTAB(12,10)" " TAB(12,11)" ":e%=e%-1:f34%=2 2370 IF b%=35 AND f35%=1 PRINTTAB(16,10)" " TAB(16,11)" ":e%=e%-1:f35%=2 2380 IF b%=36 AND f36%=1 PRINTTAB(20,10)" " TAB(20,11)" ":e%=e%-1:f36%=2 2390 IF b%=37 AND f37%=1 PRINTTAB(24,10)" " TAB(24,11)" ":e%=e%-1:f37%=2 2400 IF b%=38 AND f38%=1 PRINTTAB(28,10)" " TAB(28,11)" ":e%=e%-1:f38%=2 2410 IF b%=39 AND f39%=1 PRINTTAB(32,10)" " TAB(32,11)" ":e%=e%-1:f39%=2 2420 IF b%=40 AND f40%=1 PRINTTAB(36,10)" " TAB(36,11)" ":e%=e%-1:f40%=2 2430 IF b%=41 AND f41%=1 PRINTTAB(1,12)" " TAB(1,13)" ":e%=e%-1:f41%=2 2440 IF b%=42 AND f42%=1 PRINTTAB(4,12)" " TAB(4,13)" ":e%=e%-1:f42%=2 2450 IF b%=43 AND f43%=1 PRINTTAB(8,12)" " TAB(8,13)" ":e%=e%-1:f43%=2 2460 IF b%=44 AND f44%=1 PRINTTAB(12,12)" " TAB(12,13)" ":e%=e%-1:f44%=2 2470 IF b%=45 AND f45%=1 PRINTTAB(16,12)" " TAB(16,13)" ":e%=e%-1:f45%=2 2480 IF b%=46 AND f46%=1 PRINTTAB(20,12)" " TAB(20,13)" ":e%=e%-1:f46%=2 2490 IF b%=47 AND f47%=1 PRINTTAB(24,12)" " TAB(24,13)" ":e%=e%-1:f47%=2 2500 IF b%=48 AND f48%=1 PRINTTAB(28,12)" " TAB(28,13)" ":e%=e%-1:f48%=2 2510 IF b%=49 AND f49%=1 PRINTTAB(33,12)" " TAB(33,13)" ":e%=e%-1:f49%=2 2520 IF speed%=1 PROCnumthistime 2530 IF speed%=2 THEN FOR X=1 TO 2000:NEXT X:PROCnumthistime 2540 IF speed%=3 PRINTTAB(11,23)"ƒˆPress any key‰":A=GET:PROCnumthistime 2550 IF speed%=3 PRINTTAB(11,23)"ƒˆPress any key‰":PRINTTAB(0,22)SPC(40):A=GET:PROCnumthistime 2560 ENDPROC 2570 : 2580 : 3000 REM:ERROR*** 3010 DEFPROCstrings 3020 PRINTTAB(2,3)CHR$131CHR$157CHR$129"These numbers not yet picked:- "CHR$156 3030 a1$="01 02 03 04 05 06 07 08 09 10":a2$="11 12 13 14 15 16 17 18 19 20":a3$="21 22 23 24 25 26 27 28 29 30":a4$="31 32 33 34 35 36 37 38 39 40":a5$="41 42 43 44 45 46 47 48 49" 3040 PRINTTAB(0,4)CHR$141;a1$ TAB(0,5)CHR$141;a1$TAB(0,6)CHR$141;a2$ TAB(0,7)CHR$141;a2$ TAB(0,8)CHR$141;a3$ TAB(0,9)CHR$141;a3$ TAB(0,10)CHR$141;a4$ TAB(0,11)CHR$141;a4$ TAB(0,12)CHR$141;a5$ TAB(0,13)CHR$141;a5$ 3050 f1%=1:f2%=1:f3%=1:f4%=1:f5%=1:f6%=1:f7%=1:f8%=1:f9%=1:f10%=1:f11%=1:f12%=1:f13%=1:f14%=1:f15%=1:f16%=1:f16%=1:f17%=1:f18%=1:f19%=1:f20%=1:f21%=1:f22%=1:f23%=1:f24%=1:f25%=1:f26%=1:f27%=1:f28%=1:f29%=1:f30%=1:f31%=1:f32%=1:f33%=1 3060 f34%=1:f35%=1:f36%=1:f37%=1:f38%=1:f39%=1:f40%=1:f41%=1:f42%=1:f43%=1:f44%=1:f45%=1:f46%=1:f47%=1:f48%=1:f49%=1 3070 ENDPROC 3080 : 3090 : 4000 REM:ERROR*** 4010 DEFPROCspeed:CLS 4020 IF choice%=1 PROCtitle2 4030 IF choice%=2 PROCtitle3 4040 IF choice%=3 PROCtitle4 4050 PRINTTAB(0,4)CHR$141"Press 1 forƒNORMAL‡Computer speed - "TAB(0)CHR$141"Press 1 forƒNORMAL‡Computer speed - " 4060 PRINTTAB(12)CHR$141"(FAST !)"TAB(12)CHR$141"(FAST !)"'' 4070 PRINTTAB(0)CHR$141"Press 2 for†MEDIUM speed"TAB(0)CHR$141"Press 2 for†MEDIUM speed"'' 4080 PRINTTAB(0)CHR$141"Press 3 for‚SLOW MOTION‡(The Computer"TAB(0)CHR$141"Press 3 for‚SLOW MOTION‡(The Computer" 4090 PRINTTAB(0)CHR$141"waits for you to press a key for a new"TAB(0)CHR$141"waits for you to press a key for a new" 4100 PRINTTAB(0)CHR$141"number.)"TAB(0)CHR$141"number.)"' 4110 PRINTTAB(10)CHR$141"ƒPRESS 1, 2 or 3"TAB(10)CHR$141"†PRESS 1, 2 or 3":A=GET 4120 IF A=49 THEN speed%=1 4130 IF A=50 THEN speed%=2 4140 IF A=51 THEN speed%=3 4150 CLS:ENDPROC 4160 : 4170 : 5000 REM:ERROR*** 5010 DEFPROCchoice 5020 PROCtitle1 5030 PRINTTAB(0,5)CHR$141"Press 1 forƒLOTTERY‡numbers Program"TAB(0)CHR$141"Press 1 forƒLOTTERY‡numbers Program"' 5040 PRINTTAB(0)CHR$141"Press 2 for†POOLS‡numbers Program to"TAB(0)CHR$141"Press 2 for†POOLS‡numbers Program to" 5050 PRINTTAB(0)CHR$141"pick†8‡numbers"TAB(0)CHR$141"pick†8‡numbers"' 5060 PRINTTAB(0)CHR$141"Press 3 for†POOLS‡numbers Program to"TAB(0)CHR$141"Press 3 for†POOLS‡numbers Program to" 5070 PRINTTAB(0)CHR$141"pick†10‡numbers for an†8‡from†10‡perm"TAB(0)CHR$141"pick†10‡numbers for an†8‡from†10‡perm"' 5080 PRINTTAB(0)CHR$141"Press 4 toQUIT‡the Program"TAB(0)CHR$141"Press 4 toQUIT‡the Program"' 5090 PRINTTAB(7)CHR$141CHR$131CHR$157CHR$132"Press 1, 2, 3 or 4 "CHR$156:PRINTTAB(7)CHR$141CHR$131CHR$157CHR$132"Press 1, 2, 3 or 4 "CHR$156 5100 A=GET 5110 IF A=49 choice%=1:CLS:ENDPROC 5120 IF A=50 choice%=2:CLS:ENDPROC 5130 IF A=51 choice%=3:CLS:ENDPROC 5140 IF A=52 choice%=4:CLS 5150 IF A=52 PRINTTAB(3,10)CHR$141"ƒO.K. GOODBYE. I HOPE YOU WIN!"TAB(3,11)CHR$141"†O.K. GOODBYE. I HOPE YOU WIN!":FOR X=1 TO 4000:NEXT X:CHAIN"UTILITY2" 5160 ENDPROC 5170 : 5180 : 6000 REM:ERROR*** 6010 DEFPROCintro 6020 PRINTTAB(4,4)"†I have often heard people say -"''" ƒ'My numbers never seem to come"'"ƒ up on the Lottery/Pools'"' 6030 PRINTTAB(4)"It has prompted me to carry out"'"this programming exercise."' 6040 PRINTTAB(4)"The result does NOT guarantee a win"'"but it is just as random as using the"'"proverbial pin - and stands just as "'"much chance of giving a winning line!"' 6050 PRINTTAB(4)"(Obviously, there are easier ways "'"of picking 6, 8 or 10 numbers from 49,"'"but I would not have had the fun (?) of"'"making this Program!!!)"' 6060 PRINTTAB(10,22)CHR$141"ƒˆPRESS ANY KEY"TAB(10,23)CHR$141"†ˆPRESS ANY KEY":A=GET:CLS 6070 PROCtitle1 6080 PRINTTAB(1,4)"First you will be asked if you want"'"the Program for theƒLOTTERY‡or for the"'"†POOLS‡and then the speed at which you"'"want the Program TO RUN."' 6090 PRINTTAB(1)"The Computer will pick (at random):-"''" ƒ43 out of 49 numbers for the LOTTERY"'" ƒProgram,‡OR" 6100 PRINTTAB(2)"†41 out of 49 numbers (for a single"'"† line POOLS entry)‡OR" 6110 PRINTTAB(2)"†39 out of 49 numbers (for an 8 from"'"† 10 POOLS perm)"' 6120 PRINTTAB(0)" leavingƒ6,†8‡or†10‡numbersNOT‡picked"' 6130 PRINTTAB(0)CHR$135CHR$157CHR$129" THOSE 6, 8 or 10 NUMBERS ARE THE "CHR$156 6140 PRINTTAB(0)CHR$135CHR$157CHR$129" RANDOM NUMBERS FOR YOUR ENTRY "CHR$156 6150 PRINTTAB(10,23)"ƒˆPRESS ANY KEY":A=GET:CLS:ENDPROC 6160 ENDPROC 6170 : 6180 : 7000 REM:ERROR*** 7010 DEFPROCtitle1 7020 PRINTTAB(4,0)CHR$141CHR$131CHR$157CHR$132"LOONEY NUMBERS SELECTOR "CHR$156:PRINTTAB(4)CHR$141CHR$131CHR$157CHR$132"LOONEY NUMBERS SELECTOR "CHR$156:ENDPROC 7030 : 7040 : 7050 REM:ERROR*** 7060 DEFPROCtitle2 7070 PRINTTAB(5,0)CHR$141CHR$132CHR$157CHR$131"LOONEY LOTTERY NUMBERS "CHR$156:PRINTTAB(5)CHR$141CHR$132CHR$157CHR$131"LOONEY LOTTERY NUMBERS "CHR$156:ENDPROC 7080 : 7090 : 7100 REM:ERROR*** 7110 DEFPROCtitle3 7120 PRINTTAB(6,0)CHR$141CHR$132CHR$157CHR$134"LOONEY POOLS NUMBERS "CHR$156:PRINTTAB(6)CHR$141CHR$132CHR$157CHR$134"LOONEY POOLS NUMBERS "CHR$156:PRINTTAB(7)CHR$132CHR$157CHR$134"(For one-line entry) "CHR$156:ENDPROC 7130 : 7140 : 7150 REM:ERROR*** 7160 DEFPROCtitle4 7170 PRINTTAB(6,0)CHR$141CHR$132CHR$157CHR$135"LOONEY POOLS NUMBERS "CHR$156:PRINTTAB(6)CHR$141CHR$132CHR$157CHR$135"LOONEY POOLS NUMBERS "CHR$156:PRINTTAB(7)CHR$132CHR$157CHR$135"(For 8 from 10 Perm) "CHR$156:ENDPROC 7180 : 7190 : 8000 REM:ERROR*** 8010 DEFPROCpicking 8020 IF choice%=1 PRINTTAB(0,15)CHR$135CHR$157CHR$132" Computer is picking 43 random "CHR$156TAB(0,16)CHR$135CHR$157CHR$132" numbers between 1 and 49. "CHR$156 8030 IF choice%=2 PRINTTAB(0,15)CHR$135CHR$157CHR$132" Computer is picking 41 random "CHR$156TAB(0,16)CHR$135CHR$157CHR$132" numbers between 1 and 49. "CHR$156 8040 IF choice%=3 PRINTTAB(0,15)CHR$135CHR$157CHR$132" Computer is picking 39 random "CHR$156TAB(0,16)CHR$135CHR$157CHR$132" numbers between 1 and 49. "CHR$156 8050 ENDPROC 8060 : 8070 : 9000 REM:ERROR*** 9010 DEFPROCnumthistime 9020 b%=RND(49) 9030 IF b%<10 PRINTTAB(0,18)"‚Number picked this time = ";b%;" " 9040 IF b%>9 PRINTTAB(0,18)"‚Number picked this time = ";b%;" " 9050 IF d%<10 PRINTTAB(0,19)"ƒTotal numbers picked (including"'"ƒthose picked more than once) = ";d% 9060 IF d%>9 PRINTTAB(0,19)"ƒTotal numbers picked (including"'"ƒthose picked more than once) = ";d% 9070 IF e%<10 PRINTTAB(0,21)"†Numbers left (out of 49) = ";e%;" " 9080 IF e%>9 PRINTTAB(0,21)"†Numbers left (out of 49) = ";e%;" " 9090 d%=d%+1 9100 ENDPROC 9110 : 9120 : 10000 REM:ERROR*** 10010 DEFPROCtimetaken 10020 IF choice%=1 AND speed%=1 PRINTTAB(1,22)"Time to pick 43 numbers = ";INT((TIME-T%)/100);" seconds" 10030 IF choice%=1 AND speed%=2 PRINTTAB(1,22)"Time to pick 43 numbers = ";INT((TIME-T%)/100);" seconds" 10040 IF choice%=1 AND speed%=3 PRINTTAB(0,22)SPC(40) 10050 IF choice%=2 AND speed%=1 PRINTTAB(1,22)"Time to pick 41 numbers = ";INT((TIME-T%)/100);" seconds" 10060 IF choice%=2 AND speed%=2 PRINTTAB(1,22)"Time to pick 41 numbers = ";INT((TIME-T%)/100);" seconds" 10070 IF choice%=2 AND speed%=3 PRINTTAB(0,22)SPC(40) 10080 IF choice%=3 AND speed%=1 PRINTTAB(1,22)"Time to pick 39 numbers = ";INT((TIME-T%)/100);" seconds" 10090 IF choice%=3 AND speed%=2 PRINTTAB(1,22)"Time to pick 39 numbers = ";INT((TIME-T%)/100);" seconds" 10100 IF choice%=3 AND speed%=3 PRINTTAB(0,22)SPC(40) 10110 ENDPROC 10120 : 10130 : 11000 REM:ERROR*** 11010 DEFPROCnumsleft 11020 IF choice%=1 AND e%=6 PRINTTAB(0,3)SPC(40)TAB(0,18)SPC(40)TAB(5,3)CHR$135CHR$157CHR$132"NumbersNOT„picked are:- "CHR$156 11030 IF choice%=2 AND e%=6 PRINTTAB(0,3)SPC(40)TAB(0,18)SPC(40)TAB(5,3)CHR$135CHR$157CHR$132"NumbersNOT„picked are:- "CHR$156 11040 IF choice%=2 AND e%=8 PRINTTAB(0,3)SPC(40)TAB(0,18)SPC(40)TAB(5,3)CHR$135CHR$157CHR$132"NumbersNOT„picked are:- "CHR$156 11050 IF choice%=3 AND e%=10 PRINTTAB(0,3)SPC(40)TAB(0,18)SPC(40)TAB(5,3)CHR$135CHR$157CHR$132"NumbersNOT„picked are:- "CHR$156 11060 IF choice%=1 AND e%=6 PRINTTAB(0,14)SPC(40)TAB(0,14)CHR$131CHR$157CHR$132"The 6 numbers left are the numbers "CHR$156:PRINTTAB(0,15)CHR$131CHR$157CHR$132" NOT„PICKED BY THE COMPUTER "CHR$156 11070 IF choice%=2 AND e%=8 PRINTTAB(0,14)SPC(40)TAB(0,14)CHR$131CHR$157CHR$132"The 8 numbers left are the numbers "CHR$156:PRINTTAB(0,15)CHR$131CHR$157CHR$132" NOT„PICKED BY THE COMPUTER "CHR$156 11080 IF choice%=3 AND e%=10 PRINTTAB(0,14)SPC(40)TAB(0,14)CHR$131CHR$157CHR$132"The 10 numbers left are the numbers "CHR$156:PRINTTAB(0,15)CHR$131CHR$157CHR$132" NOT„PICKED BY THE COMPUTER "CHR$156 11090 IF choice%=1 AND e%=6 PRINTTAB(0,16)CHR$131CHR$157CHR$132" THEY ARE YOURLOONEY LOTTERY‡ "CHR$156:PRINTTAB(0,17)CHR$131CHR$157CHR$132" NUMBERS‡„ ˆGOOD LUCK!!" 11100 IF choice%=2 AND e%=8 PRINTTAB(0,16)CHR$131CHR$157CHR$132" THEY ARE YOURLOONEY NUMBERS„FOR "CHR$156:PRINTTAB(0,17)CHR$131CHR$157CHR$132" YOUR POOLS ENTRYˆ GOOD LUCK!! " 11110 IF choice%=3 AND e%=10 PRINTTAB(0,16)CHR$131CHR$157CHR$132" THEY ARE YOURLOONEY NUMBERS„FOR "CHR$156:PRINTTAB(0,17)CHR$131CHR$157CHR$132" YOUR POOLS ENTRYˆ GOOD LUCK!! " 11120 ENDPROC 11130 : 11140 : 12000 REM:ERROR*** 12010 DEFPROCerror 12020 IF -113 THEN STOP 12030 CLS:REPORT:PRINT" at line ";ERL 12040 ENDPROC 12050 END