Home » Archimedes archive » Archimedes World » archimedes_world_volume_14_issue_12_scp.adf » !Lottery_Lottery » !LotCheck/!Runimage
!LotCheck/!Runimage
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » archimedes_world_volume_14_issue_12_scp.adf » !Lottery_Lottery |
| Filename: | !LotCheck/!Runimage |
| Read OK: | ✔ |
| File size: | 13C58 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM >Lottery Check
20REM >Programmed by Ben Roles (Age 16)
30REM LEN Archimedes World
40:
50SYS "Hourglass_On"
60OSCLI "Set Lot$Work Yes"
70PROCsetup
80SYS "Hourglass_Off"
90PROCpoll
100:
110DEFPROCsetup
120line11%=0:line12%=0:line13%=0:line14%=0:line15%=0:line16%=0:line17%=0
130line21%=0:line22%=0:line23%=0:line24%=0:line25%=0:line26%=0:line27%=0
140line31%=0:line32%=0:line33%=0:line34%=0:line35%=0:line36%=0:line37%=0
150PROCget_size
160PROCvariables
170PROCclear_variables
180PROCinitialise
190PROCfonts
200PROCtemplates
210PROCwelcome
220PROCicon
230SYS "OS_ReadMonotonicTime" TO time%:time2%=time%+300:banner%=1
240PROCsheet1:PROCmatch_up:PROCcsheet1
250ENDPROC
260:
270DEFPROCget_size
280SYS &35,-1,4 TO ,,x%:SYS &35,-1,11 TO ,,X%:max_x%=X%<<x%
290SYS &35,-1,5 TO ,,y%:SYS &35,-1,12 TO ,,Y%:max_y%=Y%<<y%
300max_x%=max_x%/2
310max_y%=max_y%/2
320ENDPROC
330:
340DEFPROCvariables
350DIM blk% &1500,ind% &900,info% &1000,save% &2000,weeks% &4000,numbers% &5000,welcome% &6000,main% &7000,check% &8000,menu% &1000,title_blk% &1000
360mode_type%=0:found%=0:altered%=0:sure%=1:sheet%=1:searched%=0:csheet%=1
370ENDPROC
380:
390DEFPROCicon
400!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=68:blk%!16=68:blk%!20=(3<<12)+%11010
410$(blk%+24)="!LotCheck"
420SYS "Wimp_CreateIcon",,blk% TO bara%
430ENDPROC
440:
450DEFPROCinitialise
460SYS "Wimp_Initialise",200,&4B534154,"Lottery Check"
470a%=0
480ENDPROC
490:
500DEFPROCtemplates
510SYS "Wimp_OpenTemplate",,"<Check$Dir>.Templates"
520SYS "Wimp_LoadTemplate",,info%,ind%,ind%+&600,finfo%,"Info",0
530SYS "Wimp_CreateWindow",,info% TO infoa%
540SYS "Wimp_LoadTemplate",,save%,ind%+&700,ind%+&2000,fsave%,"Save",0
550SYS "Wimp_CreateWindow",,save% TO savea%
560SYS "Wimp_LoadTemplate",,weeks%,ind%+&2100,ind%+&4000,fweeks%,"ThisWeekNum",0
570SYS "Wimp_CreateWindow",,weeks% TO weeksa%
580SYS "Wimp_LoadTemplate",,numbers%,ind%+&4100,ind%+&6000,fnumbers%,"Numbers",0
590SYS "Wimp_CreateWindow",,numbers% TO numbersa%
600SYS "Wimp_LoadTemplate",,welcome%,ind%+&6100,ind%+&9000,fwelcome%,"Welcome",0
610SYS "Wimp_CreateWindow",,welcome% TO welcomea%
620SYS "Wimp_LoadTemplate",,main%,ind%+&9100,ind%+&10000,fmain%,"MainMenu",0
630SYS "Wimp_CreateWindow",,main% TO maina%
640SYS "Wimp_LoadTemplate",,check%,ind%+&10000,ind%+&12000,fcheck%,"Checked",0
650SYS "Wimp_CreateWindow",,check% TO checka%
660SYS "Wimp_CloseTemplate"
670ENDPROC
680:
690DEFPROCpoll
700REPEAT
710SYS "Wimp_Poll",0,blk% TO reason%
720CASE reason% OF
730WHEN 0:PROCbanner
740WHEN 2:SYS "Wimp_OpenWindow",,blk%
750WHEN 3:SYS "Wimp_CloseWindow",,blk%
760WHEN 6:PROCmouse
770WHEN 7:PROCdrag_completed
780WHEN 8:PROCkey
790WHEN 9:PROCselection
800WHEN 17,18:PROCmessage
810ENDCASE
820UNTIL FALSE
830ENDPROC
840:
850DEFPROCmouse
860IF blk%!8=2 AND blk%!12=-2 PROCmenu:ENDPROC
870IF blk%!12=-2 AND (blk%!8=1 OR blk%!8=4) PROCopen_window(maina%,474,656)
880IF blk%!12=maina% AND blk%!16=5 PROCopen_window(numbersa%,526,664):SYS "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
890IF blk%!12=maina% AND blk%!16=6 PROCopen_window(numbersa%,526,664):SYS "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
900IF blk%!12=maina% AND blk%!16=8 PROCopen_window(weeksa%,550,588):SYS "Wimp_SetCaretPosition",weeksa%,13,,,-1,0
910IF blk%!12=maina% AND blk%!16=9 PROCopen_window(weeksa%,550,588):SYS "Wimp_SetCaretPosition",weeksa%,13,,,-1,0
920IF blk%!12=maina% AND blk%!16=14 PROCopen_window(savea%,274,184):SYS "Wimp_SetCaretPosition",savea%,2,,,-1,0
930IF blk%!12=maina% AND blk%!16=15 PROCopen_window(savea%,274,184):SYS "Wimp_SetCaretPosition",savea%,2,,,-1,0
940IF blk%!12=maina% AND blk%!16=17 PROCclear
950IF blk%!12=maina% AND blk%!16=18 PROCclear
960IF blk%!12=savea% AND blk%!16=3 PROCdrag(savea%,3)
970IF blk%!12=weeksa% AND blk%!16=25 word$=FNread(weeksa%,25):IF word$="here" PROCopen_window(checka%,526,664)
980IF blk%!12=weeksa% AND blk%!16=27 PROCopen_window(checka%,526,664)
990IF blk%!12=numbersa% AND blk%!16=69 AND sheet%=2 SYS "Wimp_SetCaretPosition",numbersa%,6,,,-1,0:PROCsheet1
1000IF blk%!12=numbersa% AND blk%!16=69 AND sheet%=3 PROCsheet2
1010IF blk%!12=numbersa% AND blk%!16=70 AND sheet%=1 PROCsheet2
1020IF blk%!12=numbersa% AND blk%!16=70 AND sheet%=2 PROCsheet3
1030IF blk%!12=maina% AND blk%!16=17 PROCclear
1040IF blk%!12=maina% AND blk%!16=18 PROCclear
1050IF blk%!12=maina% AND blk%!16=11 AND searched%=1 PROCopen_window(checka%,526,664)
1060IF blk%!12=maina% AND blk%!16=12 AND searched%=1 PROCopen_window(checka%,526,664)
1070IF blk%!12=checka% AND blk%!16=69 AND csheet%=2 PROCcsheet1
1080IF blk%!12=checka% AND blk%!16=69 AND csheet%=3 PROCcsheet2
1090IF blk%!12=checka% AND blk%!16=70 AND csheet%=1 PROCcsheet2
1100IF blk%!12=checka% AND blk%!16=70 AND csheet%=2 PROCcsheet3
1110ENDPROC
1120:
1130DEFPROCsheet1
1140PROCwrite(numbersa%,3,"Ticket 1")
1150PROCwrite(numbersa%,71,"1/3")
1160PROCwrite(numbersa%,69,"BackG")
1170PROCwrite(numbersa%,70,"Forward")
1180sheet%=1
1190PROCwrite_in_data1
1200ENDPROC
1210:
1220DEFPROCsheet2
1230SYS "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
1240PROCwrite(numbersa%,3,"Ticket 2")
1250PROCwrite(numbersa%,71,"2/3")
1260PROCwrite(numbersa%,69,"Back")
1270PROCwrite(numbersa%,70,"Forward")
1280sheet%=2
1290PROCwrite_in_data2
1300ENDPROC
1310:
1320DEFPROCsheet3
1330SYS "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
1340PROCwrite(numbersa%,3,"Ticket 3")
1350PROCwrite(numbersa%,71,"3/3")
1360PROCwrite(numbersa%,69,"Back")
1370PROCwrite(numbersa%,70,"ForwardG")
1380sheet%=3
1390PROCwrite_in_data3
1400ENDPROC
1410:
1420DEFPROCcsheet1
1430PROCwrite(checka%,3,"Ticket 1")
1440PROCwrite(checka%,71,"1/3")
1450PROCwrite(checka%,69,"BackG")
1460PROCwrite(checka%,70,"Forward")
1470csheet%=1
1480PROCwrite_in_cdata1
1490ENDPROC
1500:
1510DEFPROCcsheet2
1520PROCwrite(checka%,3,"Ticket 2")
1530PROCwrite(checka%,71,"2/3")
1540PROCwrite(checka%,69,"Back")
1550PROCwrite(checka%,70,"Forward")
1560csheet%=2
1570PROCwrite_in_cdata2
1580ENDPROC
1590:
1600DEFPROCcsheet3
1610PROCwrite(checka%,3,"Ticket 3")
1620PROCwrite(checka%,71,"3/3")
1630PROCwrite(checka%,69,"Back")
1640PROCwrite(checka%,70,"ForwardG")
1650csheet%=3
1660PROCwrite_in_cdata3
1670ENDPROC
1680:
1690DEFPROCmenu
1700mx%=blk%!0:my%=blk%!4
1710PROCmenu_info
1720SYS "Wimp_CreateMenu",,menu%,mx%-64,318
1730ENDPROC
1740:
1750DEFFNstring(a%)
1760LOCAL st$
1770st$=""
1780WHILE ?a%>31
1790st$+=CHR$(?a%)
1800a%+=1
1810ENDWHILE
1820=st$
1830:
1840DEFPROCselection
1850sure%=1
1860CASE !blk% OF
1870WHEN 0:
1880WHEN 1:
1890WHEN 2:PROCopen_window(weeksa%,550,588):SYS "Wimp_SetCaretPosition",weeksa%,13,,,-1,0
1900WHEN 3:PROCclear
1910WHEN 4:IF altered%=1 SYS "Wimp_ReportError"," National Lottery numbers have been altered but not saved. Are you sure you wish to quit?",27,"Error from Lottery Check" TO ,sure%
1920IF sure%=1 OSCLI "Set Lot$Work No":SYS "Wimp_CloseDown":END
1930ENDCASE
1940ENDPROC
1950:
1960DEFPROCmenu_info
1970$menu%="LotCheck"
1980menu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0
1990menu%!16=190:menu%!20=44:menu%!24=0:ptr%=menu%+28
2000!ptr%=0
2010ptr%!4=infoa%
2020ptr%!8=&7000021
2030$(ptr%+12)="Info"
2040ptr%+=24
2050!ptr%=0
2060ptr%!4=savea%
2070ptr%!8=&7000021
2080$(ptr%+12)="Save"
2090ptr%+=24
2100!ptr%=0
2110ptr%!4=-1
2120ptr%!8=&7000021
2130$(ptr%+12)="Check"
2140ptr%+=24
2150!ptr%=0
2160ptr%!4=-1
2170ptr%!8=&7000021
2180$(ptr%+12)="Clear"
2190ptr%+=24
2200!ptr%=&80
2210ptr%!4=-1
2220ptr%!8=&7000021
2230$(ptr%+12)="Quit"
2240ENDPROC
2250:
2260DEFPROCopen_window(win%,x1%,y1%)
2270!blk%=win%
2280x%=x1%/2:y%=y1%/2
2290blk%!4=max_x%-x%
2300blk%!8=max_y%-y%
2310blk%!12=max_x%-x%+x1%
2320blk%!16=max_y%-y%+y1%
2330blk%!20=0
2340blk%!24=0
2350blk%!28=-1
2360SYS "Wimp_OpenWindow",,blk%
2370IF win%=weeksa% PROCnumbers_open
2380ENDPROC
2390:
2400DEFPROCnumbers_open
2410searched%=0
2420PROCwrite(weeksa%,13,"")
2430PROCwrite(weeksa%,14,"")
2440PROCwrite(weeksa%,15,"")
2450PROCwrite(weeksa%,16,"")
2460PROCwrite(weeksa%,17,"")
2470PROCwrite(weeksa%,18,"")
2480PROCwrite(weeksa%,21,"")
2490PROCwrite(weeksa%,23,"")
2500PROCwrite(weeksa%,24,"")
2510PROCwrite(weeksa%,26,"")
2520PROCwrite(weeksa%,25,"")
2530PROCwrite(weeksa%,27,"")
2540PROCwrite(maina%,11,"How_Well_Off")
2550PROCwrite(maina%,12,"View Lines")
2560!blk%=weeksa%
2570SYS "Wimp_SetCaretPosition",weeksa%,6,,,-1,0
2580SYS "Wimp_GetWindowState",,blk%
2590blk%!28=-1
2600SYS "Wimp_OpenWindow",,blk%
2610ENDPROC
2620:
2630DEFPROCclose_window(win%)
2640!blk%=win%
2650SYS "Wimp_CloseWindow",,blk%
2660ENDPROC
2670:
2680DEFPROCmessage
2690sure%=1:loaded%=0
2700IF blk%!16=0:IF altered%=1 SYS "Wimp_ReportError"," National Lottery numbers have been altered but not saved. Are you sure you wish to quit?",27,"Error from Lottery Check" TO ,sure%
2710IF blk%!16=0:IF sure%=1 OSCLI "Set Lot$Work No":SYS "Wimp_CloseDown":END
2720IF blk%!16=2:PROCsave_data
2730IF blk%!16=3:PROCdragged
2740IF loaded%=1 CLOSE#file%:PROCwrite_in_data:loaded%=0
2750IF blk%!16=5:PROCclicked
2760IF loaded%=1 CLOSE#file%:PROCwrite_in_data:loaded%=0
2770ENDPROC
2780:
2790DEFPROCwrite(w%,i%,t$)
2800blk%!0=w%
2810blk%!4=i%
2820SYS "Wimp_GetIconState",,blk%
2830t$=LEFT$(t$,blk%!36-1)
2840$(blk%!28)=t$
2850blk%!8=0
2860blk%!12=0
2870SYS "Wimp_SetIconState",,blk%
2880ENDPROC
2890:
2900DEFFNread(w%,i%)
2910!blk%=w%
2920blk%!4=i%
2930SYS "Wimp_GetIconState",,blk%
2940=FNstring(blk%!28)
2950:
2960DEFPROCwelcome
2970PROCopen_window(welcomea%,638,352)
2980ENDPROC
2990:
3000DEFPROCfonts
3010DIM finfo% 256,fsave% 256,fweeks% 256,fwelcome% 256,fnumbers% 256,fmain% 256,fcheck% 256
3020font_dir%=FNcheck_there
3030IF font_dir%=TRUE SYS "XOS_CLI","FontInstall":ENDPROC
3040SYS "Wimp_ReportError"," Please locate a font directory.",17,"Error from Lottery Check"
3050SYS "Hourglass_Off":OSLCI "Set Lot$Work No":SYS "Wimp_CloseDown":END
3060ENDPROC
3070:
3080DEFFNcheck_there
3090SYS"XOS_ReadVarVal","Font$Path",,1<<31 TO ,,font_dir
3100IF font_dir=0 =FALSE ELSE =TRUE
3110:
3120DEFPROCdrag_completed
3130filename$=FNread(savea%,2)
3140SYS "Wimp_GetPointerInfo",,blk%
3150w%=blk%!12:i%=blk%!16:x%=blk%!0:y%=blk%!4
3160blk%!0=64:blk%!12=0:blk%!16=1:blk%!20=w%:blk%!24=i%
3170blk%!28=x%:blk%!32=y%:blk%!46=600:blk%!40=&FFF
3180$(blk%+44)=filename$
3190SYS "Wimp_SendMessage",17,blk%,w%,i%
3200ENDPROC
3210:
3220DEFPROCsave_data
3230x%=blk%!0:y%=blk%!4:z%=blk%!8
3240name$=FNsave_data2(blk%+44)
3250blk%!0=x%:blk%!12=z%:blk%!16=3
3260SYS "Wimp_SendMessage",18,blk%,y%
3270name$=FNammend_string(name$+CHR$(0))
3280IF num116$="" SYS "Wimp_ReportError"," No national lottery lines have been entered. Save aborted.",17,"Message from Lottery Check":ENDPROC
3290PROCwrite(savea%,2,name$)
3300PROCcreate_file
3310PROCwrite_data
3320x=OPENUP(name$)
3330PTR#x=EXT#x
3340PRINT#x,"tednE eiD"
3350CLOSE#x
3360PROCclose_window(savea%)
3370ENDPROC
3380:
3390DEFFNsave_data2(number%)
3400str$=""
3410WHILE ?number%
3420str$+=CHR$?number%
3430number%+=1
3440ENDWHILE
3450=str$
3460:
3470DEFFNammend_string(original$)
3480ptr%=1:name$=""
3490WHILE MID$(original$,ptr%,1)<>CHR$(0)
3500name$+=MID$(original$,ptr%,1):ptr%+=1
3510ENDWHILE
3520=name$
3530:
3540DEFPROCcreate_file
3550SYS "XOS_CLI","Create "+name$
3560SYS "XOS_CLI","Settype "+name$+" &04B"
3570ENDPROC
3580:
3590DEFPROCdrag(win%,icon%)
3600LOCAL x%,y%
3610blk%!0=win%
3620SYS "Wimp_GetWindowState",,blk%
3630x%=blk%!4-blk%!20
3640y%=blk%!16-blk%!24
3650blk%!4=icon%
3660SYS "Wimp_GetIconState",,blk%
3670blk%!4=5
3680blk%!8+=x%
3690blk%!12+=y%
3700blk%!16+=x%
3710blk%!20+=y%
3720blk%!24=-1
3730blk%!28=-1
3740blk%!32=&7FFFFFFF
3750blk%!36=&7FFFFFFF
3760SYS "Wimp_DragBox",,blk%
3770ENDPROC
3780:
3790DEFPROCwrite_data
3800altered%=0
3810PROCchange_title(numbersa%,"Lottery Lines")
3820file%=OPENUP(name$)
3830IF num116$="" CLOSE#file%:ENDPROC
3840PRINT#file%,num111$,num112$,num113$,num114$,num115$,num116$
3850IF num126$="" CLOSE#file%:ENDPROC
3860PRINT#file%,num121$,num122$,num123$,num124$,num125$,num126$
3870IF num136$="" CLOSE#file%:ENDPROC
3880PRINT#file%,num131$,num132$,num133$,num134$,num135$,num136$
3890IF num146$="" CLOSE#file%:ENDPROC
3900PRINT#file%,num141$,num142$,num143$,num144$,num145$,num146$
3910IF num156$="" CLOSE#file%:ENDPROC
3920PRINT#file%,num151$,num152$,num153$,num154$,num155$,num156$
3930IF num166$="" CLOSE#file%:ENDPROC
3940PRINT#file%,num161$,num162$,num163$,num164$,num165$,num166$
3950IF num176$="" CLOSE#file%:ENDPROC
3960PRINT#file%,num171$,num172$,num173$,num174$,num175$,num176$
3970IF num216$="" CLOSE#file%:ENDPROC
3980PRINT#file%,num211$,num212$,num213$,num214$,num215$,num216$
3990IF num226$="" CLOSE#file%:ENDPROC
4000PRINT#file%,num221$,num222$,num223$,num224$,num225$,num226$
4010IF num236$="" CLOSE#file%:ENDPROC
4020PRINT#file%,num231$,num232$,num233$,num234$,num235$,num236$
4030IF num246$="" CLOSE#file%:ENDPROC
4040PRINT#file%,num241$,num242$,num243$,num244$,num245$,num246$
4050IF num256$="" CLOSE#file%:ENDPROC
4060PRINT#file%,num251$,num252$,num253$,num254$,num255$,num256$
4070IF num266$="" CLOSE#file%:ENDPROC
4080PRINT#file%,num261$,num262$,num263$,num264$,num265$,num266$
4090IF num276$="" CLOSE#file%:ENDPROC
4100PRINT#file%,num271$,num272$,num273$,num274$,num275$,num276$
4110IF num316$="" CLOSE#file%:ENDPROC
4120PRINT#file%,num311$,num312$,num313$,num314$,num315$,num316$
4130IF num326$="" CLOSE#file%:ENDPROC
4140PRINT#file%,num321$,num322$,num323$,num324$,num325$,num326$
4150IF num336$="" CLOSE#file%:ENDPROC
4160PRINT#file%,num331$,num332$,num333$,num334$,num335$,num336$
4170IF num346$="" CLOSE#file%:ENDPROC
4180PRINT#file%,num341$,num342$,num343$,num344$,num345$,num346$
4190IF num356$="" CLOSE#file%:ENDPROC
4200PRINT#file%,num351$,num352$,num353$,num354$,num355$,num356$
4210IF num366$="" CLOSE#file%:ENDPROC
4220PRINT#file%,num361$,num362$,num363$,num364$,num365$,num366$
4230IF num376$="" CLOSE#file%:ENDPROC
4240PRINT#file%,num371$,num372$,num373$,num374$,num375$,num376$
4250CLOSE#file%
4260ENDPROC
4270:
4280DEFPROCkey
4290before%=altered%
4300CASE !blk% OF
4310WHEN weeksa%:PROCweeks
4320WHEN numbersa%:PROCwhere
4330IF altered%<>before% PROCchange_title(numbersa%,"Lottery Lines *")
4340WHEN savea%:PROCok_save
4350ENDCASE
4360ENDPROC
4370:
4380DEFPROCwhere
4390IF sheet%=1 PROCnumbers_picked1
4400IF sheet%=2 PROCnumbers_picked2
4410IF sheet%=3 PROCnumbers_picked3
4420ENDPROC
4430:
4440DEFPROCweeks
4450key%=blk%!24
4460SYS "Wimp_ProcessKey",key%
4470IF key%=13 AND blk%!4=13:SYS "Wimp_SetCaretPosition",weeksa%,14,,,-1,0
4480IF key%=13 AND blk%!4=14:SYS "Wimp_SetCaretPosition",weeksa%,15,,,-1,0
4490IF key%=13 AND blk%!4=15:SYS "Wimp_SetCaretPosition",weeksa%,16,,,-1,0
4500IF key%=13 AND blk%!4=16:SYS "Wimp_SetCaretPosition",weeksa%,17,,,-1,0
4510IF key%=13 AND blk%!4=17:SYS "Wimp_SetCaretPosition",weeksa%,18,,,-1,0
4520IF key%=13 AND blk%!4=18:SYS "Wimp_SetCaretPosition",weeksa%,21,,,-1,0
4530IF key%=13 AND blk%!4=21:PROCcheck_match:PROCdisplay_winners
4540ENDPROC
4550:
4560DEFPROCcheck_match
4570SYS "Hourglass_On"
4580week_num1$=FNread(weeksa%,13)
4590week_num2$=FNread(weeksa%,14)
4600week_num3$=FNread(weeksa%,15)
4610week_num4$=FNread(weeksa%,16)
4620week_num5$=FNread(weeksa%,17)
4630week_num6$=FNread(weeksa%,18)
4640week_num7$=FNread(weeksa%,21)
4650PROCclear_other_variables
4660line11%=0:line12%=0:line13%=0:line14%=0:line15%=0:line16%=0:line17%=0
4670line21%=0:line22%=0:line23%=0:line24%=0:line25%=0:line26%=0:line27%=0
4680line31%=0:line32%=0:line33%=0:line34%=0:line35%=0:line36%=0:line37%=0
4690winners%=0
4700IF num111$=week_num1$ OR num111$=week_num2$ OR num111$=week_num3$ OR num111$=week_num4$ OR num111$=week_num5$ OR num111$=week_num6$ num111%=1:line11%=line11%+1
4710IF num112$=week_num1$ OR num112$=week_num2$ OR num112$=week_num3$ OR num112$=week_num4$ OR num112$=week_num5$ OR num112$=week_num6$ num112%=1:line11%=line11%+1
4720IF num113$=week_num1$ OR num113$=week_num2$ OR num113$=week_num3$ OR num113$=week_num4$ OR num113$=week_num5$ OR num113$=week_num6$ num113%=1:line11%=line11%+1
4730IF num114$=week_num1$ OR num114$=week_num2$ OR num114$=week_num3$ OR num114$=week_num4$ OR num114$=week_num5$ OR num114$=week_num6$ num114%=1:line11%=line11%+1
4740IF num115$=week_num1$ OR num115$=week_num2$ OR num115$=week_num3$ OR num115$=week_num4$ OR num115$=week_num5$ OR num115$=week_num6$ num115%=1:line11%=line11%+1
4750IF num116$=week_num1$ OR num116$=week_num2$ OR num116$=week_num3$ OR num116$=week_num4$ OR num116$=week_num5$ OR num116$=week_num6$ num116%=1:line11%=line11%+1
4760REM ***************** Now I can see where I am (It's hard this is!) ********************
4770IF num121$="" ENDPROC
4780IF num121$=week_num1$ OR num121$=week_num2$ OR num121$=week_num3$ OR num121$=week_num4$ OR num121$=week_num5$ OR num121$=week_num6$ num121%=1:line12%=line12%+1
4790IF num122$=week_num1$ OR num122$=week_num2$ OR num122$=week_num3$ OR num122$=week_num4$ OR num122$=week_num5$ OR num122$=week_num6$ num122%=1:line12%=line12%+1
4800IF num123$=week_num1$ OR num123$=week_num2$ OR num123$=week_num3$ OR num123$=week_num4$ OR num123$=week_num5$ OR num123$=week_num6$ num123%=1:line12%=line12%+1
4810IF num124$=week_num1$ OR num124$=week_num2$ OR num124$=week_num3$ OR num124$=week_num4$ OR num124$=week_num5$ OR num124$=week_num6$ num124%=1:line12%=line12%+1
4820IF num125$=week_num1$ OR num125$=week_num2$ OR num125$=week_num3$ OR num125$=week_num4$ OR num125$=week_num5$ OR num125$=week_num6$ num125%=1:line12%=line12%+1
4830IF num126$=week_num1$ OR num126$=week_num2$ OR num126$=week_num3$ OR num126$=week_num4$ OR num126$=week_num5$ OR num126$=week_num6$ num126%=1:line12%=line12%+1
4840REM ***************** Now I can see where I am (It's hard this is!) ********************
4850IF num131$="" ENDPROC
4860IF num131$=week_num1$ OR num131$=week_num2$ OR num131$=week_num3$ OR num131$=week_num4$ OR num131$=week_num5$ OR num131$=week_num6$ num131%=1:line13%=line13%+1
4870IF num132$=week_num1$ OR num132$=week_num2$ OR num132$=week_num3$ OR num132$=week_num4$ OR num132$=week_num5$ OR num132$=week_num6$ num132%=1:line13%=line13%+1
4880IF num133$=week_num1$ OR num133$=week_num2$ OR num133$=week_num3$ OR num133$=week_num4$ OR num133$=week_num5$ OR num133$=week_num6$ num133%=1:line13%=line13%+1
4890IF num134$=week_num1$ OR num134$=week_num2$ OR num134$=week_num3$ OR num134$=week_num4$ OR num134$=week_num5$ OR num134$=week_num6$ num134%=1:line13%=line13%+1
4900IF num135$=week_num1$ OR num135$=week_num2$ OR num135$=week_num3$ OR num135$=week_num4$ OR num135$=week_num5$ OR num135$=week_num6$ num135%=1:line13%=line13%+1
4910IF num136$=week_num1$ OR num136$=week_num2$ OR num136$=week_num3$ OR num136$=week_num4$ OR num136$=week_num5$ OR num136$=week_num6$ num136%=1:line13%=line13%+1
4920REM ***************** Now I can see where I am (It's hard this is!) ********************
4930IF num141$="" ENDPROC
4940IF num141$=week_num1$ OR num141$=week_num2$ OR num141$=week_num3$ OR num141$=week_num4$ OR num141$=week_num5$ OR num141$=week_num6$ num141%=1:line14%=line14%+1
4950IF num142$=week_num1$ OR num142$=week_num2$ OR num142$=week_num3$ OR num142$=week_num4$ OR num142$=week_num5$ OR num142$=week_num6$ num142%=1:line14%=line14%+1
4960IF num143$=week_num1$ OR num143$=week_num2$ OR num143$=week_num3$ OR num143$=week_num4$ OR num143$=week_num5$ OR num143$=week_num6$ num143%=1:line14%=line14%+1
4970IF num144$=week_num1$ OR num144$=week_num2$ OR num144$=week_num3$ OR num144$=week_num4$ OR num144$=week_num5$ OR num144$=week_num6$ num144%=1:line14%=line14%+1
4980IF num145$=week_num1$ OR num145$=week_num2$ OR num145$=week_num3$ OR num145$=week_num4$ OR num145$=week_num5$ OR num145$=week_num6$ num145%=1:line14%=line14%+1
4990IF num146$=week_num1$ OR num146$=week_num2$ OR num146$=week_num3$ OR num146$=week_num4$ OR num146$=week_num5$ OR num146$=week_num6$ num146%=1:line14%=line14%+1
5000REM ***************** Now I can see where I am (It's hard this is!) ********************
5010IF num151$="" ENDPROC
5020IF num151$=week_num1$ OR num151$=week_num2$ OR num151$=week_num3$ OR num151$=week_num4$ OR num151$=week_num5$ OR num151$=week_num6$ num151%=1:line15%=line15%+1
5030IF num152$=week_num1$ OR num152$=week_num2$ OR num152$=week_num3$ OR num152$=week_num4$ OR num152$=week_num5$ OR num152$=week_num6$ num152%=1:line15%=line15%+1
5040IF num153$=week_num1$ OR num153$=week_num2$ OR num153$=week_num3$ OR num153$=week_num4$ OR num153$=week_num5$ OR num153$=week_num6$ num153%=1:line15%=line15%+1
5050IF num154$=week_num1$ OR num154$=week_num2$ OR num154$=week_num3$ OR num154$=week_num4$ OR num154$=week_num5$ OR num154$=week_num6$ num154%=1:line15%=line15%+1
5060IF num155$=week_num1$ OR num155$=week_num2$ OR num155$=week_num3$ OR num155$=week_num4$ OR num155$=week_num5$ OR num155$=week_num6$ num155%=1:line15%=line15%+1
5070IF num156$=week_num1$ OR num156$=week_num2$ OR num156$=week_num3$ OR num156$=week_num4$ OR num156$=week_num5$ OR num156$=week_num6$ num156%=1:line15%=line15%+1
5080REM ***************** Now I can see where I am (It's hard this is!) ********************
5090IF num161$="" ENDPROC
5100IF num161$=week_num1$ OR num161$=week_num2$ OR num161$=week_num3$ OR num161$=week_num4$ OR num161$=week_num5$ OR num161$=week_num6$ num161%=1:line16%=line16%+1
5110IF num162$=week_num1$ OR num162$=week_num2$ OR num162$=week_num3$ OR num162$=week_num4$ OR num162$=week_num5$ OR num162$=week_num6$ num162%=1:line16%=line16%+1
5120IF num163$=week_num1$ OR num163$=week_num2$ OR num163$=week_num3$ OR num163$=week_num4$ OR num163$=week_num5$ OR num163$=week_num6$ num163%=1:line16%=line16%+1
5130IF num164$=week_num1$ OR num164$=week_num2$ OR num164$=week_num3$ OR num164$=week_num4$ OR num164$=week_num5$ OR num164$=week_num6$ num164%=1:line16%=line16%+1
5140IF num165$=week_num1$ OR num165$=week_num2$ OR num165$=week_num3$ OR num165$=week_num4$ OR num165$=week_num5$ OR num165$=week_num6$ num165%=1:line16%=line16%+1
5150IF num166$=week_num1$ OR num166$=week_num2$ OR num166$=week_num3$ OR num166$=week_num4$ OR num166$=week_num5$ OR num166$=week_num6$ num166%=1:line16%=line16%+1
5160REM ***************** Now I can see where I am (It's hard this is!) ********************
5170IF num171$="" ENDPROC
5180IF num171$=week_num1$ OR num171$=week_num2$ OR num171$=week_num3$ OR num171$=week_num4$ OR num171$=week_num5$ OR num171$=week_num6$ num171%=1:line17%=line17%+1
5190IF num172$=week_num1$ OR num172$=week_num2$ OR num172$=week_num3$ OR num172$=week_num4$ OR num172$=week_num5$ OR num172$=week_num6$ num172%=1:line17%=line17%+1
5200IF num173$=week_num1$ OR num173$=week_num2$ OR num173$=week_num3$ OR num173$=week_num4$ OR num173$=week_num5$ OR num173$=week_num6$ num173%=1:line17%=line17%+1
5210IF num174$=week_num1$ OR num174$=week_num2$ OR num174$=week_num3$ OR num174$=week_num4$ OR num174$=week_num5$ OR num174$=week_num6$ num174%=1:line17%=line17%+1
5220IF num175$=week_num1$ OR num175$=week_num2$ OR num175$=week_num3$ OR num175$=week_num4$ OR num175$=week_num5$ OR num175$=week_num6$ num175%=1:line17%=line17%+1
5230IF num176$=week_num1$ OR num176$=week_num2$ OR num176$=week_num3$ OR num176$=week_num4$ OR num176$=week_num5$ OR num176$=week_num6$ num176%=1:line17%=line17%+1
5240REM ***************** Now I can see where I am (It's hard this is!) ********************
5250IF num211$="" ENDPROC
5260IF num211$=week_num1$ OR num211$=week_num2$ OR num211$=week_num3$ OR num211$=week_num4$ OR num211$=week_num5$ OR num211$=week_num6$ num211%=1:line21%=line21%+1
5270IF num212$=week_num1$ OR num212$=week_num2$ OR num212$=week_num3$ OR num212$=week_num4$ OR num212$=week_num5$ OR num212$=week_num6$ num212%=1:line21%=line21%+1
5280IF num213$=week_num1$ OR num213$=week_num2$ OR num213$=week_num3$ OR num213$=week_num4$ OR num213$=week_num5$ OR num213$=week_num6$ num213%=1:line21%=line21%+1
5290IF num214$=week_num1$ OR num214$=week_num2$ OR num214$=week_num3$ OR num214$=week_num4$ OR num214$=week_num5$ OR num214$=week_num6$ num214%=1:line21%=line21%+1
5300IF num215$=week_num1$ OR num215$=week_num2$ OR num215$=week_num3$ OR num215$=week_num4$ OR num215$=week_num5$ OR num215$=week_num6$ num215%=1:line21%=line21%+1
5310IF num216$=week_num1$ OR num216$=week_num2$ OR num216$=week_num3$ OR num216$=week_num4$ OR num216$=week_num5$ OR num216$=week_num6$ num216%=1:line21%=line21%+1
5320REM ***************** Now I can see where I am (It's hard this is!) ********************
5330IF num221$="" ENDPROC
5340IF num221$=week_num1$ OR num221$=week_num2$ OR num221$=week_num3$ OR num221$=week_num4$ OR num221$=week_num5$ OR num221$=week_num6$ num221%=1:line22%=line22%+1
5350IF num222$=week_num1$ OR num222$=week_num2$ OR num222$=week_num3$ OR num222$=week_num4$ OR num222$=week_num5$ OR num222$=week_num6$ num222%=1:line22%=line22%+1
5360IF num223$=week_num1$ OR num223$=week_num2$ OR num223$=week_num3$ OR num223$=week_num4$ OR num223$=week_num5$ OR num223$=week_num6$ num223%=1:line22%=line22%+1
5370IF num224$=week_num1$ OR num224$=week_num2$ OR num224$=week_num3$ OR num224$=week_num4$ OR num224$=week_num5$ OR num224$=week_num6$ num224%=1:line22%=line22%+1
5380IF num225$=week_num1$ OR num225$=week_num2$ OR num225$=week_num3$ OR num225$=week_num4$ OR num225$=week_num5$ OR num225$=week_num6$ num225%=1:line22%=line22%+1
5390IF num226$=week_num1$ OR num226$=week_num2$ OR num226$=week_num3$ OR num226$=week_num4$ OR num226$=week_num5$ OR num226$=week_num6$ num226%=1:line22%=line22%+1
5400REM ***************** Now I can see where I am (It's hard this is!) ********************
5410IF num231$="" ENDPROC
5420IF num231$=week_num1$ OR num231$=week_num2$ OR num231$=week_num3$ OR num231$=week_num4$ OR num231$=week_num5$ OR num231$=week_num6$ num231%=1:line23%=line23%+1
5430IF num232$=week_num1$ OR num232$=week_num2$ OR num232$=week_num3$ OR num232$=week_num4$ OR num232$=week_num5$ OR num232$=week_num6$ num232%=1:line23%=line23%+1
5440IF num233$=week_num1$ OR num233$=week_num2$ OR num233$=week_num3$ OR num233$=week_num4$ OR num233$=week_num5$ OR num233$=week_num6$ num233%=1:line23%=line23%+1
5450IF num234$=week_num1$ OR num234$=week_num2$ OR num234$=week_num3$ OR num234$=week_num4$ OR num234$=week_num5$ OR num234$=week_num6$ num234%=1:line23%=line23%+1
5460IF num235$=week_num1$ OR num235$=week_num2$ OR num235$=week_num3$ OR num235$=week_num4$ OR num235$=week_num5$ OR num235$=week_num6$ num235%=1:line23%=line23%+1
5470IF num236$=week_num1$ OR num236$=week_num2$ OR num236$=week_num3$ OR num236$=week_num4$ OR num236$=week_num5$ OR num236$=week_num6$ num236%=1:line23%=line23%+1
5480REM ***************** Now I can see where I am (It's hard this is!) ********************
5490IF num241$="" ENDPROC
5500IF num241$=week_num1$ OR num241$=week_num2$ OR num241$=week_num3$ OR num241$=week_num4$ OR num241$=week_num5$ OR num241$=week_num6$ num241%=1:line24%=line24%+1
5510IF num242$=week_num1$ OR num242$=week_num2$ OR num242$=week_num3$ OR num242$=week_num4$ OR num242$=week_num5$ OR num242$=week_num6$ num242%=1:line24%=line24%+1
5520IF num243$=week_num1$ OR num243$=week_num2$ OR num243$=week_num3$ OR num243$=week_num4$ OR num243$=week_num5$ OR num243$=week_num6$ num243%=1:line24%=line24%+1
5530IF num244$=week_num1$ OR num244$=week_num2$ OR num244$=week_num3$ OR num244$=week_num4$ OR num244$=week_num5$ OR num244$=week_num6$ num244%=1:line24%=line24%+1
5540IF num245$=week_num1$ OR num245$=week_num2$ OR num245$=week_num3$ OR num245$=week_num4$ OR num245$=week_num5$ OR num245$=week_num6$ num245%=1:line24%=line24%+1
5550IF num246$=week_num1$ OR num246$=week_num2$ OR num246$=week_num3$ OR num246$=week_num4$ OR num246$=week_num5$ OR num246$=week_num6$ num246%=1:line24%=line24%+1
5560REM ***************** Now I can see where I am (It's hard this is!) ********************
5570IF num251$="" ENDPROC
5580IF num251$=week_num1$ OR num251$=week_num2$ OR num251$=week_num3$ OR num251$=week_num4$ OR num251$=week_num5$ OR num251$=week_num6$ num251%=1:line25%=line25%+1
5590IF num252$=week_num1$ OR num252$=week_num2$ OR num252$=week_num3$ OR num252$=week_num4$ OR num252$=week_num5$ OR num252$=week_num6$ num252%=1:line25%=line25%+1
5600IF num253$=week_num1$ OR num253$=week_num2$ OR num253$=week_num3$ OR num253$=week_num4$ OR num253$=week_num5$ OR num253$=week_num6$ num253%=1:line25%=line25%+1
5610IF num254$=week_num1$ OR num254$=week_num2$ OR num254$=week_num3$ OR num254$=week_num4$ OR num254$=week_num5$ OR num254$=week_num6$ num254%=1:line25%=line25%+1
5620IF num255$=week_num1$ OR num255$=week_num2$ OR num255$=week_num3$ OR num255$=week_num4$ OR num255$=week_num5$ OR num255$=week_num6$ num255%=1:line25%=line25%+1
5630IF num256$=week_num1$ OR num256$=week_num2$ OR num256$=week_num3$ OR num256$=week_num4$ OR num256$=week_num5$ OR num256$=week_num6$ num256%=1:line25%=line25%+1
5640REM ***************** Now I can see where I am (It's hard this is!) ********************
5650IF num261$="" ENDPROC
5660IF num261$=week_num1$ OR num261$=week_num2$ OR num261$=week_num3$ OR num261$=week_num4$ OR num261$=week_num5$ OR num261$=week_num6$ num261%=1:line26%=line26%+1
5670IF num262$=week_num1$ OR num262$=week_num2$ OR num262$=week_num3$ OR num262$=week_num4$ OR num262$=week_num5$ OR num262$=week_num6$ num262%=1:line26%=line26%+1
5680IF num263$=week_num1$ OR num263$=week_num2$ OR num263$=week_num3$ OR num263$=week_num4$ OR num263$=week_num5$ OR num263$=week_num6$ num263%=1:line26%=line26%+1
5690IF num264$=week_num1$ OR num264$=week_num2$ OR num264$=week_num3$ OR num264$=week_num4$ OR num264$=week_num5$ OR num264$=week_num6$ num264%=1:line26%=line26%+1
5700IF num265$=week_num1$ OR num265$=week_num2$ OR num265$=week_num3$ OR num265$=week_num4$ OR num265$=week_num5$ OR num265$=week_num6$ num265%=1:line26%=line26%+1
5710IF num266$=week_num1$ OR num266$=week_num2$ OR num266$=week_num3$ OR num266$=week_num4$ OR num266$=week_num5$ OR num266$=week_num6$ num266%=1:line26%=line26%+1
5720REM ***************** Now I can see where I am (It's hard this is!) ********************
5730IF num271$="" ENDPROC
5740IF num271$=week_num1$ OR num271$=week_num2$ OR num271$=week_num3$ OR num271$=week_num4$ OR num271$=week_num5$ OR num271$=week_num6$ num271%=1:line27%=line27%+1
5750IF num272$=week_num1$ OR num272$=week_num2$ OR num272$=week_num3$ OR num272$=week_num4$ OR num272$=week_num5$ OR num272$=week_num6$ num272%=1:line27%=line27%+1
5760IF num273$=week_num1$ OR num273$=week_num2$ OR num273$=week_num3$ OR num273$=week_num4$ OR num273$=week_num5$ OR num273$=week_num6$ num273%=1:line27%=line27%+1
5770IF num274$=week_num1$ OR num274$=week_num2$ OR num274$=week_num3$ OR num274$=week_num4$ OR num274$=week_num5$ OR num274$=week_num6$ num274%=1:line27%=line27%+1
5780IF num275$=week_num1$ OR num275$=week_num2$ OR num275$=week_num3$ OR num275$=week_num4$ OR num275$=week_num5$ OR num275$=week_num6$ num275%=1:line27%=line27%+1
5790IF num276$=week_num1$ OR num276$=week_num2$ OR num276$=week_num3$ OR num276$=week_num4$ OR num276$=week_num5$ OR num276$=week_num6$ num276%=1:line27%=line27%+1
5800REM ***************** Now I can see where I am (It's hard this is!) ********************
5810IF num311$="" ENDPROC
5820IF num311$=week_num1$ OR num311$=week_num2$ OR num311$=week_num3$ OR num311$=week_num4$ OR num311$=week_num5$ OR num311$=week_num6$ num311%=1:line31%=line31%+1
5830IF num312$=week_num1$ OR num312$=week_num2$ OR num312$=week_num3$ OR num312$=week_num4$ OR num312$=week_num5$ OR num312$=week_num6$ num312%=1:line31%=line31%+1
5840IF num313$=week_num1$ OR num313$=week_num2$ OR num313$=week_num3$ OR num313$=week_num4$ OR num313$=week_num5$ OR num313$=week_num6$ num313%=1:line31%=line31%+1
5850IF num314$=week_num1$ OR num314$=week_num2$ OR num314$=week_num3$ OR num314$=week_num4$ OR num314$=week_num5$ OR num314$=week_num6$ num314%=1:line31%=line31%+1
5860IF num315$=week_num1$ OR num315$=week_num2$ OR num315$=week_num3$ OR num315$=week_num4$ OR num315$=week_num5$ OR num315$=week_num6$ num315%=1:line31%=line31%+1
5870IF num316$=week_num1$ OR num316$=week_num2$ OR num316$=week_num3$ OR num316$=week_num4$ OR num316$=week_num5$ OR num316$=week_num6$ num316%=1:line31%=line31%+1
5880REM **************** Now I can see where I am (It's hard this is!) ********************
5890IF num321$="" ENDPROC
5900IF num321$=week_num1$ OR num321$=week_num2$ OR num321$=week_num3$ OR num321$=week_num4$ OR num321$=week_num5$ OR num321$=week_num6$ num321%=1:line32%=line32%+1
5910IF num322$=week_num1$ OR num322$=week_num2$ OR num322$=week_num3$ OR num322$=week_num4$ OR num322$=week_num5$ OR num322$=week_num6$ num322%=1:line32%=line32%+1
5920IF num323$=week_num1$ OR num323$=week_num2$ OR num323$=week_num3$ OR num323$=week_num4$ OR num323$=week_num5$ OR num323$=week_num6$ num323%=1:line32%=line32%+1
5930IF num324$=week_num1$ OR num324$=week_num2$ OR num324$=week_num3$ OR num324$=week_num4$ OR num324$=week_num5$ OR num324$=week_num6$ num324%=1:line32%=line32%+1
5940IF num325$=week_num1$ OR num325$=week_num2$ OR num325$=week_num3$ OR num325$=week_num4$ OR num325$=week_num5$ OR num325$=week_num6$ num325%=1:line32%=line32%+1
5950IF num326$=week_num1$ OR num326$=week_num2$ OR num326$=week_num3$ OR num326$=week_num4$ OR num326$=week_num5$ OR num326$=week_num6$ num326%=1:line32%=line32%+1
5960REM ***************** Now I can see where I am (It's hard this is!) ********************
5970IF num331$="" ENDPROC
5980IF num331$=week_num1$ OR num331$=week_num2$ OR num331$=week_num3$ OR num331$=week_num4$ OR num331$=week_num5$ OR num331$=week_num6$ num331%=1:line33%=line33%+1
5990IF num332$=week_num1$ OR num332$=week_num2$ OR num332$=week_num3$ OR num332$=week_num4$ OR num332$=week_num5$ OR num332$=week_num6$ num332%=1:line33%=line33%+1
6000IF num333$=week_num1$ OR num333$=week_num2$ OR num333$=week_num3$ OR num333$=week_num4$ OR num333$=week_num5$ OR num333$=week_num6$ num333%=1:line33%=line33%+1
6010IF num334$=week_num1$ OR num334$=week_num2$ OR num334$=week_num3$ OR num334$=week_num4$ OR num334$=week_num5$ OR num334$=week_num6$ num334%=1:line33%=line33%+1
6020IF num335$=week_num1$ OR num335$=week_num2$ OR num335$=week_num3$ OR num335$=week_num4$ OR num335$=week_num5$ OR num335$=week_num6$ num335%=1:line33%=line33%+1
6030IF num336$=week_num1$ OR num336$=week_num2$ OR num336$=week_num3$ OR num336$=week_num4$ OR num336$=week_num5$ OR num336$=week_num6$ num336%=1:line33%=line33%+1
6040REM **************** Now I can see where I am (It's hard this is!) ********************
6050IF num341$="" ENDPROC
6060IF num341$=week_num1$ OR num341$=week_num2$ OR num341$=week_num3$ OR num341$=week_num4$ OR num341$=week_num5$ OR num341$=week_num6$ num341%=1:line34%=line34%+1
6070IF num342$=week_num1$ OR num342$=week_num2$ OR num342$=week_num3$ OR num342$=week_num4$ OR num342$=week_num5$ OR num342$=week_num6$ num342%=1:line34%=line34%+1
6080IF num343$=week_num1$ OR num343$=week_num2$ OR num343$=week_num3$ OR num343$=week_num4$ OR num343$=week_num5$ OR num343$=week_num6$ num343%=1:line34%=line34%+1
6090IF num344$=week_num1$ OR num344$=week_num2$ OR num344$=week_num3$ OR num344$=week_num4$ OR num344$=week_num5$ OR num344$=week_num6$ num344%=1:line34%=line34%+1
6100IF num345$=week_num1$ OR num345$=week_num2$ OR num345$=week_num3$ OR num345$=week_num4$ OR num345$=week_num5$ OR num345$=week_num6$ num345%=1:line34%=line34%+1
6110IF num346$=week_num1$ OR num346$=week_num2$ OR num346$=week_num3$ OR num346$=week_num4$ OR num346$=week_num5$ OR num346$=week_num6$ num346%=1:line34%=line34%+1
6120REM ***************** Now I can see whereI am (It's hard this is!) ********************
6130IF num351$="" ENDPROC
6140IF num351$=week_num1$ OR num351$=week_num2$ OR num351$=week_num3$ OR num351$=week_num4$ OR num351$=week_num5$ OR num351$=week_num6$ num351%=1:line35%=line35%+1
6150IF num352$=week_num1$ OR num352$=week_num2$ OR num352$=week_num3$ OR num352$=week_num4$ OR num352$=week_num5$ OR num352$=week_num6$ num352%=1:line35%=line35%+1
6160IF num353$=week_num1$ OR num353$=week_num2$ OR num353$=week_num3$ OR num353$=week_num4$ OR num353$=week_num5$ OR num353$=week_num6$ num353%=1:line35%=line35%+1
6170IF num354$=week_num1$ OR num354$=week_num2$ OR num354$=week_num3$ OR num354$=week_num4$ OR num354$=week_num5$ OR num354$=week_num6$ num354%=1:line35%=line35%+1
6180IF num355$=week_num1$ OR num355$=week_num2$ OR num355$=week_num3$ OR num355$=week_num4$ OR num355$=week_num5$ OR num355$=week_num6$ num355%=1:line35%=line35%+1
6190IF num356$=week_num1$ OR num356$=week_num2$ OR num356$=week_num3$ OR num356$=week_num4$ OR num356$=week_num5$ OR num356$=week_num6$ num356%=1:line35%=line35%+1
6200REM ***************** Now I can see where I am (It's hard this is!) ********************
6210IF num361$="" ENDPROC
6220IF num361$=week_num1$ OR num361$=week_num2$ OR num361$=week_num3$ OR num361$=week_num4$ OR num361$=week_num5$ OR num361$=week_num6$ num361%=1:line36%=line36%+1
6230IF num362$=week_num1$ OR num362$=week_num2$ OR num362$=week_num3$ OR num362$=week_num4$ OR num362$=week_num5$ OR num362$=week_num6$ num362%=1:line36%=line36%+1
6240IF num363$=week_num1$ OR num363$=week_num2$ OR num363$=week_num3$ OR num363$=week_num4$ OR num363$=week_num5$ OR num363$=week_num6$ num363%=1:line36%=line36%+1
6250IF num364$=week_num1$ OR num364$=week_num2$ OR num364$=week_num3$ OR num364$=week_num4$ OR num364$=week_num5$ OR num364$=week_num6$ num364%=1:line36%=line36%+1
6260IF num365$=week_num1$ OR num365$=week_num2$ OR num365$=week_num3$ OR num365$=week_num4$ OR num365$=week_num5$ OR num365$=week_num6$ num365%=1:line36%=line36%+1
6270IF num366$=week_num1$ OR num366$=week_num2$ OR num366$=week_num3$ OR num366$=week_num4$ OR num366$=week_num5$ OR num366$=week_num6$ num366%=1:line36%=line36%+1
6280REM ***************** Now I can see where I am (It's hard this is!) ********************
6290IF num371$="" ENDPROC
6300IF num371$=week_num1$ OR num371$=week_num2$ OR num371$=week_num3$ OR num371$=week_num4$ OR num371$=week_num5$ OR num371$=week_num6$ num371%=1:line37%=line37%+1
6310IF num372$=week_num1$ OR num372$=week_num2$ OR num372$=week_num3$ OR num372$=week_num4$ OR num372$=week_num5$ OR num372$=week_num6$ num372%=1:line37%=line37%+1
6320IF num373$=week_num1$ OR num373$=week_num2$ OR num373$=week_num3$ OR num373$=week_num4$ OR num373$=week_num5$ OR num373$=week_num6$ num373%=1:line37%=line37%+1
6330IF num374$=week_num1$ OR num374$=week_num2$ OR num374$=week_num3$ OR num374$=week_num4$ OR num374$=week_num5$ OR num374$=week_num6$ num374%=1:line37%=line37%+1
6340IF num375$=week_num1$ OR num375$=week_num2$ OR num375$=week_num3$ OR num375$=week_num4$ OR num375$=week_num5$ OR num375$=week_num6$ num375%=1:line37%=line37%+1
6350IF num376$=week_num1$ OR num376$=week_num2$ OR num376$=week_num3$ OR num376$=week_num4$ OR num376$=week_num5$ OR num376$=week_num6$ num376%=1:line37%=line37%+1
6360ENDPROC
6370:
6380DEFPROCview
6390PROCmatch_up
6400PROCline11:PROCline12:PROCline13:PROCline14:PROCline15:PROCline21:PROCline22:PROCline23:PROCline24:PROCline25:PROCline31:PROCline32:PROCline33:PROCline34:PROCline35
6410PROCline16:PROCline17:PROCline26:PROCline27:PROCline36:PROCline37
6420searched%=1
6430ENDPROC
6440:
6450DEFPROCdisplay_winners
6460winners%=0:PROCview
6470IF winners%=0 PROCwrite(weeksa%,23,"Bad luck."):PROCwrite(weeksa%,24,"No winning lines this week."):PROCwrite(weeksa%,27,""):PROCwrite(weeksa%,26,""):PROCwrite(weeksa%,25,"")
6480IF winners%<>0 PROCwrite(weeksa%,23,"Congratulations. You have")
6490IF winners%<>0 PROCwrite(weeksa%,25,"here")
6500IF winners%<>0 PROCwrite(weeksa%,27,"line")
6510IF winners%<>0 PROCwrite(weeksa%,26,"winning lines.")
6520IF winners%=1 PROCwrite(weeksa%,24,"1 winning line. Click to see")
6530IF winners%>1 PROCwrite(weeksa%,24,""+STR$(winners%)+" winning lines. Click to see")
6540!blk%=weeksa%
6550SYS "Wimp_GetWindowState",,blk%
6560blk%!28=-1
6570SYS "Wimp_OpenWindow",,blk%
6580SYS "Hourglass_Off"
6590PROCwrite(maina%,11,"How_Well")
6600PROCwrite(maina%,12,"View Lines ("+STR$(winners%)+")"):PROCcsheet1
6610ENDPROC
6620:
6630DEFPROCline11
6640IF line11%>=3 winners%=winners%+1
6650IF num111$=week_num7$ AND line11%=5 nums111$="B"
6660IF num112$=week_num7$ AND line11%=5 nums112$="B"
6670IF num113$=week_num7$ AND line11%=5 nums113$="B"
6680IF num114$=week_num7$ AND line11%=5 nums114$="B"
6690IF num115$=week_num7$ AND line11%=5 nums115$="B"
6700IF num116$=week_num7$ AND line11%=5 nums116$="B"
6710IF num111%=0 AND nums111$<>"B" nums111$="--"
6720IF num112%=0 AND nums112$<>"B" nums112$="--"
6730IF num113%=0 AND nums113$<>"B" nums113$="--"
6740IF num114%=0 AND nums114$<>"B" nums114$="--"
6750IF num115%=0 AND nums115$<>"B" nums115$="--"
6760IF num116%=0 AND nums116$<>"B" nums116$="--"
6770ENDPROC
6780:
6790DEFPROCline12
6800IF line12%>=3 winners%=winners%+1
6810IF num121$=week_num7$ AND line12%=5 nums121$="B"
6820IF num122$=week_num7$ AND line12%=5 nums122$="B"
6830IF num123$=week_num7$ AND line12%=5 nums123$="B"
6840IF num124$=week_num7$ AND line12%=5 nums124$="B"
6850IF num125$=week_num7$ AND line12%=5 nums125$="B"
6860IF num126$=week_num7$ AND line12%=5 nums126$="B"
6870IF num121%=0 AND nums121$<>"B" nums121$="--"
6880IF num122%=0 AND nums122$<>"B" nums122$="--"
6890IF num123%=0 AND nums123$<>"B" nums123$="--"
6900IF num124%=0 AND nums124$<>"B" nums124$="--"
6910IF num125%=0 AND nums125$<>"B" nums125$="--"
6920IF num126%=0 AND nums126$<>"B" nums126$="--"
6930ENDPROC
6940:
6950DEFPROCline13
6960IF line13%>=3 winners%=winners%+1
6970IF num131$=week_num7$ AND line13%=5 nums131$="B"
6980IF num132$=week_num7$ AND line13%=5 nums132$="B"
6990IF num133$=week_num7$ AND line13%=5 nums133$="B"
7000IF num134$=week_num7$ AND line13%=5 nums134$="B"
7010IF num135$=week_num7$ AND line13%=5 nums135$="B"
7020IF num136$=week_num7$ AND line13%=5 nums136$="B"
7030IF num131%=0 AND nums131$<>"B" nums131$="--"
7040IF num132%=0 AND nums132$<>"B" nums132$="--"
7050IF num133%=0 AND nums133$<>"B" nums133$="--"
7060IF num134%=0 AND nums134$<>"B" nums134$="--"
7070IF num135%=0 AND nums135$<>"B" nums135$="--"
7080IF num136%=0 AND nums136$<>"B" nums136$="--"
7090ENDPROC
7100:
7110DEFPROCline14
7120IF line14%>=3 winners%=winners%+1
7130IF num141$=week_num7$ AND line14%=5 nums141$="B"
7140IF num142$=week_num7$ AND line14%=5 nums142$="B"
7150IF num143$=week_num7$ AND line14%=5 nums143$="B"
7160IF num144$=week_num7$ AND line14%=5 nums144$="B"
7170IF num145$=week_num7$ AND line14%=5 nums145$="B"
7180IF num146$=week_num7$ AND line14%=5 nums146$="B"
7190IF num141%=0 AND nums141$<>"B" nums141$="--"
7200IF num142%=0 AND nums142$<>"B" nums142$="--"
7210IF num143%=0 AND nums143$<>"B" nums143$="--"
7220IF num144%=0 AND nums144$<>"B" nums144$="--"
7230IF num145%=0 AND nums145$<>"B" nums145$="--"
7240IF num146%=0 AND nums146$<>"B" nums146$="--"
7250ENDPROC
7260:
7270DEFPROCline15
7280IF line15%>=3 winners%=winners%+1
7290IF num151$=week_num7$ AND line15%=5 nums151$="B"
7300IF num152$=week_num7$ AND line15%=5 nums152$="B"
7310IF num153$=week_num7$ AND line15%=5 nums153$="B"
7320IF num154$=week_num7$ AND line15%=5 nums154$="B"
7330IF num155$=week_num7$ AND line15%=5 nums155$="B"
7340IF num156$=week_num7$ AND line15%=5 nums156$="B"
7350IF num151%=0 AND nums151$<>"B" nums151$="--"
7360IF num152%=0 AND nums152$<>"B" nums152$="--"
7370IF num153%=0 AND nums153$<>"B" nums153$="--"
7380IF num154%=0 AND nums154$<>"B" nums154$="--"
7390IF num155%=0 AND nums155$<>"B" nums155$="--"
7400IF num156%=0 AND nums156$<>"B" nums156$="--"
7410ENDPROC
7420:
7430DEFPROCline21
7440IF line21%>=3 winners%=winners%+1
7450IF num211$=week_num7$ AND line21%=5 nums211$="B"
7460IF num212$=week_num7$ AND line21%=5 nums212$="B"
7470IF num213$=week_num7$ AND line21%=5 nums213$="B"
7480IF num214$=week_num7$ AND line21%=5 nums214$="B"
7490IF num215$=week_num7$ AND line21%=5 nums215$="B"
7500IF num216$=week_num7$ AND line21%=5 nums216$="B"
7510IF num211%=0 AND nums211$<>"B" nums211$="--"
7520IF num212%=0 AND nums212$<>"B" nums212$="--"
7530IF num213%=0 AND nums213$<>"B" nums213$="--"
7540IF num214%=0 AND nums214$<>"B" nums214$="--"
7550IF num215%=0 AND nums215$<>"B" nums215$="--"
7560IF num216%=0 AND nums216$<>"B" nums216$="--"
7570ENDPROC
7580:
7590DEFPROCline22
7600IF line22%>=3 winners%=winners%+1
7610IF num221$=week_num7$ AND line22%=5 nums221$="B"
7620IF num222$=week_num7$ AND line22%=5 nums222$="B"
7630IF num223$=week_num7$ AND line22%=5 nums223$="B"
7640IF num224$=week_num7$ AND line22%=5 nums224$="B"
7650IF num225$=week_num7$ AND line22%=5 nums225$="B"
7660IF num226$=week_num7$ AND line22%=5 nums226$="B"
7670IF num221%=0 AND nums221$<>"B" nums221$="--"
7680IF num222%=0 AND nums222$<>"B" nums222$="--"
7690IF num223%=0 AND nums223$<>"B" nums223$="--"
7700IF num224%=0 AND nums224$<>"B" nums224$="--"
7710IF num225%=0 AND nums225$<>"B" nums225$="--"
7720IF num226%=0 AND nums226$<>"B" nums226$="--"
7730ENDPROC
7740:
7750DEFPROCline23
7760IF line23%>=3 winners%=winners%+1
7770IF num231$=week_num7$ AND line23%=5 nums231$="B"
7780IF num232$=week_num7$ AND line23%=5 nums232$="B"
7790IF num233$=week_num7$ AND line23%=5 nums233$="B"
7800IF num234$=week_num7$ AND line23%=5 nums234$="B"
7810IF num235$=week_num7$ AND line23%=5 nums235$="B"
7820IF num236$=week_num7$ AND line23%=5 nums236$="B"
7830IF num231%=0 AND nums231$<>"B" nums231$="--"
7840IF num232%=0 AND nums232$<>"B" nums232$="--"
7850IF num233%=0 AND nums233$<>"B" nums233$="--"
7860IF num234%=0 AND nums234$<>"B" nums234$="--"
7870IF num235%=0 AND nums235$<>"B" nums235$="--"
7880IF num236%=0 AND nums236$<>"B" nums236$="--"
7890ENDPROC
7900:
7910DEFPROCline24
7920IF line24%>=3 winners%=winners%+1
7930IF num241$=week_num7$ AND line24%=5 nums241$="B"
7940IF num242$=week_num7$ AND line24%=5 nums242$="B"
7950IF num243$=week_num7$ AND line24%=5 nums243$="B"
7960IF num244$=week_num7$ AND line24%=5 nums244$="B"
7970IF num245$=week_num7$ AND line24%=5 nums245$="B"
7980IF num246$=week_num7$ AND line24%=5 nums26$="B"
7990IF num241%=0 AND nums241$<>"B" nums241$="--"
8000IF num242%=0 AND nums242$<>"B" nums242$="--"
8010IF num243%=0 AND nums243$<>"B" nums243$="--"
8020IF num244%=0 AND nums244$<>"B" nums244$="--"
8030IF num245%=0 AND nums245$<>"B" nums245$="--"
8040IF num246%=0 AND nums246$<>"B" nums246$="--"
8050ENDPROC
8060:
8070DEFPROCline25
8080IF line25%>=3 winners%=winners%+1
8090IF num251$=week_num7$ AND line25%=5 nums251$="B"
8100IF num252$=week_num7$ AND line25%=5 nums252$="B"
8110IF num253$=week_num7$ AND line25%=5 nums253$="B"
8120IF num254$=week_num7$ AND line25%=5 nums254$="B"
8130IF num255$=week_num7$ AND line25%=5 nums255$="B"
8140IF num256$=week_num7$ AND line25%=5 nums256$="B"
8150IF num251%=0 AND nums251$<>"B" nums251$="--"
8160IF num252%=0 AND nums252$<>"B" nums252$="--"
8170IF num253%=0 AND nums253$<>"B" nums253$="--"
8180IF num254%=0 AND nums254$<>"B" nums254$="--"
8190IF num255%=0 AND nums255$<>"B" nums255$="--"
8200IF num256%=0 AND nums256$<>"B" nums256$="--"
8210ENDPROC
8220:
8230DEFPROCline31
8240IF line31%>=3 winners%=winners%+1
8250IF num311$=week_num7$ AND line31%=5 nums311$="B"
8260IF num312$=week_num7$ AND line31%=5 nums312$="B"
8270IF num313$=week_num7$ AND line31%=5 nums313$="B"
8280IF num314$=week_num7$ AND line31%=5 nums314$="B"
8290IF num315$=week_num7$ AND line31%=5 nums315$="B"
8300IF num316$=week_num7$ AND line31%=5 nums316$="B"
8310IF num311%=0 AND nums311$<>"B" nums311$="--"
8320IF num312%=0 AND nums312$<>"B" nums312$="--"
8330IF num313%=0 AND nums313$<>"B" nums313$="--"
8340IF num314%=0 AND nums314$<>"B" nums314$="--"
8350IF num315%=0 AND nums315$<>"B" nums315$="--"
8360IF num316%=0 AND nums316$<>"B" nums316$="--"
8370ENDPROC
8380:
8390DEFPROCline32
8400IF line32%>=3 winners%=winners%+1
8410IF num321$=week_num7$ AND line32%=5 nums321$="B"
8420IF num322$=week_num7$ AND line32%=5 nums322$="B"
8430IF num323$=week_num7$ AND line32%=5 nums323$="B"
8440IF num324$=week_num7$ AND line32%=5 nums324$="B"
8450IF num325$=week_num7$ AND line32%=5 nums325$="B"
8460IF num326$=week_num7$ AND line32%=5 nums326$="B"
8470IF num321%=0 AND nums321$<>"B" nums321$="--"
8480IF num322%=0 AND nums322$<>"B" nums322$="--"
8490IF num323%=0 AND nums323$<>"B" nums323$="--"
8500IF num324%=0 AND nums324$<>"B" nums324$="--"
8510IF num325%=0 AND nums325$<>"B" nums325$="--"
8520IF num326%=0 AND nums326$<>"B" nums326$="--"
8530ENDPROC
8540:
8550DEFPROCline33
8560IF line33%>=3 winners%=winners%+1
8570IF num331$=week_num7$ AND line33%=5 nums331$="B"
8580IF num332$=week_num7$ AND line33%=5 nums332$="B"
8590IF num333$=week_num7$ AND line33%=5 nums333$="B"
8600IF num334$=week_num7$ AND line33%=5 nums334$="B"
8610IF num335$=week_num7$ AND line33%=5 nums335$="B"
8620IF num336$=week_num7$ AND line33%=5 nums336$="B"
8630IF num331%=0 AND nums331$<>"B" nums331$="--"
8640IF num332%=0 AND nums332$<>"B" nums332$="--"
8650IF num333%=0 AND nums333$<>"B" nums333$="--"
8660IF num334%=0 AND nums334$<>"B" nums334$="--"
8670IF num335%=0 AND nums335$<>"B" nums335$="--"
8680IF num336%=0 AND nums336$<>"B" nums336$="--"
8690ENDPROC
8700:
8710DEFPROCline34
8720IF line34%>=3 winners%=winners%+1
8730IF num341$=week_num7$ AND line34%=5 nums341$="B"
8740IF num342$=week_num7$ AND line34%=5 nums342$="B"
8750IF num343$=week_num7$ AND line34%=5 nums343$="B"
8760IF num344$=week_num7$ AND line34%=5 nums344$="B"
8770IF num345$=week_num7$ AND line34%=5 nums345$="B"
8780IF num346$=week_num7$ AND line34%=5 nums346$="B"
8790IF num341%=0 AND nums341$<>"B" nums341$="--"
8800IF num342%=0 AND nums342$<>"B" nums342$="--"
8810IF num343%=0 AND nums343$<>"B" nums343$="--"
8820IF num344%=0 AND nums344$<>"B" nums344$="--"
8830IF num345%=0 AND nums345$<>"B" nums345$="--"
8840IF num346%=0 AND nums346$<>"B" nums346$="--"
8850ENDPROC
8860:
8870DEFPROCline35
8880IF line35%>=3 winners%=winners%+1
8890IF num351$=week_num7$ AND line35%=5 nums351$="B"
8900IF num352$=week_num7$ AND line35%=5 nums352$="B"
8910IF num353$=week_num7$ AND line35%=5 nums353$="B"
8920IF num354$=week_num7$ AND line35%=5 nums354$="B"
8930IF num355$=week_num7$ AND line35%=5 nums355$="B"
8940IF num356$=week_num7$ AND line35%=5 nums356$="B"
8950IF num351%=0 AND nums351$<>"B" nums351$="--"
8960IF num352%=0 AND nums352$<>"B" nums352$="--"
8970IF num353%=0 AND nums353$<>"B" nums353$="--"
8980IF num354%=0 AND nums354$<>"B" nums354$="--"
8990IF num355%=0 AND nums355$<>"B" nums355$="--"
9000IF num356%=0 AND nums356$<>"B" nums356$="--"
9010ENDPROC
9020:
9030DEFPROCline16
9040IF line16%>=3 winners%=winners%+1
9050IF num161$=week_num7$ AND line16%=5 nums161$="B"
9060IF num162$=week_num7$ AND line16%=5 nums162$="B"
9070IF num163$=week_num7$ AND line16%=5 nums163$="B"
9080IF num164$=week_num7$ AND line16%=5 nums164$="B"
9090IF num165$=week_num7$ AND line16%=5 nums165$="B"
9100IF num166$=week_num7$ AND line16%=5 nums166$="B"
9110IF num161%=0 AND nums161$<>"B" nums161$="--"
9120IF num162%=0 AND nums162$<>"B" nums162$="--"
9130IF num163%=0 AND nums163$<>"B" nums163$="--"
9140IF num164%=0 AND nums164$<>"B" nums164$="--"
9150IF num165%=0 AND nums165$<>"B" nums165$="--"
9160IF num166%=0 AND nums166$<>"B" nums166$="--"
9170ENDPROC
9180:
9190DEFPROCline26
9200IF line26%>=3 winners%=winners%+1
9210IF num261$=week_num7$ AND line26%=5 nums261$="B"
9220IF num262$=week_num7$ AND line26%=5 nums262$="B"
9230IF num263$=week_num7$ AND line26%=5 nums263$="B"
9240IF num264$=week_num7$ AND line26%=5 nums264$="B"
9250IF num265$=week_num7$ AND line26%=5 nums265$="B"
9260IF num266$=week_num7$ AND line26%=5 nums266$="B"
9270IF num261%=0 AND nums261$<>"B" nums261$="--"
9280IF num262%=0 AND nums262$<>"B" nums262$="--"
9290IF num263%=0 AND nums263$<>"B" nums263$="--"
9300IF num264%=0 AND nums264$<>"B" nums264$="--"
9310IF num265%=0 AND nums265$<>"B" nums265$="--"
9320IF num266%=0 AND nums266$<>"B" nums266$="--"
9330ENDPROC
9340:
9350DEFPROCline36
9360IF line36%>=3 winners%=winners%+1
9370IF num361$=week_num7$ AND line36%=5 nums361$="B"
9380IF num362$=week_num7$ AND line36%=5 nums362$="B"
9390IF num363$=week_num7$ AND line36%=5 nums363$="B"
9400IF num364$=week_num7$ AND line36%=5 nums364$="B"
9410IF num365$=week_num7$ AND line36%=5 nums365$="B"
9420IF num366$=week_num7$ AND line36%=5 nums366$="B"
9430IF num361%=0 AND nums361$<>"B" nums361$="--"
9440IF num362%=0 AND nums362$<>"B" nums362$="--"
9450IF num363%=0 AND nums363$<>"B" nums363$="--"
9460IF num364%=0 AND nums364$<>"B" nums364$="--"
9470IF num365%=0 AND nums365$<>"B" nums365$="--"
9480IF num366%=0 AND nums366$<>"B" nums366$="--"
9490ENDPROC
9500:
9510DEFPROCline17
9520IF line17%>=3 winners%=winners%+1
9530IF num171$=week_num7$ AND line17%=5 nums171$="B"
9540IF num172$=week_num7$ AND line17%=5 nums172$="B"
9550IF num173$=week_num7$ AND line17%=5 nums173$="B"
9560IF num174$=week_num7$ AND line17%=5 nums174$="B"
9570IF num175$=week_num7$ AND line17%=5 nums175$="B"
9580IF num176$=week_num7$ AND line17%=5 nums176$="B"
9590IF num171%=0 AND nums171$<>"B" nums171$="--"
9600IF num172%=0 AND nums172$<>"B" nums172$="--"
9610IF num173%=0 AND nums173$<>"B" nums173$="--"
9620IF num174%=0 AND nums174$<>"B" nums174$="--"
9630IF num175%=0 AND nums175$<>"B" nums175$="--"
9640IF num176%=0 AND nums176$<>"B" nums176$="--"
9650ENDPROC
9660:
9670DEFPROCline27
9680IF line27%>=3 winners%=winners%+1
9690IF num271$=week_num7$ AND line27%=5 nums271$="B"
9700IF num272$=week_num7$ AND line27%=5 nums272$="B"
9710IF num273$=week_num7$ AND line27%=5 nums273$="B"
9720IF num274$=week_num7$ AND line27%=5 nums274$="B"
9730IF num275$=week_num7$ AND line27%=5 nums275$="B"
9740IF num276$=week_num7$ AND line27%=5 nums266$="B"
9750IF num271%=0 AND nums271$<>"B" nums271$="--"
9760IF num272%=0 AND nums272$<>"B" nums272$="--"
9770IF num273%=0 AND nums273$<>"B" nums273$="--"
9780IF num274%=0 AND nums274$<>"B" nums274$="--"
9790IF num275%=0 AND nums275$<>"B" nums275$="--"
9800IF num276%=0 AND nums276$<>"B" nums276$="--"
9810ENDPROC
9820:
9830DEFPROCline37
9840IF line37%>=3 winners%=winners%+1
9850IF num371$=week_num7$ AND line37%=5 nums371$="B"
9860IF num372$=week_num7$ AND line37%=5 nums372$="B"
9870IF num373$=week_num7$ AND line37%=5 nums373$="B"
9880IF num374$=week_num7$ AND line37%=5 nums374$="B"
9890IF num375$=week_num7$ AND line37%=5 nums375$="B"
9900IF num376$=week_num7$ AND line37%=5 nums376$="B"
9910IF num371%=0 AND nums371$<>"B" nums371$="--"
9920IF num372%=0 AND nums372$<>"B" nums372$="--"
9930IF num373%=0 AND nums373$<>"B" nums373$="--"
9940IF num374%=0 AND nums374$<>"B" nums374$="--"
9950IF num375%=0 AND nums375$<>"B" nums375$="--"
9960IF num376%=0 AND nums376$<>"B" nums376$="--"
9970ENDPROC
9980:
9990DEFPROCnumbers_picked1
10000key%=blk%!24
10010IF key%<>13 ENDPROC
10020CASE blk%!4 OF
10030WHEN 6:PROCpos_key(7):num111$=FNread(numbersa%,6):altered%=1
10040WHEN 7:PROCpos_key(8):num112$=FNread(numbersa%,7):altered%=1
10050WHEN 8:PROCpos_key(9):num113$=FNread(numbersa%,8):altered%=1
10060WHEN 9:PROCpos_key(10):num114$=FNread(numbersa%,9):altered%=1
10070WHEN 10:PROCpos_key(11):num115$=FNread(numbersa%,10):altered%=1
10080WHEN 11:PROCpos_key(14):num116$=FNread(numbersa%,11):altered%=1
10090WHEN 14:PROCpos_key(15):num121$=FNread(numbersa%,14):altered%=1
10100WHEN 15:PROCpos_key(16):num122$=FNread(numbersa%,15):altered%=1
10110WHEN 16:PROCpos_key(17):num123$=FNread(numbersa%,16):altered%=1
10120WHEN 17:PROCpos_key(18):num124$=FNread(numbersa%,17):altered%=1
10130WHEN 18:PROCpos_key(19):num125$=FNread(numbersa%,18):altered%=1
10140WHEN 19:PROCpos_key(22):num126$=FNread(numbersa%,19):altered%=1
10150WHEN 22:PROCpos_key(23):num131$=FNread(numbersa%,22):altered%=1
10160WHEN 23:PROCpos_key(24):num132$=FNread(numbersa%,23):altered%=1
10170WHEN 24:PROCpos_key(25):num133$=FNread(numbersa%,24):altered%=1
10180WHEN 25:PROCpos_key(26):num134$=FNread(numbersa%,25):altered%=1
10190WHEN 26:PROCpos_key(27):num135$=FNread(numbersa%,26):altered%=1
10200WHEN 27:PROCpos_key(30):num136$=FNread(numbersa%,27):altered%=1
10210WHEN 30:PROCpos_key(31):num141$=FNread(numbersa%,30):altered%=1
10220WHEN 31:PROCpos_key(32):num142$=FNread(numbersa%,31):altered%=1
10230WHEN 32:PROCpos_key(33):num143$=FNread(numbersa%,32):altered%=1
10240WHEN 33:PROCpos_key(34):num144$=FNread(numbersa%,33):altered%=1
10250WHEN 34:PROCpos_key(35):num145$=FNread(numbersa%,34):altered%=1
10260WHEN 35:PROCpos_key(38):num146$=FNread(numbersa%,35):altered%=1
10270WHEN 38:PROCpos_key(39):num151$=FNread(numbersa%,38):altered%=1
10280WHEN 39:PROCpos_key(40):num152$=FNread(numbersa%,39):altered%=1
10290WHEN 40:PROCpos_key(41):num153$=FNread(numbersa%,40):altered%=1
10300WHEN 41:PROCpos_key(42):num154$=FNread(numbersa%,41):altered%=1
10310WHEN 42:PROCpos_key(43):num155$=FNread(numbersa%,42):altered%=1
10320WHEN 43:PROCpos_key(46):num156$=FNread(numbersa%,43):altered%=1
10330WHEN 46:PROCpos_key(47):num161$=FNread(numbersa%,46):altered%=1
10340WHEN 47:PROCpos_key(48):num162$=FNread(numbersa%,47):altered%=1
10350WHEN 48:PROCpos_key(49):num163$=FNread(numbersa%,48):altered%=1
10360WHEN 49:PROCpos_key(50):num164$=FNread(numbersa%,49):altered%=1
10370WHEN 50:PROCpos_key(51):num165$=FNread(numbersa%,50):altered%=1
10380WHEN 51:PROCpos_key(54):num166$=FNread(numbersa%,51):altered%=1
10390WHEN 54:PROCpos_key(55):num171$=FNread(numbersa%,54):altered%=1
10400WHEN 55:PROCpos_key(56):num172$=FNread(numbersa%,55):altered%=1
10410WHEN 56:PROCpos_key(57):num173$=FNread(numbersa%,56):altered%=1
10420WHEN 57:PROCpos_key(58):num174$=FNread(numbersa%,57):altered%=1
10430WHEN 58:PROCpos_key(59):num175$=FNread(numbersa%,58):altered%=1
10440WHEN 59:PROCpos_key(6):num176$=FNread(numbersa%,59):altered%=1
10450ENDCASE
10460ENDPROC
10470:
10480DEFPROCnumbers_picked2
10490key%=blk%!24
10500IF key%<>13 ENDPROC
10510CASE blk%!4 OF
10520WHEN 6:PROCpos_key(7):num211$=FNread(numbersa%,6):altered%=1
10530WHEN 7:PROCpos_key(8):num212$=FNread(numbersa%,7):altered%=1
10540WHEN 8:PROCpos_key(9):num213$=FNread(numbersa%,8):altered%=1
10550WHEN 9:PROCpos_key(10):num214$=FNread(numbersa%,9):altered%=1
10560WHEN 10:PROCpos_key(11):num215$=FNread(numbersa%,10):altered%=1
10570WHEN 11:PROCpos_key(14):num216$=FNread(numbersa%,11):altered%=1
10580WHEN 14:PROCpos_key(15):num221$=FNread(numbersa%,14):altered%=1
10590WHEN 15:PROCpos_key(16):num222$=FNread(numbersa%,15):altered%=1
10600WHEN 16:PROCpos_key(17):num223$=FNread(numbersa%,16):altered%=1
10610WHEN 17:PROCpos_key(18):num224$=FNread(numbersa%,17):altered%=1
10620WHEN 18:PROCpos_key(19):num225$=FNread(numbersa%,18):altered%=1
10630WHEN 19:PROCpos_key(22):num226$=FNread(numbersa%,19):altered%=1
10640WHEN 22:PROCpos_key(23):num231$=FNread(numbersa%,22):altered%=1
10650WHEN 23:PROCpos_key(24):num232$=FNread(numbersa%,23):altered%=1
10660WHEN 24:PROCpos_key(25):num233$=FNread(numbersa%,24):altered%=1
10670WHEN 25:PROCpos_key(26):num234$=FNread(numbersa%,25):altered%=1
10680WHEN 26:PROCpos_key(27):num235$=FNread(numbersa%,26):altered%=1
10690WHEN 27:PROCpos_key(30):num236$=FNread(numbersa%,27):altered%=1
10700WHEN 30:PROCpos_key(31):num241$=FNread(numbersa%,30):altered%=1
10710WHEN 31:PROCpos_key(32):num242$=FNread(numbersa%,31):altered%=1
10720WHEN 32:PROCpos_key(33):num243$=FNread(numbersa%,32):altered%=1
10730WHEN 33:PROCpos_key(34):num244$=FNread(numbersa%,33):altered%=1
10740WHEN 34:PROCpos_key(35):num245$=FNread(numbersa%,34):altered%=1
10750WHEN 35:PROCpos_key(38):num246$=FNread(numbersa%,35):altered%=1
10760WHEN 38:PROCpos_key(39):num251$=FNread(numbersa%,38):altered%=1
10770WHEN 39:PROCpos_key(40):num252$=FNread(numbersa%,39):altered%=1
10780WHEN 40:PROCpos_key(41):num253$=FNread(numbersa%,40):altered%=1
10790WHEN 41:PROCpos_key(42):num254$=FNread(numbersa%,41):altered%=1
10800WHEN 42:PROCpos_key(43):num255$=FNread(numbersa%,42):altered%=1
10810WHEN 43:PROCpos_key(46):num256$=FNread(numbersa%,43):altered%=1
10820WHEN 46:PROCpos_key(47):num261$=FNread(numbersa%,46):altered%=1
10830WHEN 47:PROCpos_key(48):num262$=FNread(numbersa%,47):altered%=1
10840WHEN 48:PROCpos_key(49):num263$=FNread(numbersa%,48):altered%=1
10850WHEN 49:PROCpos_key(50):num264$=FNread(numbersa%,49):altered%=1
10860WHEN 50:PROCpos_key(51):num265$=FNread(numbersa%,50):altered%=1
10870WHEN 51:PROCpos_key(54):num266$=FNread(numbersa%,51):altered%=1
10880WHEN 54:PROCpos_key(55):num271$=FNread(numbersa%,54):altered%=1
10890WHEN 55:PROCpos_key(56):num272$=FNread(numbersa%,55):altered%=1
10900WHEN 56:PROCpos_key(57):num273$=FNread(numbersa%,56):altered%=1
10910WHEN 57:PROCpos_key(58):num274$=FNread(numbersa%,57):altered%=1
10920WHEN 58:PROCpos_key(59):num275$=FNread(numbersa%,58):altered%=1
10930WHEN 59:PROCpos_key(6):num276$=FNread(numbersa%,59):altered%=1
10940ENDCASE
10950ENDPROC
10960:
10970DEFPROCnumbers_picked3
10980key%=blk%!24
10990IF key%<>13 ENDPROC
11000CASE blk%!4 OF
11010WHEN 6:PROCpos_key(7):num311$=FNread(numbersa%,6):altered%=1
11020WHEN 7:PROCpos_key(8):num312$=FNread(numbersa%,7):altered%=1
11030WHEN 8:PROCpos_key(9):num313$=FNread(numbersa%,8):altered%=1
11040WHEN 9:PROCpos_key(10):num314$=FNread(numbersa%,9):altered%=1
11050WHEN 10:PROCpos_key(11):num315$=FNread(numbersa%,10):altered%=1
11060WHEN 11:PROCpos_key(14):num316$=FNread(numbersa%,11):altered%=1
11070WHEN 14:PROCpos_key(15):num321$=FNread(numbersa%,14):altered%=1
11080WHEN 15:PROCpos_key(16):num322$=FNread(numbersa%,15):altered%=1
11090WHEN 16:PROCpos_key(17):num323$=FNread(numbersa%,16):altered%=1
11100WHEN 17:PROCpos_key(18):num324$=FNread(numbersa%,17):altered%=1
11110WHEN 18:PROCpos_key(19):num325$=FNread(numbersa%,18):altered%=1
11120WHEN 19:PROCpos_key(22):num326$=FNread(numbersa%,19):altered%=1
11130WHEN 22:PROCpos_key(23):num331$=FNread(numbersa%,22):altered%=1
11140WHEN 23:PROCpos_key(24):num332$=FNread(numbersa%,23):altered%=1
11150WHEN 24:PROCpos_key(25):num333$=FNread(numbersa%,24):altered%=1
11160WHEN 25:PROCpos_key(26):num334$=FNread(numbersa%,25):altered%=1
11170WHEN 26:PROCpos_key(27):num335$=FNread(numbersa%,26):altered%=1
11180WHEN 27:PROCpos_key(30):num336$=FNread(numbersa%,27):altered%=1
11190WHEN 30:PROCpos_key(31):num341$=FNread(numbersa%,30):altered%=1
11200WHEN 31:PROCpos_key(32):num342$=FNread(numbersa%,31):altered%=1
11210WHEN 32:PROCpos_key(33):num343$=FNread(numbersa%,32):altered%=1
11220WHEN 33:PROCpos_key(34):num344$=FNread(numbersa%,33):altered%=1
11230WHEN 34:PROCpos_key(35):num345$=FNread(numbersa%,34):altered%=1
11240WHEN 35:PROCpos_key(38):num346$=FNread(numbersa%,35):altered%=1
11250WHEN 38:PROCpos_key(39):num351$=FNread(numbersa%,38):altered%=1
11260WHEN 39:PROCpos_key(40):num352$=FNread(numbersa%,39):altered%=1
11270WHEN 40:PROCpos_key(41):num353$=FNread(numbersa%,40):altered%=1
11280WHEN 41:PROCpos_key(42):num354$=FNread(numbersa%,41):altered%=1
11290WHEN 42:PROCpos_key(43):num355$=FNread(numbersa%,42):altered%=1
11300WHEN 43:PROCpos_key(46):num356$=FNread(numbersa%,43):altered%=1
11310WHEN 46:PROCpos_key(47):num361$=FNread(numbersa%,46):altered%=1
11320WHEN 47:PROCpos_key(48):num362$=FNread(numbersa%,47):altered%=1
11330WHEN 48:PROCpos_key(49):num363$=FNread(numbersa%,48):altered%=1
11340WHEN 49:PROCpos_key(50):num364$=FNread(numbersa%,49):altered%=1
11350WHEN 50:PROCpos_key(51):num365$=FNread(numbersa%,50):altered%=1
11360WHEN 51:PROCpos_key(54):num366$=FNread(numbersa%,51):altered%=1
11370WHEN 54:PROCpos_key(55):num371$=FNread(numbersa%,54):altered%=1
11380WHEN 55:PROCpos_key(56):num372$=FNread(numbersa%,55):altered%=1
11390WHEN 56:PROCpos_key(57):num373$=FNread(numbersa%,56):altered%=1
11400WHEN 57:PROCpos_key(58):num374$=FNread(numbersa%,57):altered%=1
11410WHEN 58:PROCpos_key(59):num375$=FNread(numbersa%,58):altered%=1
11420WHEN 59:PROCpos_key(6):num376$=FNread(numbersa%,59):altered%=1
11430ENDCASE
11440ENDPROC
11450:
11460DEFPROCpos_key(i%)
11470SYS "Wimp_SetCaretPosition",numbersa%,i%,,,-1,0
11480ENDPROC
11490:
11500DEFPROCclear_variables
11510num111$="":num112$="":num113$="":num114$="":num115$="":num116$="":num121$="":num122$="":num123$="":num124$="":num125$="":num126$="":num131$="":num132$="":num133$="":num134$="":num135$="":num136$=""
11520num141$="":num142$="":num143$="":num144$="":num145$="":num146$="":num151$="":num152$="":num153$="":num154$="":num155$="":num156$=""
11530num211$="":num212$="":num213$="":num214$="":num215$="":num216$="":num221$="":num222$="":num223$="":num224$="":num225$="":num226$="":num231$="":num232$="":num233$="":num234$="":num235$="":num236$=""
11540num241$="":num242$="":num243$="":num244$="":num245$="":num246$="":num251$="":num252$="":num253$="":num254$="":num255$="":num256$=""
11550num311$="":num312$="":num313$="":num314$="":num315$="":num316$="":num321$="":num322$="":num323$="":num324$="":num325$="":num326$="":num331$="":num332$="":num333$="":num334$="":num335$="":num336$=""
11560num341$="":num342$="":num343$="":num344$="":num345$="":num346$="":num351$="":num352$="":num353$="":num354$="":num355$="":num356$=""
11570num161$="":num162$="":num163$="":num164$="":num165$="":num166$="":num171$="":num172$="":num173$="":num174$="":num175$="":num176$=""
11580num261$="":num262$="":num263$="":num264$="":num265$="":num266$="":num271$="":num272$="":num273$="":num274$="":num275$="":num276$=""
11590num361$="":num362$="":num363$="":num364$="":num365$="":num366$="":num371$="":num372$="":num373$="":num374$="":num375$="":num376$=""
11600ENDPROC
11610:
11620DEFPROCclear_other_variables
11630num111%=0:num112%=0:num113%=0:num114%=0:num115%=0:num116%=0:num121%=0:num122%=0:num123%=0:num124%=0:num125%=0:num126%=0:num131%=0:num132%=0:num133%=0:num134%=0:num135%=0:num136%=0
11640num141%=0:num142%=0:num143%=0:num144%=0:num145%=0:num146%=0:num151%=0:num152%=0:num153%=0:num154%=0:num155%=0:num156%=0
11650num211%=0:num212%=0:num213%=0:num214%=0:num215%=0:num216%=0:num221%=0:num222%=0:num223%=0:num224%=0:num225%=0:num226%=0:num231%=0:num232%=0:num233%=0:num234%=0:num235%=0:num236%=0
11660num241%=0:num242%=0:num243%=0:num244%=0:num245%=0:num246%=0:num251%=0:num252%=0:num253%=0:num254%=0:num255%=0:num256%=0
11670num311%=0:num312%=0:num313%=0:num314%=0:num315%=0:num316%=0:num321%=0:num322%=0:num323%=0:num324%=0:num325%=0:num326%=0:num331%=0:num332%=0:num333%=0:num334%=0:num335%=0:num336%=0
11680num341%=0:num342%=0:num343%=0:num344%=0:num345%=0:num346%=0:num351%=0:num352%=0:num353%=0:num354%=0:num355%=0:num356%=0
11690num161%=0:num162%=0:num163%=0:num164%=0:num165%=0:num166%=0:num171%=0:num172%=0:num173%=0:num174%=0:num175%=0:num176%=0
11700num261%=0:num262%=0:num263%=0:num264%=0:num265%=0:num266%=0:num271%=0:num272%=0:num273%=0:num274%=0:num275%=0:num276%=0
11710num361%=0:num362%=0:num363%=0:num364%=0:num365%=0:num366%=0:num371%=0:num372%=0:num373%=0:num374%=0:num375%=0:num376%=0
11720ENDPROC
11730:
11740DEFPROCdragged
11750LOCAL type%,load_name$
11760type%=blk%!40
11770IF type%<>&04B ENDPROC
11780sure%=1
11790IF altered%=1 SYS "Wimp_ReportError"," National Lotter numbers have altered but not saved. Are you sure you wish to load a new file?",27,"Error from Lottery Check" TO ,sure%
11800IF sure%<>1 ENDPROC
11810altered%=0
11820PROCchange_title(numbersa%,"Lottery Lines")
11830load_name$=FNget_name_string(blk%+44,255)
11840PROCclear_variables
11850loaded%=1
11860file%=OPENUP(load_name$)
11870PROCwrite(savea%,2,load_name$)
11880PROCwrite(weeksa%,14,"")
11890PROCwrite(weeksa%,16,"")
11900PROCwrite(weeksa%,17,"")
11910INPUT#file%,num111$
11920INPUT#file%,num112$
11930INPUT#file%,num113$
11940INPUT#file%,num114$
11950INPUT#file%,num115$
11960INPUT#file%,num116$
11970INPUT#file%,num121$
11980IF num121$="tednE eiD" num121$="":ENDPROC
11990INPUT#file%,num122$
12000INPUT#file%,num123$
12010INPUT#file%,num124$
12020INPUT#file%,num125$
12030INPUT#file%,num126$
12040INPUT#file%,num131$
12050IF num131$="tednE eiD" num131$="":ENDPROC
12060INPUT#file%,num132$
12070INPUT#file%,num133$
12080INPUT#file%,num134$
12090INPUT#file%,num135$
12100INPUT#file%,num136$
12110INPUT#file%,num141$
12120IF num141$="tednE eiD" num141$="":ENDPROC
12130INPUT#file%,num142$
12140INPUT#file%,num143$
12150INPUT#file%,num144$
12160INPUT#file%,num145$
12170INPUT#file%,num146$
12180INPUT#file%,num151$
12190IF num151$="tednE eiD" num151$="":ENDPROC
12200INPUT#file%,num152$
12210INPUT#file%,num153$
12220INPUT#file%,num154$
12230INPUT#file%,num155$
12240INPUT#file%,num156$
12250INPUT#file%,num161$
12260IF num161$="tednE eiD" num161$="":ENDPROC
12270INPUT#file%,num162$
12280INPUT#file%,num163$
12290INPUT#file%,num164$
12300INPUT#file%,num165$
12310INPUT#file%,num166$
12320INPUT#file%,num171$
12330IF num171$="tednE eiD" num171$="":ENDPROC
12340INPUT#file%,num172$
12350INPUT#file%,num173$
12360INPUT#file%,num174$
12370INPUT#file%,num175$
12380INPUT#file%,num176$
12390INPUT#file%,num211$
12400IF num211$="tednE eiD" num211$="":ENDPROC
12410INPUT#file%,num212$
12420INPUT#file%,num213$
12430INPUT#file%,num214$
12440INPUT#file%,num215$
12450INPUT#file%,num216$
12460INPUT#file%,num221$
12470IF num221$="tednE eiD" num221$="":ENDPROC
12480INPUT#file%,num222$
12490INPUT#file%,num223$
12500INPUT#file%,num224$
12510INPUT#file%,num225$
12520INPUT#file%,num226$
12530INPUT#file%,num231$
12540IF num231$="tednE eiD" num231$="":ENDPROC
12550INPUT#file%,num232$
12560INPUT#file%,num233$
12570INPUT#file%,num234$
12580INPUT#file%,num235$
12590INPUT#file%,num236$
12600INPUT#file%,num241$
12610IF num241$="tednE eiD" num241$="":ENDPROC
12620INPUT#file%,num242$
12630INPUT#file%,num243$
12640INPUT#file%,num244$
12650INPUT#file%,num245$
12660INPUT#file%,num246$
12670INPUT#file%,num251$
12680IF num251$="tednE eiD" num251$="":ENDPROC
12690INPUT#file%,num252$
12700INPUT#file%,num253$
12710INPUT#file%,num254$
12720INPUT#file%,num255$
12730INPUT#file%,num256$
12740INPUT#file%,num261$
12750IF num261$="tednE eiD" num261$="":ENDPROC
12760INPUT#file%,num262$
12770INPUT#file%,num263$
12780INPUT#file%,num264$
12790INPUT#file%,num265$
12800INPUT#file%,num266$
12810INPUT#file%,num271$
12820IF num271$="tednE eiD" num271$="":ENDPROC
12830INPUT#file%,num272$
12840INPUT#file%,num273$
12850INPUT#file%,num274$
12860INPUT#file%,num275$
12870INPUT#file%,num276$
12880INPUT#file%,num311$
12890IF num311$="tednE eiD" num311$="":ENDPROC
12900INPUT#file%,num312$
12910INPUT#file%,num313$
12920INPUT#file%,num314$
12930INPUT#file%,num315$
12940INPUT#file%,num316$
12950INPUT#file%,num321$
12960IF num321$="tednE eiD" num321$="":ENDPROC
12970INPUT#file%,num322$
12980INPUT#file%,num323$
12990INPUT#file%,num324$
13000INPUT#file%,num325$
13010INPUT#file%,num326$
13020INPUT#file%,num331$
13030IF num331$="tednE eiD" num331$="":ENDPROC
13040INPUT#file%,num332$
13050INPUT#file%,num333$
13060INPUT#file%,num334$
13070INPUT#file%,num335$
13080INPUT#file%,num336$
13090INPUT#file%,num341$
13100IF num341$="tednE eiD" num341$="":ENDPROC
13110INPUT#file%,num342$
13120INPUT#file%,num343$
13130INPUT#file%,num344$
13140INPUT#file%,num345$
13150INPUT#file%,num346$
13160INPUT#file%,num351$
13170IF num351$="tednE eiD" num351$="":ENDPROC
13180INPUT#file%,num352$
13190INPUT#file%,num353$
13200INPUT#file%,num354$
13210INPUT#file%,num355$
13220INPUT#file%,num356$
13230INPUT#file%,num361$
13240IF num361$="tednE eiD" num361$="":ENDPROC
13250INPUT#file%,num362$
13260INPUT#file%,num363$
13270INPUT#file%,num364$
13280INPUT#file%,num365$
13290INPUT#file%,num366$
13300INPUT#file%,num371$
13310IF num371$="tednE eiD" num371$="":ENDPROC
13320INPUT#file%,num372$
13330INPUT#file%,num373$
13340INPUT#file%,num374$
13350INPUT#file%,num375$
13360INPUT#file%,num376$
13370ENDPROC
13380:
13390DEFPROCclicked
13400LOCAL type%,load_name$
13410type%=blk%!40
13420IF type%<>&04B ENDPROC
13430sure%=1
13440IF altered%=1 SYS "Wimp_ReportError"," National Lotter numbers have altered but not saved. Are you sure you wish to load a new file?",27,"Error from Lottery Check" TO ,sure%
13450IF sure%<>1 ENDPROC
13460PROCchange_title(numbersa%,"Lottery Lines")
13470altered%=0
13480load_name$=FNget_name_string(blk%+44,255)
13490PROCclear_variables
13500loaded%=1
13510file%=OPENUP(load_name$)
13520PROCwrite(savea%,2,load_name$)
13530PROCwrite(savea%,2,load_name$)
13540PROCwrite(weeksa%,14,"")
13550PROCwrite(weeksa%,16,"")
13560PROCwrite(weeksa%,17,"")
13570INPUT#file%,num111$
13580INPUT#file%,num112$
13590INPUT#file%,num113$
13600INPUT#file%,num114$
13610INPUT#file%,num115$
13620INPUT#file%,num116$
13630INPUT#file%,num121$
13640IF num121$="tednE eiD" num121$="":ENDPROC
13650INPUT#file%,num122$
13660INPUT#file%,num123$
13670INPUT#file%,num124$
13680INPUT#file%,num125$
13690INPUT#file%,num126$
13700INPUT#file%,num131$
13710IF num131$="tednE eiD" num131$="":ENDPROC
13720INPUT#file%,num132$
13730INPUT#file%,num133$
13740INPUT#file%,num134$
13750INPUT#file%,num135$
13760INPUT#file%,num136$
13770INPUT#file%,num141$
13780IF num141$="tednE eiD" num141$="":ENDPROC
13790INPUT#file%,num142$
13800INPUT#file%,num143$
13810INPUT#file%,num144$
13820INPUT#file%,num145$
13830INPUT#file%,num146$
13840INPUT#file%,num151$
13850IF num151$="tednE eiD" num151$="":ENDPROC
13860INPUT#file%,num152$
13870INPUT#file%,num153$
13880INPUT#file%,num154$
13890INPUT#file%,num155$
13900INPUT#file%,num156$
13910INPUT#file%,num161$
13920IF num161$="tednE eiD" num161$="":ENDPROC
13930INPUT#file%,num162$
13940INPUT#file%,num163$
13950INPUT#file%,num164$
13960INPUT#file%,num165$
13970INPUT#file%,num166$
13980INPUT#file%,num171$
13990IF num171$="tednE eiD" num171$="":ENDPROC
14000INPUT#file%,num172$
14010INPUT#file%,num173$
14020INPUT#file%,num174$
14030INPUT#file%,num175$
14040INPUT#file%,num176$
14050INPUT#file%,num211$
14060IF num211$="tednE eiD" num211$="":ENDPROC
14070INPUT#file%,num212$
14080INPUT#file%,num213$
14090INPUT#file%,num214$
14100INPUT#file%,num215$
14110INPUT#file%,num216$
14120INPUT#file%,num221$
14130IF num221$="tednE eiD" num221$="":ENDPROC
14140INPUT#file%,num222$
14150INPUT#file%,num223$
14160INPUT#file%,num224$
14170INPUT#file%,num225$
14180INPUT#file%,num226$
14190INPUT#file%,num231$
14200IF num231$="tednE eiD" num231$="":ENDPROC
14210INPUT#file%,num232$
14220INPUT#file%,num233$
14230INPUT#file%,num234$
14240INPUT#file%,num235$
14250INPUT#file%,num236$
14260INPUT#file%,num241$
14270IF num241$="tednE eiD" num241$="":ENDPROC
14280INPUT#file%,num242$
14290INPUT#file%,num243$
14300INPUT#file%,num244$
14310INPUT#file%,num245$
14320INPUT#file%,num246$
14330INPUT#file%,num251$
14340IF num251$="tednE eiD" num251$="":ENDPROC
14350INPUT#file%,num252$
14360INPUT#file%,num253$
14370INPUT#file%,num254$
14380INPUT#file%,num255$
14390INPUT#file%,num256$
14400INPUT#file%,num261$
14410IF num261$="tednE eiD" num261$="":ENDPROC
14420INPUT#file%,num262$
14430INPUT#file%,num263$
14440INPUT#file%,num264$
14450INPUT#file%,num265$
14460INPUT#file%,num266$
14470INPUT#file%,num271$
14480IF num271$="tednE eiD" num271$="":ENDPROC
14490INPUT#file%,num272$
14500INPUT#file%,num273$
14510INPUT#file%,num274$
14520INPUT#file%,num275$
14530INPUT#file%,num276$
14540INPUT#file%,num311$
14550IF num311$="tednE eiD" num311$="":ENDPROC
14560INPUT#file%,num312$
14570INPUT#file%,num313$
14580INPUT#file%,num314$
14590INPUT#file%,num315$
14600INPUT#file%,num316$
14610INPUT#file%,num321$
14620IF num321$="tednE eiD" num321$="":ENDPROC
14630INPUT#file%,num322$
14640INPUT#file%,num323$
14650INPUT#file%,num324$
14660INPUT#file%,num325$
14670INPUT#file%,num326$
14680INPUT#file%,num331$
14690IF num331$="tednE eiD" num331$="":ENDPROC
14700INPUT#file%,num332$
14710INPUT#file%,num333$
14720INPUT#file%,num334$
14730INPUT#file%,num335$
14740INPUT#file%,num336$
14750INPUT#file%,num341$
14760IF num341$="tednE eiD" num341$="":ENDPROC
14770INPUT#file%,num342$
14780INPUT#file%,num343$
14790INPUT#file%,num344$
14800INPUT#file%,num345$
14810INPUT#file%,num346$
14820INPUT#file%,num351$
14830IF num351$="tednE eiD" num351$="":ENDPROC
14840INPUT#file%,num352$
14850INPUT#file%,num353$
14860INPUT#file%,num354$
14870INPUT#file%,num355$
14880INPUT#file%,num356$
14890INPUT#file%,num361$
14900IF num361$="tednE eiD" num361$="":ENDPROC
14910INPUT#file%,num362$
14920INPUT#file%,num363$
14930INPUT#file%,num364$
14940INPUT#file%,num365$
14950INPUT#file%,num366$
14960INPUT#file%,num371$
14970IF num371$="tednE eiD" num371$="":ENDPROC
14980INPUT#file%,num372$
14990INPUT#file%,num373$
15000INPUT#file%,num374$
15010INPUT#file%,num375$
15020INPUT#file%,num376$
15030ENDPROC
15040:
15050DEFPROCwrite_in_data1
15060PROCwrite(numbersa%,6,num111$)
15070PROCwrite(numbersa%,7,num112$)
15080PROCwrite(numbersa%,8,num113$)
15090PROCwrite(numbersa%,9,num114$)
15100PROCwrite(numbersa%,10,num115$)
15110PROCwrite(numbersa%,11,num116$)
15120PROCwrite(numbersa%,14,num121$)
15130PROCwrite(numbersa%,15,num122$)
15140PROCwrite(numbersa%,16,num123$)
15150PROCwrite(numbersa%,17,num124$)
15160PROCwrite(numbersa%,18,num125$)
15170PROCwrite(numbersa%,19,num126$)
15180PROCwrite(numbersa%,22,num131$)
15190PROCwrite(numbersa%,23,num132$)
15200PROCwrite(numbersa%,24,num133$)
15210PROCwrite(numbersa%,25,num134$)
15220PROCwrite(numbersa%,26,num135$)
15230PROCwrite(numbersa%,27,num136$)
15240PROCwrite(numbersa%,30,num141$)
15250PROCwrite(numbersa%,31,num142$)
15260PROCwrite(numbersa%,32,num143$)
15270PROCwrite(numbersa%,33,num144$)
15280PROCwrite(numbersa%,34,num145$)
15290PROCwrite(numbersa%,35,num146$)
15300PROCwrite(numbersa%,38,num151$)
15310PROCwrite(numbersa%,39,num152$)
15320PROCwrite(numbersa%,40,num153$)
15330PROCwrite(numbersa%,41,num154$)
15340PROCwrite(numbersa%,42,num155$)
15350PROCwrite(numbersa%,43,num156$)
15360PROCwrite(numbersa%,46,num161$)
15370PROCwrite(numbersa%,47,num162$)
15380PROCwrite(numbersa%,48,num163$)
15390PROCwrite(numbersa%,49,num164$)
15400PROCwrite(numbersa%,50,num165$)
15410PROCwrite(numbersa%,51,num166$)
15420PROCwrite(numbersa%,54,num171$)
15430PROCwrite(numbersa%,55,num172$)
15440PROCwrite(numbersa%,56,num173$)
15450PROCwrite(numbersa%,57,num174$)
15460PROCwrite(numbersa%,58,num175$)
15470PROCwrite(numbersa%,59,num176$)
15480ENDPROC
15490:
15500DEFPROCwrite_in_data2
15510PROCwrite(numbersa%,6,num211$)
15520PROCwrite(numbersa%,7,num212$)
15530PROCwrite(numbersa%,8,num213$)
15540PROCwrite(numbersa%,9,num214$)
15550PROCwrite(numbersa%,10,num215$)
15560PROCwrite(numbersa%,11,num216$)
15570PROCwrite(numbersa%,14,num221$)
15580PROCwrite(numbersa%,15,num222$)
15590PROCwrite(numbersa%,16,num223$)
15600PROCwrite(numbersa%,17,num224$)
15610PROCwrite(numbersa%,18,num225$)
15620PROCwrite(numbersa%,19,num226$)
15630PROCwrite(numbersa%,22,num231$)
15640PROCwrite(numbersa%,23,num232$)
15650PROCwrite(numbersa%,24,num233$)
15660PROCwrite(numbersa%,25,num234$)
15670PROCwrite(numbersa%,26,num235$)
15680PROCwrite(numbersa%,27,num236$)
15690PROCwrite(numbersa%,30,num241$)
15700PROCwrite(numbersa%,31,num242$)
15710PROCwrite(numbersa%,32,num243$)
15720PROCwrite(numbersa%,33,num244$)
15730PROCwrite(numbersa%,34,num245$)
15740PROCwrite(numbersa%,35,num246$)
15750PROCwrite(numbersa%,38,num251$)
15760PROCwrite(numbersa%,39,num252$)
15770PROCwrite(numbersa%,40,num253$)
15780PROCwrite(numbersa%,41,num254$)
15790PROCwrite(numbersa%,42,num255$)
15800PROCwrite(numbersa%,43,num256$)
15810PROCwrite(numbersa%,46,num261$)
15820PROCwrite(numbersa%,47,num262$)
15830PROCwrite(numbersa%,48,num263$)
15840PROCwrite(numbersa%,49,num264$)
15850PROCwrite(numbersa%,50,num265$)
15860PROCwrite(numbersa%,51,num266$)
15870PROCwrite(numbersa%,54,num271$)
15880PROCwrite(numbersa%,55,num272$)
15890PROCwrite(numbersa%,56,num273$)
15900PROCwrite(numbersa%,57,num274$)
15910PROCwrite(numbersa%,58,num275$)
15920PROCwrite(numbersa%,59,num276$)
15930ENDPROC
15940:
15950DEFPROCwrite_in_data3
15960PROCwrite(numbersa%,6,num311$)
15970PROCwrite(numbersa%,7,num312$)
15980PROCwrite(numbersa%,8,num313$)
15990PROCwrite(numbersa%,9,num314$)
16000PROCwrite(numbersa%,10,num315$)
16010PROCwrite(numbersa%,11,num316$)
16020PROCwrite(numbersa%,14,num321$)
16030PROCwrite(numbersa%,15,num322$)
16040PROCwrite(numbersa%,16,num323$)
16050PROCwrite(numbersa%,17,num324$)
16060PROCwrite(numbersa%,18,num325$)
16070PROCwrite(numbersa%,19,num326$)
16080PROCwrite(numbersa%,22,num331$)
16090PROCwrite(numbersa%,23,num332$)
16100PROCwrite(numbersa%,24,num333$)
16110PROCwrite(numbersa%,25,num334$)
16120PROCwrite(numbersa%,26,num335$)
16130PROCwrite(numbersa%,27,num336$)
16140PROCwrite(numbersa%,30,num341$)
16150PROCwrite(numbersa%,31,num342$)
16160PROCwrite(numbersa%,32,num343$)
16170PROCwrite(numbersa%,33,num344$)
16180PROCwrite(numbersa%,34,num345$)
16190PROCwrite(numbersa%,35,num346$)
16200PROCwrite(numbersa%,38,num351$)
16210PROCwrite(numbersa%,39,num352$)
16220PROCwrite(numbersa%,40,num353$)
16230PROCwrite(numbersa%,41,num354$)
16240PROCwrite(numbersa%,42,num355$)
16250PROCwrite(numbersa%,43,num356$)
16260PROCwrite(numbersa%,46,num361$)
16270PROCwrite(numbersa%,47,num362$)
16280PROCwrite(numbersa%,48,num363$)
16290PROCwrite(numbersa%,49,num364$)
16300PROCwrite(numbersa%,50,num365$)
16310PROCwrite(numbersa%,51,num366$)
16320PROCwrite(numbersa%,54,num371$)
16330PROCwrite(numbersa%,55,num372$)
16340PROCwrite(numbersa%,56,num373$)
16350PROCwrite(numbersa%,57,num374$)
16360PROCwrite(numbersa%,58,num375$)
16370PROCwrite(numbersa%,59,num376$)
16380ENDPROC
16390:
16400DEFFNget_name_string(p%,l%)
16410LOCAL t$
16420IF l%=0 THEN l%=255
16430FOR p%=p% TO p%+l%-1
16440IF ?p%<32 THEN
16450=t$
16460ELSE
16470t$+=CHR$(?p%)
16480ENDIF
16490NEXT
16500=t$
16510:
16520DEFPROCclear
16530sure%=0
16540!blk%=ERR
16550$(blk%+4)="Lottery numbers have been entered but not saved. Are you sure you wish to clear the numbers? "+CHR$(0)
16560IF altered%=1 SYS "Wimp_ReportError",blk%,27,"!LotCheck" TO ,sure%
16570IF sure%=2 ENDPROC
16580SYS "Hourglass_On"
16590PROCclear_variables
16600PROCwrite_in_data
16610altered%=0
16620PROCwrite(savea%,2,"LotCheck")
16630SYS "Hourglass_Off"
16640ENDPROC
16650:
16660DEFPROCok_save
16670IF num116$="" SYS "Wimp_ReportError"," No National Lottery lines have been entered. Save aborted.",17,"Error from Lottery Check":ENDPROC
16680ONERROR LOCAL SYS "Wimp_ReportError"," Path "+save_name$+" not found. File not saved.",17,"Error from Lottery Check":ENDPROC
16690ok%=0
16700save_name$=FNread(savea%,2)
16710IF INSTR(save_name$,".") ok%=1
16720IF ok%=0 SYS "Wimp_ReportError"," To save file drag icon to filer window.",17,"Error from Lottery Check":ENDPROC
16730name$=save_name$
16740PROCcreate_file
16750PROCwrite_data
16760altered%=0
16770x=OPENUP(name$)
16780PTR#x=EXT#x
16790PRINT#x,"tednE eiD"
16800CLOSE#x
16810ENDPROC
16820:
16830DEFPROCchange_title(win%,new$)
16840!title_blk%=win%
16850SYS &400CC,,title_blk%
16860$(title_blk%!76)=new$
16870IF ((title_blk%!32) AND (1<<16)) <>0 THEN
16880SYS &400D1,-1,title_blk%!4,title_blk%!16,title_blk%!12,title_blk%!16+44
16890ENDIF
16900ENDPROC
16910:
16920DEFPROCbanner
16930IF banner%=0 ENDPROC
16940SYS "OS_ReadMonotonicTime" TO time%
16950IF time2%<time% PROCclose_window(welcomea%):banner%=0
16960ENDPROC
16970:
16980DEFPROCwrite_in_data
16990IF sheet%=1 PROCwrite_in_data1
17000IF sheet%=2 PROCwrite_in_data2
17010IF sheet%=3 PROCwrite_in_data3
17020ENDPROC
17030:
17040DEFPROCmatch_up
17050nums111$=num111$
17060nums112$=num112$
17070nums113$=num113$
17080nums114$=num114$
17090nums115$=num115$
17100nums116$=num116$
17110nums121$=num121$
17120nums122$=num122$
17130nums123$=num123$
17140nums124$=num124$
17150nums125$=num125$
17160nums126$=num126$
17170nums131$=num131$
17180nums132$=num132$
17190nums133$=num133$
17200nums134$=num134$
17210nums135$=num135$
17220nums136$=num136$
17230nums141$=num141$
17240nums142$=num142$
17250nums143$=num143$
17260nums144$=num144$
17270nums145$=num145$
17280nums146$=num146$
17290nums151$=num151$
17300nums152$=num152$
17310nums153$=num153$
17320nums154$=num154$
17330nums155$=num155$
17340nums156$=num156$
17350nums161$=num161$
17360nums162$=num162$
17370nums163$=num163$
17380nums164$=num164$
17390nums165$=num165$
17400nums166$=num166$
17410nums171$=num171$
17420nums172$=num172$
17430nums173$=num173$
17440nums174$=num174$
17450nums175$=num175$
17460nums176$=num176$
17470REM***
17480nums211$=num211$
17490nums212$=num212$
17500nums213$=num213$
17510nums214$=num214$
17520nums215$=num215$
17530nums216$=num216$
17540nums221$=num221$
17550nums222$=num222$
17560nums223$=num223$
17570nums224$=num224$
17580nums225$=num225$
17590nums226$=num226$
17600nums231$=num231$
17610nums232$=num232$
17620nums233$=num233$
17630nums234$=num234$
17640nums235$=num235$
17650nums236$=num236$
17660nums241$=num241$
17670nums242$=num242$
17680nums243$=num243$
17690nums244$=num244$
17700nums245$=num245$
17710nums246$=num246$
17720nums251$=num251$
17730nums252$=num252$
17740nums253$=num253$
17750nums254$=num254$
17760nums255$=num255$
17770nums256$=num256$
17780nums261$=num261$
17790nums262$=num262$
17800nums263$=num263$
17810nums264$=num264$
17820nums265$=num265$
17830nums266$=num266$
17840nums271$=num271$
17850nums272$=num272$
17860nums273$=num273$
17870nums274$=num274$
17880nums275$=num275$
17890nums276$=num276$
17900REM***
17910nums311$=num311$
17920nums312$=num312$
17930nums313$=num313$
17940nums314$=num314$
17950nums315$=num315$
17960nums316$=num316$
17970nums321$=num321$
17980nums322$=num322$
17990nums323$=num323$
18000nums324$=num324$
18010nums325$=num325$
18020nums326$=num326$
18030nums331$=num331$
18040nums332$=num332$
18050nums333$=num333$
18060nums334$=num334$
18070nums335$=num335$
18080nums336$=num336$
18090nums341$=num341$
18100nums342$=num342$
18110nums343$=num343$
18120nums344$=num344$
18130nums345$=num345$
18140nums346$=num346$
18150nums351$=num351$
18160nums352$=num352$
18170nums353$=num353$
18180nums354$=num354$
18190nums355$=num355$
18200nums356$=num356$
18210nums361$=num361$
18220nums362$=num362$
18230nums363$=num363$
18240nums364$=num364$
18250nums365$=num365$
18260nums366$=num366$
18270nums371$=num371$
18280nums372$=num372$
18290nums373$=num373$
18300nums374$=num374$
18310nums375$=num375$
18320nums376$=num376$
18330ENDPROC
18340:
18350DEFPROCwrite_in_cdata1
18360PROCwrite(checka%,6,nums111$)
18370PROCwrite(checka%,7,nums112$)
18380PROCwrite(checka%,8,nums113$)
18390PROCwrite(checka%,9,nums114$)
18400PROCwrite(checka%,10,nums115$)
18410PROCwrite(checka%,11,nums116$)
18420PROCwrite(checka%,14,nums121$)
18430PROCwrite(checka%,15,nums122$)
18440PROCwrite(checka%,16,nums123$)
18450PROCwrite(checka%,17,nums124$)
18460PROCwrite(checka%,18,nums125$)
18470PROCwrite(checka%,19,nums126$)
18480PROCwrite(checka%,22,nums131$)
18490PROCwrite(checka%,23,nums132$)
18500PROCwrite(checka%,24,nums133$)
18510PROCwrite(checka%,25,nums134$)
18520PROCwrite(checka%,26,nums135$)
18530PROCwrite(checka%,27,nums136$)
18540PROCwrite(checka%,30,nums141$)
18550PROCwrite(checka%,31,nums142$)
18560PROCwrite(checka%,32,nums143$)
18570PROCwrite(checka%,33,nums144$)
18580PROCwrite(checka%,34,nums145$)
18590PROCwrite(checka%,35,nums146$)
18600PROCwrite(checka%,38,nums151$)
18610PROCwrite(checka%,39,nums152$)
18620PROCwrite(checka%,40,nums153$)
18630PROCwrite(checka%,41,nums154$)
18640PROCwrite(checka%,42,nums155$)
18650PROCwrite(checka%,43,nums156$)
18660PROCwrite(checka%,46,nums161$)
18670PROCwrite(checka%,47,nums162$)
18680PROCwrite(checka%,48,nums163$)
18690PROCwrite(checka%,49,nums164$)
18700PROCwrite(checka%,50,nums165$)
18710PROCwrite(checka%,51,nums166$)
18720PROCwrite(checka%,54,nums171$)
18730PROCwrite(checka%,55,nums172$)
18740PROCwrite(checka%,56,nums173$)
18750PROCwrite(checka%,57,nums174$)
18760PROCwrite(checka%,58,nums175$)
18770PROCwrite(checka%,59,nums176$)
18780PROCwrite(checka%,72,""):IF line11%>2 PROCwrite(checka%,72,"*")
18790PROCwrite(checka%,73,""):IF line12%>2 PROCwrite(checka%,73,"*")
18800PROCwrite(checka%,74,""):IF line13%>2 PROCwrite(checka%,74,"*")
18810PROCwrite(checka%,75,""):IF line14%>2 PROCwrite(checka%,75,"*")
18820PROCwrite(checka%,76,""):IF line15%>2 PROCwrite(checka%,76,"*")
18830PROCwrite(checka%,77,""):IF line16%>2 PROCwrite(checka%,77,"*")
18840PROCwrite(checka%,78,""):IF line17%>2 PROCwrite(checka%,78,"*")
18850ENDPROC
18860:
18870DEFPROCwrite_in_cdata2
18880PROCwrite(checka%,6,nums211$)
18890PROCwrite(checka%,7,nums212$)
18900PROCwrite(checka%,8,nums213$)
18910PROCwrite(checka%,9,nums214$)
18920PROCwrite(checka%,10,nums215$)
18930PROCwrite(checka%,11,nums216$)
18940PROCwrite(checka%,14,nums221$)
18950PROCwrite(checka%,15,nums222$)
18960PROCwrite(checka%,16,nums223$)
18970PROCwrite(checka%,17,nums224$)
18980PROCwrite(checka%,18,nums225$)
18990PROCwrite(checka%,19,nums226$)
19000PROCwrite(checka%,22,nums231$)
19010PROCwrite(checka%,23,nums232$)
19020PROCwrite(checka%,24,nums233$)
19030PROCwrite(checka%,25,nums234$)
19040PROCwrite(checka%,26,nums235$)
19050PROCwrite(checka%,27,nums236$)
19060PROCwrite(checka%,30,nums241$)
19070PROCwrite(checka%,31,nums242$)
19080PROCwrite(checka%,32,nums243$)
19090PROCwrite(checka%,33,nums244$)
19100PROCwrite(checka%,34,nums245$)
19110PROCwrite(checka%,35,nums246$)
19120PROCwrite(checka%,38,nums251$)
19130PROCwrite(checka%,39,nums252$)
19140PROCwrite(checka%,40,nums253$)
19150PROCwrite(checka%,41,nums254$)
19160PROCwrite(checka%,42,nums255$)
19170PROCwrite(checka%,43,nums256$)
19180PROCwrite(checka%,46,nums261$)
19190PROCwrite(checka%,47,nums262$)
19200PROCwrite(checka%,48,nums263$)
19210PROCwrite(checka%,49,nums264$)
19220PROCwrite(checka%,50,nums265$)
19230PROCwrite(checka%,51,nums266$)
19240PROCwrite(checka%,54,nums271$)
19250PROCwrite(checka%,55,nums272$)
19260PROCwrite(checka%,56,nums273$)
19270PROCwrite(checka%,57,nums274$)
19280PROCwrite(checka%,58,nums275$)
19290PROCwrite(checka%,59,nums276$)
19300PROCwrite(checka%,72,""):IF line21%>2 PROCwrite(checka%,72,"*")
19310PROCwrite(checka%,73,""):IF line22%>2 PROCwrite(checka%,73,"*")
19320PROCwrite(checka%,74,""):IF line23%>2 PROCwrite(checka%,74,"*")
19330PROCwrite(checka%,75,""):IF line24%>2 PROCwrite(checka%,75,"*")
19340PROCwrite(checka%,76,""):IF line25%>2 PROCwrite(checka%,76,"*")
19350PROCwrite(checka%,77,""):IF line26%>2 PROCwrite(checka%,77,"*")
19360PROCwrite(checka%,78,""):IF line27%>2 PROCwrite(checka%,78,"*")
19370ENDPROC
19380:
19390DEFPROCwrite_in_cdata3
19400PROCwrite(checka%,6,nums311$)
19410PROCwrite(checka%,7,nums312$)
19420PROCwrite(checka%,8,nums313$)
19430PROCwrite(checka%,9,nums314$)
19440PROCwrite(checka%,10,nums315$)
19450PROCwrite(checka%,11,nums316$)
19460PROCwrite(checka%,14,nums321$)
19470PROCwrite(checka%,15,nums322$)
19480PROCwrite(checka%,16,nums323$)
19490PROCwrite(checka%,17,nums324$)
19500PROCwrite(checka%,18,nums325$)
19510PROCwrite(checka%,19,nums326$)
19520PROCwrite(checka%,22,nums331$)
19530PROCwrite(checka%,23,nums332$)
19540PROCwrite(checka%,24,nums333$)
19550PROCwrite(checka%,25,nums334$)
19560PROCwrite(checka%,26,nums335$)
19570PROCwrite(checka%,27,nums336$)
19580PROCwrite(checka%,30,nums341$)
19590PROCwrite(checka%,31,nums342$)
19600PROCwrite(checka%,32,nums343$)
19610PROCwrite(checka%,33,nums344$)
19620PROCwrite(checka%,34,nums345$)
19630PROCwrite(checka%,35,nums346$)
19640PROCwrite(checka%,38,nums351$)
19650PROCwrite(checka%,39,nums352$)
19660PROCwrite(checka%,40,nums353$)
19670PROCwrite(checka%,41,nums354$)
19680PROCwrite(checka%,42,nums355$)
19690PROCwrite(checka%,43,nums356$)
19700PROCwrite(checka%,46,nums361$)
19710PROCwrite(checka%,47,nums362$)
19720PROCwrite(checka%,48,nums363$)
19730PROCwrite(checka%,49,nums364$)
19740PROCwrite(checka%,50,nums365$)
19750PROCwrite(checka%,51,nums366$)
19760PROCwrite(checka%,54,nums371$)
19770PROCwrite(checka%,55,nums372$)
19780PROCwrite(checka%,56,nums373$)
19790PROCwrite(checka%,57,nums374$)
19800PROCwrite(checka%,58,nums375$)
19810PROCwrite(checka%,59,nums376$)
19820PROCwrite(checka%,72,""):IF line31%>2 PROCwrite(checka%,72,"*")
19830PROCwrite(checka%,73,""):IF line32%>2 PROCwrite(checka%,73,"*")
19840PROCwrite(checka%,74,""):IF line33%>2 PROCwrite(checka%,74,"*")
19850PROCwrite(checka%,75,""):IF line34%>2 PROCwrite(checka%,75,"*")
19860PROCwrite(checka%,76,""):IF line35%>2 PROCwrite(checka%,76,"*")
19870PROCwrite(checka%,77,""):IF line36%>2 PROCwrite(checka%,77,"*")
19880PROCwrite(checka%,78,""):IF line37%>2 PROCwrite(checka%,78,"*")
19890ENDPROC
� >Lottery Check
'� >Programmed by Ben Roles (Age 16)
� � Archimedes World
(:
2ș "Hourglass_On"
<� "Set Lot$Work Yes"
F
�setup
Pș "Hourglass_Off"
Z �poll
d:
n��setup
xIline11%=0:line12%=0:line13%=0:line14%=0:line15%=0:line16%=0:line17%=0
�Iline21%=0:line22%=0:line23%=0:line24%=0:line25%=0:line26%=0:line27%=0
�Iline31%=0:line32%=0:line33%=0:line34%=0:line35%=0:line36%=0:line37%=0
�
�get_size
��variables
��clear_variables
��initialise
�
�fonts
��templates
��welcome
� �icon
�@ș "OS_ReadMonotonicTime" � time%:time2%=time%+300:banner%=1
��sheet1:�match_up:�csheet1
��
:
��get_size
8ș &35,-1,4 � ,,x%:ș &35,-1,11 � ,,X%:max_x%=X%<<x%
"8ș &35,-1,5 � ,,y%:ș &35,-1,12 � ,,Y%:max_y%=Y%<<y%
,max_x%=max_x%/2
6max_y%=max_y%/2
@�
J:
T��variables
^�� blk% &1500,ind% &900,info% &1000,save% &2000,weeks% &4000,numbers% &5000,welcome% &6000,main% &7000,check% &8000,menu% &1000,title_blk% &1000
hKmode_type%=0:found%=0:altered%=0:sure%=1:sheet%=1:searched%=0:csheet%=1
r�
|:
�
��icon
�K!blk%=-1:blk%!4=0:blk%!8=0:blk%!12=68:blk%!16=68:blk%!20=(3<<12)+%11010
�$(blk%+24)="!LotCheck"
�&ș "Wimp_CreateIcon",,blk% � bara%
��
�:
���initialise
�6ș "Wimp_Initialise",200,&4B534154,"Lottery Check"
�a%=0
��
�:
���templates
�3ș "Wimp_OpenTemplate",,"<Check$Dir>.Templates"
@ș "Wimp_LoadTemplate",,info%,ind%,ind%+&600,finfo%,"Info",0
*ș "Wimp_CreateWindow",,info% � infoa%
Fș "Wimp_LoadTemplate",,save%,ind%+&700,ind%+&2000,fsave%,"Save",0
&*ș "Wimp_CreateWindow",,save% � savea%
0Pș "Wimp_LoadTemplate",,weeks%,ind%+&2100,ind%+&4000,fweeks%,"ThisWeekNum",0
:,ș "Wimp_CreateWindow",,weeks% � weeksa%
DPș "Wimp_LoadTemplate",,numbers%,ind%+&4100,ind%+&6000,fnumbers%,"Numbers",0
N0ș "Wimp_CreateWindow",,numbers% � numbersa%
XPș "Wimp_LoadTemplate",,welcome%,ind%+&6100,ind%+&9000,fwelcome%,"Welcome",0
b0ș "Wimp_CreateWindow",,welcome% � welcomea%
lLș "Wimp_LoadTemplate",,main%,ind%+&9100,ind%+&10000,fmain%,"MainMenu",0
v*ș "Wimp_CreateWindow",,main% � maina%
�Nș "Wimp_LoadTemplate",,check%,ind%+&10000,ind%+&12000,fcheck%,"Checked",0
�,ș "Wimp_CreateWindow",,check% � checka%
�ș "Wimp_CloseTemplate"
��
�:
�
��poll
��
�#ș "Wimp_Poll",0,blk% � reason%
�Ȏ reason% �
�� 0:�banner
�"� 2:ș "Wimp_OpenWindow",,blk%
�#� 3:ș "Wimp_CloseWindow",,blk%
�� 6:�mouse
� 7:�drag_completed
� 8:�key
� 9:�selection
� 17,18:�message
*�
4� �
>�
H:
R��mouse
\#� blk%!8=2 � blk%!12=-2 �menu:�
fE� blk%!12=-2 � (blk%!8=1 � blk%!8=4) �open_window(maina%,474,656)
pn� blk%!12=maina% � blk%!16=5 �open_window(numbersa%,526,664):ș "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
zn� blk%!12=maina% � blk%!16=6 �open_window(numbersa%,526,664):ș "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
�k� blk%!12=maina% � blk%!16=8 �open_window(weeksa%,550,588):ș "Wimp_SetCaretPosition",weeksa%,13,,,-1,0
�k� blk%!12=maina% � blk%!16=9 �open_window(weeksa%,550,588):ș "Wimp_SetCaretPosition",weeksa%,13,,,-1,0
�i� blk%!12=maina% � blk%!16=14 �open_window(savea%,274,184):ș "Wimp_SetCaretPosition",savea%,2,,,-1,0
�i� blk%!12=maina% � blk%!16=15 �open_window(savea%,274,184):ș "Wimp_SetCaretPosition",savea%,2,,,-1,0
�(� blk%!12=maina% � blk%!16=17 �clear
�(� blk%!12=maina% � blk%!16=18 �clear
�0� blk%!12=savea% � blk%!16=3 �drag(savea%,3)
�g� blk%!12=weeksa% � blk%!16=25 word$=�read(weeksa%,25):� word$="here" �open_window(checka%,526,664)
�@� blk%!12=weeksa% � blk%!16=27 �open_window(checka%,526,664)
�e� blk%!12=numbersa% � blk%!16=69 � sheet%=2 ș "Wimp_SetCaretPosition",numbersa%,6,,,-1,0:�sheet1
�7� blk%!12=numbersa% � blk%!16=69 � sheet%=3 �sheet2
�7� blk%!12=numbersa% � blk%!16=70 � sheet%=1 �sheet2
�7� blk%!12=numbersa% � blk%!16=70 � sheet%=2 �sheet3
(� blk%!12=maina% � blk%!16=17 �clear
(� blk%!12=maina% � blk%!16=18 �clear
M� blk%!12=maina% � blk%!16=11 � searched%=1 �open_window(checka%,526,664)
$M� blk%!12=maina% � blk%!16=12 � searched%=1 �open_window(checka%,526,664)
.7� blk%!12=checka% � blk%!16=69 � csheet%=2 �csheet1
87� blk%!12=checka% � blk%!16=69 � csheet%=3 �csheet2
B7� blk%!12=checka% � blk%!16=70 � csheet%=1 �csheet2
L7� blk%!12=checka% � blk%!16=70 � csheet%=2 �csheet3
V�
`:
j��sheet1
t"�write(numbersa%,3,"Ticket 1")
~�write(numbersa%,71,"1/3")
� �write(numbersa%,69,"BackG")
�"�write(numbersa%,70,"Forward")
�sheet%=1
��write_in_data1
��
�:
���sheet2
�1ș "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
�"�write(numbersa%,3,"Ticket 2")
��write(numbersa%,71,"2/3")
��write(numbersa%,69,"Back")
�"�write(numbersa%,70,"Forward")
sheet%=2
�write_in_data2
�
:
(��sheet3
21ș "Wimp_SetCaretPosition",numbersa%,6,,,-1,0
<"�write(numbersa%,3,"Ticket 3")
F�write(numbersa%,71,"3/3")
P�write(numbersa%,69,"Back")
Z#�write(numbersa%,70,"ForwardG")
dsheet%=3
n�write_in_data3
x�
�:
�
��csheet1
� �write(checka%,3,"Ticket 1")
��write(checka%,71,"1/3")
��write(checka%,69,"BackG")
� �write(checka%,70,"Forward")
�
csheet%=1
��write_in_cdata1
��
�:
�
��csheet2
� �write(checka%,3,"Ticket 2")
��write(checka%,71,"2/3")
�write(checka%,69,"Back")
�write(checka%,70,"Forward")
csheet%=2
"�write_in_cdata2
,�
6:
@
��csheet3
J �write(checka%,3,"Ticket 3")
T�write(checka%,71,"3/3")
^�write(checka%,69,"Back")
h!�write(checka%,70,"ForwardG")
r
csheet%=3
|�write_in_cdata3
��
�:
�
��menu
�mx%=blk%!0:my%=blk%!4
��menu_info
�*ș "Wimp_CreateMenu",,menu%,mx%-64,318
��
�:
�ݤstring(a%)
� � st$
�
st$=""
�
ȕ ?a%>31
�st$+=�(?a%)
a%+=1
�
=st$
&:
0��selection
:sure%=1
DȎ !blk% �
N� 0:
X� 1:
bR� 2:�open_window(weeksa%,550,588):ș "Wimp_SetCaretPosition",weeksa%,13,,,-1,0
l� 3:�clear
v�� 4:� altered%=1 ș "Wimp_ReportError"," National Lottery numbers have been altered but not saved. Are you sure you wish to quit?",27,"Error from Lottery Check" � ,sure%
�7� sure%=1 � "Set Lot$Work No":ș "Wimp_CloseDown":�
��
��
�:
���menu_info
�$menu%="LotCheck"
�/menu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0
�5menu%!16=190:menu%!20=44:menu%!24=0:ptr%=menu%+28
�!ptr%=0
�ptr%!4=infoa%
�ptr%!8=&7000021
�$(ptr%+12)="Info"
�ptr%+=24
!ptr%=0
ptr%!4=savea%
ptr%!8=&7000021
$(ptr%+12)="Save"
*ptr%+=24
4!ptr%=0
>
ptr%!4=-1
Hptr%!8=&7000021
R$(ptr%+12)="Check"
\ptr%+=24
f!ptr%=0
p
ptr%!4=-1
zptr%!8=&7000021
�$(ptr%+12)="Clear"
�ptr%+=24
�
!ptr%=&80
�
ptr%!4=-1
�ptr%!8=&7000021
�$(ptr%+12)="Quit"
��
�:
���open_window(win%,x1%,y1%)
�!blk%=win%
�x%=x1%/2:y%=y1%/2
�blk%!4=max_x%-x%
�blk%!8=max_y%-y%
blk%!12=max_x%-x%+x1%
blk%!16=max_y%-y%+y1%
blk%!20=0
$
blk%!24=0
.blk%!28=-1
8ș "Wimp_OpenWindow",,blk%
B � win%=weeksa% �numbers_open
L�
V:
`��numbers_open
jsearched%=0
t�write(weeksa%,13,"")
~�write(weeksa%,14,"")
��write(weeksa%,15,"")
��write(weeksa%,16,"")
��write(weeksa%,17,"")
��write(weeksa%,18,"")
��write(weeksa%,21,"")
��write(weeksa%,23,"")
��write(weeksa%,24,"")
��write(weeksa%,26,"")
��write(weeksa%,25,"")
��write(weeksa%,27,"")
�$�write(maina%,11,"How_Well_Off")
�"�write(maina%,12,"View Lines")
!blk%=weeksa%
/ș "Wimp_SetCaretPosition",weeksa%,6,,,-1,0
"ș "Wimp_GetWindowState",,blk%
blk%!28=-1
(ș "Wimp_OpenWindow",,blk%
2�
<:
F��close_window(win%)
P!blk%=win%
Zș "Wimp_CloseWindow",,blk%
d�
n:
x
��message
�sure%=1:loaded%=0
��� blk%!16=0:� altered%=1 ș "Wimp_ReportError"," National Lottery numbers have been altered but not saved. Are you sure you wish to quit?",27,"Error from Lottery Check" � ,sure%
�C� blk%!16=0:� sure%=1 � "Set Lot$Work No":ș "Wimp_CloseDown":�
�� blk%!16=2:�save_data
�� blk%!16=3:�dragged
�0� loaded%=1 �#file%:�write_in_data:loaded%=0
�� blk%!16=5:�clicked
�0� loaded%=1 �#file%:�write_in_data:loaded%=0
��
�:
���write(w%,i%,t$)
�
blk%!0=w%
�
blk%!4=i%
ș "Wimp_GetIconState",,blk%
t$=�t$,blk%!36-1)
$(blk%!28)=t$
"blk%!8=0
,
blk%!12=0
6 ș "Wimp_SetIconState",,blk%
@�
J:
Tݤread(w%,i%)
^!blk%=w%
h
blk%!4=i%
r ș "Wimp_GetIconState",,blk%
|=�string(blk%!28)
�:
�
��welcome
�#�open_window(welcomea%,638,352)
��
�:
���fonts
�Z� finfo% 256,fsave% 256,fweeks% 256,fwelcome% 256,fnumbers% 256,fmain% 256,fcheck% 256
�font_dir%=�check_there
�.� font_dir%=� ș "XOS_CLI","FontInstall":�
�]ș "Wimp_ReportError"," Please locate a font directory.",17,"Error from Lottery Check"
�Dș "Hourglass_Off":OSLCI "Set Lot$Work No":ș "Wimp_CloseDown":�
��
�:
ݤcheck_there
6ș"XOS_ReadVarVal","Font$Path",,1<<31 � ,,font_dir
� font_dir=0 =� � =�
&:
0��drag_completed
:filename$=�read(savea%,2)
D"ș "Wimp_GetPointerInfo",,blk%
N-w%=blk%!12:i%=blk%!16:x%=blk%!0:y%=blk%!4
X7blk%!0=64:blk%!12=0:blk%!16=1:blk%!20=w%:blk%!24=i%
b2blk%!28=x%:blk%!32=y%:blk%!46=600:blk%!40=&FFF
l$(blk%+44)=filename$
v'ș "Wimp_SendMessage",17,blk%,w%,i%
��
�:
���save_data
�!x%=blk%!0:y%=blk%!4:z%=blk%!8
�name$=�save_data2(blk%+44)
�"blk%!0=x%:blk%!12=z%:blk%!16=3
�$ș "Wimp_SendMessage",18,blk%,y%
�$name$=�ammend_string(name$+�(0))
Љ� num116$="" ș "Wimp_ReportError"," No national lottery lines have been entered. Save aborted.",17,"Message from Lottery Check":�
��write(savea%,2,name$)
��create_file
��write_data
�x=�(name$)
�#x=�#x
�#x,"tednE eiD"
�#x
�close_window(savea%)
*�
4:
>ݤsave_data2(number%)
Hstr$=""
Rȕ ?number%
\str$+=�?number%
fnumber%+=1
p�
z =str$
�:
�ݤammend_string(original$)
�ptr%=1:name$=""
�ȕ �original$,ptr%,1)<>�(0)
�%name$+=�original$,ptr%,1):ptr%+=1
��
�
=name$
�:
���create_file
� ș "XOS_CLI","Create "+name$
�)ș "XOS_CLI","Settype "+name$+" &04B"
��
�:
��drag(win%,icon%)
� x%,y%
blk%!0=win%
$"ș "Wimp_GetWindowState",,blk%
.x%=blk%!4-blk%!20
8y%=blk%!16-blk%!24
Bblk%!4=icon%
L ș "Wimp_GetIconState",,blk%
Vblk%!4=5
`blk%!8+=x%
jblk%!12+=y%
tblk%!16+=x%
~blk%!20+=y%
�blk%!24=-1
�blk%!28=-1
�blk%!32=&7FFFFFFF
�blk%!36=&7FFFFFFF
�ș "Wimp_DragBox",,blk%
��
�:
���write_data
�altered%=0
�,�change_title(numbersa%,"Lottery Lines")
�file%=�(name$)
�� num116$="" �#file%:�
;�#file%,num111$,num112$,num113$,num114$,num115$,num116$
� num126$="" �#file%:�
;�#file%,num121$,num122$,num123$,num124$,num125$,num126$
� num136$="" �#file%:�
(;�#file%,num131$,num132$,num133$,num134$,num135$,num136$
2� num146$="" �#file%:�
<;�#file%,num141$,num142$,num143$,num144$,num145$,num146$
F� num156$="" �#file%:�
P;�#file%,num151$,num152$,num153$,num154$,num155$,num156$
Z� num166$="" �#file%:�
d;�#file%,num161$,num162$,num163$,num164$,num165$,num166$
n� num176$="" �#file%:�
x;�#file%,num171$,num172$,num173$,num174$,num175$,num176$
�� num216$="" �#file%:�
�;�#file%,num211$,num212$,num213$,num214$,num215$,num216$
�� num226$="" �#file%:�
�;�#file%,num221$,num222$,num223$,num224$,num225$,num226$
�� num236$="" �#file%:�
�;�#file%,num231$,num232$,num233$,num234$,num235$,num236$
�� num246$="" �#file%:�
�;�#file%,num241$,num242$,num243$,num244$,num245$,num246$
�� num256$="" �#file%:�
�;�#file%,num251$,num252$,num253$,num254$,num255$,num256$
�� num266$="" �#file%:�
�;�#file%,num261$,num262$,num263$,num264$,num265$,num266$
�� num276$="" �#file%:�
;�#file%,num271$,num272$,num273$,num274$,num275$,num276$
� num316$="" �#file%:�
;�#file%,num311$,num312$,num313$,num314$,num315$,num316$
"� num326$="" �#file%:�
,;�#file%,num321$,num322$,num323$,num324$,num325$,num326$
6� num336$="" �#file%:�
@;�#file%,num331$,num332$,num333$,num334$,num335$,num336$
J� num346$="" �#file%:�
T;�#file%,num341$,num342$,num343$,num344$,num345$,num346$
^� num356$="" �#file%:�
h;�#file%,num351$,num352$,num353$,num354$,num355$,num356$
r� num366$="" �#file%:�
|;�#file%,num361$,num362$,num363$,num364$,num365$,num366$
�� num376$="" �#file%:�
�;�#file%,num371$,num372$,num373$,num374$,num375$,num376$
��#file%
��
�:
� ��key
�before%=altered%
�Ȏ !blk% �
�� weeksa%:�weeks
�� numbersa%:�where
�B� altered%<>before% �change_title(numbersa%,"Lottery Lines *")
�� savea%:�ok_save
��
�
:
��where
&� sheet%=1 �numbers_picked1
0� sheet%=2 �numbers_picked2
:� sheet%=3 �numbers_picked3
D�
N:
X��weeks
bkey%=blk%!24
lș "Wimp_ProcessKey",key%
vF� key%=13 � blk%!4=13:ș "Wimp_SetCaretPosition",weeksa%,14,,,-1,0
�F� key%=13 � blk%!4=14:ș "Wimp_SetCaretPosition",weeksa%,15,,,-1,0
�F� key%=13 � blk%!4=15:ș "Wimp_SetCaretPosition",weeksa%,16,,,-1,0
�F� key%=13 � blk%!4=16:ș "Wimp_SetCaretPosition",weeksa%,17,,,-1,0
�F� key%=13 � blk%!4=17:ș "Wimp_SetCaretPosition",weeksa%,18,,,-1,0
�F� key%=13 � blk%!4=18:ș "Wimp_SetCaretPosition",weeksa%,21,,,-1,0
�7� key%=13 � blk%!4=21:�check_match:�display_winners
��
�:
���check_match
�ș "Hourglass_On"
� week_num1$=�read(weeksa%,13)
� week_num2$=�read(weeksa%,14)
� week_num3$=�read(weeksa%,15)
week_num4$=�read(weeksa%,16)
week_num5$=�read(weeksa%,17)
week_num6$=�read(weeksa%,18)
week_num7$=�read(weeksa%,21)
*�clear_other_variables
4Iline11%=0:line12%=0:line13%=0:line14%=0:line15%=0:line16%=0:line17%=0
>Iline21%=0:line22%=0:line23%=0:line24%=0:line25%=0:line26%=0:line27%=0
HIline31%=0:line32%=0:line33%=0:line34%=0:line35%=0:line36%=0:line37%=0
Rwinners%=0
\�� num111$=week_num1$ � num111$=week_num2$ � num111$=week_num3$ � num111$=week_num4$ � num111$=week_num5$ � num111$=week_num6$ num111%=1:line11%=line11%+1
f�� num112$=week_num1$ � num112$=week_num2$ � num112$=week_num3$ � num112$=week_num4$ � num112$=week_num5$ � num112$=week_num6$ num112%=1:line11%=line11%+1
p�� num113$=week_num1$ � num113$=week_num2$ � num113$=week_num3$ � num113$=week_num4$ � num113$=week_num5$ � num113$=week_num6$ num113%=1:line11%=line11%+1
z�� num114$=week_num1$ � num114$=week_num2$ � num114$=week_num3$ � num114$=week_num4$ � num114$=week_num5$ � num114$=week_num6$ num114%=1:line11%=line11%+1
��� num115$=week_num1$ � num115$=week_num2$ � num115$=week_num3$ � num115$=week_num4$ � num115$=week_num5$ � num115$=week_num6$ num115%=1:line11%=line11%+1
��� num116$=week_num1$ � num116$=week_num2$ � num116$=week_num3$ � num116$=week_num4$ � num116$=week_num5$ � num116$=week_num6$ num116%=1:line11%=line11%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num121$="" �
��� num121$=week_num1$ � num121$=week_num2$ � num121$=week_num3$ � num121$=week_num4$ � num121$=week_num5$ � num121$=week_num6$ num121%=1:line12%=line12%+1
��� num122$=week_num1$ � num122$=week_num2$ � num122$=week_num3$ � num122$=week_num4$ � num122$=week_num5$ � num122$=week_num6$ num122%=1:line12%=line12%+1
��� num123$=week_num1$ � num123$=week_num2$ � num123$=week_num3$ � num123$=week_num4$ � num123$=week_num5$ � num123$=week_num6$ num123%=1:line12%=line12%+1
ʝ� num124$=week_num1$ � num124$=week_num2$ � num124$=week_num3$ � num124$=week_num4$ � num124$=week_num5$ � num124$=week_num6$ num124%=1:line12%=line12%+1
ԝ� num125$=week_num1$ � num125$=week_num2$ � num125$=week_num3$ � num125$=week_num4$ � num125$=week_num5$ � num125$=week_num6$ num125%=1:line12%=line12%+1
ޝ� num126$=week_num1$ � num126$=week_num2$ � num126$=week_num3$ � num126$=week_num4$ � num126$=week_num5$ � num126$=week_num6$ num126%=1:line12%=line12%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num131$="" �
��� num131$=week_num1$ � num131$=week_num2$ � num131$=week_num3$ � num131$=week_num4$ � num131$=week_num5$ � num131$=week_num6$ num131%=1:line13%=line13%+1
�� num132$=week_num1$ � num132$=week_num2$ � num132$=week_num3$ � num132$=week_num4$ � num132$=week_num5$ � num132$=week_num6$ num132%=1:line13%=line13%+1
�� num133$=week_num1$ � num133$=week_num2$ � num133$=week_num3$ � num133$=week_num4$ � num133$=week_num5$ � num133$=week_num6$ num133%=1:line13%=line13%+1
�� num134$=week_num1$ � num134$=week_num2$ � num134$=week_num3$ � num134$=week_num4$ � num134$=week_num5$ � num134$=week_num6$ num134%=1:line13%=line13%+1
$�� num135$=week_num1$ � num135$=week_num2$ � num135$=week_num3$ � num135$=week_num4$ � num135$=week_num5$ � num135$=week_num6$ num135%=1:line13%=line13%+1
.�� num136$=week_num1$ � num136$=week_num2$ � num136$=week_num3$ � num136$=week_num4$ � num136$=week_num5$ � num136$=week_num6$ num136%=1:line13%=line13%+1
8Z� ***************** Now I can see where I am (It's hard this is!) ********************
B� num141$="" �
L�� num141$=week_num1$ � num141$=week_num2$ � num141$=week_num3$ � num141$=week_num4$ � num141$=week_num5$ � num141$=week_num6$ num141%=1:line14%=line14%+1
V�� num142$=week_num1$ � num142$=week_num2$ � num142$=week_num3$ � num142$=week_num4$ � num142$=week_num5$ � num142$=week_num6$ num142%=1:line14%=line14%+1
`�� num143$=week_num1$ � num143$=week_num2$ � num143$=week_num3$ � num143$=week_num4$ � num143$=week_num5$ � num143$=week_num6$ num143%=1:line14%=line14%+1
j�� num144$=week_num1$ � num144$=week_num2$ � num144$=week_num3$ � num144$=week_num4$ � num144$=week_num5$ � num144$=week_num6$ num144%=1:line14%=line14%+1
t�� num145$=week_num1$ � num145$=week_num2$ � num145$=week_num3$ � num145$=week_num4$ � num145$=week_num5$ � num145$=week_num6$ num145%=1:line14%=line14%+1
~�� num146$=week_num1$ � num146$=week_num2$ � num146$=week_num3$ � num146$=week_num4$ � num146$=week_num5$ � num146$=week_num6$ num146%=1:line14%=line14%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num151$="" �
��� num151$=week_num1$ � num151$=week_num2$ � num151$=week_num3$ � num151$=week_num4$ � num151$=week_num5$ � num151$=week_num6$ num151%=1:line15%=line15%+1
��� num152$=week_num1$ � num152$=week_num2$ � num152$=week_num3$ � num152$=week_num4$ � num152$=week_num5$ � num152$=week_num6$ num152%=1:line15%=line15%+1
��� num153$=week_num1$ � num153$=week_num2$ � num153$=week_num3$ � num153$=week_num4$ � num153$=week_num5$ � num153$=week_num6$ num153%=1:line15%=line15%+1
��� num154$=week_num1$ � num154$=week_num2$ � num154$=week_num3$ � num154$=week_num4$ � num154$=week_num5$ � num154$=week_num6$ num154%=1:line15%=line15%+1
ĝ� num155$=week_num1$ � num155$=week_num2$ � num155$=week_num3$ � num155$=week_num4$ � num155$=week_num5$ � num155$=week_num6$ num155%=1:line15%=line15%+1
Ν� num156$=week_num1$ � num156$=week_num2$ � num156$=week_num3$ � num156$=week_num4$ � num156$=week_num5$ � num156$=week_num6$ num156%=1:line15%=line15%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num161$="" �
�� num161$=week_num1$ � num161$=week_num2$ � num161$=week_num3$ � num161$=week_num4$ � num161$=week_num5$ � num161$=week_num6$ num161%=1:line16%=line16%+1
��� num162$=week_num1$ � num162$=week_num2$ � num162$=week_num3$ � num162$=week_num4$ � num162$=week_num5$ � num162$=week_num6$ num162%=1:line16%=line16%+1
�� num163$=week_num1$ � num163$=week_num2$ � num163$=week_num3$ � num163$=week_num4$ � num163$=week_num5$ � num163$=week_num6$ num163%=1:line16%=line16%+1
�� num164$=week_num1$ � num164$=week_num2$ � num164$=week_num3$ � num164$=week_num4$ � num164$=week_num5$ � num164$=week_num6$ num164%=1:line16%=line16%+1
�� num165$=week_num1$ � num165$=week_num2$ � num165$=week_num3$ � num165$=week_num4$ � num165$=week_num5$ � num165$=week_num6$ num165%=1:line16%=line16%+1
�� num166$=week_num1$ � num166$=week_num2$ � num166$=week_num3$ � num166$=week_num4$ � num166$=week_num5$ � num166$=week_num6$ num166%=1:line16%=line16%+1
(Z� ***************** Now I can see where I am (It's hard this is!) ********************
2� num171$="" �
<�� num171$=week_num1$ � num171$=week_num2$ � num171$=week_num3$ � num171$=week_num4$ � num171$=week_num5$ � num171$=week_num6$ num171%=1:line17%=line17%+1
F�� num172$=week_num1$ � num172$=week_num2$ � num172$=week_num3$ � num172$=week_num4$ � num172$=week_num5$ � num172$=week_num6$ num172%=1:line17%=line17%+1
P�� num173$=week_num1$ � num173$=week_num2$ � num173$=week_num3$ � num173$=week_num4$ � num173$=week_num5$ � num173$=week_num6$ num173%=1:line17%=line17%+1
Z�� num174$=week_num1$ � num174$=week_num2$ � num174$=week_num3$ � num174$=week_num4$ � num174$=week_num5$ � num174$=week_num6$ num174%=1:line17%=line17%+1
d�� num175$=week_num1$ � num175$=week_num2$ � num175$=week_num3$ � num175$=week_num4$ � num175$=week_num5$ � num175$=week_num6$ num175%=1:line17%=line17%+1
n�� num176$=week_num1$ � num176$=week_num2$ � num176$=week_num3$ � num176$=week_num4$ � num176$=week_num5$ � num176$=week_num6$ num176%=1:line17%=line17%+1
xZ� ***************** Now I can see where I am (It's hard this is!) ********************
�� num211$="" �
��� num211$=week_num1$ � num211$=week_num2$ � num211$=week_num3$ � num211$=week_num4$ � num211$=week_num5$ � num211$=week_num6$ num211%=1:line21%=line21%+1
��� num212$=week_num1$ � num212$=week_num2$ � num212$=week_num3$ � num212$=week_num4$ � num212$=week_num5$ � num212$=week_num6$ num212%=1:line21%=line21%+1
��� num213$=week_num1$ � num213$=week_num2$ � num213$=week_num3$ � num213$=week_num4$ � num213$=week_num5$ � num213$=week_num6$ num213%=1:line21%=line21%+1
��� num214$=week_num1$ � num214$=week_num2$ � num214$=week_num3$ � num214$=week_num4$ � num214$=week_num5$ � num214$=week_num6$ num214%=1:line21%=line21%+1
��� num215$=week_num1$ � num215$=week_num2$ � num215$=week_num3$ � num215$=week_num4$ � num215$=week_num5$ � num215$=week_num6$ num215%=1:line21%=line21%+1
��� num216$=week_num1$ � num216$=week_num2$ � num216$=week_num3$ � num216$=week_num4$ � num216$=week_num5$ � num216$=week_num6$ num216%=1:line21%=line21%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num221$="" �
ܝ� num221$=week_num1$ � num221$=week_num2$ � num221$=week_num3$ � num221$=week_num4$ � num221$=week_num5$ � num221$=week_num6$ num221%=1:line22%=line22%+1
�� num222$=week_num1$ � num222$=week_num2$ � num222$=week_num3$ � num222$=week_num4$ � num222$=week_num5$ � num222$=week_num6$ num222%=1:line22%=line22%+1
�� num223$=week_num1$ � num223$=week_num2$ � num223$=week_num3$ � num223$=week_num4$ � num223$=week_num5$ � num223$=week_num6$ num223%=1:line22%=line22%+1
��� num224$=week_num1$ � num224$=week_num2$ � num224$=week_num3$ � num224$=week_num4$ � num224$=week_num5$ � num224$=week_num6$ num224%=1:line22%=line22%+1
�� num225$=week_num1$ � num225$=week_num2$ � num225$=week_num3$ � num225$=week_num4$ � num225$=week_num5$ � num225$=week_num6$ num225%=1:line22%=line22%+1
�� num226$=week_num1$ � num226$=week_num2$ � num226$=week_num3$ � num226$=week_num4$ � num226$=week_num5$ � num226$=week_num6$ num226%=1:line22%=line22%+1
Z� ***************** Now I can see where I am (It's hard this is!) ********************
"� num231$="" �
,�� num231$=week_num1$ � num231$=week_num2$ � num231$=week_num3$ � num231$=week_num4$ � num231$=week_num5$ � num231$=week_num6$ num231%=1:line23%=line23%+1
6�� num232$=week_num1$ � num232$=week_num2$ � num232$=week_num3$ � num232$=week_num4$ � num232$=week_num5$ � num232$=week_num6$ num232%=1:line23%=line23%+1
@�� num233$=week_num1$ � num233$=week_num2$ � num233$=week_num3$ � num233$=week_num4$ � num233$=week_num5$ � num233$=week_num6$ num233%=1:line23%=line23%+1
J�� num234$=week_num1$ � num234$=week_num2$ � num234$=week_num3$ � num234$=week_num4$ � num234$=week_num5$ � num234$=week_num6$ num234%=1:line23%=line23%+1
T�� num235$=week_num1$ � num235$=week_num2$ � num235$=week_num3$ � num235$=week_num4$ � num235$=week_num5$ � num235$=week_num6$ num235%=1:line23%=line23%+1
^�� num236$=week_num1$ � num236$=week_num2$ � num236$=week_num3$ � num236$=week_num4$ � num236$=week_num5$ � num236$=week_num6$ num236%=1:line23%=line23%+1
hZ� ***************** Now I can see where I am (It's hard this is!) ********************
r� num241$="" �
|�� num241$=week_num1$ � num241$=week_num2$ � num241$=week_num3$ � num241$=week_num4$ � num241$=week_num5$ � num241$=week_num6$ num241%=1:line24%=line24%+1
��� num242$=week_num1$ � num242$=week_num2$ � num242$=week_num3$ � num242$=week_num4$ � num242$=week_num5$ � num242$=week_num6$ num242%=1:line24%=line24%+1
��� num243$=week_num1$ � num243$=week_num2$ � num243$=week_num3$ � num243$=week_num4$ � num243$=week_num5$ � num243$=week_num6$ num243%=1:line24%=line24%+1
��� num244$=week_num1$ � num244$=week_num2$ � num244$=week_num3$ � num244$=week_num4$ � num244$=week_num5$ � num244$=week_num6$ num244%=1:line24%=line24%+1
��� num245$=week_num1$ � num245$=week_num2$ � num245$=week_num3$ � num245$=week_num4$ � num245$=week_num5$ � num245$=week_num6$ num245%=1:line24%=line24%+1
��� num246$=week_num1$ � num246$=week_num2$ � num246$=week_num3$ � num246$=week_num4$ � num246$=week_num5$ � num246$=week_num6$ num246%=1:line24%=line24%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num251$="" �
̝� num251$=week_num1$ � num251$=week_num2$ � num251$=week_num3$ � num251$=week_num4$ � num251$=week_num5$ � num251$=week_num6$ num251%=1:line25%=line25%+1
֝� num252$=week_num1$ � num252$=week_num2$ � num252$=week_num3$ � num252$=week_num4$ � num252$=week_num5$ � num252$=week_num6$ num252%=1:line25%=line25%+1
�� num253$=week_num1$ � num253$=week_num2$ � num253$=week_num3$ � num253$=week_num4$ � num253$=week_num5$ � num253$=week_num6$ num253%=1:line25%=line25%+1
�� num254$=week_num1$ � num254$=week_num2$ � num254$=week_num3$ � num254$=week_num4$ � num254$=week_num5$ � num254$=week_num6$ num254%=1:line25%=line25%+1
�� num255$=week_num1$ � num255$=week_num2$ � num255$=week_num3$ � num255$=week_num4$ � num255$=week_num5$ � num255$=week_num6$ num255%=1:line25%=line25%+1
��� num256$=week_num1$ � num256$=week_num2$ � num256$=week_num3$ � num256$=week_num4$ � num256$=week_num5$ � num256$=week_num6$ num256%=1:line25%=line25%+1
Z� ***************** Now I can see where I am (It's hard this is!) ********************
� num261$="" �
�� num261$=week_num1$ � num261$=week_num2$ � num261$=week_num3$ � num261$=week_num4$ � num261$=week_num5$ � num261$=week_num6$ num261%=1:line26%=line26%+1
&�� num262$=week_num1$ � num262$=week_num2$ � num262$=week_num3$ � num262$=week_num4$ � num262$=week_num5$ � num262$=week_num6$ num262%=1:line26%=line26%+1
0�� num263$=week_num1$ � num263$=week_num2$ � num263$=week_num3$ � num263$=week_num4$ � num263$=week_num5$ � num263$=week_num6$ num263%=1:line26%=line26%+1
:�� num264$=week_num1$ � num264$=week_num2$ � num264$=week_num3$ � num264$=week_num4$ � num264$=week_num5$ � num264$=week_num6$ num264%=1:line26%=line26%+1
D�� num265$=week_num1$ � num265$=week_num2$ � num265$=week_num3$ � num265$=week_num4$ � num265$=week_num5$ � num265$=week_num6$ num265%=1:line26%=line26%+1
N�� num266$=week_num1$ � num266$=week_num2$ � num266$=week_num3$ � num266$=week_num4$ � num266$=week_num5$ � num266$=week_num6$ num266%=1:line26%=line26%+1
XZ� ***************** Now I can see where I am (It's hard this is!) ********************
b� num271$="" �
l�� num271$=week_num1$ � num271$=week_num2$ � num271$=week_num3$ � num271$=week_num4$ � num271$=week_num5$ � num271$=week_num6$ num271%=1:line27%=line27%+1
v�� num272$=week_num1$ � num272$=week_num2$ � num272$=week_num3$ � num272$=week_num4$ � num272$=week_num5$ � num272$=week_num6$ num272%=1:line27%=line27%+1
��� num273$=week_num1$ � num273$=week_num2$ � num273$=week_num3$ � num273$=week_num4$ � num273$=week_num5$ � num273$=week_num6$ num273%=1:line27%=line27%+1
��� num274$=week_num1$ � num274$=week_num2$ � num274$=week_num3$ � num274$=week_num4$ � num274$=week_num5$ � num274$=week_num6$ num274%=1:line27%=line27%+1
��� num275$=week_num1$ � num275$=week_num2$ � num275$=week_num3$ � num275$=week_num4$ � num275$=week_num5$ � num275$=week_num6$ num275%=1:line27%=line27%+1
��� num276$=week_num1$ � num276$=week_num2$ � num276$=week_num3$ � num276$=week_num4$ � num276$=week_num5$ � num276$=week_num6$ num276%=1:line27%=line27%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num311$="" �
��� num311$=week_num1$ � num311$=week_num2$ � num311$=week_num3$ � num311$=week_num4$ � num311$=week_num5$ � num311$=week_num6$ num311%=1:line31%=line31%+1
Ɲ� num312$=week_num1$ � num312$=week_num2$ � num312$=week_num3$ � num312$=week_num4$ � num312$=week_num5$ � num312$=week_num6$ num312%=1:line31%=line31%+1
Н� num313$=week_num1$ � num313$=week_num2$ � num313$=week_num3$ � num313$=week_num4$ � num313$=week_num5$ � num313$=week_num6$ num313%=1:line31%=line31%+1
ڝ� num314$=week_num1$ � num314$=week_num2$ � num314$=week_num3$ � num314$=week_num4$ � num314$=week_num5$ � num314$=week_num6$ num314%=1:line31%=line31%+1
�� num315$=week_num1$ � num315$=week_num2$ � num315$=week_num3$ � num315$=week_num4$ � num315$=week_num5$ � num315$=week_num6$ num315%=1:line31%=line31%+1
�� num316$=week_num1$ � num316$=week_num2$ � num316$=week_num3$ � num316$=week_num4$ � num316$=week_num5$ � num316$=week_num6$ num316%=1:line31%=line31%+1
�Y� **************** Now I can see where I am (It's hard this is!) ********************
� num321$="" �
�� num321$=week_num1$ � num321$=week_num2$ � num321$=week_num3$ � num321$=week_num4$ � num321$=week_num5$ � num321$=week_num6$ num321%=1:line32%=line32%+1
�� num322$=week_num1$ � num322$=week_num2$ � num322$=week_num3$ � num322$=week_num4$ � num322$=week_num5$ � num322$=week_num6$ num322%=1:line32%=line32%+1
�� num323$=week_num1$ � num323$=week_num2$ � num323$=week_num3$ � num323$=week_num4$ � num323$=week_num5$ � num323$=week_num6$ num323%=1:line32%=line32%+1
*�� num324$=week_num1$ � num324$=week_num2$ � num324$=week_num3$ � num324$=week_num4$ � num324$=week_num5$ � num324$=week_num6$ num324%=1:line32%=line32%+1
4�� num325$=week_num1$ � num325$=week_num2$ � num325$=week_num3$ � num325$=week_num4$ � num325$=week_num5$ � num325$=week_num6$ num325%=1:line32%=line32%+1
>�� num326$=week_num1$ � num326$=week_num2$ � num326$=week_num3$ � num326$=week_num4$ � num326$=week_num5$ � num326$=week_num6$ num326%=1:line32%=line32%+1
HZ� ***************** Now I can see where I am (It's hard this is!) ********************
R� num331$="" �
\�� num331$=week_num1$ � num331$=week_num2$ � num331$=week_num3$ � num331$=week_num4$ � num331$=week_num5$ � num331$=week_num6$ num331%=1:line33%=line33%+1
f�� num332$=week_num1$ � num332$=week_num2$ � num332$=week_num3$ � num332$=week_num4$ � num332$=week_num5$ � num332$=week_num6$ num332%=1:line33%=line33%+1
p�� num333$=week_num1$ � num333$=week_num2$ � num333$=week_num3$ � num333$=week_num4$ � num333$=week_num5$ � num333$=week_num6$ num333%=1:line33%=line33%+1
z�� num334$=week_num1$ � num334$=week_num2$ � num334$=week_num3$ � num334$=week_num4$ � num334$=week_num5$ � num334$=week_num6$ num334%=1:line33%=line33%+1
��� num335$=week_num1$ � num335$=week_num2$ � num335$=week_num3$ � num335$=week_num4$ � num335$=week_num5$ � num335$=week_num6$ num335%=1:line33%=line33%+1
��� num336$=week_num1$ � num336$=week_num2$ � num336$=week_num3$ � num336$=week_num4$ � num336$=week_num5$ � num336$=week_num6$ num336%=1:line33%=line33%+1
�Y� **************** Now I can see where I am (It's hard this is!) ********************
�� num341$="" �
��� num341$=week_num1$ � num341$=week_num2$ � num341$=week_num3$ � num341$=week_num4$ � num341$=week_num5$ � num341$=week_num6$ num341%=1:line34%=line34%+1
��� num342$=week_num1$ � num342$=week_num2$ � num342$=week_num3$ � num342$=week_num4$ � num342$=week_num5$ � num342$=week_num6$ num342%=1:line34%=line34%+1
��� num343$=week_num1$ � num343$=week_num2$ � num343$=week_num3$ � num343$=week_num4$ � num343$=week_num5$ � num343$=week_num6$ num343%=1:line34%=line34%+1
ʝ� num344$=week_num1$ � num344$=week_num2$ � num344$=week_num3$ � num344$=week_num4$ � num344$=week_num5$ � num344$=week_num6$ num344%=1:line34%=line34%+1
ԝ� num345$=week_num1$ � num345$=week_num2$ � num345$=week_num3$ � num345$=week_num4$ � num345$=week_num5$ � num345$=week_num6$ num345%=1:line34%=line34%+1
ޝ� num346$=week_num1$ � num346$=week_num2$ � num346$=week_num3$ � num346$=week_num4$ � num346$=week_num5$ � num346$=week_num6$ num346%=1:line34%=line34%+1
�Y� ***************** Now I can see whereI am (It's hard this is!) ********************
�� num351$="" �
��� num351$=week_num1$ � num351$=week_num2$ � num351$=week_num3$ � num351$=week_num4$ � num351$=week_num5$ � num351$=week_num6$ num351%=1:line35%=line35%+1
�� num352$=week_num1$ � num352$=week_num2$ � num352$=week_num3$ � num352$=week_num4$ � num352$=week_num5$ � num352$=week_num6$ num352%=1:line35%=line35%+1
�� num353$=week_num1$ � num353$=week_num2$ � num353$=week_num3$ � num353$=week_num4$ � num353$=week_num5$ � num353$=week_num6$ num353%=1:line35%=line35%+1
�� num354$=week_num1$ � num354$=week_num2$ � num354$=week_num3$ � num354$=week_num4$ � num354$=week_num5$ � num354$=week_num6$ num354%=1:line35%=line35%+1
$�� num355$=week_num1$ � num355$=week_num2$ � num355$=week_num3$ � num355$=week_num4$ � num355$=week_num5$ � num355$=week_num6$ num355%=1:line35%=line35%+1
.�� num356$=week_num1$ � num356$=week_num2$ � num356$=week_num3$ � num356$=week_num4$ � num356$=week_num5$ � num356$=week_num6$ num356%=1:line35%=line35%+1
8Z� ***************** Now I can see where I am (It's hard this is!) ********************
B� num361$="" �
L�� num361$=week_num1$ � num361$=week_num2$ � num361$=week_num3$ � num361$=week_num4$ � num361$=week_num5$ � num361$=week_num6$ num361%=1:line36%=line36%+1
V�� num362$=week_num1$ � num362$=week_num2$ � num362$=week_num3$ � num362$=week_num4$ � num362$=week_num5$ � num362$=week_num6$ num362%=1:line36%=line36%+1
`�� num363$=week_num1$ � num363$=week_num2$ � num363$=week_num3$ � num363$=week_num4$ � num363$=week_num5$ � num363$=week_num6$ num363%=1:line36%=line36%+1
j�� num364$=week_num1$ � num364$=week_num2$ � num364$=week_num3$ � num364$=week_num4$ � num364$=week_num5$ � num364$=week_num6$ num364%=1:line36%=line36%+1
t�� num365$=week_num1$ � num365$=week_num2$ � num365$=week_num3$ � num365$=week_num4$ � num365$=week_num5$ � num365$=week_num6$ num365%=1:line36%=line36%+1
~�� num366$=week_num1$ � num366$=week_num2$ � num366$=week_num3$ � num366$=week_num4$ � num366$=week_num5$ � num366$=week_num6$ num366%=1:line36%=line36%+1
�Z� ***************** Now I can see where I am (It's hard this is!) ********************
�� num371$="" �
��� num371$=week_num1$ � num371$=week_num2$ � num371$=week_num3$ � num371$=week_num4$ � num371$=week_num5$ � num371$=week_num6$ num371%=1:line37%=line37%+1
��� num372$=week_num1$ � num372$=week_num2$ � num372$=week_num3$ � num372$=week_num4$ � num372$=week_num5$ � num372$=week_num6$ num372%=1:line37%=line37%+1
��� num373$=week_num1$ � num373$=week_num2$ � num373$=week_num3$ � num373$=week_num4$ � num373$=week_num5$ � num373$=week_num6$ num373%=1:line37%=line37%+1
��� num374$=week_num1$ � num374$=week_num2$ � num374$=week_num3$ � num374$=week_num4$ � num374$=week_num5$ � num374$=week_num6$ num374%=1:line37%=line37%+1
ĝ� num375$=week_num1$ � num375$=week_num2$ � num375$=week_num3$ � num375$=week_num4$ � num375$=week_num5$ � num375$=week_num6$ num375%=1:line37%=line37%+1
Ν� num376$=week_num1$ � num376$=week_num2$ � num376$=week_num3$ � num376$=week_num4$ � num376$=week_num5$ � num376$=week_num6$ num376%=1:line37%=line37%+1
��
�:
�
��view
�
�match_up
{�line11:�line12:�line13:�line14:�line15:�line21:�line22:�line23:�line24:�line25:�line31:�line32:�line33:�line34:�line35
3�line16:�line17:�line26:�line27:�line36:�line37
searched%=1
�
(:
2��display_winners
<winners%=0:�view
F�� winners%=0 �write(weeksa%,23,"Bad luck."):�write(weeksa%,24,"No winning lines this week."):�write(weeksa%,27,""):�write(weeksa%,26,""):�write(weeksa%,25,"")
P@� winners%<>0 �write(weeksa%,23,"Congratulations. You have")
Z+� winners%<>0 �write(weeksa%,25,"here")
d+� winners%<>0 �write(weeksa%,27,"line")
n5� winners%<>0 �write(weeksa%,26,"winning lines.")
xN� winners%=1 �write(weeksa%,24,"1 winning line. Click to see")
�]� winners%>1 �write(weeksa%,24,""+�(winners%)+" winning lines. Click to see")
�!blk%=weeksa%
�"ș "Wimp_GetWindowState",,blk%
�blk%!28=-1
�ș "Wimp_OpenWindow",,blk%
�ș "Hourglass_Off"
� �write(maina%,11,"How_Well")
�=�write(maina%,12,"View Lines ("+�(winners%)+")"):�csheet1
��
�:
���line11
�$� line11%>=3 winners%=winners%+1
�1� num111$=week_num7$ � line11%=5 nums111$="B"
1� num112$=week_num7$ � line11%=5 nums112$="B"
1� num113$=week_num7$ � line11%=5 nums113$="B"
1� num114$=week_num7$ � line11%=5 nums114$="B"
"1� num115$=week_num7$ � line11%=5 nums115$="B"
,1� num116$=week_num7$ � line11%=5 nums116$="B"
6-� num111%=0 � nums111$<>"B" nums111$="--"
@-� num112%=0 � nums112$<>"B" nums112$="--"
J-� num113%=0 � nums113$<>"B" nums113$="--"
T-� num114%=0 � nums114$<>"B" nums114$="--"
^-� num115%=0 � nums115$<>"B" nums115$="--"
h-� num116%=0 � nums116$<>"B" nums116$="--"
r�
|:
���line12
�$� line12%>=3 winners%=winners%+1
�1� num121$=week_num7$ � line12%=5 nums121$="B"
�1� num122$=week_num7$ � line12%=5 nums122$="B"
�1� num123$=week_num7$ � line12%=5 nums123$="B"
�1� num124$=week_num7$ � line12%=5 nums124$="B"
�1� num125$=week_num7$ � line12%=5 nums125$="B"
�1� num126$=week_num7$ � line12%=5 nums126$="B"
�-� num121%=0 � nums121$<>"B" nums121$="--"
�-� num122%=0 � nums122$<>"B" nums122$="--"
�-� num123%=0 � nums123$<>"B" nums123$="--"
�-� num124%=0 � nums124$<>"B" nums124$="--"
�-� num125%=0 � nums125$<>"B" nums125$="--"
-� num126%=0 � nums126$<>"B" nums126$="--"
�
:
&��line13
0$� line13%>=3 winners%=winners%+1
:1� num131$=week_num7$ � line13%=5 nums131$="B"
D1� num132$=week_num7$ � line13%=5 nums132$="B"
N1� num133$=week_num7$ � line13%=5 nums133$="B"
X1� num134$=week_num7$ � line13%=5 nums134$="B"
b1� num135$=week_num7$ � line13%=5 nums135$="B"
l1� num136$=week_num7$ � line13%=5 nums136$="B"
v-� num131%=0 � nums131$<>"B" nums131$="--"
�-� num132%=0 � nums132$<>"B" nums132$="--"
�-� num133%=0 � nums133$<>"B" nums133$="--"
�-� num134%=0 � nums134$<>"B" nums134$="--"
�-� num135%=0 � nums135$<>"B" nums135$="--"
�-� num136%=0 � nums136$<>"B" nums136$="--"
��
�:
���line14
�$� line14%>=3 winners%=winners%+1
�1� num141$=week_num7$ � line14%=5 nums141$="B"
�1� num142$=week_num7$ � line14%=5 nums142$="B"
�1� num143$=week_num7$ � line14%=5 nums143$="B"
�1� num144$=week_num7$ � line14%=5 nums144$="B"
1� num145$=week_num7$ � line14%=5 nums145$="B"
1� num146$=week_num7$ � line14%=5 nums146$="B"
-� num141%=0 � nums141$<>"B" nums141$="--"
-� num142%=0 � nums142$<>"B" nums142$="--"
*-� num143%=0 � nums143$<>"B" nums143$="--"
4-� num144%=0 � nums144$<>"B" nums144$="--"
>-� num145%=0 � nums145$<>"B" nums145$="--"
H-� num146%=0 � nums146$<>"B" nums146$="--"
R�
\:
f��line15
p$� line15%>=3 winners%=winners%+1
z1� num151$=week_num7$ � line15%=5 nums151$="B"
�1� num152$=week_num7$ � line15%=5 nums152$="B"
�1� num153$=week_num7$ � line15%=5 nums153$="B"
�1� num154$=week_num7$ � line15%=5 nums154$="B"
�1� num155$=week_num7$ � line15%=5 nums155$="B"
�1� num156$=week_num7$ � line15%=5 nums156$="B"
�-� num151%=0 � nums151$<>"B" nums151$="--"
�-� num152%=0 � nums152$<>"B" nums152$="--"
�-� num153%=0 � nums153$<>"B" nums153$="--"
�-� num154%=0 � nums154$<>"B" nums154$="--"
�-� num155%=0 � nums155$<>"B" nums155$="--"
�-� num156%=0 � nums156$<>"B" nums156$="--"
��
�:
��line21
$� line21%>=3 winners%=winners%+1
1� num211$=week_num7$ � line21%=5 nums211$="B"
$1� num212$=week_num7$ � line21%=5 nums212$="B"
.1� num213$=week_num7$ � line21%=5 nums213$="B"
81� num214$=week_num7$ � line21%=5 nums214$="B"
B1� num215$=week_num7$ � line21%=5 nums215$="B"
L1� num216$=week_num7$ � line21%=5 nums216$="B"
V-� num211%=0 � nums211$<>"B" nums211$="--"
`-� num212%=0 � nums212$<>"B" nums212$="--"
j-� num213%=0 � nums213$<>"B" nums213$="--"
t-� num214%=0 � nums214$<>"B" nums214$="--"
~-� num215%=0 � nums215$<>"B" nums215$="--"
�-� num216%=0 � nums216$<>"B" nums216$="--"
��
�:
���line22
�$� line22%>=3 winners%=winners%+1
�1� num221$=week_num7$ � line22%=5 nums221$="B"
�1� num222$=week_num7$ � line22%=5 nums222$="B"
�1� num223$=week_num7$ � line22%=5 nums223$="B"
�1� num224$=week_num7$ � line22%=5 nums224$="B"
�1� num225$=week_num7$ � line22%=5 nums225$="B"
�1� num226$=week_num7$ � line22%=5 nums226$="B"
�-� num221%=0 � nums221$<>"B" nums221$="--"
-� num222%=0 � nums222$<>"B" nums222$="--"
-� num223%=0 � nums223$<>"B" nums223$="--"
-� num224%=0 � nums224$<>"B" nums224$="--"
-� num225%=0 � nums225$<>"B" nums225$="--"
(-� num226%=0 � nums226$<>"B" nums226$="--"
2�
<:
F��line23
P$� line23%>=3 winners%=winners%+1
Z1� num231$=week_num7$ � line23%=5 nums231$="B"
d1� num232$=week_num7$ � line23%=5 nums232$="B"
n1� num233$=week_num7$ � line23%=5 nums233$="B"
x1� num234$=week_num7$ � line23%=5 nums234$="B"
�1� num235$=week_num7$ � line23%=5 nums235$="B"
�1� num236$=week_num7$ � line23%=5 nums236$="B"
�-� num231%=0 � nums231$<>"B" nums231$="--"
�-� num232%=0 � nums232$<>"B" nums232$="--"
�-� num233%=0 � nums233$<>"B" nums233$="--"
�-� num234%=0 � nums234$<>"B" nums234$="--"
�-� num235%=0 � nums235$<>"B" nums235$="--"
�-� num236%=0 � nums236$<>"B" nums236$="--"
��
�:
���line24
�$� line24%>=3 winners%=winners%+1
�1� num241$=week_num7$ � line24%=5 nums241$="B"
1� num242$=week_num7$ � line24%=5 nums242$="B"
1� num243$=week_num7$ � line24%=5 nums243$="B"
1� num244$=week_num7$ � line24%=5 nums244$="B"
"1� num245$=week_num7$ � line24%=5 nums245$="B"
,0� num246$=week_num7$ � line24%=5 nums26$="B"
6-� num241%=0 � nums241$<>"B" nums241$="--"
@-� num242%=0 � nums242$<>"B" nums242$="--"
J-� num243%=0 � nums243$<>"B" nums243$="--"
T-� num244%=0 � nums244$<>"B" nums244$="--"
^-� num245%=0 � nums245$<>"B" nums245$="--"
h-� num246%=0 � nums246$<>"B" nums246$="--"
r�
|:
���line25
�$� line25%>=3 winners%=winners%+1
�1� num251$=week_num7$ � line25%=5 nums251$="B"
�1� num252$=week_num7$ � line25%=5 nums252$="B"
�1� num253$=week_num7$ � line25%=5 nums253$="B"
�1� num254$=week_num7$ � line25%=5 nums254$="B"
�1� num255$=week_num7$ � line25%=5 nums255$="B"
�1� num256$=week_num7$ � line25%=5 nums256$="B"
�-� num251%=0 � nums251$<>"B" nums251$="--"
�-� num252%=0 � nums252$<>"B" nums252$="--"
�-� num253%=0 � nums253$<>"B" nums253$="--"
�-� num254%=0 � nums254$<>"B" nums254$="--"
�-� num255%=0 � nums255$<>"B" nums255$="--"
-� num256%=0 � nums256$<>"B" nums256$="--"
�
:
&��line31
0$� line31%>=3 winners%=winners%+1
:1� num311$=week_num7$ � line31%=5 nums311$="B"
D1� num312$=week_num7$ � line31%=5 nums312$="B"
N1� num313$=week_num7$ � line31%=5 nums313$="B"
X1� num314$=week_num7$ � line31%=5 nums314$="B"
b1� num315$=week_num7$ � line31%=5 nums315$="B"
l1� num316$=week_num7$ � line31%=5 nums316$="B"
v-� num311%=0 � nums311$<>"B" nums311$="--"
�-� num312%=0 � nums312$<>"B" nums312$="--"
�-� num313%=0 � nums313$<>"B" nums313$="--"
�-� num314%=0 � nums314$<>"B" nums314$="--"
�-� num315%=0 � nums315$<>"B" nums315$="--"
�-� num316%=0 � nums316$<>"B" nums316$="--"
��
�:
���line32
�$� line32%>=3 winners%=winners%+1
�1� num321$=week_num7$ � line32%=5 nums321$="B"
�1� num322$=week_num7$ � line32%=5 nums322$="B"
�1� num323$=week_num7$ � line32%=5 nums323$="B"
�1� num324$=week_num7$ � line32%=5 nums324$="B"
!1� num325$=week_num7$ � line32%=5 nums325$="B"
!1� num326$=week_num7$ � line32%=5 nums326$="B"
!-� num321%=0 � nums321$<>"B" nums321$="--"
! -� num322%=0 � nums322$<>"B" nums322$="--"
!*-� num323%=0 � nums323$<>"B" nums323$="--"
!4-� num324%=0 � nums324$<>"B" nums324$="--"
!>-� num325%=0 � nums325$<>"B" nums325$="--"
!H-� num326%=0 � nums326$<>"B" nums326$="--"
!R�
!\:
!f��line33
!p$� line33%>=3 winners%=winners%+1
!z1� num331$=week_num7$ � line33%=5 nums331$="B"
!�1� num332$=week_num7$ � line33%=5 nums332$="B"
!�1� num333$=week_num7$ � line33%=5 nums333$="B"
!�1� num334$=week_num7$ � line33%=5 nums334$="B"
!�1� num335$=week_num7$ � line33%=5 nums335$="B"
!�1� num336$=week_num7$ � line33%=5 nums336$="B"
!�-� num331%=0 � nums331$<>"B" nums331$="--"
!�-� num332%=0 � nums332$<>"B" nums332$="--"
!�-� num333%=0 � nums333$<>"B" nums333$="--"
!�-� num334%=0 � nums334$<>"B" nums334$="--"
!�-� num335%=0 � nums335$<>"B" nums335$="--"
!�-� num336%=0 � nums336$<>"B" nums336$="--"
!��
!�:
"��line34
"$� line34%>=3 winners%=winners%+1
"1� num341$=week_num7$ � line34%=5 nums341$="B"
"$1� num342$=week_num7$ � line34%=5 nums342$="B"
".1� num343$=week_num7$ � line34%=5 nums343$="B"
"81� num344$=week_num7$ � line34%=5 nums344$="B"
"B1� num345$=week_num7$ � line34%=5 nums345$="B"
"L1� num346$=week_num7$ � line34%=5 nums346$="B"
"V-� num341%=0 � nums341$<>"B" nums341$="--"
"`-� num342%=0 � nums342$<>"B" nums342$="--"
"j-� num343%=0 � nums343$<>"B" nums343$="--"
"t-� num344%=0 � nums344$<>"B" nums344$="--"
"~-� num345%=0 � nums345$<>"B" nums345$="--"
"�-� num346%=0 � nums346$<>"B" nums346$="--"
"��
"�:
"���line35
"�$� line35%>=3 winners%=winners%+1
"�1� num351$=week_num7$ � line35%=5 nums351$="B"
"�1� num352$=week_num7$ � line35%=5 nums352$="B"
"�1� num353$=week_num7$ � line35%=5 nums353$="B"
"�1� num354$=week_num7$ � line35%=5 nums354$="B"
"�1� num355$=week_num7$ � line35%=5 nums355$="B"
"�1� num356$=week_num7$ � line35%=5 nums356$="B"
"�-� num351%=0 � nums351$<>"B" nums351$="--"
# -� num352%=0 � nums352$<>"B" nums352$="--"
#
-� num353%=0 � nums353$<>"B" nums353$="--"
#-� num354%=0 � nums354$<>"B" nums354$="--"
#-� num355%=0 � nums355$<>"B" nums355$="--"
#(-� num356%=0 � nums356$<>"B" nums356$="--"
#2�
#<:
#F��line16
#P$� line16%>=3 winners%=winners%+1
#Z1� num161$=week_num7$ � line16%=5 nums161$="B"
#d1� num162$=week_num7$ � line16%=5 nums162$="B"
#n1� num163$=week_num7$ � line16%=5 nums163$="B"
#x1� num164$=week_num7$ � line16%=5 nums164$="B"
#�1� num165$=week_num7$ � line16%=5 nums165$="B"
#�1� num166$=week_num7$ � line16%=5 nums166$="B"
#�-� num161%=0 � nums161$<>"B" nums161$="--"
#�-� num162%=0 � nums162$<>"B" nums162$="--"
#�-� num163%=0 � nums163$<>"B" nums163$="--"
#�-� num164%=0 � nums164$<>"B" nums164$="--"
#�-� num165%=0 � nums165$<>"B" nums165$="--"
#�-� num166%=0 � nums166$<>"B" nums166$="--"
#��
#�:
#���line26
#�$� line26%>=3 winners%=winners%+1
#�1� num261$=week_num7$ � line26%=5 nums261$="B"
$1� num262$=week_num7$ � line26%=5 nums262$="B"
$1� num263$=week_num7$ � line26%=5 nums263$="B"
$1� num264$=week_num7$ � line26%=5 nums264$="B"
$"1� num265$=week_num7$ � line26%=5 nums265$="B"
$,1� num266$=week_num7$ � line26%=5 nums266$="B"
$6-� num261%=0 � nums261$<>"B" nums261$="--"
$@-� num262%=0 � nums262$<>"B" nums262$="--"
$J-� num263%=0 � nums263$<>"B" nums263$="--"
$T-� num264%=0 � nums264$<>"B" nums264$="--"
$^-� num265%=0 � nums265$<>"B" nums265$="--"
$h-� num266%=0 � nums266$<>"B" nums266$="--"
$r�
$|:
$���line36
$�$� line36%>=3 winners%=winners%+1
$�1� num361$=week_num7$ � line36%=5 nums361$="B"
$�1� num362$=week_num7$ � line36%=5 nums362$="B"
$�1� num363$=week_num7$ � line36%=5 nums363$="B"
$�1� num364$=week_num7$ � line36%=5 nums364$="B"
$�1� num365$=week_num7$ � line36%=5 nums365$="B"
$�1� num366$=week_num7$ � line36%=5 nums366$="B"
$�-� num361%=0 � nums361$<>"B" nums361$="--"
$�-� num362%=0 � nums362$<>"B" nums362$="--"
$�-� num363%=0 � nums363$<>"B" nums363$="--"
$�-� num364%=0 � nums364$<>"B" nums364$="--"
$�-� num365%=0 � nums365$<>"B" nums365$="--"
%-� num366%=0 � nums366$<>"B" nums366$="--"
%�
%:
%&��line17
%0$� line17%>=3 winners%=winners%+1
%:1� num171$=week_num7$ � line17%=5 nums171$="B"
%D1� num172$=week_num7$ � line17%=5 nums172$="B"
%N1� num173$=week_num7$ � line17%=5 nums173$="B"
%X1� num174$=week_num7$ � line17%=5 nums174$="B"
%b1� num175$=week_num7$ � line17%=5 nums175$="B"
%l1� num176$=week_num7$ � line17%=5 nums176$="B"
%v-� num171%=0 � nums171$<>"B" nums171$="--"
%�-� num172%=0 � nums172$<>"B" nums172$="--"
%�-� num173%=0 � nums173$<>"B" nums173$="--"
%�-� num174%=0 � nums174$<>"B" nums174$="--"
%�-� num175%=0 � nums175$<>"B" nums175$="--"
%�-� num176%=0 � nums176$<>"B" nums176$="--"
%��
%�:
%���line27
%�$� line27%>=3 winners%=winners%+1
%�1� num271$=week_num7$ � line27%=5 nums271$="B"
%�1� num272$=week_num7$ � line27%=5 nums272$="B"
%�1� num273$=week_num7$ � line27%=5 nums273$="B"
%�1� num274$=week_num7$ � line27%=5 nums274$="B"
&1� num275$=week_num7$ � line27%=5 nums275$="B"
&1� num276$=week_num7$ � line27%=5 nums266$="B"
&-� num271%=0 � nums271$<>"B" nums271$="--"
& -� num272%=0 � nums272$<>"B" nums272$="--"
&*-� num273%=0 � nums273$<>"B" nums273$="--"
&4-� num274%=0 � nums274$<>"B" nums274$="--"
&>-� num275%=0 � nums275$<>"B" nums275$="--"
&H-� num276%=0 � nums276$<>"B" nums276$="--"
&R�
&\:
&f��line37
&p$� line37%>=3 winners%=winners%+1
&z1� num371$=week_num7$ � line37%=5 nums371$="B"
&�1� num372$=week_num7$ � line37%=5 nums372$="B"
&�1� num373$=week_num7$ � line37%=5 nums373$="B"
&�1� num374$=week_num7$ � line37%=5 nums374$="B"
&�1� num375$=week_num7$ � line37%=5 nums375$="B"
&�1� num376$=week_num7$ � line37%=5 nums376$="B"
&�-� num371%=0 � nums371$<>"B" nums371$="--"
&�-� num372%=0 � nums372$<>"B" nums372$="--"
&�-� num373%=0 � nums373$<>"B" nums373$="--"
&�-� num374%=0 � nums374$<>"B" nums374$="--"
&�-� num375%=0 � nums375$<>"B" nums375$="--"
&�-� num376%=0 � nums376$<>"B" nums376$="--"
&��
&�:
'��numbers_picked1
'key%=blk%!24
'� key%<>13 �
'$Ȏ blk%!4 �
'.9� 6:�pos_key(7):num111$=�read(numbersa%,6):altered%=1
'89� 7:�pos_key(8):num112$=�read(numbersa%,7):altered%=1
'B9� 8:�pos_key(9):num113$=�read(numbersa%,8):altered%=1
'L:� 9:�pos_key(10):num114$=�read(numbersa%,9):altered%=1
'V<� 10:�pos_key(11):num115$=�read(numbersa%,10):altered%=1
'`<� 11:�pos_key(14):num116$=�read(numbersa%,11):altered%=1
'j<� 14:�pos_key(15):num121$=�read(numbersa%,14):altered%=1
't<� 15:�pos_key(16):num122$=�read(numbersa%,15):altered%=1
'~<� 16:�pos_key(17):num123$=�read(numbersa%,16):altered%=1
'�<� 17:�pos_key(18):num124$=�read(numbersa%,17):altered%=1
'�<� 18:�pos_key(19):num125$=�read(numbersa%,18):altered%=1
'�<� 19:�pos_key(22):num126$=�read(numbersa%,19):altered%=1
'�<� 22:�pos_key(23):num131$=�read(numbersa%,22):altered%=1
'�<� 23:�pos_key(24):num132$=�read(numbersa%,23):altered%=1
'�<� 24:�pos_key(25):num133$=�read(numbersa%,24):altered%=1
'�<� 25:�pos_key(26):num134$=�read(numbersa%,25):altered%=1
'�<� 26:�pos_key(27):num135$=�read(numbersa%,26):altered%=1
'�<� 27:�pos_key(30):num136$=�read(numbersa%,27):altered%=1
'�<� 30:�pos_key(31):num141$=�read(numbersa%,30):altered%=1
'�<� 31:�pos_key(32):num142$=�read(numbersa%,31):altered%=1
'�<� 32:�pos_key(33):num143$=�read(numbersa%,32):altered%=1
( <� 33:�pos_key(34):num144$=�read(numbersa%,33):altered%=1
(
<� 34:�pos_key(35):num145$=�read(numbersa%,34):altered%=1
(<� 35:�pos_key(38):num146$=�read(numbersa%,35):altered%=1
(<� 38:�pos_key(39):num151$=�read(numbersa%,38):altered%=1
((<� 39:�pos_key(40):num152$=�read(numbersa%,39):altered%=1
(2<� 40:�pos_key(41):num153$=�read(numbersa%,40):altered%=1
(<<� 41:�pos_key(42):num154$=�read(numbersa%,41):altered%=1
(F<� 42:�pos_key(43):num155$=�read(numbersa%,42):altered%=1
(P<� 43:�pos_key(46):num156$=�read(numbersa%,43):altered%=1
(Z<� 46:�pos_key(47):num161$=�read(numbersa%,46):altered%=1
(d<� 47:�pos_key(48):num162$=�read(numbersa%,47):altered%=1
(n<� 48:�pos_key(49):num163$=�read(numbersa%,48):altered%=1
(x<� 49:�pos_key(50):num164$=�read(numbersa%,49):altered%=1
(�<� 50:�pos_key(51):num165$=�read(numbersa%,50):altered%=1
(�<� 51:�pos_key(54):num166$=�read(numbersa%,51):altered%=1
(�<� 54:�pos_key(55):num171$=�read(numbersa%,54):altered%=1
(�<� 55:�pos_key(56):num172$=�read(numbersa%,55):altered%=1
(�<� 56:�pos_key(57):num173$=�read(numbersa%,56):altered%=1
(�<� 57:�pos_key(58):num174$=�read(numbersa%,57):altered%=1
(�<� 58:�pos_key(59):num175$=�read(numbersa%,58):altered%=1
(�;� 59:�pos_key(6):num176$=�read(numbersa%,59):altered%=1
(��
(��
(�:
(���numbers_picked2
(�key%=blk%!24
)� key%<>13 �
)Ȏ blk%!4 �
)9� 6:�pos_key(7):num211$=�read(numbersa%,6):altered%=1
)"9� 7:�pos_key(8):num212$=�read(numbersa%,7):altered%=1
),9� 8:�pos_key(9):num213$=�read(numbersa%,8):altered%=1
)6:� 9:�pos_key(10):num214$=�read(numbersa%,9):altered%=1
)@<� 10:�pos_key(11):num215$=�read(numbersa%,10):altered%=1
)J<� 11:�pos_key(14):num216$=�read(numbersa%,11):altered%=1
)T<� 14:�pos_key(15):num221$=�read(numbersa%,14):altered%=1
)^<� 15:�pos_key(16):num222$=�read(numbersa%,15):altered%=1
)h<� 16:�pos_key(17):num223$=�read(numbersa%,16):altered%=1
)r<� 17:�pos_key(18):num224$=�read(numbersa%,17):altered%=1
)|<� 18:�pos_key(19):num225$=�read(numbersa%,18):altered%=1
)�<� 19:�pos_key(22):num226$=�read(numbersa%,19):altered%=1
)�<� 22:�pos_key(23):num231$=�read(numbersa%,22):altered%=1
)�<� 23:�pos_key(24):num232$=�read(numbersa%,23):altered%=1
)�<� 24:�pos_key(25):num233$=�read(numbersa%,24):altered%=1
)�<� 25:�pos_key(26):num234$=�read(numbersa%,25):altered%=1
)�<� 26:�pos_key(27):num235$=�read(numbersa%,26):altered%=1
)�<� 27:�pos_key(30):num236$=�read(numbersa%,27):altered%=1
)�<� 30:�pos_key(31):num241$=�read(numbersa%,30):altered%=1
)�<� 31:�pos_key(32):num242$=�read(numbersa%,31):altered%=1
)�<� 32:�pos_key(33):num243$=�read(numbersa%,32):altered%=1
)�<� 33:�pos_key(34):num244$=�read(numbersa%,33):altered%=1
)�<� 34:�pos_key(35):num245$=�read(numbersa%,34):altered%=1
)�<� 35:�pos_key(38):num246$=�read(numbersa%,35):altered%=1
*<� 38:�pos_key(39):num251$=�read(numbersa%,38):altered%=1
*<� 39:�pos_key(40):num252$=�read(numbersa%,39):altered%=1
*<� 40:�pos_key(41):num253$=�read(numbersa%,40):altered%=1
*&<� 41:�pos_key(42):num254$=�read(numbersa%,41):altered%=1
*0<� 42:�pos_key(43):num255$=�read(numbersa%,42):altered%=1
*:<� 43:�pos_key(46):num256$=�read(numbersa%,43):altered%=1
*D<� 46:�pos_key(47):num261$=�read(numbersa%,46):altered%=1
*N<� 47:�pos_key(48):num262$=�read(numbersa%,47):altered%=1
*X<� 48:�pos_key(49):num263$=�read(numbersa%,48):altered%=1
*b<� 49:�pos_key(50):num264$=�read(numbersa%,49):altered%=1
*l<� 50:�pos_key(51):num265$=�read(numbersa%,50):altered%=1
*v<� 51:�pos_key(54):num266$=�read(numbersa%,51):altered%=1
*�<� 54:�pos_key(55):num271$=�read(numbersa%,54):altered%=1
*�<� 55:�pos_key(56):num272$=�read(numbersa%,55):altered%=1
*�<� 56:�pos_key(57):num273$=�read(numbersa%,56):altered%=1
*�<� 57:�pos_key(58):num274$=�read(numbersa%,57):altered%=1
*�<� 58:�pos_key(59):num275$=�read(numbersa%,58):altered%=1
*�;� 59:�pos_key(6):num276$=�read(numbersa%,59):altered%=1
*��
*��
*�:
*���numbers_picked3
*�key%=blk%!24
*�� key%<>13 �
*�Ȏ blk%!4 �
+9� 6:�pos_key(7):num311$=�read(numbersa%,6):altered%=1
+9� 7:�pos_key(8):num312$=�read(numbersa%,7):altered%=1
+9� 8:�pos_key(9):num313$=�read(numbersa%,8):altered%=1
+ :� 9:�pos_key(10):num314$=�read(numbersa%,9):altered%=1
+*<� 10:�pos_key(11):num315$=�read(numbersa%,10):altered%=1
+4<� 11:�pos_key(14):num316$=�read(numbersa%,11):altered%=1
+><� 14:�pos_key(15):num321$=�read(numbersa%,14):altered%=1
+H<� 15:�pos_key(16):num322$=�read(numbersa%,15):altered%=1
+R<� 16:�pos_key(17):num323$=�read(numbersa%,16):altered%=1
+\<� 17:�pos_key(18):num324$=�read(numbersa%,17):altered%=1
+f<� 18:�pos_key(19):num325$=�read(numbersa%,18):altered%=1
+p<� 19:�pos_key(22):num326$=�read(numbersa%,19):altered%=1
+z<� 22:�pos_key(23):num331$=�read(numbersa%,22):altered%=1
+�<� 23:�pos_key(24):num332$=�read(numbersa%,23):altered%=1
+�<� 24:�pos_key(25):num333$=�read(numbersa%,24):altered%=1
+�<� 25:�pos_key(26):num334$=�read(numbersa%,25):altered%=1
+�<� 26:�pos_key(27):num335$=�read(numbersa%,26):altered%=1
+�<� 27:�pos_key(30):num336$=�read(numbersa%,27):altered%=1
+�<� 30:�pos_key(31):num341$=�read(numbersa%,30):altered%=1
+�<� 31:�pos_key(32):num342$=�read(numbersa%,31):altered%=1
+�<� 32:�pos_key(33):num343$=�read(numbersa%,32):altered%=1
+�<� 33:�pos_key(34):num344$=�read(numbersa%,33):altered%=1
+�<� 34:�pos_key(35):num345$=�read(numbersa%,34):altered%=1
+�<� 35:�pos_key(38):num346$=�read(numbersa%,35):altered%=1
+�<� 38:�pos_key(39):num351$=�read(numbersa%,38):altered%=1
+�<� 39:�pos_key(40):num352$=�read(numbersa%,39):altered%=1
,<� 40:�pos_key(41):num353$=�read(numbersa%,40):altered%=1
,<� 41:�pos_key(42):num354$=�read(numbersa%,41):altered%=1
,<� 42:�pos_key(43):num355$=�read(numbersa%,42):altered%=1
,$<� 43:�pos_key(46):num356$=�read(numbersa%,43):altered%=1
,.<� 46:�pos_key(47):num361$=�read(numbersa%,46):altered%=1
,8<� 47:�pos_key(48):num362$=�read(numbersa%,47):altered%=1
,B<� 48:�pos_key(49):num363$=�read(numbersa%,48):altered%=1
,L<� 49:�pos_key(50):num364$=�read(numbersa%,49):altered%=1
,V<� 50:�pos_key(51):num365$=�read(numbersa%,50):altered%=1
,`<� 51:�pos_key(54):num366$=�read(numbersa%,51):altered%=1
,j<� 54:�pos_key(55):num371$=�read(numbersa%,54):altered%=1
,t<� 55:�pos_key(56):num372$=�read(numbersa%,55):altered%=1
,~<� 56:�pos_key(57):num373$=�read(numbersa%,56):altered%=1
,�<� 57:�pos_key(58):num374$=�read(numbersa%,57):altered%=1
,�<� 58:�pos_key(59):num375$=�read(numbersa%,58):altered%=1
,�;� 59:�pos_key(6):num376$=�read(numbersa%,59):altered%=1
,��
,��
,�:
,���pos_key(i%)
,�2ș "Wimp_SetCaretPosition",numbersa%,i%,,,-1,0
,��
,�:
,���clear_variables
,��num111$="":num112$="":num113$="":num114$="":num115$="":num116$="":num121$="":num122$="":num123$="":num124$="":num125$="":num126$="":num131$="":num132$="":num133$="":num134$="":num135$="":num136$=""
- �num141$="":num142$="":num143$="":num144$="":num145$="":num146$="":num151$="":num152$="":num153$="":num154$="":num155$="":num156$=""
-
�num211$="":num212$="":num213$="":num214$="":num215$="":num216$="":num221$="":num222$="":num223$="":num224$="":num225$="":num226$="":num231$="":num232$="":num233$="":num234$="":num235$="":num236$=""
-�num241$="":num242$="":num243$="":num244$="":num245$="":num246$="":num251$="":num252$="":num253$="":num254$="":num255$="":num256$=""
-�num311$="":num312$="":num313$="":num314$="":num315$="":num316$="":num321$="":num322$="":num323$="":num324$="":num325$="":num326$="":num331$="":num332$="":num333$="":num334$="":num335$="":num336$=""
-(�num341$="":num342$="":num343$="":num344$="":num345$="":num346$="":num351$="":num352$="":num353$="":num354$="":num355$="":num356$=""
-2�num161$="":num162$="":num163$="":num164$="":num165$="":num166$="":num171$="":num172$="":num173$="":num174$="":num175$="":num176$=""
-<�num261$="":num262$="":num263$="":num264$="":num265$="":num266$="":num271$="":num272$="":num273$="":num274$="":num275$="":num276$=""
-F�num361$="":num362$="":num363$="":num364$="":num365$="":num366$="":num371$="":num372$="":num373$="":num374$="":num375$="":num376$=""
-P�
-Z:
-d��clear_other_variables
-n�num111%=0:num112%=0:num113%=0:num114%=0:num115%=0:num116%=0:num121%=0:num122%=0:num123%=0:num124%=0:num125%=0:num126%=0:num131%=0:num132%=0:num133%=0:num134%=0:num135%=0:num136%=0
-x{num141%=0:num142%=0:num143%=0:num144%=0:num145%=0:num146%=0:num151%=0:num152%=0:num153%=0:num154%=0:num155%=0:num156%=0
-��num211%=0:num212%=0:num213%=0:num214%=0:num215%=0:num216%=0:num221%=0:num222%=0:num223%=0:num224%=0:num225%=0:num226%=0:num231%=0:num232%=0:num233%=0:num234%=0:num235%=0:num236%=0
-�{num241%=0:num242%=0:num243%=0:num244%=0:num245%=0:num246%=0:num251%=0:num252%=0:num253%=0:num254%=0:num255%=0:num256%=0
-��num311%=0:num312%=0:num313%=0:num314%=0:num315%=0:num316%=0:num321%=0:num322%=0:num323%=0:num324%=0:num325%=0:num326%=0:num331%=0:num332%=0:num333%=0:num334%=0:num335%=0:num336%=0
-�{num341%=0:num342%=0:num343%=0:num344%=0:num345%=0:num346%=0:num351%=0:num352%=0:num353%=0:num354%=0:num355%=0:num356%=0
-�{num161%=0:num162%=0:num163%=0:num164%=0:num165%=0:num166%=0:num171%=0:num172%=0:num173%=0:num174%=0:num175%=0:num176%=0
-�{num261%=0:num262%=0:num263%=0:num264%=0:num265%=0:num266%=0:num271%=0:num272%=0:num273%=0:num274%=0:num275%=0:num276%=0
-�{num361%=0:num362%=0:num363%=0:num364%=0:num365%=0:num366%=0:num371%=0:num372%=0:num373%=0:num374%=0:num375%=0:num376%=0
-��
-�:
-�
��dragged
-�� type%,load_name$
-�type%=blk%!40
-�� type%<>&04B �
.sure%=1
.�� altered%=1 ș "Wimp_ReportError"," National Lotter numbers have altered but not saved. Are you sure you wish to load a new file?",27,"Error from Lottery Check" � ,sure%
.� sure%<>1 �
."altered%=0
.,,�change_title(numbersa%,"Lottery Lines")
.6,load_name$=�get_name_string(blk%+44,255)
.@�clear_variables
.J
loaded%=1
.Tfile%=�(load_name$)
.^�write(savea%,2,load_name$)
.h�write(weeksa%,14,"")
.r�write(weeksa%,16,"")
.|�write(weeksa%,17,"")
.��#file%,num111$
.��#file%,num112$
.��#file%,num113$
.��#file%,num114$
.��#file%,num115$
.��#file%,num116$
.��#file%,num121$
.�&� num121$="tednE eiD" num121$="":�
.��#file%,num122$
.��#file%,num123$
.��#file%,num124$
.��#file%,num125$
.��#file%,num126$
/�#file%,num131$
/&� num131$="tednE eiD" num131$="":�
/�#file%,num132$
/&�#file%,num133$
/0�#file%,num134$
/:�#file%,num135$
/D�#file%,num136$
/N�#file%,num141$
/X&� num141$="tednE eiD" num141$="":�
/b�#file%,num142$
/l�#file%,num143$
/v�#file%,num144$
/��#file%,num145$
/��#file%,num146$
/��#file%,num151$
/�&� num151$="tednE eiD" num151$="":�
/��#file%,num152$
/��#file%,num153$
/��#file%,num154$
/��#file%,num155$
/��#file%,num156$
/��#file%,num161$
/�&� num161$="tednE eiD" num161$="":�
/��#file%,num162$
/��#file%,num163$
0�#file%,num164$
0�#file%,num165$
0�#file%,num166$
0 �#file%,num171$
0*&� num171$="tednE eiD" num171$="":�
04�#file%,num172$
0>�#file%,num173$
0H�#file%,num174$
0R�#file%,num175$
0\�#file%,num176$
0f�#file%,num211$
0p&� num211$="tednE eiD" num211$="":�
0z�#file%,num212$
0��#file%,num213$
0��#file%,num214$
0��#file%,num215$
0��#file%,num216$
0��#file%,num221$
0�&� num221$="tednE eiD" num221$="":�
0��#file%,num222$
0��#file%,num223$
0��#file%,num224$
0��#file%,num225$
0��#file%,num226$
0��#file%,num231$
0�&� num231$="tednE eiD" num231$="":�
1�#file%,num232$
1�#file%,num233$
1�#file%,num234$
1$�#file%,num235$
1.�#file%,num236$
18�#file%,num241$
1B&� num241$="tednE eiD" num241$="":�
1L�#file%,num242$
1V�#file%,num243$
1`�#file%,num244$
1j�#file%,num245$
1t�#file%,num246$
1~�#file%,num251$
1�&� num251$="tednE eiD" num251$="":�
1��#file%,num252$
1��#file%,num253$
1��#file%,num254$
1��#file%,num255$
1��#file%,num256$
1��#file%,num261$
1�&� num261$="tednE eiD" num261$="":�
1��#file%,num262$
1��#file%,num263$
1��#file%,num264$
1��#file%,num265$
2 �#file%,num266$
2
�#file%,num271$
2&� num271$="tednE eiD" num271$="":�
2�#file%,num272$
2(�#file%,num273$
22�#file%,num274$
2<�#file%,num275$
2F�#file%,num276$
2P�#file%,num311$
2Z&� num311$="tednE eiD" num311$="":�
2d�#file%,num312$
2n�#file%,num313$
2x�#file%,num314$
2��#file%,num315$
2��#file%,num316$
2��#file%,num321$
2�&� num321$="tednE eiD" num321$="":�
2��#file%,num322$
2��#file%,num323$
2��#file%,num324$
2��#file%,num325$
2��#file%,num326$
2��#file%,num331$
2�&� num331$="tednE eiD" num331$="":�
2��#file%,num332$
2��#file%,num333$
3�#file%,num334$
3�#file%,num335$
3�#file%,num336$
3"�#file%,num341$
3,&� num341$="tednE eiD" num341$="":�
36�#file%,num342$
3@�#file%,num343$
3J�#file%,num344$
3T�#file%,num345$
3^�#file%,num346$
3h�#file%,num351$
3r&� num351$="tednE eiD" num351$="":�
3|�#file%,num352$
3��#file%,num353$
3��#file%,num354$
3��#file%,num355$
3��#file%,num356$
3��#file%,num361$
3�&� num361$="tednE eiD" num361$="":�
3��#file%,num362$
3��#file%,num363$
3��#file%,num364$
3��#file%,num365$
3��#file%,num366$
3��#file%,num371$
3�&� num371$="tednE eiD" num371$="":�
4�#file%,num372$
4�#file%,num373$
4�#file%,num374$
4&�#file%,num375$
40�#file%,num376$
4:�
4D:
4N
��clicked
4X� type%,load_name$
4btype%=blk%!40
4l� type%<>&04B �
4vsure%=1
4��� altered%=1 ș "Wimp_ReportError"," National Lotter numbers have altered but not saved. Are you sure you wish to load a new file?",27,"Error from Lottery Check" � ,sure%
4�� sure%<>1 �
4�,�change_title(numbersa%,"Lottery Lines")
4�altered%=0
4�,load_name$=�get_name_string(blk%+44,255)
4��clear_variables
4�
loaded%=1
4�file%=�(load_name$)
4��write(savea%,2,load_name$)
4��write(savea%,2,load_name$)
4��write(weeksa%,14,"")
4��write(weeksa%,16,"")
4��write(weeksa%,17,"")
5�#file%,num111$
5�#file%,num112$
5�#file%,num113$
5 �#file%,num114$
5*�#file%,num115$
54�#file%,num116$
5>�#file%,num121$
5H&� num121$="tednE eiD" num121$="":�
5R�#file%,num122$
5\�#file%,num123$
5f�#file%,num124$
5p�#file%,num125$
5z�#file%,num126$
5��#file%,num131$
5�&� num131$="tednE eiD" num131$="":�
5��#file%,num132$
5��#file%,num133$
5��#file%,num134$
5��#file%,num135$
5��#file%,num136$
5��#file%,num141$
5�&� num141$="tednE eiD" num141$="":�
5��#file%,num142$
5��#file%,num143$
5��#file%,num144$
5��#file%,num145$
6�#file%,num146$
6�#file%,num151$
6&� num151$="tednE eiD" num151$="":�
6$�#file%,num152$
6.�#file%,num153$
68�#file%,num154$
6B�#file%,num155$
6L�#file%,num156$
6V�#file%,num161$
6`&� num161$="tednE eiD" num161$="":�
6j�#file%,num162$
6t�#file%,num163$
6~�#file%,num164$
6��#file%,num165$
6��#file%,num166$
6��#file%,num171$
6�&� num171$="tednE eiD" num171$="":�
6��#file%,num172$
6��#file%,num173$
6��#file%,num174$
6��#file%,num175$
6��#file%,num176$
6��#file%,num211$
6�&� num211$="tednE eiD" num211$="":�
6��#file%,num212$
7 �#file%,num213$
7
�#file%,num214$
7�#file%,num215$
7�#file%,num216$
7(�#file%,num221$
72&� num221$="tednE eiD" num221$="":�
7<�#file%,num222$
7F�#file%,num223$
7P�#file%,num224$
7Z�#file%,num225$
7d�#file%,num226$
7n�#file%,num231$
7x&� num231$="tednE eiD" num231$="":�
7��#file%,num232$
7��#file%,num233$
7��#file%,num234$
7��#file%,num235$
7��#file%,num236$
7��#file%,num241$
7�&� num241$="tednE eiD" num241$="":�
7��#file%,num242$
7��#file%,num243$
7��#file%,num244$
7��#file%,num245$
7��#file%,num246$
7��#file%,num251$
8&� num251$="tednE eiD" num251$="":�
8�#file%,num252$
8�#file%,num253$
8"�#file%,num254$
8,�#file%,num255$
86�#file%,num256$
8@�#file%,num261$
8J&� num261$="tednE eiD" num261$="":�
8T�#file%,num262$
8^�#file%,num263$
8h�#file%,num264$
8r�#file%,num265$
8|�#file%,num266$
8��#file%,num271$
8�&� num271$="tednE eiD" num271$="":�
8��#file%,num272$
8��#file%,num273$
8��#file%,num274$
8��#file%,num275$
8��#file%,num276$
8��#file%,num311$
8�&� num311$="tednE eiD" num311$="":�
8��#file%,num312$
8��#file%,num313$
8��#file%,num314$
8��#file%,num315$
9�#file%,num316$
9�#file%,num321$
9&� num321$="tednE eiD" num321$="":�
9&�#file%,num322$
90�#file%,num323$
9:�#file%,num324$
9D�#file%,num325$
9N�#file%,num326$
9X�#file%,num331$
9b&� num331$="tednE eiD" num331$="":�
9l�#file%,num332$
9v�#file%,num333$
9��#file%,num334$
9��#file%,num335$
9��#file%,num336$
9��#file%,num341$
9�&� num341$="tednE eiD" num341$="":�
9��#file%,num342$
9��#file%,num343$
9��#file%,num344$
9��#file%,num345$
9��#file%,num346$
9��#file%,num351$
9�&� num351$="tednE eiD" num351$="":�
9��#file%,num352$
:�#file%,num353$
:�#file%,num354$
:�#file%,num355$
: �#file%,num356$
:*�#file%,num361$
:4&� num361$="tednE eiD" num361$="":�
:>�#file%,num362$
:H�#file%,num363$
:R�#file%,num364$
:\�#file%,num365$
:f�#file%,num366$
:p�#file%,num371$
:z&� num371$="tednE eiD" num371$="":�
:��#file%,num372$
:��#file%,num373$
:��#file%,num374$
:��#file%,num375$
:��#file%,num376$
:��
:�:
:���write_in_data1
:��write(numbersa%,6,num111$)
:��write(numbersa%,7,num112$)
:��write(numbersa%,8,num113$)
:��write(numbersa%,9,num114$)
:� �write(numbersa%,10,num115$)
; �write(numbersa%,11,num116$)
; �write(numbersa%,14,num121$)
; �write(numbersa%,15,num122$)
;$ �write(numbersa%,16,num123$)
;. �write(numbersa%,17,num124$)
;8 �write(numbersa%,18,num125$)
;B �write(numbersa%,19,num126$)
;L �write(numbersa%,22,num131$)
;V �write(numbersa%,23,num132$)
;` �write(numbersa%,24,num133$)
;j �write(numbersa%,25,num134$)
;t �write(numbersa%,26,num135$)
;~ �write(numbersa%,27,num136$)
;� �write(numbersa%,30,num141$)
;� �write(numbersa%,31,num142$)
;� �write(numbersa%,32,num143$)
;� �write(numbersa%,33,num144$)
;� �write(numbersa%,34,num145$)
;� �write(numbersa%,35,num146$)
;� �write(numbersa%,38,num151$)
;� �write(numbersa%,39,num152$)
;� �write(numbersa%,40,num153$)
;� �write(numbersa%,41,num154$)
;� �write(numbersa%,42,num155$)
;� �write(numbersa%,43,num156$)
<