StarInfo/Allison/!Lottery/!RunImage

Home » Archimedes archive » Acorn User » AU 1995-07.adf » !Regulars_Regulars » StarInfo/Allison/!Lottery/!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 » Acorn User » AU 1995-07.adf » !Regulars_Regulars
Filename:	StarInfo/Allison/!Lottery/!RunImage
Read OK:	✔
File size:	5AC7 bytes
Load address:	0000
Exec address:	0000

File contents

   10                          PROCWimp_Start("lottery",4431,1485)
   20                           PROCUser_SetInitialData
   30                           PROCCreate_Windows
   40                           PROCCreate_Menus
   50                           PROCUser_DrawStatsWindow
   60                           PROCWimp_WaitForEvent
   70                           PROCWimp_CloseDown
   80                           END
   90       DEF PROCUser_SetInitialData
  100file$="<Obey$Dir>.Syndicate"
  110PROCUser_FileData(file$)
  120Weeks%=250
  130Row3%=0:Row4%=0:Row5%=0:Row6%=0:Bonus%=0:H%=0
  140Fast%=FALSE:L%=FALSE:Mult%=100:Tick%=TRUE:AddToFile%=FALSE
  150DIM R%(6),Stat%(54)
  160       ENDPROC
  170       DEF PROCCreate_Windows
  180                  Info_Window%=FNWimp_WindowLoad("Info")
  190                 mainw_Window%=FNWimp_WindowLoad("mainw")
  200               resultw_Window%=FNWimp_WindowLoad("resultw")
  210                 Stats_Window%=FNWimp_WindowLoad("Stats")
  220                     Bar_Icon%=FNWimp_IconBar("!lottery")
  230       ENDPROC
  240        DEF FNEvent_Save(window%)=FALSE
  250        DEF FNEvent_Sprites(window%)=sprites%
  260       DEF PROCCreate_Menus
  270menu$="!Lottery\Info>Info_Window%\Statistics>Stats_Window%\Quit"
  280 Bar_Menu%=FNWimp_MenuCreate(menu$)
  290 Main_Menu%=FNWimp_MenuCreate("Choices\Display\Entries Num.\Statistics>Stats_Window%\Add Data")
  300 Sub_Menu%=FNWimp_MenuCreate("Entries\100")
  310PROCWimp_MenuGlue(Main_Menu%,2,Sub_Menu%)
  320PROCWimp_MenuTick(Main_Menu%,1)
  330         BufferLength%=12
  340         DIM buffer% BufferLength%,val% BufferLength%
  350         $val%="A0-9"
  360         $buffer%=STR$(Mult%)
  370         PROCWimp_MenuWrite(Sub_Menu%,1,buffer%,val%,BufferLength%)
  380       ENDPROC
  390        DEF FNEvent_Menu(window%)
  400        CASE window% OF
  410         WHEN Bar_Window%        : =Bar_Menu%
  420         WHEN mainw_Window%       : =Main_Menu%
  430         OTHERWISE               : =FALSE
  440        ENDCASE
  450       DEF PROCEvent_WindowClose(window%,buttons%)
  460       CASE window% OF
  470       ENDCASE
  480       ENDPROC
  490       DEF PROCEvent_Draw(window%,x_origin%,y_origin%)
  500       CASE window% OF
  510        WHEN Info_Window%        : PROCUser_DrawInfoWindow
  520        WHEN mainw_Window%       : PROCUser_DrawmainwWindow
  530        WHEN resultw_Window%     : PROCUser_DrawresultwWindow
  540        WHEN Stats_Window%       : PROCUser_DrawStatsWindow
  550       ENDCASE
  560       ENDPROC
  570             DEF PROCUser_DrawInfoWindow
  580             ENDPROC
  590             DEF PROCUser_DrawmainwWindow
  600             ENDPROC
  610Z%=VAL(LEFT$(A$,K%-1))
  620Stat%(Z%)+=1
  630A$=MID$(A$,K%+1)
  640NEXT
  650Z%=VAL(A$)
  660Stat%(Z%)+=1
  670             DEF PROCUser_DrawresultwWindow
  680             ENDPROC
  690             DEF PROCUser_DrawStatsWindow
  700LOCAL I%,J%,K%,L%
  710channel%=OPENIN("<Obey$Dir>.History")
  720I%=0
  730REPEAT
  740I%+=1
  750A$=GET$#channel%
  760FOR J%=1 TO 6
  770K%=INSTR(A$,",")
  780Stat%(VAL(LEFT$(A$,K%-1)))+=1
  790A$=MID$(A$,K%+1)
  800NEXT
  810Stat%(VAL(LEFT$(A$,K%-1)))+=1
  820UNTIL EOF#channel%
  830CLOSE#channel%
  840B$="Frequency table for Lottery Draw numbers over "+STR$(I%)+" weeks"
  850PROCWimp_IconPutText(Stats_Window%,108,B$)
  860FOR J%=1 TO 97 STEP 2
  870PROCWimp_IconPutText(Stats_Window%,J%,STR$(Stat%((J%+1)/2)))
  880NEXT
  890FOR J%=0 TO 4
  900L%=0
  910FOR K%=1 TO 9
  920L%=L%+ Stat%((J%*10)+K%)
  930NEXT
  940Stat%(J%+50)=L%
  950NEXT
  960FOR J%=99 TO 107 STEP 2
  970PROCWimp_IconPutText(Stats_Window%,J%,STR$(Stat%((J%+1)/2)))
  980NEXT
  990             ENDPROC
 1000       DEF PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
 1010       CASE window% OF
 1020        WHEN Bar_Window%        : PROCWimp_WindowBringToTop(mainw_Window%):PROCWimp_IconCaret(mainw_Window%,0,0)
 1030        WHEN Info_Window%       : PROCUser_MouseInfo( button%,icon%)
 1040        WHEN mainw_Window%      : PROCUser_Mousemainw( button%,icon%)
 1050        WHEN resultw_Window%    : PROCUser_Mouseresultw( button%,icon%)
 1060       ENDCASE
 1070       ENDPROC
 1080         DEF PROCUser_MouseInfo( button%,icon%)
 1090          PROCWimp_WindowAlert("Info","Mouse button="+STR$button%+"icon="+STR$icon%)
 1100         ENDPROC
 1110         DEF PROCUser_Mousemainw( button%,icon%)
 1120CASE icon% OF
 1130     WHEN 9 :PROCReset:PROCUser_Calculate:PROCUser_Display:PROCWimp_WindowBringToTop(resultw_Window%)
 1140     WHEN 8 :PROCUser_Random
 1150     WHEN 11:PROCUser_Hundred
 1160ENDCASE
 1170         ENDPROC
 1180         DEF PROCUser_Mouseresultw( button%,icon%)
 1190          PROCWimp_WindowAlert("resultw","Mouse button="+STR$button%+"icon="+STR$icon%)
 1200         ENDPROC
 1210       DEF PROCEvent_KeyPress(window%,icon%,key%)
 1220          CASE window% OF
 1230           WHEN mainw_Window%      : PROCUser_KeyPressmainw( icon%,key%)
 1240          ENDCASE
 1250       ENDPROC
 1260         DEF PROCUser_KeyPressmainw( icon%,key%)
 1270CASE icon% OF
 1280WHEN 0:IF key%=13 PROCWimp_IconCaret(mainw_Window%,1,0):AddToFile%=TRUE
 1290WHEN 1:IF key%=13 PROCWimp_IconCaret(mainw_Window%,2,0)
 1300WHEN 2:IF key%=13 PROCWimp_IconCaret(mainw_Window%,3,0)
 1310WHEN 3:IF key%=13 PROCWimp_IconCaret(mainw_Window%,4,0)
 1320WHEN 4:IF key%=13 PROCWimp_IconCaret(mainw_Window%,5,0)
 1330WHEN 5:IF key%=13 PROCWimp_IconCaret(mainw_Window%,6,0)
 1340WHEN 6:IF key%=13 PROCReset:PROCUser_Calculate:PROCUser_Display:PROCWimp_WindowBringToTop(resultw_Window%)
 1350ENDCASE
 1360         ENDPROC
 1370       DEF PROCEvent_MenuChoice(menu%)
 1380        CASE menu% OF
 1390              WHEN Bar_Menu%          : PROCUser_MenuChoiceBar
 1400              WHEN Main_Menu%         : PROCUser_MenuChoiceMain
 1410        ENDCASE
 1420       ENDPROC
 1430       DEF PROCUser_MenuChoiceBar
 1440        CASE FNWimp_MenuChoice(0) OF
 1450         WHEN 1
 1460         WHEN 3 :PROCFinish
 1470        ENDCASE
 1480       ENDPROC
 1490       DEF PROCUser_MenuChoiceMain
 1500        CASE FNWimp_MenuChoice(0) OF
 1510         WHEN 1 :Fast%=NOT Fast%:Tick%=NOT Tick%:PROCWimp_MenuTick(Main_Menu%,1)
 1520         WHEN 2 :PROCUser_MenuChoiceSub
 1530         WHEN 4 :IF AddToFile%=TRUE IF FNWimp_WindowCancel("!Lottery","Add numbers to database ?") THEN PROCupdate_database:AddToFile%=FALSE
 1540        ENDCASE
 1550       ENDPROC
 1560       DEF PROCUser_MenuChoiceSub
 1570       CASE FNWimp_MenuChoice(1) OF
 1580         WHEN 1 :Mult%=VAL($buffer%)
 1590                :A$="Random "+STR$(Mult%)+" Entries"
 1600                :PROCWimp_IconPutText(mainw_Window%,11,A$)
 1610       ENDCASE
 1620       ENDPROC
 1630       DEF PROCEvent_LoadFile(file$,type$)
 1640CASE type$ OF
 1650  WHEN "Text" : PROCUser_FileData(file$):File_Loaded%=TRUE:PROCWimp_WindowBringToTop(mainw_Window%):PROCWimp_IconCaret(mainw_Window%,0,0)
 1660 ENDCASE
 1670       ENDPROC
 1680       DEF PROCEvent_SaveFile(file$,window%)
 1690       ENDPROC
 1700DEF PROCUser_Random
 1710REPEAT
 1720Flag%=0
 1730FOR I%=0 TO 6
 1740R%(I%)=RND(49)
 1750NEXT
 1760FOR I%=1 TO 6
 1770J%=I%
 1780REPEAT
 1790J%-=1
 1800IF R%(I%)=R%(J%) Flag%=1
 1810UNTIL J%=0
 1820NEXT
 1830UNTIL Flag%=0
 1840IF L% ENDPROC
 1850FOR I%=0 TO 6
 1860PROCWimp_IconPutText(mainw_Window%,I%,STR$(R%(I%)))
 1870NEXT
 1880AddToFile%=FALSE
 1890ENDPROC
 1900DEF PROCUser_Calculate
 1910IF H%=0 PROCi
 1920FOR I%=1 TO SynN%
 1930Match%=0
 1940FOR J%=0 TO 5
 1950FOR K%=1 TO 6
 1960IF Lines%(K%,I%)=R%(J%) THEN Match%+=1
 1970NEXT
 1980NEXT
 1990CASE Match% OF
 2000WHEN 3 :Row3%+=1
 2010WHEN 4 :Row4%+=1
 2020WHEN 5 :PROCBonus
 2030WHEN 6 :Row6%+=1
 2040ENDCASE
 2050NEXT
 2060ENDPROC
 2070DEF PROCBonus
 2080M%=Bonus%
 2090FOR L%=1 TO 6
 2100IF Lines%(L%,I%)=R%(6) THEN Bonus%+=1
 2110NEXT
 2120IF M%=Bonus% THEN Row5%+=1
 2130ENDPROC
 2140DEF PROCUser_Display
 2150IF (Row3%+Row4%+Row5%+Row6%+Bonus%=0) AND H%=0 THEN PROCWimp_IconPutText(resultw_Window%,2,"No Prizes this week..."):ENDPROC
 2160IF Row3%>0 THEN A$=STR$(Row3%)+" prize for 3 matching numbers":PROCWimp_IconPutText(resultw_Window%,0,A$)
 2170IF Row4%>0 THEN A$=STR$(Row4%)+" prize for 4 matching numbers":PROCWimp_IconPutText(resultw_Window%,1,A$)
 2180IF Row5%>0 THEN A$=STR$(Row5%)+" prize for 5 matching numbers":PROCWimp_IconPutText(resultw_Window%,2,A$)
 2190IF Row6%>0 THEN A$=STR$(Row6%)+" Jackpot !!!!!!":PROCWimp_IconPutText(resultw_Window%,4,A$)
 2200IF Bonus%>0 THEN A$=STR$(Bonus%)+" prize for 5 matching numbers plus Bonus Ball":PROCWimp_IconPutText(resultw_Window%,3,A$)
 2210ENDPROC
 2220DEF PROCReset
 2230Row3%=0:Row4%=0:Row5%=0:Row6%=0:Bonus%=0
 2240FOR I%=0 TO 4
 2250PROCWimp_IconPutText(resultw_Window%,I%,"")
 2260NEXT
 2270ENDPROC
 2280DEF PROCUser_Hundred
 2290H%=1
 2300SYS"Hourglass_On"
 2310IF Fast% L%=TRUE
 2320PROCWimp_WindowBringToTop(resultw_Window%)
 2330PROCReset
 2340FOR Q%=1 TO Mult%
 2350PROCUser_Random
 2360PROCUser_Calculate
 2370IF L%=FALSE PROCUser_Display
 2380NEXT
 2390PROCUser_Display
 2400H%=0:L%=FALSE
 2410SYS"Hourglass_Off"
 2420AddToFile%=FALSE
 2430ENDPROC
 2440DEF PROCUser_FileData(file$)
 2450channel%=OPENIN(file$)
 2460A$=GET$#channel%
 2470SynN%=VAL(A$)
 2480DIM Lines%(6,SynN%)
 2490FOR I%=1 TO SynN%
 2500A$=GET$#channel%
 2510FOR J%=1 TO 5
 2520K%=INSTR(A$,",")
 2530Lines%(J%,I%)=VAL(LEFT$(A$,K%-1))
 2540A$=MID$(A$,K%+1)
 2550NEXT
 2560Lines%(6,I%)=VAL(A$)
 2570NEXT
 2580CLOSE#channel%
 2590ENDPROC
 2600DEF PROCi
 2610FOR I%=0 TO 6
 2620R%(I%)=VAL(FNWimp_IconText(mainw_Window%,I%))
 2630NEXT
 2640ENDPROC
 2650DEFPROCFinish
 2660IF AddToFile%=TRUE IF FNWimp_WindowCancel("!Lottery","Add numbers to database ?") THEN PROCupdate_database:finished%=TRUE ELSE finished%=TRUE
 2670ENDPROC
 2680DEF PROCupdate_database
 2690F%=OPENUP("<Obey$Dir>.History")
 2700PTR#F%=EXT#F%
 2710B$=""
 2720FOR W%=0 TO 6
 2730B$=B$+STR$(R%(W%))+","
 2740NEXT
 2750B$=LEFT$(B$)
 2760BPUT#F%,B$
 2770CLOSE#F%
 2780AddToFile%=FALSE
 2790FOR I%=0TO54:Stat%(I%)=0:NEXT
 2800PROCUser_DrawStatsWindow
 2810ENDPROC
 2820DEF PROCWimp_WindowAlert(title$,message$)
 2830PROCWimp_WindowAlertBox(title$,message$,0)
 2840ENDPROC
 2850DEF PROCWimp_WindowAlertBox(title$,message$,button%)
 2860LOCAL response%
 2870$(wimp%+4)=message$
 2880CASE button% OF
 2890 WHEN 2    : response%=1
 2900 WHEN 1    : response%=15
 2910 WHEN 3    : response%=(1<<5)+16
 2920 WHEN 4    : response%=(1<<6)+16
 2930OTHERWISE : response%=16
 2940ENDCASE
 2950SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
 2960ENDPROC
 2970DEF FNWimp_WindowCancel(title$,message$)
 2980$(wimp%+4)=message$
 2990response%=23
 3000SYS "Wimp_ReportError",wimp%,response%,title$ TO ,response%
 3010=response%-2
 3020DEF PROCWimp_WindowErrorBox(title$,message$)
 3030PROCWimp_WindowAlertBox(title$,message$,2)
 3040ENDPROC
 3050DEF FNWimp_WindowTitle(window%)
 3060wimp%!0=window%
 3070SYS "Wimp_GetWindInfo",,wimp%
 3080IF ((wimp%!60)AND&100)=0 ERROR 1,"Title isn't indirected"
 3090=$(wimp%!76)
 3100DEF FNWimp_WindowLoad(window$)
 3110=FNWimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
 3120DEF FNWimp_WindowLoadFrom(window$,template$)
 3130LOCAL c%,i%,n%,j%,sp$,sp2$
 3140SYS "Wimp_OpenTemplate",,template$
 3150SYS "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 TO ,,icons%
 3160CASE sprites% OF
 3170 WHEN 1    : wimp%!64=sprites%
 3180 OTHERWISE : wimp%!64=FNEvent_Sprites(window%)
 3190ENDCASE
 3200SYS "Wimp_CreateWindow",,wimp% TO c%
 3210SYS "Wimp_CloseTemplate"
 3220SYS "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
 3230CASE wimp%!40 OF
 3240 WHEN -1
 3250 OTHERWISE : i%=40
 3260 REPEAT
 3270   wimp%!4=wimp%!i% : wimp%!0=c%
 3280   SYS "Wimp_GetIconState",,wimp%
 3290   sp$=FNWimp_GetStringAtAddress(wimp%!28)
 3300   SYS "Wimp_DeleteIcon",,wimp%
 3310   CASE sprites% OF
 3320    WHEN 1    : wimp%!32=1
 3330    OTHERWISE
 3340     SYS "OS_SpriteOp",&108,sprites% TO ,,,n%
 3350     j%=0
 3360     REPEAT : j%+=1
 3370      SYS "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
 3380      sp2$=FNWimp_GetStringAtAddress(pointer_block%)
 3390     UNTIL j%=n% OR sp$=sp2$
 3400     IF sp$=sp2$ THEN wimp%!32=sprites% ELSE wimp%!32=1
 3410   ENDCASE
 3420   wimp%!4=c%
 3430   SYS "Wimp_CreateIcon",,wimp%+4 TO handle%
 3440   i%+=4
 3450 UNTIL (wimp%!i%)=-1
 3460ENDCASE
 3470=c%
 3480DEF PROCWimp_WindowBringToTop(window%)
 3490!wimp%=window%
 3500SYS "Wimp_GetWindowState",,wimp%
 3510wimp%!28=-1
 3520SYS "Wimp_OpenWindow",,wimp%
 3530ENDPROC
 3540DEF PROCWimp_WindowClose(window%)
 3550!wimp%=window%
 3560SYS "Wimp_CloseWindow",,wimp%
 3570ENDPROC
 3580DEF PROCWimp_WindowForceDraw(window%)
 3590CASE window% OF
 3600 WHEN -1   : SYS "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
 3610 OTHERWISE : SYS "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
 3620ENDCASE
 3630ENDPROC
 3640DEF PROCWimp_WindowOpen(window%)
 3650!wimp%=window%
 3660SYS "Wimp_GetWindowState",,wimp%
 3670SYS "Wimp_OpenWindow",,wimp%
 3680ENDPROC
 3690PROCWimp_WindowInterface
 3700SYS"Wimp_BorderWindow",,wimp%
 3710ENDPROC
 3720DEF FNWimp_IconBar(Sprite$)
 3730LOCAL icon%
 3740wimp%!0=-1
 3750wimp%!4=0     : wimp%!8=0
 3760wimp%!12=68 : wimp%!16=68
 3770wimp%!20=&3002
 3780$(wimp%+24)=Sprite$
 3790SYS "Wimp_CreateIcon",,wimp% TO icon%
 3800=icon%
 3810DEF PROCWimp_IconCaret(window%,icon%,chars%)
 3820SYS "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
 3830ENDPROC
 3840DEF FNWimp_IconText(window%,icon%)
 3850wimp%!0=window% : wimp%!4=icon%
 3860SYS "Wimp_GetIconState",,wimp%
 3870IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
 3880=$(wimp%!28)
 3890DEF FNWimp_IconValidation(window%,icon%)
 3900wimp%!0=window% : wimp%!4=icon%
 3910SYS "Wimp_GetIconState",,wimp%
 3920IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
 3930=$(wimp%!32)
 3940DEF PROCWimp_IconDisable(window%,icon%)
 3950wimp%!0=window% : wimp%!4=icon%
 3960wimp%!8=1<<22   : wimp%!12=1<<22
 3970SYS "Wimp_SetIconState",,wimp%
 3980ENDPROC
 3990DEF PROCWimp_IconEnable(window%,icon%)
 4000wimp%!0=window% : wimp%!4=icon%
 4010wimp%!8=0       : wimp%!12=1<<22
 4020SYS "Wimp_SetIconState",,wimp%
 4030ENDPROC
 4040DEF FNWimp_IconPutSprite(window%,icon%,sprite$)
 4050wimp%!0=window%:wimp%!4=icon%
 4060SYS "Wimp_GetIconState",,wimp%
 4070SYS "Wimp_DeleteIcon",,wimp%
 4080wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
 4090wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
 4100SYS "Wimp_CreateIcon",,wimp% TO icon%
 4110=icon%
 4120DEF PROCWimp_IconPutText(window%,icon%,text$)
 4130wimp%!0=window% : wimp%!4=icon%
 4140SYS "Wimp_GetIconState",,wimp%
 4150IF ((wimp%!24) AND &100)=0 ERROR 1,"Icon isn't indirected"
 4160$(wimp%!28)=text$
 4170wimp%!0=window% : wimp%!4=icon%
 4180wimp%!8=0 : wimp%!12=0
 4190SYS "Wimp_SetIconState",,wimp%
 4200ENDPROC
 4210DEF PROCWimp_IconInterfaceStart
 4220SYS"Wimp_BorderIcon",,wimp%
 4230ENDPROC
 4240DEF PROCWimp_IconInterfaceFinish
 4250wimp%!8=0
 4260SYS"Wimp_BorderIcon",,wimp%
 4270ENDPROC
 4280DEF PROCWimp_MenuAdjustOn(menu%)
 4290SYS "Wimp_GetPointerInfo",,pointer_block%
 4300IF ((pointer_block%!8)AND1)=1 THEN SYS "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
 4310ENDPROC
 4320DEF FNWimp_MenuChoice(level%)
 4330=(wimp%!(4*level%))+1
 4340DEF FNWimp_MenuCreate(menu$)
 4350IF menu$="Colours" THEN=FNWimp_MenuColours
 4360LOCAL menu%,index%,width%,length%,k%,s%
 4370DIM menu% 28+FNWimp_MenuNoOfEntries(menu$)*24
 4380menu%?12=7   : menu%?13=2  : menu%?14=7 :menu%?15=0
 4390menu%!16=140 : menu%!20=44 : menu%!24=0
 4400index%=menu%+28
 4410$menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
 4420width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
 4430menu$+="\" : Menu_NoOfEntries%=0
 4440WHILE menu$<>""
 4450menu$=MID$(menu$,INSTR(menu$,"\")+1)
 4460CASE menu$ OF
 4470 WHEN ""
 4480 OTHERWISE
 4490  !index%=0 : index%!4=-1 : index%!8=&7000021
 4500  length%=INSTR(menu$,"\")-1
 4510  k%=INSTR(LEFT$(menu$,length%),">")
 4520  CASE k% OF
 4530   WHEN 0
 4540   OTHERWISE
 4550    s%=EVAL(MID$(menu$,k%+1,length%-k%))
 4560    index%!4=s%
 4570    length%=k%-1
 4580  ENDCASE
 4590  $(index%+12)=LEFT$(menu$,length%)
 4600  IF length%>width% THEN width%=length%
 4610  index%+=24
 4620ENDCASE
 4630ENDWHILE
 4640menu%!16=16*(width%+1)
 4650index%!-24=index%!-24 OR &80 : =menu%
 4660DEF FNWimp_MenuColours
 4670=FNWimp_MenuCreateColours(" ")
 4680DEF FNWimp_MenuCreateColours(title$)
 4690LOCAL x$,men%,j%,i%
 4700x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
 4710men%=FNWimp_MenuCreate(x$)
 4720FOR i%=0 TO 15
 4730CASE TRUE OF
 4740WHEN i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
 4750OTHERWISE : j%=0
 4760ENDCASE
 4770men%?(39+i%*24)=i%*16+j%
 4780PROCWimp_MenuCentre(men%,i%+1)
 4790NEXT
 4800=men%
 4810DEF FNWimp_MenuNoOfEntries(menu$)
 4820LOCAL n% ,j% : n%=0 : j%=0
 4830REPEAT
 4840j%=INSTR(menu$,"\",j%+1)
 4850IF j%<>0 THEN n%+=1
 4860UNTIL j%=0
 4870=n%
 4880DEF PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
 4890LOCAL fore%,i%
 4900fore%=(menu%?(39+(item%-1)*24))MOD16
 4910i%=((menu%?(39+(item%-1)*24))DIV16)MOD16
 4920menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
 4930ENDPROC
 4940DEF PROCWimp_MenuCentre(menu%,item%)
 4950menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<3)
 4960ENDPROC
 4970DEF PROCWimp_MenuClose
 4980SYS "Wimp_CreateMenu",-1
 4990ENDPROC
 5000DEF PROCWimp_MenuDisable(menu%,item%)
 5010menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<22)
 5020ENDPROC
 5030DEF PROCWimp_MenuDottedLine(menu%,item%)
 5040menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR2
 5050ENDPROC
 5060DEF PROCWimp_MenuEnable(menu%,item%)
 5070PROCWimp_MenuDisable(menu%,item%)
 5080menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)EOR(1<<22)
 5090ENDPROC
 5100DEF PROCWimp_MenuForegroundColour(menu%,item%,colour%)
 5110menu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))DIV16)
 5120ENDPROC
 5130DEF PROCWimp_MenuGlue(menu1%,item%,menu2%)
 5140menu1%!(8+item%*24)=menu2%
 5150ENDPROC
 5160DEF PROCWimp_MenuItem(menu%,item%,item$)
 5170$(menu%+(40+(item%-1)*24))=LEFT$(item$,12)+CHR$0
 5180ENDPROC
 5190DEF PROCWimp_MenuMessage(menu%,item%)
 5200menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR(1<<3)
 5210ENDPROC
 5220DEF PROCWimp_MenuPopUp(Menu%,x%,y%)
 5230menu%=Menu%
 5240SYS "Wimp_CreateMenu",,menu%,x%-64,y%+20
 5250ENDPROC
 5260DEF PROCWimp_MenuPopUpBar(x%,y%)
 5270LOCAL n% : n%=0
 5280WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
 5290n%+=1
 5300ENDWHILE
 5310SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,140+n%*44
 5320menu%=Bar_Menu%
 5330ENDPROC
 5340DEF PROCWimp_MenuTick(menu%,item%)
 5350menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR1
 5360ENDPROC
 5370DEF PROCWimp_MenuTitle(menu%,title$)
 5380$menu%=LEFT$(title$,12)+CHR$0
 5390ENDPROC
 5400DEF PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
 5410menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR4
 5420menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR&100
 5430menu%!(40+(item%-1)*24)=buffer%
 5440menu%!(44+(item%-1)*24)=val%
 5450menu%!(48+(item%-1)*24)=BufferLength%
 5460ENDPROC
 5470DEF PROCWimp_SpritesLoad
 5480PROCWimp_SpritesPathLoad("<Obey$Dir>.Sprites")
 5490direct_sprites%=sprites%
 5500ENDPROC
 5510DEF PROCWimp_SpritesPathLoad(pathname$)
 5520LOCALS%,T%
 5530S%=OPENIN"<Obey$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
 5540DIMsprites%T%,spname%12
 5550!sprites%=T%:sprites%!8=0
 5560SYS"OS_SpriteOp",&109,sprites%
 5570SYS"OS_SpriteOp",&10A,sprites%,pathname$
 5580ENDPROC
 5590DEF FNWimp_FileType(type%)
 5600CASEtype%OF
 5610WHEN&FFF:="Text"
 5620WHEN&FFD:="Data"
 5630WHEN&FFB:="Basic"
 5640WHEN&FF9:="Sprite"
 5650WHEN&FED:="Palette"
 5660WHEN&FEC:="Template"
 5670WHEN&AFF:="Draw"
 5680WHEN&1000:="Folder"
 5690WHEN&2000:="Application"
 5700OTHERWISE=STR$~(type%)
 5710ENDCASE
 5720DEF FNWimp_GetFilePathName
 5730=FNWimp_GetStringAtAddress(wimp%+44)
 5740DEF FNWimp_FileLoad(pathname$)
 5750LOCALS%,T%,file%
 5760S%=OPENINpathname$
 5770T%=EXT#S%+16
 5780CLOSE#S%
 5790DIMfile%T%
 5800OSCLI("LOAD"+pathname$+""+STR$~file%)
 5810=file%
 5820DEF FNWimp_GetStringAtAddress(array%)
 5830LOCALs$:s$=""
 5840WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE
 5850=s$
 5860DEF FNWimp_GetFileFromPathname(f$)
 5870CASE INSTR(f$,".") OF
 5880 WHEN 0    :=f$
 5890 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
 5900ENDCASE
 5910DEF PROCWimp_SendToEdit(file$)
 5920LOCAL n%
 5930wimp%!4=&6CC01C0C
 5940wimp%!16=5
 5950wimp%!36=0
 5960wimp%!40=&FFF
 5970$(wimp%+44)=file$+CHR$0
 5980n%=LENfile$+45
 5990IF n%MOD4 THEN !wimp%=4+(n%>>2)<<2 ELSE !wimp%=n%
 6000SYS "Wimp_SendMessage",17,wimp%,0
 6010ENDPROC
 6020DEF PROCWimp_Start(TaskName$,wimp_memory%,icon%)
 6030DIM wimp% wimp_memory%,icons% icon%
 6040IF wimp_memory%<256 THEN wimp_memory%=256
 6050icon_memory%=icons%+icon%
 6060task$=TaskName$
 6070indirect_sprites%=1 : direct_sprites%=1
 6080PROCWimp_SetEventVariables
 6090ON ERROR PROCWimp_Error:END
 6100SYS"Wimp_Initialise",200,&4B534154,TaskName$ TO version%,task%
 6110ENDPROC
 6120DEF FNWimp_BASICParameters
 6130 LOCAL com$,param$,I%
 6140 SYS "OS_GetEnv" TO com$
 6150 params$=""
 6160 I%=INSTR(com$," -quit ")
 6170 IF I% THEN params$=MID$(com$,INSTR(com$," ",I%+LEN" -quit ")+1)
 6180=params$
 6190DEF PROCWimp_SetEventVariables
 6200DIM pointer_block% 20
 6210interface%=FALSE
 6220null%=1  :draw%=2 :  pointer_leaving%=1<<4
 6230pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
 6240key%=1<<8:menu%=1<<9:scroll%=1<<10
 6250lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
 6260recorder%=1<<18:acknowledge%=1<<19:window%=0
 6270sprites%=1:version%=0:task%=0
 6280Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
 6290x_origin%=0:y_origin%=0:SaveWindow%=-3
 6300message_quit%=0:message_save%=2:message_load%=3
 6310mouse_button%=2:save_event%=0
 6320top_line%=0 : bottom_line%=0
 6330ENDPROC
 6340DEF PROCWimp_Error
 6350LOCALX$,x%
 6360ON ERROR OFF
 6370x%=ERL
 6380X$=REPORT$+"atline"+STR$(x%DIV10)
 6390DIMErrorMsg%36
 6400ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
 6410$(ErrorMsg%+24)="!RunImage"
 6420SYS"Wimp_SendMessage",17,ErrorMsg%
 6430PROCWimp_WindowAlert(task$,X$)
 6440PROCWimp_CloseDown
 6450ENDPROC
 6460DEF PROCWimp_CloseDown
 6470SYS"Wimp_CloseDown",task%,"TASK"
 6480ENDPROC
 6490DEF PROCWimp_Quit
 6500finished%=TRUE
 6510ENDPROC
 6520DEF FNWimp_ReadVariable(Variable$)
 6530LOCALlen%,result%,variable%
 6540$wimp%=Variable$
 6550SYS"OS_ReadVarVal",wimp%,wimp%+255,255,,3TO,,len%
 6560wimp%?(len%+255)=13
 6570=$(wimp%+255)
 6580DEF PROCWimp_WaitForEvent
 6590LOCAL mask%,event%
 6600finished%=FALSE
 6610mask%=%111000011001
 6620REPEAT
 6630 SYS"Wimp_Poll",mask%,wimp% TO event%
 6640 CASE event% OF
 6650  WHEN0
 6660  WHEN1 : PROCWimp_PollDrawWindow
 6670  WHEN2 : SYS "Wimp_OpenWindow",,wimp%
 6680  WHEN3 : PROCWimp_PollCloseWindow
 6690  WHEN4
 6700  WHEN5
 6710  WHEN6 : PROCWimp_PollMouseClick
 6720  WHEN7 : PROCWimp_PollSaveMessage
 6730  WHEN8 : PROCWimp_PollKeyPress
 6740  WHEN9 : PROCEvent_MenuChoice(menu%)
 6750  WHEN10
 6760  WHEN11
 6770  WHEN12
 6780  WHEN17,18: PROCWimp_PollMessages
 6790  WHEN19
 6800 ENDCASE
 6810UNTIL finished%
 6820ENDPROC
 6830DEF PROCWimp_PollDrawWindow
 6840LOCAL more%
 6850SYS"Wimp_RedrawWindow",,wimp%TOmore%
 6860window%=wimp%!0
 6870x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
 6880WHILEmore%
 6890 IF interface% THEN SYS"Wimp_BorderWindow",,wimp%
 6900 PROCEvent_Draw(window%,x_origin%,y_origin%)
 6910 SYS"Wimp_GetRectangle",,wimp%TOmore%
 6920ENDWHILE
 6930ENDPROC
 6940DEF PROCWimp_PollCloseWindow
 6950  SYS "Wimp_GetPointerInfo",,wimp%
 6960  window%=wimp%!12 : buttons%=wimp%!8
 6970 PROCEvent_WindowClose(window%,buttons%)
 6980 !wimp%=window% : SYS "Wimp_CloseWindow",,wimp%
 6990ENDPROC
 7000DEF PROCWimp_PollMouseClick
 7010 button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
 7020 CASE button% OF
 7030   WHEN2    : PROCWimp_PollMenuPopUp
 7040   OTHERWISE: CASE FNEvent_Save(window%) OF
 7050               WHEN TRUE : PROCWimp_PollMouseSave
 7060               WHEN FALSE: PROCWimp_PollEventMouseClick
 7070              ENDCASE
 7080 ENDCASE
 7090ENDPROC
 7100DEF PROCWimp_PollMenuPopUp
 7110menu%=FNEvent_Menu(window%)
 7120  CASE menu%  OF
 7130   WHEN FALSE
 7140   OTHERWISE
 7150     CASE window% OF
 7160      WHEN -2   : n%=0
 7170        WHILE ((Bar_Menu%!(28+n%*24))AND%10000000)=0
 7180         n%+=1
 7190        ENDWHILE
 7200        SYS "Wimp_CreateMenu",,Bar_Menu%,x%-64,140+n%*44
 7210      OTHERWISE : SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
 7220     ENDCASE
 7230  ENDCASE
 7240ENDPROC
 7250DEF PROCWimp_PollMouseSave
 7260 CASE icon% OF
 7270  WHEN 0 : IF button% AND &50 THEN PROCWimp_PollDragBox(window%)
 7280  WHEN 2 : IF button% AND 5 THEN  PROCWimp_PollSaveFile(window%)
 7290 ENDCASE
 7300ENDPROC
 7310DEF PROCWimp_PollEventMouseClick
 7320 IF interface% THEN SYS"Wimp_BorderIcon",,wimp%
 7330 PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
 7340 CASE  interface% OF
 7350  WHEN TRUE
 7360   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
 7370   wimp%!12=window% : wimp%!16=icon%
 7380   SYS"Wimp_BorderIcon",,wimp%
 7390 ENDCASE
 7400ENDPROC
 7410DEF PROCWimp_PollSaveFile(window%)
 7420LOCALfile$
 7430 wimp%!0=window% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
 7440 file$=$(wimp%!28)
 7450 CASE INSTR(file$,".") OF
 7460  WHEN 0
 7470   $(wimp%+4)="To save, drag the icon to a directory window"
 7480   SYS "Wimp_ReportError",wimp%,16,task$
 7490  OTHERWISE
 7500   PROCEvent_SaveFile(file$,window%)
 7510 ENDCASE
 7520 SYS"Wimp_CreateMenu",-1
 7530ENDPROC
 7540DEF PROCWimp_PollDragBox(window%)
 7550LOCALx%,y%
 7560 save%=window%
 7570 !wimp%=window%
 7580 SYS"Wimp_GetWindowState",,wimp%
 7590 x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
 7600 wimp%!4=0
 7610 SYS"Wimp_GetIconState",,wimp%
 7620 !wimp%=window%
 7630 wimp%!4=5
 7640 wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
 7650 wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
 7660 wimp%!24=0:wimp%!28=0
 7670 wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
 7680 SYS"Wimp_DragBox",,wimp%
 7690ENDPROC
 7700DEF PROCWimp_PollKeyPress
 7710  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
 7720  CASE FNEvent_Save(window%) OF
 7730   WHEN TRUE : PROCWimpPoll_SaveFile(window%)
 7740   WHEN FALSE: PROCEvent_KeyPress(window%,icon%,key%)
 7750  ENDCASE
 7760ENDPROC
 7770DEF PROCWimp_PollSaveMessage
 7780LOCALfile$,window%,icon%,x%,y%
 7790 SYS"Wimp_GetPointerInfo",,wimp%
 7800 window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
 7810 wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
 7820 file$=$(wimp%!28)
 7830 file$=FNWimp_GetFileFromPathname(file$)
 7840 wimp%!20=window%
 7850 wimp%!24=icon%
 7860 wimp%!28=x%:wimp%!32=y%
 7870 wimp%!36=length%
 7880 wimp%!0=64
 7890 wimp%!12=0
 7900 wimp%!16=1
 7910 wimp%!40=&FFF
 7920 $(wimp%+44)=file$
 7930 SYS"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
 7940ENDPROC
 7950DEF PROCWimp_PollMessages
 7960LOCAL file$
 7970file$=FNWimp_GetStringAtAddress(wimp%+44)
 7980    CASE wimp%!16 OF
 7990     WHEN 0 : finished%=TRUE
 8000     WHEN 1
 8010     WHEN 2
 8020      wimp%!0=save% : wimp%!4=1 : SYS "Wimp_GetIconState",,wimp%
 8030      $(wimp%!28)=file$
 8040      wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
 8050      SYS "Wimp_SetIconState",,wimp%
 8060      SYS "Wimp_SetCaretPosition",save%,1,,,-1,LENfile$
 8070      PROCEvent_SaveFile(file$,save%)
 8080     WHEN 3
 8090      type$=FNWimp_FileType(wimp%!40) : PROCEvent_LoadFile(file$,type$)
 8100    ENDCASE
 8110ENDPROC
 8120DEF FNWimp_GetStringAtAddress(array%)
 8130LOCALs$:s$=""
 8140WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE
 8150=s$
 8160DEF FNWimp_GetFileFromPathname(f$)
 8170CASE INSTR(f$,".") OF
 8180 WHEN 0    :=f$
 8190 OTHERWISE :=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
 8200ENDCASE
 8210DEF FNWimp_FileType(type%)
 8220CASEtype%OF
 8230WHEN&FFF:="Text"
 8240WHEN&FFD:="Data"
 8250WHEN&FFB:="Basic"
 8260WHEN&FF9:="Sprite"
 8270WHEN&FED:="Palette"
 8280WHEN&FEC:="Template"
 8290WHEN&AFF:="Draw"
 8300WHEN&1000:="Folder"
 8310WHEN&2000:="Application"
 8320OTHERWISE=STR$~(type%)
 8330ENDCASE


