10REM: LOTMENU 20MODE7:VDU23;8202;0;0;0; 30PRINTTAB(4,3)CHR$(141)" NATIONAL L OTTERY SELECTOR"TAB(4)CHR$(141)" NATION AL LOTTERY SELECTOR"TAB(5)" ---------- -----------------"''' 40PRINTTAB(1,8)CHR$(141)" Press 1 for ULTIMATE LOTTERY PROGRAM"TAB(1)CHR$(141 )" Press 1 for ULTIMATE LOTTERY PROGRAM" 50PRINTTAB(1,10)CHR$(141)" Press 2 fo r FREQUENCY OF ALL Nos."TAB(1)CHR$(141)" Press 2 for FREQUENCY OF ALL Nos." 60PRINTTAB(1,12)CHR$(141)" Press 3 fo r FREQUENCY OF YOUR Nos."TAB(1)CHR$(141) " Press 3 for FREQUENCY OF YOUR Nos." 70PRINTTAB(1,14)CHR$(141)" Press 4 to QUIT"TAB(1)CHR$(141)" Press 4 to QUIT" 80PRINTTAB(2,22)CHR$(141)" Press a nu mber between 1 and 4"TAB(2)CHR$(141)" Pr ess a number between 1 and 4" 90A=GET:VDU7 100IF A=49 THEN PRINTTAB(1,8)CHR$(141) " Press 1 for ULTIMATE LOTTERY PROGRAM"T AB(1)CHR$(141)" Press 1 for ULTIMATE LOT TERY PROGRAM" 110IF A=49 THEN CHAIN"LOT" 120IF A=50 THEN PRINTTAB(1,10)CHR$(141 )" Press 2 for FREQUENCY OF ALL Nos."TAB (1)CHR$(141)" Press 2 for FREQUENCY OF A LL Nos." 130IF A=50 THEN CHAIN"LOTNUMS" 140IF A=51 THEN PRINTTAB(1,12)CHR$(141 )" Press 3 for FREQUENCY OF YOUR Nos."TA B(1)CHR$(141)" Press 3 for FREQUENCY OF YOUR Nos." 150IF A=51 THEN CHAIN"YOURNUM" 160IF A=52 THEN PRINTTAB(1,14)CHR$(141 )" Press 4 to QUIT"TAB(1)CHR$(141)" Pres s 4 to QUIT" 170IF A=52 THEN FOR X=1 TO 2000:NEXT X :CLS:PRINTTAB(10,10)CHR$141" O.K. GOODB YE"TAB(10,11)CHR$141" O.K. GOODBYE":FOR X=1 TO 4000:NEXT X:MODE7:*BASIC 180IF A<49 OR A>52 THEN VDU7:PRINTTAB( 2,22)CHR$(141)" Press a number between 1 and 4"TAB(2)CHR$(141)" Press a number b etween 1 and 4" 190END