10 DEFFNS="Lotter6" 20 DIMA%(9) 30 D%=10 40 E%=12 50 O%=11 60 Q%=3 70 FORL%=0TO9 80 READA%(L%) 90 NEXT 100 DATA1,4,7,10,13,16,19,22,25,28 110 MODE7 120 VDU23;8202;0;0;0; 130 PRINT''" Lottery 6 By C.J.Richardson." 140 PRINT"ƒ Lottery 6 By C.J.Richardson." 150 PRINTTAB(0,20)"„ƒPress Space to Select Next Number. œ" 160 A$=CHR$131+" 0"+CHR$131+" 1"+CHR$131+" 2"+CHR$131+" 3"+CHR$131+" 4" 170 B$=CHR$130+" 0"+CHR$130+" 1"+CHR$130+" 2"+CHR$130+" 3"+CHR$130+" 4"+CHR$130+" 5"+CHR$130+" 6"+CHR$130+" 7"+CHR$130+" 8"+CHR$130+" 9" 180 PRINTTAB(O%,D%);A$ 190 PRINTTAB(Q%,E%);B$ 200 REPEAT 205 REPEAT 210 B%=RND(5) 220 C%=RND(10)-1 225 UNTILNOT(B%=1 AND C%=0) 230 PRINTTAB(A%(B%-1)+O%,D%);CHR$129; 240 PRINTTAB(A%(C%)+Q%,E%);CHR$129; 250 IF INKEY(0)<>-1 PRINTTAB(18,20)"Re-Start Generator";:REPEATUNTILGET:PRINTTAB(18,20)"Select Next Number"; 260 PRINTTAB(A%(B%-1)+O%,D%);CHR$32; 270 PRINTTAB(A%(C%)+Q%,E%);CHR$32; 280 UNTILFALSE