10REM: YOURNUMS
20*KEY0 CLS|M
30*KEY1 P.TAB(
40*KEY2 CHR$
50*KEY3 DEFPROC
60*KEY4 PROC
70*KEY5 ENDPROC
80*KEY6 CHAIN"YOURNUMS"|M
90*KEY7 SAVE"YOURNUMS"|M *FX4|M *FX20
0|M RUN|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 YOUR"TAB(0)CHR$141" Pre
ss 1 to see how many times YOUR"
170PRINTTAB(0)CHR$141" numbers have ap
peared in the first"TAB(0)CHR$141" numbe
rs have appeared in the first"
180PRINTTAB(0)CHR$141" ";d%;" draws"TA
B(0)CHR$141" ";d%;" draws"
190PRINTTAB(0,16)CHR$141" Press 2 to r
eturn to Main Menu"TAB(0)CHR$141" Press
2 to return to Main Menu"
200PRINTTAB(10,22)CHR$141" PRESS 1 or
2"TAB(10)CHR$141" PRESS 1 or 2"
210A=GET
220IF A=49 THEN CLS:PROChowoften
230IF A=50 THEN CHAIN "LOTMENU"
240IF A=81 OR A=113 THEN PROCfinish
250IF A<>49 OR A<>50 OR A<>81 OR A<>11
3 THEN VDU7:RUN
260DEFPROCerror
270IF -113 PROCfinish
280CLS:REPORT:PRINT" at line ";ERL:STO
P
290ENDPROC
300DEFPROCfinish
310CHAIN"LOTMENU"
320ENDPROC
330END
340DEFPROCtitle:PRINTTAB(6,1)CHR$141"
FREQUENCY of YOUR NUMBERS"TAB(6)CHR$141"
FREQUENCY of YOUR NUMBERS"TAB(4,4)" (Up
to, and including, Week 52)"
350ENDPROC
360END
1000DEFPROChowoften
1010CLS:PROCtitle
1020y=12
1030PRINT:PRINTTAB(0)"To see how many t
imes your numbers have"''"appeared in ";
d%;" draws, type in each"''"number. (Pre
ss RETURN after entering"''"each number)
"
1040PRINTTAB(0,12)
1050FOR X=1 TO 6
1060INPUT;A$
1070REM: PRINTTAB(0,4)SPC(400):PRINTTAB
(0,8)SPC(400):PRINTTAB(0,12)SPC(400)
1080IF A$="1" THEN A$=" 1":B$=" 8"
1090IF A$="2" THEN A$=" 2":B$=" 8"
1100IF A$="3" THEN A$=" 3":B$=" 7"
1110IF A$="4" THEN A$=" 4":B$=" 6"
1120IF A$="5" THEN A$=" 5":B$="14"
1130IF A$="6" THEN A$=" 6":B$=" 6"
1140IF A$="7" THEN A$=" 7":B$=" 6"
1150IF A$="8" THEN A$=" 8":B$=" 6"
1160IF A$="9" THEN A$=" 9":B$=" 6"
1170IF A$="10" B$=" 7"
1180IF A$="11" B$=" 6"
1190IF A$="12" B$=" 5"
1200IF A$="13" B$=" 4"
1210IF A$="14" B$=" 8"
1220IF A$="15" B$=" 8"
1230IF A$="16" B$="10"
1240IF A$="17" B$="10"
1250IF A$="18" B$=" 6"
1260IF A$="19" B$=" 6"
1270IF A$="20" B$=" 7"
1280IF A$="21" B$="10"
1290IF A$="22" B$="12"
1300IF A$="23" B$=" 6"
1310IF A$="24" B$=" 6"
1320IF A$="25" B$="10"
1330IF A$="26" B$=" 7"
1340IF A$="27" B$=" 7"
1350IF A$="28" B$="11"
1360IF A$="29" B$=" 8"
1370IF A$="30" B$=" 10"
1380IF A$="31" B$=" 9"
1390IF A$="32" B$=" 7"
1400IF A$="33" B$=" 6"
1410IF A$="34" B$=" 5"
1420IF A$="35" B$=" 5"
1430IF A$="36" B$=" 6"
1440IF A$="37" B$=" 5"
1450IF A$="38" B$=" 9"
1460IF A$="39" B$="only once"
1470IF A$="40" B$=" 7"
1480IF A$="41" B$=" 9"
1490IF A$="42" B$=" 7"
1500IF A$="43" B$=" 7"
1510IF A$="44" B$="11"
1520IF A$="45"B$=" 8"
1530IF A$="46" B$=" 8"
1540IF A$="47" B$=" 7"
1550IF A$="48" B$=" 10"
1560IF A$="49" B$=" 6"
1570IF A$="39" THENPRINTTAB(0,y)"The nu
mber ";A$;" has appeared ";B$:y=y+1
1580IF A$<>"39"THEN PRINTTAB(0,y)"The n
umber ";A$;" has appeared ";B$;" times":
y=y+1
1590NEXT X
1600REM: GOTO310
1610PRINTTAB(4,21)" Press any key for a
nother go"'" or press ESCAPE for M
ENU":C=GET:IF C=-113 THEN PROCfinish ELS
E GOTO1010
1620END