8-Bit Software Online Conversion

Lottery 6 - Listing

10DEFFNS="Lotter6" 20DIMA%(9) 30D%=10 40E%=12 50O%=11 60Q%=3 70FORL%=0TO9 80READA%(L%) 90NEXT 100DATA1,4,7,10,13,16,19,22,25,28 110MODE7 120VDU23;8202;0;0;0; 130PRINT''"     rdson." 140PRINT"     son." 150PRINTTAB(0,20)" Press Space to Se lect Next Number. " 160A$=CHR$131+" 0"+CHR$131+" 1"+CHR$13 1+" 2"+CHR$131+" 3"+CHR$131+" 4" 170B$=CHR$130+" 0"+CHR$130+" 1"+CHR$13 0+" 2"+CHR$130+" 3"+CHR$130+" 4"+CHR$130 +" 5"+CHR$130+" 6"+CHR$130+" 7"+CHR$130+ " 8"+CHR$130+" 9" 180PRINTTAB(O%,D%);A$ 190PRINTTAB(Q%,E%);B$ 200REPEAT 205REPEAT 210B%=RND(5) 220C%=RND(10)-1 225UNTILNOT(B%=1 AND C%=0) 230PRINTTAB(A%(B%-1)+O%,D%);CHR$129; 240PRINTTAB(A%(C%)+Q%,E%);CHR$129; 250IF INKEY(0)<>-1 PRINTTAB(18,20)"Re- Start Generator";:REPEATUNTILGET:PRINTTA B(18,20)"Select Next Number"; 260PRINTTAB(A%(B%-1)+O%,D%);CHR$32; 270PRINTTAB(A%(C%)+Q%,E%);CHR$32; 280UNTILFALSE