>                          �Wimp_Start("lottery",4431,1485)
3                           �User_SetInitialData
.                           �Create_Windows
(,                           �Create_Menus
24                           �User_DrawStatsWindow
<1                           �Wimp_WaitForEvent
F.                           �Wimp_CloseDown
P                            �
Z!       � �User_SetInitialData
d file$="<Obey$Dir>.Syndicate"
n�User_FileData(file$)
xWeeks%=250
�1Row3%=0:Row4%=0:Row5%=0:Row6%=0:Bonus%=0:H%=0
�/Fast%=�:L%=�:Mult%=100:Tick%=�:AddToFile%=�
�� R%(6),Stat%(54)
�       �
�       � �Create_Windows
�;                  Info_Window%=�Wimp_WindowLoad("Info")
�<                 mainw_Window%=�Wimp_WindowLoad("mainw")
�>               resultw_Window%=�Wimp_WindowLoad("resultw")
�<                 Stats_Window%=�Wimp_WindowLoad("Stats")
�<                     Bar_Icon%=�Wimp_IconBar("!lottery")
�       �
�$        � �Event_Save(window%)=�
�.        � �Event_Sprites(window%)=sprites%
       � �Create_Menus
Dmenu$="!Lottery\Info>Info_Window%\Statistics>Stats_Window%\Quit"
& Bar_Menu%=�Wimp_MenuCreate(menu$)
"b Main_Menu%=�Wimp_MenuCreate("Choices\Display\Entries Num.\Statistics>Stats_Window%\Add Data")
,. Sub_Menu%=�Wimp_MenuCreate("Entries\100")
6*�Wimp_MenuGlue(Main_Menu%,2,Sub_Menu%)
@ �Wimp_MenuTick(Main_Menu%,1)
J         BufferLength%=12
T7         � buffer% BufferLength%,val% BufferLength%
^         $val%="A0-9"
h         $buffer%=�(Mult%)
rD         �Wimp_MenuWrite(Sub_Menu%,1,buffer%,val%,BufferLength%)
|       �
�"        � �Event_Menu(window%)
�        Ȏ window% �
�.         � Bar_Window%        : =Bar_Menu%
�0         � mainw_Window%       : =Main_Menu%
�!                        : =�
�
        �
�1       � �Event_WindowClose(window%,buttons%)
�       Ȏ window% �
�       �
�       �
�5       � �Event_Draw(window%,x_origin%,y_origin%)
�       Ȏ window% �
�8        � Info_Window%        : �User_DrawInfoWindow
9        � mainw_Window%       : �User_DrawmainwWindow
;        � resultw_Window%     : �User_DrawresultwWindow
9        � Stats_Window%       : �User_DrawStatsWindow
&       �
0       �
:'             � �User_DrawInfoWindow
D             �
N(             � �User_DrawmainwWindow
X             �
bZ%=�(�A$,K%-1))
lStat%(Z%)+=1
vA$=�A$,K%+1)
��
�Z%=�(A$)
�Stat%(Z%)+=1
�*             � �User_DrawresultwWindow
�             �
�(             � �User_DrawStatsWindow
�� I%,J%,K%,L%
�$channel%=�("<Obey$Dir>.History")
�I%=0
��
�	I%+=1
�A$=�#channel%
�� J%=1 � 6
K%=�A$,",")
Stat%(�(�A$,K%-1)))+=1
A$=�A$,K%+1)
 �
*Stat%(�(�A$,K%-1)))+=1
4� �#channel%
>�#channel%
HFB$="Frequency table for Lottery Draw numbers over "+�(I%)+" weeks"
R+�Wimp_IconPutText(Stats_Window%,108,B$)
\� J%=1 � 97 � 2
f:�Wimp_IconPutText(Stats_Window%,J%,�(Stat%((J%+1)/2)))
p�
z� J%=0 � 4
�L%=0
�� K%=1 � 9
�L%=L%+ Stat%((J%*10)+K%)
��
�Stat%(J%+50)=L%
��
�� J%=99 � 107 � 2
�:�Wimp_IconPutText(Stats_Window%,J%,�(Stat%((J%+1)/2)))
��
�             �
�;       � �Event_MouseClick(window%,icon%,button%,x%,y%)
�       Ȏ window% �
�k        � Bar_Window%        : �Wimp_WindowBringToTop(mainw_Window%):�Wimp_IconCaret(mainw_Window%,0,0)
B        � Info_Window%       : �User_MouseInfo( button%,icon%)
C        � mainw_Window%      : �User_Mousemainw( button%,icon%)
E        � resultw_Window%    : �User_Mouseresultw( button%,icon%)
$       �
.       �
8.         � �User_MouseInfo( button%,icon%)
BO          �Wimp_WindowAlert("Info","Mouse button="+�button%+"icon="+�icon%)
L         �
V/         � �User_Mousemainw( button%,icon%)
`Ȏ icon% �
jZ     � 9 :�Reset:�User_Calculate:�User_Display:�Wimp_WindowBringToTop(resultw_Window%)
t     � 8 :�User_Random
~     � 11:�User_Hundred
��
�         �
�1         � �User_Mouseresultw( button%,icon%)
�R          �Wimp_WindowAlert("resultw","Mouse button="+�button%+"icon="+�icon%)
�         �
�0       � �Event_KeyPress(window%,icon%,key%)
�          Ȏ window% �
�F           � mainw_Window%      : �User_KeyPressmainw( icon%,key%)
�          �
�       �
�/         � �User_KeyPressmainw( icon%,key%)
�Ȏ icon% �
A� 0:� key%=13 �Wimp_IconCaret(mainw_Window%,1,0):AddToFile%=�

4� 1:� key%=13 �Wimp_IconCaret(mainw_Window%,2,0)
4� 2:� key%=13 �Wimp_IconCaret(mainw_Window%,3,0)
4� 3:� key%=13 �Wimp_IconCaret(mainw_Window%,4,0)
(4� 4:� key%=13 �Wimp_IconCaret(mainw_Window%,5,0)
24� 5:� key%=13 �Wimp_IconCaret(mainw_Window%,6,0)
<^� 6:� key%=13 �Reset:�User_Calculate:�User_Display:�Wimp_WindowBringToTop(resultw_Window%)
F�
P         �
Z%       � �Event_MenuChoice(menu%)
d        Ȏ menu% �
n<              � Bar_Menu%          : �User_MenuChoiceBar
x=              � Main_Menu%         : �User_MenuChoiceMain
�
        �
�       �
�        � �User_MenuChoiceBar
�$        Ȏ �Wimp_MenuChoice(0) �
�         � 1
�         � 3 :�Finish
�
        �
�       �
�!       � �User_MenuChoiceMain
�$        Ȏ �Wimp_MenuChoice(0) �
�J         � 1 :Fast%=� Fast%:Tick%=� Tick%:�Wimp_MenuTick(Main_Menu%,1)
�%         � 2 :�User_MenuChoiceSub
�}         � 4 :� AddToFile%=� � �Wimp_WindowCancel("!Lottery","Add numbers to database ?") � �update_database:AddToFile%=�

        �
       �
        � �User_MenuChoiceSub
"#       Ȏ �Wimp_MenuChoice(1) �
,#         � 1 :Mult%=�($buffer%)
65                :A$="Random "+�(Mult%)+" Entries"
@;                :�Wimp_IconPutText(mainw_Window%,11,A$)
J       �
T       �
^)       � �Event_LoadFile(file$,type$)
hȎ type$ �
r~  � "Text" : �User_FileData(file$):File_Loaded%=�:�Wimp_WindowBringToTop(mainw_Window%):�Wimp_IconCaret(mainw_Window%,0,0)
| �
�       �
�+       � �Event_SaveFile(file$,window%)
�       �
�� �User_Random
��
�Flag%=0
�� I%=0 � 6
�R%(I%)=�(49)
��
�� I%=1 � 6
�	J%=I%
��
�	J%-=1
� R%(I%)=R%(J%) Flag%=1

� J%=0
�
&
� Flag%=0
0
� L% �
:� I%=0 � 6
D1�Wimp_IconPutText(mainw_Window%,I%,�(R%(I%)))
N�
XAddToFile%=�
b�
l� �User_Calculate
v
� H%=0 �i
�� I%=1 � SynN%
�Match%=0
�� J%=0 � 5
�� K%=1 � 6
�&� Lines%(K%,I%)=R%(J%) � Match%+=1
��
��
�Ȏ Match% �
�� 3 :Row3%+=1
�� 4 :Row4%+=1
�� 5 :�Bonus
�� 6 :Row6%+=1
��
�
�
� �Bonus
 
M%=Bonus%
*� L%=1 � 6
4%� Lines%(L%,I%)=R%(6) � Bonus%+=1
>�
H� M%=Bonus% � Row5%+=1
R�
\� �User_Display
fq� (Row3%+Row4%+Row5%+Row6%+Bonus%=0) � H%=0 � �Wimp_IconPutText(resultw_Window%,2,"No Prizes this week..."):�
pc� Row3%>0 � A$=�(Row3%)+" prize for 3 matching numbers":�Wimp_IconPutText(resultw_Window%,0,A$)
zc� Row4%>0 � A$=�(Row4%)+" prize for 4 matching numbers":�Wimp_IconPutText(resultw_Window%,1,A$)
�c� Row5%>0 � A$=�(Row5%)+" prize for 5 matching numbers":�Wimp_IconPutText(resultw_Window%,2,A$)
�U� Row6%>0 � A$=�(Row6%)+" Jackpot !!!!!!":�Wimp_IconPutText(resultw_Window%,4,A$)
�u� Bonus%>0 � A$=�(Bonus%)+" prize for 5 matching numbers plus Bonus Ball":�Wimp_IconPutText(resultw_Window%,3,A$)
��
�� �Reset
�,Row3%=0:Row4%=0:Row5%=0:Row6%=0:Bonus%=0
�� I%=0 � 4
�,�Wimp_IconPutText(resultw_Window%,I%,"")
��
��
�� �User_Hundred
�H%=1
�ș"Hourglass_On"
	� Fast% L%=�
	+�Wimp_WindowBringToTop(resultw_Window%)
	
�Reset
	$� Q%=1 � Mult%
	.�User_Random
	8�User_Calculate
	B� L%=� �User_Display
	L�
	V�User_Display
	`
H%=0:L%=�
	jș"Hourglass_Off"
	tAddToFile%=�
	~�
	�� �User_FileData(file$)
	�channel%=�(file$)
	�A$=�#channel%
	�SynN%=�(A$)
	�� Lines%(6,SynN%)
	�� I%=1 � SynN%
	�A$=�#channel%
	�� J%=1 � 5
	�K%=�A$,",")
	�Lines%(J%,I%)=�(�A$,K%-1))
	�A$=�A$,K%+1)
	��
Lines%(6,I%)=�(A$)

�
�#channel%
�
(� �i
2� I%=0 � 6
<.R%(I%)=�(�Wimp_IconText(mainw_Window%,I%))
F�
P�
Z��Finish
d|� AddToFile%=� � �Wimp_WindowCancel("!Lottery","Add numbers to database ?") � �update_database:finished%=� � finished%=�
n�
x� �update_database
�F%=�("<Obey$Dir>.History")
�
�#F%=�#F%
�	B$=""
�� W%=0 � 6
�B$=B$+�(R%(W%))+","
��
�B$=�B$)
��#F%,B$
��#F%
�AddToFile%=�
�� I%=0�54:Stat%(I%)=0:�
��User_DrawStatsWindow
��
(� �Wimp_WindowAlert(title$,message$)
+�Wimp_WindowAlertBox(title$,message$,0)
�
"3� �Wimp_WindowAlertBox(title$,message$,button%)
,� response%
6$(wimp%+4)=message$
@Ȏ button% �
J � 2    : response%=1
T � 1    : response%=15
^! � 3    : response%=(1<<5)+16
h! � 4    : response%=(1<<6)+16
r : response%=16
|�
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
�response%=23
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
�=response%-2
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
��
� � �Wimp_WindowTitle(window%)
�wimp%!0=window%
� ș "Wimp_GetWindInfo",,wimp%
6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
=$(wimp%!76)
� �Wimp_WindowLoad(window$)
&9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
0-� �Wimp_WindowLoadFrom(window$,template$)
:� c%,i%,n%,j%,sp$,sp2$
D%ș "Wimp_OpenTemplate",,template$
NMș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
XȎ sprites% �
b � 1    : wimp%!64=sprites%
l)  : wimp%!64=�Event_Sprites(window%)
v�
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
�7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ wimp%!40 �
�	 � -1
�  : i%=40
� �
�$   wimp%!4=wimp%!i% : wimp%!0=c%
�$   ș "Wimp_GetIconState",,wimp%
�-   sp$=�Wimp_GetStringAtAddress(wimp%!28)
�"   ș "Wimp_DeleteIcon",,wimp%
�   Ȏ sprites% �
�    � 1    : wimp%!32=1

	    

/     ș "OS_SpriteOp",&108,sprites% � ,,,n%


     j%=0

      � : j%+=1

*=      ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%

47      sp2$=�Wimp_GetStringAtAddress(pointer_block%)

>     � j%=n% � sp$=sp2$

H4     � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1

R   �

\   wimp%!4=c%

f.   ș "Wimp_CreateIcon",,wimp%+4 � handle%

p   i%+=4

z � (wimp%!i%)=-1

��

�=c%

�%� �Wimp_WindowBringToTop(window%)

�!wimp%=window%

�#ș "Wimp_GetWindowState",,wimp%

�wimp%!28=-1

�ș "Wimp_OpenWindow",,wimp%

��

� � �Wimp_WindowClose(window%)

�!wimp%=window%

� ș "Wimp_CloseWindow",,wimp%

��

�$� �Wimp_WindowForceDraw(window%)
Ȏ window% �
8 � -1   : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
9  : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
$�
.�
8� �Wimp_WindowOpen(window%)
B!wimp%=window%
L#ș "Wimp_GetWindowState",,wimp%
Vș "Wimp_OpenWindow",,wimp%
`�
j�Wimp_WindowInterface
t ș"Wimp_BorderWindow",,wimp%
~�
�� �Wimp_IconBar(Sprite$)
�� icon%
�wimp%!0=-1
�wimp%!4=0     : wimp%!8=0
�wimp%!12=68 : wimp%!16=68
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�+� �Wimp_IconCaret(window%,icon%,chars%)
�8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
��
#� �Wimp_IconText(window%,icon%)

#wimp%!0=window% : wimp%!4=icon%
!ș "Wimp_GetIconState",,wimp%
7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
(=$(wimp%!28)
2)� �Wimp_IconValidation(window%,icon%)
<#wimp%!0=window% : wimp%!4=icon%
F!ș "Wimp_GetIconState",,wimp%
P7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
Z=$(wimp%!32)
d&� �Wimp_IconDisable(window%,icon%)
n#wimp%!0=window% : wimp%!4=icon%
x$wimp%!8=1<<22   : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�%� �Wimp_IconEnable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=0       : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�0� �Wimp_IconPutSprite(window%,icon%,sprite$)
�!wimp%!0=window%:wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�ș "Wimp_DeleteIcon",,wimp%
�=wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
�?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
'ș "Wimp_CreateIcon",,wimp% � icon%

=icon%
,� �Wimp_IconPutText(window%,icon%,text$)
"#wimp%!0=window% : wimp%!4=icon%
,!ș "Wimp_GetIconState",,wimp%
67� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
@$(wimp%!28)=text$
J#wimp%!0=window% : wimp%!4=icon%
Twimp%!8=0 : wimp%!12=0
^!ș "Wimp_SetIconState",,wimp%
h�
r� �Wimp_IconInterfaceStart
|ș"Wimp_BorderIcon",,wimp%
��
�� �Wimp_IconInterfaceFinish
�
wimp%!8=0
�ș"Wimp_BorderIcon",,wimp%
��
�� �Wimp_MenuAdjustOn(menu%)
�,ș "Wimp_GetPointerInfo",,pointer_block%
�^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
��
�� �Wimp_MenuChoice(level%)
�=(wimp%!(4*level%))+1
�� �Wimp_MenuCreate(menu$)
�)� menu$="Colours" �=�Wimp_MenuColours
'� menu%,index%,width%,length%,k%,s%
.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
7menu%?12=7   : menu%?13=2  : menu%?14=7 :menu%?15=0
&+menu%!16=140 : menu%!20=44 : menu%!24=0
0index%=menu%+28
: $menu%=�menu$,�menu$,"\")-1)
D#width%=�(�menu$,�menu$,"\")-1))
N$menu$+="\" : Menu_NoOfEntries%=0
Xȕ menu$<>""
bmenu$=�menu$,�menu$,"\")+1)
lȎ menu$ �
v	 � ""
� 
�1  !index%=0 : index%!4=-1 : index%!8=&7000021
�  length%=�menu$,"\")-1
�  k%=��menu$,length%),">")
�
  Ȏ k% �
�
   � 0
�   
�%    s%=�(�menu$,k%+1,length%-k%))
�    index%!4=s%
�    length%=k%-1
�  �
�"  $(index%+12)=�menu$,length%)
�'  � length%>width% � width%=length%
  index%+=24
�
�
 menu%!16=16*(width%+1)
*(index%!-24=index%!-24 � &80 : =menu%
4� �Wimp_MenuColours
>!=�Wimp_MenuCreateColours(" ")
H%� �Wimp_MenuCreateColours(title$)
R� x$,men%,j%,i%
\6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
fmen%=�Wimp_MenuCreate(x$)
p� i%=0 � 15
z
Ȏ � �
�(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
� : j%=0
��
�men%?(39+i%*24)=i%*16+j%
��Wimp_MenuCentre(men%,i%+1)
��
�	=men%
�"� �Wimp_MenuNoOfEntries(menu$)
�� n% ,j% : n%=0 : j%=0
��
�j%=�menu$,"\",j%+1)
�� j%<>0 � n%+=1
�
� j%=0
=n%
5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
� fore%,i%
$&fore%=(menu%?(39+(item%-1)*24))�16
.(i%=((menu%?(39+(item%-1)*24))�16)�16
8/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
B�
L#� �Wimp_MenuCentre(menu%,item%)
V:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
`�
j� �Wimp_MenuClose
tș "Wimp_CreateMenu",-1
~�
�$� �Wimp_MenuDisable(menu%,item%)
�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
��
�'� �Wimp_MenuDottedLine(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
��
�#� �Wimp_MenuEnable(menu%,item%)
�"�Wimp_MenuDisable(menu%,item%)
�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
��
�5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
�Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
�

)� �Wimp_MenuGlue(menu1%,item%,menu2%)
menu1%!(8+item%*24)=menu2%
�
('� �Wimp_MenuItem(menu%,item%,item$)
2,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
<�
F$� �Wimp_MenuMessage(menu%,item%)
P<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
Z�
d"� �Wimp_MenuPopUp(Menu%,x%,y%)
nmenu%=Menu%
x+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
��
�� �Wimp_MenuPopUpBar(x%,y%)
�� n% : n%=0
�+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
�	n%+=1
��
�3ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,140+n%*44
�menu%=Bar_Menu%
��
�!� �Wimp_MenuTick(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
��
�#� �Wimp_MenuTitle(menu%,title$)
$menu%=�title$,12)+�0
�
=� �Wimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
"7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
,8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
6#menu%!(40+(item%-1)*24)=buffer%
@ menu%!(44+(item%-1)*24)=val%
J)menu%!(48+(item%-1)*24)=BufferLength%
T�
^� �Wimp_SpritesLoad
h/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
rdirect_sprites%=sprites%
|�
�&� �Wimp_SpritesPathLoad(pathname$)
�
�S%,T%
�,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
��sprites%T%,spname%12
�!sprites%=T%:sprites%!8=0
�!ș"OS_SpriteOp",&109,sprites%
�+ș"OS_SpriteOp",&10A,sprites%,pathname$
��
�� �Wimp_FileType(type%)
�Ȏtype%�
��&FFF:="Text"
��&FFD:="Data"
��&FFB:="Basic"
�&FF9:="Sprite"
�&FED:="Palette"
�&FEC:="Template"
&�&AFF:="Draw"
0�&1000:="Folder"
:�&2000:="Application"
D=�~(type%)
N�
X� �Wimp_GetFilePathName
b'=�Wimp_GetStringAtAddress(wimp%+44)
l� �Wimp_FileLoad(pathname$)
v�S%,T%,file%
�S%=�pathname$
�T%=�#S%+16
��#S%
��file%T%
�"�("LOAD"+pathname$+""+�~file%)
�
=file%
�&� �Wimp_GetStringAtAddress(array%)
�
�s$:s$=""
�;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�
�=s$
�#� �Wimp_GetFileFromPathname(f$)
�Ȏ �f$,".") �
� � 0    :=f$
7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
�
� �Wimp_SendToEdit(file$)
 � n%
*wimp%!4=&6CC01C0C
4wimp%!16=5
>wimp%!36=0
Hwimp%!40=&FFF
R$(wimp%+44)=file$+�0
\n%=�file$+45
f,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
p$ș "Wimp_SendMessage",17,wimp%,0
z�
�/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
�%� wimp% wimp_memory%,icons% icon%
�)� wimp_memory%<256 � wimp_memory%=256
�icon_memory%=icons%+icon%
�task$=TaskName$
�+indirect_sprites%=1 : direct_sprites%=1
��Wimp_SetEventVariables
�� � �Wimp_Error:�
�@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
��
�� �Wimp_BASICParameters
� � com$,param$,I%
� ș "OS_GetEnv" � com$
 params$=""
 I%=�com$," -quit ")
