!AWMar94/Goodies/Protect/!Unlock/!RunImage

Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94 » !AWMar94/Goodies/Protect/!Unlock/!RunImage

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk:	Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94
Filename:	!AWMar94/Goodies/Protect/!Unlock/!RunImage
Read OK:	✔
File size:	49BF bytes
Load address:	0000
Exec address:	0000

D��< ��40����Q��Z���BASIC -Quit @00009000,0000D970�p���pI

!�Wimp_Start("Unlock",557,314)
�User_SetInitialData
�Create_Windows
(�Create_Menus
2�Wimp_WaitForEvent
<�Wimp_CloseDown
F�
Z� �User_SetInitialData
d"ș "OS_Byte",129,0,&FF � ,Bit%
n� Bit%<&A3 �
x *SET Alias$Filer_Run Run %%0
��
�areasize%=1024*32
�� area% areasize%
�+path$=�Wimp_ReadVariable("UnLock$File")
�1cur$=�Wimp_ReadVariable("UnLock$SlotCurrent")
�.nex$=�Wimp_ReadVariable("UnLock$SlotNext")
�cur%=�(cur$)
�nex%=�(nex$)
�filetype%=0
�password$=""
�� pass%(26)
�� y%(28)
�
� �Create_Windows
"B� modexshift%,modeyshift%,rightscr%,topscr%,x1%,y1%,xo%,yo%,a$
,)Main_Window%=�Wimp_WindowLoad("Main")
63Info_Window%=�Wimp_WindowLoad("Info"):a$="Task"
T1ș "OS_ReadModeVariable",-1,4 � ,,modexshift%
^1ș "OS_ReadModeVariable",-1,5 � ,,modeyshift%
h0ș "OS_ReadModeVariable",-1,11 � ,,rightscr%
r.ș "OS_ReadModeVariable",-1,12 � ,,topscr%
|$rightscr%=rightscr%<<modexshift%
� topscr%=topscr%<<modeyshift%
�x1%=574:a$+="Wimp"
�y1%=212
�xo%=rightscr%/2-x1%/2
�yo%=topscr%/2-y1%/2
�(wimp%!0=Main_Window%:a$+="Initilise"
�wimp%!4=xo%
�wimp%!8=yo%
�wimp%!12=x1%+xo%
�wimp%!16=y1%+yo%
�ș"Wimp_OpenWindow",,wimp%
�(�Wimp_WindowBringToTop(Main_Window%)
�a$+="Application"
6�Wimp_IconPutText(Main_Window%,2,"..."+�path$,24))
(�Wimp_IconPutText(Main_Window%,5,"")
%�Wimp_IconCaret(Main_Window%,5,0)
&� stage%=1 � 28
0y%(stage%)=�(�a$,stage%,1))
:� stage%
Dstage%=0
N�
b� �Event_Save(window%)=�
v&� �Event_Sprites(window%)=sprites%
�� �Create_Menus
�)menu$="Unlock\Info>Info_Window%\Quit"
�&Main_Menu%=�Wimp_MenuCreate(menu$)
��
�� �Event_Menu(window%)
�Ȏ window% �
�� Bar_Window%        :=�
�%� Main_Window%       :=Main_Menu%
�               :=�
��
*� �Event_WindowClose(window%,buttons%)
Ȏ window% �
&� Main_Window%        :finished%=�
 �
*�
>.� �Event_Draw(window%,x_origin%,y_origin%)
HȎ window% �
R/� Main_Window%        :�User_DrawMainWindow
\/� Info_Window%        :�User_DrawInfoWindow
f�
p�
�� �User_DrawMainWindow
��
�� �User_DrawInfoWindow
��
�4� �Event_MouseClick(window%,icon%,button%,x%,y%)
�Ȏ window% �
�9� Main_Window%       :�User_MouseMain( button%,icon%)
��
��
�� �Event_MenuChoice(menu%)
Ȏ menu% �
/� Main_Menu%          :�User_MenuChoiceMain
�
$�
8� �User_MenuChoiceMain
BȎ �Wimp_MenuChoice(0) �
L� 1 
V� 2 :finished%=�
`�
j�
~%� �User_MouseMain( button%,icon%)
�E�Wimp_WindowAlert("Main","Mouse button="+�button%+"icon="+�icon%)
��
�%� �User_MouseInfo( button%,icon%)
�E�Wimp_WindowAlert("Info","Mouse button="+�button%+"icon="+�icon%)
��
�)� �Event_KeyPress(window%,icon%,key%)
�Ȏ window% �
�9� Main_Window%       :�User_KeyPressMain( icon%,key%)
��
��

%� �User_KeyPressMain( icon%,key%)
� key%=13 � icon%=5 �
#�Wimp_WindowClose(Main_Window%)
(�Encrypt
2�
<�
P� �Event_MenuChoice(menu%)
ZȎ menu% �
d�
n�
�"� �Event_LoadFile(file$,type$)
��
�$� �Event_SaveFile(file$,window%)
��
�
��Encrypt
�ș"Hourglass_On"
�
add%=0
�infile%=�(path$)
� �
Z� � � �Wimp_WindowErrorBox("Protector","Tempory file could not be created"):�"CLOSE":�
"outfile%=�("<Wimp$Scrap>")
,� �
@#�Wimp_WindowClose(Main_Window%)
T�#infile%,temp$
^filetype%=�(temp$)
h,password$=�Wimp_IconText(Main_Window%,5)
rl%=�(password$)
�� x%=1 � l%
�!pass%(x%)=�(�password$,x%,1))
�� x%
��
�2ș"OS_GBPB",4,infile%,area%,areasize% � ,,add%
�count%=0
�
count2%=0
�� x%=0 � add%-area%
�
count%+=1
�count2%+=1
�)area%?(x%)=(y%(count2%) � area%?(x%))
+area%?(x%)=(pass%(count%) � area%?(x%))
� count%=l% �count%=0
� count2%=28 �count2%=0
&� x%
:� �
Dp� � � �Wimp_WindowErrorBox("Protector","Error writing to output file"):�"CLOSE":�"WIPE F~C~V <Wimp$Scrap>":�
N+ș"OS_GBPB",2,outfile%,area%,add%-area%
X� �
l� �#infile%
v�#outfile%
�
�#infile%
�*�"SETTYPE <Wimp$Scrap> "+�~(filetype%)
�$�"SET Obey$Dir <UnlockObey$Dir>"
�� �
�� � � �Remove:�
�� filetype%=&ffa �
��"RMRun <Wimp$Scrap>"
��
�/ș"Wimp_SlotSize",-1,cur% � cur%,nex2%,fre%
�"Filer_Run <Wimp$Scrap>"
�
� �
 �Remove
*�
H��Remove
Rș"Hourglass_Off"
\$�"Filer_Run <Unlock$Dir>.Remove"
f�"UNSET UnlockObey$Dir"
p�"UNSET Unlock$File"
zfinished%=�
��
�(� �Wimp_WindowAlert(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,0)
��
3� �Wimp_WindowAlertBox(title$,message$,button%)
� response%
$(wimp%+4)=message$
"Ȏ button% �
,� 2    :response%=1
6� 1    :response%=15
@� 3    :response%=(1<<5)+16
J� 4    :response%=(1<<6)+16
T :response%=16
^�
h=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
r�
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
�response%=23
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
�=response%-2
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
��
� � �Wimp_WindowTitle(window%)
�wimp%!0=window%
� ș "Wimp_GetWindInfo",,wimp%
6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
=$(wimp%!76)
&� �Wimp_WindowLoad(window$)
0;=�Wimp_WindowLoadFrom(window$,"<Unlock$Dir>.Templates")
D-� �Wimp_WindowLoadFrom(window$,template$)
N� c%,i%,n%,j%,sp$,sp2$
X%ș "Wimp_OpenTemplate",,template$
bMș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
lȎ sprites% �
v� 1    :wimp%!64=sprites%
�' :wimp%!64=�Event_Sprites(window%)
��
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
�7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ wimp%!40 �
�� -1   
� :i%=40
��
� wimp%!4=wimp%!i% :wimp%!0=c%
�!ș "Wimp_GetIconState",,wimp%
�*sp$=�Wimp_GetStringAtAddress(wimp%!28)
�ș "Wimp_DeleteIcon",,wimp%

Ȏ sprites% �

� 1    :wimp%!32=1

 

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

*j%=0

4� :j%+=1

>7ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%

H1sp2$=�Wimp_GetStringAtAddress(pointer_block%)

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

\-� sp$=sp2$ �wimp%!32=sprites% �wimp%!32=1

f�

pwimp%!4=c%

z+ș "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%)
8Ȏ window% �
B6� -1   :ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
L7 :ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
V�
`�
t� �Wimp_WindowOpen(window%)
~!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
�ș "Wimp_OpenWindow",,wimp%
��
��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%
6+� �Wimp_IconCaret(window%,icon%,chars%)
@8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
J�
^#� �Wimp_IconText(window%,icon%)
h"wimp%!0=window% :wimp%!4=icon%
r!ș "Wimp_GetIconState",,wimp%
|7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(wimp%!28)
�)� �Wimp_IconValidation(window%,icon%)
�"wimp%!0=window% :wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(wimp%!32)
�&� �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
0!ș "Wimp_SetIconState",,wimp%
:�
N0� �Wimp_IconPutSprite(window%,icon%,sprite$)
X!wimp%!0=window%:wimp%!4=icon%
b!ș "Wimp_GetIconState",,wimp%
lș "Wimp_DeleteIcon",,wimp%
v;wimp%!4=wimp%!8   :wimp%!8=wimp%!12  :wimp%!12=wimp%!16
�=wimp%!16=wimp%!20 :wimp%!20=wimp%!24 :$(wimp%+24)=sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�,� �Wimp_IconPutText(window%,icon%,text$)
�"wimp%!0=window% :wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�$(wimp%!28)=text$
�"wimp%!0=window% :wimp%!4=icon%
�wimp%!8=0 :wimp%!12=0
�!ș "Wimp_SetIconState",,wimp%
��
� �Wimp_IconInterfaceStart
ș"Wimp_BorderIcon",,wimp%
 �
4� �Wimp_IconInterfaceFinish
>
wimp%!8=0
Hș"Wimp_BorderIcon",,wimp%
R�
�� �Wimp_MenuAdjustOn(menu%)
�,ș "Wimp_GetPointerInfo",,pointer_block%
�]� ((pointer_block%!8)�1)=1 �ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
�
� �Wimp_MenuChoice(level%)
=(wimp%!(4*level%))+1
2� �Wimp_MenuCreate(menu$)
<)� menu$="Colours" �=�Wimp_MenuColours
F'� menu%,index%,width%,length%,k%,s%
P.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
Z5menu%?12=7   :menu%?13=2  :menu%?14=7 :menu%?15=0
d)menu%!16=140 :menu%!20=44 :menu%!24=0
nindex%=menu%+28
x $menu%=�menu$,�menu$,"\")-1)
�#width%=�(�menu$,�menu$,"\")-1))
�#menu$+="\" :Menu_NoOfEntries%=0
�ȕ menu$<>""
�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%)
6$� length%>width% �width%=length%
@index%+=24
J�
T�
^menu%!16=16*(width%+1)
h'index%!-24=index%!-24 � &80 :=menu%
|� �Wimp_MenuColours
�!=�Wimp_MenuCreateColours(" ")
�%� �Wimp_MenuCreateColours(title$)
�� x$,men%,j%,i%
�6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
�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$)
0� n% ,j% :n%=0 :j%=0
:�
Dj%=�menu$,"\",j%+1)
N� j%<>0 �n%+=1
X
� j%=0
b=n%
v5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
�� fore%,i%
�&fore%=(menu%?(39+(item%-1)*24))�16
�(i%=((menu%?(39+(item%-1)*24))�16)�16
�/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
��
�#� �Wimp_MenuCentre(menu%,item%)
�:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
��
�� �Wimp_MenuClose
�ș "Wimp_CreateMenu",-1
��
$� �Wimp_MenuDisable(menu%,item%)
;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
 �
4'� �Wimp_MenuDottedLine(menu%,item%)
>7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
H�
\#� �Wimp_MenuEnable(menu%,item%)
f"�Wimp_MenuDisable(menu%,item%)
p;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
z�
�5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
�Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
��
�)� �Wimp_MenuGlue(menu1%,item%,menu2%)
�menu1%!(8+item%*24)=menu2%
��
�'� �Wimp_MenuItem(menu%,item%,item$)
�,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
��
$� �Wimp_MenuMessage(menu%,item%)
<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
�
."� �Wimp_MenuPopUp(Menu%,x%,y%)
8menu%=Menu%
B+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
L�
`� �Wimp_MenuPopUpBar(x%,y%)
j� n% :n%=0
t+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
~	n%+=1
��
�2ș "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%)
7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
(#menu%!(40+(item%-1)*24)=buffer%
2 menu%!(44+(item%-1)*24)=val%
<)menu%!(48+(item%-1)*24)=BufferLength%
F�
,� �Wimp_SpritesLoad
61�Wimp_SpritesPathLoad("<Unlock$Dir>.Sprites")
@direct_sprites%=sprites%
J�
^&� �Wimp_SpritesPathLoad(pathname$)
h
�S%,T%
r.S%=�"<Unlock$Dir>.Sprites":T%=�#S%+16:�#S%
|�sprites%T%,spname%12
�!sprites%=T%:sprites%!8=0
�!ș"OS_SpriteOp",&109,sprites%
�+ș"OS_SpriteOp",&10A,sprites%,pathname$
��
�� �Wimp_FileType(type%)
�Ȏtype%�
��&FFF:="Text"
��&FFD:="Data"
��&FFB:="Basic"
��&FF9:="Sprite"
��&FED:="Palette"
��&FEC:="Template"
�&AFF:="Draw"
�&1000:="Folder"
�&2000:="Application"
 =�~(type%)
*�
>� �Wimp_GetFilePathName
H'=�Wimp_GetStringAtAddress(wimp%+44)
\� �Wimp_FileLoad(pathname$)
f�S%,T%,file%
pS%=�pathname$
zT%=�#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$
6 :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
�
$� �Wimp_SendToEdit(file$)
.� n%
8wimp%!4=&6CC01C0C
Bwimp%!16=5
Lwimp%!36=0
Vwimp%!40=&FFF
`$(wimp%+44)=file$+�0
jn%=�file$+45
t*� 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 ")
63� I% �params$=�com$,�com$," ",I%+�" -quit ")+1)
@=params$
T� �Wimp_SetEventVariables
^� pointer_block% 20
hinterface%=�
r,null%=1  :draw%=2 :pointer_leaving%=1<<4
|1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
�&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
 0EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
 :$(ErrorMsg%+24)="!RunImage"
 D%ș"Wimp_SendMessage",17,ErrorMsg%
 N�Wimp_WindowAlert(task$,X$)
 X�Wimp_CloseDown
 b�
 v� �Wimp_CloseDown
 �#ș"Wimp_CloseDown",task%,"TASK"
 ��
 �� �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)
