10REM: LOTNUMS
20*KEY0 CLS|M
30*KEY1 P.TAB(
40*KEY2 CHR$
50*KEY3 DEFPROC
60*KEY4 PROC
70*KEY5 ENDPROC
80*KEY6 CHAIN"LOTNUMS"|M
90*KEY7 SAVE"LOTNUMS"|M MODE135|M|N *
FX4|M *FX200|M LISTO 7|M LIST|M
100*KEY8 RUN|M
110*KEY9 MODE135|M|N *FX4|M *FX200|M L
ISTO 7|M LIST|M
120MODE7:VDU23;8202;0;0;0;
130 ON ERROR PROCerror
140d%=52:REM: Number of draws to date
150 PROCtitle
160PRINTTAB(0,8)CHR$141" Press 1 to se
e how many times numbers"TAB(0)CHR$141"
Press 1 to see how many times numbers"TA
B(0)CHR$141" have appeared in the first
";d%;" draws"TAB(0)CHR$141" have appea
red in the first ";d%;" draws"'''
170PRINTTAB(0)CHR$141" Press 2 to retu
rn to Main Menu"TAB(0)CHR$141" Press 2 t
o return to Main Menu"
180PRINTTAB(10,20)CHR$141" Press 1 or
2"TAB(10)CHR$141" Press 1 or 2"
190A=GET
200IF A=49 THEN CLS:PROCnumbers
210IF A=50 THEN CHAIN"LOTMENU"
220IF A=-113 THEN PROCfinish
230IF A<>49 OR A<>50 OR A<>113 THEN VD
U7:RUN
240DEFPROCerror
250IF -113 PROCfinish
260MODE7:REPORT:PRINT" at line ";ERL
270ENDPROC
280DEFPROCfinish
290RUN
300END
310DEFPROCtitle:PRINTTAB(2,1)CHR$141"
FREQUENCY of ALL LOTTERY NUMBERS"TAB(2)C
HR$141" FREQUENCY of ALL LOTTERY NUMBERS
"TAB(4,4)" (Up to, and including, Week 5
2)"
320ENDPROC
15010DEFPROCnumbers
15020CLS
15030PRINT:PRINTTAB(4)"In the first ";d%
" draws the following"'"numbers have app
eared:-"'
15040PRINTTAB(0)" Once 39
4 times 13"'
15050PRINTTAB(0)" 5 times 12 34 35 37
"'
15060PRINTTAB(0)" 6 times 4 6 7 8 9
11 18 19 23 "'" 24 33 36
49"'
15070PRINTTAB(0)" 7 times 3 10 20 26
27 32 40 42 "'" 43 47"'
15080PRINTTAB(0)" 8 times 1 2 14 15
29 45 46"'
15090PRINTTAB(0)" 9 times 31 38 41"'
15100PRINTTAB(0)" 10 times 16 17 21 2
5 30 48"'
15110PRINTTAB(0)" 11 times 28 44 12 tim
es 22 14 times 5"'
15120PRINTTAB(12)" Press any key":A=GET:
ENDPROC
15130END