5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
$=params$
.� �Wimp_SetEventVariables
8� pointer_block% 20
Binterface%=�
L.null%=1  :draw%=2 :  pointer_leaving%=1<<4
V1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
`&key%=1<<8:menu%=1<<9:scroll%=1<<10
j@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
t0recorder%=1<<18:acknowledge%=1<<19:window%=0
~!sprites%=1:version%=0:task%=0
�*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
�*x_origin%=0:y_origin%=0:SaveWindow%=-3
�3message_quit%=0:message_save%=2:message_load%=3
�!mouse_button%=2:save_event%=0
� top_line%=0 : bottom_line%=0
��
�� �Wimp_Error
�
�X$,x%
�	� � �
�x%=�
�X$=�$+"atline"+�(x%�10)
��ErrorMsg%36
EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%

$(ErrorMsg%+24)="!RunImage"
%ș"Wimp_SendMessage",17,ErrorMsg%
�Wimp_WindowAlert(task$,X$)
(�Wimp_CloseDown
2�
<� �Wimp_CloseDown
F#ș"Wimp_CloseDown",task%,"TASK"
P�
Z� �Wimp_Quit
dfinished%=�
n�
x#� �Wimp_ReadVariable(Variable$)
��len%,result%,variable%
�$wimp%=Variable$
�3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
�wimp%?(len%+255)=13
�=$(wimp%+255)
�� �Wimp_WaitForEvent
�� mask%,event%
�finished%=�
�mask%=%111000011001
��
�' ș"Wimp_Poll",mask%,wimp% � event%
� Ȏ event% �
�  �0
  �1 : �Wimp_PollDrawWindow
&  �2 : ș "Wimp_OpenWindow",,wimp%
   �3 : �Wimp_PollCloseWindow
"  �4
,  �5
6  �6 : �Wimp_PollMouseClick
@   �7 : �Wimp_PollSaveMessage
J  �8 : �Wimp_PollKeyPress
T#  �9 : �Event_MenuChoice(menu%)
^	  �10
h	  �11
r	  �12
|   �17,18: �Wimp_PollMessages
�	  �19
� �
�� finished%
��
�� �Wimp_PollDrawWindow
�� more%
�&ș"Wimp_RedrawWindow",,wimp%�more%
�window%=wimp%!0
�Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
�ȕmore%
�0 � interface% � ș"Wimp_BorderWindow",,wimp%
�- �Event_Draw(window%,x_origin%,y_origin%)
�' ș"Wimp_GetRectangle",,wimp%�more%
�
�
� �Wimp_PollCloseWindow
&%  ș "Wimp_GetPointerInfo",,wimp%
0)  window%=wimp%!12 : buttons%=wimp%!8
:) �Event_WindowClose(window%,buttons%)
D2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
N�
X� �Wimp_PollMouseClick
bJ button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
l Ȏ button% �
v"   �2    : �Wimp_PollMenuPopUp
�#   : Ȏ �Event_Save(window%) �
�,               � � : �Wimp_PollMouseSave
�1               � �: �Wimp_PollEventMouseClick
�              �
� �
��
�� �Wimp_PollMenuPopUp
�menu%=�Event_Menu(window%)
�  Ȏ menu%  �
�
   � �
�   
�     Ȏ window% �
�      � -2   : n%=0
3        ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
         n%+=1

        �
 ;        ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,140+n%*44
*4       : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
4
     �
>  �
H�
R� �Wimp_PollMouseSave
\ Ȏ icon% �
f8  � 0 : � button% � &50 � �Wimp_PollDragBox(window%)
p8  � 2 : � button% � 5 �  �Wimp_PollSaveFile(window%)
z �
��
�� �Wimp_PollEventMouseClick
�. � interface% � ș"Wimp_BorderIcon",,wimp%
�3 �Event_MouseClick(window%,icon%,button%,x%,y%)
� Ȏ  interface% �
�	  � �
�(   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
�(   wimp%!12=window% : wimp%!16=icon%
�!   ș"Wimp_BorderIcon",,wimp%
� �
��
�!� �Wimp_PollSaveFile(window%)
�
�file$
@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
 file$=$(wimp%!28)
 Ȏ �file$,".") �
$	  � 0
.@   $(wimp%+4)="To save, drag the icon to a directory window"
8+   ș "Wimp_ReportError",wimp%,16,task$
B  
L%   �Event_SaveFile(file$,window%)
V �
` ș"Wimp_CreateMenu",-1
j�
t � �Wimp_PollDragBox(window%)
~
�x%,y%
� save%=window%
� !wimp%=window%
�# ș"Wimp_GetWindowState",,wimp%
�- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
� wimp%!4=0
�! ș"Wimp_GetIconState",,wimp%
� !wimp%=window%
� wimp%!4=5
�, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
�. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
� wimp%!24=0:wimp%!28=0
�* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
 ș"Wimp_DragBox",,wimp%