!z� �Wimp_WaitForEvent
!�� mask%,event%
!�finished%=�
!�mask%=%111000011001
!��
!�&ș"Wimp_Poll",mask%,wimp% � event%
!�Ȏ event% �
!��0 
!��1 :�Wimp_PollDrawWindow
!�#�2 :ș "Wimp_OpenWindow",,wimp%
!��3 :�Wimp_PollCloseWindow
!��4 
!��5 
!��6 :�Wimp_PollMouseClick
"�7 :�Wimp_PollSaveMessage
"�8 :�Wimp_PollKeyPress
" �9 :�Event_MenuChoice(menu%)
"$�10
".�11
"8�12
"B�17,18:�Wimp_PollMessages
"L�19
"V�
"`� finished%
"j�
"~� �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%
"��
"��
"�� �Wimp_PollCloseWindow
##ș "Wimp_GetPointerInfo",,wimp%
#
&window%=wimp%!12 :buttons%=wimp%!8
#(�Event_WindowClose(window%,buttons%)
#0!wimp%=window% :ș "Wimp_CloseWindow",,wimp%
#(�
#<� �Wimp_PollMouseClick
#FIbutton%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
#PȎ button% �
#Z�2    :�Wimp_PollMenuPopUp
#d:Ȏ �Event_Save(window%) �
#n� � :�Wimp_PollMouseSave
#x!� �:�Wimp_PollEventMouseClick
#��
#��
#��
#�� �Wimp_PollMenuPopUp
#�menu%=�Event_Menu(window%)
#�Ȏ menu%  �
#�� �
#� 
#�Ȏ window% �
#�� -2   :n%=0
#�+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
#�	n%+=1
$�
$2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
$- :ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
$"�
$,�
$6�
$J� �Wimp_PollMouseSave
$TȎ icon% �
$^4� 0 :� button% � &50 ��Wimp_PollDragBox(window%)
$h3� 2 :� button% � 5 ��Wimp_PollSaveFile(window%)
$r�
$|�
$�� �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)
%&Ȏ �file$,".") �
%0
� 0   
%:=$(wimp%+4)="To save, drag the icon to a directory window"
%D(ș "Wimp_ReportError",wimp%,16,task$
%N
%X"�Event_SaveFile(file$,window%)
%b�
%lș"Wimp_CreateMenu",-1
%v�
%� � �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%
& �
&4� �Wimp_PollKeyPress
&>/window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
&HȎ �Event_Save(window%) �
&R$� � :�WimpPoll_SaveFile(window%)
&\+� �:�Event_KeyPress(window%,icon%,key%)
&f�
&p�
&�� �Wimp_PollSaveMessage
&��file$,window%,icon%,x%,y%
&�"ș"Wimp_GetPointerInfo",,wimp%
&�9window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
&�;wimp%!0=save% :wimp%!4=1 :ș "Wimp_GetIconState",,wimp%
&�file$=$(wimp%!28)
&�*file$=�Wimp_GetFileFromPathname(file$)
&�wimp%!20=window%
&�wimp%!24=icon%
&�wimp%!28=x%:wimp%!32=y%
&�wimp%!36=length%
&�wimp%!0=64
&�wimp%!12=0
'wimp%!16=1
'wimp%!40=&FFF
'$(wimp%+44)=file$
'$3ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
'.�
'B� �Wimp_PollMessages
'L� file$
'V,file$=�Wimp_GetStringAtAddress(wimp%+44)
'`Ȏ wimp%!16 �
'j� 0 :finished%=�
't� 1 
'~� 2 
'�;wimp%!0=save% :wimp%!4=1 :ș "Wimp_GetIconState",,wimp%
'�$(wimp%!28)=file$
'�3wimp%!0=save% :wimp%!4=1 :wimp%!8=0 :wimp%!12=0
'�!ș "Wimp_SetIconState",,wimp%
'�2ș "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Ȏ �f$,".") �
(P� 0    :=f$
(Z6 :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
(d�
(x� �Wimp_FileType(type%)
(�Ȏtype%�
(��&FFF:="Text"
(��&FFD:="Data"
(��&FFB:="Basic"
(��&FF9:="Sprite"
(��&FED:="Palette"
(��&FEC:="Template"
(��&AFF:="Draw"
(��&1000:="Folder"
(��&2000:="Application"
(�=�~(type%)
(��
�

00000000  44 10 9f e5 3c 20 9f e5  34 30 9f e5 04 00 12 e4  |D...< ..40......|
00000010  04 00 03 e4 04 10 51 e2  fb ff ff 5a 00 00 8f e2  |......Q....Z....|
00000020  05 00 00 ef 42 41 53 49  43 20 2d 51 75 69 74 20  |....BASIC -Quit |
00000030  40 30 30 30 30 39 30 30  30 2c 30 30 30 30 44 39  |@00009000,0000D9|
00000040  37 30 00 9a 70 d9 00 00  c0 c9 00 00 70 49 00 00  |70..p.......pI..|
00000050  0d 00 0a 21 f2 57 69 6d  70 5f 53 74 61 72 74 28  |...!.Wimp_Start(|
00000060  22 55 6e 6c 6f 63 6b 22  2c 35 35 37 2c 33 31 34  |"Unlock",557,314|
00000070  29 0d 00 14 18 f2 55 73  65 72 5f 53 65 74 49 6e  |).....User_SetIn|
00000080  69 74 69 61 6c 44 61 74  61 0d 00 1e 13 f2 43 72  |itialData.....Cr|
00000090  65 61 74 65 5f 57 69 6e  64 6f 77 73 0d 00 28 11  |eate_Windows..(.|
000000a0  f2 43 72 65 61 74 65 5f  4d 65 6e 75 73 0d 00 32  |.Create_Menus..2|
000000b0  16 f2 57 69 6d 70 5f 57  61 69 74 46 6f 72 45 76  |..Wimp_WaitForEv|
000000c0  65 6e 74 0d 00 3c 13 f2  57 69 6d 70 5f 43 6c 6f  |ent..<..Wimp_Clo|
000000d0  73 65 44 6f 77 6e 0d 00  46 05 e0 0d 00 5a 1a dd  |seDown..F....Z..|
000000e0  20 f2 55 73 65 72 5f 53  65 74 49 6e 69 74 69 61  | .User_SetInitia|
000000f0  6c 44 61 74 61 0d 00 64  22 c8 99 20 22 4f 53 5f  |lData..d".. "OS_|
00000100  42 79 74 65 22 2c 31 32  39 2c 30 2c 26 46 46 20  |Byte",129,0,&FF |
00000110  b8 20 2c 42 69 74 25 0d  00 6e 10 e7 20 42 69 74  |. ,Bit%..n.. Bit|
00000120  25 3c 26 41 33 20 8c 0d  00 78 20 2a 53 45 54 20  |%<&A3 ...x *SET |
00000130  41 6c 69 61 73 24 46 69  6c 65 72 5f 52 75 6e 20  |Alias$Filer_Run |
00000140  52 75 6e 20 25 25 30 0d  00 82 05 cd 0d 00 8c 15  |Run %%0.........|
00000150  61 72 65 61 73 69 7a 65  25 3d 31 30 32 34 2a 33  |areasize%=1024*3|
00000160  32 0d 00 96 15 de 20 61  72 65 61 25 20 61 72 65  |2..... area% are|
00000170  61 73 69 7a 65 25 0d 00  a0 2b 70 61 74 68 24 3d  |asize%...+path$=|
00000180  a4 57 69 6d 70 5f 52 65  61 64 56 61 72 69 61 62  |.Wimp_ReadVariab|
00000190  6c 65 28 22 55 6e 4c 6f  63 6b 24 46 69 6c 65 22  |le("UnLock$File"|
000001a0  29 0d 00 aa 31 63 75 72  24 3d a4 57 69 6d 70 5f  |)...1cur$=.Wimp_|
000001b0  52 65 61 64 56 61 72 69  61 62 6c 65 28 22 55 6e  |ReadVariable("Un|
000001c0  4c 6f 63 6b 24 53 6c 6f  74 43 75 72 72 65 6e 74  |Lock$SlotCurrent|
000001d0  22 29 0d 00 b4 2e 6e 65  78 24 3d a4 57 69 6d 70  |")....nex$=.Wimp|
000001e0  5f 52 65 61 64 56 61 72  69 61 62 6c 65 28 22 55  |_ReadVariable("U|
000001f0  6e 4c 6f 63 6b 24 53 6c  6f 74 4e 65 78 74 22 29  |nLock$SlotNext")|
00000200  0d 00 be 10 63 75 72 25  3d a0 28 63 75 72 24 29  |....cur%=.(cur$)|
00000210  0d 00 c8 10 6e 65 78 25  3d a0 28 6e 65 78 24 29  |....nex%=.(nex$)|
00000220  0d 00 d2 0f 66 69 6c 65  74 79 70 65 25 3d 30 0d  |....filetype%=0.|
00000230  00 dc 10 70 61 73 73 77  6f 72 64 24 3d 22 22 0d  |...password$="".|
00000240  00 e6 0f de 20 70 61 73  73 25 28 32 36 29 0d 00  |.... pass%(26)..|
00000250  f0 0c de 20 79 25 28 32  38 29 0d 01 04 05 e1 0d  |... y%(28)......|
00000260  01 18 15 dd 20 f2 43 72  65 61 74 65 5f 57 69 6e  |.... .Create_Win|
00000270  64 6f 77 73 0d 01 22 42  ea 20 6d 6f 64 65 78 73  |dows.."B. modexs|
00000280  68 69 66 74 25 2c 6d 6f  64 65 79 73 68 69 66 74  |hift%,modeyshift|
00000290  25 2c 72 69 67 68 74 73  63 72 25 2c 74 6f 70 73  |%,rightscr%,tops|
000002a0  63 72 25 2c 78 31 25 2c  79 31 25 2c 78 6f 25 2c  |cr%,x1%,y1%,xo%,|
000002b0  79 6f 25 2c 61 24 0d 01  2c 29 4d 61 69 6e 5f 57  |yo%,a$..,)Main_W|
000002c0  69 6e 64 6f 77 25 3d a4  57 69 6d 70 5f 57 69 6e  |indow%=.Wimp_Win|
000002d0  64 6f 77 4c 6f 61 64 28  22 4d 61 69 6e 22 29 0d  |dowLoad("Main").|
000002e0  01 36 33 49 6e 66 6f 5f  57 69 6e 64 6f 77 25 3d  |.63Info_Window%=|
000002f0  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 4c 6f 61 64  |.Wimp_WindowLoad|
00000300  28 22 49 6e 66 6f 22 29  3a 61 24 3d 22 54 61 73  |("Info"):a$="Tas|
00000310  6b 22 0d 01 54 31 c8 99  20 22 4f 53 5f 52 65 61  |k"..T1.. "OS_Rea|
00000320  64 4d 6f 64 65 56 61 72  69 61 62 6c 65 22 2c 2d  |dModeVariable",-|
00000330  31 2c 34 20 b8 20 2c 2c  6d 6f 64 65 78 73 68 69  |1,4 . ,,modexshi|
00000340  66 74 25 0d 01 5e 31 c8  99 20 22 4f 53 5f 52 65  |ft%..^1.. "OS_Re|
00000350  61 64 4d 6f 64 65 56 61  72 69 61 62 6c 65 22 2c  |adModeVariable",|
00000360  2d 31 2c 35 20 b8 20 2c  2c 6d 6f 64 65 79 73 68  |-1,5 . ,,modeysh|
00000370  69 66 74 25 0d 01 68 30  c8 99 20 22 4f 53 5f 52  |ift%..h0.. "OS_R|
00000380  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
00000390  2c 2d 31 2c 31 31 20 b8  20 2c 2c 72 69 67 68 74  |,-1,11 . ,,right|
000003a0  73 63 72 25 0d 01 72 2e  c8 99 20 22 4f 53 5f 52  |scr%..r... "OS_R|
000003b0  65 61 64 4d 6f 64 65 56  61 72 69 61 62 6c 65 22  |eadModeVariable"|
000003c0  2c 2d 31 2c 31 32 20 b8  20 2c 2c 74 6f 70 73 63  |,-1,12 . ,,topsc|
000003d0  72 25 0d 01 7c 24 72 69  67 68 74 73 63 72 25 3d  |r%..|$rightscr%=|
000003e0  72 69 67 68 74 73 63 72  25 3c 3c 6d 6f 64 65 78  |rightscr%<<modex|
000003f0  73 68 69 66 74 25 0d 01  86 20 74 6f 70 73 63 72  |shift%... topscr|
00000400  25 3d 74 6f 70 73 63 72  25 3c 3c 6d 6f 64 65 79  |%=topscr%<<modey|
00000410  73 68 69 66 74 25 0d 01  90 16 78 31 25 3d 35 37  |shift%....x1%=57|
00000420  34 3a 61 24 2b 3d 22 57  69 6d 70 22 0d 01 9a 0b  |4:a$+="Wimp"....|
00000430  79 31 25 3d 32 31 32 0d  01 a4 19 78 6f 25 3d 72  |y1%=212....xo%=r|
00000440  69 67 68 74 73 63 72 25  2f 32 2d 78 31 25 2f 32  |ightscr%/2-x1%/2|
00000450  0d 01 ae 17 79 6f 25 3d  74 6f 70 73 63 72 25 2f  |....yo%=topscr%/|
00000460  32 2d 79 31 25 2f 32 0d  01 b8 28 77 69 6d 70 25  |2-y1%/2...(wimp%|
00000470  21 30 3d 4d 61 69 6e 5f  57 69 6e 64 6f 77 25 3a  |!0=Main_Window%:|
00000480  61 24 2b 3d 22 49 6e 69  74 69 6c 69 73 65 22 0d  |a$+="Initilise".|
00000490  01 c2 0f 77 69 6d 70 25  21 34 3d 78 6f 25 0d 01  |...wimp%!4=xo%..|
000004a0  cc 0f 77 69 6d 70 25 21  38 3d 79 6f 25 0d 01 d6  |..wimp%!8=yo%...|
000004b0  14 77 69 6d 70 25 21 31  32 3d 78 31 25 2b 78 6f  |.wimp%!12=x1%+xo|
000004c0  25 0d 01 e0 14 77 69 6d  70 25 21 31 36 3d 79 31  |%....wimp%!16=y1|
000004d0  25 2b 79 6f 25 0d 01 ea  1e c8 99 22 57 69 6d 70  |%+yo%......"Wimp|
000004e0  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
000004f0  6d 70 25 0d 01 f4 28 f2  57 69 6d 70 5f 57 69 6e  |mp%...(.Wimp_Win|
00000500  64 6f 77 42 72 69 6e 67  54 6f 54 6f 70 28 4d 61  |dowBringToTop(Ma|
00000510  69 6e 5f 57 69 6e 64 6f  77 25 29 0d 01 fe 15 61  |in_Window%)....a|
00000520  24 2b 3d 22 41 70 70 6c  69 63 61 74 69 6f 6e 22  |$+="Application"|
00000530  0d 02 08 36 f2 57 69 6d  70 5f 49 63 6f 6e 50 75  |...6.Wimp_IconPu|
00000540  74 54 65 78 74 28 4d 61  69 6e 5f 57 69 6e 64 6f  |tText(Main_Windo|
00000550  77 25 2c 32 2c 22 2e 2e  2e 22 2b c2 70 61 74 68  |w%,2,"..."+.path|
00000560  24 2c 32 34 29 29 0d 02  12 28 f2 57 69 6d 70 5f  |$,24))...(.Wimp_|
00000570  49 63 6f 6e 50 75 74 54  65 78 74 28 4d 61 69 6e  |IconPutText(Main|
00000580  5f 57 69 6e 64 6f 77 25  2c 35 2c 22 22 29 0d 02  |_Window%,5,"")..|
00000590  1c 25 f2 57 69 6d 70 5f  49 63 6f 6e 43 61 72 65  |.%.Wimp_IconCare|
000005a0  74 28 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 2c 35  |t(Main_Window%,5|
000005b0  2c 30 29 0d 02 26 13 e3  20 73 74 61 67 65 25 3d  |,0)..&.. stage%=|
000005c0  31 20 b8 20 32 38 0d 02  30 1f 79 25 28 73 74 61  |1 . 28..0.y%(sta|
000005d0  67 65 25 29 3d 97 28 c1  61 24 2c 73 74 61 67 65  |ge%)=.(.a$,stage|
000005e0  25 2c 31 29 29 0d 02 3a  0c ed 20 73 74 61 67 65  |%,1))..:.. stage|
000005f0  25 0d 02 44 0c 73 74 61  67 65 25 3d 30 0d 02 4e  |%..D.stage%=0..N|
00000600  05 e1 0d 02 62 1c dd 20  a4 45 76 65 6e 74 5f 53  |....b.. .Event_S|
00000610  61 76 65 28 77 69 6e 64  6f 77 25 29 3d a3 0d 02  |ave(window%)=...|
00000620  76 26 dd 20 a4 45 76 65  6e 74 5f 53 70 72 69 74  |v&. .Event_Sprit|
00000630  65 73 28 77 69 6e 64 6f  77 25 29 3d 73 70 72 69  |es(window%)=spri|
00000640  74 65 73 25 0d 02 8a 13  dd 20 f2 43 72 65 61 74  |tes%..... .Creat|
00000650  65 5f 4d 65 6e 75 73 0d  02 94 29 6d 65 6e 75 24  |e_Menus...)menu$|
00000660  3d 22 55 6e 6c 6f 63 6b  5c 49 6e 66 6f 3e 49 6e  |="Unlock\Info>In|
00000670  66 6f 5f 57 69 6e 64 6f  77 25 5c 51 75 69 74 22  |fo_Window%\Quit"|
00000680  0d 02 9e 26 4d 61 69 6e  5f 4d 65 6e 75 25 3d a4  |...&Main_Menu%=.|
00000690  57 69 6d 70 5f 4d 65 6e  75 43 72 65 61 74 65 28  |Wimp_MenuCreate(|
000006a0  6d 65 6e 75 24 29 0d 02  a8 05 e1 0d 02 bc 1a dd  |menu$)..........|
000006b0  20 a4 45 76 65 6e 74 5f  4d 65 6e 75 28 77 69 6e  | .Event_Menu(win|
000006c0  64 6f 77 25 29 0d 02 c6  10 c8 8e 20 77 69 6e 64  |dow%)...... wind|
000006d0  6f 77 25 20 ca 0d 02 d0  1c c9 20 42 61 72 5f 57  |ow% ...... Bar_W|
000006e0  69 6e 64 6f 77 25 20 20  20 20 20 20 20 20 3a 3d  |indow%        :=|
000006f0  a3 0d 02 da 25 c9 20 4d  61 69 6e 5f 57 69 6e 64  |....%. Main_Wind|
00000700  6f 77 25 20 20 20 20 20  20 20 3a 3d 4d 61 69 6e  |ow%       :=Main|
00000710  5f 4d 65 6e 75 25 0d 02  e4 17 7f 20 20 20 20 20  |_Menu%.....     |
00000720  20 20 20 20 20 20 20 20  20 20 3a 3d a3 0d 02 ee  |          :=....|
00000730  05 cb 0d 03 02 2a dd 20  f2 45 76 65 6e 74 5f 57  |.....*. .Event_W|
00000740  69 6e 64 6f 77 43 6c 6f  73 65 28 77 69 6e 64 6f  |indowClose(windo|
00000750  77 25 2c 62 75 74 74 6f  6e 73 25 29 0d 03 0c 10  |w%,buttons%)....|
00000760  c8 8e 20 77 69 6e 64 6f  77 25 20 ca 0d 03 16 26  |.. window% ....&|
00000770  c9 20 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 20 20  |. Main_Window%  |
00000780  20 20 20 20 20 20 3a 66  69 6e 69 73 68 65 64 25  |      :finished%|
00000790  3d b9 0d 03 20 05 cb 0d  03 2a 05 e1 0d 03 3e 2e  |=... ....*....>.|
000007a0  dd 20 f2 45 76 65 6e 74  5f 44 72 61 77 28 77 69  |. .Event_Draw(wi|
000007b0  6e 64 6f 77 25 2c 78 5f  6f 72 69 67 69 6e 25 2c  |ndow%,x_origin%,|
000007c0  79 5f 6f 72 69 67 69 6e  25 29 0d 03 48 10 c8 8e  |y_origin%)..H...|
000007d0  20 77 69 6e 64 6f 77 25  20 ca 0d 03 52 2f c9 20  | window% ...R/. |
000007e0  4d 61 69 6e 5f 57 69 6e  64 6f 77 25 20 20 20 20  |Main_Window%    |
000007f0  20 20 20 20 3a f2 55 73  65 72 5f 44 72 61 77 4d  |    :.User_DrawM|
00000800  61 69 6e 57 69 6e 64 6f  77 0d 03 5c 2f c9 20 49  |ainWindow..\/. I|
00000810  6e 66 6f 5f 57 69 6e 64  6f 77 25 20 20 20 20 20  |nfo_Window%     |
00000820  20 20 20 3a f2 55 73 65  72 5f 44 72 61 77 49 6e  |   :.User_DrawIn|
00000830  66 6f 57 69 6e 64 6f 77  0d 03 66 05 cb 0d 03 70  |foWindow..f....p|
00000840  05 e1 0d 03 84 1a dd 20  f2 55 73 65 72 5f 44 72  |....... .User_Dr|
00000850  61 77 4d 61 69 6e 57 69  6e 64 6f 77 0d 03 8e 05  |awMainWindow....|
00000860  e1 0d 03 a2 1a dd 20 f2  55 73 65 72 5f 44 72 61  |...... .User_Dra|
00000870  77 49 6e 66 6f 57 69 6e  64 6f 77 0d 03 ac 05 e1  |wInfoWindow.....|
00000880  0d 03 c0 34 dd 20 f2 45  76 65 6e 74 5f 4d 6f 75  |...4. .Event_Mou|
00000890  73 65 43 6c 69 63 6b 28  77 69 6e 64 6f 77 25 2c  |seClick(window%,|
000008a0  69 63 6f 6e 25 2c 62 75  74 74 6f 6e 25 2c 78 25  |icon%,button%,x%|
000008b0  2c 79 25 29 0d 03 ca 10  c8 8e 20 77 69 6e 64 6f  |,y%)...... windo|
000008c0  77 25 20 ca 0d 03 d4 39  c9 20 4d 61 69 6e 5f 57  |w% ....9. Main_W|
000008d0  69 6e 64 6f 77 25 20 20  20 20 20 20 20 3a f2 55  |indow%       :.U|
000008e0  73 65 72 5f 4d 6f 75 73  65 4d 61 69 6e 28 20 62  |ser_MouseMain( b|
000008f0  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 03 de  |utton%,icon%)...|
00000900  05 cb 0d 03 e8 05 e1 0d  03 fc 1e dd 20 f2 45 76  |............ .Ev|
00000910  65 6e 74 5f 4d 65 6e 75  43 68 6f 69 63 65 28 6d  |ent_MenuChoice(m|
00000920  65 6e 75 25 29 0d 04 06  0e c8 8e 20 6d 65 6e 75  |enu%)...... menu|
00000930  25 20 ca 0d 04 10 2f c9  20 4d 61 69 6e 5f 4d 65  |% ..../. Main_Me|
00000940  6e 75 25 20 20 20 20 20  20 20 20 20 20 3a f2 55  |nu%          :.U|
00000950  73 65 72 5f 4d 65 6e 75  43 68 6f 69 63 65 4d 61  |ser_MenuChoiceMa|
00000960  69 6e 0d 04 1a 05 cb 0d  04 24 05 e1 0d 04 38 1a  |in.......$....8.|
00000970  dd 20 f2 55 73 65 72 5f  4d 65 6e 75 43 68 6f 69  |. .User_MenuChoi|
00000980  63 65 4d 61 69 6e 0d 04  42 1c c8 8e 20 a4 57 69  |ceMain..B... .Wi|
00000990  6d 70 5f 4d 65 6e 75 43  68 6f 69 63 65 28 30 29  |mp_MenuChoice(0)|
000009a0  20 ca 0d 04 4c 08 c9 20  31 20 0d 04 56 14 c9 20  | ...L.. 1 ..V.. |
000009b0  32 20 3a 66 69 6e 69 73  68 65 64 25 3d b9 0d 04  |2 :finished%=...|
000009c0  60 05 cb 0d 04 6a 05 e1  0d 04 7e 25 dd 20 f2 55  |`....j....~%. .U|
000009d0  73 65 72 5f 4d 6f 75 73  65 4d 61 69 6e 28 20 62  |ser_MouseMain( b|
000009e0  75 74 74 6f 6e 25 2c 69  63 6f 6e 25 29 0d 04 88  |utton%,icon%)...|
000009f0  45 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  |E.Wimp_WindowAle|
00000a00  72 74 28 22 4d 61 69 6e  22 2c 22 4d 6f 75 73 65  |rt("Main","Mouse|
00000a10  20 62 75 74 74 6f 6e 3d  22 2b c3 62 75 74 74 6f  | button="+.butto|
00000a20  6e 25 2b 22 69 63 6f 6e  3d 22 2b c3 69 63 6f 6e  |n%+"icon="+.icon|
00000a30  25 29 0d 04 92 05 e1 0d  04 a6 25 dd 20 f2 55 73  |%)........%. .Us|
00000a40  65 72 5f 4d 6f 75 73 65  49 6e 66 6f 28 20 62 75  |er_MouseInfo( bu|
00000a50  74 74 6f 6e 25 2c 69 63  6f 6e 25 29 0d 04 b0 45  |tton%,icon%)...E|
00000a60  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 41 6c 65 72  |.Wimp_WindowAler|
00000a70  74 28 22 49 6e 66 6f 22  2c 22 4d 6f 75 73 65 20  |t("Info","Mouse |
00000a80  62 75 74 74 6f 6e 3d 22  2b c3 62 75 74 74 6f 6e  |button="+.button|
00000a90  25 2b 22 69 63 6f 6e 3d  22 2b c3 69 63 6f 6e 25  |%+"icon="+.icon%|
00000aa0  29 0d 04 ba 05 e1 0d 04  ce 29 dd 20 f2 45 76 65  |)........). .Eve|
00000ab0  6e 74 5f 4b 65 79 50 72  65 73 73 28 77 69 6e 64  |nt_KeyPress(wind|
00000ac0  6f 77 25 2c 69 63 6f 6e  25 2c 6b 65 79 25 29 0d  |ow%,icon%,key%).|
00000ad0  04 d8 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |..... window% ..|
00000ae0  04 e2 39 c9 20 4d 61 69  6e 5f 57 69 6e 64 6f 77  |..9. Main_Window|
00000af0  25 20 20 20 20 20 20 20  3a f2 55 73 65 72 5f 4b  |%       :.User_K|
00000b00  65 79 50 72 65 73 73 4d  61 69 6e 28 20 69 63 6f  |eyPressMain( ico|
00000b10  6e 25 2c 6b 65 79 25 29  0d 04 ec 05 cb 0d 04 f6  |n%,key%)........|
00000b20  05 e1 0d 05 0a 25 dd 20  f2 55 73 65 72 5f 4b 65  |.....%. .User_Ke|
00000b30  79 50 72 65 73 73 4d 61  69 6e 28 20 69 63 6f 6e  |yPressMain( icon|
00000b40  25 2c 6b 65 79 25 29 0d  05 14 19 e7 20 6b 65 79  |%,key%)..... key|
00000b50  25 3d 31 33 20 80 20 69  63 6f 6e 25 3d 35 20 8c  |%=13 . icon%=5 .|
00000b60  0d 05 1e 23 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |...#.Wimp_Window|
00000b70  43 6c 6f 73 65 28 4d 61  69 6e 5f 57 69 6e 64 6f  |Close(Main_Windo|
00000b80  77 25 29 0d 05 28 0c f2  45 6e 63 72 79 70 74 0d  |w%)..(..Encrypt.|
00000b90  05 32 05 cd 0d 05 3c 05  e1 0d 05 50 1e dd 20 f2  |.2....<....P.. .|
00000ba0  45 76 65 6e 74 5f 4d 65  6e 75 43 68 6f 69 63 65  |Event_MenuChoice|
00000bb0  28 6d 65 6e 75 25 29 0d  05 5a 0e c8 8e 20 6d 65  |(menu%)..Z... me|
00000bc0  6e 75 25 20 ca 0d 05 64  05 cb 0d 05 6e 05 e1 0d  |nu% ...d....n...|
00000bd0  05 82 22 dd 20 f2 45 76  65 6e 74 5f 4c 6f 61 64  |..". .Event_Load|
00000be0  46 69 6c 65 28 66 69 6c  65 24 2c 74 79 70 65 24  |File(file$,type$|
00000bf0  29 0d 05 8c 05 e1 0d 05  a0 24 dd 20 f2 45 76 65  |)........$. .Eve|
00000c00  6e 74 5f 53 61 76 65 46  69 6c 65 28 66 69 6c 65  |nt_SaveFile(file|
00000c10  24 2c 77 69 6e 64 6f 77  25 29 0d 05 aa 05 e1 0d  |$,window%)......|
00000c20  05 d2 0d dd f2 45 6e 63  72 79 70 74 0d 05 e6 14  |.....Encrypt....|
00000c30  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 6e 22  |.."Hourglass_On"|
00000c40  0d 05 f0 0a 61 64 64 25  3d 30 0d 05 fa 14 69 6e  |....add%=0....in|
00000c50  66 69 6c 65 25 3d 8e 28  70 61 74 68 24 29 0d 06  |file%=.(path$)..|
00000c60  04 07 ea 20 85 0d 06 0e  5a ee 20 85 20 ea 20 f2  |... ....Z. . . .|
00000c70  57 69 6d 70 5f 57 69 6e  64 6f 77 45 72 72 6f 72  |Wimp_WindowError|
00000c80  42 6f 78 28 22 50 72 6f  74 65 63 74 6f 72 22 2c  |Box("Protector",|
00000c90  22 54 65 6d 70 6f 72 79  20 66 69 6c 65 20 63 6f  |"Tempory file co|
00000ca0  75 6c 64 20 6e 6f 74 20  62 65 20 63 72 65 61 74  |uld not be creat|
00000cb0  65 64 22 29 3a ff 22 43  4c 4f 53 45 22 3a e1 0d  |ed"):."CLOSE":..|
00000cc0  06 22 1e 6f 75 74 66 69  6c 65 25 3d ae 28 22 3c  |.".outfile%=.("<|
00000cd0  57 69 6d 70 24 53 63 72  61 70 3e 22 29 0d 06 2c  |Wimp$Scrap>")..,|
00000ce0  07 f7 20 85 0d 06 40 23  f2 57 69 6d 70 5f 57 69  |.. ...@#.Wimp_Wi|
00000cf0  6e 64 6f 77 43 6c 6f 73  65 28 4d 61 69 6e 5f 57  |ndowClose(Main_W|
00000d00  69 6e 64 6f 77 25 29 0d  06 54 13 e8 23 69 6e 66  |indow%)..T..#inf|
00000d10  69 6c 65 25 2c 74 65 6d  70 24 0d 06 5e 16 66 69  |ile%,temp$..^.fi|
00000d20  6c 65 74 79 70 65 25 3d  a0 28 74 65 6d 70 24 29  |letype%=.(temp$)|
00000d30  0d 06 68 2c 70 61 73 73  77 6f 72 64 24 3d a4 57  |..h,password$=.W|
00000d40  69 6d 70 5f 49 63 6f 6e  54 65 78 74 28 4d 61 69  |imp_IconText(Mai|
00000d50  6e 5f 57 69 6e 64 6f 77  25 2c 35 29 0d 06 72 13  |n_Window%,5)..r.|
00000d60  6c 25 3d a9 28 70 61 73  73 77 6f 72 64 24 29 0d  |l%=.(password$).|
00000d70  06 86 0f e3 20 78 25 3d  31 20 b8 20 6c 25 0d 06  |.... x%=1 . l%..|
00000d80  90 21 70 61 73 73 25 28  78 25 29 3d 97 28 c1 70  |.!pass%(x%)=.(.p|
00000d90  61 73 73 77 6f 72 64 24  2c 78 25 2c 31 29 29 0d  |assword$,x%,1)).|
00000da0  06 9a 08 ed 20 78 25 0d  06 ae 05 f5 0d 06 b8 32  |.... x%........2|
00000db0  c8 99 22 4f 53 5f 47 42  50 42 22 2c 34 2c 69 6e  |.."OS_GBPB",4,in|
00000dc0  66 69 6c 65 25 2c 61 72  65 61 25 2c 61 72 65 61  |file%,area%,area|
00000dd0  73 69 7a 65 25 20 b8 20  2c 2c 61 64 64 25 0d 06  |size% . ,,add%..|
00000de0  cc 0c 63 6f 75 6e 74 25  3d 30 0d 06 d6 0d 63 6f  |..count%=0....co|
00000df0  75 6e 74 32 25 3d 30 0d  06 e0 17 e3 20 78 25 3d  |unt2%=0..... x%=|
00000e00  30 20 b8 20 61 64 64 25  2d 61 72 65 61 25 0d 06  |0 . add%-area%..|
00000e10  ea 0d 63 6f 75 6e 74 25  2b 3d 31 0d 06 f4 0e 63  |..count%+=1....c|
00000e20  6f 75 6e 74 32 25 2b 3d  31 0d 06 fe 29 61 72 65  |ount2%+=1...)are|
00000e30  61 25 3f 28 78 25 29 3d  28 79 25 28 63 6f 75 6e  |a%?(x%)=(y%(coun|
00000e40  74 32 25 29 20 82 20 61  72 65 61 25 3f 28 78 25  |t2%) . area%?(x%|
00000e50  29 29 0d 07 08 2b 61 72  65 61 25 3f 28 78 25 29  |))...+area%?(x%)|
00000e60  3d 28 70 61 73 73 25 28  63 6f 75 6e 74 25 29 20  |=(pass%(count%) |
00000e70  82 20 61 72 65 61 25 3f  28 78 25 29 29 0d 07 12  |. area%?(x%))...|
00000e80  19 e7 20 63 6f 75 6e 74  25 3d 6c 25 20 8c 63 6f  |.. count%=l% .co|
00000e90  75 6e 74 25 3d 30 0d 07  1c 1b e7 20 63 6f 75 6e  |unt%=0..... coun|
00000ea0  74 32 25 3d 32 38 20 8c  63 6f 75 6e 74 32 25 3d  |t2%=28 .count2%=|
00000eb0  30 0d 07 26 08 ed 20 78  25 0d 07 3a 07 ea 20 85  |0..&.. x%..:.. .|
00000ec0  0d 07 44 70 ee 20 85 20  ea 20 f2 57 69 6d 70 5f  |..Dp. . . .Wimp_|
00000ed0  57 69 6e 64 6f 77 45 72  72 6f 72 42 6f 78 28 22  |WindowErrorBox("|
00000ee0  50 72 6f 74 65 63 74 6f  72 22 2c 22 45 72 72 6f  |Protector","Erro|
00000ef0  72 20 77 72 69 74 69 6e  67 20 74 6f 20 6f 75 74  |r writing to out|
00000f00  70 75 74 20 66 69 6c 65  22 29 3a ff 22 43 4c 4f  |put file"):."CLO|
00000f10  53 45 22 3a ff 22 57 49  50 45 20 46 7e 43 7e 56  |SE":."WIPE F~C~V|
00000f20  20 3c 57 69 6d 70 24 53  63 72 61 70 3e 22 3a e1  | <Wimp$Scrap>":.|
00000f30  0d 07 4e 2b c8 99 22 4f  53 5f 47 42 50 42 22 2c  |..N+.."OS_GBPB",|
00000f40  32 2c 6f 75 74 66 69 6c  65 25 2c 61 72 65 61 25  |2,outfile%,area%|
00000f50  2c 61 64 64 25 2d 61 72  65 61 25 0d 07 58 07 f7  |,add%-area%..X..|
00000f60  20 85 0d 07 6c 0f fd 20  c5 23 69 6e 66 69 6c 65  | ...l.. .#infile|
00000f70  25 0d 07 76 0e d9 23 6f  75 74 66 69 6c 65 25 0d  |%..v..#outfile%.|
00000f80  07 80 0d d9 23 69 6e 66  69 6c 65 25 0d 07 a8 2a  |....#infile%...*|
00000f90  ff 22 53 45 54 54 59 50  45 20 3c 57 69 6d 70 24  |."SETTYPE <Wimp$|
00000fa0  53 63 72 61 70 3e 20 22  2b c3 7e 28 66 69 6c 65  |Scrap> "+.~(file|
00000fb0  74 79 70 65 25 29 0d 07  b2 24 ff 22 53 45 54 20  |type%)...$."SET |
00000fc0  4f 62 65 79 24 44 69 72  20 3c 55 6e 6c 6f 63 6b  |Obey$Dir <Unlock|
00000fd0  4f 62 65 79 24 44 69 72  3e 22 0d 07 c6 07 ea 20  |Obey$Dir>"..... |
00000fe0  85 0d 07 d0 13 ee 20 85  20 ea 20 f2 52 65 6d 6f  |...... . . .Remo|
00000ff0  76 65 3a e1 0d 07 da 16  e7 20 66 69 6c 65 74 79  |ve:...... filety|
00001000  70 65 25 3d 26 66 66 61  20 8c 0d 07 e4 19 ff 22  |pe%=&ffa ......"|
00001010  52 4d 52 75 6e 20 3c 57  69 6d 70 24 53 63 72 61  |RMRun <Wimp$Scra|
00001020  70 3e 22 0d 07 ee 05 cc  0d 07 f8 2f c8 99 22 57  |p>"......../.."W|
00001030  69 6d 70 5f 53 6c 6f 74  53 69 7a 65 22 2c 2d 31  |imp_SlotSize",-1|
00001040  2c 63 75 72 25 20 b8 20  63 75 72 25 2c 6e 65 78  |,cur% . cur%,nex|
00001050  32 25 2c 66 72 65 25 0d  08 02 1d ff 22 46 69 6c  |2%,fre%....."Fil|
00001060  65 72 5f 52 75 6e 20 3c  57 69 6d 70 24 53 63 72  |er_Run <Wimp$Scr|
00001070  61 70 3e 22 0d 08 0c 05  cd 0d 08 16 07 f7 20 85  |ap>".......... .|
00001080  0d 08 20 0b f2 52 65 6d  6f 76 65 0d 08 2a 05 e1  |.. ..Remove..*..|
00001090  0d 08 48 0c dd f2 52 65  6d 6f 76 65 0d 08 52 15  |..H...Remove..R.|
000010a0  c8 99 22 48 6f 75 72 67  6c 61 73 73 5f 4f 66 66  |.."Hourglass_Off|
000010b0  22 0d 08 5c 24 ff 22 46  69 6c 65 72 5f 52 75 6e  |"..\$."Filer_Run|
000010c0  20 3c 55 6e 6c 6f 63 6b  24 44 69 72 3e 2e 52 65  | <Unlock$Dir>.Re|
000010d0  6d 6f 76 65 22 0d 08 66  1b ff 22 55 4e 53 45 54  |move"..f.."UNSET|
000010e0  20 55 6e 6c 6f 63 6b 4f  62 65 79 24 44 69 72 22  | UnlockObey$Dir"|
000010f0  0d 08 70 18 ff 22 55 4e  53 45 54 20 55 6e 6c 6f  |..p.."UNSET Unlo|
00001100  63 6b 24 46 69 6c 65 22  0d 08 7a 0f 66 69 6e 69  |ck$File"..z.fini|
00001110  73 68 65 64 25 3d b9 0d  08 84 05 e1 0d 0a dc 28  |shed%=.........(|
00001120  dd 20 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 41 6c  |. .Wimp_WindowAl|
00001130  65 72 74 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |ert(title$,messa|
00001140  67 65 24 29 0d 0a e6 2b  f2 57 69 6d 70 5f 57 69  |ge$)...+.Wimp_Wi|
00001150  6e 64 6f 77 41 6c 65 72  74 42 6f 78 28 74 69 74  |ndowAlertBox(tit|
00001160  6c 65 24 2c 6d 65 73 73  61 67 65 24 2c 30 29 0d  |le$,message$,0).|
00001170  0a f0 05 e1 0d 0b 04 33  dd 20 f2 57 69 6d 70 5f  |.......3. .Wimp_|
00001180  57 69 6e 64 6f 77 41 6c  65 72 74 42 6f 78 28 74  |WindowAlertBox(t|
00001190  69 74 6c 65 24 2c 6d 65  73 73 61 67 65 24 2c 62  |itle$,message$,b|
000011a0  75 74 74 6f 6e 25 29 0d  0b 0e 0f ea 20 72 65 73  |utton%)..... res|
000011b0  70 6f 6e 73 65 25 0d 0b  18 17 24 28 77 69 6d 70  |ponse%....$(wimp|
000011c0  25 2b 34 29 3d 6d 65 73  73 61 67 65 24 0d 0b 22  |%+4)=message$.."|
000011d0  10 c8 8e 20 62 75 74 74  6f 6e 25 20 ca 0d 0b 2c  |... button% ...,|
000011e0  17 c9 20 32 20 20 20 20  3a 72 65 73 70 6f 6e 73  |.. 2    :respons|
000011f0  65 25 3d 31 0d 0b 36 18  c9 20 31 20 20 20 20 3a  |e%=1..6.. 1    :|
00001200  72 65 73 70 6f 6e 73 65  25 3d 31 35 0d 0b 40 1f  |response%=15..@.|
00001210  c9 20 33 20 20 20 20 3a  72 65 73 70 6f 6e 73 65  |. 3    :response|
00001220  25 3d 28 31 3c 3c 35 29  2b 31 36 0d 0b 4a 1f c9  |%=(1<<5)+16..J..|
00001230  20 34 20 20 20 20 3a 72  65 73 70 6f 6e 73 65 25  | 4    :response%|
00001240  3d 28 31 3c 3c 36 29 2b  31 36 0d 0b 54 13 7f 20  |=(1<<6)+16..T.. |
00001250  3a 72 65 73 70 6f 6e 73  65 25 3d 31 36 0d 0b 5e  |:response%=16..^|
00001260  05 cb 0d 0b 68 3d c8 99  20 22 57 69 6d 70 5f 52  |....h=.. "Wimp_R|
00001270  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 69 6d 70  |eportError",wimp|
00001280  25 2c 72 65 73 70 6f 6e  73 65 25 2c 74 69 74 6c  |%,response%,titl|
00001290  65 24 20 b8 20 2c 72 65  73 70 6f 6e 73 65 25 0d  |e$ . ,response%.|
000012a0  0b 72 05 e1 0d 0b 86 29  dd 20 a4 57 69 6d 70 5f  |.r.....). .Wimp_|
000012b0  57 69 6e 64 6f 77 43 61  6e 63 65 6c 28 74 69 74  |WindowCancel(tit|
000012c0  6c 65 24 2c 6d 65 73 73  61 67 65 24 29 0d 0b 90  |le$,message$)...|
000012d0  17 24 28 77 69 6d 70 25  2b 34 29 3d 6d 65 73 73  |.$(wimp%+4)=mess|
000012e0  61 67 65 24 0d 0b 9a 10  72 65 73 70 6f 6e 73 65  |age$....response|
000012f0  25 3d 32 33 0d 0b a4 3d  c8 99 20 22 57 69 6d 70  |%=23...=.. "Wimp|
00001300  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 77 69  |_ReportError",wi|
00001310  6d 70 25 2c 72 65 73 70  6f 6e 73 65 25 2c 74 69  |mp%,response%,ti|
00001320  74 6c 65 24 20 b8 20 2c  72 65 73 70 6f 6e 73 65  |tle$ . ,response|
00001330  25 0d 0b ae 10 3d 72 65  73 70 6f 6e 73 65 25 2d  |%....=response%-|
00001340  32 0d 0b c2 2b dd 20 f2  57 69 6d 70 5f 57 69 6e  |2...+. .Wimp_Win|
00001350  64 6f 77 45 72 72 6f 72  42 6f 78 28 74 69 74 6c  |dowErrorBox(titl|
00001360  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 0b cc 2b  |e$,message$)...+|
00001370  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 41 6c 65 72  |.Wimp_WindowAler|
00001380  74 42 6f 78 28 74 69 74  6c 65 24 2c 6d 65 73 73  |tBox(title$,mess|
00001390  61 67 65 24 2c 32 29 0d  0b d6 05 e1 0d 0b ea 20  |age$,2)........ |
000013a0  dd 20 a4 57 69 6d 70 5f  57 69 6e 64 6f 77 54 69  |. .Wimp_WindowTi|
000013b0  74 6c 65 28 77 69 6e 64  6f 77 25 29 0d 0b f4 13  |tle(window%)....|
000013c0  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 0d  |wimp%!0=window%.|
000013d0  0b fe 20 c8 99 20 22 57  69 6d 70 5f 47 65 74 57  |.. .. "Wimp_GetW|
000013e0  69 6e 64 49 6e 66 6f 22  2c 2c 77 69 6d 70 25 0d  |indInfo",,wimp%.|
000013f0  0c 08 36 e7 20 28 28 77  69 6d 70 25 21 36 30 29  |..6. ((wimp%!60)|
00001400  80 26 31 30 30 29 3d 30  20 85 20 31 2c 22 54 69  |.&100)=0 . 1,"Ti|
00001410  74 6c 65 20 69 73 6e 27  74 20 69 6e 64 69 72 65  |tle isn't indire|
00001420  63 74 65 64 22 0d 0c 12  10 3d 24 28 77 69 6d 70  |cted"....=$(wimp|
00001430  25 21 37 36 29 0d 0c 26  1f dd 20 a4 57 69 6d 70  |%!76)..&.. .Wimp|
00001440  5f 57 69 6e 64 6f 77 4c  6f 61 64 28 77 69 6e 64  |_WindowLoad(wind|
00001450  6f 77 24 29 0d 0c 30 3b  3d a4 57 69 6d 70 5f 57  |ow$)..0;=.Wimp_W|
00001460  69 6e 64 6f 77 4c 6f 61  64 46 72 6f 6d 28 77 69  |indowLoadFrom(wi|
00001470  6e 64 6f 77 24 2c 22 3c  55 6e 6c 6f 63 6b 24 44  |ndow$,"<Unlock$D|
00001480  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 29 0d  |ir>.Templates").|
00001490  0c 44 2d dd 20 a4 57 69  6d 70 5f 57 69 6e 64 6f  |.D-. .Wimp_Windo|
000014a0  77 4c 6f 61 64 46 72 6f  6d 28 77 69 6e 64 6f 77  |wLoadFrom(window|
000014b0  24 2c 74 65 6d 70 6c 61  74 65 24 29 0d 0c 4e 1a  |$,template$)..N.|
000014c0  ea 20 63 25 2c 69 25 2c  6e 25 2c 6a 25 2c 73 70  |. c%,i%,n%,j%,sp|
000014d0  24 2c 73 70 32 24 0d 0c  58 25 c8 99 20 22 57 69  |$,sp2$..X%.. "Wi|
000014e0  6d 70 5f 4f 70 65 6e 54  65 6d 70 6c 61 74 65 22  |mp_OpenTemplate"|
000014f0  2c 2c 74 65 6d 70 6c 61  74 65 24 0d 0c 62 4d c8  |,,template$..bM.|
00001500  99 20 22 57 69 6d 70 5f  4c 6f 61 64 54 65 6d 70  |. "Wimp_LoadTemp|
00001510  6c 61 74 65 22 2c 2c 77  69 6d 70 25 2c 69 63 6f  |late",,wimp%,ico|
00001520  6e 73 25 2c 69 63 6f 6e  5f 6d 65 6d 6f 72 79 25  |ns%,icon_memory%|
00001530  2c 2d 31 2c 77 69 6e 64  6f 77 24 2c 30 20 b8 20  |,-1,window$,0 . |
00001540  2c 2c 69 63 6f 6e 73 25  0d 0c 6c 11 c8 8e 20 73  |,,icons%..l... s|
00001550  70 72 69 74 65 73 25 20  ca 0d 0c 76 1d c9 20 31  |prites% ...v.. 1|
00001560  20 20 20 20 3a 77 69 6d  70 25 21 36 34 3d 73 70  |    :wimp%!64=sp|
00001570  72 69 74 65 73 25 0d 0c  80 27 7f 20 3a 77 69 6d  |rites%...'. :wim|
00001580  70 25 21 36 34 3d a4 45  76 65 6e 74 5f 53 70 72  |p%!64=.Event_Spr|
00001590  69 74 65 73 28 77 69 6e  64 6f 77 25 29 0d 0c 8a  |ites(window%)...|
000015a0  05 cb 0d 0c 94 26 c8 99  20 22 57 69 6d 70 5f 43  |.....&.. "Wimp_C|
000015b0  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |reateWindow",,wi|
000015c0  6d 70 25 20 b8 20 63 25  0d 0c 9e 1b c8 99 20 22  |mp% . c%...... "|
000015d0  57 69 6d 70 5f 43 6c 6f  73 65 54 65 6d 70 6c 61  |Wimp_CloseTempla|
000015e0  74 65 22 0d 0c a8 37 c8  99 20 22 57 69 6d 70 5f  |te"...7.. "Wimp_|
000015f0  57 68 69 63 68 49 63 6f  6e 22 2c 63 25 2c 77 69  |WhichIcon",c%,wi|
00001600  6d 70 25 2b 34 30 2c 31  2b 32 2b 28 31 3c 3c 38  |mp%+40,1+2+(1<<8|
00001610  29 2c 32 2b 28 31 3c 3c  38 29 0d 0c b2 11 c8 8e  |),2+(1<<8)......|
00001620  20 77 69 6d 70 25 21 34  30 20 ca 0d 0c bc 0b c9  | wimp%!40 ......|
00001630  20 2d 31 20 20 20 0d 0c  c6 0c 7f 20 3a 69 25 3d  | -1   ..... :i%=|
00001640  34 30 0d 0c d0 05 f5 0d  0c da 20 77 69 6d 70 25  |40........ wimp%|
00001650  21 34 3d 77 69 6d 70 25  21 69 25 20 3a 77 69 6d  |!4=wimp%!i% :wim|
00001660  70 25 21 30 3d 63 25 0d  0c e4 21 c8 99 20 22 57  |p%!0=c%...!.. "W|
00001670  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00001680  22 2c 2c 77 69 6d 70 25  0d 0c ee 2a 73 70 24 3d  |",,wimp%...*sp$=|
00001690  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
000016a0  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 21 32  |tAddress(wimp%!2|
000016b0  38 29 0d 0c f8 1f c8 99  20 22 57 69 6d 70 5f 44  |8)...... "Wimp_D|
000016c0  65 6c 65 74 65 49 63 6f  6e 22 2c 2c 77 69 6d 70  |eleteIcon",,wimp|
000016d0  25 0d 0d 02 11 c8 8e 20  73 70 72 69 74 65 73 25  |%...... sprites%|
000016e0  20 ca 0d 0d 0c 16 c9 20  31 20 20 20 20 3a 77 69  | ...... 1    :wi|
000016f0  6d 70 25 21 33 32 3d 31  0d 0d 16 06 7f 20 0d 0d  |mp%!32=1..... ..|
00001700  20 2a c8 99 20 22 4f 53  5f 53 70 72 69 74 65 4f  | *.. "OS_SpriteO|
00001710  70 22 2c 26 31 30 38 2c  73 70 72 69 74 65 73 25  |p",&108,sprites%|
00001720  20 b8 20 2c 2c 2c 6e 25  0d 0d 2a 08 6a 25 3d 30  | . ,,,n%..*.j%=0|
00001730  0d 0d 34 0c f5 20 3a 6a  25 2b 3d 31 0d 0d 3e 37  |..4.. :j%+=1..>7|
00001740  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00001750  2c 26 31 30 44 2c 73 70  72 69 74 65 73 25 2c 70  |,&10D,sprites%,p|
00001760  6f 69 6e 74 65 72 5f 62  6c 6f 63 6b 25 2c 32 30  |ointer_block%,20|
00001770  2c 6a 25 0d 0d 48 31 73  70 32 24 3d a4 57 69 6d  |,j%..H1sp2$=.Wim|
00001780  70 5f 47 65 74 53 74 72  69 6e 67 41 74 41 64 64  |p_GetStringAtAdd|
00001790  72 65 73 73 28 70 6f 69  6e 74 65 72 5f 62 6c 6f  |ress(pointer_blo|
000017a0  63 6b 25 29 0d 0d 52 16  fd 20 6a 25 3d 6e 25 20  |ck%)..R.. j%=n% |
000017b0  84 20 73 70 24 3d 73 70  32 24 0d 0d 5c 2d e7 20  |. sp$=sp2$..\-. |
000017c0  73 70 24 3d 73 70 32 24  20 8c 77 69 6d 70 25 21  |sp$=sp2$ .wimp%!|
000017d0  33 32 3d 73 70 72 69 74  65 73 25 20 8b 77 69 6d  |32=sprites% .wim|
000017e0  70 25 21 33 32 3d 31 0d  0d 66 05 cb 0d 0d 70 0e  |p%!32=1..f....p.|
000017f0  77 69 6d 70 25 21 34 3d  63 25 0d 0d 7a 2b c8 99  |wimp%!4=c%..z+..|
00001800  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
00001810  6e 22 2c 2c 77 69 6d 70  25 2b 34 20 b8 20 68 61  |n",,wimp%+4 . ha|
00001820  6e 64 6c 65 25 0d 0d 84  09 69 25 2b 3d 34 0d 0d  |ndle%....i%+=4..|
00001830  8e 13 fd 20 28 77 69 6d  70 25 21 69 25 29 3d 2d  |... (wimp%!i%)=-|
00001840  31 0d 0d 98 05 cb 0d 0d  a2 07 3d 63 25 0d 0d b6  |1.........=c%...|
00001850  25 dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 42  |%. .Wimp_WindowB|
00001860  72 69 6e 67 54 6f 54 6f  70 28 77 69 6e 64 6f 77  |ringToTop(window|
00001870  25 29 0d 0d c0 12 21 77  69 6d 70 25 3d 77 69 6e  |%)....!wimp%=win|
00001880  64 6f 77 25 0d 0d ca 23  c8 99 20 22 57 69 6d 70  |dow%...#.. "Wimp|
00001890  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000018a0  2c 2c 77 69 6d 70 25 0d  0d d4 0f 77 69 6d 70 25  |,,wimp%....wimp%|
000018b0  21 32 38 3d 2d 31 0d 0d  de 1f c8 99 20 22 57 69  |!28=-1...... "Wi|
000018c0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
000018d0  77 69 6d 70 25 0d 0d e8  05 e1 0d 0d fc 20 dd 20  |wimp%........ . |
000018e0  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 43 6c 6f 73  |.Wimp_WindowClos|
000018f0  65 28 77 69 6e 64 6f 77  25 29 0d 0e 06 12 21 77  |e(window%)....!w|
00001900  69 6d 70 25 3d 77 69 6e  64 6f 77 25 0d 0e 10 20  |imp%=window%... |
00001910  c8 99 20 22 57 69 6d 70  5f 43 6c 6f 73 65 57 69  |.. "Wimp_CloseWi|
00001920  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 0e 1a 05  |ndow",,wimp%....|
00001930  e1 0d 0e 2e 24 dd 20 f2  57 69 6d 70 5f 57 69 6e  |....$. .Wimp_Win|
00001940  64 6f 77 46 6f 72 63 65  44 72 61 77 28 77 69 6e  |dowForceDraw(win|
00001950  64 6f 77 25 29 0d 0e 38  10 c8 8e 20 77 69 6e 64  |dow%)..8... wind|
00001960  6f 77 25 20 ca 0d 0e 42  36 c9 20 2d 31 20 20 20  |ow% ...B6. -1   |
00001970  3a c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  |:.. "Wimp_ForceR|
00001980  65 64 72 61 77 22 2c 2d  31 2c 30 2c 30 2c 32 2a  |edraw",-1,0,0,2*|
00001990  31 32 38 30 2c 32 2a 31  30 32 34 0d 0e 4c 37 7f  |1280,2*1024..L7.|
000019a0  20 3a c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  | :.. "Wimp_Force|
000019b0  52 65 64 72 61 77 22 2c  77 69 6e 64 6f 77 25 2c  |Redraw",window%,|
000019c0  30 2c 2d 32 2a 31 30 32  34 2c 32 2a 31 32 38 30  |0,-2*1024,2*1280|
000019d0  2c 30 0d 0e 56 05 cb 0d  0e 60 05 e1 0d 0e 74 1f  |,0..V....`....t.|
000019e0  dd 20 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 4f 70  |. .Wimp_WindowOp|
000019f0  65 6e 28 77 69 6e 64 6f  77 25 29 0d 0e 7e 12 21  |en(window%)..~.!|
00001a00  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 0d 0e 88  |wimp%=window%...|
00001a10  23 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  |#.. "Wimp_GetWin|
00001a20  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00001a30  0d 0e 92 1f c8 99 20 22  57 69 6d 70 5f 4f 70 65  |...... "Wimp_Ope|
00001a40  6e 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |nWindow",,wimp%.|
00001a50  0e 9c 05 e1 0d 0e b0 19  f2 57 69 6d 70 5f 57 69  |.........Wimp_Wi|
00001a60  6e 64 6f 77 49 6e 74 65  72 66 61 63 65 0d 0e ba  |ndowInterface...|
00001a70  20 c8 99 22 57 69 6d 70  5f 42 6f 72 64 65 72 57  | .."Wimp_BorderW|
00001a80  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 0e c4  |indow",,wimp%...|
00001a90  05 e1 0d 0f d2 1c dd 20  a4 57 69 6d 70 5f 49 63  |....... .Wimp_Ic|
00001aa0  6f 6e 42 61 72 28 53 70  72 69 74 65 24 29 0d 0f  |onBar(Sprite$)..|
00001ab0  dc 0b ea 20 69 63 6f 6e  25 0d 0f e6 0e 77 69 6d  |... icon%....wim|
00001ac0  70 25 21 30 3d 2d 31 0d  0f f0 1c 77 69 6d 70 25  |p%!0=-1....wimp%|
00001ad0  21 34 3d 30 20 20 20 20  20 3a 77 69 6d 70 25 21  |!4=0     :wimp%!|
00001ae0  38 3d 30 0d 0f fa 1c 77  69 6d 70 25 21 31 32 3d  |8=0....wimp%!12=|
00001af0  36 38 20 3a 77 69 6d 70  25 21 31 36 3d 36 38 0d  |68 :wimp%!16=68.|
00001b00  10 04 12 77 69 6d 70 25  21 32 30 3d 26 33 30 30  |...wimp%!20=&300|
00001b10  32 0d 10 0e 17 24 28 77  69 6d 70 25 2b 32 34 29  |2....$(wimp%+24)|
00001b20  3d 53 70 72 69 74 65 24  0d 10 18 27 c8 99 20 22  |=Sprite$...'.. "|
00001b30  57 69 6d 70 5f 43 72 65  61 74 65 49 63 6f 6e 22  |Wimp_CreateIcon"|
00001b40  2c 2c 77 69 6d 70 25 20  b8 20 69 63 6f 6e 25 0d  |,,wimp% . icon%.|
00001b50  10 22 0a 3d 69 63 6f 6e  25 0d 10 36 2b dd 20 f2  |.".=icon%..6+. .|
00001b60  57 69 6d 70 5f 49 63 6f  6e 43 61 72 65 74 28 77  |Wimp_IconCaret(w|
00001b70  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 63 68 61  |indow%,icon%,cha|
00001b80  72 73 25 29 0d 10 40 38  c8 99 20 22 57 69 6d 70  |rs%)..@8.. "Wimp|
00001b90  5f 53 65 74 43 61 72 65  74 50 6f 73 69 74 69 6f  |_SetCaretPositio|
00001ba0  6e 22 2c 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |n",window%,icon%|
00001bb0  2c 2c 2c 2d 31 2c 63 68  61 72 73 25 0d 10 4a 05  |,,,-1,chars%..J.|
00001bc0  e1 0d 10 5e 23 dd 20 a4  57 69 6d 70 5f 49 63 6f  |...^#. .Wimp_Ico|
00001bd0  6e 54 65 78 74 28 77 69  6e 64 6f 77 25 2c 69 63  |nText(window%,ic|
00001be0  6f 6e 25 29 0d 10 68 22  77 69 6d 70 25 21 30 3d  |on%)..h"wimp%!0=|
00001bf0  77 69 6e 64 6f 77 25 20  3a 77 69 6d 70 25 21 34  |window% :wimp%!4|
00001c00  3d 69 63 6f 6e 25 0d 10  72 21 c8 99 20 22 57 69  |=icon%..r!.. "Wi|
00001c10  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001c20  2c 2c 77 69 6d 70 25 0d  10 7c 37 e7 20 28 28 77  |,,wimp%..|7. ((w|
00001c30  69 6d 70 25 21 32 34 29  20 80 20 26 31 30 30 29  |imp%!24) . &100)|
00001c40  3d 30 20 85 20 31 2c 22  49 63 6f 6e 20 69 73 6e  |=0 . 1,"Icon isn|
00001c50  27 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 10  |'t indirected"..|
00001c60  86 10 3d 24 28 77 69 6d  70 25 21 32 38 29 0d 10  |..=$(wimp%!28)..|
00001c70  9a 29 dd 20 a4 57 69 6d  70 5f 49 63 6f 6e 56 61  |.). .Wimp_IconVa|
00001c80  6c 69 64 61 74 69 6f 6e  28 77 69 6e 64 6f 77 25  |lidation(window%|
00001c90  2c 69 63 6f 6e 25 29 0d  10 a4 22 77 69 6d 70 25  |,icon%)..."wimp%|
00001ca0  21 30 3d 77 69 6e 64 6f  77 25 20 3a 77 69 6d 70  |!0=window% :wimp|
00001cb0  25 21 34 3d 69 63 6f 6e  25 0d 10 ae 21 c8 99 20  |%!4=icon%...!.. |
00001cc0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001cd0  74 65 22 2c 2c 77 69 6d  70 25 0d 10 b8 37 e7 20  |te",,wimp%...7. |
00001ce0  28 28 77 69 6d 70 25 21  32 34 29 20 80 20 26 31  |((wimp%!24) . &1|
00001cf0  30 30 29 3d 30 20 85 20  31 2c 22 49 63 6f 6e 20  |00)=0 . 1,"Icon |
00001d00  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
00001d10  22 0d 10 c2 10 3d 24 28  77 69 6d 70 25 21 33 32  |"....=$(wimp%!32|
00001d20  29 0d 10 d6 26 dd 20 f2  57 69 6d 70 5f 49 63 6f  |)...&. .Wimp_Ico|
00001d30  6e 44 69 73 61 62 6c 65  28 77 69 6e 64 6f 77 25  |nDisable(window%|
00001d40  2c 69 63 6f 6e 25 29 0d  10 e0 22 77 69 6d 70 25  |,icon%)..."wimp%|
00001d50  21 30 3d 77 69 6e 64 6f  77 25 20 3a 77 69 6d 70  |!0=window% :wimp|
00001d60  25 21 34 3d 69 63 6f 6e  25 0d 10 ea 23 77 69 6d  |%!4=icon%...#wim|
00001d70  70 25 21 38 3d 31 3c 3c  32 32 20 20 20 3a 77 69  |p%!8=1<<22   :wi|
00001d80  6d 70 25 21 31 32 3d 31  3c 3c 32 32 0d 10 f4 21  |mp%!12=1<<22...!|
00001d90  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00001da0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 10 fe  |State",,wimp%...|
00001db0  05 e1 0d 11 12 25 dd 20  f2 57 69 6d 70 5f 49 63  |.....%. .Wimp_Ic|
00001dc0  6f 6e 45 6e 61 62 6c 65  28 77 69 6e 64 6f 77 25  |onEnable(window%|
00001dd0  2c 69 63 6f 6e 25 29 0d  11 1c 22 77 69 6d 70 25  |,icon%)..."wimp%|
00001de0  21 30 3d 77 69 6e 64 6f  77 25 20 3a 77 69 6d 70  |!0=window% :wimp|
00001df0  25 21 34 3d 69 63 6f 6e  25 0d 11 26 23 77 69 6d  |%!4=icon%..&#wim|
00001e00  70 25 21 38 3d 30 20 20  20 20 20 20 20 3a 77 69  |p%!8=0       :wi|
00001e10  6d 70 25 21 31 32 3d 31  3c 3c 32 32 0d 11 30 21  |mp%!12=1<<22..0!|
00001e20  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00001e30  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 11 3a  |State",,wimp%..:|
00001e40  05 e1 0d 11 4e 30 dd 20  a4 57 69 6d 70 5f 49 63  |....N0. .Wimp_Ic|
00001e50  6f 6e 50 75 74 53 70 72  69 74 65 28 77 69 6e 64  |onPutSprite(wind|
00001e60  6f 77 25 2c 69 63 6f 6e  25 2c 73 70 72 69 74 65  |ow%,icon%,sprite|
00001e70  24 29 0d 11 58 21 77 69  6d 70 25 21 30 3d 77 69  |$)..X!wimp%!0=wi|
00001e80  6e 64 6f 77 25 3a 77 69  6d 70 25 21 34 3d 69 63  |ndow%:wimp%!4=ic|
00001e90  6f 6e 25 0d 11 62 21 c8  99 20 22 57 69 6d 70 5f  |on%..b!.. "Wimp_|
00001ea0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
00001eb0  69 6d 70 25 0d 11 6c 1f  c8 99 20 22 57 69 6d 70  |imp%..l... "Wimp|
00001ec0  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 77 69  |_DeleteIcon",,wi|
00001ed0  6d 70 25 0d 11 76 3b 77  69 6d 70 25 21 34 3d 77  |mp%..v;wimp%!4=w|
00001ee0  69 6d 70 25 21 38 20 20  20 3a 77 69 6d 70 25 21  |imp%!8   :wimp%!|
00001ef0  38 3d 77 69 6d 70 25 21  31 32 20 20 3a 77 69 6d  |8=wimp%!12  :wim|
00001f00  70 25 21 31 32 3d 77 69  6d 70 25 21 31 36 0d 11  |p%!12=wimp%!16..|
00001f10  80 3d 77 69 6d 70 25 21  31 36 3d 77 69 6d 70 25  |.=wimp%!16=wimp%|
00001f20  21 32 30 20 3a 77 69 6d  70 25 21 32 30 3d 77 69  |!20 :wimp%!20=wi|
00001f30  6d 70 25 21 32 34 20 3a  24 28 77 69 6d 70 25 2b  |mp%!24 :$(wimp%+|
00001f40  32 34 29 3d 73 70 72 69  74 65 24 0d 11 8a 27 c8  |24)=sprite$...'.|
00001f50  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
00001f60  6f 6e 22 2c 2c 77 69 6d  70 25 20 b8 20 69 63 6f  |on",,wimp% . ico|
00001f70  6e 25 0d 11 94 0a 3d 69  63 6f 6e 25 0d 11 a8 2c  |n%....=icon%...,|
00001f80  dd 20 f2 57 69 6d 70 5f  49 63 6f 6e 50 75 74 54  |. .Wimp_IconPutT|
00001f90  65 78 74 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ext(window%,icon|
00001fa0  25 2c 74 65 78 74 24 29  0d 11 b2 22 77 69 6d 70  |%,text$)..."wimp|
00001fb0  25 21 30 3d 77 69 6e 64  6f 77 25 20 3a 77 69 6d  |%!0=window% :wim|
00001fc0  70 25 21 34 3d 69 63 6f  6e 25 0d 11 bc 21 c8 99  |p%!4=icon%...!..|
00001fd0  20 22 57 69 6d 70 5f 47  65 74 49 63 6f 6e 53 74  | "Wimp_GetIconSt|
00001fe0  61 74 65 22 2c 2c 77 69  6d 70 25 0d 11 c6 37 e7  |ate",,wimp%...7.|
00001ff0  20 28 28 77 69 6d 70 25  21 32 34 29 20 80 20 26  | ((wimp%!24) . &|
00002000  31 30 30 29 3d 30 20 85  20 31 2c 22 49 63 6f 6e  |100)=0 . 1,"Icon|
00002010  20 69 73 6e 27 74 20 69  6e 64 69 72 65 63 74 65  | isn't indirecte|
00002020  64 22 0d 11 d0 15 24 28  77 69 6d 70 25 21 32 38  |d"....$(wimp%!28|
00002030  29 3d 74 65 78 74 24 0d  11 da 22 77 69 6d 70 25  |)=text$..."wimp%|
00002040  21 30 3d 77 69 6e 64 6f  77 25 20 3a 77 69 6d 70  |!0=window% :wimp|
00002050  25 21 34 3d 69 63 6f 6e  25 0d 11 e4 19 77 69 6d  |%!4=icon%....wim|
00002060  70 25 21 38 3d 30 20 3a  77 69 6d 70 25 21 31 32  |p%!8=0 :wimp%!12|
00002070  3d 30 0d 11 ee 21 c8 99  20 22 57 69 6d 70 5f 53  |=0...!.. "Wimp_S|
00002080  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00002090  6d 70 25 0d 11 f8 05 e1  0d 12 0c 1e dd 20 f2 57  |mp%.......... .W|
000020a0  69 6d 70 5f 49 63 6f 6e  49 6e 74 65 72 66 61 63  |imp_IconInterfac|
000020b0  65 53 74 61 72 74 0d 12  16 1e c8 99 22 57 69 6d  |eStart......"Wim|
000020c0  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
000020d0  69 6d 70 25 0d 12 20 05  e1 0d 12 34 1f dd 20 f2  |imp%.. ....4.. .|
000020e0  57 69 6d 70 5f 49 63 6f  6e 49 6e 74 65 72 66 61  |Wimp_IconInterfa|
000020f0  63 65 46 69 6e 69 73 68  0d 12 3e 0d 77 69 6d 70  |ceFinish..>.wimp|
00002100  25 21 38 3d 30 0d 12 48  1e c8 99 22 57 69 6d 70  |%!8=0..H..."Wimp|
00002110  5f 42 6f 72 64 65 72 49  63 6f 6e 22 2c 2c 77 69  |_BorderIcon",,wi|
00002120  6d 70 25 0d 12 52 05 e1  0d 13 e2 1f dd 20 f2 57  |mp%..R....... .W|
00002130  69 6d 70 5f 4d 65 6e 75  41 64 6a 75 73 74 4f 6e  |imp_MenuAdjustOn|
00002140  28 6d 65 6e 75 25 29 0d  13 ec 2c c8 99 20 22 57  |(menu%)...,.. "W|
00002150  69 6d 70 5f 47 65 74 50  6f 69 6e 74 65 72 49 6e  |imp_GetPointerIn|
00002160  66 6f 22 2c 2c 70 6f 69  6e 74 65 72 5f 62 6c 6f  |fo",,pointer_blo|
00002170  63 6b 25 0d 13 f6 5d e7  20 28 28 70 6f 69 6e 74  |ck%...]. ((point|
00002180  65 72 5f 62 6c 6f 63 6b  25 21 38 29 80 31 29 3d  |er_block%!8).1)=|
00002190  31 20 8c c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |1 ... "Wimp_Crea|
000021a0  74 65 4d 65 6e 75 22 2c  2c 6d 65 6e 75 25 2c 70  |teMenu",,menu%,p|
000021b0  6f 69 6e 74 65 72 5f 62  6c 6f 63 6b 25 21 30 2c  |ointer_block%!0,|
000021c0  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 21 34  |pointer_block%!4|
000021d0  0d 14 00 05 e1 0d 14 14  1e dd 20 a4 57 69 6d 70  |.......... .Wimp|
000021e0  5f 4d 65 6e 75 43 68 6f  69 63 65 28 6c 65 76 65  |_MenuChoice(leve|
000021f0  6c 25 29 0d 14 1e 19 3d  28 77 69 6d 70 25 21 28  |l%)....=(wimp%!(|
00002200  34 2a 6c 65 76 65 6c 25  29 29 2b 31 0d 14 32 1d  |4*level%))+1..2.|
00002210  dd 20 a4 57 69 6d 70 5f  4d 65 6e 75 43 72 65 61  |. .Wimp_MenuCrea|
00002220  74 65 28 6d 65 6e 75 24  29 0d 14 3c 29 e7 20 6d  |te(menu$)..<). m|
00002230  65 6e 75 24 3d 22 43 6f  6c 6f 75 72 73 22 20 8c  |enu$="Colours" .|
00002240  3d a4 57 69 6d 70 5f 4d  65 6e 75 43 6f 6c 6f 75  |=.Wimp_MenuColou|
00002250  72 73 0d 14 46 27 ea 20  6d 65 6e 75 25 2c 69 6e  |rs..F'. menu%,in|
00002260  64 65 78 25 2c 77 69 64  74 68 25 2c 6c 65 6e 67  |dex%,width%,leng|
00002270  74 68 25 2c 6b 25 2c 73  25 0d 14 50 2e de 20 6d  |th%,k%,s%..P.. m|
00002280  65 6e 75 25 20 32 38 2b  a4 57 69 6d 70 5f 4d 65  |enu% 28+.Wimp_Me|
00002290  6e 75 4e 6f 4f 66 45 6e  74 72 69 65 73 28 6d 65  |nuNoOfEntries(me|
000022a0  6e 75 24 29 2a 32 34 0d  14 5a 35 6d 65 6e 75 25  |nu$)*24..Z5menu%|
000022b0  3f 31 32 3d 37 20 20 20  3a 6d 65 6e 75 25 3f 31  |?12=7   :menu%?1|
000022c0  33 3d 32 20 20 3a 6d 65  6e 75 25 3f 31 34 3d 37  |3=2  :menu%?14=7|
000022d0  20 3a 6d 65 6e 75 25 3f  31 35 3d 30 0d 14 64 29  | :menu%?15=0..d)|
000022e0  6d 65 6e 75 25 21 31 36  3d 31 34 30 20 3a 6d 65  |menu%!16=140 :me|
000022f0  6e 75 25 21 32 30 3d 34  34 20 3a 6d 65 6e 75 25  |nu%!20=44 :menu%|
00002300  21 32 34 3d 30 0d 14 6e  13 69 6e 64 65 78 25 3d  |!24=0..n.index%=|
00002310  6d 65 6e 75 25 2b 32 38  0d 14 78 20 24 6d 65 6e  |menu%+28..x $men|
00002320  75 25 3d c0 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |u%=.menu$,.menu$|
00002330  2c 22 5c 22 29 2d 31 29  0d 14 82 23 77 69 64 74  |,"\")-1)...#widt|
00002340  68 25 3d a9 28 c0 6d 65  6e 75 24 2c a7 6d 65 6e  |h%=.(.menu$,.men|
00002350  75 24 2c 22 5c 22 29 2d  31 29 29 0d 14 8c 23 6d  |u$,"\")-1))...#m|
00002360  65 6e 75 24 2b 3d 22 5c  22 20 3a 4d 65 6e 75 5f  |enu$+="\" :Menu_|
00002370  4e 6f 4f 66 45 6e 74 72  69 65 73 25 3d 30 0d 14  |NoOfEntries%=0..|
00002380  96 10 c8 95 20 6d 65 6e  75 24 3c 3e 22 22 0d 14  |.... menu$<>""..|
00002390  a0 1f 6d 65 6e 75 24 3d  c1 6d 65 6e 75 24 2c a7  |..menu$=.menu$,.|
000023a0  6d 65 6e 75 24 2c 22 5c  22 29 2b 31 29 0d 14 aa  |menu$,"\")+1)...|
000023b0  0e c8 8e 20 6d 65 6e 75  24 20 ca 0d 14 b4 08 c9  |... menu$ ......|
000023c0  20 22 22 0d 14 be 06 7f  20 0d 14 c8 2d 21 69 6e  | ""..... ...-!in|
000023d0  64 65 78 25 3d 30 20 3a  69 6e 64 65 78 25 21 34  |dex%=0 :index%!4|
000023e0  3d 2d 31 20 3a 69 6e 64  65 78 25 21 38 3d 26 37  |=-1 :index%!8=&7|
000023f0  30 30 30 30 32 31 0d 14  d2 19 6c 65 6e 67 74 68  |000021....length|
00002400  25 3d a7 6d 65 6e 75 24  2c 22 5c 22 29 2d 31 0d  |%=.menu$,"\")-1.|
00002410  14 dc 1c 6b 25 3d a7 c0  6d 65 6e 75 24 2c 6c 65  |...k%=..menu$,le|
00002420  6e 67 74 68 25 29 2c 22  3e 22 29 0d 14 e6 0b c8  |ngth%),">").....|
00002430  8e 20 6b 25 20 ca 0d 14  f0 07 c9 20 30 0d 14 fa  |. k% ...... 0...|
00002440  05 7f 0d 15 04 21 73 25  3d a0 28 c1 6d 65 6e 75  |.....!s%=.(.menu|
00002450  24 2c 6b 25 2b 31 2c 6c  65 6e 67 74 68 25 2d 6b  |$,k%+1,length%-k|
00002460  25 29 29 0d 15 0e 0f 69  6e 64 65 78 25 21 34 3d  |%))....index%!4=|
00002470  73 25 0d 15 18 10 6c 65  6e 67 74 68 25 3d 6b 25  |s%....length%=k%|
00002480  2d 31 0d 15 22 05 cb 0d  15 2c 20 24 28 69 6e 64  |-1.."...., $(ind|
00002490  65 78 25 2b 31 32 29 3d  c0 6d 65 6e 75 24 2c 6c  |ex%+12)=.menu$,l|
000024a0  65 6e 67 74 68 25 29 0d  15 36 24 e7 20 6c 65 6e  |ength%)..6$. len|
000024b0  67 74 68 25 3e 77 69 64  74 68 25 20 8c 77 69 64  |gth%>width% .wid|
000024c0  74 68 25 3d 6c 65 6e 67  74 68 25 0d 15 40 0e 69  |th%=length%..@.i|
000024d0  6e 64 65 78 25 2b 3d 32  34 0d 15 4a 05 cb 0d 15  |ndex%+=24..J....|
000024e0  54 05 ce 0d 15 5e 1a 6d  65 6e 75 25 21 31 36 3d  |T....^.menu%!16=|
000024f0  31 36 2a 28 77 69 64 74  68 25 2b 31 29 0d 15 68  |16*(width%+1)..h|
00002500  27 69 6e 64 65 78 25 21  2d 32 34 3d 69 6e 64 65  |'index%!-24=inde|
00002510  78 25 21 2d 32 34 20 84  20 26 38 30 20 3a 3d 6d  |x%!-24 . &80 :=m|
00002520  65 6e 75 25 0d 15 7c 17  dd 20 a4 57 69 6d 70 5f  |enu%..|.. .Wimp_|
00002530  4d 65 6e 75 43 6f 6c 6f  75 72 73 0d 15 86 21 3d  |MenuColours...!=|
00002540  a4 57 69 6d 70 5f 4d 65  6e 75 43 72 65 61 74 65  |.Wimp_MenuCreate|
00002550  43 6f 6c 6f 75 72 73 28  22 20 22 29 0d 15 9a 25  |Colours(" ")...%|
00002560  dd 20 a4 57 69 6d 70 5f  4d 65 6e 75 43 72 65 61  |. .Wimp_MenuCrea|
00002570  74 65 43 6f 6c 6f 75 72  73 28 74 69 74 6c 65 24  |teColours(title$|
00002580  29 0d 15 a4 13 ea 20 78  24 2c 6d 65 6e 25 2c 6a  |)..... x$,men%,j|
00002590  25 2c 69 25 0d 15 ae 36  78 24 3d 74 69 74 6c 65  |%,i%...6x$=title|
000025a0  24 2b 22 5c 30 5c 31 5c  32 5c 33 5c 34 5c 35 5c  |$+"\0\1\2\3\4\5\|
000025b0  36 5c 37 5c 38 5c 39 5c  31 30 5c 31 31 5c 31 32  |6\7\8\9\10\11\12|
000025c0  5c 31 33 5c 31 34 5c 31  35 22 0d 15 b8 1d 6d 65  |\13\14\15"....me|
000025d0  6e 25 3d a4 57 69 6d 70  5f 4d 65 6e 75 43 72 65  |n%=.Wimp_MenuCre|
000025e0  61 74 65 28 78 24 29 0d  15 c2 0f e3 20 69 25 3d  |ate(x$)..... i%=|
000025f0  30 20 b8 20 31 35 0d 15  cc 0a c8 8e 20 b9 20 ca  |0 . 15...... . .|
00002600  0d 15 d6 27 c9 20 69 25  3c 34 2c 69 25 3d 39 2c  |...'. i%<4,i%=9,|
00002610  69 25 3d 31 32 2c 69 25  3d 31 34 2c 69 25 3d 31  |i%=12,i%=14,i%=1|
00002620  35 20 3a 6a 25 3d 37 0d  15 e0 0b 7f 20 3a 6a 25  |5 :j%=7..... :j%|
00002630  3d 30 0d 15 ea 05 cb 0d  15 f4 1c 6d 65 6e 25 3f  |=0.........men%?|
00002640  28 33 39 2b 69 25 2a 32  34 29 3d 69 25 2a 31 36  |(39+i%*24)=i%*16|
00002650  2b 6a 25 0d 15 fe 1f f2  57 69 6d 70 5f 4d 65 6e  |+j%.....Wimp_Men|
00002660  75 43 65 6e 74 72 65 28  6d 65 6e 25 2c 69 25 2b  |uCentre(men%,i%+|
00002670  31 29 0d 16 08 05 ed 0d  16 12 09 3d 6d 65 6e 25  |1).........=men%|
00002680  0d 16 26 22 dd 20 a4 57  69 6d 70 5f 4d 65 6e 75  |..&". .Wimp_Menu|
00002690  4e 6f 4f 66 45 6e 74 72  69 65 73 28 6d 65 6e 75  |NoOfEntries(menu|
000026a0  24 29 0d 16 30 18 ea 20  6e 25 20 2c 6a 25 20 3a  |$)..0.. n% ,j% :|
000026b0  6e 25 3d 30 20 3a 6a 25  3d 30 0d 16 3a 05 f5 0d  |n%=0 :j%=0..:...|
000026c0  16 44 17 6a 25 3d a7 6d  65 6e 75 24 2c 22 5c 22  |.D.j%=.menu$,"\"|
000026d0  2c 6a 25 2b 31 29 0d 16  4e 12 e7 20 6a 25 3c 3e  |,j%+1)..N.. j%<>|
000026e0  30 20 8c 6e 25 2b 3d 31  0d 16 58 0a fd 20 6a 25  |0 .n%+=1..X.. j%|
000026f0  3d 30 0d 16 62 07 3d 6e  25 0d 16 76 35 dd 20 f2  |=0..b.=n%..v5. .|
00002700  57 69 6d 70 5f 4d 65 6e  75 42 61 63 6b 47 72 6f  |Wimp_MenuBackGro|
00002710  75 6e 64 43 6f 6c 6f 75  72 28 6d 65 6e 75 25 2c  |undColour(menu%,|
00002720  69 74 65 6d 25 2c 63 6f  6c 6f 75 72 25 29 0d 16  |item%,colour%)..|
00002730  80 0e ea 20 66 6f 72 65  25 2c 69 25 0d 16 8a 26  |... fore%,i%...&|
00002740  66 6f 72 65 25 3d 28 6d  65 6e 75 25 3f 28 33 39  |fore%=(menu%?(39|
00002750  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 29 83  |+(item%-1)*24)).|
00002760  31 36 0d 16 94 28 69 25  3d 28 28 6d 65 6e 75 25  |16...(i%=((menu%|
00002770  3f 28 33 39 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |?(39+(item%-1)*2|
00002780  34 29 29 81 31 36 29 83  31 36 0d 16 9e 2f 6d 65  |4)).16).16.../me|
00002790  6e 75 25 3f 28 33 39 2b  28 69 74 65 6d 25 2d 31  |nu%?(39+(item%-1|
000027a0  29 2a 32 34 29 3d 66 6f  72 65 25 2b 31 36 2a 63  |)*24)=fore%+16*c|
000027b0  6f 6c 6f 75 72 25 2b 69  25 0d 16 a8 05 e1 0d 16  |olour%+i%.......|
000027c0  bc 23 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 43 65  |.#. .Wimp_MenuCe|
000027d0  6e 74 72 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |ntre(menu%,item%|
000027e0  29 0d 16 c6 3a 6d 65 6e  75 25 21 28 33 36 2b 28  |)...:menu%!(36+(|
000027f0  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 6d 65 6e  |item%-1)*24)=men|
00002800  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
00002810  2a 32 34 29 84 28 31 3c  3c 33 29 0d 16 d0 05 e1  |*24).(1<<3).....|
00002820  0d 16 e4 15 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..... .Wimp_Menu|
00002830  43 6c 6f 73 65 0d 16 ee  1b c8 99 20 22 57 69 6d  |Close...... "Wim|
00002840  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00002850  0d 16 f8 05 e1 0d 17 0c  24 dd 20 f2 57 69 6d 70  |........$. .Wimp|
00002860  5f 4d 65 6e 75 44 69 73  61 62 6c 65 28 6d 65 6e  |_MenuDisable(men|
00002870  75 25 2c 69 74 65 6d 25  29 0d 17 16 3b 6d 65 6e  |u%,item%)...;men|
00002880  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
00002890  2a 32 34 29 3d 6d 65 6e  75 25 21 28 33 36 2b 28  |*24)=menu%!(36+(|
000028a0  69 74 65 6d 25 2d 31 29  2a 32 34 29 84 28 31 3c  |item%-1)*24).(1<|
000028b0  3c 32 32 29 0d 17 20 05  e1 0d 17 34 27 dd 20 f2  |<22).. ....4'. .|
000028c0  57 69 6d 70 5f 4d 65 6e  75 44 6f 74 74 65 64 4c  |Wimp_MenuDottedL|
000028d0  69 6e 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |ine(menu%,item%)|
000028e0  0d 17 3e 37 6d 65 6e 75  25 21 28 32 38 2b 28 69  |..>7menu%!(28+(i|
000028f0  74 65 6d 25 2d 31 29 2a  32 34 29 3d 28 6d 65 6e  |tem%-1)*24)=(men|
00002900  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
00002910  2a 32 34 29 29 84 32 0d  17 48 05 e1 0d 17 5c 23  |*24)).2..H....\#|
00002920  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 45 6e 61 62  |. .Wimp_MenuEnab|
00002930  6c 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |le(menu%,item%).|
00002940  17 66 22 f2 57 69 6d 70  5f 4d 65 6e 75 44 69 73  |.f".Wimp_MenuDis|
00002950  61 62 6c 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |able(menu%,item%|
00002960  29 0d 17 70 3b 6d 65 6e  75 25 21 28 33 36 2b 28  |)..p;menu%!(36+(|
00002970  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 6d 65 6e  |item%-1)*24)=men|
00002980  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
00002990  2a 32 34 29 82 28 31 3c  3c 32 32 29 0d 17 7a 05  |*24).(1<<22)..z.|
000029a0  e1 0d 17 8e 35 dd 20 f2  57 69 6d 70 5f 4d 65 6e  |....5. .Wimp_Men|
000029b0  75 46 6f 72 65 67 72 6f  75 6e 64 43 6f 6c 6f 75  |uForegroundColou|
000029c0  72 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 63 6f  |r(menu%,item%,co|
000029d0  6c 6f 75 72 25 29 0d 17  98 45 6d 65 6e 75 25 3f  |lour%)...Emenu%?|
000029e0  28 33 39 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(39+(item%-1)*24|
000029f0  29 3d 63 6f 6c 6f 75 72  25 2b 31 36 2a 28 28 6d  |)=colour%+16*((m|
00002a00  65 6e 75 25 3f 28 33 39  2b 28 69 74 65 6d 25 2d  |enu%?(39+(item%-|
00002a10  31 29 2a 32 34 29 29 81  31 36 29 0d 17 a2 05 e1  |1)*24)).16).....|
00002a20  0d 17 b6 29 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |...). .Wimp_Menu|
00002a30  47 6c 75 65 28 6d 65 6e  75 31 25 2c 69 74 65 6d  |Glue(menu1%,item|
00002a40  25 2c 6d 65 6e 75 32 25  29 0d 17 c0 1e 6d 65 6e  |%,menu2%)....men|
00002a50  75 31 25 21 28 38 2b 69  74 65 6d 25 2a 32 34 29  |u1%!(8+item%*24)|
00002a60  3d 6d 65 6e 75 32 25 0d  17 ca 05 e1 0d 17 de 27  |=menu2%........'|
00002a70  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 49 74 65 6d  |. .Wimp_MenuItem|
00002a80  28 6d 65 6e 75 25 2c 69  74 65 6d 25 2c 69 74 65  |(menu%,item%,ite|
00002a90  6d 24 29 0d 17 e8 2c 24  28 6d 65 6e 75 25 2b 28  |m$)...,$(menu%+(|
00002aa0  34 30 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |40+(item%-1)*24)|
00002ab0  29 3d c0 69 74 65 6d 24  2c 31 32 29 2b bd 30 0d  |)=.item$,12)+.0.|
00002ac0  17 f2 05 e1 0d 18 06 24  dd 20 f2 57 69 6d 70 5f  |.......$. .Wimp_|
00002ad0  4d 65 6e 75 4d 65 73 73  61 67 65 28 6d 65 6e 75  |MenuMessage(menu|
00002ae0  25 2c 69 74 65 6d 25 29  0d 18 10 3c 6d 65 6e 75  |%,item%)...<menu|
00002af0  25 21 28 32 38 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(28+(item%-1)*|
00002b00  32 34 29 3d 28 6d 65 6e  75 25 21 28 32 38 2b 28  |24)=(menu%!(28+(|
00002b10  69 74 65 6d 25 2d 31 29  2a 32 34 29 29 82 28 31  |item%-1)*24)).(1|
00002b20  3c 3c 33 29 0d 18 1a 05  e1 0d 18 2e 22 dd 20 f2  |<<3)........". .|
00002b30  57 69 6d 70 5f 4d 65 6e  75 50 6f 70 55 70 28 4d  |Wimp_MenuPopUp(M|
00002b40  65 6e 75 25 2c 78 25 2c  79 25 29 0d 18 38 0f 6d  |enu%,x%,y%)..8.m|
00002b50  65 6e 75 25 3d 4d 65 6e  75 25 0d 18 42 2b c8 99  |enu%=Menu%..B+..|
00002b60  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00002b70  75 22 2c 2c 6d 65 6e 75  25 2c 78 25 2d 36 34 2c  |u",,menu%,x%-64,|
00002b80  79 25 2b 32 30 0d 18 4c  05 e1 0d 18 60 1f dd 20  |y%+20..L....`.. |
00002b90  f2 57 69 6d 70 5f 4d 65  6e 75 50 6f 70 55 70 42  |.Wimp_MenuPopUpB|
00002ba0  61 72 28 78 25 2c 79 25  29 0d 18 6a 0e ea 20 6e  |ar(x%,y%)..j.. n|
00002bb0  25 20 3a 6e 25 3d 30 0d  18 74 2b c8 95 20 28 28  |% :n%=0..t+.. ((|
00002bc0  42 61 72 5f 4d 65 6e 75  25 21 28 32 38 2b 6e 25  |Bar_Menu%!(28+n%|
00002bd0  2a 32 34 29 29 80 25 31  30 30 30 30 30 30 30 29  |*24)).%10000000)|
00002be0  3d 30 0d 18 7e 09 6e 25  2b 3d 31 0d 18 88 05 ce  |=0..~.n%+=1.....|
00002bf0  0d 18 92 32 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...2.. "Wimp_Cre|
00002c00  61 74 65 4d 65 6e 75 22  2c 2c 42 61 72 5f 4d 65  |ateMenu",,Bar_Me|
00002c10  6e 75 25 2c 78 25 2d 36  34 2c 39 36 2b 6e 25 2a  |nu%,x%-64,96+n%*|
00002c20  34 34 0d 18 9c 13 6d 65  6e 75 25 3d 42 61 72 5f  |44....menu%=Bar_|
00002c30  4d 65 6e 75 25 0d 18 a6  05 e1 0d 18 ba 21 dd 20  |Menu%........!. |
00002c40  f2 57 69 6d 70 5f 4d 65  6e 75 54 69 63 6b 28 6d  |.Wimp_MenuTick(m|
00002c50  65 6e 75 25 2c 69 74 65  6d 25 29 0d 18 c4 37 6d  |enu%,item%)...7m|
00002c60  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00002c70  31 29 2a 32 34 29 3d 28  6d 65 6e 75 25 21 28 32  |1)*24)=(menu%!(2|
00002c80  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |8+(item%-1)*24))|
00002c90  82 31 0d 18 ce 05 e1 0d  18 e2 23 dd 20 f2 57 69  |.1........#. .Wi|
00002ca0  6d 70 5f 4d 65 6e 75 54  69 74 6c 65 28 6d 65 6e  |mp_MenuTitle(men|
00002cb0  75 25 2c 74 69 74 6c 65  24 29 0d 18 ec 19 24 6d  |u%,title$)....$m|
00002cc0  65 6e 75 25 3d c0 74 69  74 6c 65 24 2c 31 32 29  |enu%=.title$,12)|
00002cd0  2b bd 30 0d 18 f6 05 e1  0d 19 0a 3d dd 20 f2 57  |+.0........=. .W|
00002ce0  69 6d 70 5f 4d 65 6e 75  57 72 69 74 65 28 6d 65  |imp_MenuWrite(me|
00002cf0  6e 75 25 2c 69 74 65 6d  25 2c 62 75 66 66 65 72  |nu%,item%,buffer|
00002d00  25 2c 76 61 6c 25 2c 42  75 66 66 65 72 4c 65 6e  |%,val%,BufferLen|
00002d10  67 74 68 25 29 0d 19 14  37 6d 65 6e 75 25 21 28  |gth%)...7menu%!(|
00002d20  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
00002d30  3d 28 6d 65 6e 75 25 21  28 32 38 2b 28 69 74 65  |=(menu%!(28+(ite|
00002d40  6d 25 2d 31 29 2a 32 34  29 29 84 34 0d 19 1e 38  |m%-1)*24)).4...8|
00002d50  6d 65 6e 75 25 21 28 33  36 2b 28 69 74 65 6d 25  |menu%!(36+(item%|
00002d60  2d 31 29 2a 32 34 29 3d  6d 65 6e 75 25 21 28 33  |-1)*24)=menu%!(3|
00002d70  36 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 84  |6+(item%-1)*24).|
00002d80  26 31 30 30 0d 19 28 23  6d 65 6e 75 25 21 28 34  |&100..(#menu%!(4|
00002d90  30 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |0+(item%-1)*24)=|
00002da0  62 75 66 66 65 72 25 0d  19 32 20 6d 65 6e 75 25  |buffer%..2 menu%|
00002db0  21 28 34 34 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(44+(item%-1)*2|
00002dc0  34 29 3d 76 61 6c 25 0d  19 3c 29 6d 65 6e 75 25  |4)=val%..<)menu%|
00002dd0  21 28 34 38 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(48+(item%-1)*2|
00002de0  34 29 3d 42 75 66 66 65  72 4c 65 6e 67 74 68 25  |4)=BufferLength%|
00002df0  0d 19 46 05 e1 0d 1a 2c  17 dd 20 f2 57 69 6d 70  |..F....,.. .Wimp|
00002e00  5f 53 70 72 69 74 65 73  4c 6f 61 64 0d 1a 36 31  |_SpritesLoad..61|
00002e10  f2 57 69 6d 70 5f 53 70  72 69 74 65 73 50 61 74  |.Wimp_SpritesPat|
00002e20  68 4c 6f 61 64 28 22 3c  55 6e 6c 6f 63 6b 24 44  |hLoad("<Unlock$D|
00002e30  69 72 3e 2e 53 70 72 69  74 65 73 22 29 0d 1a 40  |ir>.Sprites")..@|
00002e40  1c 64 69 72 65 63 74 5f  73 70 72 69 74 65 73 25  |.direct_sprites%|
00002e50  3d 73 70 72 69 74 65 73  25 0d 1a 4a 05 e1 0d 1a  |=sprites%..J....|
00002e60  5e 26 dd 20 f2 57 69 6d  70 5f 53 70 72 69 74 65  |^&. .Wimp_Sprite|
00002e70  73 50 61 74 68 4c 6f 61  64 28 70 61 74 68 6e 61  |sPathLoad(pathna|
00002e80  6d 65 24 29 0d 1a 68 0a  ea 53 25 2c 54 25 0d 1a  |me$)..h..S%,T%..|
00002e90  72 2e 53 25 3d 8e 22 3c  55 6e 6c 6f 63 6b 24 44  |r.S%=."<Unlock$D|
00002ea0  69 72 3e 2e 53 70 72 69  74 65 73 22 3a 54 25 3d  |ir>.Sprites":T%=|
00002eb0  a2 23 53 25 2b 31 36 3a  d9 23 53 25 0d 1a 7c 19  |.#S%+16:.#S%..|.|
00002ec0  de 73 70 72 69 74 65 73  25 54 25 2c 73 70 6e 61  |.sprites%T%,spna|
00002ed0  6d 65 25 31 32 0d 1a 86  1d 21 73 70 72 69 74 65  |me%12....!sprite|
00002ee0  73 25 3d 54 25 3a 73 70  72 69 74 65 73 25 21 38  |s%=T%:sprites%!8|
00002ef0  3d 30 0d 1a 90 21 c8 99  22 4f 53 5f 53 70 72 69  |=0...!.."OS_Spri|
00002f00  74 65 4f 70 22 2c 26 31  30 39 2c 73 70 72 69 74  |teOp",&109,sprit|
00002f10  65 73 25 0d 1a 9a 2b c8  99 22 4f 53 5f 53 70 72  |es%...+.."OS_Spr|
00002f20  69 74 65 4f 70 22 2c 26  31 30 41 2c 73 70 72 69  |iteOp",&10A,spri|
00002f30  74 65 73 25 2c 70 61 74  68 6e 61 6d 65 24 0d 1a  |tes%,pathname$..|
00002f40  a4 05 e1 0d 1b b2 1b dd  20 a4 57 69 6d 70 5f 46  |........ .Wimp_F|
00002f50  69 6c 65 54 79 70 65 28  74 79 70 65 25 29 0d 1b  |ileType(type%)..|
00002f60  bc 0c c8 8e 74 79 70 65  25 ca 0d 1b c6 11 c9 26  |....type%......&|
00002f70  46 46 46 3a 3d 22 54 65  78 74 22 0d 1b d0 11 c9  |FFF:="Text".....|
00002f80  26 46 46 44 3a 3d 22 44  61 74 61 22 0d 1b da 12  |&FFD:="Data"....|
00002f90  c9 26 46 46 42 3a 3d 22  42 61 73 69 63 22 0d 1b  |.&FFB:="Basic"..|
00002fa0  e4 13 c9 26 46 46 39 3a  3d 22 53 70 72 69 74 65  |...&FF9:="Sprite|
00002fb0  22 0d 1b ee 14 c9 26 46  45 44 3a 3d 22 50 61 6c  |".....&FED:="Pal|
00002fc0  65 74 74 65 22 0d 1b f8  15 c9 26 46 45 43 3a 3d  |ette".....&FEC:=|
00002fd0  22 54 65 6d 70 6c 61 74  65 22 0d 1c 02 11 c9 26  |"Template".....&|
00002fe0  41 46 46 3a 3d 22 44 72  61 77 22 0d 1c 0c 14 c9  |AFF:="Draw".....|
00002ff0  26 31 30 30 30 3a 3d 22  46 6f 6c 64 65 72 22 0d  |&1000:="Folder".|
00003000  1c 16 19 c9 26 32 30 30  30 3a 3d 22 41 70 70 6c  |....&2000:="Appl|
00003010  69 63 61 74 69 6f 6e 22  0d 1c 20 0f 7f 3d c3 7e  |ication".. ..=.~|
00003020  28 74 79 70 65 25 29 0d  1c 2a 05 cb 0d 1c 3e 1b  |(type%)..*....>.|
00003030  dd 20 a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 50  |. .Wimp_GetFileP|
00003040  61 74 68 4e 61 6d 65 0d  1c 48 27 3d a4 57 69 6d  |athName..H'=.Wim|
00003050  70 5f 47 65 74 53 74 72  69 6e 67 41 74 41 64 64  |p_GetStringAtAdd|
00003060  72 65 73 73 28 77 69 6d  70 25 2b 34 34 29 0d 1c  |ress(wimp%+44)..|
00003070  5c 1f dd 20 a4 57 69 6d  70 5f 46 69 6c 65 4c 6f  |\.. .Wimp_FileLo|
00003080  61 64 28 70 61 74 68 6e  61 6d 65 24 29 0d 1c 66  |ad(pathname$)..f|
00003090  10 ea 53 25 2c 54 25 2c  66 69 6c 65 25 0d 1c 70  |..S%,T%,file%..p|
000030a0  11 53 25 3d 8e 70 61 74  68 6e 61 6d 65 24 0d 1c  |.S%=.pathname$..|
000030b0  7a 0e 54 25 3d a2 23 53  25 2b 31 36 0d 1c 84 08  |z.T%=.#S%+16....|
000030c0  d9 23 53 25 0d 1c 8e 0c  de 66 69 6c 65 25 54 25  |.#S%.....file%T%|
000030d0  0d 1c 98 22 ff 28 22 4c  4f 41 44 22 2b 70 61 74  |...".("LOAD"+pat|
000030e0  68 6e 61 6d 65 24 2b 22  22 2b c3 7e 66 69 6c 65  |hname$+""+.~file|
000030f0  25 29 0d 1c a2 0a 3d 66  69 6c 65 25 0d 1c ac 05  |%)....=file%....|
00003100  3b 0d 1c b6 26 dd 20 a4  57 69 6d 70 5f 47 65 74  |;...&. .Wimp_Get|
00003110  53 74 72 69 6e 67 41 74  41 64 64 72 65 73 73 28  |StringAtAddress(|
00003120  61 72 72 61 79 25 29 0d  1c c0 0d ea 73 24 3a 73  |array%).....s$:s|
00003130  24 3d 22 22 0d 1c ca 3b  c8 95 28 3f 61 72 72 61  |$=""...;..(?arra|
00003140  79 25 3c 3e 31 33 29 80  28 3f 61 72 72 61 79 25  |y%<>13).(?array%|
00003150  3c 3e 30 29 3a 73 24 2b  3d bd 28 3f 61 72 72 61  |<>0):s$+=.(?arra|
00003160  79 25 29 3a 61 72 72 61  79 25 2b 3d 31 3a ce 0d  |y%):array%+=1:..|
00003170  1c d4 07 3d 73 24 0d 1c  e8 23 dd 20 a4 57 69 6d  |...=s$...#. .Wim|
00003180  70 5f 47 65 74 46 69 6c  65 46 72 6f 6d 50 61 74  |p_GetFileFromPat|
00003190  68 6e 61 6d 65 28 66 24  29 0d 1c f2 11 c8 8e 20  |hname(f$)...... |
000031a0  a7 66 24 2c 22 2e 22 29  20 ca 0d 1c fc 0f c9 20  |.f$,".") ...... |
000031b0  30 20 20 20 20 3a 3d 66  24 0d 1d 06 36 7f 20 3a  |0    :=f$...6. :|
000031c0  3d a4 57 69 6d 70 5f 47  65 74 46 69 6c 65 46 72  |=.Wimp_GetFileFr|
000031d0  6f 6d 50 61 74 68 6e 61  6d 65 28 c2 66 24 2c a9  |omPathname(.f$,.|
000031e0  28 66 24 29 2d a7 66 24  2c 22 2e 22 29 29 29 0d  |(f$)-.f$,"."))).|
000031f0  1d 10 05 cb 0d 1d 24 1d  dd 20 f2 57 69 6d 70 5f  |......$.. .Wimp_|
00003200  53 65 6e 64 54 6f 45 64  69 74 28 66 69 6c 65 24  |SendToEdit(file$|
00003210  29 0d 1d 2e 08 ea 20 6e  25 0d 1d 38 15 77 69 6d  |)..... n%..8.wim|
00003220  70 25 21 34 3d 26 36 43  43 30 31 43 30 43 0d 1d  |p%!4=&6CC01C0C..|
00003230  42 0e 77 69 6d 70 25 21  31 36 3d 35 0d 1d 4c 0e  |B.wimp%!16=5..L.|
00003240  77 69 6d 70 25 21 33 36  3d 30 0d 1d 56 11 77 69  |wimp%!36=0..V.wi|
00003250  6d 70 25 21 34 30 3d 26  46 46 46 0d 1d 60 18 24  |mp%!40=&FFF..`.$|
00003260  28 77 69 6d 70 25 2b 34  34 29 3d 66 69 6c 65 24  |(wimp%+44)=file$|
00003270  2b bd 30 0d 1d 6a 10 6e  25 3d a9 66 69 6c 65 24  |+.0..j.n%=.file$|
00003280  2b 34 35 0d 1d 74 2a e7  20 6e 25 83 34 20 8c 21  |+45..t*. n%.4 .!|
00003290  77 69 6d 70 25 3d 34 2b  28 6e 25 3e 3e 32 29 3c  |wimp%=4+(n%>>2)<|
000032a0  3c 32 20 8b 21 77 69 6d  70 25 3d 6e 25 0d 1d 7e  |<2 .!wimp%=n%..~|
000032b0  24 c8 99 20 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$.. "Wimp_SendMe|
000032c0  73 73 61 67 65 22 2c 31  37 2c 77 69 6d 70 25 2c  |ssage",17,wimp%,|
000032d0  30 0d 1d 88 05 e1 0d 1e  96 2f dd 20 f2 57 69 6d  |0......../. .Wim|
000032e0  70 5f 53 74 61 72 74 28  54 61 73 6b 4e 61 6d 65  |p_Start(TaskName|
000032f0  24 2c 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 2c 69  |$,wimp_memory%,i|
00003300  63 6f 6e 25 29 0d 1e a0  25 de 20 77 69 6d 70 25  |con%)...%. wimp%|
00003310  20 77 69 6d 70 5f 6d 65  6d 6f 72 79 25 2c 69 63  | wimp_memory%,ic|
00003320  6f 6e 73 25 20 69 63 6f  6e 25 0d 1e aa 28 e7 20  |ons% icon%...(. |
00003330  77 69 6d 70 5f 6d 65 6d  6f 72 79 25 3c 32 35 36  |wimp_memory%<256|
00003340  20 8c 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 3d 32  | .wimp_memory%=2|
00003350  35 36 0d 1e b4 1d 69 63  6f 6e 5f 6d 65 6d 6f 72  |56....icon_memor|
00003360  79 25 3d 69 63 6f 6e 73  25 2b 69 63 6f 6e 25 0d  |y%=icons%+icon%.|
00003370  1e be 13 74 61 73 6b 24  3d 54 61 73 6b 4e 61 6d  |...task$=TaskNam|
00003380  65 24 0d 1e c8 2a 69 6e  64 69 72 65 63 74 5f 73  |e$...*indirect_s|
00003390  70 72 69 74 65 73 25 3d  31 20 3a 64 69 72 65 63  |prites%=1 :direc|
000033a0  74 5f 73 70 72 69 74 65  73 25 3d 31 0d 1e d2 1b  |t_sprites%=1....|
000033b0  f2 57 69 6d 70 5f 53 65  74 45 76 65 6e 74 56 61  |.Wimp_SetEventVa|
000033c0  72 69 61 62 6c 65 73 0d  1e dc 15 ee 20 85 20 f2  |riables..... . .|
000033d0  57 69 6d 70 5f 45 72 72  6f 72 3a e0 0d 1e e6 40  |Wimp_Error:....@|
000033e0  c8 99 22 57 69 6d 70 5f  49 6e 69 74 69 61 6c 69  |.."Wimp_Initiali|
000033f0  73 65 22 2c 32 30 30 2c  26 34 42 35 33 34 31 35  |se",200,&4B53415|
00003400  34 2c 54 61 73 6b 4e 61  6d 65 24 20 b8 20 76 65  |4,TaskName$ . ve|
00003410  72 73 69 6f 6e 25 2c 74  61 73 6b 25 0d 1e f0 05  |rsion%,task%....|
00003420  e1 0d 1f 04 1b dd 20 a4  57 69 6d 70 5f 42 41 53  |...... .Wimp_BAS|
00003430  49 43 50 61 72 61 6d 65  74 65 72 73 0d 1f 0e 14  |ICParameters....|
00003440  ea 20 63 6f 6d 24 2c 70  61 72 61 6d 24 2c 49 25  |. com$,param$,I%|
00003450  0d 1f 18 19 c8 99 20 22  4f 53 5f 47 65 74 45 6e  |...... "OS_GetEn|
00003460  76 22 20 b8 20 63 6f 6d  24 0d 1f 22 0e 70 61 72  |v" . com$..".par|
00003470  61 6d 73 24 3d 22 22 0d  1f 2c 17 49 25 3d a7 63  |ams$=""..,.I%=.c|
00003480  6f 6d 24 2c 22 20 2d 71  75 69 74 20 22 29 0d 1f  |om$," -quit ")..|
00003490  36 33 e7 20 49 25 20 8c  70 61 72 61 6d 73 24 3d  |63. I% .params$=|
000034a0  c1 63 6f 6d 24 2c a7 63  6f 6d 24 2c 22 20 22 2c  |.com$,.com$," ",|
000034b0  49 25 2b a9 22 20 2d 71  75 69 74 20 22 29 2b 31  |I%+." -quit ")+1|
000034c0  29 0d 1f 40 0c 3d 70 61  72 61 6d 73 24 0d 1f 54  |)..@.=params$..T|
000034d0  1d dd 20 f2 57 69 6d 70  5f 53 65 74 45 76 65 6e  |.. .Wimp_SetEven|
000034e0  74 56 61 72 69 61 62 6c  65 73 0d 1f 5e 17 de 20  |tVariables..^.. |
000034f0  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 20 32  |pointer_block% 2|
00003500  30 0d 1f 68 10 69 6e 74  65 72 66 61 63 65 25 3d  |0..h.interface%=|
00003510  a3 0d 1f 72 2c 6e 75 6c  6c 25 3d 31 20 20 3a 64  |...r,null%=1  :d|
00003520  72 61 77 25 3d 32 20 3a  70 6f 69 6e 74 65 72 5f  |raw%=2 :pointer_|
00003530  6c 65 61 76 69 6e 67 25  3d 31 3c 3c 34 0d 1f 7c  |leaving%=1<<4..||
00003540  31 70 6f 69 6e 74 65 72  5f 65 6e 74 65 72 69 6e  |1pointer_enterin|
00003550  67 25 3d 31 3c 3c 35 3a  6d 6f 75 73 65 25 3d 31  |g%=1<<5:mouse%=1|
00003560  3c 3c 36 3a 64 72 61 67  25 3d 31 3c 3c 37 0d 1f  |<<6:drag%=1<<7..|
00003570  86 26 6b 65 79 25 3d 31  3c 3c 38 3a 6d 65 6e 75  |.&key%=1<<8:menu|
00003580  25 3d 31 3c 3c 39 3a 73  63 72 6f 6c 6c 25 3d 31  |%=1<<9:scroll%=1|
00003590  3c 3c 31 30 0d 1f 90 40  6c 6f 73 65 5f 63 61 72  |<<10...@lose_car|
000035a0  65 74 25 3d 31 3c 3c 31  31 3a 67 61 69 6e 5f 63  |et%=1<<11:gain_c|
000035b0  61 72 65 74 25 3d 31 3c  3c 31 32 3a 6d 65 73 73  |aret%=1<<12:mess|
000035c0  61 67 65 25 3d 28 31 3c  3c 31 37 29 2b 28 31 3c  |age%=(1<<17)+(1<|
000035d0  3c 31 38 29 0d 1f 9a 30  72 65 63 6f 72 64 65 72  |<18)...0recorder|
000035e0  25 3d 31 3c 3c 31 38 3a  61 63 6b 6e 6f 77 6c 65  |%=1<<18:acknowle|
000035f0  64 67 65 25 3d 31 3c 3c  31 39 3a 77 69 6e 64 6f  |dge%=1<<19:windo|
00003600  77 25 3d 30 0d 1f a4 21  73 70 72 69 74 65 73 25  |w%=0...!sprites%|
00003610  3d 31 3a 76 65 72 73 69  6f 6e 25 3d 30 3a 74 61  |=1:version%=0:ta|
00003620  73 6b 25 3d 30 0d 1f ae  2a 42 61 72 5f 57 69 6e  |sk%=0...*Bar_Win|
00003630  64 6f 77 25 3d 2d 32 3a  42 61 72 5f 49 63 6f 6e  |dow%=-2:Bar_Icon|
00003640  25 3d 30 3a 42 61 72 5f  4d 65 6e 75 25 3d 30 0d  |%=0:Bar_Menu%=0.|
00003650  1f b8 2a 78 5f 6f 72 69  67 69 6e 25 3d 30 3a 79  |..*x_origin%=0:y|
00003660  5f 6f 72 69 67 69 6e 25  3d 30 3a 53 61 76 65 57  |_origin%=0:SaveW|
00003670  69 6e 64 6f 77 25 3d 2d  33 0d 1f c2 33 6d 65 73  |indow%=-3...3mes|
00003680  73 61 67 65 5f 71 75 69  74 25 3d 30 3a 6d 65 73  |sage_quit%=0:mes|
00003690  73 61 67 65 5f 73 61 76  65 25 3d 32 3a 6d 65 73  |sage_save%=2:mes|
000036a0  73 61 67 65 5f 6c 6f 61  64 25 3d 33 0d 1f cc 21  |sage_load%=3...!|
000036b0  6d 6f 75 73 65 5f 62 75  74 74 6f 6e 25 3d 32 3a  |mouse_button%=2:|
000036c0  73 61 76 65 5f 65 76 65  6e 74 25 3d 30 0d 1f d6  |save_event%=0...|
000036d0  1f 74 6f 70 5f 6c 69 6e  65 25 3d 30 20 3a 62 6f  |.top_line%=0 :bo|
000036e0  74 74 6f 6d 5f 6c 69 6e  65 25 3d 30 0d 1f e0 05  |ttom_line%=0....|
000036f0  e1 0d 1f f4 11 dd 20 f2  57 69 6d 70 5f 45 72 72  |...... .Wimp_Err|
00003700  6f 72 0d 1f fe 0a ea 58  24 2c 78 25 0d 20 08 09  |or.....X$,x%. ..|
00003710  ee 20 85 20 87 0d 20 12  08 78 25 3d 9e 0d 20 1c  |. . .. ..x%=.. .|
00003720  1b 58 24 3d f6 24 2b 22  61 74 6c 69 6e 65 22 2b  |.X$=.$+"atline"+|
00003730  c3 28 78 25 81 31 30 29  0d 20 26 10 de 45 72 72  |.(x%.10). &..Err|
00003740  6f 72 4d 73 67 25 33 36  0d 20 30 45 45 72 72 6f  |orMsg%36. 0EErro|
00003750  72 4d 73 67 25 21 30 3d  33 36 3a 45 72 72 6f 72  |rMsg%!0=36:Error|
00003760  4d 73 67 25 21 31 32 3d  30 3a 45 72 72 6f 72 4d  |Msg%!12=0:ErrorM|
00003770  73 67 25 21 31 36 3d 26  38 31 30 38 30 3a 45 72  |sg%!16=&81080:Er|
00003780  72 6f 72 4d 73 67 25 21  32 30 3d 78 25 0d 20 3a  |rorMsg%!20=x%. :|
00003790  1f 24 28 45 72 72 6f 72  4d 73 67 25 2b 32 34 29  |.$(ErrorMsg%+24)|
000037a0  3d 22 21 52 75 6e 49 6d  61 67 65 22 0d 20 44 25  |="!RunImage". D%|
000037b0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
000037c0  61 67 65 22 2c 31 37 2c  45 72 72 6f 72 4d 73 67  |age",17,ErrorMsg|
000037d0  25 0d 20 4e 1f f2 57 69  6d 70 5f 57 69 6e 64 6f  |%. N..Wimp_Windo|
000037e0  77 41 6c 65 72 74 28 74  61 73 6b 24 2c 58 24 29  |wAlert(task$,X$)|
000037f0  0d 20 58 13 f2 57 69 6d  70 5f 43 6c 6f 73 65 44  |. X..Wimp_CloseD|
00003800  6f 77 6e 0d 20 62 05 e1  0d 20 76 15 dd 20 f2 57  |own. b... v.. .W|
00003810  69 6d 70 5f 43 6c 6f 73  65 44 6f 77 6e 0d 20 80  |imp_CloseDown. .|
00003820  23 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |#.."Wimp_CloseDo|
00003830  77 6e 22 2c 74 61 73 6b  25 2c 22 54 41 53 4b 22  |wn",task%,"TASK"|
00003840  0d 20 8a 05 e1 0d 20 9e  10 dd 20 f2 57 69 6d 70  |. .... ... .Wimp|
00003850  5f 51 75 69 74 0d 20 a8  0f 66 69 6e 69 73 68 65  |_Quit. ..finishe|
00003860  64 25 3d b9 0d 20 b2 05  e1 0d 20 c6 23 dd 20 a4  |d%=.. .... .#. .|
00003870  57 69 6d 70 5f 52 65 61  64 56 61 72 69 61 62 6c  |Wimp_ReadVariabl|
00003880  65 28 56 61 72 69 61 62  6c 65 24 29 0d 20 d0 1b  |e(Variable$). ..|
00003890  ea 6c 65 6e 25 2c 72 65  73 75 6c 74 25 2c 76 61  |.len%,result%,va|
000038a0  72 69 61 62 6c 65 25 0d  20 da 14 24 77 69 6d 70  |riable%. ..$wimp|
000038b0  25 3d 56 61 72 69 61 62  6c 65 24 0d 20 e4 33 c8  |%=Variable$. .3.|
000038c0  99 22 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |."OS_ReadVarVal"|
000038d0  2c 77 69 6d 70 25 2c 77  69 6d 70 25 2b 32 35 35  |,wimp%,wimp%+255|
000038e0  2c 32 35 35 2c 2c 33 b8  2c 2c 6c 65 6e 25 0d 20  |,255,,3.,,len%. |
000038f0  ee 17 77 69 6d 70 25 3f  28 6c 65 6e 25 2b 32 35  |..wimp%?(len%+25|
00003900  35 29 3d 31 33 0d 20 f8  11 3d 24 28 77 69 6d 70  |5)=13. ..=$(wimp|
00003910  25 2b 32 35 35 29 0d 21  7a 18 dd 20 f2 57 69 6d  |%+255).!z.. .Wim|
00003920  70 5f 57 61 69 74 46 6f  72 45 76 65 6e 74 0d 21  |p_WaitForEvent.!|
00003930  84 12 ea 20 6d 61 73 6b  25 2c 65 76 65 6e 74 25  |... mask%,event%|
00003940  0d 21 8e 0f 66 69 6e 69  73 68 65 64 25 3d a3 0d  |.!..finished%=..|
00003950  21 98 17 6d 61 73 6b 25  3d 25 31 31 31 30 30 30  |!..mask%=%111000|
00003960  30 31 31 30 30 31 0d 21  a2 05 f5 0d 21 ac 26 c8  |011001.!....!.&.|
00003970  99 22 57 69 6d 70 5f 50  6f 6c 6c 22 2c 6d 61 73  |."Wimp_Poll",mas|
00003980  6b 25 2c 77 69 6d 70 25  20 b8 20 65 76 65 6e 74  |k%,wimp% . event|
00003990  25 0d 21 b6 0f c8 8e 20  65 76 65 6e 74 25 20 ca  |%.!.... event% .|
000039a0  0d 21 c0 07 c9 30 20 0d  21 ca 1c c9 31 20 3a f2  |.!...0 .!...1 :.|
000039b0  57 69 6d 70 5f 50 6f 6c  6c 44 72 61 77 57 69 6e  |Wimp_PollDrawWin|
000039c0  64 6f 77 0d 21 d4 23 c9  32 20 3a c8 99 20 22 57  |dow.!.#.2 :.. "W|
000039d0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000039e0  2c 77 69 6d 70 25 0d 21  de 1d c9 33 20 3a f2 57  |,wimp%.!...3 :.W|
000039f0  69 6d 70 5f 50 6f 6c 6c  43 6c 6f 73 65 57 69 6e  |imp_PollCloseWin|
00003a00  64 6f 77 0d 21 e8 07 c9  34 20 0d 21 f2 07 c9 35  |dow.!...4 .!...5|
00003a10  20 0d 21 fc 1c c9 36 20  3a f2 57 69 6d 70 5f 50  | .!...6 :.Wimp_P|
00003a20  6f 6c 6c 4d 6f 75 73 65  43 6c 69 63 6b 0d 22 06  |ollMouseClick.".|
00003a30  1d c9 37 20 3a f2 57 69  6d 70 5f 50 6f 6c 6c 53  |..7 :.Wimp_PollS|
00003a40  61 76 65 4d 65 73 73 61  67 65 0d 22 10 1a c9 38  |aveMessage."...8|
00003a50  20 3a f2 57 69 6d 70 5f  50 6f 6c 6c 4b 65 79 50  | :.Wimp_PollKeyP|
00003a60  72 65 73 73 0d 22 1a 20  c9 39 20 3a f2 45 76 65  |ress.". .9 :.Eve|
00003a70  6e 74 5f 4d 65 6e 75 43  68 6f 69 63 65 28 6d 65  |nt_MenuChoice(me|
00003a80  6e 75 25 29 0d 22 24 07  c9 31 30 0d 22 2e 07 c9  |nu%)."$..10."...|
00003a90  31 31 0d 22 38 07 c9 31  32 0d 22 42 1d c9 31 37  |11."8..12."B..17|
00003aa0  2c 31 38 3a f2 57 69 6d  70 5f 50 6f 6c 6c 4d 65  |,18:.Wimp_PollMe|
00003ab0  73 73 61 67 65 73 0d 22  4c 07 c9 31 39 0d 22 56  |ssages."L..19."V|
00003ac0  05 cb 0d 22 60 0f fd 20  66 69 6e 69 73 68 65 64  |..."`.. finished|
00003ad0  25 0d 22 6a 05 e1 0d 22  7e 1a dd 20 f2 57 69 6d  |%."j..."~.. .Wim|
00003ae0  70 5f 50 6f 6c 6c 44 72  61 77 57 69 6e 64 6f 77  |p_PollDrawWindow|
00003af0  0d 22 88 0b ea 20 6d 6f  72 65 25 0d 22 92 26 c8  |."... more%.".&.|
00003b00  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
00003b10  64 6f 77 22 2c 2c 77 69  6d 70 25 b8 6d 6f 72 65  |dow",,wimp%.more|
00003b20  25 0d 22 9c 13 77 69 6e  64 6f 77 25 3d 77 69 6d  |%."..window%=wim|
00003b30  70 25 21 30 0d 22 a6 41  78 5f 6f 72 69 67 69 6e  |p%!0.".Ax_origin|
00003b40  25 3d 31 36 2b 77 69 6d  70 25 21 34 2d 77 69 6d  |%=16+wimp%!4-wim|
00003b50  70 25 21 32 30 3a 79 5f  6f 72 69 67 69 6e 25 3d  |p%!20:y_origin%=|
00003b60  2d 31 36 2b 77 69 6d 70  25 21 31 36 2d 77 69 6d  |-16+wimp%!16-wim|
00003b70  70 25 21 32 34 0d 22 b0  0b c8 95 6d 6f 72 65 25  |p%!24."....more%|
00003b80  0d 22 ba 2e e7 20 69 6e  74 65 72 66 61 63 65 25  |."... interface%|
00003b90  20 8c c8 99 22 57 69 6d  70 5f 42 6f 72 64 65 72  | ..."Wimp_Border|
00003ba0  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 22  |Window",,wimp%."|
00003bb0  c4 2c f2 45 76 65 6e 74  5f 44 72 61 77 28 77 69  |.,.Event_Draw(wi|
00003bc0  6e 64 6f 77 25 2c 78 5f  6f 72 69 67 69 6e 25 2c  |ndow%,x_origin%,|
00003bd0  79 5f 6f 72 69 67 69 6e  25 29 0d 22 ce 26 c8 99  |y_origin%).".&..|
00003be0  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
00003bf0  6c 65 22 2c 2c 77 69 6d  70 25 b8 6d 6f 72 65 25  |le",,wimp%.more%|
00003c00  0d 22 d8 05 ce 0d 22 e2  05 e1 0d 22 f6 1b dd 20  |."...."...."... |
00003c10  f2 57 69 6d 70 5f 50 6f  6c 6c 43 6c 6f 73 65 57  |.Wimp_PollCloseW|
00003c20  69 6e 64 6f 77 0d 23 00  23 c8 99 20 22 57 69 6d  |indow.#.#.. "Wim|
00003c30  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00003c40  22 2c 2c 77 69 6d 70 25  0d 23 0a 26 77 69 6e 64  |",,wimp%.#.&wind|
00003c50  6f 77 25 3d 77 69 6d 70  25 21 31 32 20 3a 62 75  |ow%=wimp%!12 :bu|
00003c60  74 74 6f 6e 73 25 3d 77  69 6d 70 25 21 38 0d 23  |ttons%=wimp%!8.#|
00003c70  14 28 f2 45 76 65 6e 74  5f 57 69 6e 64 6f 77 43  |.(.Event_WindowC|
00003c80  6c 6f 73 65 28 77 69 6e  64 6f 77 25 2c 62 75 74  |lose(window%,but|
00003c90  74 6f 6e 73 25 29 0d 23  1e 30 21 77 69 6d 70 25  |tons%).#.0!wimp%|
00003ca0  3d 77 69 6e 64 6f 77 25  20 3a c8 99 20 22 57 69  |=window% :.. "Wi|
00003cb0  6d 70 5f 43 6c 6f 73 65  57 69 6e 64 6f 77 22 2c  |mp_CloseWindow",|
00003cc0  2c 77 69 6d 70 25 0d 23  28 05 e1 0d 23 3c 1a dd  |,wimp%.#(...#<..|
00003cd0  20 f2 57 69 6d 70 5f 50  6f 6c 6c 4d 6f 75 73 65  | .Wimp_PollMouse|
00003ce0  43 6c 69 63 6b 0d 23 46  49 62 75 74 74 6f 6e 25  |Click.#FIbutton%|
00003cf0  3d 77 69 6d 70 25 21 38  3a 77 69 6e 64 6f 77 25  |=wimp%!8:window%|
00003d00  3d 77 69 6d 70 25 21 31  32 3a 69 63 6f 6e 25 3d  |=wimp%!12:icon%=|
00003d10  77 69 6d 70 25 21 31 36  3a 78 25 3d 77 69 6d 70  |wimp%!16:x%=wimp|
00003d20  25 21 30 3a 79 25 3d 77  69 6d 70 25 21 34 0d 23  |%!0:y%=wimp%!4.#|
00003d30  50 10 c8 8e 20 62 75 74  74 6f 6e 25 20 ca 0d 23  |P... button% ..#|
00003d40  5a 1e c9 32 20 20 20 20  3a f2 57 69 6d 70 5f 50  |Z..2    :.Wimp_P|
00003d50  6f 6c 6c 4d 65 6e 75 50  6f 70 55 70 0d 23 64 1f  |ollMenuPopUp.#d.|
00003d60  7f 3a c8 8e 20 a4 45 76  65 6e 74 5f 53 61 76 65  |.:.. .Event_Save|
00003d70  28 77 69 6e 64 6f 77 25  29 20 ca 0d 23 6e 1c c9  |(window%) ..#n..|
00003d80  20 b9 20 3a f2 57 69 6d  70 5f 50 6f 6c 6c 4d 6f  | . :.Wimp_PollMo|
00003d90  75 73 65 53 61 76 65 0d  23 78 21 c9 20 a3 3a f2  |useSave.#x!. .:.|
00003da0  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
00003db0  75 73 65 43 6c 69 63 6b  0d 23 82 05 cb 0d 23 8c  |useClick.#....#.|
00003dc0  05 cb 0d 23 96 05 e1 0d  23 aa 19 dd 20 f2 57 69  |...#....#... .Wi|
00003dd0  6d 70 5f 50 6f 6c 6c 4d  65 6e 75 50 6f 70 55 70  |mp_PollMenuPopUp|
00003de0  0d 23 b4 1e 6d 65 6e 75  25 3d a4 45 76 65 6e 74  |.#..menu%=.Event|
00003df0  5f 4d 65 6e 75 28 77 69  6e 64 6f 77 25 29 0d 23  |_Menu(window%).#|
00003e00  be 0f c8 8e 20 6d 65 6e  75 25 20 20 ca 0d 23 c8  |.... menu%  ..#.|
00003e10  07 c9 20 a3 0d 23 d2 06  7f 20 0d 23 dc 10 c8 8e  |.. ..#... .#....|
00003e20  20 77 69 6e 64 6f 77 25  20 ca 0d 23 e6 10 c9 20  | window% ..#... |
00003e30  2d 32 20 20 20 3a 6e 25  3d 30 0d 23 f0 2b c8 95  |-2   :n%=0.#.+..|
00003e40  20 28 28 42 61 72 5f 4d  65 6e 75 25 21 28 32 38  | ((Bar_Menu%!(28|
00003e50  2b 6e 25 2a 32 34 29 29  80 25 31 30 30 30 30 30  |+n%*24)).%100000|
00003e60  30 30 29 3d 30 0d 23 fa  09 6e 25 2b 3d 31 0d 24  |00)=0.#..n%+=1.$|
00003e70  04 05 ce 0d 24 0e 32 c8  99 20 22 57 69 6d 70 5f  |....$.2.. "Wimp_|
00003e80  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 42 61 72  |CreateMenu",,Bar|
00003e90  5f 4d 65 6e 75 25 2c 78  25 2d 36 34 2c 39 36 2b  |_Menu%,x%-64,96+|
00003ea0  6e 25 2a 34 34 0d 24 18  2d 7f 20 3a c8 99 22 57  |n%*44.$.-. :.."W|
00003eb0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00003ec0  2c 6d 65 6e 75 25 2c 78  25 2d 36 34 2c 79 25 2b  |,menu%,x%-64,y%+|
00003ed0  32 30 0d 24 22 05 cb 0d  24 2c 05 cb 0d 24 36 05  |20.$"...$,...$6.|
00003ee0  e1 0d 24 4a 19 dd 20 f2  57 69 6d 70 5f 50 6f 6c  |..$J.. .Wimp_Pol|
00003ef0  6c 4d 6f 75 73 65 53 61  76 65 0d 24 54 0e c8 8e  |lMouseSave.$T...|
00003f00  20 69 63 6f 6e 25 20 ca  0d 24 5e 34 c9 20 30 20  | icon% ..$^4. 0 |
00003f10  3a e7 20 62 75 74 74 6f  6e 25 20 80 20 26 35 30  |:. button% . &50|
00003f20  20 8c f2 57 69 6d 70 5f  50 6f 6c 6c 44 72 61 67  | ..Wimp_PollDrag|
00003f30  42 6f 78 28 77 69 6e 64  6f 77 25 29 0d 24 68 33  |Box(window%).$h3|
00003f40  c9 20 32 20 3a e7 20 62  75 74 74 6f 6e 25 20 80  |. 2 :. button% .|
00003f50  20 35 20 8c f2 57 69 6d  70 5f 50 6f 6c 6c 53 61  | 5 ..Wimp_PollSa|
00003f60  76 65 46 69 6c 65 28 77  69 6e 64 6f 77 25 29 0d  |veFile(window%).|
00003f70  24 72 05 cb 0d 24 7c 05  e1 0d 24 90 1f dd 20 f2  |$r...$|...$... .|
00003f80  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
00003f90  75 73 65 43 6c 69 63 6b  0d 24 9a 2c e7 20 69 6e  |useClick.$.,. in|
00003fa0  74 65 72 66 61 63 65 25  20 8c c8 99 22 57 69 6d  |terface% ..."Wim|
00003fb0  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
00003fc0  69 6d 70 25 0d 24 a4 32  f2 45 76 65 6e 74 5f 4d  |imp%.$.2.Event_M|
00003fd0  6f 75 73 65 43 6c 69 63  6b 28 77 69 6e 64 6f 77  |ouseClick(window|
00003fe0  25 2c 69 63 6f 6e 25 2c  62 75 74 74 6f 6e 25 2c  |%,icon%,button%,|
00003ff0  78 25 2c 79 25 29 0d 24  ae 14 c8 8e 20 20 69 6e  |x%,y%).$....  in|
00004000  74 65 72 66 61 63 65 25  20 ca 0d 24 b8 08 c9 20  |terface% ..$... |
00004010  b9 20 0d 24 c2 24 77 69  6d 70 25 21 30 3d 78 25  |. .$.$wimp%!0=x%|
00004020  3a 77 69 6d 70 25 21 34  3d 79 25 20 3a 77 69 6d  |:wimp%!4=y% :wim|
00004030  70 25 21 38 3d 30 0d 24  cc 24 77 69 6d 70 25 21  |p%!8=0.$.$wimp%!|
00004040  31 32 3d 77 69 6e 64 6f  77 25 20 3a 77 69 6d 70  |12=window% :wimp|
00004050  25 21 31 36 3d 69 63 6f  6e 25 0d 24 d6 1e c8 99  |%!16=icon%.$....|
00004060  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
00004070  22 2c 2c 77 69 6d 70 25  0d 24 e0 05 cb 0d 24 ea  |",,wimp%.$....$.|
00004080  05 e1 0d 24 fe 21 dd 20  f2 57 69 6d 70 5f 50 6f  |...$.!. .Wimp_Po|
00004090  6c 6c 53 61 76 65 46 69  6c 65 28 77 69 6e 64 6f  |llSaveFile(windo|
000040a0  77 25 29 0d 25 08 0a ea  66 69 6c 65 24 0d 25 12  |w%).%...file$.%.|
000040b0  3d 77 69 6d 70 25 21 30  3d 77 69 6e 64 6f 77 25  |=wimp%!0=window%|
000040c0  20 3a 77 69 6d 70 25 21  34 3d 31 20 3a c8 99 20  | :wimp%!4=1 :.. |
000040d0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000040e0  74 65 22 2c 2c 77 69 6d  70 25 0d 25 1c 15 66 69  |te",,wimp%.%..fi|
000040f0  6c 65 24 3d 24 28 77 69  6d 70 25 21 32 38 29 0d  |le$=$(wimp%!28).|
00004100  25 26 14 c8 8e 20 a7 66  69 6c 65 24 2c 22 2e 22  |%&... .file$,"."|
00004110  29 20 ca 0d 25 30 0a c9  20 30 20 20 20 0d 25 3a  |) ..%0.. 0   .%:|
00004120  3d 24 28 77 69 6d 70 25  2b 34 29 3d 22 54 6f 20  |=$(wimp%+4)="To |
00004130  73 61 76 65 2c 20 64 72  61 67 20 74 68 65 20 69  |save, drag the i|
00004140  63 6f 6e 20 74 6f 20 61  20 64 69 72 65 63 74 6f  |con to a directo|
00004150  72 79 20 77 69 6e 64 6f  77 22 0d 25 44 28 c8 99  |ry window".%D(..|
00004160  20 22 57 69 6d 70 5f 52  65 70 6f 72 74 45 72 72  | "Wimp_ReportErr|
00004170  6f 72 22 2c 77 69 6d 70  25 2c 31 36 2c 74 61 73  |or",wimp%,16,tas|
00004180  6b 24 0d 25 4e 05 7f 0d  25 58 22 f2 45 76 65 6e  |k$.%N...%X".Even|
00004190  74 5f 53 61 76 65 46 69  6c 65 28 66 69 6c 65 24  |t_SaveFile(file$|
000041a0  2c 77 69 6e 64 6f 77 25  29 0d 25 62 05 cb 0d 25  |,window%).%b...%|
000041b0  6c 1a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |l..."Wimp_Create|
000041c0  4d 65 6e 75 22 2c 2d 31  0d 25 76 05 e1 0d 25 8a  |Menu",-1.%v...%.|
000041d0  20 dd 20 f2 57 69 6d 70  5f 50 6f 6c 6c 44 72 61  | . .Wimp_PollDra|
000041e0  67 42 6f 78 28 77 69 6e  64 6f 77 25 29 0d 25 94  |gBox(window%).%.|
000041f0  0a ea 78 25 2c 79 25 0d  25 9e 11 73 61 76 65 25  |..x%,y%.%..save%|
00004200  3d 77 69 6e 64 6f 77 25  0d 25 a8 12 21 77 69 6d  |=window%.%..!wim|
00004210  70 25 3d 77 69 6e 64 6f  77 25 0d 25 b2 22 c8 99  |p%=window%.%."..|
00004220  22 57 69 6d 70 5f 47 65  74 57 69 6e 64 6f 77 53  |"Wimp_GetWindowS|
00004230  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 25 bc 2c  |tate",,wimp%.%.,|
00004240  78 25 3d 77 69 6d 70 25  21 34 2d 77 69 6d 70 25  |x%=wimp%!4-wimp%|
00004250  21 32 30 3a 79 25 3d 77  69 6d 70 25 21 31 36 2d  |!20:y%=wimp%!16-|
00004260  77 69 6d 70 25 21 32 34  0d 25 c6 0d 77 69 6d 70  |wimp%!24.%..wimp|
00004270  25 21 34 3d 30 0d 25 d0  20 c8 99 22 57 69 6d 70  |%!4=0.%. .."Wimp|
00004280  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00004290  77 69 6d 70 25 0d 25 da  12 21 77 69 6d 70 25 3d  |wimp%.%..!wimp%=|
000042a0  77 69 6e 64 6f 77 25 0d  25 e4 0d 77 69 6d 70 25  |window%.%..wimp%|
000042b0  21 34 3d 35 0d 25 ee 2b  77 69 6d 70 25 21 38 3d  |!4=5.%.+wimp%!8=|
000042c0  78 25 2b 77 69 6d 70 25  21 38 3a 77 69 6d 70 25  |x%+wimp%!8:wimp%|
000042d0  21 31 32 3d 79 25 2b 77  69 6d 70 25 21 31 32 0d  |!12=y%+wimp%!12.|
000042e0  25 f8 2d 77 69 6d 70 25  21 31 36 3d 78 25 2b 77  |%.-wimp%!16=x%+w|
000042f0  69 6d 70 25 21 31 36 3a  77 69 6d 70 25 21 32 30  |imp%!16:wimp%!20|
00004300  3d 79 25 2b 77 69 6d 70  25 21 32 30 0d 26 02 19  |=y%+wimp%!20.&..|
00004310  77 69 6d 70 25 21 32 34  3d 30 3a 77 69 6d 70 25  |wimp%!24=0:wimp%|
00004320  21 32 38 3d 30 0d 26 0c  29 77 69 6d 70 25 21 33  |!28=0.&.)wimp%!3|
00004330  32 3d 26 37 46 46 46 46  46 46 46 3a 77 69 6d 70  |2=&7FFFFFFF:wimp|
00004340  25 21 33 36 3d 26 37 46  46 46 46 46 46 46 0d 26  |%!36=&7FFFFFFF.&|
00004350  16 1b c8 99 22 57 69 6d  70 5f 44 72 61 67 42 6f  |...."Wimp_DragBo|
00004360  78 22 2c 2c 77 69 6d 70  25 0d 26 20 05 e1 0d 26  |x",,wimp%.& ...&|
00004370  34 18 dd 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4b 65  |4.. .Wimp_PollKe|
00004380  79 50 72 65 73 73 0d 26  3e 2f 77 69 6e 64 6f 77  |yPress.&>/window|
00004390  25 3d 77 69 6d 70 25 21  30 3a 69 63 6f 6e 25 3d  |%=wimp%!0:icon%=|
000043a0  77 69 6d 70 25 21 34 3a  6b 65 79 25 3d 77 69 6d  |wimp%!4:key%=wim|
000043b0  70 25 21 32 34 0d 26 48  1d c8 8e 20 a4 45 76 65  |p%!24.&H... .Eve|
000043c0  6e 74 5f 53 61 76 65 28  77 69 6e 64 6f 77 25 29  |nt_Save(window%)|
000043d0  20 ca 0d 26 52 24 c9 20  b9 20 3a f2 57 69 6d 70  | ..&R$. . :.Wimp|
000043e0  50 6f 6c 6c 5f 53 61 76  65 46 69 6c 65 28 77 69  |Poll_SaveFile(wi|
000043f0  6e 64 6f 77 25 29 0d 26  5c 2b c9 20 a3 3a f2 45  |ndow%).&\+. .:.E|
00004400  76 65 6e 74 5f 4b 65 79  50 72 65 73 73 28 77 69  |vent_KeyPress(wi|
00004410  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |ndow%,icon%,key%|
00004420  29 0d 26 66 05 cb 0d 26  70 05 e1 0d 26 84 1b dd  |).&f...&p...&...|
00004430  20 f2 57 69 6d 70 5f 50  6f 6c 6c 53 61 76 65 4d  | .Wimp_PollSaveM|
00004440  65 73 73 61 67 65 0d 26  8e 1e ea 66 69 6c 65 24  |essage.&...file$|
00004450  2c 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 78  |,window%,icon%,x|
00004460  25 2c 79 25 0d 26 98 22  c8 99 22 57 69 6d 70 5f  |%,y%.&.".."Wimp_|
00004470  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00004480  2c 77 69 6d 70 25 0d 26  a2 39 77 69 6e 64 6f 77  |,wimp%.&.9window|
00004490  25 3d 77 69 6d 70 25 21  31 32 3a 69 63 6f 6e 25  |%=wimp%!12:icon%|
000044a0  3d 77 69 6d 70 25 21 31  36 3a 78 25 3d 77 69 6d  |=wimp%!16:x%=wim|
000044b0  70 25 21 30 3a 79 25 3d  77 69 6d 70 25 21 34 0d  |p%!0:y%=wimp%!4.|
000044c0  26 ac 3b 77 69 6d 70 25  21 30 3d 73 61 76 65 25  |&.;wimp%!0=save%|
000044d0  20 3a 77 69 6d 70 25 21  34 3d 31 20 3a c8 99 20  | :wimp%!4=1 :.. |
000044e0  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
000044f0  74 65 22 2c 2c 77 69 6d  70 25 0d 26 b6 15 66 69  |te",,wimp%.&..fi|
00004500  6c 65 24 3d 24 28 77 69  6d 70 25 21 32 38 29 0d  |le$=$(wimp%!28).|
00004510  26 c0 2a 66 69 6c 65 24  3d a4 57 69 6d 70 5f 47  |&.*file$=.Wimp_G|
00004520  65 74 46 69 6c 65 46 72  6f 6d 50 61 74 68 6e 61  |etFileFromPathna|
00004530  6d 65 28 66 69 6c 65 24  29 0d 26 ca 14 77 69 6d  |me(file$).&..wim|
00004540  70 25 21 32 30 3d 77 69  6e 64 6f 77 25 0d 26 d4  |p%!20=window%.&.|
00004550  12 77 69 6d 70 25 21 32  34 3d 69 63 6f 6e 25 0d  |.wimp%!24=icon%.|
00004560  26 de 1b 77 69 6d 70 25  21 32 38 3d 78 25 3a 77  |&..wimp%!28=x%:w|
00004570  69 6d 70 25 21 33 32 3d  79 25 0d 26 e8 14 77 69  |imp%!32=y%.&..wi|
00004580  6d 70 25 21 33 36 3d 6c  65 6e 67 74 68 25 0d 26  |mp%!36=length%.&|
00004590  f2 0e 77 69 6d 70 25 21  30 3d 36 34 0d 26 fc 0e  |..wimp%!0=64.&..|
000045a0  77 69 6d 70 25 21 31 32  3d 30 0d 27 06 0e 77 69  |wimp%!12=0.'..wi|
000045b0  6d 70 25 21 31 36 3d 31  0d 27 10 11 77 69 6d 70  |mp%!16=1.'..wimp|
000045c0  25 21 34 30 3d 26 46 46  46 0d 27 1a 15 24 28 77  |%!40=&FFF.'..$(w|
000045d0  69 6d 70 25 2b 34 34 29  3d 66 69 6c 65 24 0d 27  |imp%+44)=file$.'|
000045e0  24 33 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |$3.."Wimp_SendMe|
000045f0  73 73 61 67 65 22 2c 31  37 2c 77 69 6d 70 25 2c  |ssage",17,wimp%,|
00004600  77 69 6d 70 25 21 32 30  2c 77 69 6d 70 25 21 32  |wimp%!20,wimp%!2|
00004610  34 0d 27 2e 05 e1 0d 27  42 18 dd 20 f2 57 69 6d  |4.'....'B.. .Wim|
00004620  70 5f 50 6f 6c 6c 4d 65  73 73 61 67 65 73 0d 27  |p_PollMessages.'|
00004630  4c 0b ea 20 66 69 6c 65  24 0d 27 56 2c 66 69 6c  |L.. file$.'V,fil|
00004640  65 24 3d a4 57 69 6d 70  5f 47 65 74 53 74 72 69  |e$=.Wimp_GetStri|
00004650  6e 67 41 74 41 64 64 72  65 73 73 28 77 69 6d 70  |ngAtAddress(wimp|
00004660  25 2b 34 34 29 0d 27 60  11 c8 8e 20 77 69 6d 70  |%+44).'`... wimp|
00004670  25 21 31 36 20 ca 0d 27  6a 14 c9 20 30 20 3a 66  |%!16 ..'j.. 0 :f|
00004680  69 6e 69 73 68 65 64 25  3d b9 0d 27 74 08 c9 20  |inished%=..'t.. |
00004690  31 20 0d 27 7e 08 c9 20  32 20 0d 27 92 3b 77 69  |1 .'~.. 2 .'.;wi|
000046a0  6d 70 25 21 30 3d 73 61  76 65 25 20 3a 77 69 6d  |mp%!0=save% :wim|
000046b0  70 25 21 34 3d 31 20 3a  c8 99 20 22 57 69 6d 70  |p%!4=1 :.. "Wimp|
000046c0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
000046d0  77 69 6d 70 25 0d 27 9c  15 24 28 77 69 6d 70 25  |wimp%.'..$(wimp%|
000046e0  21 32 38 29 3d 66 69 6c  65 24 0d 27 a6 33 77 69  |!28)=file$.'.3wi|
000046f0  6d 70 25 21 30 3d 73 61  76 65 25 20 3a 77 69 6d  |mp%!0=save% :wim|
00004700  70 25 21 34 3d 31 20 3a  77 69 6d 70 25 21 38 3d  |p%!4=1 :wimp%!8=|
00004710  30 20 3a 77 69 6d 70 25  21 31 32 3d 30 0d 27 b0  |0 :wimp%!12=0.'.|
00004720  21 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  |!.. "Wimp_SetIco|
00004730  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 27  |nState",,wimp%.'|
00004740  c4 32 c8 99 20 22 57 69  6d 70 5f 53 65 74 43 61  |.2.. "Wimp_SetCa|
00004750  72 65 74 50 6f 73 69 74  69 6f 6e 22 2c 73 61 76  |retPosition",sav|
00004760  65 25 2c 31 2c 2c 2c 2d  31 2c a9 66 69 6c 65 24  |e%,1,,,-1,.file$|
00004770  0d 27 ce 20 f2 45 76 65  6e 74 5f 53 61 76 65 46  |.'. .Event_SaveF|
00004780  69 6c 65 28 66 69 6c 65  24 2c 73 61 76 65 25 29  |ile(file$,save%)|
00004790  0d 27 d8 07 c9 20 33 0d  27 e2 40 74 79 70 65 24  |.'... 3.'.@type$|
000047a0  3d a4 57 69 6d 70 5f 46  69 6c 65 54 79 70 65 28  |=.Wimp_FileType(|
000047b0  77 69 6d 70 25 21 34 30  29 20 3a f2 45 76 65 6e  |wimp%!40) :.Even|
000047c0  74 5f 4c 6f 61 64 46 69  6c 65 28 66 69 6c 65 24  |t_LoadFile(file$|
000047d0  2c 74 79 70 65 24 29 0d  27 ec 05 cb 0d 27 f6 05  |,type$).'....'..|
000047e0  e1 0d 28 0a 26 dd 20 a4  57 69 6d 70 5f 47 65 74  |..(.&. .Wimp_Get|
000047f0  53 74 72 69 6e 67 41 74  41 64 64 72 65 73 73 28  |StringAtAddress(|
00004800  61 72 72 61 79 25 29 0d  28 14 0d ea 73 24 3a 73  |array%).(...s$:s|
00004810  24 3d 22 22 0d 28 1e 3b  c8 95 28 3f 61 72 72 61  |$="".(.;..(?arra|
00004820  79 25 3c 3e 31 33 29 80  28 3f 61 72 72 61 79 25  |y%<>13).(?array%|
00004830  3c 3e 30 29 3a 73 24 2b  3d bd 28 3f 61 72 72 61  |<>0):s$+=.(?arra|
00004840  79 25 29 3a 61 72 72 61  79 25 2b 3d 31 3a ce 0d  |y%):array%+=1:..|
00004850  28 28 07 3d 73 24 0d 28  3c 23 dd 20 a4 57 69 6d  |((.=s$.(<#. .Wim|
00004860  70 5f 47 65 74 46 69 6c  65 46 72 6f 6d 50 61 74  |p_GetFileFromPat|
00004870  68 6e 61 6d 65 28 66 24  29 0d 28 46 11 c8 8e 20  |hname(f$).(F... |
00004880  a7 66 24 2c 22 2e 22 29  20 ca 0d 28 50 0f c9 20  |.f$,".") ..(P.. |
00004890  30 20 20 20 20 3a 3d 66  24 0d 28 5a 36 7f 20 3a  |0    :=f$.(Z6. :|
000048a0  3d a4 57 69 6d 70 5f 47  65 74 46 69 6c 65 46 72  |=.Wimp_GetFileFr|
000048b0  6f 6d 50 61 74 68 6e 61  6d 65 28 c2 66 24 2c a9  |omPathname(.f$,.|
000048c0  28 66 24 29 2d a7 66 24  2c 22 2e 22 29 29 29 0d  |(f$)-.f$,"."))).|
000048d0  28 64 05 cb 0d 28 78 1b  dd 20 a4 57 69 6d 70 5f  |(d...(x.. .Wimp_|
000048e0  46 69 6c 65 54 79 70 65  28 74 79 70 65 25 29 0d  |FileType(type%).|
000048f0  28 82 0c c8 8e 74 79 70  65 25 ca 0d 28 8c 11 c9  |(....type%..(...|
00004900  26 46 46 46 3a 3d 22 54  65 78 74 22 0d 28 96 11  |&FFF:="Text".(..|
00004910  c9 26 46 46 44 3a 3d 22  44 61 74 61 22 0d 28 a0  |.&FFD:="Data".(.|
00004920  12 c9 26 46 46 42 3a 3d  22 42 61 73 69 63 22 0d  |..&FFB:="Basic".|
00004930  28 aa 13 c9 26 46 46 39  3a 3d 22 53 70 72 69 74  |(...&FF9:="Sprit|
00004940  65 22 0d 28 b4 14 c9 26  46 45 44 3a 3d 22 50 61  |e".(...&FED:="Pa|
00004950  6c 65 74 74 65 22 0d 28  be 15 c9 26 46 45 43 3a  |lette".(...&FEC:|
00004960  3d 22 54 65 6d 70 6c 61  74 65 22 0d 28 c8 11 c9  |="Template".(...|
00004970  26 41 46 46 3a 3d 22 44  72 61 77 22 0d 28 d2 14  |&AFF:="Draw".(..|
00004980  c9 26 31 30 30 30 3a 3d  22 46 6f 6c 64 65 72 22  |.&1000:="Folder"|
00004990  0d 28 dc 19 c9 26 32 30  30 30 3a 3d 22 41 70 70  |.(...&2000:="App|
000049a0  6c 69 63 61 74 69 6f 6e  22 0d 28 e6 0f 7f 3d c3  |lication".(...=.|
000049b0  7e 28 74 79 70 65 25 29  0d 28 f0 05 cb 0d ff     |~(type%).(.....|
000049bf

Our privacy policy is here.
Last updated: 10 Jun 2024, 13:20 UTC
Website designed by .