Home » Archimedes archive » Archimedes World » AW-1994-05-Disc2.adf » Disk2May94 » !AWMay94/Goodies/Amaze/!aMaze/Program/!aMaze/Resources/Wimp
!AWMay94/Goodies/Amaze/!aMaze/Program/!aMaze/Resources/Wimp
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Archimedes World » AW-1994-05-Disc2.adf » Disk2May94 |
| Filename: | !AWMay94/Goodies/Amaze/!aMaze/Program/!aMaze/Resources/Wimp |
| Read OK: | ✔ |
| File size: | 3742 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10REM>Wimp support library for !AMaze
20DEFPROCWimp_WindowAlert(title$,message$)
30PROCWimp_WindowAlertBox(title$,message$,0)
40ENDPROC
50DEFPROCWimp_WindowAlertBox(title$,message$,button%)
60LOCALresponse%
70$(wimp%+4)=message$
80CASEbutton%OF
90WHEN2:response%=1
100WHEN1:response%=15
110WHEN3:response%=(1<<5)+16
120WHEN4:response%=(1<<6)+16
130OTHERWISE:response%=16
140ENDCASE
150SYS"Wimp_ReportError",wimp%,response%,title$TO,response%
160ENDPROC
170DEFFNWimp_WindowCancel(title$,message$)
180$(wimp%+4)=message$
190response%=23
200SYS"Wimp_ReportError",wimp%,response%,title$TO,response%
210=response%-2
220DEFPROCWimp_WindowErrorBox(title$,message$)
230PROCWimp_WindowAlertBox(title$,message$,2)
240ENDPROC
250DEFFNWimp_WindowTitle(window%)
260wimp%!0=window%
270SYS"Wimp_GetWindInfo",,wimp%
280IF((wimp%!60)AND&100)=0ERROR1,"Title isn't indirected"
290=$(wimp%!76)
300DEFFNWimp_WindowLoad(window$)
310=FNWimp_WindowLoadFrom(window$,"<Amaze$Dir>.Templates")
320DEFFNWimp_WindowLoadFrom(window$,template$)
330LOCALc%,i%,n%,j%,sp$,sp2$
340SYS"Wimp_OpenTemplate",,template$
350SYS"Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0TO,,icons%
360CASEsprites%OF
370WHEN1:wimp%!64=sprites%
380OTHERWISE:wimp%!64=FNEvent_Sprites(window%)
390ENDCASE
400SYS"Wimp_CreateWindow",,wimp%TOc%
410SYS"Wimp_CloseTemplate"
420SYS"Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
430CASEwimp%!40OF
440WHEN-1
450OTHERWISE:i%=40
460REPEAT
470wimp%!4=wimp%!i%:wimp%!0=c%
480SYS"Wimp_GetIconState",,wimp%
490sp$=FNWimp_GetStringAtAddress(wimp%!28)
500SYS"Wimp_DeleteIcon",,wimp%
510CASEsprites%OF
520WHEN1:wimp%!32=1
530OTHERWISE
540SYS"OS_SpriteOp",&108,sprites%TO,,,n%
550j%=0
560REPEAT:j%+=1
570SYS"OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
580sp2$=FNWimp_GetStringAtAddress(pointer_block%)
590UNTILj%=n%ORsp$=sp2$
600IFsp$=sp2$THENwimp%!32=sprites%ELSEwimp%!32=1
610ENDCASE
620wimp%!4=c%
630SYS"Wimp_CreateIcon",,wimp%+4TOhandle%
640i%+=4
650UNTIL(wimp%!i%)=-1
660ENDCASE
670=c%
680DEFPROCWimp_WindowBringToTop(window%)
690!wimp%=window%
700SYS"Wimp_GetWindowState",,wimp%
710wimp%!28=-1
720SYS"Wimp_OpenWindow",,wimp%
730ENDPROC
740DEFPROCWimp_WindowClose(window%)
750!wimp%=window%
760SYS"Wimp_CloseWindow",,wimp%
770ENDPROC
780DEFPROCWimp_WindowForceDraw(window%)
790CASEwindow%OF
800WHEN-1:SYS"Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
810OTHERWISE:SYS"Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
820ENDCASE
830ENDPROC
840DEFPROCWimp_WindowOpen(window%)
850!wimp%=window%
860SYS"Wimp_GetWindowState",,wimp%
870SYS"Wimp_OpenWindow",,wimp%
880ENDPROC
890PROCWimp_WindowInterface
900SYS"Wimp_BorderWindow",,wimp%
910ENDPROC
920DEFFNWimp_IconBar(Sprite$)
930LOCALicon%
940wimp%!0=-1
950wimp%!4=0:wimp%!8=0
960wimp%!12=68:wimp%!16=68
970wimp%!20=&3002
980$(wimp%+24)=Sprite$
990SYS"Wimp_CreateIcon",,wimp%TOicon%
1000=icon%
1010DEFPROCWimp_IconCaret(window%,icon%,chars%)
1020SYS"Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
1030ENDPROC
1040DEFFNWimp_IconText(window%,icon%)
1050wimp%!0=window%:wimp%!4=icon%
1060SYS"Wimp_GetIconState",,wimp%
1070IF((wimp%!24)AND&100)=0ERROR1,"Icon isn't indirected"
1080=$(wimp%!28)
1090DEFFNWimp_IconValidation(window%,icon%)
1100wimp%!0=window%:wimp%!4=icon%
1110SYS"Wimp_GetIconState",,wimp%
1120IF((wimp%!24)AND&100)=0ERROR1,"Icon isn't indirected"
1130=$(wimp%!32)
1140DEFPROCWimp_IconDisable(window%,icon%)
1150wimp%!0=window%:wimp%!4=icon%
1160wimp%!8=1<<22:wimp%!12=1<<22
1170SYS"Wimp_SetIconState",,wimp%
1180ENDPROC
1190DEFPROCWimp_IconEnable(window%,icon%)
1200wimp%!0=window%:wimp%!4=icon%
1210wimp%!8=0:wimp%!12=1<<22
1220SYS"Wimp_SetIconState",,wimp%
1230ENDPROC
1240DEFFNWimp_IconPutSprite(window%,icon%,sprite$)
1250wimp%!0=window%:wimp%!4=icon%
1260SYS"Wimp_GetIconState",,wimp%
1270SYS"Wimp_DeleteIcon",,wimp%
1280wimp%!4=wimp%!8:wimp%!8=wimp%!12:wimp%!12=wimp%!16
1290wimp%!16=wimp%!20:wimp%!20=wimp%!24:$(wimp%+24)=sprite$
1300SYS"Wimp_CreateIcon",,wimp%TOicon%
1310=icon%
1320DEFPROCWimp_IconPutText(window%,icon%,text$)
1330wimp%!0=window%:wimp%!4=icon%
1340SYS"Wimp_GetIconState",,wimp%
1350IF((wimp%!24)AND&100)=0ERROR1,"Icon isn't indirected"
1360$(wimp%!28)=text$
1370wimp%!0=window%:wimp%!4=icon%
1380wimp%!8=0:wimp%!12=0
1390SYS"Wimp_SetIconState",,wimp%
1400ENDPROC
1410DEFPROCWimp_IconInterfaceStart
1420SYS"Wimp_BorderIcon",,wimp%
1430ENDPROC
1440DEFPROCWimp_IconInterfaceFinish
1450wimp%!8=0
1460SYS"Wimp_BorderIcon",,wimp%
1470ENDPROC
1480DEFPROCWimp_MenuAdjustOn(menu%)
1490SYS"Wimp_GetPointerInfo",,pointer_block%
1500IF((pointer_block%!8)AND1)=1THENSYS"Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
1510ENDPROC
1520DEFFNWimp_MenuChoice(level%)
1530=(wimp%!(4*level%))+1
1540DEFFNWimp_MenuCreate(menu$)
1550IFmenu$="Colours"THEN=FNWimp_MenuColours
1560LOCALmenu%,index%,width%,length%,k%,s%
1570DIMmenu%28+FNWimp_MenuNoOfEntries(menu$)*24
1580menu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0
1590menu%!16=140:menu%!20=44:menu%!24=0
1600index%=menu%+28
1610$menu%=LEFT$(menu$,INSTR(menu$,"\")-1)
1620width%=LEN(LEFT$(menu$,INSTR(menu$,"\")-1))
1630menu$+="\":Menu_NoOfEntries%=0
1640WHILEmenu$<>""
1650menu$=MID$(menu$,INSTR(menu$,"\")+1)
1660CASEmenu$OF
1670WHEN""
1680OTHERWISE
1690!index%=0:index%!4=-1:index%!8=&7000021
1700length%=INSTR(menu$,"\")-1
1710k%=INSTR(LEFT$(menu$,length%),">")
1720CASEk%OF
1730WHEN0
1740OTHERWISE
1750s%=EVAL(MID$(menu$,k%+1,length%-k%))
1760index%!4=s%
1770length%=k%-1
1780ENDCASE
1790$(index%+12)=LEFT$(menu$,length%)
1800IFlength%>width%THENwidth%=length%
1810index%+=24
1820ENDCASE
1830ENDWHILE
1840menu%!16=16*(width%+1)
1850index%!-24=index%!-24OR&80:=menu%
1860DEFFNWimp_MenuColours
1870=FNWimp_MenuCreateColours(" ")
1880DEFFNWimp_MenuCreateColours(title$)
1890LOCALx$,men%,j%,i%
1900x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
1910men%=FNWimp_MenuCreate(x$)
1920FORi%=0TO15
1930CASETRUEOF
1940WHENi%<4,i%=9,i%=12,i%=14,i%=15:j%=7
1950OTHERWISE:j%=0
1960ENDCASE
1970men%?(39+i%*24)=i%*16+j%
1980PROCWimp_MenuCentre(men%,i%+1)
1990NEXT
2000=men%
2010DEFFNWimp_MenuNoOfEntries(menu$)
2020LOCALn%,j%:n%=0:j%=0
2030REPEAT
2040j%=INSTR(menu$,"\",j%+1)
2050IFj%<>0THENn%+=1
2060UNTILj%=0
2070=n%
2080DEFPROCWimp_MenuBackGroundColour(menu%,item%,colour%)
2090LOCALfore%,i%
2100fore%=(menu%?(39+(item%-1)*24))MOD16
2110i%=((menu%?(39+(item%-1)*24))DIV16)MOD16
2120menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
2130ENDPROC
2140DEFPROCWimp_MenuCentre(menu%,item%)
2150menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<3)
2160ENDPROC
2170DEFPROCWimp_MenuClose
2180SYS"Wimp_CreateMenu",-1
2190ENDPROC
2200DEFPROCWimp_MenuDisable(menu%,item%)
2210menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR(1<<22)
2220ENDPROC
2230DEFPROCWimp_MenuDottedLine(menu%,item%)
2240menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR2
2250ENDPROC
2260DEFPROCWimp_MenuEnable(menu%,item%)
2270PROCWimp_MenuDisable(menu%,item%)
2280menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)EOR(1<<22)
2290ENDPROC
2300DEFPROCWimp_MenuForegroundColour(menu%,item%,colour%)
2310menu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))DIV16)
2320ENDPROC
2330DEFPROCWimp_MenuGlue(menu1%,item%,menu2%)
2340menu1%!(8+item%*24)=menu2%
2350ENDPROC
2360DEFPROCWimp_MenuItem(menu%,item%,item$)
2370$(menu%+(40+(item%-1)*24))=LEFT$(item$,12)+CHR$0
2380ENDPROC
2390DEFPROCWimp_MenuMessage(menu%,item%)
2400menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR(1<<3)
2410ENDPROC
2420DEFPROCWimp_MenuPopUp(Menu%,x%,y%)
2430menu%=Menu%
2440SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
2450ENDPROC
2460DEFPROCWimp_MenuPopUpBar(x%,y%)
2470LOCALn%:n%=0
2480WHILE((Bar_Menu%!(28+n%*24))AND%10000000)=0
2490n%+=1
2500ENDWHILE
2510SYS"Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
2520menu%=Bar_Menu%
2530ENDPROC
2540DEFPROCWimp_MenuTick(menu%,item%)
2550menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))EOR1
2560ENDPROC
2570DEFPROCWimp_MenuTitle(menu%,title$)
2580$menu%=LEFT$(title$,12)+CHR$0
2590ENDPROC
2600DEFPROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
2610menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))OR4
2620menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)OR&100
2630menu%!(40+(item%-1)*24)=buffer%
2640menu%!(44+(item%-1)*24)=val%
2650menu%!(48+(item%-1)*24)=BufferLength%
2660ENDPROC
2670DEFPROCWimp_SpritesLoad
2680PROCWimp_SpritesPathLoad("<Amaze$Dir>.Sprites")
2690direct_sprites%=sprites%
2700ENDPROC
2710DEFPROCWimp_SpritesPathLoad(pathname$)
2720LOCALS%,T%
2730S%=OPENIN"<Amaze$Dir>.Sprites":T%=EXT#S%+16:CLOSE#S%
2740DIMsprites%T%,spname%12
2750!sprites%=T%:sprites%!8=0
2760SYS"OS_SpriteOp",&109,sprites%
2770SYS"OS_SpriteOp",&10A,sprites%,pathname$
2780ENDPROC
2790DEFFNWimp_FileType(type%)
2800CASEtype%OF
2810WHEN&FFF:="Text"
2820WHEN&FFD:="Data"
2830WHEN&FFB:="Basic"
2840WHEN&FF9:="Sprite"
2850WHEN&FED:="Palette"
2860WHEN&FEC:="Template"
2870WHEN&AFF:="Draw"
2880WHEN&1000:="Folder"
2890WHEN&2000:="Application"
2900OTHERWISE=STR$~(type%)
2910ENDCASE
2920DEFFNWimp_GetFilePathName
2930=FNWimp_GetStringAtAddress(wimp%+44)
2940DEFFNWimp_FileLoad(pathname$)
2950LOCALS%,T%,file%
2960S%=OPENINpathname$
2970T%=EXT#S%+16
2980CLOSE#S%
2990DIMfile%T%
3000OSCLI("LOAD"+pathname$+""+STR$~file%)
3010=file%
3020;
3030DEFFNWimp_GetStringAtAddress(array%)
3040LOCALs$:s$=""
3050WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE
3060=s$
3070DEFFNWimp_GetFileFromPathname(f$)
3080CASEINSTR(f$,".")OF
3090WHEN0:=f$
3100OTHERWISE:=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
3110ENDCASE
3120DEFPROCWimp_SendToEdit(file$)
3130LOCALn%
3140wimp%!4=&6CC01C0C
3150wimp%!16=5
3160wimp%!36=0
3170wimp%!40=&FFF
3180$(wimp%+44)=file$+CHR$0
3190n%=LENfile$+45
3200IFn%MOD4THEN!wimp%=4+(n%>>2)<<2ELSE!wimp%=n%
3210SYS"Wimp_SendMessage",17,wimp%,0
3220ENDPROC
3230DEFPROCWimp_Start(TaskName$,wimp_memory%,icon%)
3240DIMwimp%wimp_memory%,icons%icon%
3250IFwimp_memory%<256THENwimp_memory%=256
3260icon_memory%=icons%+icon%
3270task$=TaskName$
3280indirect_sprites%=1:direct_sprites%=1
3290PROCWimp_SetEventVariables
3300ONERRORPROCWimp_Error:END
3310SYS"Wimp_Initialise",200,&4B534154,TaskName$TOversion%,task%
3320ENDPROC
3330DEFFNWimp_BASICParameters
3340LOCALcom$,param$,I%
3350SYS"OS_GetEnv"TOcom$
3360params$=""
3370I%=INSTR(com$," -quit ")
3380IFI%THENparams$=MID$(com$,INSTR(com$," ",I%+LEN" -quit ")+1)
3390=params$
3400DEFPROCWimp_SetEventVariables
3410DIMpointer_block%20
3420interface%=FALSE
3430null%=1:draw%=2:pointer_leaving%=1<<4
3440pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
3450key%=1<<8:menu%=1<<9:scroll%=1<<10
3460lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
3470recorder%=1<<18:acknowledge%=1<<19:window%=0
3480sprites%=1:version%=0:task%=0
3490Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
3500x_origin%=0:y_origin%=0:SaveWindow%=-3
3510message_quit%=0:message_save%=2:message_load%=3
3520mouse_button%=2:save_event%=0
3530top_line%=0:bottom_line%=0
3540ENDPROC
3550DEFPROCWimp_Error
3560LOCALX$,x%
3570ONERROROFF
3580x%=ERL
3590X$=REPORT$+"atline"+STR$(x%DIV10)
3600DIMErrorMsg%36
3610ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
3620$(ErrorMsg%+24)="!RunImage"
3630SYS"Wimp_SendMessage",17,ErrorMsg%
3640PROCWimp_WindowAlert(task$,X$)
3650PROCWimp_CloseDown
3660ENDPROC
3670DEFPROCWimp_CloseDown
3680SYS"Wimp_CloseDown",task%,"TASK"
3690ENDPROC
3700DEFPROCWimp_Quit
3710finished%=TRUE
3720ENDPROC
3730DEFFNWimp_ReadVariable(Variable$)
3740LOCALlen%,result%,variable%
3750$wimp%=Variable$
3760SYS"OS_ReadVarVal",wimp%,wimp%+255,255,,3TO,,len%
3770wimp%?(len%+255)=13
3780=$(wimp%+255)
3790DEFPROCWimp_WaitForEvent
3800LOCALmask%,event%
3810finished%=FALSE
3820mask%=%111000011001
3830REPEAT
3840SYS"Wimp_Poll",mask%,wimp%TOevent%
3841SYS"Wimp_PreProcessKey",event%,wimp%,task% TO event%
3850CASEevent%OF
3860WHEN0
3870WHEN1:PROCWimp_PollDrawWindow
3880WHEN2:SYS"Wimp_OpenWindow",,wimp%
3890WHEN3:PROCWimp_PollCloseWindow
3900WHEN4
3910WHEN5
3920WHEN6:PROCWimp_PollMouseClick
3930WHEN7:PROCWimp_PollSaveMessage
3940WHEN8:PROCWimp_PollKeyPress
3950WHEN9:PROCEvent_MenuChoice(menu%)
3960WHEN10
3970WHEN11
3980WHEN12
3990WHEN17,18:PROCWimp_PollMessages
4000WHEN19
4010ENDCASE
4020UNTILfinished%
4030ENDPROC
4040DEFPROCWimp_PollDrawWindow
4050LOCALmore%
4060SYS"Wimp_RedrawWindow",,wimp%TOmore%
4070window%=wimp%!0
4080x_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
4090WHILEmore%
4100IFinterface%THENSYS"Wimp_BorderWindow",,wimp%
4110PROCEvent_Draw(window%,x_origin%,y_origin%)
4120SYS"Wimp_GetRectangle",,wimp%TOmore%
4130ENDWHILE
4140ENDPROC
4150DEFPROCWimp_PollCloseWindow
4160SYS"Wimp_GetPointerInfo",,wimp%
4170window%=wimp%!12:buttons%=wimp%!8
4180PROCEvent_WindowClose(window%,buttons%)
4190!wimp%=window%:SYS"Wimp_CloseWindow",,wimp%
4200ENDPROC
4210DEFPROCWimp_PollMouseClick
4220button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
4230CASEbutton%OF
4240WHEN2:PROCWimp_PollMenuPopUp
4250OTHERWISE:CASEFNEvent_Save(window%)OF
4260WHENTRUE:PROCWimp_PollMouseSave
4270WHENFALSE:PROCWimp_PollEventMouseClick
4280ENDCASE
4290ENDCASE
4300ENDPROC
4310DEFPROCWimp_PollMenuPopUp
4320menu%=FNEvent_Menu(window%)
4330CASEmenu%OF
4340WHENFALSE
4350OTHERWISE
4360CASEwindow%OF
4370WHEN-2:n%=0
4380WHILE((Bar_Menu%!(28+n%*24))AND%10000000)=0
4390n%+=1
4400ENDWHILE
4410SYS"Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
4420OTHERWISE:SYS"Wimp_CreateMenu",,menu%,x%-64,y%+20
4430ENDCASE
4440ENDCASE
4450ENDPROC
4460DEFPROCWimp_PollMouseSave
4470CASEicon%OF
4480WHEN0:IFbutton%AND&50THENPROCWimp_PollDragBox(window%)
4490WHEN2:IFbutton%AND 5THENPROCWimp_PollSaveFile(window%)
4500ENDCASE
4510ENDPROC
4520DEFPROCWimp_PollEventMouseClick
4530IFinterface%THENSYS"Wimp_BorderIcon",,wimp%
4540PROCEvent_MouseClick(window%,icon%,button%,x%,y%)
4550CASEinterface%OF
4560WHENTRUE
4570wimp%!0=x%:wimp%!4=y%:wimp%!8=0
4580wimp%!12=window%:wimp%!16=icon%
4590SYS"Wimp_BorderIcon",,wimp%
4600ENDCASE
4610ENDPROC
4620DEFPROCWimp_PollSaveFile(window%)
4630LOCALfile$
4640wimp%!0=window%:wimp%!4=1:SYS"Wimp_GetIconState",,wimp%
4650file$=$(wimp%!28)
4660CASEINSTR(file$,".")OF
4670WHEN0
4680$(wimp%+4)="To save, drag the icon to a directory window"
4690SYS"Wimp_ReportError",wimp%,16,task$
4700OTHERWISE
4710PROCEvent_SaveFile(file$,window%)
4720ENDCASE
4730SYS"Wimp_CreateMenu",-1
4740ENDPROC
4750DEFPROCWimp_PollDragBox(window%)
4760LOCALx%,y%
4770save%=window%
4780!wimp%=window%
4790SYS"Wimp_GetWindowState",,wimp%
4800x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
4810wimp%!4=0
4820SYS"Wimp_GetIconState",,wimp%
4830!wimp%=window%
4840wimp%!4=5
4850wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
4860wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
4870wimp%!24=0:wimp%!28=0
4880wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
4890SYS"Wimp_DragBox",,wimp%
4900ENDPROC
4910DEFPROCWimp_PollKeyPress
4920window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
4930CASEFNEvent_Save(window%)OF
4940WHENTRUE:PROCWimpPoll_SaveFile(window%)
4950WHENFALSE:PROCEvent_KeyPress(window%,icon%,key%)
4960ENDCASE
4970ENDPROC
4980DEFPROCWimp_PollSaveMessage
4990LOCALfile$,window%,icon%,x%,y%
5000SYS"Wimp_GetPointerInfo",,wimp%
5010window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
5020wimp%!0=save%:wimp%!4=1:SYS"Wimp_GetIconState",,wimp%
5030file$=$(wimp%!28)
5040file$=FNWimp_GetFileFromPathname(file$)
5050wimp%!20=window%
5060wimp%!24=icon%
5070wimp%!28=x%:wimp%!32=y%
5080wimp%!36=length%
5090wimp%!0=64
5100wimp%!12=0
5110wimp%!16=1
5120wimp%!40=&FFF
5130$(wimp%+44)=file$
5140SYS"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
5150ENDPROC
5160DEFPROCWimp_PollMessages
5170LOCALfile$
5180file$=FNWimp_GetStringAtAddress(wimp%+44)
5190CASEwimp%!16OF
5200WHEN0:finished%=TRUE
5210WHEN1
5220WHEN2
5230wimp%!0=save%:wimp%!4=1:SYS"Wimp_GetIconState",,wimp%
5240$(wimp%!28)=file$
5250wimp%!0=save%:wimp%!4=1:wimp%!8=0:wimp%!12=0
5260SYS"Wimp_SetIconState",,wimp%
5270SYS"Wimp_SetCaretPosition",save%,1,,,-1,LENfile$
5280PROCEvent_SaveFile(file$,save%)
5290WHEN3
5300type$=FNWimp_FileType(wimp%!40):PROCEvent_LoadFile(file$,type$)
5310ENDCASE
5320ENDPROC
5330DEFFNWimp_GetStringAtAddress(array%)
5340LOCALs$:s$=""
5350WHILE(?array%<>13)AND(?array%<>0):s$+=CHR$(?array%):array%+=1:ENDWHILE
5360=s$
5370DEFFNWimp_GetFileFromPathname(f$)
5380CASEINSTR(f$,".")OF
5390WHEN0:=f$
5400OTHERWISE:=FNWimp_GetFileFromPathname(RIGHT$(f$,LEN(f$)-INSTR(f$,".")))
5410ENDCASE
5420DEFFNWimp_FileType(type%)
5430CASEtype%OF
5440WHEN&FFF:="Text"
5450WHEN&FFD:="Data"
5460WHEN&FFB:="Basic"
5470WHEN&FF9:="Sprite"
5480WHEN&FED:="Palette"
5490WHEN&FEC:="Template"
5500WHEN&AFF:="Draw"
5510WHEN&1000:="Folder"
5520WHEN&2000:="Application"
5530OTHERWISE=STR$~(type%)
5540ENDCASE
%�>Wimp support library for !AMaze
'��Wimp_WindowAlert(title$,message$)
+�Wimp_WindowAlertBox(title$,message$,0)
(�
22��Wimp_WindowAlertBox(title$,message$,button%)
<�response%
F$(wimp%+4)=message$
PȎbutton%�
Z�2:response%=1
d�1:response%=15
n�3:response%=(1<<5)+16
x�4:response%=(1<<6)+16
�: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%
3�((wimp%!60)�&100)=0�1,"Title isn't indirected"
"=$(wimp%!76)
, ݤWimp_WindowLoad(window$)
6:=�Wimp_WindowLoadFrom(window$,"<Amaze$Dir>.Templates")
@,ݤWimp_WindowLoadFrom(window$,template$)
J�c%,i%,n%,j%,sp$,sp2$
T$ș"Wimp_OpenTemplate",,template$
^Jș"Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0�,,icons%
hȎsprites%�
r�1:wimp%!64=sprites%
|&:wimp%!64=�Event_Sprites(window%)
��
�#ș"Wimp_CreateWindow",,wimp%�c%
�ș"Wimp_CloseTemplate"
�6ș"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
0 �:j%+=1
:6ș"OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
D1sp2$=�Wimp_GetStringAtAddress(pointer_block%)
N�j%=n%�sp$=sp2$
X*�sp$=sp2$�wimp%!32=sprites%�wimp%!32=1
b�
lwimp%!4=c%
v(ș"Wimp_CreateIcon",,wimp%+4�handle%
� i%+=4
��(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%�
1�-1:ș"Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
*5:ș"Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
4�
>�
H ��Wimp_WindowOpen(window%)
R!wimp%=window%
\"ș"Wimp_GetWindowState",,wimp%
f ș"Wimp_OpenWindow",,wimp%
p�
z�Wimp_WindowInterface
� ș"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%)
�7ș"Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
�
"ݤWimp_IconText(window%,icon%)
!wimp%!0=window%:wimp%!4=icon%
$ ș"Wimp_GetIconState",,wimp%
.2�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
8=$(wimp%!28)
B(ݤWimp_IconValidation(window%,icon%)
L!wimp%!0=window%:wimp%!4=icon%
V ș"Wimp_GetIconState",,wimp%
`2�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
j=$(wimp%!32)
t%��Wimp_IconDisable(window%,icon%)
~!wimp%!0=window%:wimp%!4=icon%
� 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%
��
�/ݤWimp_IconPutSprite(window%,icon%,sprite$)
�!wimp%!0=window%:wimp%!4=icon%
� ș"Wimp_GetIconState",,wimp%
� ș"Wimp_DeleteIcon",,wimp%
6wimp%!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$)
2!wimp%!0=window%:wimp%!4=icon%
< ș"Wimp_GetIconState",,wimp%
F2�((wimp%!24)�&100)=0�1,"Icon isn't indirected"
P$(wimp%!28)=text$
Z!wimp%!0=window%:wimp%!4=icon%
dwimp%!8=0:wimp%!12=0
n ș"Wimp_SetIconState",,wimp%
x�
� ��Wimp_IconInterfaceStart
� ș"Wimp_BorderIcon",,wimp%
��
� ��Wimp_IconInterfaceFinish
�
wimp%!8=0
� ș"Wimp_BorderIcon",,wimp%
��
� ��Wimp_MenuAdjustOn(menu%)
�+ș"Wimp_GetPointerInfo",,pointer_block%
�Z�((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
,/menu%?12=7:menu%?13=2:menu%?14=7:menu%?15=0
6'menu%!16=140:menu%!20=44:menu%!24=0
@index%=menu%+28
J $menu%=�menu$,�menu$,"\")-1)
T#width%=�(�menu$,�menu$,"\")-1))
^"menu$+="\":Menu_NoOfEntries%=0
hȕmenu$<>""
r menu$=�menu$,�menu$,"\")+1)
| Ȏmenu$�
��""
�
�+!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
�
&�
0menu%!16=16*(width%+1)
:$index%!-24=index%!-24�&80:=menu%
DݤWimp_MenuColours
N!=�Wimp_MenuCreateColours(" ")
X$ݤWimp_MenuCreateColours(title$)
b�x$,men%,j%,i%
l6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
v men%=�Wimp_MenuCreate(x$)
� �i%=0�15
�Ȏ��
�%�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%
4��Wimp_MenuBackGroundColour(menu%,item%,colour%)
*
�fore%,i%
4&fore%=(menu%?(39+(item%-1)*24))�16
>(i%=((menu%?(39+(item%-1)*24))�16)�16
H/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
R�
\"��Wimp_MenuCentre(menu%,item%)
f:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
p�
z��Wimp_MenuClose
�ș"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)
��
�4��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%
.�
8&��Wimp_MenuItem(menu%,item%,item$)
B,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
L�
V#��Wimp_MenuMessage(menu%,item%)
`<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
j�
t!��Wimp_MenuPopUp(Menu%,x%,y%)
~menu%=Menu%
�*ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
��
� ��Wimp_MenuPopUpBar(x%,y%)
� �n%:n%=0
�*ȕ((Bar_Menu%!(28+n%*24))�%10000000)=0
� n%+=1
��
�1ș"Wimp_CreateMenu",,Bar_Menu%,x%-64,96+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%)
27menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
<8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
F#menu%!(40+(item%-1)*24)=buffer%
P menu%!(44+(item%-1)*24)=val%
Z)menu%!(48+(item%-1)*24)=BufferLength%
d�
n��Wimp_SpritesLoad
x0�Wimp_SpritesPathLoad("<Amaze$Dir>.Sprites")
� direct_sprites%=sprites%
��
�%��Wimp_SpritesPathLoad(pathname$)
�
�S%,T%
�-S%=�"<Amaze$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"
6�&AFF:="Draw"
@�&1000:="Folder"
J�&2000:="Application"
T=�~(type%)
^�
hݤWimp_GetFilePathName
r'=�Wimp_GetStringAtAddress(wimp%+44)
| ݤWimp_FileLoad(pathname$)
��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$
5:=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
&�
0 ��Wimp_SendToEdit(file$)
:�n%
Dwimp%!4=&6CC01C0C
Nwimp%!16=5
Xwimp%!36=0
bwimp%!40=&FFF
l$(wimp%+44)=file$+�0
vn%=�file$+45
�'�n%�4�!wimp%=4+(n%>>2)<<2�!wimp%=n%
�#ș"Wimp_SendMessage",17,wimp%,0
��
�.��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 ")
41�I%�params$=�com$,�com$," ",I%+�" -quit ")+1)
> =params$
H ��Wimp_SetEventVariables
R�pointer_block%20
\interface%=�
f)null%=1:draw%=2:pointer_leaving%=1<<4
p1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
z&key%=1<<8:menu%=1<<9:scroll%=1<<10
�@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
�0recorder%=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%
8 �Wimp_WindowAlert(task$,X$)
B�Wimp_CloseDown
L�
V��Wimp_CloseDown
`#ș"Wimp_CloseDown",task%,"TASK"
j�
t��Wimp_Quit
~finished%=�
��
�"ݤ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%
6ș"Wimp_PreProcessKey",event%,wimp%,task% � event%
Ȏevent%�
�0
�1:�Wimp_PollDrawWindow
(!�2:ș"Wimp_OpenWindow",,wimp%
2 �3:�Wimp_PollCloseWindow
<�4
F�5
P�6:�Wimp_PollMouseClick
Z �7:�Wimp_PollSaveMessage
d�8:�Wimp_PollKeyPress
n �9:�Event_MenuChoice(menu%)
x�10
��11
��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%
,�interface%�ș"Wimp_BorderWindow",,wimp%
,�Event_Draw(window%,x_origin%,y_origin%)
&ș"Wimp_GetRectangle",,wimp%�more%
"�
,�
6��Wimp_PollCloseWindow
@"ș"Wimp_GetPointerInfo",,wimp%
J%window%=wimp%!12:buttons%=wimp%!8
T(�Event_WindowClose(window%,buttons%)
^.!wimp%=window%:ș"Wimp_CloseWindow",,wimp%
h�
r��Wimp_PollMouseClick
|Ibutton%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�Ȏbutton%�
��2:�Wimp_PollMenuPopUp
� :Ȏ�Event_Save(window%)�
�ɹ:�Wimp_PollMouseSave
� ɣ:�Wimp_PollEventMouseClick
��
��
��
���Wimp_PollMenuPopUp
� menu%=�Event_Menu(window%)
� Ȏmenu%�
�ɣ
�
Ȏwindow%�
�-2:n%=0
*ȕ((Bar_Menu%!(28+n%*24))�%10000000)=0
& n%+=1
0�
:1ș"Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
D,:ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
N�
X�
b�
l��Wimp_PollMouseSave
v Ȏicon%�
�.�0:�button%�&50��Wimp_PollDragBox(window%)
�.�2:�button%� 5��Wimp_PollSaveFile(window%)
��
��
� ��Wimp_PollEventMouseClick
�*�interface%�ș"Wimp_BorderIcon",,wimp%
�2�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)
4Ȏ�file$,".")�
>�0
H=$(wimp%+4)="To save, drag the icon to a directory window"
R'ș"Wimp_ReportError",wimp%,16,task$
\
f"�Event_SaveFile(file$,window%)
p�
zș"Wimp_CreateMenu",-1
��
� ��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
8/window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
BȎ�Event_Save(window%)�
L"ɹ:�WimpPoll_SaveFile(window%)
V*ɣ:�Event_KeyPress(window%,icon%,key%)
`�
j�
t��Wimp_PollSaveMessage
~ �file$,window%,icon%,x%,y%
�"ș"Wimp_GetPointerInfo",,wimp%
�9window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�8wimp%!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$
3ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
�
(��Wimp_PollMessages
2
�file$
<,file$=�Wimp_GetStringAtAddress(wimp%+44)
FȎwimp%!16�
P�0:finished%=�
Z�1
d�2
n8wimp%!0=save%:wimp%!4=1:ș"Wimp_GetIconState",,wimp%
x$(wimp%!28)=file$
�0wimp%!0=save%:wimp%!4=1:wimp%!8=0:wimp%!12=0
� ș"Wimp_SetIconState",,wimp%
�1ș"Wimp_SetCaretPosition",save%,1,,,-1,�file$
� �Event_SaveFile(file$,save%)
��3
�?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$
5:=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
"�
,ݤWimp_FileType(type%)
6 Ȏtype%�
@�&FFF:="Text"
J�&FFD:="Data"
T�&FFB:="Basic"
^�&FF9:="Sprite"
h�&FED:="Palette"
r�&FEC:="Template"
|�&AFF:="Draw"
��&1000:="Folder"
��&2000:="Application"
�=�~(type%)
��
� 00000000 0d 00 0a 25 f4 3e 57 69 6d 70 20 73 75 70 70 6f |...%.>Wimp suppo|
00000010 72 74 20 6c 69 62 72 61 72 79 20 66 6f 72 20 21 |rt library for !|
00000020 41 4d 61 7a 65 0d 00 14 27 dd f2 57 69 6d 70 5f |AMaze...'..Wimp_|
00000030 57 69 6e 64 6f 77 41 6c 65 72 74 28 74 69 74 6c |WindowAlert(titl|
00000040 65 24 2c 6d 65 73 73 61 67 65 24 29 0d 00 1e 2b |e$,message$)...+|
00000050 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 72 |.Wimp_WindowAler|
00000060 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 73 |tBox(title$,mess|
00000070 61 67 65 24 2c 30 29 0d 00 28 05 e1 0d 00 32 32 |age$,0)..(....22|
00000080 dd f2 57 69 6d 70 5f 57 69 6e 64 6f 77 41 6c 65 |..Wimp_WindowAle|
00000090 72 74 42 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 |rtBox(title$,mes|
000000a0 73 61 67 65 24 2c 62 75 74 74 6f 6e 25 29 0d 00 |sage$,button%)..|
000000b0 3c 0e ea 72 65 73 70 6f 6e 73 65 25 0d 00 46 17 |<..response%..F.|
000000c0 24 28 77 69 6d 70 25 2b 34 29 3d 6d 65 73 73 61 |$(wimp%+4)=messa|
000000d0 67 65 24 0d 00 50 0e c8 8e 62 75 74 74 6f 6e 25 |ge$..P...button%|
000000e0 ca 0d 00 5a 12 c9 32 3a 72 65 73 70 6f 6e 73 65 |...Z..2:response|
000000f0 25 3d 31 0d 00 64 13 c9 31 3a 72 65 73 70 6f 6e |%=1..d..1:respon|
00000100 73 65 25 3d 31 35 0d 00 6e 1a c9 33 3a 72 65 73 |se%=15..n..3:res|
00000110 70 6f 6e 73 65 25 3d 28 31 3c 3c 35 29 2b 31 36 |ponse%=(1<<5)+16|
00000120 0d 00 78 1a c9 34 3a 72 65 73 70 6f 6e 73 65 25 |..x..4:response%|
00000130 3d 28 31 3c 3c 36 29 2b 31 36 0d 00 82 12 7f 3a |=(1<<6)+16.....:|
00000140 72 65 73 70 6f 6e 73 65 25 3d 31 36 0d 00 8c 05 |response%=16....|
00000150 cb 0d 00 96 3a c8 99 22 57 69 6d 70 5f 52 65 70 |....:.."Wimp_Rep|
00000160 6f 72 74 45 72 72 6f 72 22 2c 77 69 6d 70 25 2c |ortError",wimp%,|
00000170 72 65 73 70 6f 6e 73 65 25 2c 74 69 74 6c 65 24 |response%,title$|
00000180 b8 2c 72 65 73 70 6f 6e 73 65 25 0d 00 a0 05 e1 |.,response%.....|
00000190 0d 00 aa 28 dd a4 57 69 6d 70 5f 57 69 6e 64 6f |...(..Wimp_Windo|
000001a0 77 43 61 6e 63 65 6c 28 74 69 74 6c 65 24 2c 6d |wCancel(title$,m|
000001b0 65 73 73 61 67 65 24 29 0d 00 b4 17 24 28 77 69 |essage$)....$(wi|
000001c0 6d 70 25 2b 34 29 3d 6d 65 73 73 61 67 65 24 0d |mp%+4)=message$.|
000001d0 00 be 10 72 65 73 70 6f 6e 73 65 25 3d 32 33 0d |...response%=23.|
000001e0 00 c8 3a c8 99 22 57 69 6d 70 5f 52 65 70 6f 72 |..:.."Wimp_Repor|
000001f0 74 45 72 72 6f 72 22 2c 77 69 6d 70 25 2c 72 65 |tError",wimp%,re|
00000200 73 70 6f 6e 73 65 25 2c 74 69 74 6c 65 24 b8 2c |sponse%,title$.,|
00000210 72 65 73 70 6f 6e 73 65 25 0d 00 d2 10 3d 72 65 |response%....=re|
00000220 73 70 6f 6e 73 65 25 2d 32 0d 00 dc 2a dd f2 57 |sponse%-2...*..W|
00000230 69 6d 70 5f 57 69 6e 64 6f 77 45 72 72 6f 72 42 |imp_WindowErrorB|
00000240 6f 78 28 74 69 74 6c 65 24 2c 6d 65 73 73 61 67 |ox(title$,messag|
00000250 65 24 29 0d 00 e6 2b f2 57 69 6d 70 5f 57 69 6e |e$)...+.Wimp_Win|
00000260 64 6f 77 41 6c 65 72 74 42 6f 78 28 74 69 74 6c |dowAlertBox(titl|
00000270 65 24 2c 6d 65 73 73 61 67 65 24 2c 32 29 0d 00 |e$,message$,2)..|
00000280 f0 05 e1 0d 00 fa 1f dd a4 57 69 6d 70 5f 57 69 |.........Wimp_Wi|
00000290 6e 64 6f 77 54 69 74 6c 65 28 77 69 6e 64 6f 77 |ndowTitle(window|
000002a0 25 29 0d 01 04 13 77 69 6d 70 25 21 30 3d 77 69 |%)....wimp%!0=wi|
000002b0 6e 64 6f 77 25 0d 01 0e 1f c8 99 22 57 69 6d 70 |ndow%......"Wimp|
000002c0 5f 47 65 74 57 69 6e 64 49 6e 66 6f 22 2c 2c 77 |_GetWindInfo",,w|
000002d0 69 6d 70 25 0d 01 18 33 e7 28 28 77 69 6d 70 25 |imp%...3.((wimp%|
000002e0 21 36 30 29 80 26 31 30 30 29 3d 30 85 31 2c 22 |!60).&100)=0.1,"|
000002f0 54 69 74 6c 65 20 69 73 6e 27 74 20 69 6e 64 69 |Title isn't indi|
00000300 72 65 63 74 65 64 22 0d 01 22 10 3d 24 28 77 69 |rected"..".=$(wi|
00000310 6d 70 25 21 37 36 29 0d 01 2c 1e dd a4 57 69 6d |mp%!76)..,...Wim|
00000320 70 5f 57 69 6e 64 6f 77 4c 6f 61 64 28 77 69 6e |p_WindowLoad(win|
00000330 64 6f 77 24 29 0d 01 36 3a 3d a4 57 69 6d 70 5f |dow$)..6:=.Wimp_|
00000340 57 69 6e 64 6f 77 4c 6f 61 64 46 72 6f 6d 28 77 |WindowLoadFrom(w|
00000350 69 6e 64 6f 77 24 2c 22 3c 41 6d 61 7a 65 24 44 |indow$,"<Amaze$D|
00000360 69 72 3e 2e 54 65 6d 70 6c 61 74 65 73 22 29 0d |ir>.Templates").|
00000370 01 40 2c dd a4 57 69 6d 70 5f 57 69 6e 64 6f 77 |.@,..Wimp_Window|
00000380 4c 6f 61 64 46 72 6f 6d 28 77 69 6e 64 6f 77 24 |LoadFrom(window$|
00000390 2c 74 65 6d 70 6c 61 74 65 24 29 0d 01 4a 19 ea |,template$)..J..|
000003a0 63 25 2c 69 25 2c 6e 25 2c 6a 25 2c 73 70 24 2c |c%,i%,n%,j%,sp$,|
000003b0 73 70 32 24 0d 01 54 24 c8 99 22 57 69 6d 70 5f |sp2$..T$.."Wimp_|
000003c0 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c 2c 74 |OpenTemplate",,t|
000003d0 65 6d 70 6c 61 74 65 24 0d 01 5e 4a c8 99 22 57 |emplate$..^J.."W|
000003e0 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
000003f0 22 2c 2c 77 69 6d 70 25 2c 69 63 6f 6e 73 25 2c |",,wimp%,icons%,|
00000400 69 63 6f 6e 5f 6d 65 6d 6f 72 79 25 2c 2d 31 2c |icon_memory%,-1,|
00000410 77 69 6e 64 6f 77 24 2c 30 b8 2c 2c 69 63 6f 6e |window$,0.,,icon|
00000420 73 25 0d 01 68 0f c8 8e 73 70 72 69 74 65 73 25 |s%..h...sprites%|
00000430 ca 0d 01 72 18 c9 31 3a 77 69 6d 70 25 21 36 34 |...r..1:wimp%!64|
00000440 3d 73 70 72 69 74 65 73 25 0d 01 7c 26 7f 3a 77 |=sprites%..|&.:w|
00000450 69 6d 70 25 21 36 34 3d a4 45 76 65 6e 74 5f 53 |imp%!64=.Event_S|
00000460 70 72 69 74 65 73 28 77 69 6e 64 6f 77 25 29 0d |prites(window%).|
00000470 01 86 05 cb 0d 01 90 23 c8 99 22 57 69 6d 70 5f |.......#.."Wimp_|
00000480 43 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 77 |CreateWindow",,w|
00000490 69 6d 70 25 b8 63 25 0d 01 9a 1a c8 99 22 57 69 |imp%.c%......"Wi|
000004a0 6d 70 5f 43 6c 6f 73 65 54 65 6d 70 6c 61 74 65 |mp_CloseTemplate|
000004b0 22 0d 01 a4 36 c8 99 22 57 69 6d 70 5f 57 68 69 |"...6.."Wimp_Whi|
000004c0 63 68 49 63 6f 6e 22 2c 63 25 2c 77 69 6d 70 25 |chIcon",c%,wimp%|
000004d0 2b 34 30 2c 31 2b 32 2b 28 31 3c 3c 38 29 2c 32 |+40,1+2+(1<<8),2|
000004e0 2b 28 31 3c 3c 38 29 0d 01 ae 0f c8 8e 77 69 6d |+(1<<8)......wim|
000004f0 70 25 21 34 30 ca 0d 01 b8 07 c9 2d 31 0d 01 c2 |p%!40......-1...|
00000500 0b 7f 3a 69 25 3d 34 30 0d 01 cc 05 f5 0d 01 d6 |..:i%=40........|
00000510 1f 77 69 6d 70 25 21 34 3d 77 69 6d 70 25 21 69 |.wimp%!4=wimp%!i|
00000520 25 3a 77 69 6d 70 25 21 30 3d 63 25 0d 01 e0 20 |%:wimp%!0=c%... |
00000530 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
00000540 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 01 ea 2a |tate",,wimp%...*|
00000550 73 70 24 3d a4 57 69 6d 70 5f 47 65 74 53 74 72 |sp$=.Wimp_GetStr|
00000560 69 6e 67 41 74 41 64 64 72 65 73 73 28 77 69 6d |ingAtAddress(wim|
00000570 70 25 21 32 38 29 0d 01 f4 1e c8 99 22 57 69 6d |p%!28)......"Wim|
00000580 70 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 77 |p_DeleteIcon",,w|
00000590 69 6d 70 25 0d 01 fe 0f c8 8e 73 70 72 69 74 65 |imp%......sprite|
000005a0 73 25 ca 0d 02 08 11 c9 31 3a 77 69 6d 70 25 21 |s%......1:wimp%!|
000005b0 33 32 3d 31 0d 02 12 05 7f 0d 02 1c 27 c8 99 22 |32=1........'.."|
000005c0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 26 31 30 |OS_SpriteOp",&10|
000005d0 38 2c 73 70 72 69 74 65 73 25 b8 2c 2c 2c 6e 25 |8,sprites%.,,,n%|
000005e0 0d 02 26 08 6a 25 3d 30 0d 02 30 0b f5 3a 6a 25 |..&.j%=0..0..:j%|
000005f0 2b 3d 31 0d 02 3a 36 c8 99 22 4f 53 5f 53 70 72 |+=1..:6.."OS_Spr|
00000600 69 74 65 4f 70 22 2c 26 31 30 44 2c 73 70 72 69 |iteOp",&10D,spri|
00000610 74 65 73 25 2c 70 6f 69 6e 74 65 72 5f 62 6c 6f |tes%,pointer_blo|
00000620 63 6b 25 2c 32 30 2c 6a 25 0d 02 44 31 73 70 32 |ck%,20,j%..D1sp2|
00000630 24 3d a4 57 69 6d 70 5f 47 65 74 53 74 72 69 6e |$=.Wimp_GetStrin|
00000640 67 41 74 41 64 64 72 65 73 73 28 70 6f 69 6e 74 |gAtAddress(point|
00000650 65 72 5f 62 6c 6f 63 6b 25 29 0d 02 4e 13 fd 6a |er_block%)..N..j|
00000660 25 3d 6e 25 84 73 70 24 3d 73 70 32 24 0d 02 58 |%=n%.sp$=sp2$..X|
00000670 2a e7 73 70 24 3d 73 70 32 24 8c 77 69 6d 70 25 |*.sp$=sp2$.wimp%|
00000680 21 33 32 3d 73 70 72 69 74 65 73 25 8b 77 69 6d |!32=sprites%.wim|
00000690 70 25 21 33 32 3d 31 0d 02 62 05 cb 0d 02 6c 0e |p%!32=1..b....l.|
000006a0 77 69 6d 70 25 21 34 3d 63 25 0d 02 76 28 c8 99 |wimp%!4=c%..v(..|
000006b0 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
000006c0 22 2c 2c 77 69 6d 70 25 2b 34 b8 68 61 6e 64 6c |",,wimp%+4.handl|
000006d0 65 25 0d 02 80 09 69 25 2b 3d 34 0d 02 8a 12 fd |e%....i%+=4.....|
000006e0 28 77 69 6d 70 25 21 69 25 29 3d 2d 31 0d 02 94 |(wimp%!i%)=-1...|
000006f0 05 cb 0d 02 9e 07 3d 63 25 0d 02 a8 24 dd f2 57 |......=c%...$..W|
00000700 69 6d 70 5f 57 69 6e 64 6f 77 42 72 69 6e 67 54 |imp_WindowBringT|
00000710 6f 54 6f 70 28 77 69 6e 64 6f 77 25 29 0d 02 b2 |oTop(window%)...|
00000720 12 21 77 69 6d 70 25 3d 77 69 6e 64 6f 77 25 0d |.!wimp%=window%.|
00000730 02 bc 22 c8 99 22 57 69 6d 70 5f 47 65 74 57 69 |..".."Wimp_GetWi|
00000740 6e 64 6f 77 53 74 61 74 65 22 2c 2c 77 69 6d 70 |ndowState",,wimp|
00000750 25 0d 02 c6 0f 77 69 6d 70 25 21 32 38 3d 2d 31 |%....wimp%!28=-1|
00000760 0d 02 d0 1e c8 99 22 57 69 6d 70 5f 4f 70 65 6e |......"Wimp_Open|
00000770 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 02 |Window",,wimp%..|
00000780 da 05 e1 0d 02 e4 1f dd f2 57 69 6d 70 5f 57 69 |.........Wimp_Wi|
00000790 6e 64 6f 77 43 6c 6f 73 65 28 77 69 6e 64 6f 77 |ndowClose(window|
000007a0 25 29 0d 02 ee 12 21 77 69 6d 70 25 3d 77 69 6e |%)....!wimp%=win|
000007b0 64 6f 77 25 0d 02 f8 1f c8 99 22 57 69 6d 70 5f |dow%......"Wimp_|
000007c0 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 77 69 |CloseWindow",,wi|
000007d0 6d 70 25 0d 03 02 05 e1 0d 03 0c 23 dd f2 57 69 |mp%........#..Wi|
000007e0 6d 70 5f 57 69 6e 64 6f 77 46 6f 72 63 65 44 72 |mp_WindowForceDr|
000007f0 61 77 28 77 69 6e 64 6f 77 25 29 0d 03 16 0e c8 |aw(window%).....|
00000800 8e 77 69 6e 64 6f 77 25 ca 0d 03 20 31 c9 2d 31 |.window%... 1.-1|
00000810 3a c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 |:.."Wimp_ForceRe|
00000820 64 72 61 77 22 2c 2d 31 2c 30 2c 30 2c 32 2a 31 |draw",-1,0,0,2*1|
00000830 32 38 30 2c 32 2a 31 30 32 34 0d 03 2a 35 7f 3a |280,2*1024..*5.:|
00000840 c8 99 22 57 69 6d 70 5f 46 6f 72 63 65 52 65 64 |.."Wimp_ForceRed|
00000850 72 61 77 22 2c 77 69 6e 64 6f 77 25 2c 30 2c 2d |raw",window%,0,-|
00000860 32 2a 31 30 32 34 2c 32 2a 31 32 38 30 2c 30 0d |2*1024,2*1280,0.|
00000870 03 34 05 cb 0d 03 3e 05 e1 0d 03 48 1e dd f2 57 |.4....>....H...W|
00000880 69 6d 70 5f 57 69 6e 64 6f 77 4f 70 65 6e 28 77 |imp_WindowOpen(w|
00000890 69 6e 64 6f 77 25 29 0d 03 52 12 21 77 69 6d 70 |indow%)..R.!wimp|
000008a0 25 3d 77 69 6e 64 6f 77 25 0d 03 5c 22 c8 99 22 |%=window%..\".."|
000008b0 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 |Wimp_GetWindowSt|
000008c0 61 74 65 22 2c 2c 77 69 6d 70 25 0d 03 66 1e c8 |ate",,wimp%..f..|
000008d0 99 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f |."Wimp_OpenWindo|
000008e0 77 22 2c 2c 77 69 6d 70 25 0d 03 70 05 e1 0d 03 |w",,wimp%..p....|
000008f0 7a 19 f2 57 69 6d 70 5f 57 69 6e 64 6f 77 49 6e |z..Wimp_WindowIn|
00000900 74 65 72 66 61 63 65 0d 03 84 20 c8 99 22 57 69 |terface... .."Wi|
00000910 6d 70 5f 42 6f 72 64 65 72 57 69 6e 64 6f 77 22 |mp_BorderWindow"|
00000920 2c 2c 77 69 6d 70 25 0d 03 8e 05 e1 0d 03 98 1b |,,wimp%.........|
00000930 dd a4 57 69 6d 70 5f 49 63 6f 6e 42 61 72 28 53 |..Wimp_IconBar(S|
00000940 70 72 69 74 65 24 29 0d 03 a2 0a ea 69 63 6f 6e |prite$).....icon|
00000950 25 0d 03 ac 0e 77 69 6d 70 25 21 30 3d 2d 31 0d |%....wimp%!0=-1.|
00000960 03 b6 17 77 69 6d 70 25 21 34 3d 30 3a 77 69 6d |...wimp%!4=0:wim|
00000970 70 25 21 38 3d 30 0d 03 c0 1b 77 69 6d 70 25 21 |p%!8=0....wimp%!|
00000980 31 32 3d 36 38 3a 77 69 6d 70 25 21 31 36 3d 36 |12=68:wimp%!16=6|
00000990 38 0d 03 ca 12 77 69 6d 70 25 21 32 30 3d 26 33 |8....wimp%!20=&3|
000009a0 30 30 32 0d 03 d4 17 24 28 77 69 6d 70 25 2b 32 |002....$(wimp%+2|
000009b0 34 29 3d 53 70 72 69 74 65 24 0d 03 de 24 c8 99 |4)=Sprite$...$..|
000009c0 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
000009d0 22 2c 2c 77 69 6d 70 25 b8 69 63 6f 6e 25 0d 03 |",,wimp%.icon%..|
000009e0 e8 0a 3d 69 63 6f 6e 25 0d 03 f2 2a dd f2 57 69 |..=icon%...*..Wi|
000009f0 6d 70 5f 49 63 6f 6e 43 61 72 65 74 28 77 69 6e |mp_IconCaret(win|
00000a00 64 6f 77 25 2c 69 63 6f 6e 25 2c 63 68 61 72 73 |dow%,icon%,chars|
00000a10 25 29 0d 03 fc 37 c8 99 22 57 69 6d 70 5f 53 65 |%)...7.."Wimp_Se|
00000a20 74 43 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c |tCaretPosition",|
00000a30 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 2c 2c 2c |window%,icon%,,,|
00000a40 2d 31 2c 63 68 61 72 73 25 0d 04 06 05 e1 0d 04 |-1,chars%.......|
00000a50 10 22 dd a4 57 69 6d 70 5f 49 63 6f 6e 54 65 78 |."..Wimp_IconTex|
00000a60 74 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 |t(window%,icon%)|
00000a70 0d 04 1a 21 77 69 6d 70 25 21 30 3d 77 69 6e 64 |...!wimp%!0=wind|
00000a80 6f 77 25 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e |ow%:wimp%!4=icon|
00000a90 25 0d 04 24 20 c8 99 22 57 69 6d 70 5f 47 65 74 |%..$ .."Wimp_Get|
00000aa0 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 |IconState",,wimp|
00000ab0 25 0d 04 2e 32 e7 28 28 77 69 6d 70 25 21 32 34 |%...2.((wimp%!24|
00000ac0 29 80 26 31 30 30 29 3d 30 85 31 2c 22 49 63 6f |).&100)=0.1,"Ico|
00000ad0 6e 20 69 73 6e 27 74 20 69 6e 64 69 72 65 63 74 |n isn't indirect|
00000ae0 65 64 22 0d 04 38 10 3d 24 28 77 69 6d 70 25 21 |ed"..8.=$(wimp%!|
00000af0 32 38 29 0d 04 42 28 dd a4 57 69 6d 70 5f 49 63 |28)..B(..Wimp_Ic|
00000b00 6f 6e 56 61 6c 69 64 61 74 69 6f 6e 28 77 69 6e |onValidation(win|
00000b10 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 04 4c 21 77 |dow%,icon%)..L!w|
00000b20 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 3a 77 |imp%!0=window%:w|
00000b30 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 04 56 20 |imp%!4=icon%..V |
00000b40 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
00000b50 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 04 60 32 |tate",,wimp%..`2|
00000b60 e7 28 28 77 69 6d 70 25 21 32 34 29 80 26 31 30 |.((wimp%!24).&10|
00000b70 30 29 3d 30 85 31 2c 22 49 63 6f 6e 20 69 73 6e |0)=0.1,"Icon isn|
00000b80 27 74 20 69 6e 64 69 72 65 63 74 65 64 22 0d 04 |'t indirected"..|
00000b90 6a 10 3d 24 28 77 69 6d 70 25 21 33 32 29 0d 04 |j.=$(wimp%!32)..|
00000ba0 74 25 dd f2 57 69 6d 70 5f 49 63 6f 6e 44 69 73 |t%..Wimp_IconDis|
00000bb0 61 62 6c 65 28 77 69 6e 64 6f 77 25 2c 69 63 6f |able(window%,ico|
00000bc0 6e 25 29 0d 04 7e 21 77 69 6d 70 25 21 30 3d 77 |n%)..~!wimp%!0=w|
00000bd0 69 6e 64 6f 77 25 3a 77 69 6d 70 25 21 34 3d 69 |indow%:wimp%!4=i|
00000be0 63 6f 6e 25 0d 04 88 20 77 69 6d 70 25 21 38 3d |con%... wimp%!8=|
00000bf0 31 3c 3c 32 32 3a 77 69 6d 70 25 21 31 32 3d 31 |1<<22:wimp%!12=1|
00000c00 3c 3c 32 32 0d 04 92 20 c8 99 22 57 69 6d 70 5f |<<22... .."Wimp_|
00000c10 53 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 |SetIconState",,w|
00000c20 69 6d 70 25 0d 04 9c 05 e1 0d 04 a6 24 dd f2 57 |imp%........$..W|
00000c30 69 6d 70 5f 49 63 6f 6e 45 6e 61 62 6c 65 28 77 |imp_IconEnable(w|
00000c40 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 29 0d 04 b0 |indow%,icon%)...|
00000c50 21 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 25 |!wimp%!0=window%|
00000c60 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d 04 |:wimp%!4=icon%..|
00000c70 ba 1c 77 69 6d 70 25 21 38 3d 30 3a 77 69 6d 70 |..wimp%!8=0:wimp|
00000c80 25 21 31 32 3d 31 3c 3c 32 32 0d 04 c4 20 c8 99 |%!12=1<<22... ..|
00000c90 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 |"Wimp_SetIconSta|
00000ca0 74 65 22 2c 2c 77 69 6d 70 25 0d 04 ce 05 e1 0d |te",,wimp%......|
00000cb0 04 d8 2f dd a4 57 69 6d 70 5f 49 63 6f 6e 50 75 |../..Wimp_IconPu|
00000cc0 74 53 70 72 69 74 65 28 77 69 6e 64 6f 77 25 2c |tSprite(window%,|
00000cd0 69 63 6f 6e 25 2c 73 70 72 69 74 65 24 29 0d 04 |icon%,sprite$)..|
00000ce0 e2 21 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f 77 |.!wimp%!0=window|
00000cf0 25 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 0d |%:wimp%!4=icon%.|
00000d00 04 ec 20 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 |.. .."Wimp_GetIc|
00000d10 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
00000d20 04 f6 1e c8 99 22 57 69 6d 70 5f 44 65 6c 65 74 |....."Wimp_Delet|
00000d30 65 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 0d 05 00 |eIcon",,wimp%...|
00000d40 36 77 69 6d 70 25 21 34 3d 77 69 6d 70 25 21 38 |6wimp%!4=wimp%!8|
00000d50 3a 77 69 6d 70 25 21 38 3d 77 69 6d 70 25 21 31 |:wimp%!8=wimp%!1|
00000d60 32 3a 77 69 6d 70 25 21 31 32 3d 77 69 6d 70 25 |2:wimp%!12=wimp%|
00000d70 21 31 36 0d 05 0a 3b 77 69 6d 70 25 21 31 36 3d |!16...;wimp%!16=|
00000d80 77 69 6d 70 25 21 32 30 3a 77 69 6d 70 25 21 32 |wimp%!20:wimp%!2|
00000d90 30 3d 77 69 6d 70 25 21 32 34 3a 24 28 77 69 6d |0=wimp%!24:$(wim|
00000da0 70 25 2b 32 34 29 3d 73 70 72 69 74 65 24 0d 05 |p%+24)=sprite$..|
00000db0 14 24 c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 |.$.."Wimp_Create|
00000dc0 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 b8 69 63 6f |Icon",,wimp%.ico|
00000dd0 6e 25 0d 05 1e 0a 3d 69 63 6f 6e 25 0d 05 28 2b |n%....=icon%..(+|
00000de0 dd f2 57 69 6d 70 5f 49 63 6f 6e 50 75 74 54 65 |..Wimp_IconPutTe|
00000df0 78 74 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e 25 |xt(window%,icon%|
00000e00 2c 74 65 78 74 24 29 0d 05 32 21 77 69 6d 70 25 |,text$)..2!wimp%|
00000e10 21 30 3d 77 69 6e 64 6f 77 25 3a 77 69 6d 70 25 |!0=window%:wimp%|
00000e20 21 34 3d 69 63 6f 6e 25 0d 05 3c 20 c8 99 22 57 |!4=icon%..< .."W|
00000e30 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00000e40 22 2c 2c 77 69 6d 70 25 0d 05 46 32 e7 28 28 77 |",,wimp%..F2.((w|
00000e50 69 6d 70 25 21 32 34 29 80 26 31 30 30 29 3d 30 |imp%!24).&100)=0|
00000e60 85 31 2c 22 49 63 6f 6e 20 69 73 6e 27 74 20 69 |.1,"Icon isn't i|
00000e70 6e 64 69 72 65 63 74 65 64 22 0d 05 50 15 24 28 |ndirected"..P.$(|
00000e80 77 69 6d 70 25 21 32 38 29 3d 74 65 78 74 24 0d |wimp%!28)=text$.|
00000e90 05 5a 21 77 69 6d 70 25 21 30 3d 77 69 6e 64 6f |.Z!wimp%!0=windo|
00000ea0 77 25 3a 77 69 6d 70 25 21 34 3d 69 63 6f 6e 25 |w%:wimp%!4=icon%|
00000eb0 0d 05 64 18 77 69 6d 70 25 21 38 3d 30 3a 77 69 |..d.wimp%!8=0:wi|
00000ec0 6d 70 25 21 31 32 3d 30 0d 05 6e 20 c8 99 22 57 |mp%!12=0..n .."W|
00000ed0 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 61 74 65 |imp_SetIconState|
00000ee0 22 2c 2c 77 69 6d 70 25 0d 05 78 05 e1 0d 05 82 |",,wimp%..x.....|
00000ef0 1d dd f2 57 69 6d 70 5f 49 63 6f 6e 49 6e 74 65 |...Wimp_IconInte|
00000f00 72 66 61 63 65 53 74 61 72 74 0d 05 8c 1e c8 99 |rfaceStart......|
00000f10 22 57 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f 6e |"Wimp_BorderIcon|
00000f20 22 2c 2c 77 69 6d 70 25 0d 05 96 05 e1 0d 05 a0 |",,wimp%........|
00000f30 1e dd f2 57 69 6d 70 5f 49 63 6f 6e 49 6e 74 65 |...Wimp_IconInte|
00000f40 72 66 61 63 65 46 69 6e 69 73 68 0d 05 aa 0d 77 |rfaceFinish....w|
00000f50 69 6d 70 25 21 38 3d 30 0d 05 b4 1e c8 99 22 57 |imp%!8=0......"W|
00000f60 69 6d 70 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c |imp_BorderIcon",|
00000f70 2c 77 69 6d 70 25 0d 05 be 05 e1 0d 05 c8 1e dd |,wimp%..........|
00000f80 f2 57 69 6d 70 5f 4d 65 6e 75 41 64 6a 75 73 74 |.Wimp_MenuAdjust|
00000f90 4f 6e 28 6d 65 6e 75 25 29 0d 05 d2 2b c8 99 22 |On(menu%)...+.."|
00000fa0 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
00000fb0 6e 66 6f 22 2c 2c 70 6f 69 6e 74 65 72 5f 62 6c |nfo",,pointer_bl|
00000fc0 6f 63 6b 25 0d 05 dc 5a e7 28 28 70 6f 69 6e 74 |ock%...Z.((point|
00000fd0 65 72 5f 62 6c 6f 63 6b 25 21 38 29 80 31 29 3d |er_block%!8).1)=|
00000fe0 31 8c c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 |1..."Wimp_Create|
00000ff0 4d 65 6e 75 22 2c 2c 6d 65 6e 75 25 2c 70 6f 69 |Menu",,menu%,poi|
00001000 6e 74 65 72 5f 62 6c 6f 63 6b 25 21 30 2c 70 6f |nter_block%!0,po|
00001010 69 6e 74 65 72 5f 62 6c 6f 63 6b 25 21 34 0d 05 |inter_block%!4..|
00001020 e6 05 e1 0d 05 f0 1d dd a4 57 69 6d 70 5f 4d 65 |.........Wimp_Me|
00001030 6e 75 43 68 6f 69 63 65 28 6c 65 76 65 6c 25 29 |nuChoice(level%)|
00001040 0d 05 fa 19 3d 28 77 69 6d 70 25 21 28 34 2a 6c |....=(wimp%!(4*l|
00001050 65 76 65 6c 25 29 29 2b 31 0d 06 04 1c dd a4 57 |evel%))+1......W|
00001060 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 6d |imp_MenuCreate(m|
00001070 65 6e 75 24 29 0d 06 0e 27 e7 6d 65 6e 75 24 3d |enu$)...'.menu$=|
00001080 22 43 6f 6c 6f 75 72 73 22 8c 3d a4 57 69 6d 70 |"Colours".=.Wimp|
00001090 5f 4d 65 6e 75 43 6f 6c 6f 75 72 73 0d 06 18 26 |_MenuColours...&|
000010a0 ea 6d 65 6e 75 25 2c 69 6e 64 65 78 25 2c 77 69 |.menu%,index%,wi|
000010b0 64 74 68 25 2c 6c 65 6e 67 74 68 25 2c 6b 25 2c |dth%,length%,k%,|
000010c0 73 25 0d 06 22 2c de 6d 65 6e 75 25 32 38 2b a4 |s%..",.menu%28+.|
000010d0 57 69 6d 70 5f 4d 65 6e 75 4e 6f 4f 66 45 6e 74 |Wimp_MenuNoOfEnt|
000010e0 72 69 65 73 28 6d 65 6e 75 24 29 2a 32 34 0d 06 |ries(menu$)*24..|
000010f0 2c 2f 6d 65 6e 75 25 3f 31 32 3d 37 3a 6d 65 6e |,/menu%?12=7:men|
00001100 75 25 3f 31 33 3d 32 3a 6d 65 6e 75 25 3f 31 34 |u%?13=2:menu%?14|
00001110 3d 37 3a 6d 65 6e 75 25 3f 31 35 3d 30 0d 06 36 |=7:menu%?15=0..6|
00001120 27 6d 65 6e 75 25 21 31 36 3d 31 34 30 3a 6d 65 |'menu%!16=140:me|
00001130 6e 75 25 21 32 30 3d 34 34 3a 6d 65 6e 75 25 21 |nu%!20=44:menu%!|
00001140 32 34 3d 30 0d 06 40 13 69 6e 64 65 78 25 3d 6d |24=0..@.index%=m|
00001150 65 6e 75 25 2b 32 38 0d 06 4a 20 24 6d 65 6e 75 |enu%+28..J $menu|
00001160 25 3d c0 6d 65 6e 75 24 2c a7 6d 65 6e 75 24 2c |%=.menu$,.menu$,|
00001170 22 5c 22 29 2d 31 29 0d 06 54 23 77 69 64 74 68 |"\")-1)..T#width|
00001180 25 3d a9 28 c0 6d 65 6e 75 24 2c a7 6d 65 6e 75 |%=.(.menu$,.menu|
00001190 24 2c 22 5c 22 29 2d 31 29 29 0d 06 5e 22 6d 65 |$,"\")-1))..^"me|
000011a0 6e 75 24 2b 3d 22 5c 22 3a 4d 65 6e 75 5f 4e 6f |nu$+="\":Menu_No|
000011b0 4f 66 45 6e 74 72 69 65 73 25 3d 30 0d 06 68 0f |OfEntries%=0..h.|
000011c0 c8 95 6d 65 6e 75 24 3c 3e 22 22 0d 06 72 1f 6d |..menu$<>""..r.m|
000011d0 65 6e 75 24 3d c1 6d 65 6e 75 24 2c a7 6d 65 6e |enu$=.menu$,.men|
000011e0 75 24 2c 22 5c 22 29 2b 31 29 0d 06 7c 0c c8 8e |u$,"\")+1)..|...|
000011f0 6d 65 6e 75 24 ca 0d 06 86 07 c9 22 22 0d 06 90 |menu$......""...|
00001200 05 7f 0d 06 9a 2b 21 69 6e 64 65 78 25 3d 30 3a |.....+!index%=0:|
00001210 69 6e 64 65 78 25 21 34 3d 2d 31 3a 69 6e 64 65 |index%!4=-1:inde|
00001220 78 25 21 38 3d 26 37 30 30 30 30 32 31 0d 06 a4 |x%!8=&7000021...|
00001230 19 6c 65 6e 67 74 68 25 3d a7 6d 65 6e 75 24 2c |.length%=.menu$,|
00001240 22 5c 22 29 2d 31 0d 06 ae 1c 6b 25 3d a7 c0 6d |"\")-1....k%=..m|
00001250 65 6e 75 24 2c 6c 65 6e 67 74 68 25 29 2c 22 3e |enu$,length%),">|
00001260 22 29 0d 06 b8 09 c8 8e 6b 25 ca 0d 06 c2 06 c9 |")......k%......|
00001270 30 0d 06 cc 05 7f 0d 06 d6 21 73 25 3d a0 28 c1 |0........!s%=.(.|
00001280 6d 65 6e 75 24 2c 6b 25 2b 31 2c 6c 65 6e 67 74 |menu$,k%+1,lengt|
00001290 68 25 2d 6b 25 29 29 0d 06 e0 0f 69 6e 64 65 78 |h%-k%))....index|
000012a0 25 21 34 3d 73 25 0d 06 ea 10 6c 65 6e 67 74 68 |%!4=s%....length|
000012b0 25 3d 6b 25 2d 31 0d 06 f4 05 cb 0d 06 fe 20 24 |%=k%-1........ $|
000012c0 28 69 6e 64 65 78 25 2b 31 32 29 3d c0 6d 65 6e |(index%+12)=.men|
000012d0 75 24 2c 6c 65 6e 67 74 68 25 29 0d 07 08 22 e7 |u$,length%)...".|
000012e0 6c 65 6e 67 74 68 25 3e 77 69 64 74 68 25 8c 77 |length%>width%.w|
000012f0 69 64 74 68 25 3d 6c 65 6e 67 74 68 25 0d 07 12 |idth%=length%...|
00001300 0e 69 6e 64 65 78 25 2b 3d 32 34 0d 07 1c 05 cb |.index%+=24.....|
00001310 0d 07 26 05 ce 0d 07 30 1a 6d 65 6e 75 25 21 31 |..&....0.menu%!1|
00001320 36 3d 31 36 2a 28 77 69 64 74 68 25 2b 31 29 0d |6=16*(width%+1).|
00001330 07 3a 24 69 6e 64 65 78 25 21 2d 32 34 3d 69 6e |.:$index%!-24=in|
00001340 64 65 78 25 21 2d 32 34 84 26 38 30 3a 3d 6d 65 |dex%!-24.&80:=me|
00001350 6e 75 25 0d 07 44 16 dd a4 57 69 6d 70 5f 4d 65 |nu%..D...Wimp_Me|
00001360 6e 75 43 6f 6c 6f 75 72 73 0d 07 4e 21 3d a4 57 |nuColours..N!=.W|
00001370 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 43 6f |imp_MenuCreateCo|
00001380 6c 6f 75 72 73 28 22 20 22 29 0d 07 58 24 dd a4 |lours(" ")..X$..|
00001390 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 43 |Wimp_MenuCreateC|
000013a0 6f 6c 6f 75 72 73 28 74 69 74 6c 65 24 29 0d 07 |olours(title$)..|
000013b0 62 12 ea 78 24 2c 6d 65 6e 25 2c 6a 25 2c 69 25 |b..x$,men%,j%,i%|
000013c0 0d 07 6c 36 78 24 3d 74 69 74 6c 65 24 2b 22 5c |..l6x$=title$+"\|
000013d0 30 5c 31 5c 32 5c 33 5c 34 5c 35 5c 36 5c 37 5c |0\1\2\3\4\5\6\7\|
000013e0 38 5c 39 5c 31 30 5c 31 31 5c 31 32 5c 31 33 5c |8\9\10\11\12\13\|
000013f0 31 34 5c 31 35 22 0d 07 76 1d 6d 65 6e 25 3d a4 |14\15"..v.men%=.|
00001400 57 69 6d 70 5f 4d 65 6e 75 43 72 65 61 74 65 28 |Wimp_MenuCreate(|
00001410 78 24 29 0d 07 80 0c e3 69 25 3d 30 b8 31 35 0d |x$).....i%=0.15.|
00001420 07 8a 08 c8 8e b9 ca 0d 07 94 25 c9 69 25 3c 34 |..........%.i%<4|
00001430 2c 69 25 3d 39 2c 69 25 3d 31 32 2c 69 25 3d 31 |,i%=9,i%=12,i%=1|
00001440 34 2c 69 25 3d 31 35 3a 6a 25 3d 37 0d 07 9e 0a |4,i%=15:j%=7....|
00001450 7f 3a 6a 25 3d 30 0d 07 a8 05 cb 0d 07 b2 1c 6d |.:j%=0.........m|
00001460 65 6e 25 3f 28 33 39 2b 69 25 2a 32 34 29 3d 69 |en%?(39+i%*24)=i|
00001470 25 2a 31 36 2b 6a 25 0d 07 bc 1f f2 57 69 6d 70 |%*16+j%.....Wimp|
00001480 5f 4d 65 6e 75 43 65 6e 74 72 65 28 6d 65 6e 25 |_MenuCentre(men%|
00001490 2c 69 25 2b 31 29 0d 07 c6 05 ed 0d 07 d0 09 3d |,i%+1).........=|
000014a0 6d 65 6e 25 0d 07 da 21 dd a4 57 69 6d 70 5f 4d |men%...!..Wimp_M|
000014b0 65 6e 75 4e 6f 4f 66 45 6e 74 72 69 65 73 28 6d |enuNoOfEntries(m|
000014c0 65 6e 75 24 29 0d 07 e4 14 ea 6e 25 2c 6a 25 3a |enu$).....n%,j%:|
000014d0 6e 25 3d 30 3a 6a 25 3d 30 0d 07 ee 05 f5 0d 07 |n%=0:j%=0.......|
000014e0 f8 17 6a 25 3d a7 6d 65 6e 75 24 2c 22 5c 22 2c |..j%=.menu$,"\",|
000014f0 6a 25 2b 31 29 0d 08 02 10 e7 6a 25 3c 3e 30 8c |j%+1).....j%<>0.|
00001500 6e 25 2b 3d 31 0d 08 0c 09 fd 6a 25 3d 30 0d 08 |n%+=1.....j%=0..|
00001510 16 07 3d 6e 25 0d 08 20 34 dd f2 57 69 6d 70 5f |..=n%.. 4..Wimp_|
00001520 4d 65 6e 75 42 61 63 6b 47 72 6f 75 6e 64 43 6f |MenuBackGroundCo|
00001530 6c 6f 75 72 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |lour(menu%,item%|
00001540 2c 63 6f 6c 6f 75 72 25 29 0d 08 2a 0d ea 66 6f |,colour%)..*..fo|
00001550 72 65 25 2c 69 25 0d 08 34 26 66 6f 72 65 25 3d |re%,i%..4&fore%=|
00001560 28 6d 65 6e 75 25 3f 28 33 39 2b 28 69 74 65 6d |(menu%?(39+(item|
00001570 25 2d 31 29 2a 32 34 29 29 83 31 36 0d 08 3e 28 |%-1)*24)).16..>(|
00001580 69 25 3d 28 28 6d 65 6e 75 25 3f 28 33 39 2b 28 |i%=((menu%?(39+(|
00001590 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 81 31 36 |item%-1)*24)).16|
000015a0 29 83 31 36 0d 08 48 2f 6d 65 6e 75 25 3f 28 33 |).16..H/menu%?(3|
000015b0 39 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d |9+(item%-1)*24)=|
000015c0 66 6f 72 65 25 2b 31 36 2a 63 6f 6c 6f 75 72 25 |fore%+16*colour%|
000015d0 2b 69 25 0d 08 52 05 e1 0d 08 5c 22 dd f2 57 69 |+i%..R....\"..Wi|
000015e0 6d 70 5f 4d 65 6e 75 43 65 6e 74 72 65 28 6d 65 |mp_MenuCentre(me|
000015f0 6e 75 25 2c 69 74 65 6d 25 29 0d 08 66 3a 6d 65 |nu%,item%)..f:me|
00001600 6e 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 |nu%!(36+(item%-1|
00001610 29 2a 32 34 29 3d 6d 65 6e 75 25 21 28 33 36 2b |)*24)=menu%!(36+|
00001620 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 84 28 31 |(item%-1)*24).(1|
00001630 3c 3c 33 29 0d 08 70 05 e1 0d 08 7a 14 dd f2 57 |<<3)..p....z...W|
00001640 69 6d 70 5f 4d 65 6e 75 43 6c 6f 73 65 0d 08 84 |imp_MenuClose...|
00001650 1a c8 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d |..."Wimp_CreateM|
00001660 65 6e 75 22 2c 2d 31 0d 08 8e 05 e1 0d 08 98 23 |enu",-1........#|
00001670 dd f2 57 69 6d 70 5f 4d 65 6e 75 44 69 73 61 62 |..Wimp_MenuDisab|
00001680 6c 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 29 0d |le(menu%,item%).|
00001690 08 a2 3b 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 |..;menu%!(36+(it|
000016a0 65 6d 25 2d 31 29 2a 32 34 29 3d 6d 65 6e 75 25 |em%-1)*24)=menu%|
000016b0 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 |!(36+(item%-1)*2|
000016c0 34 29 84 28 31 3c 3c 32 32 29 0d 08 ac 05 e1 0d |4).(1<<22)......|
000016d0 08 b6 26 dd f2 57 69 6d 70 5f 4d 65 6e 75 44 6f |..&..Wimp_MenuDo|
000016e0 74 74 65 64 4c 69 6e 65 28 6d 65 6e 75 25 2c 69 |ttedLine(menu%,i|
000016f0 74 65 6d 25 29 0d 08 c0 37 6d 65 6e 75 25 21 28 |tem%)...7menu%!(|
00001700 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 |28+(item%-1)*24)|
00001710 3d 28 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 65 |=(menu%!(28+(ite|
00001720 6d 25 2d 31 29 2a 32 34 29 29 84 32 0d 08 ca 05 |m%-1)*24)).2....|
00001730 e1 0d 08 d4 22 dd f2 57 69 6d 70 5f 4d 65 6e 75 |...."..Wimp_Menu|
00001740 45 6e 61 62 6c 65 28 6d 65 6e 75 25 2c 69 74 65 |Enable(menu%,ite|
00001750 6d 25 29 0d 08 de 22 f2 57 69 6d 70 5f 4d 65 6e |m%)...".Wimp_Men|
00001760 75 44 69 73 61 62 6c 65 28 6d 65 6e 75 25 2c 69 |uDisable(menu%,i|
00001770 74 65 6d 25 29 0d 08 e8 3b 6d 65 6e 75 25 21 28 |tem%)...;menu%!(|
00001780 33 36 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 |36+(item%-1)*24)|
00001790 3d 6d 65 6e 75 25 21 28 33 36 2b 28 69 74 65 6d |=menu%!(36+(item|
000017a0 25 2d 31 29 2a 32 34 29 82 28 31 3c 3c 32 32 29 |%-1)*24).(1<<22)|
000017b0 0d 08 f2 05 e1 0d 08 fc 34 dd f2 57 69 6d 70 5f |........4..Wimp_|
000017c0 4d 65 6e 75 46 6f 72 65 67 72 6f 75 6e 64 43 6f |MenuForegroundCo|
000017d0 6c 6f 75 72 28 6d 65 6e 75 25 2c 69 74 65 6d 25 |lour(menu%,item%|
000017e0 2c 63 6f 6c 6f 75 72 25 29 0d 09 06 45 6d 65 6e |,colour%)...Emen|
000017f0 75 25 3f 28 33 39 2b 28 69 74 65 6d 25 2d 31 29 |u%?(39+(item%-1)|
00001800 2a 32 34 29 3d 63 6f 6c 6f 75 72 25 2b 31 36 2a |*24)=colour%+16*|
00001810 28 28 6d 65 6e 75 25 3f 28 33 39 2b 28 69 74 65 |((menu%?(39+(ite|
00001820 6d 25 2d 31 29 2a 32 34 29 29 81 31 36 29 0d 09 |m%-1)*24)).16)..|
00001830 10 05 e1 0d 09 1a 28 dd f2 57 69 6d 70 5f 4d 65 |......(..Wimp_Me|
00001840 6e 75 47 6c 75 65 28 6d 65 6e 75 31 25 2c 69 74 |nuGlue(menu1%,it|
00001850 65 6d 25 2c 6d 65 6e 75 32 25 29 0d 09 24 1e 6d |em%,menu2%)..$.m|
00001860 65 6e 75 31 25 21 28 38 2b 69 74 65 6d 25 2a 32 |enu1%!(8+item%*2|
00001870 34 29 3d 6d 65 6e 75 32 25 0d 09 2e 05 e1 0d 09 |4)=menu2%.......|
00001880 38 26 dd f2 57 69 6d 70 5f 4d 65 6e 75 49 74 65 |8&..Wimp_MenuIte|
00001890 6d 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c 69 74 |m(menu%,item%,it|
000018a0 65 6d 24 29 0d 09 42 2c 24 28 6d 65 6e 75 25 2b |em$)..B,$(menu%+|
000018b0 28 34 30 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 |(40+(item%-1)*24|
000018c0 29 29 3d c0 69 74 65 6d 24 2c 31 32 29 2b bd 30 |))=.item$,12)+.0|
000018d0 0d 09 4c 05 e1 0d 09 56 23 dd f2 57 69 6d 70 5f |..L....V#..Wimp_|
000018e0 4d 65 6e 75 4d 65 73 73 61 67 65 28 6d 65 6e 75 |MenuMessage(menu|
000018f0 25 2c 69 74 65 6d 25 29 0d 09 60 3c 6d 65 6e 75 |%,item%)..`<menu|
00001900 25 21 28 32 38 2b 28 69 74 65 6d 25 2d 31 29 2a |%!(28+(item%-1)*|
00001910 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 38 2b 28 |24)=(menu%!(28+(|
00001920 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 82 28 31 |item%-1)*24)).(1|
00001930 3c 3c 33 29 0d 09 6a 05 e1 0d 09 74 21 dd f2 57 |<<3)..j....t!..W|
00001940 69 6d 70 5f 4d 65 6e 75 50 6f 70 55 70 28 4d 65 |imp_MenuPopUp(Me|
00001950 6e 75 25 2c 78 25 2c 79 25 29 0d 09 7e 0f 6d 65 |nu%,x%,y%)..~.me|
00001960 6e 75 25 3d 4d 65 6e 75 25 0d 09 88 2a c8 99 22 |nu%=Menu%...*.."|
00001970 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 |Wimp_CreateMenu"|
00001980 2c 2c 6d 65 6e 75 25 2c 78 25 2d 36 34 2c 79 25 |,,menu%,x%-64,y%|
00001990 2b 32 30 0d 09 92 05 e1 0d 09 9c 1e dd f2 57 69 |+20...........Wi|
000019a0 6d 70 5f 4d 65 6e 75 50 6f 70 55 70 42 61 72 28 |mp_MenuPopUpBar(|
000019b0 78 25 2c 79 25 29 0d 09 a6 0c ea 6e 25 3a 6e 25 |x%,y%).....n%:n%|
000019c0 3d 30 0d 09 b0 2a c8 95 28 28 42 61 72 5f 4d 65 |=0...*..((Bar_Me|
000019d0 6e 75 25 21 28 32 38 2b 6e 25 2a 32 34 29 29 80 |nu%!(28+n%*24)).|
000019e0 25 31 30 30 30 30 30 30 30 29 3d 30 0d 09 ba 09 |%10000000)=0....|
000019f0 6e 25 2b 3d 31 0d 09 c4 05 ce 0d 09 ce 31 c8 99 |n%+=1........1..|
00001a00 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
00001a10 22 2c 2c 42 61 72 5f 4d 65 6e 75 25 2c 78 25 2d |",,Bar_Menu%,x%-|
00001a20 36 34 2c 39 36 2b 6e 25 2a 34 34 0d 09 d8 13 6d |64,96+n%*44....m|
00001a30 65 6e 75 25 3d 42 61 72 5f 4d 65 6e 75 25 0d 09 |enu%=Bar_Menu%..|
00001a40 e2 05 e1 0d 09 ec 20 dd f2 57 69 6d 70 5f 4d 65 |...... ..Wimp_Me|
00001a50 6e 75 54 69 63 6b 28 6d 65 6e 75 25 2c 69 74 65 |nuTick(menu%,ite|
00001a60 6d 25 29 0d 09 f6 37 6d 65 6e 75 25 21 28 32 38 |m%)...7menu%!(28|
00001a70 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 28 |+(item%-1)*24)=(|
00001a80 6d 65 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 |menu%!(28+(item%|
00001a90 2d 31 29 2a 32 34 29 29 82 31 0d 0a 00 05 e1 0d |-1)*24)).1......|
00001aa0 0a 0a 22 dd f2 57 69 6d 70 5f 4d 65 6e 75 54 69 |.."..Wimp_MenuTi|
00001ab0 74 6c 65 28 6d 65 6e 75 25 2c 74 69 74 6c 65 24 |tle(menu%,title$|
00001ac0 29 0d 0a 14 19 24 6d 65 6e 75 25 3d c0 74 69 74 |)....$menu%=.tit|
00001ad0 6c 65 24 2c 31 32 29 2b bd 30 0d 0a 1e 05 e1 0d |le$,12)+.0......|
00001ae0 0a 28 3c dd f2 57 69 6d 70 5f 4d 65 6e 75 57 72 |.(<..Wimp_MenuWr|
00001af0 69 74 65 28 6d 65 6e 75 25 2c 69 74 65 6d 25 2c |ite(menu%,item%,|
00001b00 62 75 66 66 65 72 25 2c 76 61 6c 25 2c 42 75 66 |buffer%,val%,Buf|
00001b10 66 65 72 4c 65 6e 67 74 68 25 29 0d 0a 32 37 6d |ferLength%)..27m|
00001b20 65 6e 75 25 21 28 32 38 2b 28 69 74 65 6d 25 2d |enu%!(28+(item%-|
00001b30 31 29 2a 32 34 29 3d 28 6d 65 6e 75 25 21 28 32 |1)*24)=(menu%!(2|
00001b40 38 2b 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 29 |8+(item%-1)*24))|
00001b50 84 34 0d 0a 3c 38 6d 65 6e 75 25 21 28 33 36 2b |.4..<8menu%!(36+|
00001b60 28 69 74 65 6d 25 2d 31 29 2a 32 34 29 3d 6d 65 |(item%-1)*24)=me|
00001b70 6e 75 25 21 28 33 36 2b 28 69 74 65 6d 25 2d 31 |nu%!(36+(item%-1|
00001b80 29 2a 32 34 29 84 26 31 30 30 0d 0a 46 23 6d 65 |)*24).&100..F#me|
00001b90 6e 75 25 21 28 34 30 2b 28 69 74 65 6d 25 2d 31 |nu%!(40+(item%-1|
00001ba0 29 2a 32 34 29 3d 62 75 66 66 65 72 25 0d 0a 50 |)*24)=buffer%..P|
00001bb0 20 6d 65 6e 75 25 21 28 34 34 2b 28 69 74 65 6d | menu%!(44+(item|
00001bc0 25 2d 31 29 2a 32 34 29 3d 76 61 6c 25 0d 0a 5a |%-1)*24)=val%..Z|
00001bd0 29 6d 65 6e 75 25 21 28 34 38 2b 28 69 74 65 6d |)menu%!(48+(item|
00001be0 25 2d 31 29 2a 32 34 29 3d 42 75 66 66 65 72 4c |%-1)*24)=BufferL|
00001bf0 65 6e 67 74 68 25 0d 0a 64 05 e1 0d 0a 6e 16 dd |ength%..d....n..|
00001c00 f2 57 69 6d 70 5f 53 70 72 69 74 65 73 4c 6f 61 |.Wimp_SpritesLoa|
00001c10 64 0d 0a 78 30 f2 57 69 6d 70 5f 53 70 72 69 74 |d..x0.Wimp_Sprit|
00001c20 65 73 50 61 74 68 4c 6f 61 64 28 22 3c 41 6d 61 |esPathLoad("<Ama|
00001c30 7a 65 24 44 69 72 3e 2e 53 70 72 69 74 65 73 22 |ze$Dir>.Sprites"|
00001c40 29 0d 0a 82 1c 64 69 72 65 63 74 5f 73 70 72 69 |)....direct_spri|
00001c50 74 65 73 25 3d 73 70 72 69 74 65 73 25 0d 0a 8c |tes%=sprites%...|
00001c60 05 e1 0d 0a 96 25 dd f2 57 69 6d 70 5f 53 70 72 |.....%..Wimp_Spr|
00001c70 69 74 65 73 50 61 74 68 4c 6f 61 64 28 70 61 74 |itesPathLoad(pat|
00001c80 68 6e 61 6d 65 24 29 0d 0a a0 0a ea 53 25 2c 54 |hname$).....S%,T|
00001c90 25 0d 0a aa 2d 53 25 3d 8e 22 3c 41 6d 61 7a 65 |%...-S%=."<Amaze|
00001ca0 24 44 69 72 3e 2e 53 70 72 69 74 65 73 22 3a 54 |$Dir>.Sprites":T|
00001cb0 25 3d a2 23 53 25 2b 31 36 3a d9 23 53 25 0d 0a |%=.#S%+16:.#S%..|
00001cc0 b4 19 de 73 70 72 69 74 65 73 25 54 25 2c 73 70 |...sprites%T%,sp|
00001cd0 6e 61 6d 65 25 31 32 0d 0a be 1d 21 73 70 72 69 |name%12....!spri|
00001ce0 74 65 73 25 3d 54 25 3a 73 70 72 69 74 65 73 25 |tes%=T%:sprites%|
00001cf0 21 38 3d 30 0d 0a c8 21 c8 99 22 4f 53 5f 53 70 |!8=0...!.."OS_Sp|
00001d00 72 69 74 65 4f 70 22 2c 26 31 30 39 2c 73 70 72 |riteOp",&109,spr|
00001d10 69 74 65 73 25 0d 0a d2 2b c8 99 22 4f 53 5f 53 |ites%...+.."OS_S|
00001d20 70 72 69 74 65 4f 70 22 2c 26 31 30 41 2c 73 70 |priteOp",&10A,sp|
00001d30 72 69 74 65 73 25 2c 70 61 74 68 6e 61 6d 65 24 |rites%,pathname$|
00001d40 0d 0a dc 05 e1 0d 0a e6 1a dd a4 57 69 6d 70 5f |...........Wimp_|
00001d50 46 69 6c 65 54 79 70 65 28 74 79 70 65 25 29 0d |FileType(type%).|
00001d60 0a f0 0c c8 8e 74 79 70 65 25 ca 0d 0a fa 11 c9 |.....type%......|
00001d70 26 46 46 46 3a 3d 22 54 65 78 74 22 0d 0b 04 11 |&FFF:="Text"....|
00001d80 c9 26 46 46 44 3a 3d 22 44 61 74 61 22 0d 0b 0e |.&FFD:="Data"...|
00001d90 12 c9 26 46 46 42 3a 3d 22 42 61 73 69 63 22 0d |..&FFB:="Basic".|
00001da0 0b 18 13 c9 26 46 46 39 3a 3d 22 53 70 72 69 74 |....&FF9:="Sprit|
00001db0 65 22 0d 0b 22 14 c9 26 46 45 44 3a 3d 22 50 61 |e".."..&FED:="Pa|
00001dc0 6c 65 74 74 65 22 0d 0b 2c 15 c9 26 46 45 43 3a |lette"..,..&FEC:|
00001dd0 3d 22 54 65 6d 70 6c 61 74 65 22 0d 0b 36 11 c9 |="Template"..6..|
00001de0 26 41 46 46 3a 3d 22 44 72 61 77 22 0d 0b 40 14 |&AFF:="Draw"..@.|
00001df0 c9 26 31 30 30 30 3a 3d 22 46 6f 6c 64 65 72 22 |.&1000:="Folder"|
00001e00 0d 0b 4a 19 c9 26 32 30 30 30 3a 3d 22 41 70 70 |..J..&2000:="App|
00001e10 6c 69 63 61 74 69 6f 6e 22 0d 0b 54 0f 7f 3d c3 |lication"..T..=.|
00001e20 7e 28 74 79 70 65 25 29 0d 0b 5e 05 cb 0d 0b 68 |~(type%)..^....h|
00001e30 1a dd a4 57 69 6d 70 5f 47 65 74 46 69 6c 65 50 |...Wimp_GetFileP|
00001e40 61 74 68 4e 61 6d 65 0d 0b 72 27 3d a4 57 69 6d |athName..r'=.Wim|
00001e50 70 5f 47 65 74 53 74 72 69 6e 67 41 74 41 64 64 |p_GetStringAtAdd|
00001e60 72 65 73 73 28 77 69 6d 70 25 2b 34 34 29 0d 0b |ress(wimp%+44)..|
00001e70 7c 1e dd a4 57 69 6d 70 5f 46 69 6c 65 4c 6f 61 ||...Wimp_FileLoa|
00001e80 64 28 70 61 74 68 6e 61 6d 65 24 29 0d 0b 86 10 |d(pathname$)....|
00001e90 ea 53 25 2c 54 25 2c 66 69 6c 65 25 0d 0b 90 11 |.S%,T%,file%....|
00001ea0 53 25 3d 8e 70 61 74 68 6e 61 6d 65 24 0d 0b 9a |S%=.pathname$...|
00001eb0 0e 54 25 3d a2 23 53 25 2b 31 36 0d 0b a4 08 d9 |.T%=.#S%+16.....|
00001ec0 23 53 25 0d 0b ae 0c de 66 69 6c 65 25 54 25 0d |#S%.....file%T%.|
00001ed0 0b b8 22 ff 28 22 4c 4f 41 44 22 2b 70 61 74 68 |..".("LOAD"+path|
00001ee0 6e 61 6d 65 24 2b 22 22 2b c3 7e 66 69 6c 65 25 |name$+""+.~file%|
00001ef0 29 0d 0b c2 0a 3d 66 69 6c 65 25 0d 0b cc 05 3b |)....=file%....;|
00001f00 0d 0b d6 25 dd a4 57 69 6d 70 5f 47 65 74 53 74 |...%..Wimp_GetSt|
00001f10 72 69 6e 67 41 74 41 64 64 72 65 73 73 28 61 72 |ringAtAddress(ar|
00001f20 72 61 79 25 29 0d 0b e0 0d ea 73 24 3a 73 24 3d |ray%).....s$:s$=|
00001f30 22 22 0d 0b ea 3b c8 95 28 3f 61 72 72 61 79 25 |""...;..(?array%|
00001f40 3c 3e 31 33 29 80 28 3f 61 72 72 61 79 25 3c 3e |<>13).(?array%<>|
00001f50 30 29 3a 73 24 2b 3d bd 28 3f 61 72 72 61 79 25 |0):s$+=.(?array%|
00001f60 29 3a 61 72 72 61 79 25 2b 3d 31 3a ce 0d 0b f4 |):array%+=1:....|
00001f70 07 3d 73 24 0d 0b fe 22 dd a4 57 69 6d 70 5f 47 |.=s$..."..Wimp_G|
00001f80 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 |etFileFromPathna|
00001f90 6d 65 28 66 24 29 0d 0c 08 0f c8 8e a7 66 24 2c |me(f$).......f$,|
00001fa0 22 2e 22 29 ca 0d 0c 12 0a c9 30 3a 3d 66 24 0d |".")......0:=f$.|
00001fb0 0c 1c 35 7f 3a 3d a4 57 69 6d 70 5f 47 65 74 46 |..5.:=.Wimp_GetF|
00001fc0 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 |ileFromPathname(|
00001fd0 c2 66 24 2c a9 28 66 24 29 2d a7 66 24 2c 22 2e |.f$,.(f$)-.f$,".|
00001fe0 22 29 29 29 0d 0c 26 05 cb 0d 0c 30 1c dd f2 57 |")))..&....0...W|
00001ff0 69 6d 70 5f 53 65 6e 64 54 6f 45 64 69 74 28 66 |imp_SendToEdit(f|
00002000 69 6c 65 24 29 0d 0c 3a 07 ea 6e 25 0d 0c 44 15 |ile$)..:..n%..D.|
00002010 77 69 6d 70 25 21 34 3d 26 36 43 43 30 31 43 30 |wimp%!4=&6CC01C0|
00002020 43 0d 0c 4e 0e 77 69 6d 70 25 21 31 36 3d 35 0d |C..N.wimp%!16=5.|
00002030 0c 58 0e 77 69 6d 70 25 21 33 36 3d 30 0d 0c 62 |.X.wimp%!36=0..b|
00002040 11 77 69 6d 70 25 21 34 30 3d 26 46 46 46 0d 0c |.wimp%!40=&FFF..|
00002050 6c 18 24 28 77 69 6d 70 25 2b 34 34 29 3d 66 69 |l.$(wimp%+44)=fi|
00002060 6c 65 24 2b bd 30 0d 0c 76 10 6e 25 3d a9 66 69 |le$+.0..v.n%=.fi|
00002070 6c 65 24 2b 34 35 0d 0c 80 27 e7 6e 25 83 34 8c |le$+45...'.n%.4.|
00002080 21 77 69 6d 70 25 3d 34 2b 28 6e 25 3e 3e 32 29 |!wimp%=4+(n%>>2)|
00002090 3c 3c 32 8b 21 77 69 6d 70 25 3d 6e 25 0d 0c 8a |<<2.!wimp%=n%...|
000020a0 23 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |#.."Wimp_SendMes|
000020b0 73 61 67 65 22 2c 31 37 2c 77 69 6d 70 25 2c 30 |sage",17,wimp%,0|
000020c0 0d 0c 94 05 e1 0d 0c 9e 2e dd f2 57 69 6d 70 5f |...........Wimp_|
000020d0 53 74 61 72 74 28 54 61 73 6b 4e 61 6d 65 24 2c |Start(TaskName$,|
000020e0 77 69 6d 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f |wimp_memory%,ico|
000020f0 6e 25 29 0d 0c a8 22 de 77 69 6d 70 25 77 69 6d |n%)...".wimp%wim|
00002100 70 5f 6d 65 6d 6f 72 79 25 2c 69 63 6f 6e 73 25 |p_memory%,icons%|
00002110 69 63 6f 6e 25 0d 0c b2 26 e7 77 69 6d 70 5f 6d |icon%...&.wimp_m|
00002120 65 6d 6f 72 79 25 3c 32 35 36 8c 77 69 6d 70 5f |emory%<256.wimp_|
00002130 6d 65 6d 6f 72 79 25 3d 32 35 36 0d 0c bc 1d 69 |memory%=256....i|
00002140 63 6f 6e 5f 6d 65 6d 6f 72 79 25 3d 69 63 6f 6e |con_memory%=icon|
00002150 73 25 2b 69 63 6f 6e 25 0d 0c c6 13 74 61 73 6b |s%+icon%....task|
00002160 24 3d 54 61 73 6b 4e 61 6d 65 24 0d 0c d0 29 69 |$=TaskName$...)i|
00002170 6e 64 69 72 65 63 74 5f 73 70 72 69 74 65 73 25 |ndirect_sprites%|
00002180 3d 31 3a 64 69 72 65 63 74 5f 73 70 72 69 74 65 |=1:direct_sprite|
00002190 73 25 3d 31 0d 0c da 1b f2 57 69 6d 70 5f 53 65 |s%=1.....Wimp_Se|
000021a0 74 45 76 65 6e 74 56 61 72 69 61 62 6c 65 73 0d |tEventVariables.|
000021b0 0c e4 13 ee 85 f2 57 69 6d 70 5f 45 72 72 6f 72 |......Wimp_Error|
000021c0 3a e0 0d 0c ee 3e c8 99 22 57 69 6d 70 5f 49 6e |:....>.."Wimp_In|
000021d0 69 74 69 61 6c 69 73 65 22 2c 32 30 30 2c 26 34 |itialise",200,&4|
000021e0 42 35 33 34 31 35 34 2c 54 61 73 6b 4e 61 6d 65 |B534154,TaskName|
000021f0 24 b8 76 65 72 73 69 6f 6e 25 2c 74 61 73 6b 25 |$.version%,task%|
00002200 0d 0c f8 05 e1 0d 0d 02 1a dd a4 57 69 6d 70 5f |...........Wimp_|
00002210 42 41 53 49 43 50 61 72 61 6d 65 74 65 72 73 0d |BASICParameters.|
00002220 0d 0c 13 ea 63 6f 6d 24 2c 70 61 72 61 6d 24 2c |....com$,param$,|
00002230 49 25 0d 0d 16 16 c8 99 22 4f 53 5f 47 65 74 45 |I%......"OS_GetE|
00002240 6e 76 22 b8 63 6f 6d 24 0d 0d 20 0e 70 61 72 61 |nv".com$.. .para|
00002250 6d 73 24 3d 22 22 0d 0d 2a 17 49 25 3d a7 63 6f |ms$=""..*.I%=.co|
00002260 6d 24 2c 22 20 2d 71 75 69 74 20 22 29 0d 0d 34 |m$," -quit ")..4|
00002270 31 e7 49 25 8c 70 61 72 61 6d 73 24 3d c1 63 6f |1.I%.params$=.co|
00002280 6d 24 2c a7 63 6f 6d 24 2c 22 20 22 2c 49 25 2b |m$,.com$," ",I%+|
00002290 a9 22 20 2d 71 75 69 74 20 22 29 2b 31 29 0d 0d |." -quit ")+1)..|
000022a0 3e 0c 3d 70 61 72 61 6d 73 24 0d 0d 48 1c dd f2 |>.=params$..H...|
000022b0 57 69 6d 70 5f 53 65 74 45 76 65 6e 74 56 61 72 |Wimp_SetEventVar|
000022c0 69 61 62 6c 65 73 0d 0d 52 15 de 70 6f 69 6e 74 |iables..R..point|
000022d0 65 72 5f 62 6c 6f 63 6b 25 32 30 0d 0d 5c 10 69 |er_block%20..\.i|
000022e0 6e 74 65 72 66 61 63 65 25 3d a3 0d 0d 66 29 6e |nterface%=...f)n|
000022f0 75 6c 6c 25 3d 31 3a 64 72 61 77 25 3d 32 3a 70 |ull%=1:draw%=2:p|
00002300 6f 69 6e 74 65 72 5f 6c 65 61 76 69 6e 67 25 3d |ointer_leaving%=|
00002310 31 3c 3c 34 0d 0d 70 31 70 6f 69 6e 74 65 72 5f |1<<4..p1pointer_|
00002320 65 6e 74 65 72 69 6e 67 25 3d 31 3c 3c 35 3a 6d |entering%=1<<5:m|
00002330 6f 75 73 65 25 3d 31 3c 3c 36 3a 64 72 61 67 25 |ouse%=1<<6:drag%|
00002340 3d 31 3c 3c 37 0d 0d 7a 26 6b 65 79 25 3d 31 3c |=1<<7..z&key%=1<|
00002350 3c 38 3a 6d 65 6e 75 25 3d 31 3c 3c 39 3a 73 63 |<8:menu%=1<<9:sc|
00002360 72 6f 6c 6c 25 3d 31 3c 3c 31 30 0d 0d 84 40 6c |roll%=1<<10...@l|
00002370 6f 73 65 5f 63 61 72 65 74 25 3d 31 3c 3c 31 31 |ose_caret%=1<<11|
00002380 3a 67 61 69 6e 5f 63 61 72 65 74 25 3d 31 3c 3c |:gain_caret%=1<<|
00002390 31 32 3a 6d 65 73 73 61 67 65 25 3d 28 31 3c 3c |12:message%=(1<<|
000023a0 31 37 29 2b 28 31 3c 3c 31 38 29 0d 0d 8e 30 72 |17)+(1<<18)...0r|
000023b0 65 63 6f 72 64 65 72 25 3d 31 3c 3c 31 38 3a 61 |ecorder%=1<<18:a|
000023c0 63 6b 6e 6f 77 6c 65 64 67 65 25 3d 31 3c 3c 31 |cknowledge%=1<<1|
000023d0 39 3a 77 69 6e 64 6f 77 25 3d 30 0d 0d 98 21 73 |9:window%=0...!s|
000023e0 70 72 69 74 65 73 25 3d 31 3a 76 65 72 73 69 6f |prites%=1:versio|
000023f0 6e 25 3d 30 3a 74 61 73 6b 25 3d 30 0d 0d a2 2a |n%=0:task%=0...*|
00002400 42 61 72 5f 57 69 6e 64 6f 77 25 3d 2d 32 3a 42 |Bar_Window%=-2:B|
00002410 61 72 5f 49 63 6f 6e 25 3d 30 3a 42 61 72 5f 4d |ar_Icon%=0:Bar_M|
00002420 65 6e 75 25 3d 30 0d 0d ac 2a 78 5f 6f 72 69 67 |enu%=0...*x_orig|
00002430 69 6e 25 3d 30 3a 79 5f 6f 72 69 67 69 6e 25 3d |in%=0:y_origin%=|
00002440 30 3a 53 61 76 65 57 69 6e 64 6f 77 25 3d 2d 33 |0:SaveWindow%=-3|
00002450 0d 0d b6 33 6d 65 73 73 61 67 65 5f 71 75 69 74 |...3message_quit|
00002460 25 3d 30 3a 6d 65 73 73 61 67 65 5f 73 61 76 65 |%=0:message_save|
00002470 25 3d 32 3a 6d 65 73 73 61 67 65 5f 6c 6f 61 64 |%=2:message_load|
00002480 25 3d 33 0d 0d c0 21 6d 6f 75 73 65 5f 62 75 74 |%=3...!mouse_but|
00002490 74 6f 6e 25 3d 32 3a 73 61 76 65 5f 65 76 65 6e |ton%=2:save_even|
000024a0 74 25 3d 30 0d 0d ca 1e 74 6f 70 5f 6c 69 6e 65 |t%=0....top_line|
000024b0 25 3d 30 3a 62 6f 74 74 6f 6d 5f 6c 69 6e 65 25 |%=0:bottom_line%|
000024c0 3d 30 0d 0d d4 05 e1 0d 0d de 10 dd f2 57 69 6d |=0...........Wim|
000024d0 70 5f 45 72 72 6f 72 0d 0d e8 0a ea 58 24 2c 78 |p_Error.....X$,x|
000024e0 25 0d 0d f2 07 ee 85 87 0d 0d fc 08 78 25 3d 9e |%...........x%=.|
000024f0 0d 0e 06 1b 58 24 3d f6 24 2b 22 61 74 6c 69 6e |....X$=.$+"atlin|
00002500 65 22 2b c3 28 78 25 81 31 30 29 0d 0e 10 10 de |e"+.(x%.10).....|
00002510 45 72 72 6f 72 4d 73 67 25 33 36 0d 0e 1a 45 45 |ErrorMsg%36...EE|
00002520 72 72 6f 72 4d 73 67 25 21 30 3d 33 36 3a 45 72 |rrorMsg%!0=36:Er|
00002530 72 6f 72 4d 73 67 25 21 31 32 3d 30 3a 45 72 72 |rorMsg%!12=0:Err|
00002540 6f 72 4d 73 67 25 21 31 36 3d 26 38 31 30 38 30 |orMsg%!16=&81080|
00002550 3a 45 72 72 6f 72 4d 73 67 25 21 32 30 3d 78 25 |:ErrorMsg%!20=x%|
00002560 0d 0e 24 1f 24 28 45 72 72 6f 72 4d 73 67 25 2b |..$.$(ErrorMsg%+|
00002570 32 34 29 3d 22 21 52 75 6e 49 6d 61 67 65 22 0d |24)="!RunImage".|
00002580 0e 2e 25 c8 99 22 57 69 6d 70 5f 53 65 6e 64 4d |..%.."Wimp_SendM|
00002590 65 73 73 61 67 65 22 2c 31 37 2c 45 72 72 6f 72 |essage",17,Error|
000025a0 4d 73 67 25 0d 0e 38 1f f2 57 69 6d 70 5f 57 69 |Msg%..8..Wimp_Wi|
000025b0 6e 64 6f 77 41 6c 65 72 74 28 74 61 73 6b 24 2c |ndowAlert(task$,|
000025c0 58 24 29 0d 0e 42 13 f2 57 69 6d 70 5f 43 6c 6f |X$)..B..Wimp_Clo|
000025d0 73 65 44 6f 77 6e 0d 0e 4c 05 e1 0d 0e 56 14 dd |seDown..L....V..|
000025e0 f2 57 69 6d 70 5f 43 6c 6f 73 65 44 6f 77 6e 0d |.Wimp_CloseDown.|
000025f0 0e 60 23 c8 99 22 57 69 6d 70 5f 43 6c 6f 73 65 |.`#.."Wimp_Close|
00002600 44 6f 77 6e 22 2c 74 61 73 6b 25 2c 22 54 41 53 |Down",task%,"TAS|
00002610 4b 22 0d 0e 6a 05 e1 0d 0e 74 0f dd f2 57 69 6d |K"..j....t...Wim|
00002620 70 5f 51 75 69 74 0d 0e 7e 0f 66 69 6e 69 73 68 |p_Quit..~.finish|
00002630 65 64 25 3d b9 0d 0e 88 05 e1 0d 0e 92 22 dd a4 |ed%=........."..|
00002640 57 69 6d 70 5f 52 65 61 64 56 61 72 69 61 62 6c |Wimp_ReadVariabl|
00002650 65 28 56 61 72 69 61 62 6c 65 24 29 0d 0e 9c 1b |e(Variable$)....|
00002660 ea 6c 65 6e 25 2c 72 65 73 75 6c 74 25 2c 76 61 |.len%,result%,va|
00002670 72 69 61 62 6c 65 25 0d 0e a6 14 24 77 69 6d 70 |riable%....$wimp|
00002680 25 3d 56 61 72 69 61 62 6c 65 24 0d 0e b0 33 c8 |%=Variable$...3.|
00002690 99 22 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 |."OS_ReadVarVal"|
000026a0 2c 77 69 6d 70 25 2c 77 69 6d 70 25 2b 32 35 35 |,wimp%,wimp%+255|
000026b0 2c 32 35 35 2c 2c 33 b8 2c 2c 6c 65 6e 25 0d 0e |,255,,3.,,len%..|
000026c0 ba 17 77 69 6d 70 25 3f 28 6c 65 6e 25 2b 32 35 |..wimp%?(len%+25|
000026d0 35 29 3d 31 33 0d 0e c4 11 3d 24 28 77 69 6d 70 |5)=13....=$(wimp|
000026e0 25 2b 32 35 35 29 0d 0e ce 17 dd f2 57 69 6d 70 |%+255)......Wimp|
000026f0 5f 57 61 69 74 46 6f 72 45 76 65 6e 74 0d 0e d8 |_WaitForEvent...|
00002700 11 ea 6d 61 73 6b 25 2c 65 76 65 6e 74 25 0d 0e |..mask%,event%..|
00002710 e2 0f 66 69 6e 69 73 68 65 64 25 3d a3 0d 0e ec |..finished%=....|
00002720 17 6d 61 73 6b 25 3d 25 31 31 31 30 30 30 30 31 |.mask%=%11100001|
00002730 31 30 30 31 0d 0e f6 05 f5 0d 0f 00 24 c8 99 22 |1001........$.."|
00002740 57 69 6d 70 5f 50 6f 6c 6c 22 2c 6d 61 73 6b 25 |Wimp_Poll",mask%|
00002750 2c 77 69 6d 70 25 b8 65 76 65 6e 74 25 0d 0f 01 |,wimp%.event%...|
00002760 36 c8 99 22 57 69 6d 70 5f 50 72 65 50 72 6f 63 |6.."Wimp_PreProc|
00002770 65 73 73 4b 65 79 22 2c 65 76 65 6e 74 25 2c 77 |essKey",event%,w|
00002780 69 6d 70 25 2c 74 61 73 6b 25 20 b8 20 65 76 65 |imp%,task% . eve|
00002790 6e 74 25 0d 0f 0a 0d c8 8e 65 76 65 6e 74 25 ca |nt%......event%.|
000027a0 0d 0f 14 06 c9 30 0d 0f 1e 1b c9 31 3a f2 57 69 |.....0.....1:.Wi|
000027b0 6d 70 5f 50 6f 6c 6c 44 72 61 77 57 69 6e 64 6f |mp_PollDrawWindo|
000027c0 77 0d 0f 28 21 c9 32 3a c8 99 22 57 69 6d 70 5f |w..(!.2:.."Wimp_|
000027d0 4f 70 65 6e 57 69 6e 64 6f 77 22 2c 2c 77 69 6d |OpenWindow",,wim|
000027e0 70 25 0d 0f 32 1c c9 33 3a f2 57 69 6d 70 5f 50 |p%..2..3:.Wimp_P|
000027f0 6f 6c 6c 43 6c 6f 73 65 57 69 6e 64 6f 77 0d 0f |ollCloseWindow..|
00002800 3c 06 c9 34 0d 0f 46 06 c9 35 0d 0f 50 1b c9 36 |<..4..F..5..P..6|
00002810 3a f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f 75 73 65 |:.Wimp_PollMouse|
00002820 43 6c 69 63 6b 0d 0f 5a 1c c9 37 3a f2 57 69 6d |Click..Z..7:.Wim|
00002830 70 5f 50 6f 6c 6c 53 61 76 65 4d 65 73 73 61 67 |p_PollSaveMessag|
00002840 65 0d 0f 64 19 c9 38 3a f2 57 69 6d 70 5f 50 6f |e..d..8:.Wimp_Po|
00002850 6c 6c 4b 65 79 50 72 65 73 73 0d 0f 6e 1f c9 39 |llKeyPress..n..9|
00002860 3a f2 45 76 65 6e 74 5f 4d 65 6e 75 43 68 6f 69 |:.Event_MenuChoi|
00002870 63 65 28 6d 65 6e 75 25 29 0d 0f 78 07 c9 31 30 |ce(menu%)..x..10|
00002880 0d 0f 82 07 c9 31 31 0d 0f 8c 07 c9 31 32 0d 0f |.....11.....12..|
00002890 96 1d c9 31 37 2c 31 38 3a f2 57 69 6d 70 5f 50 |...17,18:.Wimp_P|
000028a0 6f 6c 6c 4d 65 73 73 61 67 65 73 0d 0f a0 07 c9 |ollMessages.....|
000028b0 31 39 0d 0f aa 05 cb 0d 0f b4 0e fd 66 69 6e 69 |19..........fini|
000028c0 73 68 65 64 25 0d 0f be 05 e1 0d 0f c8 19 dd f2 |shed%...........|
000028d0 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 77 57 69 6e |Wimp_PollDrawWin|
000028e0 64 6f 77 0d 0f d2 0a ea 6d 6f 72 65 25 0d 0f dc |dow.....more%...|
000028f0 26 c8 99 22 57 69 6d 70 5f 52 65 64 72 61 77 57 |&.."Wimp_RedrawW|
00002900 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 b8 6d 6f |indow",,wimp%.mo|
00002910 72 65 25 0d 0f e6 13 77 69 6e 64 6f 77 25 3d 77 |re%....window%=w|
00002920 69 6d 70 25 21 30 0d 0f f0 41 78 5f 6f 72 69 67 |imp%!0...Ax_orig|
00002930 69 6e 25 3d 31 36 2b 77 69 6d 70 25 21 34 2d 77 |in%=16+wimp%!4-w|
00002940 69 6d 70 25 21 32 30 3a 79 5f 6f 72 69 67 69 6e |imp%!20:y_origin|
00002950 25 3d 2d 31 36 2b 77 69 6d 70 25 21 31 36 2d 77 |%=-16+wimp%!16-w|
00002960 69 6d 70 25 21 32 34 0d 0f fa 0b c8 95 6d 6f 72 |imp%!24......mor|
00002970 65 25 0d 10 04 2c e7 69 6e 74 65 72 66 61 63 65 |e%...,.interface|
00002980 25 8c c8 99 22 57 69 6d 70 5f 42 6f 72 64 65 72 |%..."Wimp_Border|
00002990 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 25 0d 10 |Window",,wimp%..|
000029a0 0e 2c f2 45 76 65 6e 74 5f 44 72 61 77 28 77 69 |.,.Event_Draw(wi|
000029b0 6e 64 6f 77 25 2c 78 5f 6f 72 69 67 69 6e 25 2c |ndow%,x_origin%,|
000029c0 79 5f 6f 72 69 67 69 6e 25 29 0d 10 18 26 c8 99 |y_origin%)...&..|
000029d0 22 57 69 6d 70 5f 47 65 74 52 65 63 74 61 6e 67 |"Wimp_GetRectang|
000029e0 6c 65 22 2c 2c 77 69 6d 70 25 b8 6d 6f 72 65 25 |le",,wimp%.more%|
000029f0 0d 10 22 05 ce 0d 10 2c 05 e1 0d 10 36 1a dd f2 |.."....,....6...|
00002a00 57 69 6d 70 5f 50 6f 6c 6c 43 6c 6f 73 65 57 69 |Wimp_PollCloseWi|
00002a10 6e 64 6f 77 0d 10 40 22 c8 99 22 57 69 6d 70 5f |ndow..@".."Wimp_|
00002a20 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 2c |GetPointerInfo",|
00002a30 2c 77 69 6d 70 25 0d 10 4a 25 77 69 6e 64 6f 77 |,wimp%..J%window|
00002a40 25 3d 77 69 6d 70 25 21 31 32 3a 62 75 74 74 6f |%=wimp%!12:butto|
00002a50 6e 73 25 3d 77 69 6d 70 25 21 38 0d 10 54 28 f2 |ns%=wimp%!8..T(.|
00002a60 45 76 65 6e 74 5f 57 69 6e 64 6f 77 43 6c 6f 73 |Event_WindowClos|
00002a70 65 28 77 69 6e 64 6f 77 25 2c 62 75 74 74 6f 6e |e(window%,button|
00002a80 73 25 29 0d 10 5e 2e 21 77 69 6d 70 25 3d 77 69 |s%)..^.!wimp%=wi|
00002a90 6e 64 6f 77 25 3a c8 99 22 57 69 6d 70 5f 43 6c |ndow%:.."Wimp_Cl|
00002aa0 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 77 69 6d 70 |oseWindow",,wimp|
00002ab0 25 0d 10 68 05 e1 0d 10 72 19 dd f2 57 69 6d 70 |%..h....r...Wimp|
00002ac0 5f 50 6f 6c 6c 4d 6f 75 73 65 43 6c 69 63 6b 0d |_PollMouseClick.|
00002ad0 10 7c 49 62 75 74 74 6f 6e 25 3d 77 69 6d 70 25 |.|Ibutton%=wimp%|
00002ae0 21 38 3a 77 69 6e 64 6f 77 25 3d 77 69 6d 70 25 |!8:window%=wimp%|
00002af0 21 31 32 3a 69 63 6f 6e 25 3d 77 69 6d 70 25 21 |!12:icon%=wimp%!|
00002b00 31 36 3a 78 25 3d 77 69 6d 70 25 21 30 3a 79 25 |16:x%=wimp%!0:y%|
00002b10 3d 77 69 6d 70 25 21 34 0d 10 86 0e c8 8e 62 75 |=wimp%!4......bu|
00002b20 74 74 6f 6e 25 ca 0d 10 90 1a c9 32 3a f2 57 69 |tton%......2:.Wi|
00002b30 6d 70 5f 50 6f 6c 6c 4d 65 6e 75 50 6f 70 55 70 |mp_PollMenuPopUp|
00002b40 0d 10 9a 1d 7f 3a c8 8e a4 45 76 65 6e 74 5f 53 |.....:...Event_S|
00002b50 61 76 65 28 77 69 6e 64 6f 77 25 29 ca 0d 10 a4 |ave(window%)....|
00002b60 1a c9 b9 3a f2 57 69 6d 70 5f 50 6f 6c 6c 4d 6f |...:.Wimp_PollMo|
00002b70 75 73 65 53 61 76 65 0d 10 ae 20 c9 a3 3a f2 57 |useSave... ..:.W|
00002b80 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e 74 4d 6f 75 |imp_PollEventMou|
00002b90 73 65 43 6c 69 63 6b 0d 10 b8 05 cb 0d 10 c2 05 |seClick.........|
00002ba0 cb 0d 10 cc 05 e1 0d 10 d6 18 dd f2 57 69 6d 70 |............Wimp|
00002bb0 5f 50 6f 6c 6c 4d 65 6e 75 50 6f 70 55 70 0d 10 |_PollMenuPopUp..|
00002bc0 e0 1e 6d 65 6e 75 25 3d a4 45 76 65 6e 74 5f 4d |..menu%=.Event_M|
00002bd0 65 6e 75 28 77 69 6e 64 6f 77 25 29 0d 10 ea 0c |enu(window%)....|
00002be0 c8 8e 6d 65 6e 75 25 ca 0d 10 f4 06 c9 a3 0d 10 |..menu%.........|
00002bf0 fe 05 7f 0d 11 08 0e c8 8e 77 69 6e 64 6f 77 25 |.........window%|
00002c00 ca 0d 11 12 0c c9 2d 32 3a 6e 25 3d 30 0d 11 1c |......-2:n%=0...|
00002c10 2a c8 95 28 28 42 61 72 5f 4d 65 6e 75 25 21 28 |*..((Bar_Menu%!(|
00002c20 32 38 2b 6e 25 2a 32 34 29 29 80 25 31 30 30 30 |28+n%*24)).%1000|
00002c30 30 30 30 30 29 3d 30 0d 11 26 09 6e 25 2b 3d 31 |0000)=0..&.n%+=1|
00002c40 0d 11 30 05 ce 0d 11 3a 31 c8 99 22 57 69 6d 70 |..0....:1.."Wimp|
00002c50 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c 42 61 |_CreateMenu",,Ba|
00002c60 72 5f 4d 65 6e 75 25 2c 78 25 2d 36 34 2c 39 36 |r_Menu%,x%-64,96|
00002c70 2b 6e 25 2a 34 34 0d 11 44 2c 7f 3a c8 99 22 57 |+n%*44..D,.:.."W|
00002c80 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c |imp_CreateMenu",|
00002c90 2c 6d 65 6e 75 25 2c 78 25 2d 36 34 2c 79 25 2b |,menu%,x%-64,y%+|
00002ca0 32 30 0d 11 4e 05 cb 0d 11 58 05 cb 0d 11 62 05 |20..N....X....b.|
00002cb0 e1 0d 11 6c 18 dd f2 57 69 6d 70 5f 50 6f 6c 6c |...l...Wimp_Poll|
00002cc0 4d 6f 75 73 65 53 61 76 65 0d 11 76 0c c8 8e 69 |MouseSave..v...i|
00002cd0 63 6f 6e 25 ca 0d 11 80 2e c9 30 3a e7 62 75 74 |con%......0:.but|
00002ce0 74 6f 6e 25 80 26 35 30 8c f2 57 69 6d 70 5f 50 |ton%.&50..Wimp_P|
00002cf0 6f 6c 6c 44 72 61 67 42 6f 78 28 77 69 6e 64 6f |ollDragBox(windo|
00002d00 77 25 29 0d 11 8a 2e c9 32 3a e7 62 75 74 74 6f |w%).....2:.butto|
00002d10 6e 25 80 20 35 8c f2 57 69 6d 70 5f 50 6f 6c 6c |n%. 5..Wimp_Poll|
00002d20 53 61 76 65 46 69 6c 65 28 77 69 6e 64 6f 77 25 |SaveFile(window%|
00002d30 29 0d 11 94 05 cb 0d 11 9e 05 e1 0d 11 a8 1e dd |)...............|
00002d40 f2 57 69 6d 70 5f 50 6f 6c 6c 45 76 65 6e 74 4d |.Wimp_PollEventM|
00002d50 6f 75 73 65 43 6c 69 63 6b 0d 11 b2 2a e7 69 6e |ouseClick...*.in|
00002d60 74 65 72 66 61 63 65 25 8c c8 99 22 57 69 6d 70 |terface%..."Wimp|
00002d70 5f 42 6f 72 64 65 72 49 63 6f 6e 22 2c 2c 77 69 |_BorderIcon",,wi|
00002d80 6d 70 25 0d 11 bc 32 f2 45 76 65 6e 74 5f 4d 6f |mp%...2.Event_Mo|
00002d90 75 73 65 43 6c 69 63 6b 28 77 69 6e 64 6f 77 25 |useClick(window%|
00002da0 2c 69 63 6f 6e 25 2c 62 75 74 74 6f 6e 25 2c 78 |,icon%,button%,x|
00002db0 25 2c 79 25 29 0d 11 c6 11 c8 8e 69 6e 74 65 72 |%,y%)......inter|
00002dc0 66 61 63 65 25 ca 0d 11 d0 06 c9 b9 0d 11 da 23 |face%..........#|
00002dd0 77 69 6d 70 25 21 30 3d 78 25 3a 77 69 6d 70 25 |wimp%!0=x%:wimp%|
00002de0 21 34 3d 79 25 3a 77 69 6d 70 25 21 38 3d 30 0d |!4=y%:wimp%!8=0.|
00002df0 11 e4 23 77 69 6d 70 25 21 31 32 3d 77 69 6e 64 |..#wimp%!12=wind|
00002e00 6f 77 25 3a 77 69 6d 70 25 21 31 36 3d 69 63 6f |ow%:wimp%!16=ico|
00002e10 6e 25 0d 11 ee 1e c8 99 22 57 69 6d 70 5f 42 6f |n%......"Wimp_Bo|
00002e20 72 64 65 72 49 63 6f 6e 22 2c 2c 77 69 6d 70 25 |rderIcon",,wimp%|
00002e30 0d 11 f8 05 cb 0d 12 02 05 e1 0d 12 0c 20 dd f2 |............. ..|
00002e40 57 69 6d 70 5f 50 6f 6c 6c 53 61 76 65 46 69 6c |Wimp_PollSaveFil|
00002e50 65 28 77 69 6e 64 6f 77 25 29 0d 12 16 0a ea 66 |e(window%).....f|
00002e60 69 6c 65 24 0d 12 20 3a 77 69 6d 70 25 21 30 3d |ile$.. :wimp%!0=|
00002e70 77 69 6e 64 6f 77 25 3a 77 69 6d 70 25 21 34 3d |window%:wimp%!4=|
00002e80 31 3a c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f |1:.."Wimp_GetIco|
00002e90 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 12 |nState",,wimp%..|
00002ea0 2a 15 66 69 6c 65 24 3d 24 28 77 69 6d 70 25 21 |*.file$=$(wimp%!|
00002eb0 32 38 29 0d 12 34 12 c8 8e a7 66 69 6c 65 24 2c |28)..4....file$,|
00002ec0 22 2e 22 29 ca 0d 12 3e 06 c9 30 0d 12 48 3d 24 |".")...>..0..H=$|
00002ed0 28 77 69 6d 70 25 2b 34 29 3d 22 54 6f 20 73 61 |(wimp%+4)="To sa|
00002ee0 76 65 2c 20 64 72 61 67 20 74 68 65 20 69 63 6f |ve, drag the ico|
00002ef0 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f 72 79 |n to a directory|
00002f00 20 77 69 6e 64 6f 77 22 0d 12 52 27 c8 99 22 57 | window"..R'.."W|
00002f10 69 6d 70 5f 52 65 70 6f 72 74 45 72 72 6f 72 22 |imp_ReportError"|
00002f20 2c 77 69 6d 70 25 2c 31 36 2c 74 61 73 6b 24 0d |,wimp%,16,task$.|
00002f30 12 5c 05 7f 0d 12 66 22 f2 45 76 65 6e 74 5f 53 |.\....f".Event_S|
00002f40 61 76 65 46 69 6c 65 28 66 69 6c 65 24 2c 77 69 |aveFile(file$,wi|
00002f50 6e 64 6f 77 25 29 0d 12 70 05 cb 0d 12 7a 1a c8 |ndow%)..p....z..|
00002f60 99 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e |."Wimp_CreateMen|
00002f70 75 22 2c 2d 31 0d 12 84 05 e1 0d 12 8e 1f dd f2 |u",-1...........|
00002f80 57 69 6d 70 5f 50 6f 6c 6c 44 72 61 67 42 6f 78 |Wimp_PollDragBox|
00002f90 28 77 69 6e 64 6f 77 25 29 0d 12 98 0a ea 78 25 |(window%).....x%|
00002fa0 2c 79 25 0d 12 a2 11 73 61 76 65 25 3d 77 69 6e |,y%....save%=win|
00002fb0 64 6f 77 25 0d 12 ac 12 21 77 69 6d 70 25 3d 77 |dow%....!wimp%=w|
00002fc0 69 6e 64 6f 77 25 0d 12 b6 22 c8 99 22 57 69 6d |indow%...".."Wim|
00002fd0 70 5f 47 65 74 57 69 6e 64 6f 77 53 74 61 74 65 |p_GetWindowState|
00002fe0 22 2c 2c 77 69 6d 70 25 0d 12 c0 2c 78 25 3d 77 |",,wimp%...,x%=w|
00002ff0 69 6d 70 25 21 34 2d 77 69 6d 70 25 21 32 30 3a |imp%!4-wimp%!20:|
00003000 79 25 3d 77 69 6d 70 25 21 31 36 2d 77 69 6d 70 |y%=wimp%!16-wimp|
00003010 25 21 32 34 0d 12 ca 0d 77 69 6d 70 25 21 34 3d |%!24....wimp%!4=|
00003020 30 0d 12 d4 20 c8 99 22 57 69 6d 70 5f 47 65 74 |0... .."Wimp_Get|
00003030 49 63 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 |IconState",,wimp|
00003040 25 0d 12 de 12 21 77 69 6d 70 25 3d 77 69 6e 64 |%....!wimp%=wind|
00003050 6f 77 25 0d 12 e8 0d 77 69 6d 70 25 21 34 3d 35 |ow%....wimp%!4=5|
00003060 0d 12 f2 2b 77 69 6d 70 25 21 38 3d 78 25 2b 77 |...+wimp%!8=x%+w|
00003070 69 6d 70 25 21 38 3a 77 69 6d 70 25 21 31 32 3d |imp%!8:wimp%!12=|
00003080 79 25 2b 77 69 6d 70 25 21 31 32 0d 12 fc 2d 77 |y%+wimp%!12...-w|
00003090 69 6d 70 25 21 31 36 3d 78 25 2b 77 69 6d 70 25 |imp%!16=x%+wimp%|
000030a0 21 31 36 3a 77 69 6d 70 25 21 32 30 3d 79 25 2b |!16:wimp%!20=y%+|
000030b0 77 69 6d 70 25 21 32 30 0d 13 06 19 77 69 6d 70 |wimp%!20....wimp|
000030c0 25 21 32 34 3d 30 3a 77 69 6d 70 25 21 32 38 3d |%!24=0:wimp%!28=|
000030d0 30 0d 13 10 29 77 69 6d 70 25 21 33 32 3d 26 37 |0...)wimp%!32=&7|
000030e0 46 46 46 46 46 46 46 3a 77 69 6d 70 25 21 33 36 |FFFFFFF:wimp%!36|
000030f0 3d 26 37 46 46 46 46 46 46 46 0d 13 1a 1b c8 99 |=&7FFFFFFF......|
00003100 22 57 69 6d 70 5f 44 72 61 67 42 6f 78 22 2c 2c |"Wimp_DragBox",,|
00003110 77 69 6d 70 25 0d 13 24 05 e1 0d 13 2e 17 dd f2 |wimp%..$........|
00003120 57 69 6d 70 5f 50 6f 6c 6c 4b 65 79 50 72 65 73 |Wimp_PollKeyPres|
00003130 73 0d 13 38 2f 77 69 6e 64 6f 77 25 3d 77 69 6d |s..8/window%=wim|
00003140 70 25 21 30 3a 69 63 6f 6e 25 3d 77 69 6d 70 25 |p%!0:icon%=wimp%|
00003150 21 34 3a 6b 65 79 25 3d 77 69 6d 70 25 21 32 34 |!4:key%=wimp%!24|
00003160 0d 13 42 1b c8 8e a4 45 76 65 6e 74 5f 53 61 76 |..B....Event_Sav|
00003170 65 28 77 69 6e 64 6f 77 25 29 ca 0d 13 4c 22 c9 |e(window%)...L".|
00003180 b9 3a f2 57 69 6d 70 50 6f 6c 6c 5f 53 61 76 65 |.:.WimpPoll_Save|
00003190 46 69 6c 65 28 77 69 6e 64 6f 77 25 29 0d 13 56 |File(window%)..V|
000031a0 2a c9 a3 3a f2 45 76 65 6e 74 5f 4b 65 79 50 72 |*..:.Event_KeyPr|
000031b0 65 73 73 28 77 69 6e 64 6f 77 25 2c 69 63 6f 6e |ess(window%,icon|
000031c0 25 2c 6b 65 79 25 29 0d 13 60 05 cb 0d 13 6a 05 |%,key%)..`....j.|
000031d0 e1 0d 13 74 1a dd f2 57 69 6d 70 5f 50 6f 6c 6c |...t...Wimp_Poll|
000031e0 53 61 76 65 4d 65 73 73 61 67 65 0d 13 7e 1e ea |SaveMessage..~..|
000031f0 66 69 6c 65 24 2c 77 69 6e 64 6f 77 25 2c 69 63 |file$,window%,ic|
00003200 6f 6e 25 2c 78 25 2c 79 25 0d 13 88 22 c8 99 22 |on%,x%,y%...".."|
00003210 57 69 6d 70 5f 47 65 74 50 6f 69 6e 74 65 72 49 |Wimp_GetPointerI|
00003220 6e 66 6f 22 2c 2c 77 69 6d 70 25 0d 13 92 39 77 |nfo",,wimp%...9w|
00003230 69 6e 64 6f 77 25 3d 77 69 6d 70 25 21 31 32 3a |indow%=wimp%!12:|
00003240 69 63 6f 6e 25 3d 77 69 6d 70 25 21 31 36 3a 78 |icon%=wimp%!16:x|
00003250 25 3d 77 69 6d 70 25 21 30 3a 79 25 3d 77 69 6d |%=wimp%!0:y%=wim|
00003260 70 25 21 34 0d 13 9c 38 77 69 6d 70 25 21 30 3d |p%!4...8wimp%!0=|
00003270 73 61 76 65 25 3a 77 69 6d 70 25 21 34 3d 31 3a |save%:wimp%!4=1:|
00003280 c8 99 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 |.."Wimp_GetIconS|
00003290 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d 13 a6 15 |tate",,wimp%....|
000032a0 66 69 6c 65 24 3d 24 28 77 69 6d 70 25 21 32 38 |file$=$(wimp%!28|
000032b0 29 0d 13 b0 2a 66 69 6c 65 24 3d a4 57 69 6d 70 |)...*file$=.Wimp|
000032c0 5f 47 65 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 |_GetFileFromPath|
000032d0 6e 61 6d 65 28 66 69 6c 65 24 29 0d 13 ba 14 77 |name(file$)....w|
000032e0 69 6d 70 25 21 32 30 3d 77 69 6e 64 6f 77 25 0d |imp%!20=window%.|
000032f0 13 c4 12 77 69 6d 70 25 21 32 34 3d 69 63 6f 6e |...wimp%!24=icon|
00003300 25 0d 13 ce 1b 77 69 6d 70 25 21 32 38 3d 78 25 |%....wimp%!28=x%|
00003310 3a 77 69 6d 70 25 21 33 32 3d 79 25 0d 13 d8 14 |:wimp%!32=y%....|
00003320 77 69 6d 70 25 21 33 36 3d 6c 65 6e 67 74 68 25 |wimp%!36=length%|
00003330 0d 13 e2 0e 77 69 6d 70 25 21 30 3d 36 34 0d 13 |....wimp%!0=64..|
00003340 ec 0e 77 69 6d 70 25 21 31 32 3d 30 0d 13 f6 0e |..wimp%!12=0....|
00003350 77 69 6d 70 25 21 31 36 3d 31 0d 14 00 11 77 69 |wimp%!16=1....wi|
00003360 6d 70 25 21 34 30 3d 26 46 46 46 0d 14 0a 15 24 |mp%!40=&FFF....$|
00003370 28 77 69 6d 70 25 2b 34 34 29 3d 66 69 6c 65 24 |(wimp%+44)=file$|
00003380 0d 14 14 33 c8 99 22 57 69 6d 70 5f 53 65 6e 64 |...3.."Wimp_Send|
00003390 4d 65 73 73 61 67 65 22 2c 31 37 2c 77 69 6d 70 |Message",17,wimp|
000033a0 25 2c 77 69 6d 70 25 21 32 30 2c 77 69 6d 70 25 |%,wimp%!20,wimp%|
000033b0 21 32 34 0d 14 1e 05 e1 0d 14 28 17 dd f2 57 69 |!24.......(...Wi|
000033c0 6d 70 5f 50 6f 6c 6c 4d 65 73 73 61 67 65 73 0d |mp_PollMessages.|
000033d0 14 32 0a ea 66 69 6c 65 24 0d 14 3c 2c 66 69 6c |.2..file$..<,fil|
000033e0 65 24 3d a4 57 69 6d 70 5f 47 65 74 53 74 72 69 |e$=.Wimp_GetStri|
000033f0 6e 67 41 74 41 64 64 72 65 73 73 28 77 69 6d 70 |ngAtAddress(wimp|
00003400 25 2b 34 34 29 0d 14 46 0f c8 8e 77 69 6d 70 25 |%+44)..F...wimp%|
00003410 21 31 36 ca 0d 14 50 12 c9 30 3a 66 69 6e 69 73 |!16...P..0:finis|
00003420 68 65 64 25 3d b9 0d 14 5a 06 c9 31 0d 14 64 06 |hed%=...Z..1..d.|
00003430 c9 32 0d 14 6e 38 77 69 6d 70 25 21 30 3d 73 61 |.2..n8wimp%!0=sa|
00003440 76 65 25 3a 77 69 6d 70 25 21 34 3d 31 3a c8 99 |ve%:wimp%!4=1:..|
00003450 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 |"Wimp_GetIconSta|
00003460 74 65 22 2c 2c 77 69 6d 70 25 0d 14 78 15 24 28 |te",,wimp%..x.$(|
00003470 77 69 6d 70 25 21 32 38 29 3d 66 69 6c 65 24 0d |wimp%!28)=file$.|
00003480 14 82 30 77 69 6d 70 25 21 30 3d 73 61 76 65 25 |..0wimp%!0=save%|
00003490 3a 77 69 6d 70 25 21 34 3d 31 3a 77 69 6d 70 25 |:wimp%!4=1:wimp%|
000034a0 21 38 3d 30 3a 77 69 6d 70 25 21 31 32 3d 30 0d |!8=0:wimp%!12=0.|
000034b0 14 8c 20 c8 99 22 57 69 6d 70 5f 53 65 74 49 63 |.. .."Wimp_SetIc|
000034c0 6f 6e 53 74 61 74 65 22 2c 2c 77 69 6d 70 25 0d |onState",,wimp%.|
000034d0 14 96 31 c8 99 22 57 69 6d 70 5f 53 65 74 43 61 |..1.."Wimp_SetCa|
000034e0 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 73 61 76 |retPosition",sav|
000034f0 65 25 2c 31 2c 2c 2c 2d 31 2c a9 66 69 6c 65 24 |e%,1,,,-1,.file$|
00003500 0d 14 a0 20 f2 45 76 65 6e 74 5f 53 61 76 65 46 |... .Event_SaveF|
00003510 69 6c 65 28 66 69 6c 65 24 2c 73 61 76 65 25 29 |ile(file$,save%)|
00003520 0d 14 aa 06 c9 33 0d 14 b4 3f 74 79 70 65 24 3d |.....3...?type$=|
00003530 a4 57 69 6d 70 5f 46 69 6c 65 54 79 70 65 28 77 |.Wimp_FileType(w|
00003540 69 6d 70 25 21 34 30 29 3a f2 45 76 65 6e 74 5f |imp%!40):.Event_|
00003550 4c 6f 61 64 46 69 6c 65 28 66 69 6c 65 24 2c 74 |LoadFile(file$,t|
00003560 79 70 65 24 29 0d 14 be 05 cb 0d 14 c8 05 e1 0d |ype$)...........|
00003570 14 d2 25 dd a4 57 69 6d 70 5f 47 65 74 53 74 72 |..%..Wimp_GetStr|
00003580 69 6e 67 41 74 41 64 64 72 65 73 73 28 61 72 72 |ingAtAddress(arr|
00003590 61 79 25 29 0d 14 dc 0d ea 73 24 3a 73 24 3d 22 |ay%).....s$:s$="|
000035a0 22 0d 14 e6 3b c8 95 28 3f 61 72 72 61 79 25 3c |"...;..(?array%<|
000035b0 3e 31 33 29 80 28 3f 61 72 72 61 79 25 3c 3e 30 |>13).(?array%<>0|
000035c0 29 3a 73 24 2b 3d bd 28 3f 61 72 72 61 79 25 29 |):s$+=.(?array%)|
000035d0 3a 61 72 72 61 79 25 2b 3d 31 3a ce 0d 14 f0 07 |:array%+=1:.....|
000035e0 3d 73 24 0d 14 fa 22 dd a4 57 69 6d 70 5f 47 65 |=s$..."..Wimp_Ge|
000035f0 74 46 69 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d |tFileFromPathnam|
00003600 65 28 66 24 29 0d 15 04 0f c8 8e a7 66 24 2c 22 |e(f$).......f$,"|
00003610 2e 22 29 ca 0d 15 0e 0a c9 30 3a 3d 66 24 0d 15 |.")......0:=f$..|
00003620 18 35 7f 3a 3d a4 57 69 6d 70 5f 47 65 74 46 69 |.5.:=.Wimp_GetFi|
00003630 6c 65 46 72 6f 6d 50 61 74 68 6e 61 6d 65 28 c2 |leFromPathname(.|
00003640 66 24 2c a9 28 66 24 29 2d a7 66 24 2c 22 2e 22 |f$,.(f$)-.f$,"."|
00003650 29 29 29 0d 15 22 05 cb 0d 15 2c 1a dd a4 57 69 |))).."....,...Wi|
00003660 6d 70 5f 46 69 6c 65 54 79 70 65 28 74 79 70 65 |mp_FileType(type|
00003670 25 29 0d 15 36 0c c8 8e 74 79 70 65 25 ca 0d 15 |%)..6...type%...|
00003680 40 11 c9 26 46 46 46 3a 3d 22 54 65 78 74 22 0d |@..&FFF:="Text".|
00003690 15 4a 11 c9 26 46 46 44 3a 3d 22 44 61 74 61 22 |.J..&FFD:="Data"|
000036a0 0d 15 54 12 c9 26 46 46 42 3a 3d 22 42 61 73 69 |..T..&FFB:="Basi|
000036b0 63 22 0d 15 5e 13 c9 26 46 46 39 3a 3d 22 53 70 |c"..^..&FF9:="Sp|
000036c0 72 69 74 65 22 0d 15 68 14 c9 26 46 45 44 3a 3d |rite"..h..&FED:=|
000036d0 22 50 61 6c 65 74 74 65 22 0d 15 72 15 c9 26 46 |"Palette"..r..&F|
000036e0 45 43 3a 3d 22 54 65 6d 70 6c 61 74 65 22 0d 15 |EC:="Template"..|
000036f0 7c 11 c9 26 41 46 46 3a 3d 22 44 72 61 77 22 0d ||..&AFF:="Draw".|
00003700 15 86 14 c9 26 31 30 30 30 3a 3d 22 46 6f 6c 64 |....&1000:="Fold|
00003710 65 72 22 0d 15 90 19 c9 26 32 30 30 30 3a 3d 22 |er".....&2000:="|
00003720 41 70 70 6c 69 63 61 74 69 6f 6e 22 0d 15 9a 0f |Application"....|
00003730 7f 3d c3 7e 28 74 79 70 65 25 29 0d 15 a4 05 cb |.=.~(type%).....|
00003740 0d ff |..|
00003742 
.