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$) <