�
� �Wimp_PollKeyPress
1  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
(  Ȏ �Event_Save(window%) �
2(   � � : �WimpPoll_SaveFile(window%)
</   � �: �Event_KeyPress(window%,icon%,key%)
F  �
P�
Z� �Wimp_PollSaveMessage
d�file$,window%,icon%,x%,y%
n# ș"Wimp_GetPointerInfo",,wimp%
x: window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
� file$=$(wimp%!28)
�+ file$=�Wimp_GetFileFromPathname(file$)
� wimp%!20=window%
� wimp%!24=icon%
� wimp%!28=x%:wimp%!32=y%
� wimp%!36=length%
� wimp%!0=64
� wimp%!12=0
� wimp%!16=1
� wimp%!40=&FFF
� $(wimp%+44)=file$
�4 ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
�
� �Wimp_PollMessages
� file$
",file$=�Wimp_GetStringAtAddress(wimp%+44)
,    Ȏ wimp%!16 �
6     � 0 : finished%=�
@     � 1
J     � 2
TC      wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
^      $(wimp%!28)=file$
h<      wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
r'      ș "Wimp_SetIconState",,wimp%
|8      ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
�&      �Event_SaveFile(file$,save%)
�     � 3
�G      type$=�Wimp_FileType(wimp%!40) : �Event_LoadFile(file$,type$)
�	    �
��
�&� �Wimp_GetStringAtAddress(array%)
�
�s$:s$=""
�;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�
�=s$
�#� �Wimp_GetFileFromPathname(f$)
�Ȏ �f$,".") �
� � 0    :=f$
�7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
 �
 � �Wimp_FileType(type%)
 Ȏtype%�
 &�&FFF:="Text"
 0�&FFD:="Data"
 :�&FFB:="Basic"
 D�&FF9:="Sprite"
 N�&FED:="Palette"
 X�&FEC:="Template"
 b�&AFF:="Draw"
 l�&1000:="Folder"
 v�&2000:="Application"
 �=�~(type%)
 ��
�

00000000  0d 00 0a 3e 20 20 20 20  20 20 20 20 20 20 20 20  |...>            |
00000010  20 20 20 20 20 20 20 20  20 20 20 20 20 20 f2 57  |              .W|
00000020  69 6d 70 5f 53 74 61 72  74 28 22 6c 6f 74 74 65  |imp_Start("lotte|
00000030  72 79 22 2c 34 34 33 31  2c 31 34 38 35 29 0d 00  |ry",4431,1485)..|
00000040  14 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.3              |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 f2 55 73  |             .Us|
00000060  65 72 5f 53 65 74 49 6e  69 74 69 61 6c 44 61 74  |er_SetInitialDat|
00000070  61 0d 00 1e 2e 20 20 20  20 20 20 20 20 20 20 20  |a....           |
00000080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090  f2 43 72 65 61 74 65 5f  57 69 6e 64 6f 77 73 0d  |.Create_Windows.|
000000a0  00 28 2c 20 20 20 20 20  20 20 20 20 20 20 20 20  |.(,             |
000000b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 f2 43  |              .C|
000000c0  72 65 61 74 65 5f 4d 65  6e 75 73 0d 00 32 34 20  |reate_Menus..24 |
000000d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000e0  20 20 20 20 20 20 20 20  20 20 f2 55 73 65 72 5f  |          .User_|
000000f0  44 72 61 77 53 74 61 74  73 57 69 6e 64 6f 77 0d  |DrawStatsWindow.|
00000100  00 3c 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |.<1             |
00000110  20 20 20 20 20 20 20 20  20 20 20 20 20 20 f2 57  |              .W|
00000120  69 6d 70 5f 57 61 69 74  46 6f 72 45 76 65 6e 74  |imp_WaitForEvent|
00000130  0d 00 46 2e 20 20 20 20  20 20 20 20 20 20 20 20  |..F.            |
00000140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 f2  |               .|
00000150  57 69 6d 70 5f 43 6c 6f  73 65 44 6f 77 6e 0d 00  |Wimp_CloseDown..|
00000160  50 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |P               |
00000170  20 20 20 20 20 20 20 20  20 20 20 20 20 e0 0d 00  |             ...|
00000180  5a 21 20 20 20 20 20 20  20 dd 20 f2 55 73 65 72  |Z!       . .User|
00000190  5f 53 65 74 49 6e 69 74  69 61 6c 44 61 74 61 0d  |_SetInitialData.|
000001a0  00 64 20 66 69 6c 65 24  3d 22 3c 4f 62 65 79 24  |.d file$="<Obey$|
000001b0  44 69 72 3e 2e 53 79 6e  64 69 63 61 74 65 22 0d  |Dir>.Syndicate".|
000001c0  00 6e 19 f2 55 73 65 72  5f 46 69 6c 65 44 61 74  |.n..User_FileDat|
000001d0  61 28 66 69 6c 65 24 29  0d 00 78 0e 57 65 65 6b  |a(file$)..x.Week|
000001e0  73 25 3d 32 35 30 0d 00  82 31 52 6f 77 33 25 3d  |s%=250...1Row3%=|
000001f0  30 3a 52 6f 77 34 25 3d  30 3a 52 6f 77 35 25 3d  |0:Row4%=0:Row5%=|
00000200  30 3a 52 6f 77 36 25 3d  30 3a 42 6f 6e 75 73 25  |0:Row6%=0:Bonus%|
00000210  3d 30 3a 48 25 3d 30 0d  00 8c 2f 46 61 73 74 25  |=0:H%=0.../Fast%|
00000220  3d a3 3a 4c 25 3d a3 3a  4d 75 6c 74 25 3d 31 30  |=.:L%=.:Mult%=10|
00000230  30 3a 54 69 63 6b 25 3d  b9 3a 41 64 64 54 6f 46  |0:Tick%=.:AddToF|
00000240  69 6c 65 25 3d a3 0d 00  96 15 de 20 52 25 28 36  |ile%=...... R%(6|
00000250  29 2c 53 74 61 74 25 28  35 34 29 0d 00 a0 0c 20  |),Stat%(54).... |
00000260  20 20 20 20 20 20 e1 0d  00 aa 1c 20 20 20 20 20  |      .....     |
00000270  20 20 dd 20 f2 43 72 65  61 74 65 5f 57 69 6e 64  |  . .Create_Wind|
00000280  6f 77 73 0d 00 b4 3b 20  20 20 20 20 20 20 20 20  |ows...;         |
00000290  20 20 20 20 20 20 20 20  20 49 6e 66 6f 5f 57 69  |         Info_Wi|
000002a0  6e 64 6f 77 25 3d a4 57  69 6d 70 5f 57 69 6e 64  |ndow%=.Wimp_Wind|
000002b0  6f 77 4c 6f 61 64 28 22  49 6e 66 6f 22 29 0d 00  |owLoad("Info")..|
000002c0  be 3c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.<              |
000002d0  20 20 20 6d 61 69 6e 77  5f 57 69 6e 64 6f 77 25  |   mainw_Window%|
000002e0  3d a4 57 69 6d 70 5f 57  69 6e 64 6f 77 4c 6f 61  |=.Wimp_WindowLoa|
000002f0  64 28 22 6d 61 69 6e 77  22 29 0d 00 c8 3e 20 20  |d("mainw")...>  |
00000300  20 20 20 20 20 20 20 20  20 20 20 20 20 72 65 73  |             res|
00000310  75 6c 74 77 5f 57 69 6e  64 6f 77 25 3d a4 57 69  |ultw_Window%=.Wi|
00000320  6d 70 5f 57 69 6e 64 6f  77 4c 6f 61 64 28 22 72  |mp_WindowLoad("r|
00000330  65 73 75 6c 74 77 22 29  0d 00 d2 3c 20 20 20 20  |esultw")...<    |
00000340  20 20 20 20 20 20 20 20  20 20 20 20 20 53 74 61  |             Sta|
00000350  74 73 5f 57 69 6e 64 6f  77 25 3d a4 57 69 6d 70  |ts_Window%=.Wimp|
00000360  5f 57 69 6e 64 6f 77 4c  6f 61 64 28 22 53 74 61  |_WindowLoad("Sta|
00000370  74 73 22 29 0d 00 dc 3c  20 20 20 20 20 20 20 20  |ts")...<        |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 42 61 72  |             Bar|
00000390  5f 49 63 6f 6e 25 3d a4  57 69 6d 70 5f 49 63 6f  |_Icon%=.Wimp_Ico|
000003a0  6e 42 61 72 28 22 21 6c  6f 74 74 65 72 79 22 29  |nBar("!lottery")|
000003b0  0d 00 e6 0c 20 20 20 20  20 20 20 e1 0d 00 f0 24  |....       ....$|
000003c0  20 20 20 20 20 20 20 20  dd 20 a4 45 76 65 6e 74  |        . .Event|
000003d0  5f 53 61 76 65 28 77 69  6e 64 6f 77 25 29 3d a3  |_Save(window%)=.|
000003e0  0d 00 fa 2e 20 20 20 20  20 20 20 20 dd 20 a4 45  |....        . .E|
000003f0  76 65 6e 74 5f 53 70 72  69 74 65 73 28 77 69 6e  |vent_Sprites(win|
00000400  64 6f 77 25 29 3d 73 70  72 69 74 65 73 25 0d 01  |dow%)=sprites%..|
00000410  04 1a 20 20 20 20 20 20  20 dd 20 f2 43 72 65 61  |..       . .Crea|
00000420  74 65 5f 4d 65 6e 75 73  0d 01 0e 44 6d 65 6e 75  |te_Menus...Dmenu|
00000430  24 3d 22 21 4c 6f 74 74  65 72 79 5c 49 6e 66 6f  |$="!Lottery\Info|
00000440  3e 49 6e 66 6f 5f 57 69  6e 64 6f 77 25 5c 53 74  |>Info_Window%\St|
00000450  61 74 69 73 74 69 63 73  3e 53 74 61 74 73 5f 57  |atistics>Stats_W|
00000460  69 6e 64 6f 77 25 5c 51  75 69 74 22 0d 01 18 26  |indow%\Quit"...&|
00000470  20 42 61 72 5f 4d 65 6e  75 25 3d a4 57 69 6d 70  | Bar_Menu%=.Wimp|
00000480  5f 4d 65 6e 75 43 72 65  61 74 65 28 6d 65 6e 75  |_MenuCreate(menu|
00000490  24 29 0d 01 22 62 20 4d  61 69 6e 5f 4d 65 6e 75  |$).."b Main_Menu|
000004a0  25 3d a4 57 69 6d 70 5f  4d 65 6e 75 43 72 65 61  |%=.Wimp_MenuCrea|
000004b0  74 65 28 22 43 68 6f 69  63 65 73 5c 44 69 73 70  |te("Choices\Disp|
000004c0  6c 61 79 5c 45 6e 74 72  69 65 73 20 4e 75 6d 2e  |lay\Entries Num.|
000004d0  5c 53 74 61 74 69 73 74  69 63 73 3e 53 74 61 74  |\Statistics>Stat|
000004e0  73 5f 57 69 6e 64 6f 77  25 5c 41 64 64 20 44 61  |s_Window%\Add Da|
000004f0  74 61 22 29 0d 01 2c 2e  20 53 75 62 5f 4d 65 6e  |ta")..,. Sub_Men|
00000500  75 25 3d a4 57 69 6d 70  5f 4d 65 6e 75 43 72 65  |u%=.Wimp_MenuCre|
00000510  61 74 65 28 22 45 6e 74  72 69 65 73 5c 31 30 30  |ate("Entries\100|
00000520  22 29 0d 01 36 2a f2 57  69 6d 70 5f 4d 65 6e 75  |")..6*.Wimp_Menu|
00000530  47 6c 75 65 28 4d 61 69  6e 5f 4d 65 6e 75 25 2c  |Glue(Main_Menu%,|
00000540  32 2c 53 75 62 5f 4d 65  6e 75 25 29 0d 01 40 20  |2,Sub_Menu%)..@ |
00000550  f2 57 69 6d 70 5f 4d 65  6e 75 54 69 63 6b 28 4d  |.Wimp_MenuTick(M|
00000560  61 69 6e 5f 4d 65 6e 75  25 2c 31 29 0d 01 4a 1d  |ain_Menu%,1)..J.|
00000570  20 20 20 20 20 20 20 20  20 42 75 66 66 65 72 4c  |         BufferL|
00000580  65 6e 67 74 68 25 3d 31  32 0d 01 54 37 20 20 20  |ength%=12..T7   |
00000590  20 20 20 20 20 20 de 20  62 75 66 66 65 72 25 20  |      . buffer% |
000005a0  42 75 66 66 65 72 4c 65  6e 67 74 68 25 2c 76 61  |BufferLength%,va|
000005b0  6c 25 20 42 75 66 66 65  72 4c 65 6e 67 74 68 25  |l% BufferLength%|
000005c0  0d 01 5e 19 20 20 20 20  20 20 20 20 20 24 76 61  |..^.         $va|
000005d0  6c 25 3d 22 41 30 2d 39  22 0d 01 68 1e 20 20 20  |l%="A0-9"..h.   |
000005e0  20 20 20 20 20 20 24 62  75 66 66 65 72 25 3d c3  |      $buffer%=.|
000005f0  28 4d 75 6c 74 25 29 0d  01 72 44 20 20 20 20 20  |(Mult%)..rD     |
00000600  20 20 20 20 f2 57 69 6d  70 5f 4d 65 6e 75 57 72  |    .Wimp_MenuWr|
00000610  69 74 65 28 53 75 62 5f  4d 65 6e 75 25 2c 31 2c  |ite(Sub_Menu%,1,|
00000620  62 75 66 66 65 72 25 2c  76 61 6c 25 2c 42 75 66  |buffer%,val%,Buf|
00000630  66 65 72 4c 65 6e 67 74  68 25 29 0d 01 7c 0c 20  |ferLength%)..|. |
00000640  20 20 20 20 20 20 e1 0d  01 86 22 20 20 20 20 20  |      ...."     |
00000650  20 20 20 dd 20 a4 45 76  65 6e 74 5f 4d 65 6e 75  |   . .Event_Menu|
00000660  28 77 69 6e 64 6f 77 25  29 0d 01 90 18 20 20 20  |(window%)....   |
00000670  20 20 20 20 20 c8 8e 20  77 69 6e 64 6f 77 25 20  |     .. window% |
00000680  ca 0d 01 9a 2e 20 20 20  20 20 20 20 20 20 c9 20  |.....         . |
00000690  42 61 72 5f 57 69 6e 64  6f 77 25 20 20 20 20 20  |Bar_Window%     |
000006a0  20 20 20 3a 20 3d 42 61  72 5f 4d 65 6e 75 25 0d  |   : =Bar_Menu%.|
000006b0  01 a4 30 20 20 20 20 20  20 20 20 20 c9 20 6d 61  |..0         . ma|
000006c0  69 6e 77 5f 57 69 6e 64  6f 77 25 20 20 20 20 20  |inw_Window%     |
000006d0  20 20 3a 20 3d 4d 61 69  6e 5f 4d 65 6e 75 25 0d  |  : =Main_Menu%.|
000006e0  01 ae 21 20 20 20 20 20  20 20 20 20 7f 20 20 20  |..!         .   |
000006f0  20 20 20 20 20 20 20 20  20 20 20 20 3a 20 3d a3  |            : =.|
00000700  0d 01 b8 0d 20 20 20 20  20 20 20 20 cb 0d 01 c2  |....        ....|
00000710  31 20 20 20 20 20 20 20  dd 20 f2 45 76 65 6e 74  |1       . .Event|
00000720  5f 57 69 6e 64 6f 77 43  6c 6f 73 65 28 77 69 6e  |_WindowClose(win|
00000730  64 6f 77 25 2c 62 75 74  74 6f 6e 73 25 29 0d 01  |dow%,buttons%)..|
00000740  cc 17 20 20 20 20 20 20  20 c8 8e 20 77 69 6e 64  |..       .. wind|
00000750  6f 77 25 20 ca 0d 01 d6  0c 20 20 20 20 20 20 20  |ow% .....       |
00000760  cb 0d 01 e0 0c 20 20 20  20 20 20 20 e1 0d 01 ea  |.....       ....|
00000770  35 20 20 20 20 20 20 20  dd 20 f2 45 76 65 6e 74  |5       . .Event|
00000780  5f 44 72 61 77 28 77 69  6e 64 6f 77 25 2c 78 5f  |_Draw(window%,x_|
00000790  6f 72 69 67 69 6e 25 2c  79 5f 6f 72 69 67 69 6e  |origin%,y_origin|
000007a0  25 29 0d 01 f4 17 20 20  20 20 20 20 20 c8 8e 20  |%)....       .. |
000007b0  77 69 6e 64 6f 77 25 20  ca 0d 01 fe 38 20 20 20  |window% ....8   |
000007c0  20 20 20 20 20 c9 20 49  6e 66 6f 5f 57 69 6e 64  |     . Info_Wind|
000007d0  6f 77 25 20 20 20 20 20  20 20 20 3a 20 f2 55 73  |ow%        : .Us|
000007e0  65 72 5f 44 72 61 77 49  6e 66 6f 57 69 6e 64 6f  |er_DrawInfoWindo|
000007f0  77 0d 02 08 39 20 20 20  20 20 20 20 20 c9 20 6d  |w...9        . m|
00000800  61 69 6e 77 5f 57 69 6e  64 6f 77 25 20 20 20 20  |ainw_Window%    |
00000810  20 20 20 3a 20 f2 55 73  65 72 5f 44 72 61 77 6d  |   : .User_Drawm|
00000820  61 69 6e 77 57 69 6e 64  6f 77 0d 02 12 3b 20 20  |ainwWindow...;  |
00000830  20 20 20 20 20 20 c9 20  72 65 73 75 6c 74 77 5f  |      . resultw_|
00000840  57 69 6e 64 6f 77 25 20  20 20 20 20 3a 20 f2 55  |Window%     : .U|
00000850  73 65 72 5f 44 72 61 77  72 65 73 75 6c 74 77 57  |ser_DrawresultwW|
00000860  69 6e 64 6f 77 0d 02 1c  39 20 20 20 20 20 20 20  |indow...9       |
00000870  20 c9 20 53 74 61 74 73  5f 57 69 6e 64 6f 77 25  | . Stats_Window%|
00000880  20 20 20 20 20 20 20 3a  20 f2 55 73 65 72 5f 44  |       : .User_D|
00000890  72 61 77 53 74 61 74 73  57 69 6e 64 6f 77 0d 02  |rawStatsWindow..|
000008a0  26 0c 20 20 20 20 20 20  20 cb 0d 02 30 0c 20 20  |&.       ...0.  |
000008b0  20 20 20 20 20 e1 0d 02  3a 27 20 20 20 20 20 20  |     ...:'      |
000008c0  20 20 20 20 20 20 20 dd  20 f2 55 73 65 72 5f 44  |       . .User_D|
000008d0  72 61 77 49 6e 66 6f 57  69 6e 64 6f 77 0d 02 44  |rawInfoWindow..D|
000008e0  12 20 20 20 20 20 20 20  20 20 20 20 20 20 e1 0d  |.             ..|
000008f0  02 4e 28 20 20 20 20 20  20 20 20 20 20 20 20 20  |.N(             |
00000900  dd 20 f2 55 73 65 72 5f  44 72 61 77 6d 61 69 6e  |. .User_Drawmain|
00000910  77 57 69 6e 64 6f 77 0d  02 58 12 20 20 20 20 20  |wWindow..X.     |
00000920  20 20 20 20 20 20 20 20  e1 0d 02 62 13 5a 25 3d  |        ...b.Z%=|
00000930  bb 28 c0 41 24 2c 4b 25  2d 31 29 29 0d 02 6c 10  |.(.A$,K%-1))..l.|
00000940  53 74 61 74 25 28 5a 25  29 2b 3d 31 0d 02 76 10  |Stat%(Z%)+=1..v.|
00000950  41 24 3d c1 41 24 2c 4b  25 2b 31 29 0d 02 80 05  |A$=.A$,K%+1)....|
00000960  ed 0d 02 8a 0c 5a 25 3d  bb 28 41 24 29 0d 02 94  |.....Z%=.(A$)...|
00000970  10 53 74 61 74 25 28 5a  25 29 2b 3d 31 0d 02 9e  |.Stat%(Z%)+=1...|
00000980  2a 20 20 20 20 20 20 20  20 20 20 20 20 20 dd 20  |*             . |
00000990  f2 55 73 65 72 5f 44 72  61 77 72 65 73 75 6c 74  |.User_Drawresult|
000009a0  77 57 69 6e 64 6f 77 0d  02 a8 12 20 20 20 20 20  |wWindow....     |
000009b0  20 20 20 20 20 20 20 20  e1 0d 02 b2 28 20 20 20  |        ....(   |
000009c0  20 20 20 20 20 20 20 20  20 20 dd 20 f2 55 73 65  |          . .Use|
000009d0  72 5f 44 72 61 77 53 74  61 74 73 57 69 6e 64 6f  |r_DrawStatsWindo|
000009e0  77 0d 02 bc 11 ea 20 49  25 2c 4a 25 2c 4b 25 2c  |w..... I%,J%,K%,|
000009f0  4c 25 0d 02 c6 24 63 68  61 6e 6e 65 6c 25 3d 8e  |L%...$channel%=.|
00000a00  28 22 3c 4f 62 65 79 24  44 69 72 3e 2e 48 69 73  |("<Obey$Dir>.His|
00000a10  74 6f 72 79 22 29 0d 02  d0 08 49 25 3d 30 0d 02  |tory")....I%=0..|
00000a20  da 05 f5 0d 02 e4 09 49  25 2b 3d 31 0d 02 ee 11  |.......I%+=1....|
00000a30  41 24 3d be 23 63 68 61  6e 6e 65 6c 25 0d 02 f8  |A$=.#channel%...|
00000a40  0e e3 20 4a 25 3d 31 20  b8 20 36 0d 03 02 0f 4b  |.. J%=1 . 6....K|
00000a50  25 3d a7 41 24 2c 22 2c  22 29 0d 03 0c 1a 53 74  |%=.A$,",")....St|
00000a60  61 74 25 28 bb 28 c0 41  24 2c 4b 25 2d 31 29 29  |at%(.(.A$,K%-1))|
00000a70  29 2b 3d 31 0d 03 16 10  41 24 3d c1 41 24 2c 4b  |)+=1....A$=.A$,K|
00000a80  25 2b 31 29 0d 03 20 05  ed 0d 03 2a 1a 53 74 61  |%+1).. ....*.Sta|
00000a90  74 25 28 bb 28 c0 41 24  2c 4b 25 2d 31 29 29 29  |t%(.(.A$,K%-1)))|
00000aa0  2b 3d 31 0d 03 34 10 fd  20 c5 23 63 68 61 6e 6e  |+=1..4.. .#chann|
00000ab0  65 6c 25 0d 03 3e 0e d9  23 63 68 61 6e 6e 65 6c  |el%..>..#channel|
00000ac0  25 0d 03 48 46 42 24 3d  22 46 72 65 71 75 65 6e  |%..HFB$="Frequen|
00000ad0  63 79 20 74 61 62 6c 65  20 66 6f 72 20 4c 6f 74  |cy table for Lot|
00000ae0  74 65 72 79 20 44 72 61  77 20 6e 75 6d 62 65 72  |tery Draw number|
00000af0  73 20 6f 76 65 72 20 22  2b c3 28 49 25 29 2b 22  |s over "+.(I%)+"|
00000b00  20 77 65 65 6b 73 22 0d  03 52 2b f2 57 69 6d 70  | weeks"..R+.Wimp|
00000b10  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 53 74 61  |_IconPutText(Sta|
00000b20  74 73 5f 57 69 6e 64 6f  77 25 2c 31 30 38 2c 42  |ts_Window%,108,B|
00000b30  24 29 0d 03 5c 13 e3 20  4a 25 3d 31 20 b8 20 39  |$)..\.. J%=1 . 9|
00000b40  37 20 88 20 32 0d 03 66  3a f2 57 69 6d 70 5f 49  |7 . 2..f:.Wimp_I|
00000b50  63 6f 6e 50 75 74 54 65  78 74 28 53 74 61 74 73  |conPutText(Stats|
00000b60  5f 57 69 6e 64 6f 77 25  2c 4a 25 2c c3 28 53 74  |_Window%,J%,.(St|
00000b70  61 74 25 28 28 4a 25 2b  31 29 2f 32 29 29 29 0d  |at%((J%+1)/2))).|
00000b80  03 70 05 ed 0d 03 7a 0e  e3 20 4a 25 3d 30 20 b8  |.p....z.. J%=0 .|
00000b90  20 34 0d 03 84 08 4c 25  3d 30 0d 03 8e 0e e3 20  | 4....L%=0..... |
00000ba0  4b 25 3d 31 20 b8 20 39  0d 03 98 1c 4c 25 3d 4c  |K%=1 . 9....L%=L|
00000bb0  25 2b 20 53 74 61 74 25  28 28 4a 25 2a 31 30 29  |%+ Stat%((J%*10)|
00000bc0  2b 4b 25 29 0d 03 a2 05  ed 0d 03 ac 13 53 74 61  |+K%).........Sta|
00000bd0  74 25 28 4a 25 2b 35 30  29 3d 4c 25 0d 03 b6 05  |t%(J%+50)=L%....|
00000be0  ed 0d 03 c0 15 e3 20 4a  25 3d 39 39 20 b8 20 31  |...... J%=99 . 1|
00000bf0  30 37 20 88 20 32 0d 03  ca 3a f2 57 69 6d 70 5f  |07 . 2...:.Wimp_|
00000c00  49 63 6f 6e 50 75 74 54  65 78 74 28 53 74 61 74  |IconPutText(Stat|
00000c10  73 5f 57 69 6e 64 6f 77  25 2c 4a 25 2c c3 28 53  |s_Window%,J%,.(S|
00000c20  74 61 74 25 28 28 4a 25  2b 31 29 2f 32 29 29 29  |tat%((J%+1)/2)))|
00000c30  0d 03 d4 05 ed 0d 03 de  12 20 20 20 20 20 20 20  |.........       |
00000c40  20 20 20 20 20 20 e1 0d  03 e8 3b 20 20 20 20 20  |      ....;     |
00000c50  20 20 dd 20 f2 45 76 65  6e 74 5f 4d 6f 75 73 65  |  . .Event_Mouse|
00000c60  43 6c 69 63 6b 28 77 69  6e 64 6f 77 25 2c 69 63  |Click(window%,ic|
00000c70  6f 6e 25 2c 62 75 74 74  6f 6e 25 2c 78 25 2c 79  |on%,button%,x%,y|
00000c80  25 29 0d 03 f2 17 20 20  20 20 20 20 20 c8 8e 20  |%)....       .. |
00000c90  77 69 6e 64 6f 77 25 20  ca 0d 03 fc 6b 20 20 20  |window% ....k   |
00000ca0  20 20 20 20 20 c9 20 42  61 72 5f 57 69 6e 64 6f  |     . Bar_Windo|
00000cb0  77 25 20 20 20 20 20 20  20 20 3a 20 f2 57 69 6d  |w%        : .Wim|
00000cc0  70 5f 57 69 6e 64 6f 77  42 72 69 6e 67 54 6f 54  |p_WindowBringToT|
00000cd0  6f 70 28 6d 61 69 6e 77  5f 57 69 6e 64 6f 77 25  |op(mainw_Window%|
00000ce0  29 3a f2 57 69 6d 70 5f  49 63 6f 6e 43 61 72 65  |):.Wimp_IconCare|
00000cf0  74 28 6d 61 69 6e 77 5f  57 69 6e 64 6f 77 25 2c  |t(mainw_Window%,|
00000d00  30 2c 30 29 0d 04 06 42  20 20 20 20 20 20 20 20  |0,0)...B        |
00000d10  c9 20 49 6e 66 6f 5f 57  69 6e 64 6f 77 25 20 20  |. Info_Window%  |
00000d20  20 20 20 20 20 3a 20 f2  55 73 65 72 5f 4d 6f 75  |     : .User_Mou|
00000d30  73 65 49 6e 66 6f 28 20  62 75 74 74 6f 6e 25 2c  |seInfo( button%,|
00000d40  69 63 6f 6e 25 29 0d 04  10 43 20 20 20 20 20 20  |icon%)...C      |
00000d50  20 20 c9 20 6d 61 69 6e  77 5f 57 69 6e 64 6f 77  |  . mainw_Window|
00000d60  25 20 20 20 20 20 20 3a  20 f2 55 73 65 72 5f 4d  |%      : .User_M|
00000d70  6f 75 73 65 6d 61 69 6e  77 28 20 62 75 74 74 6f  |ousemainw( butto|
00000d80  6e 25 2c 69 63 6f 6e 25  29 0d 04 1a 45 20 20 20  |n%,icon%)...E   |
00000d90  20 20 20 20 20 c9 20 72  65 73 75 6c 74 77 5f 57  |     . resultw_W|
00000da0  69 6e 64 6f 77 25 20 20  20 20 3a 20 f2 55 73 65  |indow%    : .Use|
00000db0  72 5f 4d 6f 75 73 65 72  65 73 75 6c 74 77 28 20  |r_Mouseresultw( |
00000dc0  62 75 74 74 6f 6e 25 2c  69 63 6f 6e 25 29 0d 04  |button%,icon%)..|
00000dd0  24 0c 20 20 20 20 20 20  20 cb 0d 04 2e 0c 20 20  |$.       .....  |
00000de0  20 20 20 20 20 e1 0d 04  38 2e 20 20 20 20 20 20  |     ...8.      |
00000df0  20 20 20 dd 20 f2 55 73  65 72 5f 4d 6f 75 73 65  |   . .User_Mouse|
00000e00  49 6e 66 6f 28 20 62 75  74 74 6f 6e 25 2c 69 63  |Info( button%,ic|
00000e10  6f 6e 25 29 0d 04 42 4f  20 20 20 20 20 20 20 20  |on%)..BO        |
00000e20  20 20 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 41 6c  |  .Wimp_WindowAl|
00000e30  65 72 74 28 22 49 6e 66  6f 22 2c 22 4d 6f 75 73  |ert("Info","Mous|
00000e40  65 20 62 75 74 74 6f 6e  3d 22 2b c3 62 75 74 74  |e button="+.butt|
00000e50  6f 6e 25 2b 22 69 63 6f  6e 3d 22 2b c3 69 63 6f  |on%+"icon="+.ico|
00000e60  6e 25 29 0d 04 4c 0e 20  20 20 20 20 20 20 20 20  |n%)..L.         |
00000e70  e1 0d 04 56 2f 20 20 20  20 20 20 20 20 20 dd 20  |...V/         . |
00000e80  f2 55 73 65 72 5f 4d 6f  75 73 65 6d 61 69 6e 77  |.User_Mousemainw|
00000e90  28 20 62 75 74 74 6f 6e  25 2c 69 63 6f 6e 25 29  |( button%,icon%)|
00000ea0  0d 04 60 0e c8 8e 20 69  63 6f 6e 25 20 ca 0d 04  |..`... icon% ...|
00000eb0  6a 5a 20 20 20 20 20 c9  20 39 20 3a f2 52 65 73  |jZ     . 9 :.Res|
00000ec0  65 74 3a f2 55 73 65 72  5f 43 61 6c 63 75 6c 61  |et:.User_Calcula|
00000ed0  74 65 3a f2 55 73 65 72  5f 44 69 73 70 6c 61 79  |te:.User_Display|
00000ee0  3a f2 57 69 6d 70 5f 57  69 6e 64 6f 77 42 72 69  |:.Wimp_WindowBri|
00000ef0  6e 67 54 6f 54 6f 70 28  72 65 73 75 6c 74 77 5f  |ngToTop(resultw_|
00000f00  57 69 6e 64 6f 77 25 29  0d 04 74 1a 20 20 20 20  |Window%)..t.    |
00000f10  20 c9 20 38 20 3a f2 55  73 65 72 5f 52 61 6e 64  | . 8 :.User_Rand|
00000f20  6f 6d 0d 04 7e 1b 20 20  20 20 20 c9 20 31 31 3a  |om..~.     . 11:|
00000f30  f2 55 73 65 72 5f 48 75  6e 64 72 65 64 0d 04 88  |.User_Hundred...|
00000f40  05 cb 0d 04 92 0e 20 20  20 20 20 20 20 20 20 e1  |......         .|
00000f50  0d 04 9c 31 20 20 20 20  20 20 20 20 20 dd 20 f2  |...1         . .|
00000f60  55 73 65 72 5f 4d 6f 75  73 65 72 65 73 75 6c 74  |User_Mouseresult|
00000f70  77 28 20 62 75 74 74 6f  6e 25 2c 69 63 6f 6e 25  |w( button%,icon%|
00000f80  29 0d 04 a6 52 20 20 20  20 20 20 20 20 20 20 f2  |)...R          .|
00000f90  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
00000fa0  28 22 72 65 73 75 6c 74  77 22 2c 22 4d 6f 75 73  |("resultw","Mous|
00000fb0  65 20 62 75 74 74 6f 6e  3d 22 2b c3 62 75 74 74  |e button="+.butt|
00000fc0  6f 6e 25 2b 22 69 63 6f  6e 3d 22 2b c3 69 63 6f  |on%+"icon="+.ico|
00000fd0  6e 25 29 0d 04 b0 0e 20  20 20 20 20 20 20 20 20  |n%)....         |
00000fe0  e1 0d 04 ba 30 20 20 20  20 20 20 20 dd 20 f2 45  |....0       . .E|
00000ff0  76 65 6e 74 5f 4b 65 79  50 72 65 73 73 28 77 69  |vent_KeyPress(wi|
00001000  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |ndow%,icon%,key%|
00001010  29 0d 04 c4 1a 20 20 20  20 20 20 20 20 20 20 c8  |)....          .|
00001020  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 04 ce 46 20  |. window% ....F |
00001030  20 20 20 20 20 20 20 20  20 20 c9 20 6d 61 69 6e  |          . main|
00001040  77 5f 57 69 6e 64 6f 77  25 20 20 20 20 20 20 3a  |w_Window%      :|
00001050  20 f2 55 73 65 72 5f 4b  65 79 50 72 65 73 73 6d  | .User_KeyPressm|
00001060  61 69 6e 77 28 20 69 63  6f 6e 25 2c 6b 65 79 25  |ainw( icon%,key%|
00001070  29 0d 04 d8 0f 20 20 20  20 20 20 20 20 20 20 cb  |)....          .|
00001080  0d 04 e2 0c 20 20 20 20  20 20 20 e1 0d 04 ec 2f  |....       ..../|
00001090  20 20 20 20 20 20 20 20  20 dd 20 f2 55 73 65 72  |         . .User|
000010a0  5f 4b 65 79 50 72 65 73  73 6d 61 69 6e 77 28 20  |_KeyPressmainw( |
000010b0  69 63 6f 6e 25 2c 6b 65  79 25 29 0d 04 f6 0e c8  |icon%,key%).....|
000010c0  8e 20 69 63 6f 6e 25 20  ca 0d 05 00 41 c9 20 30  |. icon% ....A. 0|
000010d0  3a e7 20 6b 65 79 25 3d  31 33 20 f2 57 69 6d 70  |:. key%=13 .Wimp|
000010e0  5f 49 63 6f 6e 43 61 72  65 74 28 6d 61 69 6e 77  |_IconCaret(mainw|
000010f0  5f 57 69 6e 64 6f 77 25  2c 31 2c 30 29 3a 41 64  |_Window%,1,0):Ad|
00001100  64 54 6f 46 69 6c 65 25  3d b9 0d 05 0a 34 c9 20  |dToFile%=....4. |
00001110  31 3a e7 20 6b 65 79 25  3d 31 33 20 f2 57 69 6d  |1:. key%=13 .Wim|
00001120  70 5f 49 63 6f 6e 43 61  72 65 74 28 6d 61 69 6e  |p_IconCaret(main|
00001130  77 5f 57 69 6e 64 6f 77  25 2c 32 2c 30 29 0d 05  |w_Window%,2,0)..|
00001140  14 34 c9 20 32 3a e7 20  6b 65 79 25 3d 31 33 20  |.4. 2:. key%=13 |
00001150  f2 57 69 6d 70 5f 49 63  6f 6e 43 61 72 65 74 28  |.Wimp_IconCaret(|
00001160  6d 61 69 6e 77 5f 57 69  6e 64 6f 77 25 2c 33 2c  |mainw_Window%,3,|
00001170  30 29 0d 05 1e 34 c9 20  33 3a e7 20 6b 65 79 25  |0)...4. 3:. key%|
00001180  3d 31 33 20 f2 57 69 6d  70 5f 49 63 6f 6e 43 61  |=13 .Wimp_IconCa|
00001190  72 65 74 28 6d 61 69 6e  77 5f 57 69 6e 64 6f 77  |ret(mainw_Window|
000011a0  25 2c 34 2c 30 29 0d 05  28 34 c9 20 34 3a e7 20  |%,4,0)..(4. 4:. |
000011b0  6b 65 79 25 3d 31 33 20  f2 57 69 6d 70 5f 49 63  |key%=13 .Wimp_Ic|
000011c0  6f 6e 43 61 72 65 74 28  6d 61 69 6e 77 5f 57 69  |onCaret(mainw_Wi|
000011d0  6e 64 6f 77 25 2c 35 2c  30 29 0d 05 32 34 c9 20  |ndow%,5,0)..24. |
000011e0  35 3a e7 20 6b 65 79 25  3d 31 33 20 f2 57 69 6d  |5:. key%=13 .Wim|
000011f0  70 5f 49 63 6f 6e 43 61  72 65 74 28 6d 61 69 6e  |p_IconCaret(main|
00001200  77 5f 57 69 6e 64 6f 77  25 2c 36 2c 30 29 0d 05  |w_Window%,6,0)..|
00001210  3c 5e c9 20 36 3a e7 20  6b 65 79 25 3d 31 33 20  |<^. 6:. key%=13 |
00001220  f2 52 65 73 65 74 3a f2  55 73 65 72 5f 43 61 6c  |.Reset:.User_Cal|
00001230  63 75 6c 61 74 65 3a f2  55 73 65 72 5f 44 69 73  |culate:.User_Dis|
00001240  70 6c 61 79 3a f2 57 69  6d 70 5f 57 69 6e 64 6f  |play:.Wimp_Windo|
00001250  77 42 72 69 6e 67 54 6f  54 6f 70 28 72 65 73 75  |wBringToTop(resu|
00001260  6c 74 77 5f 57 69 6e 64  6f 77 25 29 0d 05 46 05  |ltw_Window%)..F.|
00001270  cb 0d 05 50 0e 20 20 20  20 20 20 20 20 20 e1 0d  |...P.         ..|
00001280  05 5a 25 20 20 20 20 20  20 20 dd 20 f2 45 76 65  |.Z%       . .Eve|
00001290  6e 74 5f 4d 65 6e 75 43  68 6f 69 63 65 28 6d 65  |nt_MenuChoice(me|
000012a0  6e 75 25 29 0d 05 64 16  20 20 20 20 20 20 20 20  |nu%)..d.        |
000012b0  c8 8e 20 6d 65 6e 75 25  20 ca 0d 05 6e 3c 20 20  |.. menu% ...n<  |
000012c0  20 20 20 20 20 20 20 20  20 20 20 20 c9 20 42 61  |            . Ba|
000012d0  72 5f 4d 65 6e 75 25 20  20 20 20 20 20 20 20 20  |r_Menu%         |
000012e0  20 3a 20 f2 55 73 65 72  5f 4d 65 6e 75 43 68 6f  | : .User_MenuCho|
000012f0  69 63 65 42 61 72 0d 05  78 3d 20 20 20 20 20 20  |iceBar..x=      |
00001300  20 20 20 20 20 20 20 20  c9 20 4d 61 69 6e 5f 4d  |        . Main_M|
00001310  65 6e 75 25 20 20 20 20  20 20 20 20 20 3a 20 f2  |enu%         : .|
00001320  55 73 65 72 5f 4d 65 6e  75 43 68 6f 69 63 65 4d  |User_MenuChoiceM|
00001330  61 69 6e 0d 05 82 0d 20  20 20 20 20 20 20 20 cb  |ain....        .|
00001340  0d 05 8c 0c 20 20 20 20  20 20 20 e1 0d 05 96 20  |....       .... |
00001350  20 20 20 20 20 20 20 dd  20 f2 55 73 65 72 5f 4d  |       . .User_M|
00001360  65 6e 75 43 68 6f 69 63  65 42 61 72 0d 05 a0 24  |enuChoiceBar...$|
00001370  20 20 20 20 20 20 20 20  c8 8e 20 a4 57 69 6d 70  |        .. .Wimp|
00001380  5f 4d 65 6e 75 43 68 6f  69 63 65 28 30 29 20 ca  |_MenuChoice(0) .|
00001390  0d 05 aa 10 20 20 20 20  20 20 20 20 20 c9 20 31  |....         . 1|
000013a0  0d 05 b4 19 20 20 20 20  20 20 20 20 20 c9 20 33  |....         . 3|
000013b0  20 3a f2 46 69 6e 69 73  68 0d 05 be 0d 20 20 20  | :.Finish....   |
000013c0  20 20 20 20 20 cb 0d 05  c8 0c 20 20 20 20 20 20  |     .....      |
000013d0  20 e1 0d 05 d2 21 20 20  20 20 20 20 20 dd 20 f2  | ....!       . .|
000013e0  55 73 65 72 5f 4d 65 6e  75 43 68 6f 69 63 65 4d  |User_MenuChoiceM|
000013f0  61 69 6e 0d 05 dc 24 20  20 20 20 20 20 20 20 c8  |ain...$        .|
00001400  8e 20 a4 57 69 6d 70 5f  4d 65 6e 75 43 68 6f 69  |. .Wimp_MenuChoi|
00001410  63 65 28 30 29 20 ca 0d  05 e6 4a 20 20 20 20 20  |ce(0) ....J     |
00001420  20 20 20 20 c9 20 31 20  3a 46 61 73 74 25 3d ac  |    . 1 :Fast%=.|
00001430  20 46 61 73 74 25 3a 54  69 63 6b 25 3d ac 20 54  | Fast%:Tick%=. T|
00001440  69 63 6b 25 3a f2 57 69  6d 70 5f 4d 65 6e 75 54  |ick%:.Wimp_MenuT|
00001450  69 63 6b 28 4d 61 69 6e  5f 4d 65 6e 75 25 2c 31  |ick(Main_Menu%,1|
00001460  29 0d 05 f0 25 20 20 20  20 20 20 20 20 20 c9 20  |)...%         . |
00001470  32 20 3a f2 55 73 65 72  5f 4d 65 6e 75 43 68 6f  |2 :.User_MenuCho|
00001480  69 63 65 53 75 62 0d 05  fa 7d 20 20 20 20 20 20  |iceSub...}      |
00001490  20 20 20 c9 20 34 20 3a  e7 20 41 64 64 54 6f 46  |   . 4 :. AddToF|
000014a0  69 6c 65 25 3d b9 20 e7  20 a4 57 69 6d 70 5f 57  |ile%=. . .Wimp_W|
000014b0  69 6e 64 6f 77 43 61 6e  63 65 6c 28 22 21 4c 6f  |indowCancel("!Lo|
000014c0  74 74 65 72 79 22 2c 22  41 64 64 20 6e 75 6d 62  |ttery","Add numb|
000014d0  65 72 73 20 74 6f 20 64  61 74 61 62 61 73 65 20  |ers to database |
000014e0  3f 22 29 20 8c 20 f2 75  70 64 61 74 65 5f 64 61  |?") . .update_da|
000014f0  74 61 62 61 73 65 3a 41  64 64 54 6f 46 69 6c 65  |tabase:AddToFile|
00001500  25 3d a3 0d 06 04 0d 20  20 20 20 20 20 20 20 cb  |%=.....        .|
00001510  0d 06 0e 0c 20 20 20 20  20 20 20 e1 0d 06 18 20  |....       .... |
00001520  20 20 20 20 20 20 20 dd  20 f2 55 73 65 72 5f 4d  |       . .User_M|
00001530  65 6e 75 43 68 6f 69 63  65 53 75 62 0d 06 22 23  |enuChoiceSub.."#|
00001540  20 20 20 20 20 20 20 c8  8e 20 a4 57 69 6d 70 5f  |       .. .Wimp_|
00001550  4d 65 6e 75 43 68 6f 69  63 65 28 31 29 20 ca 0d  |MenuChoice(1) ..|
00001560  06 2c 23 20 20 20 20 20  20 20 20 20 c9 20 31 20  |.,#         . 1 |
00001570  3a 4d 75 6c 74 25 3d bb  28 24 62 75 66 66 65 72  |:Mult%=.($buffer|
00001580  25 29 0d 06 36 35 20 20  20 20 20 20 20 20 20 20  |%)..65          |
00001590  20 20 20 20 20 20 3a 41  24 3d 22 52 61 6e 64 6f  |      :A$="Rando|
000015a0  6d 20 22 2b c3 28 4d 75  6c 74 25 29 2b 22 20 45  |m "+.(Mult%)+" E|
000015b0  6e 74 72 69 65 73 22 0d  06 40 3b 20 20 20 20 20  |ntries"..@;     |
000015c0  20 20 20 20 20 20 20 20  20 20 20 3a f2 57 69 6d  |           :.Wim|
000015d0  70 5f 49 63 6f 6e 50 75  74 54 65 78 74 28 6d 61  |p_IconPutText(ma|
000015e0  69 6e 77 5f 57 69 6e 64  6f 77 25 2c 31 31 2c 41  |inw_Window%,11,A|
000015f0  24 29 0d 06 4a 0c 20 20  20 20 20 20 20 cb 0d 06  |$)..J.       ...|
00001600  54 0c 20 20 20 20 20 20  20 e1 0d 06 5e 29 20 20  |T.       ...^)  |
00001610  20 20 20 20 20 dd 20 f2  45 76 65 6e 74 5f 4c 6f  |     . .Event_Lo|
00001620  61 64 46 69 6c 65 28 66  69 6c 65 24 2c 74 79 70  |adFile(file$,typ|
00001630  65 24 29 0d 06 68 0e c8  8e 20 74 79 70 65 24 20  |e$)..h... type$ |
00001640  ca 0d 06 72 7e 20 20 c9  20 22 54 65 78 74 22 20  |...r~  . "Text" |
00001650  3a 20 f2 55 73 65 72 5f  46 69 6c 65 44 61 74 61  |: .User_FileData|
00001660  28 66 69 6c 65 24 29 3a  46 69 6c 65 5f 4c 6f 61  |(file$):File_Loa|
00001670  64 65 64 25 3d b9 3a f2  57 69 6d 70 5f 57 69 6e  |ded%=.:.Wimp_Win|
00001680  64 6f 77 42 72 69 6e 67  54 6f 54 6f 70 28 6d 61  |dowBringToTop(ma|
00001690  69 6e 77 5f 57 69 6e 64  6f 77 25 29 3a f2 57 69  |inw_Window%):.Wi|
000016a0  6d 70 5f 49 63 6f 6e 43  61 72 65 74 28 6d 61 69  |mp_IconCaret(mai|
000016b0  6e 77 5f 57 69 6e 64 6f  77 25 2c 30 2c 30 29 0d  |nw_Window%,0,0).|
000016c0  06 7c 06 20 cb 0d 06 86  0c 20 20 20 20 20 20 20  |.|. .....       |
000016d0  e1 0d 06 90 2b 20 20 20  20 20 20 20 dd 20 f2 45  |....+       . .E|
000016e0  76 65 6e 74 5f 53 61 76  65 46 69 6c 65 28 66 69  |vent_SaveFile(fi|
000016f0  6c 65 24 2c 77 69 6e 64  6f 77 25 29 0d 06 9a 0c  |le$,window%)....|
00001700  20 20 20 20 20 20 20 e1  0d 06 a4 12 dd 20 f2 55  |       ...... .U|
00001710  73 65 72 5f 52 61 6e 64  6f 6d 0d 06 ae 05 f5 0d  |ser_Random......|
00001720  06 b8 0b 46 6c 61 67 25  3d 30 0d 06 c2 0e e3 20  |...Flag%=0..... |
00001730  49 25 3d 30 20 b8 20 36  0d 06 cc 10 52 25 28 49  |I%=0 . 6....R%(I|
00001740  25 29 3d b3 28 34 39 29  0d 06 d6 05 ed 0d 06 e0  |%)=.(49)........|
00001750  0e e3 20 49 25 3d 31 20  b8 20 36 0d 06 ea 09 4a  |.. I%=1 . 6....J|
00001760  25 3d 49 25 0d 06 f4 05  f5 0d 06 fe 09 4a 25 2d  |%=I%.........J%-|
00001770  3d 31 0d 07 08 1b e7 20  52 25 28 49 25 29 3d 52  |=1..... R%(I%)=R|
00001780  25 28 4a 25 29 20 46 6c  61 67 25 3d 31 0d 07 12  |%(J%) Flag%=1...|
00001790  0a fd 20 4a 25 3d 30 0d  07 1c 05 ed 0d 07 26 0d  |.. J%=0.......&.|
000017a0  fd 20 46 6c 61 67 25 3d  30 0d 07 30 0a e7 20 4c  |. Flag%=0..0.. L|
000017b0  25 20 e1 0d 07 3a 0e e3  20 49 25 3d 30 20 b8 20  |% ...:.. I%=0 . |
000017c0  36 0d 07 44 31 f2 57 69  6d 70 5f 49 63 6f 6e 50  |6..D1.Wimp_IconP|
000017d0  75 74 54 65 78 74 28 6d  61 69 6e 77 5f 57 69 6e  |utText(mainw_Win|
000017e0  64 6f 77 25 2c 49 25 2c  c3 28 52 25 28 49 25 29  |dow%,I%,.(R%(I%)|
000017f0  29 29 0d 07 4e 05 ed 0d  07 58 10 41 64 64 54 6f  |))..N....X.AddTo|
00001800  46 69 6c 65 25 3d a3 0d  07 62 05 e1 0d 07 6c 15  |File%=...b....l.|
00001810  dd 20 f2 55 73 65 72 5f  43 61 6c 63 75 6c 61 74  |. .User_Calculat|
00001820  65 0d 07 76 0d e7 20 48  25 3d 30 20 f2 69 0d 07  |e..v.. H%=0 .i..|
00001830  80 12 e3 20 49 25 3d 31  20 b8 20 53 79 6e 4e 25  |... I%=1 . SynN%|
00001840  0d 07 8a 0c 4d 61 74 63  68 25 3d 30 0d 07 94 0e  |....Match%=0....|
00001850  e3 20 4a 25 3d 30 20 b8  20 35 0d 07 9e 0e e3 20  |. J%=0 . 5..... |
00001860  4b 25 3d 31 20 b8 20 36  0d 07 a8 26 e7 20 4c 69  |K%=1 . 6...&. Li|
00001870  6e 65 73 25 28 4b 25 2c  49 25 29 3d 52 25 28 4a  |nes%(K%,I%)=R%(J|
00001880  25 29 20 8c 20 4d 61 74  63 68 25 2b 3d 31 0d 07  |%) . Match%+=1..|
00001890  b2 05 ed 0d 07 bc 05 ed  0d 07 c6 0f c8 8e 20 4d  |.............. M|
000018a0  61 74 63 68 25 20 ca 0d  07 d0 11 c9 20 33 20 3a  |atch% ...... 3 :|
000018b0  52 6f 77 33 25 2b 3d 31  0d 07 da 11 c9 20 34 20  |Row3%+=1..... 4 |
000018c0  3a 52 6f 77 34 25 2b 3d  31 0d 07 e4 0f c9 20 35  |:Row4%+=1..... 5|
000018d0  20 3a f2 42 6f 6e 75 73  0d 07 ee 11 c9 20 36 20  | :.Bonus..... 6 |
000018e0  3a 52 6f 77 36 25 2b 3d  31 0d 07 f8 05 cb 0d 08  |:Row6%+=1.......|
000018f0  02 05 ed 0d 08 0c 05 e1  0d 08 16 0c dd 20 f2 42  |............. .B|
00001900  6f 6e 75 73 0d 08 20 0d  4d 25 3d 42 6f 6e 75 73  |onus.. .M%=Bonus|
00001910  25 0d 08 2a 0e e3 20 4c  25 3d 31 20 b8 20 36 0d  |%..*.. L%=1 . 6.|
00001920  08 34 25 e7 20 4c 69 6e  65 73 25 28 4c 25 2c 49  |.4%. Lines%(L%,I|
00001930  25 29 3d 52 25 28 36 29  20 8c 20 42 6f 6e 75 73  |%)=R%(6) . Bonus|
00001940  25 2b 3d 31 0d 08 3e 05  ed 0d 08 48 1a e7 20 4d  |%+=1..>....H.. M|
00001950  25 3d 42 6f 6e 75 73 25  20 8c 20 52 6f 77 35 25  |%=Bonus% . Row5%|
00001960  2b 3d 31 0d 08 52 05 e1  0d 08 5c 13 dd 20 f2 55  |+=1..R....\.. .U|
00001970  73 65 72 5f 44 69 73 70  6c 61 79 0d 08 66 71 e7  |ser_Display..fq.|
00001980  20 28 52 6f 77 33 25 2b  52 6f 77 34 25 2b 52 6f  | (Row3%+Row4%+Ro|
00001990  77 35 25 2b 52 6f 77 36  25 2b 42 6f 6e 75 73 25  |w5%+Row6%+Bonus%|
000019a0  3d 30 29 20 80 20 48 25  3d 30 20 8c 20 f2 57 69  |=0) . H%=0 . .Wi|
000019b0  6d 70 5f 49 63 6f 6e 50  75 74 54 65 78 74 28 72  |mp_IconPutText(r|
000019c0  65 73 75 6c 74 77 5f 57  69 6e 64 6f 77 25 2c 32  |esultw_Window%,2|
000019d0  2c 22 4e 6f 20 50 72 69  7a 65 73 20 74 68 69 73  |,"No Prizes this|
000019e0  20 77 65 65 6b 2e 2e 2e  22 29 3a e1 0d 08 70 63  | week..."):...pc|
000019f0  e7 20 52 6f 77 33 25 3e  30 20 8c 20 41 24 3d c3  |. Row3%>0 . A$=.|
00001a00  28 52 6f 77 33 25 29 2b  22 20 70 72 69 7a 65 20  |(Row3%)+" prize |
00001a10  66 6f 72 20 33 20 6d 61  74 63 68 69 6e 67 20 6e  |for 3 matching n|
00001a20  75 6d 62 65 72 73 22 3a  f2 57 69 6d 70 5f 49 63  |umbers":.Wimp_Ic|
00001a30  6f 6e 50 75 74 54 65 78  74 28 72 65 73 75 6c 74  |onPutText(result|
00001a40  77 5f 57 69 6e 64 6f 77  25 2c 30 2c 41 24 29 0d  |w_Window%,0,A$).|
00001a50  08 7a 63 e7 20 52 6f 77  34 25 3e 30 20 8c 20 41  |.zc. Row4%>0 . A|
00001a60  24 3d c3 28 52 6f 77 34  25 29 2b 22 20 70 72 69  |$=.(Row4%)+" pri|
00001a70  7a 65 20 66 6f 72 20 34  20 6d 61 74 63 68 69 6e  |ze for 4 matchin|
00001a80  67 20 6e 75 6d 62 65 72  73 22 3a f2 57 69 6d 70  |g numbers":.Wimp|
00001a90  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 72 65 73  |_IconPutText(res|
00001aa0  75 6c 74 77 5f 57 69 6e  64 6f 77 25 2c 31 2c 41  |ultw_Window%,1,A|
00001ab0  24 29 0d 08 84 63 e7 20  52 6f 77 35 25 3e 30 20  |$)...c. Row5%>0 |
00001ac0  8c 20 41 24 3d c3 28 52  6f 77 35 25 29 2b 22 20  |. A$=.(Row5%)+" |
00001ad0  70 72 69 7a 65 20 66 6f  72 20 35 20 6d 61 74 63  |prize for 5 matc|
00001ae0  68 69 6e 67 20 6e 75 6d  62 65 72 73 22 3a f2 57  |hing numbers":.W|
00001af0  69 6d 70 5f 49 63 6f 6e  50 75 74 54 65 78 74 28  |imp_IconPutText(|
00001b00  72 65 73 75 6c 74 77 5f  57 69 6e 64 6f 77 25 2c  |resultw_Window%,|
00001b10  32 2c 41 24 29 0d 08 8e  55 e7 20 52 6f 77 36 25  |2,A$)...U. Row6%|
00001b20  3e 30 20 8c 20 41 24 3d  c3 28 52 6f 77 36 25 29  |>0 . A$=.(Row6%)|
00001b30  2b 22 20 4a 61 63 6b 70  6f 74 20 21 21 21 21 21  |+" Jackpot !!!!!|
00001b40  21 22 3a f2 57 69 6d 70  5f 49 63 6f 6e 50 75 74  |!":.Wimp_IconPut|
00001b50  54 65 78 74 28 72 65 73  75 6c 74 77 5f 57 69 6e  |Text(resultw_Win|
00001b60  64 6f 77 25 2c 34 2c 41  24 29 0d 08 98 75 e7 20  |dow%,4,A$)...u. |
00001b70  42 6f 6e 75 73 25 3e 30  20 8c 20 41 24 3d c3 28  |Bonus%>0 . A$=.(|
00001b80  42 6f 6e 75 73 25 29 2b  22 20 70 72 69 7a 65 20  |Bonus%)+" prize |
00001b90  66 6f 72 20 35 20 6d 61  74 63 68 69 6e 67 20 6e  |for 5 matching n|
00001ba0  75 6d 62 65 72 73 20 70  6c 75 73 20 42 6f 6e 75  |umbers plus Bonu|
00001bb0  73 20 42 61 6c 6c 22 3a  f2 57 69 6d 70 5f 49 63  |s Ball":.Wimp_Ic|
00001bc0  6f 6e 50 75 74 54 65 78  74 28 72 65 73 75 6c 74  |onPutText(result|
00001bd0  77 5f 57 69 6e 64 6f 77  25 2c 33 2c 41 24 29 0d  |w_Window%,3,A$).|
00001be0  08 a2 05 e1 0d 08 ac 0c  dd 20 f2 52 65 73 65 74  |......... .Reset|
00001bf0  0d 08 b6 2c 52 6f 77 33  25 3d 30 3a 52 6f 77 34  |...,Row3%=0:Row4|
00001c00  25 3d 30 3a 52 6f 77 35  25 3d 30 3a 52 6f 77 36  |%=0:Row5%=0:Row6|
00001c10  25 3d 30 3a 42 6f 6e 75  73 25 3d 30 0d 08 c0 0e  |%=0:Bonus%=0....|
00001c20  e3 20 49 25 3d 30 20 b8  20 34 0d 08 ca 2c f2 57  |. I%=0 . 4...,.W|
00001c30  69 6d 70 5f 49 63 6f 6e  50 75 74 54 65 78 74 28  |imp_IconPutText(|
00001c40  72 65 73 75 6c 74 77 5f  57 69 6e 64 6f 77 25 2c  |resultw_Window%,|
00001c50  49 25 2c 22 22 29 0d 08  d4 05 ed 0d 08 de 05 e1  |I%,"")..........|
00001c60  0d 08 e8 13 dd 20 f2 55  73 65 72 5f 48 75 6e 64  |..... .User_Hund|
00001c70  72 65 64 0d 08 f2 08 48  25 3d 31 0d 08 fc 14 c8  |red....H%=1.....|
00001c80  99 22 48 6f 75 72 67 6c  61 73 73 5f 4f 6e 22 0d  |."Hourglass_On".|
00001c90  09 06 10 e7 20 46 61 73  74 25 20 4c 25 3d b9 0d  |.... Fast% L%=..|
00001ca0  09 10 2b f2 57 69 6d 70  5f 57 69 6e 64 6f 77 42  |..+.Wimp_WindowB|
00001cb0  72 69 6e 67 54 6f 54 6f  70 28 72 65 73 75 6c 74  |ringToTop(result|
00001cc0  77 5f 57 69 6e 64 6f 77  25 29 0d 09 1a 0a f2 52  |w_Window%).....R|
00001cd0  65 73 65 74 0d 09 24 12  e3 20 51 25 3d 31 20 b8  |eset..$.. Q%=1 .|
00001ce0  20 4d 75 6c 74 25 0d 09  2e 10 f2 55 73 65 72 5f  | Mult%.....User_|
00001cf0  52 61 6e 64 6f 6d 0d 09  38 13 f2 55 73 65 72 5f  |Random..8..User_|
00001d00  43 61 6c 63 75 6c 61 74  65 0d 09 42 18 e7 20 4c  |Calculate..B.. L|
00001d10  25 3d a3 20 f2 55 73 65  72 5f 44 69 73 70 6c 61  |%=. .User_Displa|
00001d20  79 0d 09 4c 05 ed 0d 09  56 11 f2 55 73 65 72 5f  |y..L....V..User_|
00001d30  44 69 73 70 6c 61 79 0d  09 60 0d 48 25 3d 30 3a  |Display..`.H%=0:|
00001d40  4c 25 3d a3 0d 09 6a 15  c8 99 22 48 6f 75 72 67  |L%=...j..."Hourg|
00001d50  6c 61 73 73 5f 4f 66 66  22 0d 09 74 10 41 64 64  |lass_Off"..t.Add|
00001d60  54 6f 46 69 6c 65 25 3d  a3 0d 09 7e 05 e1 0d 09  |ToFile%=...~....|
00001d70  88 1b dd 20 f2 55 73 65  72 5f 46 69 6c 65 44 61  |... .User_FileDa|
00001d80  74 61 28 66 69 6c 65 24  29 0d 09 92 15 63 68 61  |ta(file$)....cha|
00001d90  6e 6e 65 6c 25 3d 8e 28  66 69 6c 65 24 29 0d 09  |nnel%=.(file$)..|
00001da0  9c 11 41 24 3d be 23 63  68 61 6e 6e 65 6c 25 0d  |..A$=.#channel%.|
00001db0  09 a6 0f 53 79 6e 4e 25  3d bb 28 41 24 29 0d 09  |...SynN%=.(A$)..|
00001dc0  b0 15 de 20 4c 69 6e 65  73 25 28 36 2c 53 79 6e  |... Lines%(6,Syn|
00001dd0  4e 25 29 0d 09 ba 12 e3  20 49 25 3d 31 20 b8 20  |N%)..... I%=1 . |
00001de0  53 79 6e 4e 25 0d 09 c4  11 41 24 3d be 23 63 68  |SynN%....A$=.#ch|
00001df0  61 6e 6e 65 6c 25 0d 09  ce 0e e3 20 4a 25 3d 31  |annel%..... J%=1|
00001e00  20 b8 20 35 0d 09 d8 0f  4b 25 3d a7 41 24 2c 22  | . 5....K%=.A$,"|
00001e10  2c 22 29 0d 09 e2 1e 4c  69 6e 65 73 25 28 4a 25  |,")....Lines%(J%|
00001e20  2c 49 25 29 3d bb 28 c0  41 24 2c 4b 25 2d 31 29  |,I%)=.(.A$,K%-1)|
00001e30  29 0d 09 ec 10 41 24 3d  c1 41 24 2c 4b 25 2b 31  |)....A$=.A$,K%+1|
00001e40  29 0d 09 f6 05 ed 0d 0a  00 16 4c 69 6e 65 73 25  |).........Lines%|
00001e50  28 36 2c 49 25 29 3d bb  28 41 24 29 0d 0a 0a 05  |(6,I%)=.(A$)....|
00001e60  ed 0d 0a 14 0e d9 23 63  68 61 6e 6e 65 6c 25 0d  |......#channel%.|
00001e70  0a 1e 05 e1 0d 0a 28 08  dd 20 f2 69 0d 0a 32 0e  |......(.. .i..2.|
00001e80  e3 20 49 25 3d 30 20 b8  20 36 0d 0a 3c 2e 52 25  |. I%=0 . 6..<.R%|
00001e90  28 49 25 29 3d bb 28 a4  57 69 6d 70 5f 49 63 6f  |(I%)=.(.Wimp_Ico|
00001ea0  6e 54 65 78 74 28 6d 61  69 6e 77 5f 57 69 6e 64  |nText(mainw_Wind|
00001eb0  6f 77 25 2c 49 25 29 29  0d 0a 46 05 ed 0d 0a 50  |ow%,I%))..F....P|
00001ec0  05 e1 0d 0a 5a 0c dd f2  46 69 6e 69 73 68 0d 0a  |....Z...Finish..|
00001ed0  64 7c e7 20 41 64 64 54  6f 46 69 6c 65 25 3d b9  |d|. AddToFile%=.|
00001ee0  20 e7 20 a4 57 69 6d 70  5f 57 69 6e 64 6f 77 43  | . .Wimp_WindowC|
00001ef0  61 6e 63 65 6c 28 22 21  4c 6f 74 74 65 72 79 22  |ancel("!Lottery"|
00001f00  2c 22 41 64 64 20 6e 75  6d 62 65 72 73 20 74 6f  |,"Add numbers to|
00001f10  20 64 61 74 61 62 61 73  65 20 3f 22 29 20 8c 20  | database ?") . |
00001f20  f2 75 70 64 61 74 65 5f  64 61 74 61 62 61 73 65  |.update_database|
00001f30  3a 66 69 6e 69 73 68 65  64 25 3d b9 20 8b 20 66  |:finished%=. . f|
00001f40  69 6e 69 73 68 65 64 25  3d b9 0d 0a 6e 05 e1 0d  |inished%=...n...|
00001f50  0a 78 16 dd 20 f2 75 70  64 61 74 65 5f 64 61 74  |.x.. .update_dat|
00001f60  61 62 61 73 65 0d 0a 82  1e 46 25 3d ad 28 22 3c  |abase....F%=.("<|
00001f70  4f 62 65 79 24 44 69 72  3e 2e 48 69 73 74 6f 72  |Obey$Dir>.Histor|
00001f80  79 22 29 0d 0a 8c 0d cf  23 46 25 3d a2 23 46 25  |y").....#F%=.#F%|
00001f90  0d 0a 96 09 42 24 3d 22  22 0d 0a a0 0e e3 20 57  |....B$=""..... W|
00001fa0  25 3d 30 20 b8 20 36 0d  0a aa 17 42 24 3d 42 24  |%=0 . 6....B$=B$|
00001fb0  2b c3 28 52 25 28 57 25  29 29 2b 22 2c 22 0d 0a  |+.(R%(W%))+","..|
00001fc0  b4 05 ed 0d 0a be 0b 42  24 3d c0 42 24 29 0d 0a  |.......B$=.B$)..|
00001fd0  c8 0b d5 23 46 25 2c 42  24 0d 0a d2 08 d9 23 46  |...#F%,B$.....#F|
00001fe0  25 0d 0a dc 10 41 64 64  54 6f 46 69 6c 65 25 3d  |%....AddToFile%=|
00001ff0  a3 0d 0a e6 1b e3 20 49  25 3d 30 b8 35 34 3a 53  |...... I%=0.54:S|
00002000  74 61 74 25 28 49 25 29  3d 30 3a ed 0d 0a f0 19  |tat%(I%)=0:.....|
00002010  f2 55 73 65 72 5f 44 72  61 77 53 74 61 74 73 57  |.User_DrawStatsW|
00002020  69 6e 64 6f 77 0d 0a fa  05 e1 0d 0b 04 28 dd 20  |indow........(. |
00002030  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 41 6c 65 72  |.Wimp_WindowAler|
00002040  74 28 74 69 74 6c 65 24  2c 6d 65 73 73 61 67 65  |t(title$,message|
00002050  24 29 0d 0b 0e 2b f2 57  69 6d 70 5f 57 69 6e 64  |$)...+.Wimp_Wind|
00002060  6f 77 41 6c 65 72 74 42  6f 78 28 74 69 74 6c 65  |owAlertBox(title|
00002070  24 2c 6d 65 73 73 61 67  65 24 2c 30 29 0d 0b 18  |$,message$,0)...|
00002080  05 e1 0d 0b 22 33 dd 20  f2 57 69 6d 70 5f 57 69  |...."3. .Wimp_Wi|
00002090  6e 64 6f 77 41 6c 65 72  74 42 6f 78 28 74 69 74  |ndowAlertBox(tit|
000020a0  6c 65 24 2c 6d 65 73 73  61 67 65 24 2c 62 75 74  |le$,message$,but|
000020b0  74 6f 6e 25 29 0d 0b 2c  0f ea 20 72 65 73 70 6f  |ton%)..,.. respo|
000020c0  6e 73 65 25 0d 0b 36 17  24 28 77 69 6d 70 25 2b  |nse%..6.$(wimp%+|
000020d0  34 29 3d 6d 65 73 73 61  67 65 24 0d 0b 40 10 c8  |4)=message$..@..|
000020e0  8e 20 62 75 74 74 6f 6e  25 20 ca 0d 0b 4a 19 20  |. button% ...J. |
000020f0  c9 20 32 20 20 20 20 3a  20 72 65 73 70 6f 6e 73  |. 2    : respons|
00002100  65 25 3d 31 0d 0b 54 1a  20 c9 20 31 20 20 20 20  |e%=1..T. . 1    |
00002110  3a 20 72 65 73 70 6f 6e  73 65 25 3d 31 35 0d 0b  |: response%=15..|
00002120  5e 21 20 c9 20 33 20 20  20 20 3a 20 72 65 73 70  |^! . 3    : resp|
00002130  6f 6e 73 65 25 3d 28 31  3c 3c 35 29 2b 31 36 0d  |onse%=(1<<5)+16.|
00002140  0b 68 21 20 c9 20 34 20  20 20 20 3a 20 72 65 73  |.h! . 4    : res|
00002150  70 6f 6e 73 65 25 3d 28  31 3c 3c 36 29 2b 31 36  |ponse%=(1<<6)+16|
00002160  0d 0b 72 14 7f 20 3a 20  72 65 73 70 6f 6e 73 65  |..r.. : response|
00002170  25 3d 31 36 0d 0b 7c 05  cb 0d 0b 86 3d c8 99 20  |%=16..|.....=.. |
00002180  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
00002190  72 22 2c 77 69 6d 70 25  2c 72 65 73 70 6f 6e 73  |r",wimp%,respons|
000021a0  65 25 2c 74 69 74 6c 65  24 20 b8 20 2c 72 65 73  |e%,title$ . ,res|
000021b0  70 6f 6e 73 65 25 0d 0b  90 05 e1 0d 0b 9a 29 dd  |ponse%........).|
000021c0  20 a4 57 69 6d 70 5f 57  69 6e 64 6f 77 43 61 6e  | .Wimp_WindowCan|
000021d0  63 65 6c 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |cel(title$,messa|
000021e0  67 65 24 29 0d 0b a4 17  24 28 77 69 6d 70 25 2b  |ge$)....$(wimp%+|
000021f0  34 29 3d 6d 65 73 73 61  67 65 24 0d 0b ae 10 72  |4)=message$....r|
00002200  65 73 70 6f 6e 73 65 25  3d 32 33 0d 0b b8 3d c8  |esponse%=23...=.|
00002210  99 20 22 57 69 6d 70 5f  52 65 70 6f 72 74 45 72  |. "Wimp_ReportEr|
00002220  72 6f 72 22 2c 77 69 6d  70 25 2c 72 65 73 70 6f  |ror",wimp%,respo|
00002230  6e 73 65 25 2c 74 69 74  6c 65 24 20 b8 20 2c 72  |nse%,title$ . ,r|
00002240  65 73 70 6f 6e 73 65 25  0d 0b c2 10 3d 72 65 73  |esponse%....=res|
00002250  70 6f 6e 73 65 25 2d 32  0d 0b cc 2b dd 20 f2 57  |ponse%-2...+. .W|
00002260  69 6d 70 5f 57 69 6e 64  6f 77 45 72 72 6f 72 42  |imp_WindowErrorB|
00002270  6f 78 28 74 69 74 6c 65  24 2c 6d 65 73 73 61 67  |ox(title$,messag|
00002280  65 24 29 0d 0b d6 2b f2  57 69 6d 70 5f 57 69 6e  |e$)...+.Wimp_Win|
00002290  64 6f 77 41 6c 65 72 74  42 6f 78 28 74 69 74 6c  |dowAlertBox(titl|
000022a0  65 24 2c 6d 65 73 73 61  67 65 24 2c 32 29 0d 0b  |e$,message$,2)..|
000022b0  e0 05 e1 0d 0b ea 20 dd  20 a4 57 69 6d 70 5f 57  |...... . .Wimp_W|
000022c0  69 6e 64 6f 77 54 69 74  6c 65 28 77 69 6e 64 6f  |indowTitle(windo|
000022d0  77 25 29 0d 0b f4 13 77  69 6d 70 25 21 30 3d 77  |w%)....wimp%!0=w|
000022e0  69 6e 64 6f 77 25 0d 0b  fe 20 c8 99 20 22 57 69  |indow%... .. "Wi|
000022f0  6d 70 5f 47 65 74 57 69  6e 64 49 6e 66 6f 22 2c  |mp_GetWindInfo",|
00002300  2c 77 69 6d 70 25 0d 0c  08 36 e7 20 28 28 77 69  |,wimp%...6. ((wi|
00002310  6d 70 25 21 36 30 29 80  26 31 30 30 29 3d 30 20  |mp%!60).&100)=0 |
00002320  85 20 31 2c 22 54 69 74  6c 65 20 69 73 6e 27 74  |. 1,"Title isn't|
00002330  20 69 6e 64 69 72 65 63  74 65 64 22 0d 0c 12 10  | indirected"....|
00002340  3d 24 28 77 69 6d 70 25  21 37 36 29 0d 0c 1c 1f  |=$(wimp%!76)....|
00002350  dd 20 a4 57 69 6d 70 5f  57 69 6e 64 6f 77 4c 6f  |. .Wimp_WindowLo|
00002360  61 64 28 77 69 6e 64 6f  77 24 29 0d 0c 26 39 3d  |ad(window$)..&9=|
00002370  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 4c 6f 61 64  |.Wimp_WindowLoad|
00002380  46 72 6f 6d 28 77 69 6e  64 6f 77 24 2c 22 3c 4f  |From(window$,"<O|
00002390  62 65 79 24 44 69 72 3e  2e 54 65 6d 70 6c 61 74  |bey$Dir>.Templat|
000023a0  65 73 22 29 0d 0c 30 2d  dd 20 a4 57 69 6d 70 5f  |es")..0-. .Wimp_|
000023b0  57 69 6e 64 6f 77 4c 6f  61 64 46 72 6f 6d 28 77  |WindowLoadFrom(w|
000023c0  69 6e 64 6f 77 24 2c 74  65 6d 70 6c 61 74 65 24  |indow$,template$|
000023d0  29 0d 0c 3a 1a ea 20 63  25 2c 69 25 2c 6e 25 2c  |)..:.. c%,i%,n%,|
000023e0  6a 25 2c 73 70 24 2c 73  70 32 24 0d 0c 44 25 c8  |j%,sp$,sp2$..D%.|
000023f0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00002400  6c 61 74 65 22 2c 2c 74  65 6d 70 6c 61 74 65 24  |late",,template$|
00002410  0d 0c 4e 4d c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |..NM.. "Wimp_Loa|
00002420  64 54 65 6d 70 6c 61 74  65 22 2c 2c 77 69 6d 70  |dTemplate",,wimp|
00002430  25 2c 69 63 6f 6e 73 25  2c 69 63 6f 6e 5f 6d 65  |%,icons%,icon_me|
00002440  6d 6f 72 79 25 2c 2d 31  2c 77 69 6e 64 6f 77 24  |mory%,-1,window$|
00002450  2c 30 20 b8 20 2c 2c 69  63 6f 6e 73 25 0d 0c 58  |,0 . ,,icons%..X|
00002460  11 c8 8e 20 73 70 72 69  74 65 73 25 20 ca 0d 0c  |... sprites% ...|
00002470  62 1f 20 c9 20 31 20 20  20 20 3a 20 77 69 6d 70  |b. . 1    : wimp|
00002480  25 21 36 34 3d 73 70 72  69 74 65 73 25 0d 0c 6c  |%!64=sprites%..l|
00002490  29 20 7f 20 3a 20 77 69  6d 70 25 21 36 34 3d a4  |) . : wimp%!64=.|
000024a0  45 76 65 6e 74 5f 53 70  72 69 74 65 73 28 77 69  |Event_Sprites(wi|
000024b0  6e 64 6f 77 25 29 0d 0c  76 05 cb 0d 0c 80 26 c8  |ndow%)..v.....&.|
000024c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
000024d0  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 20 b8 20 63  |ndow",,wimp% . c|
000024e0  25 0d 0c 8a 1b c8 99 20  22 57 69 6d 70 5f 43 6c  |%...... "Wimp_Cl|
000024f0  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 0c 94 37  |oseTemplate"...7|
00002500  c8 99 20 22 57 69 6d 70  5f 57 68 69 63 68 49 63  |.. "Wimp_WhichIc|
00002510  6f 6e 22 2c 63 25 2c 77  69 6d 70 25 2b 34 30 2c  |on",c%,wimp%+40,|
00002520  31 2b 32 2b 28 31 3c 3c  38 29 2c 32 2b 28 31 3c  |1+2+(1<<8),2+(1<|
00002530  3c 38 29 0d 0c 9e 11 c8  8e 20 77 69 6d 70 25 21  |<8)...... wimp%!|
00002540  34 30 20 ca 0d 0c a8 09  20 c9 20 2d 31 0d 0c b2  |40 ..... . -1...|
00002550  0e 20 7f 20 3a 20 69 25  3d 34 30 0d 0c bc 06 20  |. . : i%=40.... |
00002560  f5 0d 0c c6 24 20 20 20  77 69 6d 70 25 21 34 3d  |....$   wimp%!4=|
00002570  77 69 6d 70 25 21 69 25  20 3a 20 77 69 6d 70 25  |wimp%!i% : wimp%|
00002580  21 30 3d 63 25 0d 0c d0  24 20 20 20 c8 99 20 22  |!0=c%...$   .. "|
00002590  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000025a0  65 22 2c 2c 77 69 6d 70  25 0d 0c da 2d 20 20 20  |e",,wimp%...-   |
000025b0  73 70 24 3d a4 57 69 6d  70 5f 47 65 74 53 74 72  |sp$=.Wimp_GetStr|
000025c0  69 6e 67 41 74 41 64 64  72 65 73 73 28 77 69 6d  |ingAtAddress(wim|
000025d0  70 25 21 32 38 29 0d 0c  e4 22 20 20 20 c8 99 20  |p%!28)..."   .. |
000025e0  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
000025f0  22 2c 2c 77 69 6d 70 25  0d 0c ee 14 20 20 20 c8  |",,wimp%....   .|
00002600  8e 20 73 70 72 69 74 65  73 25 20 ca 0d 0c f8 1b  |. sprites% .....|
00002610  20 20 20 20 c9 20 31 20  20 20 20 3a 20 77 69 6d  |    . 1    : wim|
00002620  70 25 21 33 32 3d 31 0d  0d 02 09 20 20 20 20 7f  |p%!32=1....    .|
00002630  0d 0d 0c 2f 20 20 20 20  20 c8 99 20 22 4f 53 5f  |.../     .. "OS_|
00002640  53 70 72 69 74 65 4f 70  22 2c 26 31 30 38 2c 73  |SpriteOp",&108,s|
00002650  70 72 69 74 65 73 25 20  b8 20 2c 2c 2c 6e 25 0d  |prites% . ,,,n%.|
00002660  0d 16 0d 20 20 20 20 20  6a 25 3d 30 0d 0d 20 12  |...     j%=0.. .|
00002670  20 20 20 20 20 f5 20 3a  20 6a 25 2b 3d 31 0d 0d  |     . : j%+=1..|
00002680  2a 3d 20 20 20 20 20 20  c8 99 20 22 4f 53 5f 53  |*=      .. "OS_S|
00002690  70 72 69 74 65 4f 70 22  2c 26 31 30 44 2c 73 70  |priteOp",&10D,sp|
000026a0  72 69 74 65 73 25 2c 70  6f 69 6e 74 65 72 5f 62  |rites%,pointer_b|
000026b0  6c 6f 63 6b 25 2c 32 30  2c 6a 25 0d 0d 34 37 20  |lock%,20,j%..47 |
000026c0  20 20 20 20 20 73 70 32  24 3d a4 57 69 6d 70 5f  |     sp2$=.Wimp_|
000026d0  47 65 74 53 74 72 69 6e  67 41 74 41 64 64 72 65  |GetStringAtAddre|
000026e0  73 73 28 70 6f 69 6e 74  65 72 5f 62 6c 6f 63 6b  |ss(pointer_block|
000026f0  25 29 0d 0d 3e 1b 20 20  20 20 20 fd 20 6a 25 3d  |%)..>.     . j%=|
00002700  6e 25 20 84 20 73 70 24  3d 73 70 32 24 0d 0d 48  |n% . sp$=sp2$..H|
00002710  34 20 20 20 20 20 e7 20  73 70 24 3d 73 70 32 24  |4     . sp$=sp2$|
00002720  20 8c 20 77 69 6d 70 25  21 33 32 3d 73 70 72 69  | . wimp%!32=spri|
00002730  74 65 73 25 20 8b 20 77  69 6d 70 25 21 33 32 3d  |tes% . wimp%!32=|
00002740  31 0d 0d 52 08 20 20 20  cb 0d 0d 5c 11 20 20 20  |1..R.   ...\.   |
00002750  77 69 6d 70 25 21 34 3d  63 25 0d 0d 66 2e 20 20  |wimp%!4=c%..f.  |
00002760  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00002770  49 63 6f 6e 22 2c 2c 77  69 6d 70 25 2b 34 20 b8  |Icon",,wimp%+4 .|
00002780  20 68 61 6e 64 6c 65 25  0d 0d 70 0c 20 20 20 69  | handle%..p.   i|
00002790  25 2b 3d 34 0d 0d 7a 14  20 fd 20 28 77 69 6d 70  |%+=4..z. . (wimp|
000027a0  25 21 69 25 29 3d 2d 31  0d 0d 84 05 cb 0d 0d 8e  |%!i%)=-1........|
000027b0  07 3d 63 25 0d 0d 98 25  dd 20 f2 57 69 6d 70 5f  |.=c%...%. .Wimp_|
000027c0  57 69 6e 64 6f 77 42 72  69 6e 67 54 6f 54 6f 70  |WindowBringToTop|
000027d0  28 77 69 6e 64 6f 77 25  29 0d 0d a2 12 21 77 69  |(window%)....!wi|
000027e0  6d 70 25 3d 77 69 6e 64  6f 77 25 0d 0d ac 23 c8  |mp%=window%...#.|
000027f0  99 20 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |. "Wimp_GetWindo|
00002800  77 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 0d  |wState",,wimp%..|
00002810  b6 0f 77 69 6d 70 25 21  32 38 3d 2d 31 0d 0d c0  |..wimp%!28=-1...|
00002820  1f c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |... "Wimp_OpenWi|
00002830  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 0d ca 05  |ndow",,wimp%....|
00002840  e1 0d 0d d4 20 dd 20 f2  57 69 6d 70 5f 57 69 6e  |.... . .Wimp_Win|
00002850  64 6f 77 43 6c 6f 73 65  28 77 69 6e 64 6f 77 25  |dowClose(window%|
00002860  29 0d 0d de 12 21 77 69  6d 70 25 3d 77 69 6e 64  |)....!wimp%=wind|
00002870  6f 77 25 0d 0d e8 20 c8  99 20 22 57 69 6d 70 5f  |ow%... .. "Wimp_|
00002880  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
00002890  6d 70 25 0d 0d f2 05 e1  0d 0d fc 24 dd 20 f2 57  |mp%........$. .W|
000028a0  69 6d 70 5f 57 69 6e 64  6f 77 46 6f 72 63 65 44  |imp_WindowForceD|
000028b0  72 61 77 28 77 69 6e 64  6f 77 25 29 0d 0e 06 10  |raw(window%)....|
000028c0  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 0e 10 38  |.. window% ....8|
000028d0  20 c9 20 2d 31 20 20 20  3a 20 c8 99 20 22 57 69  | . -1   : .. "Wi|
000028e0  6d 70 5f 46 6f 72 63 65  52 65 64 72 61 77 22 2c  |mp_ForceRedraw",|
000028f0  2d 31 2c 30 2c 30 2c 32  2a 31 32 38 30 2c 32 2a  |-1,0,0,2*1280,2*|
00002900  31 30 32 34 0d 0e 1a 39  20 7f 20 3a 20 c8 99 20  |1024...9 . : .. |
00002910  22 57 69 6d 70 5f 46 6f  72 63 65 52 65 64 72 61  |"Wimp_ForceRedra|
00002920  77 22 2c 77 69 6e 64 6f  77 25 2c 30 2c 2d 32 2a  |w",window%,0,-2*|
00002930  31 30 32 34 2c 32 2a 31  32 38 30 2c 30 0d 0e 24  |1024,2*1280,0..$|
00002940  05 cb 0d 0e 2e 05 e1 0d  0e 38 1f dd 20 f2 57 69  |.........8.. .Wi|
00002950  6d 70 5f 57 69 6e 64 6f  77 4f 70 65 6e 28 77 69  |mp_WindowOpen(wi|
00002960  6e 64 6f 77 25 29 0d 0e  42 12 21 77 69 6d 70 25  |ndow%)..B.!wimp%|
00002970  3d 77 69 6e 64 6f 77 25  0d 0e 4c 23 c8 99 20 22  |=window%..L#.. "|
00002980  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00002990  61 74 65 22 2c 2c 77 69  6d 70 25 0d 0e 56 1f c8  |ate",,wimp%..V..|
000029a0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
000029b0  6f 77 22 2c 2c 77 69 6d  70 25 0d 0e 60 05 e1 0d  |ow",,wimp%..`...|
000029c0  0e 6a 19 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 49  |.j..Wimp_WindowI|
000029d0  6e 74 65 72 66 61 63 65  0d 0e 74 20 c8 99 22 57  |nterface..t .."W|
000029e0  69 6d 70 5f 42 6f 72 64  65 72 57 69 6e 64 6f 77  |imp_BorderWindow|
000029f0  22 2c 2c 77 69 6d 70 25  0d 0e 7e 05 e1 0d 0e 88  |",,wimp%..~.....|
00002a00  1c dd 20 a4 57 69 6d 70  5f 49 63 6f 6e 42 61 72  |.. .Wimp_IconBar|
00002a10  28 53 70 72 69 74 65 24  29 0d 0e 92 0b ea 20 69  |(Sprite$)..... i|
00002a20  63 6f 6e 25 0d 0e 9c 0e  77 69 6d 70 25 21 30 3d  |con%....wimp%!0=|
00002a30  2d 31 0d 0e a6 1d 77 69  6d 70 25 21 34 3d 30 20  |-1....wimp%!4=0 |
00002a40  20 20 20 20 3a 20 77 69  6d 70 25 21 38 3d 30 0d  |    : wimp%!8=0.|
00002a50  0e b0 1d 77 69 6d 70 25  21 31 32 3d 36 38 20 3a  |...wimp%!12=68 :|
00002a60  20 77 69 6d 70 25 21 31  36 3d 36 38 0d 0e ba 12  | wimp%!16=68....|
00002a70  77 69 6d 70 25 21 32 30  3d 26 33 30 30 32 0d 0e  |wimp%!20=&3002..|
00002a80  c4 17 24 28 77 69 6d 70  25 2b 32 34 29 3d 53 70  |..$(wimp%+24)=Sp|
00002a90  72 69 74 65 24 0d 0e ce  27 c8 99 20 22 57 69 6d  |rite$...'.. "Wim|
00002aa0  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 77  |p_CreateIcon",,w|
00002ab0  69 6d 70 25 20 b8 20 69  63 6f 6e 25 0d 0e d8 0a  |imp% . icon%....|
00002ac0  3d 69 63 6f 6e 25 0d 0e  e2 2b dd 20 f2 57 69 6d  |=icon%...+. .Wim|
00002ad0  70 5f 49 63 6f 6e 43 61  72 65 74 28 77 69 6e 64  |p_IconCaret(wind|
00002ae0  6f 77 25 2c 69 63 6f 6e  25 2c 63 68 61 72 73 25  |ow%,icon%,chars%|
00002af0  29 0d 0e ec 38 c8 99 20  22 57 69 6d 70 5f 53 65  |)...8.. "Wimp_Se|
00002b00  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00002b10  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2c 2c  |window%,icon%,,,|
00002b20  2d 31 2c 63 68 61 72 73  25 0d 0e f6 05 e1 0d 0f  |-1,chars%.......|
00002b30  00 23 dd 20 a4 57 69 6d  70 5f 49 63 6f 6e 54 65  |.#. .Wimp_IconTe|
00002b40  78 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |xt(window%,icon%|
00002b50  29 0d 0f 0a 23 77 69 6d  70 25 21 30 3d 77 69 6e  |)...#wimp%!0=win|
00002b60  64 6f 77 25 20 3a 20 77  69 6d 70 25 21 34 3d 69  |dow% : wimp%!4=i|
00002b70  63 6f 6e 25 0d 0f 14 21  c8 99 20 22 57 69 6d 70  |con%...!.. "Wimp|
00002b80  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00002b90  77 69 6d 70 25 0d 0f 1e  37 e7 20 28 28 77 69 6d  |wimp%...7. ((wim|
00002ba0  70 25 21 32 34 29 20 80  20 26 31 30 30 29 3d 30  |p%!24) . &100)=0|
00002bb0  20 85 20 31 2c 22 49 63  6f 6e 20 69 73 6e 27 74  | . 1,"Icon isn't|
00002bc0  20 69 6e 64 69 72 65 63  74 65 64 22 0d 0f 28 10  | indirected"..(.|
00002bd0  3d 24 28 77 69 6d 70 25  21 32 38 29 0d 0f 32 29  |=$(wimp%!28)..2)|
00002be0  dd 20 a4 57 69 6d 70 5f  49 63 6f 6e 56 61 6c 69  |. .Wimp_IconVali|
00002bf0  64 61 74 69 6f 6e 28 77  69 6e 64 6f 77 25 2c 69  |dation(window%,i|
00002c00  63 6f 6e 25 29 0d 0f 3c  23 77 69 6d 70 25 21 30  |con%)..<#wimp%!0|
00002c10  3d 77 69 6e 64 6f 77 25  20 3a 20 77 69 6d 70 25  |=window% : wimp%|
00002c20  21 34 3d 69 63 6f 6e 25  0d 0f 46 21 c8 99 20 22  |!4=icon%..F!.. "|
00002c30  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00002c40  65 22 2c 2c 77 69 6d 70  25 0d 0f 50 37 e7 20 28  |e",,wimp%..P7. (|
00002c50  28 77 69 6d 70 25 21 32  34 29 20 80 20 26 31 30  |(wimp%!24) . &10|
00002c60  30 29 3d 30 20 85 20 31  2c 22 49 63 6f 6e 20 69  |0)=0 . 1,"Icon i|
00002c70  73 6e 27 74 20 69 6e 64  69 72 65 63 74 65 64 22  |sn't indirected"|
00002c80  0d 0f 5a 10 3d 24 28 77  69 6d 70 25 21 33 32 29  |..Z.=$(wimp%!32)|
00002c90  0d 0f 64 26 dd 20 f2 57  69 6d 70 5f 49 63 6f 6e  |..d&. .Wimp_Icon|
00002ca0  44 69 73 61 62 6c 65 28  77 69 6e 64 6f 77 25 2c  |Disable(window%,|
00002cb0  69 63 6f 6e 25 29 0d 0f  6e 23 77 69 6d 70 25 21  |icon%)..n#wimp%!|
00002cc0  30 3d 77 69 6e 64 6f 77  25 20 3a 20 77 69 6d 70  |0=window% : wimp|
00002cd0  25 21 34 3d 69 63 6f 6e  25 0d 0f 78 24 77 69 6d  |%!4=icon%..x$wim|
00002ce0  70 25 21 38 3d 31 3c 3c  32 32 20 20 20 3a 20 77  |p%!8=1<<22   : w|
00002cf0  69 6d 70 25 21 31 32 3d  31 3c 3c 32 32 0d 0f 82  |imp%!12=1<<22...|
00002d00  21 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |!.. "Wimp_SetIco|
00002d10  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 0f  |nState",,wimp%..|
00002d20  8c 05 e1 0d 0f 96 25 dd  20 f2 57 69 6d 70 5f 49  |......%. .Wimp_I|
00002d30  63 6f 6e 45 6e 61 62 6c  65 28 77 69 6e 64 6f 77  |conEnable(window|
00002d40  25 2c 69 63 6f 6e 25 29  0d 0f a0 23 77 69 6d 70  |%,icon%)...#wimp|
00002d50  25 21 30 3d 77 69 6e 64  6f 77 25 20 3a 20 77 69  |%!0=window% : wi|
00002d60  6d 70 25 21 34 3d 69 63  6f 6e 25 0d 0f aa 24 77  |mp%!4=icon%...$w|
00002d70  69 6d 70 25 21 38 3d 30  20 20 20 20 20 20 20 3a  |imp%!8=0       :|
00002d80  20 77 69 6d 70 25 21 31  32 3d 31 3c 3c 32 32 0d  | wimp%!12=1<<22.|
00002d90  0f b4 21 c8 99 20 22 57  69 6d 70 5f 53 65 74 49  |..!.. "Wimp_SetI|
00002da0  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00002db0  0d 0f be 05 e1 0d 0f c8  30 dd 20 a4 57 69 6d 70  |........0. .Wimp|
00002dc0  5f 49 63 6f 6e 50 75 74  53 70 72 69 74 65 28 77  |_IconPutSprite(w|
00002dd0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 73 70 72  |indow%,icon%,spr|
00002de0  69 74 65 24 29 0d 0f d2  21 77 69 6d 70 25 21 30  |ite$)...!wimp%!0|
00002df0  3d 77 69 6e 64 6f 77 25  3a 77 69 6d 70 25 21 34  |=window%:wimp%!4|
00002e00  3d 69 63 6f 6e 25 0d 0f  dc 21 c8 99 20 22 57 69  |=icon%...!.. "Wi|
00002e10  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00002e20  2c 2c 77 69 6d 70 25 0d  0f e6 1f c8 99 20 22 57  |,,wimp%...... "W|
00002e30  69 6d 70 5f 44 65 6c 65  74 65 49 63 6f 6e 22 2c  |imp_DeleteIcon",|
00002e40  2c 77 69 6d 70 25 0d 0f  f0 3d 77 69 6d 70 25 21  |,wimp%...=wimp%!|
00002e50  34 3d 77 69 6d 70 25 21  38 20 20 20 3a 20 77 69  |4=wimp%!8   : wi|
00002e60  6d 70 25 21 38 3d 77 69  6d 70 25 21 31 32 20 20  |mp%!8=wimp%!12  |
00002e70  3a 20 77 69 6d 70 25 21  31 32 3d 77 69 6d 70 25  |: wimp%!12=wimp%|
00002e80  21 31 36 0d 0f fa 3f 77  69 6d 70 25 21 31 36 3d  |!16...?wimp%!16=|
00002e90  77 69 6d 70 25 21 32 30  20 3a 20 77 69 6d 70 25  |wimp%!20 : wimp%|
00002ea0  21 32 30 3d 77 69 6d 70  25 21 32 34 20 3a 20 24  |!20=wimp%!24 : $|
00002eb0  28 77 69 6d 70 25 2b 32  34 29 3d 73 70 72 69 74  |(wimp%+24)=sprit|
00002ec0  65 24 0d 10 04 27 c8 99  20 22 57 69 6d 70 5f 43  |e$...'.. "Wimp_C|
00002ed0  72 65 61 74 65 49 63 6f  6e 22 2c 2c 77 69 6d 70  |reateIcon",,wimp|
00002ee0  25 20 b8 20 69 63 6f 6e  25 0d 10 0e 0a 3d 69 63  |% . icon%....=ic|
00002ef0  6f 6e 25 0d 10 18 2c dd  20 f2 57 69 6d 70 5f 49  |on%...,. .Wimp_I|
00002f00  63 6f 6e 50 75 74 54 65  78 74 28 77 69 6e 64 6f  |conPutText(windo|
00002f10  77 25 2c 69 63 6f 6e 25  2c 74 65 78 74 24 29 0d  |w%,icon%,text$).|
00002f20  10 22 23 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |."#wimp%!0=windo|
00002f30  77 25 20 3a 20 77 69 6d  70 25 21 34 3d 69 63 6f  |w% : wimp%!4=ico|
00002f40  6e 25 0d 10 2c 21 c8 99  20 22 57 69 6d 70 5f 47  |n%..,!.. "Wimp_G|
00002f50  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00002f60  6d 70 25 0d 10 36 37 e7  20 28 28 77 69 6d 70 25  |mp%..67. ((wimp%|
00002f70  21 32 34 29 20 80 20 26  31 30 30 29 3d 30 20 85  |!24) . &100)=0 .|
00002f80  20 31 2c 22 49 63 6f 6e  20 69 73 6e 27 74 20 69  | 1,"Icon isn't i|
00002f90  6e 64 69 72 65 63 74 65  64 22 0d 10 40 15 24 28  |ndirected"..@.$(|
00002fa0  77 69 6d 70 25 21 32 38  29 3d 74 65 78 74 24 0d  |wimp%!28)=text$.|
00002fb0  10 4a 23 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |.J#wimp%!0=windo|
00002fc0  77 25 20 3a 20 77 69 6d  70 25 21 34 3d 69 63 6f  |w% : wimp%!4=ico|
00002fd0  6e 25 0d 10 54 1a 77 69  6d 70 25 21 38 3d 30 20  |n%..T.wimp%!8=0 |
00002fe0  3a 20 77 69 6d 70 25 21  31 32 3d 30 0d 10 5e 21  |: wimp%!12=0..^!|
00002ff0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00003000  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 10 68  |State",,wimp%..h|
00003010  05 e1 0d 10 72 1e dd 20  f2 57 69 6d 70 5f 49 63  |....r.. .Wimp_Ic|
00003020  6f 6e 49 6e 74 65 72 66  61 63 65 53 74 61 72 74  |onInterfaceStart|
00003030  0d 10 7c 1e c8 99 22 57  69 6d 70 5f 42 6f 72 64  |..|..."Wimp_Bord|
00003040  65 72 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 0d 10  |erIcon",,wimp%..|
00003050  86 05 e1 0d 10 90 1f dd  20 f2 57 69 6d 70 5f 49  |........ .Wimp_I|
00003060  63 6f 6e 49 6e 74 65 72  66 61 63 65 46 69 6e 69  |conInterfaceFini|
00003070  73 68 0d 10 9a 0d 77 69  6d 70 25 21 38 3d 30 0d  |sh....wimp%!8=0.|
00003080  10 a4 1e c8 99 22 57 69  6d 70 5f 42 6f 72 64 65  |....."Wimp_Borde|
00003090  72 49 63 6f 6e 22 2c 2c  77 69 6d 70 25 0d 10 ae  |rIcon",,wimp%...|
000030a0  05 e1 0d 10 b8 1f dd 20  f2 57 69 6d 70 5f 4d 65  |....... .Wimp_Me|
000030b0  6e 75 41 64 6a 75 73 74  4f 6e 28 6d 65 6e 75 25  |nuAdjustOn(menu%|
000030c0  29 0d 10 c2 2c c8 99 20  22 57 69 6d 70 5f 47 65  |)...,.. "Wimp_Ge|
000030d0  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 70  |tPointerInfo",,p|
000030e0  6f 69 6e 74 65 72 5f 62  6c 6f 63 6b 25 0d 10 cc  |ointer_block%...|
000030f0  5e e7 20 28 28 70 6f 69  6e 74 65 72 5f 62 6c 6f  |^. ((pointer_blo|
00003100  63 6b 25 21 38 29 80 31  29 3d 31 20 8c 20 c8 99  |ck%!8).1)=1 . ..|
00003110  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00003120  75 22 2c 2c 6d 65 6e 75  25 2c 70 6f 69 6e 74 65  |u",,menu%,pointe|
00003130  72 5f 62 6c 6f 63 6b 25  21 30 2c 70 6f 69 6e 74  |r_block%!0,point|
00003140  65 72 5f 62 6c 6f 63 6b  25 21 34 0d 10 d6 05 e1  |er_block%!4.....|
00003150  0d 10 e0 1e dd 20 a4 57  69 6d 70 5f 4d 65 6e 75  |..... .Wimp_Menu|
00003160  43 68 6f 69 63 65 28 6c  65 76 65 6c 25 29 0d 10  |Choice(level%)..|
00003170  ea 19 3d 28 77 69 6d 70  25 21 28 34 2a 6c 65 76  |..=(wimp%!(4*lev|
00003180  65 6c 25 29 29 2b 31 0d  10 f4 1d dd 20 a4 57 69  |el%))+1..... .Wi|
00003190  6d 70 5f 4d 65 6e 75 43  72 65 61 74 65 28 6d 65  |mp_MenuCreate(me|
000031a0  6e 75 24 29 0d 10 fe 29  e7 20 6d 65 6e 75 24 3d  |nu$)...). menu$=|
000031b0  22 43 6f 6c 6f 75 72 73  22 20 8c 3d a4 57 69 6d  |"Colours" .=.Wim|
000031c0  70 5f 4d 65 6e 75 43 6f  6c 6f 75 72 73 0d 11 08  |p_MenuColours...|
000031d0  27 ea 20 6d 65 6e 75 25  2c 69 6e 64 65 78 25 2c  |'. menu%,index%,|
000031e0  77 69 64 74 68 25 2c 6c  65 6e 67 74 68 25 2c 6b  |width%,length%,k|
000031f0  25 2c 73 25 0d 11 12 2e  de 20 6d 65 6e 75 25 20  |%,s%..... menu% |
00003200  32 38 2b a4 57 69 6d 70  5f 4d 65 6e 75 4e 6f 4f  |28+.Wimp_MenuNoO|
00003210  66 45 6e 74 72 69 65 73  28 6d 65 6e 75 24 29 2a  |fEntries(menu$)*|
00003220  32 34 0d 11 1c 37 6d 65  6e 75 25 3f 31 32 3d 37  |24...7menu%?12=7|
00003230  20 20 20 3a 20 6d 65 6e  75 25 3f 31 33 3d 32 20  |   : menu%?13=2 |
00003240  20 3a 20 6d 65 6e 75 25  3f 31 34 3d 37 20 3a 6d  | : menu%?14=7 :m|
00003250  65 6e 75 25 3f 31 35 3d  30 0d 11 26 2b 6d 65 6e  |enu%?15=0..&+men|
00003260  75 25 21 31 36 3d 31 34  30 20 3a 20 6d 65 6e 75  |u%!16=140 : menu|
00003270  25 21 32 30 3d 34 34 20  3a 20 6d 65 6e 75 25 21  |%!20=44 : menu%!|
00003280  32 34 3d 30 0d 11 30 13  69 6e 64 65 78 25 3d 6d  |24=0..0.index%=m|
00003290  65 6e 75 25 2b 32 38 0d  11 3a 20 24 6d 65 6e 75  |enu%+28..: $menu|
000032a0  25 3d c0 6d 65 6e 75 24  2c a7 6d 65 6e 75 24 2c  |%=.menu$,.menu$,|
000032b0  22 5c 22 29 2d 31 29 0d  11 44 23 77 69 64 74 68  |"\")-1)..D#width|
000032c0  25 3d a9 28 c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |%=.(.menu$,.menu|
000032d0  24 2c 22 5c 22 29 2d 31  29 29 0d 11 4e 24 6d 65  |$,"\")-1))..N$me|
000032e0  6e 75 24 2b 3d 22 5c 22  20 3a 20 4d 65 6e 75 5f  |nu$+="\" : Menu_|
000032f0  4e 6f 4f 66 45 6e 74 72  69 65 73 25 3d 30 0d 11  |NoOfEntries%=0..|
00003300  58 10 c8 95 20 6d 65 6e  75 24 3c 3e 22 22 0d 11  |X... menu$<>""..|
00003310  62 1f 6d 65 6e 75 24 3d  c1 6d 65 6e 75 24 2c a7  |b.menu$=.menu$,.|
00003320  6d 65 6e 75 24 2c 22 5c  22 29 2b 31 29 0d 11 6c  |menu$,"\")+1)..l|
00003330  0e c8 8e 20 6d 65 6e 75  24 20 ca 0d 11 76 09 20  |... menu$ ...v. |
00003340  c9 20 22 22 0d 11 80 06  20 7f 0d 11 8a 31 20 20  |. "".... ....1  |
00003350  21 69 6e 64 65 78 25 3d  30 20 3a 20 69 6e 64 65  |!index%=0 : inde|
00003360  78 25 21 34 3d 2d 31 20  3a 20 69 6e 64 65 78 25  |x%!4=-1 : index%|
00003370  21 38 3d 26 37 30 30 30  30 32 31 0d 11 94 1b 20  |!8=&7000021.... |
00003380  20 6c 65 6e 67 74 68 25  3d a7 6d 65 6e 75 24 2c  | length%=.menu$,|
00003390  22 5c 22 29 2d 31 0d 11  9e 1e 20 20 6b 25 3d a7  |"\")-1....  k%=.|
000033a0  c0 6d 65 6e 75 24 2c 6c  65 6e 67 74 68 25 29 2c  |.menu$,length%),|
000033b0  22 3e 22 29 0d 11 a8 0d  20 20 c8 8e 20 6b 25 20  |">")....  .. k% |
000033c0  ca 0d 11 b2 0a 20 20 20  c9 20 30 0d 11 bc 08 20  |.....   . 0.... |
000033d0  20 20 7f 0d 11 c6 25 20  20 20 20 73 25 3d a0 28  |  ....%    s%=.(|
000033e0  c1 6d 65 6e 75 24 2c 6b  25 2b 31 2c 6c 65 6e 67  |.menu$,k%+1,leng|
000033f0  74 68 25 2d 6b 25 29 29  0d 11 d0 13 20 20 20 20  |th%-k%))....    |
00003400  69 6e 64 65 78 25 21 34  3d 73 25 0d 11 da 14 20  |index%!4=s%.... |
00003410  20 20 20 6c 65 6e 67 74  68 25 3d 6b 25 2d 31 0d  |   length%=k%-1.|
00003420  11 e4 07 20 20 cb 0d 11  ee 22 20 20 24 28 69 6e  |...  ...."  $(in|
00003430  64 65 78 25 2b 31 32 29  3d c0 6d 65 6e 75 24 2c  |dex%+12)=.menu$,|
00003440  6c 65 6e 67 74 68 25 29  0d 11 f8 27 20 20 e7 20  |length%)...'  . |
00003450  6c 65 6e 67 74 68 25 3e  77 69 64 74 68 25 20 8c  |length%>width% .|
00003460  20 77 69 64 74 68 25 3d  6c 65 6e 67 74 68 25 0d  | width%=length%.|
00003470  12 02 10 20 20 69 6e 64  65 78 25 2b 3d 32 34 0d  |...  index%+=24.|
00003480  12 0c 05 cb 0d 12 16 05  ce 0d 12 20 1a 6d 65 6e  |........... .men|
00003490  75 25 21 31 36 3d 31 36  2a 28 77 69 64 74 68 25  |u%!16=16*(width%|
000034a0  2b 31 29 0d 12 2a 28 69  6e 64 65 78 25 21 2d 32  |+1)..*(index%!-2|
000034b0  34 3d 69 6e 64 65 78 25  21 2d 32 34 20 84 20 26  |4=index%!-24 . &|
000034c0  38 30 20 3a 20 3d 6d 65  6e 75 25 0d 12 34 17 dd  |80 : =menu%..4..|
000034d0  20 a4 57 69 6d 70 5f 4d  65 6e 75 43 6f 6c 6f 75  | .Wimp_MenuColou|
000034e0  72 73 0d 12 3e 21 3d a4  57 69 6d 70 5f 4d 65 6e  |rs..>!=.Wimp_Men|
000034f0  75 43 72 65 61 74 65 43  6f 6c 6f 75 72 73 28 22  |uCreateColours("|
00003500  20 22 29 0d 12 48 25 dd  20 a4 57 69 6d 70 5f 4d  | ")..H%. .Wimp_M|
00003510  65 6e 75 43 72 65 61 74  65 43 6f 6c 6f 75 72 73  |enuCreateColours|
00003520  28 74 69 74 6c 65 24 29  0d 12 52 13 ea 20 78 24  |(title$)..R.. x$|
00003530  2c 6d 65 6e 25 2c 6a 25  2c 69 25 0d 12 5c 36 78  |,men%,j%,i%..\6x|
00003540  24 3d 74 69 74 6c 65 24  2b 22 5c 30 5c 31 5c 32  |$=title$+"\0\1\2|
00003550  5c 33 5c 34 5c 35 5c 36  5c 37 5c 38 5c 39 5c 31  |\3\4\5\6\7\8\9\1|
00003560  30 5c 31 31 5c 31 32 5c  31 33 5c 31 34 5c 31 35  |0\11\12\13\14\15|
00003570  22 0d 12 66 1d 6d 65 6e  25 3d a4 57 69 6d 70 5f  |"..f.men%=.Wimp_|
00003580  4d 65 6e 75 43 72 65 61  74 65 28 78 24 29 0d 12  |MenuCreate(x$)..|
00003590  70 0f e3 20 69 25 3d 30  20 b8 20 31 35 0d 12 7a  |p.. i%=0 . 15..z|
000035a0  0a c8 8e 20 b9 20 ca 0d  12 84 28 c9 20 69 25 3c  |... . ....(. i%<|
000035b0  34 2c 69 25 3d 39 2c 69  25 3d 31 32 2c 69 25 3d  |4,i%=9,i%=12,i%=|
000035c0  31 34 2c 69 25 3d 31 35  20 3a 20 6a 25 3d 37 0d  |14,i%=15 : j%=7.|
000035d0  12 8e 0c 7f 20 3a 20 6a  25 3d 30 0d 12 98 05 cb  |.... : j%=0.....|
000035e0  0d 12 a2 1c 6d 65 6e 25  3f 28 33 39 2b 69 25 2a  |....men%?(39+i%*|
000035f0  32 34 29 3d 69 25 2a 31  36 2b 6a 25 0d 12 ac 1f  |24)=i%*16+j%....|
00003600  f2 57 69 6d 70 5f 4d 65  6e 75 43 65 6e 74 72 65  |.Wimp_MenuCentre|
00003610  28 6d 65 6e 25 2c 69 25  2b 31 29 0d 12 b6 05 ed  |(men%,i%+1).....|
00003620  0d 12 c0 09 3d 6d 65 6e  25 0d 12 ca 22 dd 20 a4  |....=men%...". .|
00003630  57 69 6d 70 5f 4d 65 6e  75 4e 6f 4f 66 45 6e 74  |Wimp_MenuNoOfEnt|
00003640  72 69 65 73 28 6d 65 6e  75 24 29 0d 12 d4 1a ea  |ries(menu$).....|
00003650  20 6e 25 20 2c 6a 25 20  3a 20 6e 25 3d 30 20 3a  | n% ,j% : n%=0 :|
00003660  20 6a 25 3d 30 0d 12 de  05 f5 0d 12 e8 17 6a 25  | j%=0.........j%|
00003670  3d a7 6d 65 6e 75 24 2c  22 5c 22 2c 6a 25 2b 31  |=.menu$,"\",j%+1|
00003680  29 0d 12 f2 13 e7 20 6a  25 3c 3e 30 20 8c 20 6e  |)..... j%<>0 . n|
00003690  25 2b 3d 31 0d 12 fc 0a  fd 20 6a 25 3d 30 0d 13  |%+=1..... j%=0..|
000036a0  06 07 3d 6e 25 0d 13 10  35 dd 20 f2 57 69 6d 70  |..=n%...5. .Wimp|
000036b0  5f 4d 65 6e 75 42 61 63  6b 47 72 6f 75 6e 64 43  |_MenuBackGroundC|
000036c0  6f 6c 6f 75 72 28 6d 65  6e 75 25 2c 69 74 65 6d  |olour(menu%,item|
000036d0  25 2c 63 6f 6c 6f 75 72  25 29 0d 13 1a 0e ea 20  |%,colour%)..... |
000036e0  66 6f 72 65 25 2c 69 25  0d 13 24 26 66 6f 72 65  |fore%,i%..$&fore|
000036f0  25 3d 28 6d 65 6e 75 25  3f 28 33 39 2b 28 69 74  |%=(menu%?(39+(it|
00003700  65 6d 25 2d 31 29 2a 32  34 29 29 83 31 36 0d 13  |em%-1)*24)).16..|
00003710  2e 28 69 25 3d 28 28 6d  65 6e 75 25 3f 28 33 39  |.(i%=((menu%?(39|
00003720  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 29 81  |+(item%-1)*24)).|
00003730  31 36 29 83 31 36 0d 13  38 2f 6d 65 6e 75 25 3f  |16).16..8/menu%?|
00003740  28 33 39 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(39+(item%-1)*24|
00003750  29 3d 66 6f 72 65 25 2b  31 36 2a 63 6f 6c 6f 75  |)=fore%+16*colou|
00003760  72 25 2b 69 25 0d 13 42  05 e1 0d 13 4c 23 dd 20  |r%+i%..B....L#. |
00003770  f2 57 69 6d 70 5f 4d 65  6e 75 43 65 6e 74 72 65  |.Wimp_MenuCentre|
00003780  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 13 56  |(menu%,item%)..V|
00003790  3a 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |:menu%!(36+(item|
000037a0  25 2d 31 29 2a 32 34 29  3d 6d 65 6e 75 25 21 28  |%-1)*24)=menu%!(|
000037b0  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
000037c0  84 28 31 3c 3c 33 29 0d  13 60 05 e1 0d 13 6a 15  |.(1<<3)..`....j.|
000037d0  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 43 6c 6f 73  |. .Wimp_MenuClos|
000037e0  65 0d 13 74 1b c8 99 20  22 57 69 6d 70 5f 43 72  |e..t... "Wimp_Cr|
000037f0  65 61 74 65 4d 65 6e 75  22 2c 2d 31 0d 13 7e 05  |eateMenu",-1..~.|
00003800  e1 0d 13 88 24 dd 20 f2  57 69 6d 70 5f 4d 65 6e  |....$. .Wimp_Men|
00003810  75 44 69 73 61 62 6c 65  28 6d 65 6e 75 25 2c 69  |uDisable(menu%,i|
00003820  74 65 6d 25 29 0d 13 92  3b 6d 65 6e 75 25 21 28  |tem%)...;menu%!(|
00003830  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
00003840  3d 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |=menu%!(36+(item|
00003850  25 2d 31 29 2a 32 34 29  84 28 31 3c 3c 32 32 29  |%-1)*24).(1<<22)|
00003860  0d 13 9c 05 e1 0d 13 a6  27 dd 20 f2 57 69 6d 70  |........'. .Wimp|
00003870  5f 4d 65 6e 75 44 6f 74  74 65 64 4c 69 6e 65 28  |_MenuDottedLine(|
00003880  6d 65 6e 75 25 2c 69 74  65 6d 25 29 0d 13 b0 37  |menu%,item%)...7|
00003890  6d 65 6e 75 25 21 28 32  38 2b 28 69 74 65 6d 25  |menu%!(28+(item%|
000038a0  2d 31 29 2a 32 34 29 3d  28 6d 65 6e 75 25 21 28  |-1)*24)=(menu%!(|
000038b0  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
000038c0  29 84 32 0d 13 ba 05 e1  0d 13 c4 23 dd 20 f2 57  |).2........#. .W|
000038d0  69 6d 70 5f 4d 65 6e 75  45 6e 61 62 6c 65 28 6d  |imp_MenuEnable(m|
000038e0  65 6e 75 25 2c 69 74 65  6d 25 29 0d 13 ce 22 f2  |enu%,item%)...".|
000038f0  57 69 6d 70 5f 4d 65 6e  75 44 69 73 61 62 6c 65  |Wimp_MenuDisable|
00003900  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 13 d8  |(menu%,item%)...|
00003910  3b 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |;menu%!(36+(item|
00003920  25 2d 31 29 2a 32 34 29  3d 6d 65 6e 75 25 21 28  |%-1)*24)=menu%!(|
00003930  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
00003940  82 28 31 3c 3c 32 32 29  0d 13 e2 05 e1 0d 13 ec  |.(1<<22)........|
00003950  35 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 46 6f 72  |5. .Wimp_MenuFor|
00003960  65 67 72 6f 75 6e 64 43  6f 6c 6f 75 72 28 6d 65  |egroundColour(me|
00003970  6e 75 25 2c 69 74 65 6d  25 2c 63 6f 6c 6f 75 72  |nu%,item%,colour|
00003980  25 29 0d 13 f6 45 6d 65  6e 75 25 3f 28 33 39 2b  |%)...Emenu%?(39+|
00003990  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 63 6f  |(item%-1)*24)=co|
000039a0  6c 6f 75 72 25 2b 31 36  2a 28 28 6d 65 6e 75 25  |lour%+16*((menu%|
000039b0  3f 28 33 39 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |?(39+(item%-1)*2|
000039c0  34 29 29 81 31 36 29 0d  14 00 05 e1 0d 14 0a 29  |4)).16)........)|
000039d0  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 47 6c 75 65  |. .Wimp_MenuGlue|
000039e0  28 6d 65 6e 75 31 25 2c  69 74 65 6d 25 2c 6d 65  |(menu1%,item%,me|
000039f0  6e 75 32 25 29 0d 14 14  1e 6d 65 6e 75 31 25 21  |nu2%)....menu1%!|
00003a00  28 38 2b 69 74 65 6d 25  2a 32 34 29 3d 6d 65 6e  |(8+item%*24)=men|
00003a10  75 32 25 0d 14 1e 05 e1  0d 14 28 27 dd 20 f2 57  |u2%.......('. .W|
00003a20  69 6d 70 5f 4d 65 6e 75  49 74 65 6d 28 6d 65 6e  |imp_MenuItem(men|
00003a30  75 25 2c 69 74 65 6d 25  2c 69 74 65 6d 24 29 0d  |u%,item%,item$).|
00003a40  14 32 2c 24 28 6d 65 6e  75 25 2b 28 34 30 2b 28  |.2,$(menu%+(40+(|
00003a50  69 74 65 6d 25 2d 31 29  2a 32 34 29 29 3d c0 69  |item%-1)*24))=.i|
00003a60  74 65 6d 24 2c 31 32 29  2b bd 30 0d 14 3c 05 e1  |tem$,12)+.0..<..|
00003a70  0d 14 46 24 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..F$. .Wimp_Menu|
00003a80  4d 65 73 73 61 67 65 28  6d 65 6e 75 25 2c 69 74  |Message(menu%,it|
00003a90  65 6d 25 29 0d 14 50 3c  6d 65 6e 75 25 21 28 32  |em%)..P<menu%!(2|
00003aa0  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |8+(item%-1)*24)=|
00003ab0  28 6d 65 6e 75 25 21 28  32 38 2b 28 69 74 65 6d  |(menu%!(28+(item|
00003ac0  25 2d 31 29 2a 32 34 29  29 82 28 31 3c 3c 33 29  |%-1)*24)).(1<<3)|
00003ad0  0d 14 5a 05 e1 0d 14 64  22 dd 20 f2 57 69 6d 70  |..Z....d". .Wimp|
00003ae0  5f 4d 65 6e 75 50 6f 70  55 70 28 4d 65 6e 75 25  |_MenuPopUp(Menu%|
00003af0  2c 78 25 2c 79 25 29 0d  14 6e 0f 6d 65 6e 75 25  |,x%,y%)..n.menu%|
00003b00  3d 4d 65 6e 75 25 0d 14  78 2b c8 99 20 22 57 69  |=Menu%..x+.. "Wi|
00003b10  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00003b20  6d 65 6e 75 25 2c 78 25  2d 36 34 2c 79 25 2b 32  |menu%,x%-64,y%+2|
00003b30  30 0d 14 82 05 e1 0d 14  8c 1f dd 20 f2 57 69 6d  |0.......... .Wim|
00003b40  70 5f 4d 65 6e 75 50 6f  70 55 70 42 61 72 28 78  |p_MenuPopUpBar(x|
00003b50  25 2c 79 25 29 0d 14 96  0f ea 20 6e 25 20 3a 20  |%,y%)..... n% : |
00003b60  6e 25 3d 30 0d 14 a0 2b  c8 95 20 28 28 42 61 72  |n%=0...+.. ((Bar|
00003b70  5f 4d 65 6e 75 25 21 28  32 38 2b 6e 25 2a 32 34  |_Menu%!(28+n%*24|
00003b80  29 29 80 25 31 30 30 30  30 30 30 30 29 3d 30 0d  |)).%10000000)=0.|
00003b90  14 aa 09 6e 25 2b 3d 31  0d 14 b4 05 ce 0d 14 be  |...n%+=1........|
00003ba0  33 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |3.. "Wimp_Create|
00003bb0  4d 65 6e 75 22 2c 2c 42  61 72 5f 4d 65 6e 75 25  |Menu",,Bar_Menu%|
00003bc0  2c 78 25 2d 36 34 2c 31  34 30 2b 6e 25 2a 34 34  |,x%-64,140+n%*44|
00003bd0  0d 14 c8 13 6d 65 6e 75  25 3d 42 61 72 5f 4d 65  |....menu%=Bar_Me|
00003be0  6e 75 25 0d 14 d2 05 e1  0d 14 dc 21 dd 20 f2 57  |nu%........!. .W|
00003bf0  69 6d 70 5f 4d 65 6e 75  54 69 63 6b 28 6d 65 6e  |imp_MenuTick(men|
00003c00  75 25 2c 69 74 65 6d 25  29 0d 14 e6 37 6d 65 6e  |u%,item%)...7men|
00003c10  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
00003c20  2a 32 34 29 3d 28 6d 65  6e 75 25 21 28 32 38 2b  |*24)=(menu%!(28+|
00003c30  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 82 31  |(item%-1)*24)).1|
00003c40  0d 14 f0 05 e1 0d 14 fa  23 dd 20 f2 57 69 6d 70  |........#. .Wimp|
00003c50  5f 4d 65 6e 75 54 69 74  6c 65 28 6d 65 6e 75 25  |_MenuTitle(menu%|
00003c60  2c 74 69 74 6c 65 24 29  0d 15 04 19 24 6d 65 6e  |,title$)....$men|
00003c70  75 25 3d c0 74 69 74 6c  65 24 2c 31 32 29 2b bd  |u%=.title$,12)+.|
00003c80  30 0d 15 0e 05 e1 0d 15  18 3d dd 20 f2 57 69 6d  |0........=. .Wim|
00003c90  70 5f 4d 65 6e 75 57 72  69 74 65 28 6d 65 6e 75  |p_MenuWrite(menu|
00003ca0  25 2c 69 74 65 6d 25 2c  62 75 66 66 65 72 25 2c  |%,item%,buffer%,|
00003cb0  76 61 6c 25 2c 42 75 66  66 65 72 4c 65 6e 67 74  |val%,BufferLengt|
00003cc0  68 25 29 0d 15 22 37 6d  65 6e 75 25 21 28 32 38  |h%).."7menu%!(28|
00003cd0  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 28  |+(item%-1)*24)=(|
00003ce0  6d 65 6e 75 25 21 28 32  38 2b 28 69 74 65 6d 25  |menu%!(28+(item%|
00003cf0  2d 31 29 2a 32 34 29 29  84 34 0d 15 2c 38 6d 65  |-1)*24)).4..,8me|
00003d00  6e 75 25 21 28 33 36 2b  28 69 74 65 6d 25 2d 31  |nu%!(36+(item%-1|
00003d10  29 2a 32 34 29 3d 6d 65  6e 75 25 21 28 33 36 2b  |)*24)=menu%!(36+|
00003d20  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 84 26 31  |(item%-1)*24).&1|
00003d30  30 30 0d 15 36 23 6d 65  6e 75 25 21 28 34 30 2b  |00..6#menu%!(40+|
00003d40  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 62 75  |(item%-1)*24)=bu|
00003d50  66 66 65 72 25 0d 15 40  20 6d 65 6e 75 25 21 28  |ffer%..@ menu%!(|
00003d60  34 34 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |44+(item%-1)*24)|
00003d70  3d 76 61 6c 25 0d 15 4a  29 6d 65 6e 75 25 21 28  |=val%..J)menu%!(|
00003d80  34 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |48+(item%-1)*24)|
00003d90  3d 42 75 66 66 65 72 4c  65 6e 67 74 68 25 0d 15  |=BufferLength%..|
00003da0  54 05 e1 0d 15 5e 17 dd  20 f2 57 69 6d 70 5f 53  |T....^.. .Wimp_S|
00003db0  70 72 69 74 65 73 4c 6f  61 64 0d 15 68 2f f2 57  |pritesLoad..h/.W|
00003dc0  69 6d 70 5f 53 70 72 69  74 65 73 50 61 74 68 4c  |imp_SpritesPathL|
00003dd0  6f 61 64 28 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |oad("<Obey$Dir>.|
00003de0  53 70 72 69 74 65 73 22  29 0d 15 72 1c 64 69 72  |Sprites")..r.dir|
00003df0  65 63 74 5f 73 70 72 69  74 65 73 25 3d 73 70 72  |ect_sprites%=spr|
00003e00  69 74 65 73 25 0d 15 7c  05 e1 0d 15 86 26 dd 20  |ites%..|.....&. |
00003e10  f2 57 69 6d 70 5f 53 70  72 69 74 65 73 50 61 74  |.Wimp_SpritesPat|
00003e20  68 4c 6f 61 64 28 70 61  74 68 6e 61 6d 65 24 29  |hLoad(pathname$)|
00003e30  0d 15 90 0a ea 53 25 2c  54 25 0d 15 9a 2c 53 25  |.....S%,T%...,S%|
00003e40  3d 8e 22 3c 4f 62 65 79  24 44 69 72 3e 2e 53 70  |=."<Obey$Dir>.Sp|
00003e50  72 69 74 65 73 22 3a 54  25 3d a2 23 53 25 2b 31  |rites":T%=.#S%+1|
00003e60  36 3a d9 23 53 25 0d 15  a4 19 de 73 70 72 69 74  |6:.#S%.....sprit|
00003e70  65 73 25 54 25 2c 73 70  6e 61 6d 65 25 31 32 0d  |es%T%,spname%12.|
00003e80  15 ae 1d 21 73 70 72 69  74 65 73 25 3d 54 25 3a  |...!sprites%=T%:|
00003e90  73 70 72 69 74 65 73 25  21 38 3d 30 0d 15 b8 21  |sprites%!8=0...!|
00003ea0  c8 99 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |.."OS_SpriteOp",|
00003eb0  26 31 30 39 2c 73 70 72  69 74 65 73 25 0d 15 c2  |&109,sprites%...|
00003ec0  2b c8 99 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |+.."OS_SpriteOp"|
00003ed0  2c 26 31 30 41 2c 73 70  72 69 74 65 73 25 2c 70  |,&10A,sprites%,p|
00003ee0  61 74 68 6e 61 6d 65 24  0d 15 cc 05 e1 0d 15 d6  |athname$........|
00003ef0  1b dd 20 a4 57 69 6d 70  5f 46 69 6c 65 54 79 70  |.. .Wimp_FileTyp|
00003f00  65 28 74 79 70 65 25 29  0d 15 e0 0c c8 8e 74 79  |e(type%)......ty|
00003f10  70 65 25 ca 0d 15 ea 11  c9 26 46 46 46 3a 3d 22  |pe%......&FFF:="|
00003f20  54 65 78 74 22 0d 15 f4  11 c9 26 46 46 44 3a 3d  |Text".....&FFD:=|
00003f30  22 44 61 74 61 22 0d 15  fe 12 c9 26 46 46 42 3a  |"Data".....&FFB:|
00003f40  3d 22 42 61 73 69 63 22  0d 16 08 13 c9 26 46 46  |="Basic".....&FF|
00003f50  39 3a 3d 22 53 70 72 69  74 65 22 0d 16 12 14 c9  |9:="Sprite".....|
00003f60  26 46 45 44 3a 3d 22 50  61 6c 65 74 74 65 22 0d  |&FED:="Palette".|
00003f70  16 1c 15 c9 26 46 45 43  3a 3d 22 54 65 6d 70 6c  |....&FEC:="Templ|
00003f80  61 74 65 22 0d 16 26 11  c9 26 41 46 46 3a 3d 22  |ate"..&..&AFF:="|
00003f90  44 72 61 77 22 0d 16 30  14 c9 26 31 30 30 30 3a  |Draw"..0..&1000:|
00003fa0  3d 22 46 6f 6c 64 65 72  22 0d 16 3a 19 c9 26 32  |="Folder"..:..&2|
00003fb0  30 30 30 3a 3d 22 41 70  70 6c 69 63 61 74 69 6f  |000:="Applicatio|
00003fc0  6e 22 0d 16 44 0f 7f 3d  c3 7e 28 74 79 70 65 25  |n"..D..=.~(type%|
00003fd0  29 0d 16 4e 05 cb 0d 16  58 1b dd 20 a4 57 69 6d  |)..N....X.. .Wim|
00003fe0  70 5f 47 65 74 46 69 6c  65 50 61 74 68 4e 61 6d  |p_GetFilePathNam|
00003ff0  65 0d 16 62 27 3d a4 57  69 6d 70 5f 47 65 74 53  |e..b'=.Wimp_GetS|
00004000  74 72 69 6e 67 41 74 41  64 64 72 65 73 73 28 77  |tringAtAddress(w|
00004010  69 6d 70 25 2b 34 34 29  0d 16 6c 1f dd 20 a4 57  |imp%+44)..l.. .W|
00004020  69 6d 70 5f 46 69 6c 65  4c 6f 61 64 28 70 61 74  |imp_FileLoad(pat|
00004030  68 6e 61 6d 65 24 29 0d  16 76 10 ea 53 25 2c 54  |hname$)..v..S%,T|
00004040  25 2c 66 69 6c 65 25 0d  16 80 11 53 25 3d 8e 70  |%,file%....S%=.p|
00004050  61 74 68 6e 61 6d 65 24  0d 16 8a 0e 54 25 3d a2  |athname$....T%=.|
00004060  23 53 25 2b 31 36 0d 16  94 08 d9 23 53 25 0d 16  |#S%+16.....#S%..|
00004070  9e 0c de 66 69 6c 65 25  54 25 0d 16 a8 22 ff 28  |...file%T%...".(|
00004080  22 4c 4f 41 44 22 2b 70  61 74 68 6e 61 6d 65 24  |"LOAD"+pathname$|
00004090  2b 22 22 2b c3 7e 66 69  6c 65 25 29 0d 16 b2 0a  |+""+.~file%)....|
000040a0  3d 66 69 6c 65 25 0d 16  bc 26 dd 20 a4 57 69 6d  |=file%...&. .Wim|
000040b0  70 5f 47 65 74 53 74 72  69 6e 67 41 74 41 64 64  |p_GetStringAtAdd|
000040c0  72 65 73 73 28 61 72 72  61 79 25 29 0d 16 c6 0d  |ress(array%)....|
000040d0  ea 73 24 3a 73 24 3d 22  22 0d 16 d0 3b c8 95 28  |.s$:s$=""...;..(|
000040e0  3f 61 72 72 61 79 25 3c  3e 31 33 29 80 28 3f 61  |?array%<>13).(?a|
000040f0  72 72 61 79 25 3c 3e 30  29 3a 73 24 2b 3d bd 28  |rray%<>0):s$+=.(|
00004100  3f 61 72 72 61 79 25 29  3a 61 72 72 61 79 25 2b  |?array%):array%+|
00004110  3d 31 3a ce 0d 16 da 07  3d 73 24 0d 16 e4 23 dd  |=1:.....=s$...#.|
00004120  20 a4 57 69 6d 70 5f 47  65 74 46 69 6c 65 46 72  | .Wimp_GetFileFr|
00004130  6f 6d 50 61 74 68 6e 61  6d 65 28 66 24 29 0d 16  |omPathname(f$)..|
00004140  ee 11 c8 8e 20 a7 66 24  2c 22 2e 22 29 20 ca 0d  |.... .f$,".") ..|
00004150  16 f8 10 20 c9 20 30 20  20 20 20 3a 3d 66 24 0d  |... . 0    :=f$.|
00004160  17 02 37 20 7f 20 3a 3d  a4 57 69 6d 70 5f 47 65  |..7 . :=.Wimp_Ge|
00004170  74 46 69 6c 65 46 72 6f  6d 50 61 74 68 6e 61 6d  |tFileFromPathnam|
00004180  65 28 c2 66 24 2c a9 28  66 24 29 2d a7 66 24 2c  |e(.f$,.(f$)-.f$,|
00004190  22 2e 22 29 29 29 0d 17  0c 05 cb 0d 17 16 1d dd  |".")))..........|
000041a0  20 f2 57 69 6d 70 5f 53  65 6e 64 54 6f 45 64 69  | .Wimp_SendToEdi|
000041b0  74 28 66 69 6c 65 24 29  0d 17 20 08 ea 20 6e 25  |t(file$).. .. n%|
000041c0  0d 17 2a 15 77 69 6d 70  25 21 34 3d 26 36 43 43  |..*.wimp%!4=&6CC|
000041d0  30 31 43 30 43 0d 17 34  0e 77 69 6d 70 25 21 31  |01C0C..4.wimp%!1|
000041e0  36 3d 35 0d 17 3e 0e 77  69 6d 70 25 21 33 36 3d  |6=5..>.wimp%!36=|
000041f0  30 0d 17 48 11 77 69 6d  70 25 21 34 30 3d 26 46  |0..H.wimp%!40=&F|
00004200  46 46 0d 17 52 18 24 28  77 69 6d 70 25 2b 34 34  |FF..R.$(wimp%+44|
00004210  29 3d 66 69 6c 65 24 2b  bd 30 0d 17 5c 10 6e 25  |)=file$+.0..\.n%|
00004220  3d a9 66 69 6c 65 24 2b  34 35 0d 17 66 2c e7 20  |=.file$+45..f,. |
00004230  6e 25 83 34 20 8c 20 21  77 69 6d 70 25 3d 34 2b  |n%.4 . !wimp%=4+|
00004240  28 6e 25 3e 3e 32 29 3c  3c 32 20 8b 20 21 77 69  |(n%>>2)<<2 . !wi|
00004250  6d 70 25 3d 6e 25 0d 17  70 24 c8 99 20 22 57 69  |mp%=n%..p$.. "Wi|
00004260  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00004270  31 37 2c 77 69 6d 70 25  2c 30 0d 17 7a 05 e1 0d  |17,wimp%,0..z...|
00004280  17 84 2f dd 20 f2 57 69  6d 70 5f 53 74 61 72 74  |../. .Wimp_Start|
00004290  28 54 61 73 6b 4e 61 6d  65 24 2c 77 69 6d 70 5f  |(TaskName$,wimp_|
000042a0  6d 65 6d 6f 72 79 25 2c  69 63 6f 6e 25 29 0d 17  |memory%,icon%)..|
000042b0  8e 25 de 20 77 69 6d 70  25 20 77 69 6d 70 5f 6d  |.%. wimp% wimp_m|
000042c0  65 6d 6f 72 79 25 2c 69  63 6f 6e 73 25 20 69 63  |emory%,icons% ic|
000042d0  6f 6e 25 0d 17 98 29 e7  20 77 69 6d 70 5f 6d 65  |on%...). wimp_me|
000042e0  6d 6f 72 79 25 3c 32 35  36 20 8c 20 77 69 6d 70  |mory%<256 . wimp|
000042f0  5f 6d 65 6d 6f 72 79 25  3d 32 35 36 0d 17 a2 1d  |_memory%=256....|
00004300  69 63 6f 6e 5f 6d 65 6d  6f 72 79 25 3d 69 63 6f  |icon_memory%=ico|
00004310  6e 73 25 2b 69 63 6f 6e  25 0d 17 ac 13 74 61 73  |ns%+icon%....tas|
00004320  6b 24 3d 54 61 73 6b 4e  61 6d 65 24 0d 17 b6 2b  |k$=TaskName$...+|
00004330  69 6e 64 69 72 65 63 74  5f 73 70 72 69 74 65 73  |indirect_sprites|
00004340  25 3d 31 20 3a 20 64 69  72 65 63 74 5f 73 70 72  |%=1 : direct_spr|
00004350  69 74 65 73 25 3d 31 0d  17 c0 1b f2 57 69 6d 70  |ites%=1.....Wimp|
00004360  5f 53 65 74 45 76 65 6e  74 56 61 72 69 61 62 6c  |_SetEventVariabl|
00004370  65 73 0d 17 ca 15 ee 20  85 20 f2 57 69 6d 70 5f  |es..... . .Wimp_|
00004380  45 72 72 6f 72 3a e0 0d  17 d4 40 c8 99 22 57 69  |Error:....@.."Wi|
00004390  6d 70 5f 49 6e 69 74 69  61 6c 69 73 65 22 2c 32  |mp_Initialise",2|
000043a0  30 30 2c 26 34 42 35 33  34 31 35 34 2c 54 61 73  |00,&4B534154,Tas|
000043b0  6b 4e 61 6d 65 24 20 b8  20 76 65 72 73 69 6f 6e  |kName$ . version|
000043c0  25 2c 74 61 73 6b 25 0d  17 de 05 e1 0d 17 e8 1b  |%,task%.........|
000043d0  dd 20 a4 57 69 6d 70 5f  42 41 53 49 43 50 61 72  |. .Wimp_BASICPar|
000043e0  61 6d 65 74 65 72 73 0d  17 f2 15 20 ea 20 63 6f  |ameters.... . co|
000043f0  6d 24 2c 70 61 72 61 6d  24 2c 49 25 0d 17 fc 1a  |m$,param$,I%....|
00004400  20 c8 99 20 22 4f 53 5f  47 65 74 45 6e 76 22 20  | .. "OS_GetEnv" |
00004410  b8 20 63 6f 6d 24 0d 18  06 0f 20 70 61 72 61 6d  |. com$.... param|
00004420  73 24 3d 22 22 0d 18 10  18 20 49 25 3d a7 63 6f  |s$="".... I%=.co|
00004430  6d 24 2c 22 20 2d 71 75  69 74 20 22 29 0d 18 1a  |m$," -quit ")...|
00004440  35 20 e7 20 49 25 20 8c  20 70 61 72 61 6d 73 24  |5 . I% . params$|
00004450  3d c1 63 6f 6d 24 2c a7  63 6f 6d 24 2c 22 20 22  |=.com$,.com$," "|
00004460  2c 49 25 2b a9 22 20 2d  71 75 69 74 20 22 29 2b  |,I%+." -quit ")+|
00004470  31 29 0d 18 24 0c 3d 70  61 72 61 6d 73 24 0d 18  |1)..$.=params$..|
00004480  2e 1d dd 20 f2 57 69 6d  70 5f 53 65 74 45 76 65  |... .Wimp_SetEve|
00004490  6e 74 56 61 72 69 61 62  6c 65 73 0d 18 38 17 de  |ntVariables..8..|
000044a0  20 70 6f 69 6e 74 65 72  5f 62 6c 6f 63 6b 25 20  | pointer_block% |
000044b0  32 30 0d 18 42 10 69 6e  74 65 72 66 61 63 65 25  |20..B.interface%|
000044c0  3d a3 0d 18 4c 2e 6e 75  6c 6c 25 3d 31 20 20 3a  |=...L.null%=1  :|
000044d0  64 72 61 77 25 3d 32 20  3a 20 20 70 6f 69 6e 74  |draw%=2 :  point|
000044e0  65 72 5f 6c 65 61 76 69  6e 67 25 3d 31 3c 3c 34  |er_leaving%=1<<4|
000044f0  0d 18 56 31 70 6f 69 6e  74 65 72 5f 65 6e 74 65  |..V1pointer_ente|
00004500  72 69 6e 67 25 3d 31 3c  3c 35 3a 6d 6f 75 73 65  |ring%=1<<5:mouse|
00004510  25 3d 31 3c 3c 36 3a 64  72 61 67 25 3d 31 3c 3c  |%=1<<6:drag%=1<<|
00004520  37 0d 18 60 26 6b 65 79  25 3d 31 3c 3c 38 3a 6d  |7..`&key%=1<<8:m|
00004530  65 6e 75 25 3d 31 3c 3c  39 3a 73 63 72 6f 6c 6c  |enu%=1<<9:scroll|
00004540  25 3d 31 3c 3c 31 30 0d  18 6a 40 6c 6f 73 65 5f  |%=1<<10..j@lose_|
00004550  63 61 72 65 74 25 3d 31  3c 3c 31 31 3a 67 61 69  |caret%=1<<11:gai|
00004560  6e 5f 63 61 72 65 74 25  3d 31 3c 3c 31 32 3a 6d  |n_caret%=1<<12:m|
00004570  65 73 73 61 67 65 25 3d  28 31 3c 3c 31 37 29 2b  |essage%=(1<<17)+|
00004580  28 31 3c 3c 31 38 29 0d  18 74 30 72 65 63 6f 72  |(1<<18)..t0recor|
00004590  64 65 72 25 3d 31 3c 3c  31 38 3a 61 63 6b 6e 6f  |der%=1<<18:ackno|
000045a0  77 6c 65 64 67 65 25 3d  31 3c 3c 31 39 3a 77 69  |wledge%=1<<19:wi|
000045b0  6e 64 6f 77 25 3d 30 0d  18 7e 21 73 70 72 69 74  |ndow%=0..~!sprit|
000045c0  65 73 25 3d 31 3a 76 65  72 73 69 6f 6e 25 3d 30  |es%=1:version%=0|
000045d0  3a 74 61 73 6b 25 3d 30  0d 18 88 2a 42 61 72 5f  |:task%=0...*Bar_|
000045e0  57 69 6e 64 6f 77 25 3d  2d 32 3a 42 61 72 5f 49  |Window%=-2:Bar_I|
000045f0  63 6f 6e 25 3d 30 3a 42  61 72 5f 4d 65 6e 75 25  |con%=0:Bar_Menu%|
00004600  3d 30 0d 18 92 2a 78 5f  6f 72 69 67 69 6e 25 3d  |=0...*x_origin%=|
00004610  30 3a 79 5f 6f 72 69 67  69 6e 25 3d 30 3a 53 61  |0:y_origin%=0:Sa|
00004620  76 65 57 69 6e 64 6f 77  25 3d 2d 33 0d 18 9c 33  |veWindow%=-3...3|
00004630  6d 65 73 73 61 67 65 5f  71 75 69 74 25 3d 30 3a  |message_quit%=0:|
00004640  6d 65 73 73 61 67 65 5f  73 61 76 65 25 3d 32 3a  |message_save%=2:|
00004650  6d 65 73 73 61 67 65 5f  6c 6f 61 64 25 3d 33 0d  |message_load%=3.|
00004660  18 a6 21 6d 6f 75 73 65  5f 62 75 74 74 6f 6e 25  |..!mouse_button%|
00004670  3d 32 3a 73 61 76 65 5f  65 76 65 6e 74 25 3d 30  |=2:save_event%=0|
00004680  0d 18 b0 20 74 6f 70 5f  6c 69 6e 65 25 3d 30 20  |... top_line%=0 |
00004690  3a 20 62 6f 74 74 6f 6d  5f 6c 69 6e 65 25 3d 30  |: bottom_line%=0|
000046a0  0d 18 ba 05 e1 0d 18 c4  11 dd 20 f2 57 69 6d 70  |.......... .Wimp|
000046b0  5f 45 72 72 6f 72 0d 18  ce 0a ea 58 24 2c 78 25  |_Error.....X$,x%|
000046c0  0d 18 d8 09 ee 20 85 20  87 0d 18 e2 08 78 25 3d  |..... . .....x%=|
000046d0  9e 0d 18 ec 1b 58 24 3d  f6 24 2b 22 61 74 6c 69  |.....X$=.$+"atli|
000046e0  6e 65 22 2b c3 28 78 25  81 31 30 29 0d 18 f6 10  |ne"+.(x%.10)....|
000046f0  de 45 72 72 6f 72 4d 73  67 25 33 36 0d 19 00 45  |.ErrorMsg%36...E|
00004700  45 72 72 6f 72 4d 73 67  25 21 30 3d 33 36 3a 45  |ErrorMsg%!0=36:E|
00004710  72 72 6f 72 4d 73 67 25  21 31 32 3d 30 3a 45 72  |rrorMsg%!12=0:Er|
00004720  72 6f 72 4d 73 67 25 21  31 36 3d 26 38 31 30 38  |rorMsg%!16=&8108|
00004730  30 3a 45 72 72 6f 72 4d  73 67 25 21 32 30 3d 78  |0:ErrorMsg%!20=x|
00004740  25 0d 19 0a 1f 24 28 45  72 72 6f 72 4d 73 67 25  |%....$(ErrorMsg%|
00004750  2b 32 34 29 3d 22 21 52  75 6e 49 6d 61 67 65 22  |+24)="!RunImage"|
00004760  0d 19 14 25 c8 99 22 57  69 6d 70 5f 53 65 6e 64  |...%.."Wimp_Send|
00004770  4d 65 73 73 61 67 65 22  2c 31 37 2c 45 72 72 6f  |Message",17,Erro|
00004780  72 4d 73 67 25 0d 19 1e  1f f2 57 69 6d 70 5f 57  |rMsg%.....Wimp_W|
00004790  69 6e 64 6f 77 41 6c 65  72 74 28 74 61 73 6b 24  |indowAlert(task$|
000047a0  2c 58 24 29 0d 19 28 13  f2 57 69 6d 70 5f 43 6c  |,X$)..(..Wimp_Cl|
000047b0  6f 73 65 44 6f 77 6e 0d  19 32 05 e1 0d 19 3c 15  |oseDown..2....<.|
000047c0  dd 20 f2 57 69 6d 70 5f  43 6c 6f 73 65 44 6f 77  |. .Wimp_CloseDow|
000047d0  6e 0d 19 46 23 c8 99 22  57 69 6d 70 5f 43 6c 6f  |n..F#.."Wimp_Clo|
000047e0  73 65 44 6f 77 6e 22 2c  74 61 73 6b 25 2c 22 54  |seDown",task%,"T|
000047f0  41 53 4b 22 0d 19 50 05  e1 0d 19 5a 10 dd 20 f2  |ASK"..P....Z.. .|
00004800  57 69 6d 70 5f 51 75 69  74 0d 19 64 0f 66 69 6e  |Wimp_Quit..d.fin|
00004810  69 73 68 65 64 25 3d b9  0d 19 6e 05 e1 0d 19 78  |ished%=...n....x|
00004820  23 dd 20 a4 57 69 6d 70  5f 52 65 61 64 56 61 72  |#. .Wimp_ReadVar|
00004830  69 61 62 6c 65 28 56 61  72 69 61 62 6c 65 24 29  |iable(Variable$)|
00004840  0d 19 82 1b ea 6c 65 6e  25 2c 72 65 73 75 6c 74  |.....len%,result|
00004850  25 2c 76 61 72 69 61 62  6c 65 25 0d 19 8c 14 24  |%,variable%....$|
00004860  77 69 6d 70 25 3d 56 61  72 69 61 62 6c 65 24 0d  |wimp%=Variable$.|
00004870  19 96 33 c8 99 22 4f 53  5f 52 65 61 64 56 61 72  |..3.."OS_ReadVar|
00004880  56 61 6c 22 2c 77 69 6d  70 25 2c 77 69 6d 70 25  |Val",wimp%,wimp%|
00004890  2b 32 35 35 2c 32 35 35  2c 2c 33 b8 2c 2c 6c 65  |+255,255,,3.,,le|
000048a0  6e 25 0d 19 a0 17 77 69  6d 70 25 3f 28 6c 65 6e  |n%....wimp%?(len|
000048b0  25 2b 32 35 35 29 3d 31  33 0d 19 aa 11 3d 24 28  |%+255)=13....=$(|
000048c0  77 69 6d 70 25 2b 32 35  35 29 0d 19 b4 18 dd 20  |wimp%+255)..... |
000048d0  f2 57 69 6d 70 5f 57 61  69 74 46 6f 72 45 76 65  |.Wimp_WaitForEve|
000048e0  6e 74 0d 19 be 12 ea 20  6d 61 73 6b 25 2c 65 76  |nt..... mask%,ev|
000048f0  65 6e 74 25 0d 19 c8 0f  66 69 6e 69 73 68 65 64  |ent%....finished|
00004900  25 3d a3 0d 19 d2 17 6d  61 73 6b 25 3d 25 31 31  |%=.....mask%=%11|
00004910  31 30 30 30 30 31 31 30  30 31 0d 19 dc 05 f5 0d  |1000011001......|
00004920  19 e6 27 20 c8 99 22 57  69 6d 70 5f 50 6f 6c 6c  |..' .."Wimp_Poll|
00004930  22 2c 6d 61 73 6b 25 2c  77 69 6d 70 25 20 b8 20  |",mask%,wimp% . |
00004940  65 76 65 6e 74 25 0d 19  f0 10 20 c8 8e 20 65 76  |event%.... .. ev|
00004950  65 6e 74 25 20 ca 0d 19  fa 08 20 20 c9 30 0d 1a  |ent% .....  .0..|
00004960  04 1f 20 20 c9 31 20 3a  20 f2 57 69 6d 70 5f 50  |..  .1 : .Wimp_P|
00004970  6f 6c 6c 44 72 61 77 57  69 6e 64 6f 77 0d 1a 0e  |ollDrawWindow...|
00004980  26 20 20 c9 32 20 3a 20  c8 99 20 22 57 69 6d 70  |&  .2 : .. "Wimp|
00004990  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
000049a0  6d 70 25 0d 1a 18 20 20  20 c9 33 20 3a 20 f2 57  |mp%...   .3 : .W|
000049b0  69 6d 70 5f 50 6f 6c 6c  43 6c 6f 73 65 57 69 6e  |imp_PollCloseWin|
000049c0  64 6f 77 0d 1a 22 08 20  20 c9 34 0d 1a 2c 08 20  |dow..".  .4..,. |
000049d0  20 c9 35 0d 1a 36 1f 20  20 c9 36 20 3a 20 f2 57  | .5..6.  .6 : .W|
000049e0  69 6d 70 5f 50 6f 6c 6c  4d 6f 75 73 65 43 6c 69  |imp_PollMouseCli|
000049f0  63 6b 0d 1a 40 20 20 20  c9 37 20 3a 20 f2 57 69  |ck..@   .7 : .Wi|
00004a00  6d 70 5f 50 6f 6c 6c 53  61 76 65 4d 65 73 73 61  |mp_PollSaveMessa|
00004a10  67 65 0d 1a 4a 1d 20 20  c9 38 20 3a 20 f2 57 69  |ge..J.  .8 : .Wi|
00004a20  6d 70 5f 50 6f 6c 6c 4b  65 79 50 72 65 73 73 0d  |mp_PollKeyPress.|
00004a30  1a 54 23 20 20 c9 39 20  3a 20 f2 45 76 65 6e 74  |.T#  .9 : .Event|
00004a40  5f 4d 65 6e 75 43 68 6f  69 63 65 28 6d 65 6e 75  |_MenuChoice(menu|
00004a50  25 29 0d 1a 5e 09 20 20  c9 31 30 0d 1a 68 09 20  |%)..^.  .10..h. |
00004a60  20 c9 31 31 0d 1a 72 09  20 20 c9 31 32 0d 1a 7c  | .11..r.  .12..||
00004a70  20 20 20 c9 31 37 2c 31  38 3a 20 f2 57 69 6d 70  |   .17,18: .Wimp|
00004a80  5f 50 6f 6c 6c 4d 65 73  73 61 67 65 73 0d 1a 86  |_PollMessages...|
00004a90  09 20 20 c9 31 39 0d 1a  90 06 20 cb 0d 1a 9a 0f  |.  .19.... .....|
00004aa0  fd 20 66 69 6e 69 73 68  65 64 25 0d 1a a4 05 e1  |. finished%.....|
00004ab0  0d 1a ae 1a dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..... .Wimp_Poll|
00004ac0  44 72 61 77 57 69 6e 64  6f 77 0d 1a b8 0b ea 20  |DrawWindow..... |
00004ad0  6d 6f 72 65 25 0d 1a c2  26 c8 99 22 57 69 6d 70  |more%...&.."Wimp|
00004ae0  5f 52 65 64 72 61 77 57  69 6e 64 6f 77 22 2c 2c  |_RedrawWindow",,|
00004af0  77 69 6d 70 25 b8 6d 6f  72 65 25 0d 1a cc 13 77  |wimp%.more%....w|
00004b00  69 6e 64 6f 77 25 3d 77  69 6d 70 25 21 30 0d 1a  |indow%=wimp%!0..|
00004b10  d6 41 78 5f 6f 72 69 67  69 6e 25 3d 31 36 2b 77  |.Ax_origin%=16+w|
00004b20  69 6d 70 25 21 34 2d 77  69 6d 70 25 21 32 30 3a  |imp%!4-wimp%!20:|
00004b30  79 5f 6f 72 69 67 69 6e  25 3d 2d 31 36 2b 77 69  |y_origin%=-16+wi|
00004b40  6d 70 25 21 31 36 2d 77  69 6d 70 25 21 32 34 0d  |mp%!16-wimp%!24.|
00004b50  1a e0 0b c8 95 6d 6f 72  65 25 0d 1a ea 30 20 e7  |.....more%...0 .|
00004b60  20 69 6e 74 65 72 66 61  63 65 25 20 8c 20 c8 99  | interface% . ..|
00004b70  22 57 69 6d 70 5f 42 6f  72 64 65 72 57 69 6e 64  |"Wimp_BorderWind|
00004b80  6f 77 22 2c 2c 77 69 6d  70 25 0d 1a f4 2d 20 f2  |ow",,wimp%...- .|
00004b90  45 76 65 6e 74 5f 44 72  61 77 28 77 69 6e 64 6f  |Event_Draw(windo|
00004ba0  77 25 2c 78 5f 6f 72 69  67 69 6e 25 2c 79 5f 6f  |w%,x_origin%,y_o|
00004bb0  72 69 67 69 6e 25 29 0d  1a fe 27 20 c8 99 22 57  |rigin%)...' .."W|
00004bc0  69 6d 70 5f 47 65 74 52  65 63 74 61 6e 67 6c 65  |imp_GetRectangle|
00004bd0  22 2c 2c 77 69 6d 70 25  b8 6d 6f 72 65 25 0d 1b  |",,wimp%.more%..|
00004be0  08 05 ce 0d 1b 12 05 e1  0d 1b 1c 1b dd 20 f2 57  |............. .W|
00004bf0  69 6d 70 5f 50 6f 6c 6c  43 6c 6f 73 65 57 69 6e  |imp_PollCloseWin|
00004c00  64 6f 77 0d 1b 26 25 20  20 c8 99 20 22 57 69 6d  |dow..&%  .. "Wim|
00004c10  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00004c20  22 2c 2c 77 69 6d 70 25  0d 1b 30 29 20 20 77 69  |",,wimp%..0)  wi|
00004c30  6e 64 6f 77 25 3d 77 69  6d 70 25 21 31 32 20 3a  |ndow%=wimp%!12 :|
00004c40  20 62 75 74 74 6f 6e 73  25 3d 77 69 6d 70 25 21  | buttons%=wimp%!|
00004c50  38 0d 1b 3a 29 20 f2 45  76 65 6e 74 5f 57 69 6e  |8..:) .Event_Win|
00004c60  64 6f 77 43 6c 6f 73 65  28 77 69 6e 64 6f 77 25  |dowClose(window%|
00004c70  2c 62 75 74 74 6f 6e 73  25 29 0d 1b 44 32 20 21  |,buttons%)..D2 !|
00004c80  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 20 3a 20  |wimp%=window% : |
00004c90  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00004ca0  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 1b 4e 05  |ndow",,wimp%..N.|
00004cb0  e1 0d 1b 58 1a dd 20 f2  57 69 6d 70 5f 50 6f 6c  |...X.. .Wimp_Pol|
00004cc0  6c 4d 6f 75 73 65 43 6c  69 63 6b 0d 1b 62 4a 20  |lMouseClick..bJ |
00004cd0  62 75 74 74 6f 6e 25 3d  77 69 6d 70 25 21 38 3a  |button%=wimp%!8:|
00004ce0  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 31 32  |window%=wimp%!12|
00004cf0  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
00004d00  78 25 3d 77 69 6d 70 25  21 30 3a 79 25 3d 77 69  |x%=wimp%!0:y%=wi|
00004d10  6d 70 25 21 34 0d 1b 6c  11 20 c8 8e 20 62 75 74  |mp%!4..l. .. but|
00004d20  74 6f 6e 25 20 ca 0d 1b  76 22 20 20 20 c9 32 20  |ton% ...v"   .2 |
00004d30  20 20 20 3a 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |   : .Wimp_PollM|
00004d40  65 6e 75 50 6f 70 55 70  0d 1b 80 23 20 20 20 7f  |enuPopUp...#   .|
00004d50  3a 20 c8 8e 20 a4 45 76  65 6e 74 5f 53 61 76 65  |: .. .Event_Save|
00004d60  28 77 69 6e 64 6f 77 25  29 20 ca 0d 1b 8a 2c 20  |(window%) ...., |
00004d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |              . |
00004d80  b9 20 3a 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4d 6f  |. : .Wimp_PollMo|
00004d90  75 73 65 53 61 76 65 0d  1b 94 31 20 20 20 20 20  |useSave...1     |
00004da0  20 20 20 20 20 20 20 20  20 20 c9 20 a3 3a 20 f2  |          . .: .|
00004db0  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
00004dc0  75 73 65 43 6c 69 63 6b  0d 1b 9e 13 20 20 20 20  |useClick....    |
00004dd0  20 20 20 20 20 20 20 20  20 20 cb 0d 1b a8 06 20  |          ..... |
00004de0  cb 0d 1b b2 05 e1 0d 1b  bc 19 dd 20 f2 57 69 6d  |........... .Wim|
00004df0  70 5f 50 6f 6c 6c 4d 65  6e 75 50 6f 70 55 70 0d  |p_PollMenuPopUp.|
00004e00  1b c6 1e 6d 65 6e 75 25  3d a4 45 76 65 6e 74 5f  |...menu%=.Event_|
00004e10  4d 65 6e 75 28 77 69 6e  64 6f 77 25 29 0d 1b d0  |Menu(window%)...|
00004e20  11 20 20 c8 8e 20 6d 65  6e 75 25 20 20 ca 0d 1b  |.  .. menu%  ...|
00004e30  da 0a 20 20 20 c9 20 a3  0d 1b e4 08 20 20 20 7f  |..   . .....   .|
00004e40  0d 1b ee 15 20 20 20 20  20 c8 8e 20 77 69 6e 64  |....     .. wind|
00004e50  6f 77 25 20 ca 0d 1b f8  17 20 20 20 20 20 20 c9  |ow% .....      .|
00004e60  20 2d 32 20 20 20 3a 20  6e 25 3d 30 0d 1c 02 33  | -2   : n%=0...3|
00004e70  20 20 20 20 20 20 20 20  c8 95 20 28 28 42 61 72  |        .. ((Bar|
00004e80  5f 4d 65 6e 75 25 21 28  32 38 2b 6e 25 2a 32 34  |_Menu%!(28+n%*24|
00004e90  29 29 80 25 31 30 30 30  30 30 30 30 29 3d 30 0d  |)).%10000000)=0.|
00004ea0  1c 0c 12 20 20 20 20 20  20 20 20 20 6e 25 2b 3d  |...         n%+=|
00004eb0  31 0d 1c 16 0d 20 20 20  20 20 20 20 20 ce 0d 1c  |1....        ...|
00004ec0  20 3b 20 20 20 20 20 20  20 20 c8 99 20 22 57 69  | ;        .. "Wi|
00004ed0  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00004ee0  42 61 72 5f 4d 65 6e 75  25 2c 78 25 2d 36 34 2c  |Bar_Menu%,x%-64,|
00004ef0  31 34 30 2b 6e 25 2a 34  34 0d 1c 2a 34 20 20 20  |140+n%*44..*4   |
00004f00  20 20 20 7f 20 3a 20 c8  99 22 57 69 6d 70 5f 43  |   . : .."Wimp_C|
00004f10  72 65 61 74 65 4d 65 6e  75 22 2c 2c 6d 65 6e 75  |reateMenu",,menu|
00004f20  25 2c 78 25 2d 36 34 2c  79 25 2b 32 30 0d 1c 34  |%,x%-64,y%+20..4|
00004f30  0a 20 20 20 20 20 cb 0d  1c 3e 07 20 20 cb 0d 1c  |.     ...>.  ...|
00004f40  48 05 e1 0d 1c 52 19 dd  20 f2 57 69 6d 70 5f 50  |H....R.. .Wimp_P|
00004f50  6f 6c 6c 4d 6f 75 73 65  53 61 76 65 0d 1c 5c 0f  |ollMouseSave..\.|
00004f60  20 c8 8e 20 69 63 6f 6e  25 20 ca 0d 1c 66 38 20  | .. icon% ...f8 |
00004f70  20 c9 20 30 20 3a 20 e7  20 62 75 74 74 6f 6e 25  | . 0 : . button%|
00004f80  20 80 20 26 35 30 20 8c  20 f2 57 69 6d 70 5f 50  | . &50 . .Wimp_P|
00004f90  6f 6c 6c 44 72 61 67 42  6f 78 28 77 69 6e 64 6f  |ollDragBox(windo|
00004fa0  77 25 29 0d 1c 70 38 20  20 c9 20 32 20 3a 20 e7  |w%)..p8  . 2 : .|
00004fb0  20 62 75 74 74 6f 6e 25  20 80 20 35 20 8c 20 20  | button% . 5 .  |
00004fc0  f2 57 69 6d 70 5f 50 6f  6c 6c 53 61 76 65 46 69  |.Wimp_PollSaveFi|
00004fd0  6c 65 28 77 69 6e 64 6f  77 25 29 0d 1c 7a 06 20  |le(window%)..z. |
00004fe0  cb 0d 1c 84 05 e1 0d 1c  8e 1f dd 20 f2 57 69 6d  |........... .Wim|
00004ff0  70 5f 50 6f 6c 6c 45 76  65 6e 74 4d 6f 75 73 65  |p_PollEventMouse|
00005000  43 6c 69 63 6b 0d 1c 98  2e 20 e7 20 69 6e 74 65  |Click.... . inte|
00005010  72 66 61 63 65 25 20 8c  20 c8 99 22 57 69 6d 70  |rface% . .."Wimp|
00005020  5f 42 6f 72 64 65 72 49  63 6f 6e 22 2c 2c 77 69  |_BorderIcon",,wi|
00005030  6d 70 25 0d 1c a2 33 20  f2 45 76 65 6e 74 5f 4d  |mp%...3 .Event_M|
00005040  6f 75 73 65 43 6c 69 63  6b 28 77 69 6e 64 6f 77  |ouseClick(window|
00005050  25 2c 69 63 6f 6e 25 2c  62 75 74 74 6f 6e 25 2c  |%,icon%,button%,|
00005060  78 25 2c 79 25 29 0d 1c  ac 15 20 c8 8e 20 20 69  |x%,y%).... ..  i|
00005070  6e 74 65 72 66 61 63 65  25 20 ca 0d 1c b6 09 20  |nterface% ..... |
00005080  20 c9 20 b9 0d 1c c0 28  20 20 20 77 69 6d 70 25  | . ....(   wimp%|
00005090  21 30 3d 78 25 3a 77 69  6d 70 25 21 34 3d 79 25  |!0=x%:wimp%!4=y%|
000050a0  20 3a 20 77 69 6d 70 25  21 38 3d 30 0d 1c ca 28  | : wimp%!8=0...(|
000050b0  20 20 20 77 69 6d 70 25  21 31 32 3d 77 69 6e 64  |   wimp%!12=wind|
000050c0  6f 77 25 20 3a 20 77 69  6d 70 25 21 31 36 3d 69  |ow% : wimp%!16=i|
000050d0  63 6f 6e 25 0d 1c d4 21  20 20 20 c8 99 22 57 69  |con%...!   .."Wi|
000050e0  6d 70 5f 42 6f 72 64 65  72 49 63 6f 6e 22 2c 2c  |mp_BorderIcon",,|
000050f0  77 69 6d 70 25 0d 1c de  06 20 cb 0d 1c e8 05 e1  |wimp%.... ......|
00005100  0d 1c f2 21 dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |...!. .Wimp_Poll|
00005110  53 61 76 65 46 69 6c 65  28 77 69 6e 64 6f 77 25  |SaveFile(window%|
00005120  29 0d 1c fc 0a ea 66 69  6c 65 24 0d 1d 06 40 20  |).....file$...@ |
00005130  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
00005140  3a 20 77 69 6d 70 25 21  34 3d 31 20 3a 20 c8 99  |: wimp%!4=1 : ..|
00005150  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00005160  61 74 65 22 2c 2c 77 69  6d 70 25 0d 1d 10 16 20  |ate",,wimp%.... |
00005170  66 69 6c 65 24 3d 24 28  77 69 6d 70 25 21 32 38  |file$=$(wimp%!28|
00005180  29 0d 1d 1a 15 20 c8 8e  20 a7 66 69 6c 65 24 2c  |).... .. .file$,|
00005190  22 2e 22 29 20 ca 0d 1d  24 09 20 20 c9 20 30 0d  |".") ...$.  . 0.|
000051a0  1d 2e 40 20 20 20 24 28  77 69 6d 70 25 2b 34 29  |..@   $(wimp%+4)|
000051b0  3d 22 54 6f 20 73 61 76  65 2c 20 64 72 61 67 20  |="To save, drag |
000051c0  74 68 65 20 69 63 6f 6e  20 74 6f 20 61 20 64 69  |the icon to a di|
000051d0  72 65 63 74 6f 72 79 20  77 69 6e 64 6f 77 22 0d  |rectory window".|
000051e0  1d 38 2b 20 20 20 c8 99  20 22 57 69 6d 70 5f 52  |.8+   .. "Wimp_R|
000051f0  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 69 6d 70  |eportError",wimp|
00005200  25 2c 31 36 2c 74 61 73  6b 24 0d 1d 42 07 20 20  |%,16,task$..B.  |
00005210  7f 0d 1d 4c 25 20 20 20  f2 45 76 65 6e 74 5f 53  |...L%   .Event_S|
00005220  61 76 65 46 69 6c 65 28  66 69 6c 65 24 2c 77 69  |aveFile(file$,wi|
00005230  6e 64 6f 77 25 29 0d 1d  56 06 20 cb 0d 1d 60 1b  |ndow%)..V. ...`.|
00005240  20 c8 99 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  | .."Wimp_CreateM|
00005250  65 6e 75 22 2c 2d 31 0d  1d 6a 05 e1 0d 1d 74 20  |enu",-1..j....t |
00005260  dd 20 f2 57 69 6d 70 5f  50 6f 6c 6c 44 72 61 67  |. .Wimp_PollDrag|
00005270  42 6f 78 28 77 69 6e 64  6f 77 25 29 0d 1d 7e 0a  |Box(window%)..~.|
00005280  ea 78 25 2c 79 25 0d 1d  88 12 20 73 61 76 65 25  |.x%,y%.... save%|
00005290  3d 77 69 6e 64 6f 77 25  0d 1d 92 13 20 21 77 69  |=window%.... !wi|
000052a0  6d 70 25 3d 77 69 6e 64  6f 77 25 0d 1d 9c 23 20  |mp%=window%...# |
000052b0  c8 99 22 57 69 6d 70 5f  47 65 74 57 69 6e 64 6f  |.."Wimp_GetWindo|
000052c0  77 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 1d  |wState",,wimp%..|
000052d0  a6 2d 20 78 25 3d 77 69  6d 70 25 21 34 2d 77 69  |.- x%=wimp%!4-wi|
000052e0  6d 70 25 21 32 30 3a 79  25 3d 77 69 6d 70 25 21  |mp%!20:y%=wimp%!|
000052f0  31 36 2d 77 69 6d 70 25  21 32 34 0d 1d b0 0e 20  |16-wimp%!24.... |
00005300  77 69 6d 70 25 21 34 3d  30 0d 1d ba 21 20 c8 99  |wimp%!4=0...! ..|
00005310  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00005320  74 65 22 2c 2c 77 69 6d  70 25 0d 1d c4 13 20 21  |te",,wimp%.... !|
00005330  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 0d 1d ce  |wimp%=window%...|
00005340  0e 20 77 69 6d 70 25 21  34 3d 35 0d 1d d8 2c 20  |. wimp%!4=5..., |
00005350  77 69 6d 70 25 21 38 3d  78 25 2b 77 69 6d 70 25  |wimp%!8=x%+wimp%|
00005360  21 38 3a 77 69 6d 70 25  21 31 32 3d 79 25 2b 77  |!8:wimp%!12=y%+w|
00005370  69 6d 70 25 21 31 32 0d  1d e2 2e 20 77 69 6d 70  |imp%!12.... wimp|
00005380  25 21 31 36 3d 78 25 2b  77 69 6d 70 25 21 31 36  |%!16=x%+wimp%!16|
00005390  3a 77 69 6d 70 25 21 32  30 3d 79 25 2b 77 69 6d  |:wimp%!20=y%+wim|
000053a0  70 25 21 32 30 0d 1d ec  1a 20 77 69 6d 70 25 21  |p%!20.... wimp%!|
000053b0  32 34 3d 30 3a 77 69 6d  70 25 21 32 38 3d 30 0d  |24=0:wimp%!28=0.|
000053c0  1d f6 2a 20 77 69 6d 70  25 21 33 32 3d 26 37 46  |..* wimp%!32=&7F|
000053d0  46 46 46 46 46 46 3a 77  69 6d 70 25 21 33 36 3d  |FFFFFF:wimp%!36=|
000053e0  26 37 46 46 46 46 46 46  46 0d 1e 00 1c 20 c8 99  |&7FFFFFFF.... ..|
000053f0  22 57 69 6d 70 5f 44 72  61 67 42 6f 78 22 2c 2c  |"Wimp_DragBox",,|
00005400  77 69 6d 70 25 0d 1e 0a  05 e1 0d 1e 14 18 dd 20  |wimp%.......... |
00005410  f2 57 69 6d 70 5f 50 6f  6c 6c 4b 65 79 50 72 65  |.Wimp_PollKeyPre|
00005420  73 73 0d 1e 1e 31 20 20  77 69 6e 64 6f 77 25 3d  |ss...1  window%=|
00005430  77 69 6d 70 25 21 30 3a  69 63 6f 6e 25 3d 77 69  |wimp%!0:icon%=wi|
00005440  6d 70 25 21 34 3a 6b 65  79 25 3d 77 69 6d 70 25  |mp%!4:key%=wimp%|
00005450  21 32 34 0d 1e 28 1f 20  20 c8 8e 20 a4 45 76 65  |!24..(.  .. .Eve|
00005460  6e 74 5f 53 61 76 65 28  77 69 6e 64 6f 77 25 29  |nt_Save(window%)|
00005470  20 ca 0d 1e 32 28 20 20  20 c9 20 b9 20 3a 20 f2  | ...2(   . . : .|
00005480  57 69 6d 70 50 6f 6c 6c  5f 53 61 76 65 46 69 6c  |WimpPoll_SaveFil|
00005490  65 28 77 69 6e 64 6f 77  25 29 0d 1e 3c 2f 20 20  |e(window%)..</  |
000054a0  20 c9 20 a3 3a 20 f2 45  76 65 6e 74 5f 4b 65 79  | . .: .Event_Key|
000054b0  50 72 65 73 73 28 77 69  6e 64 6f 77 25 2c 69 63  |Press(window%,ic|
000054c0  6f 6e 25 2c 6b 65 79 25  29 0d 1e 46 07 20 20 cb  |on%,key%)..F.  .|
000054d0  0d 1e 50 05 e1 0d 1e 5a  1b dd 20 f2 57 69 6d 70  |..P....Z.. .Wimp|
000054e0  5f 50 6f 6c 6c 53 61 76  65 4d 65 73 73 61 67 65  |_PollSaveMessage|
000054f0  0d 1e 64 1e ea 66 69 6c  65 24 2c 77 69 6e 64 6f  |..d..file$,windo|
00005500  77 25 2c 69 63 6f 6e 25  2c 78 25 2c 79 25 0d 1e  |w%,icon%,x%,y%..|
00005510  6e 23 20 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |n# .."Wimp_GetPo|
00005520  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 77 69 6d 70  |interInfo",,wimp|
00005530  25 0d 1e 78 3a 20 77 69  6e 64 6f 77 25 3d 77 69  |%..x: window%=wi|
00005540  6d 70 25 21 31 32 3a 69  63 6f 6e 25 3d 77 69 6d  |mp%!12:icon%=wim|
00005550  70 25 21 31 36 3a 78 25  3d 77 69 6d 70 25 21 30  |p%!16:x%=wimp%!0|
00005560  3a 79 25 3d 77 69 6d 70  25 21 34 0d 1e 82 3e 20  |:y%=wimp%!4...> |
00005570  77 69 6d 70 25 21 30 3d  73 61 76 65 25 20 3a 20  |wimp%!0=save% : |
00005580  77 69 6d 70 25 21 34 3d  31 20 3a 20 c8 99 20 22  |wimp%!4=1 : .. "|
00005590  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000055a0  65 22 2c 2c 77 69 6d 70  25 0d 1e 8c 16 20 66 69  |e",,wimp%.... fi|
000055b0  6c 65 24 3d 24 28 77 69  6d 70 25 21 32 38 29 0d  |le$=$(wimp%!28).|
000055c0  1e 96 2b 20 66 69 6c 65  24 3d a4 57 69 6d 70 5f  |..+ file$=.Wimp_|
000055d0  47 65 74 46 69 6c 65 46  72 6f 6d 50 61 74 68 6e  |GetFileFromPathn|
000055e0  61 6d 65 28 66 69 6c 65  24 29 0d 1e a0 15 20 77  |ame(file$).... w|
000055f0  69 6d 70 25 21 32 30 3d  77 69 6e 64 6f 77 25 0d  |imp%!20=window%.|
00005600  1e aa 13 20 77 69 6d 70  25 21 32 34 3d 69 63 6f  |... wimp%!24=ico|
00005610  6e 25 0d 1e b4 1c 20 77  69 6d 70 25 21 32 38 3d  |n%.... wimp%!28=|
00005620  78 25 3a 77 69 6d 70 25  21 33 32 3d 79 25 0d 1e  |x%:wimp%!32=y%..|
00005630  be 15 20 77 69 6d 70 25  21 33 36 3d 6c 65 6e 67  |.. wimp%!36=leng|
00005640  74 68 25 0d 1e c8 0f 20  77 69 6d 70 25 21 30 3d  |th%.... wimp%!0=|
00005650  36 34 0d 1e d2 0f 20 77  69 6d 70 25 21 31 32 3d  |64.... wimp%!12=|
00005660  30 0d 1e dc 0f 20 77 69  6d 70 25 21 31 36 3d 31  |0.... wimp%!16=1|
00005670  0d 1e e6 12 20 77 69 6d  70 25 21 34 30 3d 26 46  |.... wimp%!40=&F|
00005680  46 46 0d 1e f0 16 20 24  28 77 69 6d 70 25 2b 34  |FF.... $(wimp%+4|
00005690  34 29 3d 66 69 6c 65 24  0d 1e fa 34 20 c8 99 22  |4)=file$...4 .."|
000056a0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
000056b0  22 2c 31 37 2c 77 69 6d  70 25 2c 77 69 6d 70 25  |",17,wimp%,wimp%|
000056c0  21 32 30 2c 77 69 6d 70  25 21 32 34 0d 1f 04 05  |!20,wimp%!24....|
000056d0  e1 0d 1f 0e 18 dd 20 f2  57 69 6d 70 5f 50 6f 6c  |...... .Wimp_Pol|
000056e0  6c 4d 65 73 73 61 67 65  73 0d 1f 18 0b ea 20 66  |lMessages..... f|
000056f0  69 6c 65 24 0d 1f 22 2c  66 69 6c 65 24 3d a4 57  |ile$..",file$=.W|
00005700  69 6d 70 5f 47 65 74 53  74 72 69 6e 67 41 74 41  |imp_GetStringAtA|
00005710  64 64 72 65 73 73 28 77  69 6d 70 25 2b 34 34 29  |ddress(wimp%+44)|
00005720  0d 1f 2c 15 20 20 20 20  c8 8e 20 77 69 6d 70 25  |..,.    .. wimp%|
00005730  21 31 36 20 ca 0d 1f 36  1a 20 20 20 20 20 c9 20  |!16 ...6.     . |
00005740  30 20 3a 20 66 69 6e 69  73 68 65 64 25 3d b9 0d  |0 : finished%=..|
00005750  1f 40 0c 20 20 20 20 20  c9 20 31 0d 1f 4a 0c 20  |.@.     . 1..J. |
00005760  20 20 20 20 c9 20 32 0d  1f 54 43 20 20 20 20 20  |    . 2..TC     |
00005770  20 77 69 6d 70 25 21 30  3d 73 61 76 65 25 20 3a  | wimp%!0=save% :|
00005780  20 77 69 6d 70 25 21 34  3d 31 20 3a 20 c8 99 20  | wimp%!4=1 : .. |
00005790  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000057a0  74 65 22 2c 2c 77 69 6d  70 25 0d 1f 5e 1b 20 20  |te",,wimp%..^.  |
000057b0  20 20 20 20 24 28 77 69  6d 70 25 21 32 38 29 3d  |    $(wimp%!28)=|
000057c0  66 69 6c 65 24 0d 1f 68  3c 20 20 20 20 20 20 77  |file$..h<      w|
000057d0  69 6d 70 25 21 30 3d 73  61 76 65 25 20 3a 20 77  |imp%!0=save% : w|
000057e0  69 6d 70 25 21 34 3d 31  20 3a 20 77 69 6d 70 25  |imp%!4=1 : wimp%|
000057f0  21 38 3d 30 20 3a 20 77  69 6d 70 25 21 31 32 3d  |!8=0 : wimp%!12=|
00005800  30 0d 1f 72 27 20 20 20  20 20 20 c8 99 20 22 57  |0..r'      .. "W|
00005810  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00005820  22 2c 2c 77 69 6d 70 25  0d 1f 7c 38 20 20 20 20  |",,wimp%..|8    |
00005830  20 20 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |  .. "Wimp_SetCa|
00005840  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 73 61 76  |retPosition",sav|
00005850  65 25 2c 31 2c 2c 2c 2d  31 2c a9 66 69 6c 65 24  |e%,1,,,-1,.file$|
00005860  0d 1f 86 26 20 20 20 20  20 20 f2 45 76 65 6e 74  |...&      .Event|
00005870  5f 53 61 76 65 46 69 6c  65 28 66 69 6c 65 24 2c  |_SaveFile(file$,|
00005880  73 61 76 65 25 29 0d 1f  90 0c 20 20 20 20 20 c9  |save%)....     .|
00005890  20 33 0d 1f 9a 47 20 20  20 20 20 20 74 79 70 65  | 3...G      type|
000058a0  24 3d a4 57 69 6d 70 5f  46 69 6c 65 54 79 70 65  |$=.Wimp_FileType|
000058b0  28 77 69 6d 70 25 21 34  30 29 20 3a 20 f2 45 76  |(wimp%!40) : .Ev|
000058c0  65 6e 74 5f 4c 6f 61 64  46 69 6c 65 28 66 69 6c  |ent_LoadFile(fil|
000058d0  65 24 2c 74 79 70 65 24  29 0d 1f a4 09 20 20 20  |e$,type$)....   |
000058e0  20 cb 0d 1f ae 05 e1 0d  1f b8 26 dd 20 a4 57 69  | .........&. .Wi|
000058f0  6d 70 5f 47 65 74 53 74  72 69 6e 67 41 74 41 64  |mp_GetStringAtAd|
00005900  64 72 65 73 73 28 61 72  72 61 79 25 29 0d 1f c2  |dress(array%)...|
00005910  0d ea 73 24 3a 73 24 3d  22 22 0d 1f cc 3b c8 95  |..s$:s$=""...;..|
00005920  28 3f 61 72 72 61 79 25  3c 3e 31 33 29 80 28 3f  |(?array%<>13).(?|
00005930  61 72 72 61 79 25 3c 3e  30 29 3a 73 24 2b 3d bd  |array%<>0):s$+=.|
00005940  28 3f 61 72 72 61 79 25  29 3a 61 72 72 61 79 25  |(?array%):array%|
00005950  2b 3d 31 3a ce 0d 1f d6  07 3d 73 24 0d 1f e0 23  |+=1:.....=s$...#|
00005960  dd 20 a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 46  |. .Wimp_GetFileF|
00005970  72 6f 6d 50 61 74 68 6e  61 6d 65 28 66 24 29 0d  |romPathname(f$).|
00005980  1f ea 11 c8 8e 20 a7 66  24 2c 22 2e 22 29 20 ca  |..... .f$,".") .|
00005990  0d 1f f4 10 20 c9 20 30  20 20 20 20 3a 3d 66 24  |.... . 0    :=f$|
000059a0  0d 1f fe 37 20 7f 20 3a  3d a4 57 69 6d 70 5f 47  |...7 . :=.Wimp_G|
000059b0  65 74 46 69 6c 65 46 72  6f 6d 50 61 74 68 6e 61  |etFileFromPathna|
000059c0  6d 65 28 c2 66 24 2c a9  28 66 24 29 2d a7 66 24  |me(.f$,.(f$)-.f$|
000059d0  2c 22 2e 22 29 29 29 0d  20 08 05 cb 0d 20 12 1b  |,"."))). .... ..|
000059e0  dd 20 a4 57 69 6d 70 5f  46 69 6c 65 54 79 70 65  |. .Wimp_FileType|
000059f0  28 74 79 70 65 25 29 0d  20 1c 0c c8 8e 74 79 70  |(type%). ....typ|
00005a00  65 25 ca 0d 20 26 11 c9  26 46 46 46 3a 3d 22 54  |e%.. &..&FFF:="T|
00005a10  65 78 74 22 0d 20 30 11  c9 26 46 46 44 3a 3d 22  |ext". 0..&FFD:="|
00005a20  44 61 74 61 22 0d 20 3a  12 c9 26 46 46 42 3a 3d  |Data". :..&FFB:=|
00005a30  22 42 61 73 69 63 22 0d  20 44 13 c9 26 46 46 39  |"Basic". D..&FF9|
00005a40  3a 3d 22 53 70 72 69 74  65 22 0d 20 4e 14 c9 26  |:="Sprite". N..&|
00005a50  46 45 44 3a 3d 22 50 61  6c 65 74 74 65 22 0d 20  |FED:="Palette". |
00005a60  58 15 c9 26 46 45 43 3a  3d 22 54 65 6d 70 6c 61  |X..&FEC:="Templa|
00005a70  74 65 22 0d 20 62 11 c9  26 41 46 46 3a 3d 22 44  |te". b..&AFF:="D|
00005a80  72 61 77 22 0d 20 6c 14  c9 26 31 30 30 30 3a 3d  |raw". l..&1000:=|
00005a90  22 46 6f 6c 64 65 72 22  0d 20 76 19 c9 26 32 30  |"Folder". v..&20|
00005aa0  30 30 3a 3d 22 41 70 70  6c 69 63 61 74 69 6f 6e  |00:="Application|
00005ab0  22 0d 20 80 0f 7f 3d c3  7e 28 74 79 70 65 25 29  |". ...=.~(type%)|
00005ac0  0d 20 8a 05 cb 0d ff                              |. .....|
00005ac7

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .