�|
�|
�|
(�|
2E�|                -------------------------------          6/1/92
</�|                   WIMP PROCEDURE LIBRARY
F�|
P,�|                     Index of Contents
Z�|
d5�|                -------------------------------
n�|
x$�|                    1.�Windows
��|
�"�|                    2.�Icons
��|
�"�|                    3.�Menus
��|
�$�|                    4.�Sprites
��|
�"�|                    5.�Files
��|
�*�|                    6.�Miscellaneous
��|
�5�|                -------------------------------
��|

�|

�|

�|

"�|

,�|

65�|                -------------------------------

@*�|                          1.�Windows

J5�|                -------------------------------

T�|

^�|

h@�|          ------------------------------------------------

r�|

|(�|                      Procedures :

��|

�8�|             PROCWimp_WindowAlert(title$,message$)

�C�|             PROCWimp_WindowAlertBox(title$,message$,button%)

�7�|             FNWimp_WindowCancel(title$,message$)

�;�|             PROCWimp_WindowErrorBox(title$,message$)

�.�|             FNWimp_WindowTitle(window%)

�-�|             FNWimp_WindowLoad(window$)

�;�|             FNWimp_WindowLoadFrom(window$,template$)

�'�|             FNWimp_WindowXOrigin

�'�|             FNWimp_WindowYOrigin

�5�|             PROCWimp_WindowBringToTop(window%)

�4�|             PROCWimp_WindowForceDraw(window%)

�/�|             PROCWimp_WindowOpen(window%)
%�|             PROCWimp_Draw(x,y)
%�|             PROCWimp_Move(x,y)
+�|             PROCWimp_Line(x,y,x1,y1)
&�|
0?�|           ----------------------------------------------
:�|
D�|
N�|
X(� �Wimp_WindowAlert(title$,message$)
b+�Wimp_WindowAlertBox(title$,message$,0)
l�
v:
�3� �Wimp_WindowAlertBox(title$,message$,button%)
�� response%
�$(wimp%+4)=message$
�Ȏ button% �
� � 2    : response%=1
� � 1    : response%=15
�! � 3    : response%=(1<<5)+16
�! � 4    : response%=(1<<6)+16
� : response%=16
��
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
)� �Wimp_WindowCancel(title$,message$)
$(wimp%+4)=message$
response%=23
 =ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
*=response%-2
4:
>+� �Wimp_WindowErrorBox(title$,message$)
H+�Wimp_WindowAlertBox(title$,message$,2)
R�
\:
f � �Wimp_WindowTitle(window%)
pwimp%!0=window%
z ș "Wimp_GetWindInfo",,wimp%
�6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
�=$(wimp%!76)
�:
�� �Wimp_WindowLoad(window$)
�8=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates"
�"
�-� �Wimp_WindowLoadFrom(window$,template$)
�)� c%,end%  : end%=icons%+icon_memory%
�%ș "Wimp_OpenTemplate",,template$
�Eș "Wimp_LoadTemplate",,wimp%,icons%,end%,-1,window$,0 � ,,icons%
�%� sprites%<>0 � wimp%!64=sprites%
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
=c%
:
� �Wimp_WindowXOrigin
$=wimp%!4-wimp%!20
.:
8� �Window_WindowYOrigin
B=wimp%!16-wimp%!24
L:
V%� �Wimp_WindowBringToTop(window%)
`!wimp%=window%
j#ș "Wimp_GetWindowState",,wimp%
twimp%!28=-1
~ș "Wimp_OpenWindow",,wimp%
��
�:
�!�  �Wimp_WindowClose(window%)
�!wimp%=window%
� ș "Wimp_CloseWindow",,wimp%
��
�:
�$� �Wimp_WindowForceDraw(window%)
�Ȏ window% �
�8 � -1   : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
�9  : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
��
�

:
� �Wimp_WindowOpen(window%)
!wimp%=window%
(#ș "Wimp_GetWindowState",,wimp%
2ș "Wimp_OpenWindow",,wimp%
<�
F:
P� �Wimp_Draw(x,y)
Z � x-x_origin%,y-y_origin%
d�
n:
x� �Wimp_Move(x,y)
� � x-x_origin%,y_origin%-y
��
�:
�� �Wimp_Line(x,y,x1,y1)
�8 � x-x_origin%,y-y_origin%,x1-x_origin%,y1-y_origin%
��
�:
��|
��|
��|
�1�|                  -------------------------
�(�|                          2.�Icons
�1�|                  -------------------------
�|
�|
=�|             ------------------------------------------
"�|
,(�|                      Procedures :
6�|
@+�|              FNWimp_IconBar(Sprite$)
J<�|              PROCWimp_IconCaret(window%,icon%,chars%)
T2�|              FNWimp_IconText(window%,icon%)
^8�|              FNWimp_IconValidation(window%,icon%)
h7�|              PROCWimp_IconDisable(window%,icon%)
r6�|              PROCWimp_IconEnable(window%,icon%)
|=�|              PROCWimp_IconPutText(window%,icon%,text$)
��|
�=�|             ------------------------------------------
��|
�:
�� �Wimp_IconBar(Sprite$)
�� icon%
�wimp%!0=-1
�wimp%!4=0     : wimp%!8=0
�wimp%!12=68 : wimp%!16=68
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
:
+� �Wimp_IconCaret(window%,icon%,chars%)
8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
&�
0:
:#� �Wimp_IconText(window%,icon%)
D#wimp%!0=window% : wimp%!4=icon%
N!ș "Wimp_GetIconState",,wimp%
X7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
b=$(wimp%!28)
l:
v)� �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
!ș "Wimp_SetIconState",,wimp%
�
 :
*,� �Wimp_IconPutText(window%,icon%,text$)
4#wimp%!0=window% : wimp%!4=icon%
>!ș "Wimp_GetIconState",,wimp%
H7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
R$(wimp%!28)=text$
\#wimp%!0=window% : wimp%!4=icon%
fwimp%!8=0 : wimp%!12=0
p!ș "Wimp_SetIconState",,wimp%
z�
�:
��|
��|
��|
�1�|                  -------------------------
�(�|                          3.�Menus
�1�|                  -------------------------
��|
��|
�?�|           ----------------------------------------------
��|
�(�|                      Procedures :
��|
	�|
	+�|            FNWimp_MenuChoice(level%)
	*�|            FNWimp_MenuCreate(menu$)
	$$�|            FNWimp_MenuColours
	.2�|            FNWimp_MenuCreateColours(title$)
	8/�|            FNWimp_MenuNoOfEntries(menu$)
	BD�|            PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
	L2�|            PROCWimp_MenuCentre(menu%,item%)
	V$�|            PROCWimp_MenuClose
	`3�|            PROCWimp_MenuDisable(menu%,item%)
	j6�|            PROCWimp_MenuDottedLine(menu%,item%)
	t2�|            PROCWimp_MenuEnable(menu%,item%)
	~D�|            PROCWimp_MenuForegroundColour(menu%,item%,colour%)
	�8�|            PROCWimp_MenuGlue(menu1%,item%,menu2%)
	�6�|            PROCWimp_MenuItem(menu%,item%,item$)
	�3�|            PROCWimp_MenuMessage(menu%,item%)
	�1�|            PROCWimp_MenuPopUp(Menu%,x%,y%)
	�.�|            PROCWimp_MenuPopUpBar(x%,y%)
	�0�|            PROCWimp_MenuTick(menu%,item%)
	�2�|            PROCWimp_MenuTitle(menu%,title$)
	�L�|            PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
	��|
	�?�|           ----------------------------------------------
	��|
	�� �Wimp_MenuChoice(level%)
=(wimp%!(4*level%))+1

:
� �Wimp_MenuCreate(menu$)
'� menu%,index%,width%,length%,k%,s%
(2� menu% 28+�Internal_MenuNoOfEntries(menu$)*24
27menu%?12=7   : menu%?13=2  : menu%?14=7 :menu%?15=0
<+menu%!16=140 : menu%!20=44 : menu%!24=0
Findex%=menu%+28
P $menu%=�menu$,�menu$,"\")-1)
Z#width%=�(�menu$,�menu$,"\")-1))
d$menu$+="\" : Menu_NoOfEntries%=0
nȕ menu$<>""
xmenu$=�menu$,�menu$,"\")+1)
�� menu$<>"" �
�/!index%=0 : index%!4=-1 : index%!8=&7000021
�length%=�menu$,"\")-1
�k%=��menu$,length%),">")
�
� k%<>0 �
�!s%=�(�menu$,k%+1,length%-k%))
�index%!4=s%
�length%=k%-1
��
� $(index%+12)=�menu$,length%)
�%� length%>width% � width%=length%
�index%+=24
��
�
menu%!16=16*(width%+1)
(index%!-24=index%!-24 � &80 : =menu%
":
,� �Wimp_MenuColours
6!=�Wimp_MenuCreateColours(" ")
@:
J%� �Wimp_MenuCreateColours(title$)
T� x$,men%,j%,i%
^6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"
hmen%=�Wimp_MenuCreate(x$)
r� i%=0 � 15
|
Ȏ � �
�(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7
� : j%=0
��
�men%?(39+i%*24)=i%*16+j%
��Wimp_MenuCentre(men%,i%+1)
��
�	=men%
�:
�"� �Wimp_MenuNoOfEntries(menu$)
�� n% ,j% : n%=0 : j%=0
��
�j%=�menu$,"\",j%+1)
�� j%<>0 � n%+=1

� j%=0
=n%
:
&5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
0� fore%,i%
:&fore%=(menu%?(39+(item%-1)*24))�16
D(i%=((menu%?(39+(item%-1)*24))�16)�16
N/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
X�
b:
l#� �Wimp_MenuCentre(menu%,item%)
v: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)
��
�:
�'� �Wimp_MenuDottedLine(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
��

:

#� �Wimp_MenuEnable(menu%,item%)

"�Wimp_MenuDisable(menu%,item%)

 ;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)

*�

4:

>5� �Wimp_MenuForegroundColour(menu%,item%,colour%)

HEmenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)

R�

\:

f)� �Wimp_MenuGlue(menu1%,item%,menu2%)

pmenu1%!(8+item%*24)=menu2%

z�

�:

�'� �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%)

�menu%=Menu%

�+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20

��
:
� �Wimp_MenuPopUpBar(x%,y%)
� n% : n%=0
$+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
.	n%+=1
8�
B2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
Lmenu%=Bar_Menu%
V�
`:
j!� �Wimp_MenuTick(menu%,item%)
t7menu%!(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%
� menu%!(44+(item%-1)*24)=val%
�)menu%!(48+(item%-1)*24)=BufferLength%
��
�|

�|
�|
1�|                  -------------------------
(*�|                          4.�Sprites
21�|                  -------------------------
<�|
F�|
P:�|                ------------------------------------
Z�|
d(�|                      Procedures :
n�|
x�|
�,�|                  PROCWimp_SpritesLoad
�:�|                  PROCWimp_SpritesPathLoad(pathname$
��|
��|
��|
�:�|                ------------------------------------
��|
�:
�� �Wimp_SpritesLoad
�/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
��
�:
�&� �Wimp_SpritesPathLoad(pathname$)

�S%,T%
,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
�sprites%T%,spname%12
"!sprites%=T%:sprites%!8=0
,!ș"OS_SpriteOp",&109,sprites%
6+ș"OS_SpriteOp",&10A,sprites%,pathname$
@�
J:
T�|
^�|
h�|
r1�|                  -------------------------
|(�|                          5.�Files
�1�|                  -------------------------
��|
��|
�5�|                -------------------------------
��|
�(�|                      Procedures :
��|
��|
�.�|                  FNWimp_FileType(type%)
�.�|                  FNWimp_GetFilePathName
�2�|                  FNWimp_FileLoad(pathname$)
�9�|                  FNWimp_GetStringAtAddress(array%)
�6�|                  FNWimp_GetFileFromPathname(f$)
�|
�|
5�|                -------------------------------
&�|
0�|
:�|
D:
N� �Wimp_FileType(type%)
XȎtype%�
b�&FFF:="Text"
l�&FFD:="Data"
v�&FFB:="Basic"
��&FF9:="Sprite"
��&FED:="Palette"
��&FEC:="Template"
��&AFF:="Draw"
��&1000:="Folder"
��&2000:="Application"
�=�~(type%)
��
�:
�� �Wimp_GetFilePathName
�'=�Wimp_GetStringAtAddress(wimp%+44)
�:
�� �Wimp_FileLoad(pathname$)
�S%,T%,file%
S%=�pathname$
T%=�#S%+16
 �#S%
*�file%T%
4"�("LOAD"+pathname$+""+�~file%)
>
=file%
H;
R&� �Wimp_GetStringAtAddress(array%)
\
�s$:s$=""
f<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
p=s$
z:
�#� �Wimp_GetFileFromPathname(f$)
��f$,".")=0�
�=f$
��
�5=�Wimp_GetStringFromPathname(�f$,�(f$)-�f$,".")))
��
�:
�� �Wimp_WaitForEvent
�finished%=�
�mask%=%111000011001:�
�%ș"Wimp_Poll",mask%,block%�event%
�!Ȏ�Wimp_Event(event%,block%)�
��-1:�Event_SaveFile
�0:
*�1:ș"Wimp_RedrawWindow",,block%�more%
)x_origin%=�Wimp_WindowXOrigin(block%)
$)y_origin%=�Wimp_WindowYOrigin(block%)
.ȕmore%
8!ș"Wimp_BorderWindow",,block%
B�Event_DrawWindow(block%!0)
L'ș"Wimp_GetRectangle",,block%�more%
V�
`�2:window%=!block%
j�Wimp_WindowOpen(window%)
t�3:window%=!block%
~�Wimp_WindowClose(window%)
��4:
��5:
�9�6:button%=block%!8:window%=block%!12:icon%=block%!16
�x%=block%!0:y%=block%!4
�Ȏbutton%�
��2:
�#�Event_MenuPopUp(window%,x%,y%)
�:
�ș"Wimp_BorderIcon",,block%
�2�Event_MouseClick(button%,window%,icon%,x%,y%)
�0block%!8=0:block%!12=window%:block%!16=icon%
�ș"Wimp_BorderIcon",,block%
�

8�7:�8:window%=block%!0:icon%=block%!4:key%=block%!24
'�Event_KeyPress(window%,icon%,key%)
�9:�Event_MenuChoice(menu%)
(�10:
2�11:
<�12:
F
P
Z�17,18:
dmessage%=block%!16
nȎmessage%�
x�message_quit%:finished%=�
�$�message_load%:�Event_LoadFile()
��
��19:
�
�4�Wimp_Alert(TaskName$,�$+"atline"+�(ERLDIV10),2)
��
��finished%
��
�:
�ݤWimp_Event(event%,block%)
�
Ȏevent%�
��0
��
=event%
��Save_Event
Ȏblock%!0�
" �Save_Window%:�Wimp_SaveFile
,:
6Ȏblock%!16�
@�0:
J-�block%!8�&50��Wimp_DragBox(Save_Window%)
T�2:
^�block%!8�5��Wimp_SaveFile
h�
r�
|�
���Wimp_SaveFile
��x$
�$x$=�Icon_GetText(Save_Window%,1)
�Ȏ�x$,".")�
��0:
�;�AlertBox(Task$,"Tosave,dragtheicontoadirectorywindow")
�:
��Event_SaveFile(x$)
��
�ș"Wimp_CreateMenu",-1
��
���Wimp_DragBox(window%)
�
�x%,y%
!block%=window%
#ș"Wimp_GetWindowState",,block%
0x%=block%!4-block%!20:y%=block%!16-block%!24
&block%!4=0
0!ș"Wimp_GetIconState",,block%
:!block%=window%
Dblock%!4=5
N/block%!8=x%+block%!8:block%!12=y%+block%!12
X1block%!16=x%+block%!16:block%!20=y%+block%!20
bblock%!24=0:block%!28=0
l+block%!32=&7FFFFFFF:block%!36=&7FFFFFFF
vș"Wimp_DragBox",,block%
��
���Wimp_SaveMessage
��file$,window%,icon%,x%,y%
�#ș"Wimp_GetPointerInfo",,block%
�=window%=block%!12:icon%=block%!16:x%=block%!0:y%=block%!4
�1file$=�GetLeaf(�Icon_GetText(Save_Window%,1))
�block%!20=window%
�block%!24=icon%
�block%!28=x%:block%!32=y%
�block%!36=length%
�block%!0=64
�block%!12=0
�block%!16=1
block%!40=&FFF
$(block%+44)=file$
6ș"Wimp_SendMessage",17,block%,block%!20,block%!24
 �
*ݤWimp_SaveEvent
45=(block%!0=Save_Window%)�(block%!12=Save_Window%)
>:
H�|
R�|
\�|
f1�|                  -------------------------
p,�|                      6.�Miscellaneous
z1�|                  -------------------------
��|
��|
�5�|                -------------------------------
��|
�(�|                      Procedures :
��|
��|
�/�|                  FNWimp_Start(TaskName$)
�2�|                  PROCWimp_SetEventVariables
�7�|                  PROCWimp_Error(task%,TaskName$)
�*�|                  PROCWimp_CloseDown
�%�|                  PROCWimp_Quit
�6�|                  FNWimp_ReadVariable(Variable$)
2�|                  PROCWimp_SendToEdit(file$)
�|
5�|                -------------------------------
$�|
.:
8� �Wimp_Start(TaskName$)
B� version%
L�Wimp_SetEventVariables
V&� � �Wimp_Error(task%,TaskName$):�
`$wimp%="TASK"
j=ș"Wimp_Initialise",200,!wimp%,TaskName$ � version%,task%
t=TaskName$
~:
�� �Wimp_SetEventVariables
�,� wimp% block_memory%,icons%icon_memory%
�!icon_end%=icons%+icon_memory%
�.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%=0: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

�
:
"� �Wimp_Error(task%,TaskName$)
(
�X$,x%
2	� � �
<x%=�
FX$=�$+"atline"+�(x%�10)
P�ErrorMsg%36
Z�ErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%:$(ErrorMsg%+24)="!RunImage":ș"Wimp_SendMessage",17,ErrorMsg%
d#�Wimp_WindowAlert(TaskName$,X$)
n�Wimp_CloseDown
x�
�:
�� �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)
:
"� �Wimp_SendToEdit(file$)
,� n%
6wimp%!4=&6CC01C0C
@wimp%!16=5
Jwimp%!36=0
Twimp%!40=&FFF
^$(wimp%+44)=file$+�0
hn%=�file$+45
r,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
|$ș "Wimp_SendMessage",17,wimp%,0
��
�:
�

00000000  0d 00 0a 06 f4 7c 0d 00  14 06 f4 7c 0d 00 1e 06  |.....|.....|....|
00000010  f4 7c 0d 00 28 06 f4 7c  0d 00 32 45 f4 7c 20 20  |.|..(..|..2E.|  |
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2d 2d  |              --|
00000030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000040  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 20 20 20  |-------------   |
00000050  20 20 20 20 20 20 20 36  2f 31 2f 39 32 0d 00 3c  |       6/1/92..<|
00000060  2f f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |/.|             |
00000070  20 20 20 20 20 20 57 49  4d 50 20 50 52 4f 43 45  |      WIMP PROCE|
00000080  44 55 52 45 20 4c 49 42  52 41 52 59 0d 00 46 06  |DURE LIBRARY..F.|
00000090  f4 7c 0d 00 50 2c f4 7c  20 20 20 20 20 20 20 20  |.|..P,.|        |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 49 6e 64  |             Ind|
000000b0  65 78 20 6f 66 20 43 6f  6e 74 65 6e 74 73 0d 00  |ex of Contents..|
000000c0  5a 06 f4 7c 0d 00 64 35  f4 7c 20 20 20 20 20 20  |Z..|..d5.|      |
000000d0  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
000000e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000000f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 00 6e 06 f4 7c 0d  |---------..n..|.|
00000100  00 78 24 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.x$.|           |
00000110  20 20 20 20 20 20 20 20  20 31 2e a0 57 69 6e 64  |         1..Wind|
00000120  6f 77 73 0d 00 82 06 f4  7c 0d 00 8c 22 f4 7c 20  |ows.....|...".| |
00000130  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000140  20 20 20 32 2e a0 49 63  6f 6e 73 0d 00 96 06 f4  |   2..Icons.....|
00000150  7c 0d 00 a0 22 f4 7c 20  20 20 20 20 20 20 20 20  ||...".|         |
00000160  20 20 20 20 20 20 20 20  20 20 20 33 2e a0 4d 65  |           3..Me|
00000170  6e 75 73 0d 00 aa 06 f4  7c 0d 00 b4 24 f4 7c 20  |nus.....|...$.| |
00000180  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000190  20 20 20 34 2e a0 53 70  72 69 74 65 73 0d 00 be  |   4..Sprites...|
000001a0  06 f4 7c 0d 00 c8 22 f4  7c 20 20 20 20 20 20 20  |..|...".|       |
000001b0  20 20 20 20 20 20 20 20  20 20 20 20 20 35 2e a0  |             5..|
000001c0  46 69 6c 65 73 0d 00 d2  06 f4 7c 0d 00 dc 2a f4  |Files.....|...*.|
000001d0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000001e0  20 20 20 20 20 36 2e a0  4d 69 73 63 65 6c 6c 61  |     6..Miscella|
000001f0  6e 65 6f 75 73 0d 00 e6  06 f4 7c 0d 00 f0 35 f4  |neous.....|...5.|
00000200  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00000210  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000230  0d 00 fa 06 f4 7c 0d 01  04 06 f4 7c 0d 01 0e 06  |.....|.....|....|
00000240  f4 7c 0d 01 18 06 f4 7c  0d 01 22 06 f4 7c 0d 01  |.|.....|.."..|..|
00000250  2c 06 f4 7c 0d 01 36 35  f4 7c 20 20 20 20 20 20  |,..|..65.|      |
00000260  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
00000270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000280  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 01 40 2a f4 7c 20  |---------..@*.| |
00000290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002a0  20 20 20 20 20 20 20 20  20 31 2e a0 57 69 6e 64  |         1..Wind|
000002b0  6f 77 73 0d 01 4a 35 f4  7c 20 20 20 20 20 20 20  |ows..J5.|       |
000002c0  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
000002d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000002e0  2d 2d 2d 2d 2d 2d 2d 2d  0d 01 54 06 f4 7c 0d 01  |--------..T..|..|
000002f0  5e 06 f4 7c 0d 01 68 40  f4 7c 20 20 20 20 20 20  |^..|..h@.|      |
00000300  20 20 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    ------------|
00000310  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000330  2d 2d 2d 2d 0d 01 72 06  f4 7c 0d 01 7c 28 f4 7c  |----..r..|..|(.||
00000340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000350  20 20 20 20 20 20 50 72  6f 63 65 64 75 72 65 73  |      Procedures|
00000360  20 3a 0d 01 86 06 f4 7c  0d 01 90 38 f4 7c 20 20  | :.....|...8.|  |
00000370  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00000380  69 6d 70 5f 57 69 6e 64  6f 77 41 6c 65 72 74 28  |imp_WindowAlert(|
00000390  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
000003a0  0d 01 9a 43 f4 7c 20 20  20 20 20 20 20 20 20 20  |...C.|          |
000003b0  20 20 20 50 52 4f 43 57  69 6d 70 5f 57 69 6e 64  |   PROCWimp_Wind|
000003c0  6f 77 41 6c 65 72 74 42  6f 78 28 74 69 74 6c 65  |owAlertBox(title|
000003d0  24 2c 6d 65 73 73 61 67  65 24 2c 62 75 74 74 6f  |$,message$,butto|
000003e0  6e 25 29 0d 01 a4 37 f4  7c 20 20 20 20 20 20 20  |n%)...7.|       |
000003f0  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 57 69 6e  |      FNWimp_Win|
00000400  64 6f 77 43 61 6e 63 65  6c 28 74 69 74 6c 65 24  |dowCancel(title$|
00000410  2c 6d 65 73 73 61 67 65  24 29 0d 01 ae 3b f4 7c  |,message$)...;.||
00000420  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
00000430  43 57 69 6d 70 5f 57 69  6e 64 6f 77 45 72 72 6f  |CWimp_WindowErro|
00000440  72 42 6f 78 28 74 69 74  6c 65 24 2c 6d 65 73 73  |rBox(title$,mess|
00000450  61 67 65 24 29 0d 01 b8  2e f4 7c 20 20 20 20 20  |age$).....|     |
00000460  20 20 20 20 20 20 20 20  46 4e 57 69 6d 70 5f 57  |        FNWimp_W|
00000470  69 6e 64 6f 77 54 69 74  6c 65 28 77 69 6e 64 6f  |indowTitle(windo|
00000480  77 25 29 0d 01 c2 2d f4  7c 20 20 20 20 20 20 20  |w%)...-.|       |
00000490  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 57 69 6e  |      FNWimp_Win|
000004a0  64 6f 77 4c 6f 61 64 28  77 69 6e 64 6f 77 24 29  |dowLoad(window$)|
000004b0  0d 01 cc 3b f4 7c 20 20  20 20 20 20 20 20 20 20  |...;.|          |
000004c0  20 20 20 46 4e 57 69 6d  70 5f 57 69 6e 64 6f 77  |   FNWimp_Window|
000004d0  4c 6f 61 64 46 72 6f 6d  28 77 69 6e 64 6f 77 24  |LoadFrom(window$|
000004e0  2c 74 65 6d 70 6c 61 74  65 24 29 0d 01 d6 27 f4  |,template$)...'.|
000004f0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 46 4e  ||             FN|
00000500  57 69 6d 70 5f 57 69 6e  64 6f 77 58 4f 72 69 67  |Wimp_WindowXOrig|
00000510  69 6e 0d 01 e0 27 f4 7c  20 20 20 20 20 20 20 20  |in...'.|        |
00000520  20 20 20 20 20 46 4e 57  69 6d 70 5f 57 69 6e 64  |     FNWimp_Wind|
00000530  6f 77 59 4f 72 69 67 69  6e 0d 01 ea 35 f4 7c 20  |owYOrigin...5.| |
00000540  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
00000550  57 69 6d 70 5f 57 69 6e  64 6f 77 42 72 69 6e 67  |Wimp_WindowBring|
00000560  54 6f 54 6f 70 28 77 69  6e 64 6f 77 25 29 0d 01  |ToTop(window%)..|
00000570  f4 34 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.4.|            |
00000580  20 50 52 4f 43 57 69 6d  70 5f 57 69 6e 64 6f 77  | PROCWimp_Window|
00000590  46 6f 72 63 65 44 72 61  77 28 77 69 6e 64 6f 77  |ForceDraw(window|
000005a0  25 29 0d 01 fe 2f f4 7c  20 20 20 20 20 20 20 20  |%).../.|        |
000005b0  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 57 69  |     PROCWimp_Wi|
000005c0  6e 64 6f 77 4f 70 65 6e  28 77 69 6e 64 6f 77 25  |ndowOpen(window%|
000005d0  29 0d 02 08 25 f4 7c 20  20 20 20 20 20 20 20 20  |)...%.|         |
000005e0  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 44 72 61  |    PROCWimp_Dra|
000005f0  77 28 78 2c 79 29 0d 02  12 25 f4 7c 20 20 20 20  |w(x,y)...%.|    |
00000600  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00000610  70 5f 4d 6f 76 65 28 78  2c 79 29 0d 02 1c 2b f4  |p_Move(x,y)...+.|
00000620  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 50 52  ||             PR|
00000630  4f 43 57 69 6d 70 5f 4c  69 6e 65 28 78 2c 79 2c  |OCWimp_Line(x,y,|
00000640  78 31 2c 79 31 29 0d 02  26 06 f4 7c 0d 02 30 3f  |x1,y1)..&..|..0?|
00000650  f4 7c 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |.|           ---|
00000660  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000680  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 02 3a 06 f4  |-----------..:..|
00000690  7c 0d 02 44 06 f4 7c 0d  02 4e 06 f4 7c 0d 02 58  ||..D..|..N..|..X|
000006a0  28 dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 41  |(. .Wimp_WindowA|
000006b0  6c 65 72 74 28 74 69 74  6c 65 24 2c 6d 65 73 73  |lert(title$,mess|
000006c0  61 67 65 24 29 0d 02 62  2b f2 57 69 6d 70 5f 57  |age$)..b+.Wimp_W|
000006d0  69 6e 64 6f 77 41 6c 65  72 74 42 6f 78 28 74 69  |indowAlertBox(ti|
000006e0  74 6c 65 24 2c 6d 65 73  73 61 67 65 24 2c 30 29  |tle$,message$,0)|
000006f0  0d 02 6c 05 e1 0d 02 76  05 3a 0d 02 80 33 dd 20  |..l....v.:...3. |
00000700  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 41 6c 65 72  |.Wimp_WindowAler|
00000710  74 42 6f 78 28 74 69 74  6c 65 24 2c 6d 65 73 73  |tBox(title$,mess|
00000720  61 67 65 24 2c 62 75 74  74 6f 6e 25 29 0d 02 8a  |age$,button%)...|
00000730  0f ea 20 72 65 73 70 6f  6e 73 65 25 0d 02 94 17  |.. response%....|
00000740  24 28 77 69 6d 70 25 2b  34 29 3d 6d 65 73 73 61  |$(wimp%+4)=messa|
00000750  67 65 24 0d 02 9e 10 c8  8e 20 62 75 74 74 6f 6e  |ge$...... button|
00000760  25 20 ca 0d 02 a8 19 20  c9 20 32 20 20 20 20 3a  |% ..... . 2    :|
00000770  20 72 65 73 70 6f 6e 73  65 25 3d 31 0d 02 b2 1a  | response%=1....|
00000780  20 c9 20 31 20 20 20 20  3a 20 72 65 73 70 6f 6e  | . 1    : respon|
00000790  73 65 25 3d 31 35 0d 02  bc 21 20 c9 20 33 20 20  |se%=15...! . 3  |
000007a0  20 20 3a 20 72 65 73 70  6f 6e 73 65 25 3d 28 31  |  : response%=(1|
000007b0  3c 3c 35 29 2b 31 36 0d  02 c6 21 20 c9 20 34 20  |<<5)+16...! . 4 |
000007c0  20 20 20 3a 20 72 65 73  70 6f 6e 73 65 25 3d 28  |   : response%=(|
000007d0  31 3c 3c 36 29 2b 31 36  0d 02 d0 14 7f 20 3a 20  |1<<6)+16..... : |
000007e0  72 65 73 70 6f 6e 73 65  25 3d 31 36 0d 02 da 05  |response%=16....|
000007f0  cb 0d 02 e4 3d c8 99 20  22 57 69 6d 70 5f 52 65  |....=.. "Wimp_Re|
00000800  70 6f 72 74 45 72 72 6f  72 22 2c 77 69 6d 70 25  |portError",wimp%|
00000810  2c 72 65 73 70 6f 6e 73  65 25 2c 74 69 74 6c 65  |,response%,title|
00000820  24 20 b8 20 2c 72 65 73  70 6f 6e 73 65 25 0d 02  |$ . ,response%..|
00000830  ee 05 e1 0d 02 f8 05 3a  0d 03 02 29 dd 20 a4 57  |.......:...). .W|
00000840  69 6d 70 5f 57 69 6e 64  6f 77 43 61 6e 63 65 6c  |imp_WindowCancel|
00000850  28 74 69 74 6c 65 24 2c  6d 65 73 73 61 67 65 24  |(title$,message$|
00000860  29 0d 03 0c 17 24 28 77  69 6d 70 25 2b 34 29 3d  |)....$(wimp%+4)=|
00000870  6d 65 73 73 61 67 65 24  0d 03 16 10 72 65 73 70  |message$....resp|
00000880  6f 6e 73 65 25 3d 32 33  0d 03 20 3d c8 99 20 22  |onse%=23.. =.. "|
00000890  57 69 6d 70 5f 52 65 70  6f 72 74 45 72 72 6f 72  |Wimp_ReportError|
000008a0  22 2c 77 69 6d 70 25 2c  72 65 73 70 6f 6e 73 65  |",wimp%,response|
000008b0  25 2c 74 69 74 6c 65 24  20 b8 20 2c 72 65 73 70  |%,title$ . ,resp|
000008c0  6f 6e 73 65 25 0d 03 2a  10 3d 72 65 73 70 6f 6e  |onse%..*.=respon|
000008d0  73 65 25 2d 32 0d 03 34  05 3a 0d 03 3e 2b dd 20  |se%-2..4.:..>+. |
000008e0  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 45 72 72 6f  |.Wimp_WindowErro|
000008f0  72 42 6f 78 28 74 69 74  6c 65 24 2c 6d 65 73 73  |rBox(title$,mess|
00000900  61 67 65 24 29 0d 03 48  2b f2 57 69 6d 70 5f 57  |age$)..H+.Wimp_W|
00000910  69 6e 64 6f 77 41 6c 65  72 74 42 6f 78 28 74 69  |indowAlertBox(ti|
00000920  74 6c 65 24 2c 6d 65 73  73 61 67 65 24 2c 32 29  |tle$,message$,2)|
00000930  0d 03 52 05 e1 0d 03 5c  05 3a 0d 03 66 20 dd 20  |..R....\.:..f . |
00000940  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 54 69 74 6c  |.Wimp_WindowTitl|
00000950  65 28 77 69 6e 64 6f 77  25 29 0d 03 70 13 77 69  |e(window%)..p.wi|
00000960  6d 70 25 21 30 3d 77 69  6e 64 6f 77 25 0d 03 7a  |mp%!0=window%..z|
00000970  20 c8 99 20 22 57 69 6d  70 5f 47 65 74 57 69 6e  | .. "Wimp_GetWin|
00000980  64 49 6e 66 6f 22 2c 2c  77 69 6d 70 25 0d 03 84  |dInfo",,wimp%...|
00000990  36 e7 20 28 28 77 69 6d  70 25 21 36 30 29 80 26  |6. ((wimp%!60).&|
000009a0  31 30 30 29 3d 30 20 85  20 31 2c 22 54 69 74 6c  |100)=0 . 1,"Titl|
000009b0  65 20 69 73 6e 27 74 20  69 6e 64 69 72 65 63 74  |e isn't indirect|
000009c0  65 64 22 0d 03 8e 10 3d  24 28 77 69 6d 70 25 21  |ed"....=$(wimp%!|
000009d0  37 36 29 0d 03 98 05 3a  0d 03 a2 1f dd 20 a4 57  |76)....:..... .W|
000009e0  69 6d 70 5f 57 69 6e 64  6f 77 4c 6f 61 64 28 77  |imp_WindowLoad(w|
000009f0  69 6e 64 6f 77 24 29 0d  03 ac 38 3d a4 57 69 6d  |indow$)...8=.Wim|
00000a00  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 46 72 6f 6d  |p_WindowLoadFrom|
00000a10  28 77 69 6e 64 6f 77 24  2c 22 3c 4f 62 65 79 24  |(window$,"<Obey$|
00000a20  44 69 72 3e 2e 54 65 6d  70 6c 61 74 65 73 22 0d  |Dir>.Templates".|
00000a30  03 b6 05 22 0d 03 c0 2d  dd 20 a4 57 69 6d 70 5f  |..."...-. .Wimp_|
00000a40  57 69 6e 64 6f 77 4c 6f  61 64 46 72 6f 6d 28 77  |WindowLoadFrom(w|
00000a50  69 6e 64 6f 77 24 2c 74  65 6d 70 6c 61 74 65 24  |indow$,template$|
00000a60  29 0d 03 ca 29 ea 20 63  25 2c 65 6e 64 25 20 20  |)...). c%,end%  |
00000a70  3a 20 65 6e 64 25 3d 69  63 6f 6e 73 25 2b 69 63  |: end%=icons%+ic|
00000a80  6f 6e 5f 6d 65 6d 6f 72  79 25 0d 03 d4 25 c8 99  |on_memory%...%..|
00000a90  20 22 57 69 6d 70 5f 4f  70 65 6e 54 65 6d 70 6c  | "Wimp_OpenTempl|
00000aa0  61 74 65 22 2c 2c 74 65  6d 70 6c 61 74 65 24 0d  |ate",,template$.|
00000ab0  03 de 45 c8 99 20 22 57  69 6d 70 5f 4c 6f 61 64  |..E.. "Wimp_Load|
00000ac0  54 65 6d 70 6c 61 74 65  22 2c 2c 77 69 6d 70 25  |Template",,wimp%|
00000ad0  2c 69 63 6f 6e 73 25 2c  65 6e 64 25 2c 2d 31 2c  |,icons%,end%,-1,|
00000ae0  77 69 6e 64 6f 77 24 2c  30 20 b8 20 2c 2c 69 63  |window$,0 . ,,ic|
00000af0  6f 6e 73 25 0d 03 e8 25  e7 20 73 70 72 69 74 65  |ons%...%. sprite|
00000b00  73 25 3c 3e 30 20 8c 20  77 69 6d 70 25 21 36 34  |s%<>0 . wimp%!64|
00000b10  3d 73 70 72 69 74 65 73  25 0d 03 f2 26 c8 99 20  |=sprites%...&.. |
00000b20  22 57 69 6d 70 5f 43 72  65 61 74 65 57 69 6e 64  |"Wimp_CreateWind|
00000b30  6f 77 22 2c 2c 77 69 6d  70 25 20 b8 20 63 25 0d  |ow",,wimp% . c%.|
00000b40  03 fc 1b c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |..... "Wimp_Clos|
00000b50  65 54 65 6d 70 6c 61 74  65 22 0d 04 06 07 3d 63  |eTemplate"....=c|
00000b60  25 0d 04 10 05 3a 0d 04  1a 19 dd 20 a4 57 69 6d  |%....:..... .Wim|
00000b70  70 5f 57 69 6e 64 6f 77  58 4f 72 69 67 69 6e 0d  |p_WindowXOrigin.|
00000b80  04 24 15 3d 77 69 6d 70  25 21 34 2d 77 69 6d 70  |.$.=wimp%!4-wimp|
00000b90  25 21 32 30 0d 04 2e 05  3a 0d 04 38 1b dd 20 a4  |%!20....:..8.. .|
00000ba0  57 69 6e 64 6f 77 5f 57  69 6e 64 6f 77 59 4f 72  |Window_WindowYOr|
00000bb0  69 67 69 6e 0d 04 42 16  3d 77 69 6d 70 25 21 31  |igin..B.=wimp%!1|
00000bc0  36 2d 77 69 6d 70 25 21  32 34 0d 04 4c 05 3a 0d  |6-wimp%!24..L.:.|
00000bd0  04 56 25 dd 20 f2 57 69  6d 70 5f 57 69 6e 64 6f  |.V%. .Wimp_Windo|
00000be0  77 42 72 69 6e 67 54 6f  54 6f 70 28 77 69 6e 64  |wBringToTop(wind|
00000bf0  6f 77 25 29 0d 04 60 12  21 77 69 6d 70 25 3d 77  |ow%)..`.!wimp%=w|
00000c00  69 6e 64 6f 77 25 0d 04  6a 23 c8 99 20 22 57 69  |indow%..j#.. "Wi|
00000c10  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000c20  65 22 2c 2c 77 69 6d 70  25 0d 04 74 0f 77 69 6d  |e",,wimp%..t.wim|
00000c30  70 25 21 32 38 3d 2d 31  0d 04 7e 1f c8 99 20 22  |p%!28=-1..~... "|
00000c40  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000c50  2c 2c 77 69 6d 70 25 0d  04 88 05 e1 0d 04 92 05  |,,wimp%.........|
00000c60  3a 0d 04 9c 21 dd 20 20  f2 57 69 6d 70 5f 57 69  |:...!.  .Wimp_Wi|
00000c70  6e 64 6f 77 43 6c 6f 73  65 28 77 69 6e 64 6f 77  |ndowClose(window|
00000c80  25 29 0d 04 a6 12 21 77  69 6d 70 25 3d 77 69 6e  |%)....!wimp%=win|
00000c90  64 6f 77 25 0d 04 b0 20  c8 99 20 22 57 69 6d 70  |dow%... .. "Wimp|
00000ca0  5f 43 6c 6f 73 65 57 69  6e 64 6f 77 22 2c 2c 77  |_CloseWindow",,w|
00000cb0  69 6d 70 25 0d 04 ba 05  e1 0d 04 c4 05 3a 0d 04  |imp%.........:..|
00000cc0  ce 24 dd 20 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |.$. .Wimp_Window|
00000cd0  46 6f 72 63 65 44 72 61  77 28 77 69 6e 64 6f 77  |ForceDraw(window|
00000ce0  25 29 0d 04 d8 10 c8 8e  20 77 69 6e 64 6f 77 25  |%)...... window%|
00000cf0  20 ca 0d 04 e2 38 20 c9  20 2d 31 20 20 20 3a 20  | ....8 . -1   : |
00000d00  c8 99 20 22 57 69 6d 70  5f 46 6f 72 63 65 52 65  |.. "Wimp_ForceRe|
00000d10  64 72 61 77 22 2c 2d 31  2c 30 2c 30 2c 32 2a 31  |draw",-1,0,0,2*1|
00000d20  32 38 30 2c 32 2a 31 30  32 34 0d 04 ec 39 20 7f  |280,2*1024...9 .|
00000d30  20 3a 20 c8 99 20 22 57  69 6d 70 5f 46 6f 72 63  | : .. "Wimp_Forc|
00000d40  65 52 65 64 72 61 77 22  2c 77 69 6e 64 6f 77 25  |eRedraw",window%|
00000d50  2c 30 2c 2d 32 2a 31 30  32 34 2c 32 2a 31 32 38  |,0,-2*1024,2*128|
00000d60  30 2c 30 0d 04 f6 05 cb  0d 05 00 05 e1 0d 05 0a  |0,0.............|
00000d70  05 3a 0d 05 14 1f dd 20  f2 57 69 6d 70 5f 57 69  |.:..... .Wimp_Wi|
00000d80  6e 64 6f 77 4f 70 65 6e  28 77 69 6e 64 6f 77 25  |ndowOpen(window%|
00000d90  29 0d 05 1e 12 21 77 69  6d 70 25 3d 77 69 6e 64  |)....!wimp%=wind|
00000da0  6f 77 25 0d 05 28 23 c8  99 20 22 57 69 6d 70 5f  |ow%..(#.. "Wimp_|
00000db0  47 65 74 57 69 6e 64 6f  77 53 74 61 74 65 22 2c  |GetWindowState",|
00000dc0  2c 77 69 6d 70 25 0d 05  32 1f c8 99 20 22 57 69  |,wimp%..2... "Wi|
00000dd0  6d 70 5f 4f 70 65 6e 57  69 6e 64 6f 77 22 2c 2c  |mp_OpenWindow",,|
00000de0  77 69 6d 70 25 0d 05 3c  05 e1 0d 05 46 05 3a 0d  |wimp%..<....F.:.|
00000df0  05 50 15 dd 20 f2 57 69  6d 70 5f 44 72 61 77 28  |.P.. .Wimp_Draw(|
00000e00  78 2c 79 29 0d 05 5a 1e  20 df 20 78 2d 78 5f 6f  |x,y)..Z. . x-x_o|
00000e10  72 69 67 69 6e 25 2c 79  2d 79 5f 6f 72 69 67 69  |rigin%,y-y_origi|
00000e20  6e 25 0d 05 64 05 e1 0d  05 6e 05 3a 0d 05 78 15  |n%..d....n.:..x.|
00000e30  dd 20 f2 57 69 6d 70 5f  4d 6f 76 65 28 78 2c 79  |. .Wimp_Move(x,y|
00000e40  29 0d 05 82 1e 20 ec 20  78 2d 78 5f 6f 72 69 67  |).... . x-x_orig|
00000e50  69 6e 25 2c 79 5f 6f 72  69 67 69 6e 25 2d 79 0d  |in%,y_origin%-y.|
00000e60  05 8c 05 e1 0d 05 96 05  3a 0d 05 a0 1b dd 20 f2  |........:..... .|
00000e70  57 69 6d 70 5f 4c 69 6e  65 28 78 2c 79 2c 78 31  |Wimp_Line(x,y,x1|
00000e80  2c 79 31 29 0d 05 aa 38  20 86 20 78 2d 78 5f 6f  |,y1)...8 . x-x_o|
00000e90  72 69 67 69 6e 25 2c 79  2d 79 5f 6f 72 69 67 69  |rigin%,y-y_origi|
00000ea0  6e 25 2c 78 31 2d 78 5f  6f 72 69 67 69 6e 25 2c  |n%,x1-x_origin%,|
00000eb0  79 31 2d 79 5f 6f 72 69  67 69 6e 25 0d 05 b4 05  |y1-y_origin%....|
00000ec0  e1 0d 05 be 05 3a 0d 05  c8 06 f4 7c 0d 05 d2 06  |.....:.....|....|
00000ed0  f4 7c 0d 05 dc 06 f4 7c  0d 05 e6 31 f4 7c 20 20  |.|.....|...1.|  |
00000ee0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000ef0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 05 f0 28 f4 7c 20  |---------...(.| |
00000f10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f20  20 20 20 20 20 20 20 20  20 32 2e a0 49 63 6f 6e  |         2..Icon|
00000f30  73 0d 05 fa 31 f4 7c 20  20 20 20 20 20 20 20 20  |s...1.|         |
00000f40  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
00000f50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000f60  2d 2d 0d 06 04 06 f4 7c  0d 06 0e 06 f4 7c 0d 06  |--.....|.....|..|
00000f70  18 3d f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.=.|            |
00000f80  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000f90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000fa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 06 22 06 f4  |-----------.."..|
00000fb0  7c 0d 06 2c 28 f4 7c 20  20 20 20 20 20 20 20 20  ||..,(.|         |
00000fc0  20 20 20 20 20 20 20 20  20 20 20 20 20 50 72 6f  |             Pro|
00000fd0  63 65 64 75 72 65 73 20  3a 0d 06 36 06 f4 7c 0d  |cedures :..6..|.|
00000fe0  06 40 2b f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.@+.|           |
00000ff0  20 20 20 46 4e 57 69 6d  70 5f 49 63 6f 6e 42 61  |   FNWimp_IconBa|
00001000  72 28 53 70 72 69 74 65  24 29 0d 06 4a 3c f4 7c  |r(Sprite$)..J<.||
00001010  20 20 20 20 20 20 20 20  20 20 20 20 20 20 50 52  |              PR|
00001020  4f 43 57 69 6d 70 5f 49  63 6f 6e 43 61 72 65 74  |OCWimp_IconCaret|
00001030  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 63  |(window%,icon%,c|
00001040  68 61 72 73 25 29 0d 06  54 32 f4 7c 20 20 20 20  |hars%)..T2.|    |
00001050  20 20 20 20 20 20 20 20  20 20 46 4e 57 69 6d 70  |          FNWimp|
00001060  5f 49 63 6f 6e 54 65 78  74 28 77 69 6e 64 6f 77  |_IconText(window|
00001070  25 2c 69 63 6f 6e 25 29  0d 06 5e 38 f4 7c 20 20  |%,icon%)..^8.|  |
00001080  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00001090  6d 70 5f 49 63 6f 6e 56  61 6c 69 64 61 74 69 6f  |mp_IconValidatio|
000010a0  6e 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |n(window%,icon%)|
000010b0  0d 06 68 37 f4 7c 20 20  20 20 20 20 20 20 20 20  |..h7.|          |
000010c0  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 49 63 6f  |    PROCWimp_Ico|
000010d0  6e 44 69 73 61 62 6c 65  28 77 69 6e 64 6f 77 25  |nDisable(window%|
000010e0  2c 69 63 6f 6e 25 29 0d  06 72 36 f4 7c 20 20 20  |,icon%)..r6.|   |
000010f0  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00001100  69 6d 70 5f 49 63 6f 6e  45 6e 61 62 6c 65 28 77  |imp_IconEnable(w|
00001110  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 06 7c  |indow%,icon%)..||
00001120  3d f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |=.|             |
00001130  20 50 52 4f 43 57 69 6d  70 5f 49 63 6f 6e 50 75  | PROCWimp_IconPu|
00001140  74 54 65 78 74 28 77 69  6e 64 6f 77 25 2c 69 63  |tText(window%,ic|
00001150  6f 6e 25 2c 74 65 78 74  24 29 0d 06 86 06 f4 7c  |on%,text$).....||
00001160  0d 06 90 3d f4 7c 20 20  20 20 20 20 20 20 20 20  |...=.|          |
00001170  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00001180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 06 9a  |-------------...|
000011a0  06 f4 7c 0d 06 a4 05 3a  0d 06 ae 1c dd 20 a4 57  |..|....:..... .W|
000011b0  69 6d 70 5f 49 63 6f 6e  42 61 72 28 53 70 72 69  |imp_IconBar(Spri|
000011c0  74 65 24 29 0d 06 b8 0b  ea 20 69 63 6f 6e 25 0d  |te$)..... icon%.|
000011d0  06 c2 0e 77 69 6d 70 25  21 30 3d 2d 31 0d 06 cc  |...wimp%!0=-1...|
000011e0  1d 77 69 6d 70 25 21 34  3d 30 20 20 20 20 20 3a  |.wimp%!4=0     :|
000011f0  20 77 69 6d 70 25 21 38  3d 30 0d 06 d6 1d 77 69  | wimp%!8=0....wi|
00001200  6d 70 25 21 31 32 3d 36  38 20 3a 20 77 69 6d 70  |mp%!12=68 : wimp|
00001210  25 21 31 36 3d 36 38 0d  06 e0 12 77 69 6d 70 25  |%!16=68....wimp%|
00001220  21 32 30 3d 26 33 30 30  32 0d 06 ea 17 24 28 77  |!20=&3002....$(w|
00001230  69 6d 70 25 2b 32 34 29  3d 53 70 72 69 74 65 24  |imp%+24)=Sprite$|
00001240  0d 06 f4 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...'.. "Wimp_Cre|
00001250  61 74 65 49 63 6f 6e 22  2c 2c 77 69 6d 70 25 20  |ateIcon",,wimp% |
00001260  b8 20 69 63 6f 6e 25 0d  06 fe 0a 3d 69 63 6f 6e  |. icon%....=icon|
00001270  25 0d 07 08 05 3a 0d 07  12 2b dd 20 f2 57 69 6d  |%....:...+. .Wim|
00001280  70 5f 49 63 6f 6e 43 61  72 65 74 28 77 69 6e 64  |p_IconCaret(wind|
00001290  6f 77 25 2c 69 63 6f 6e  25 2c 63 68 61 72 73 25  |ow%,icon%,chars%|
000012a0  29 0d 07 1c 38 c8 99 20  22 57 69 6d 70 5f 53 65  |)...8.. "Wimp_Se|
000012b0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
000012c0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2c 2c  |window%,icon%,,,|
000012d0  2d 31 2c 63 68 61 72 73  25 0d 07 26 05 e1 0d 07  |-1,chars%..&....|
000012e0  30 05 3a 0d 07 3a 23 dd  20 a4 57 69 6d 70 5f 49  |0.:..:#. .Wimp_I|
000012f0  63 6f 6e 54 65 78 74 28  77 69 6e 64 6f 77 25 2c  |conText(window%,|
00001300  69 63 6f 6e 25 29 0d 07  44 23 77 69 6d 70 25 21  |icon%)..D#wimp%!|
00001310  30 3d 77 69 6e 64 6f 77  25 20 3a 20 77 69 6d 70  |0=window% : wimp|
00001320  25 21 34 3d 69 63 6f 6e  25 0d 07 4e 21 c8 99 20  |%!4=icon%..N!.. |
00001330  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001340  74 65 22 2c 2c 77 69 6d  70 25 0d 07 58 37 e7 20  |te",,wimp%..X7. |
00001350  28 28 77 69 6d 70 25 21  32 34 29 20 80 20 26 31  |((wimp%!24) . &1|
00001360  30 30 29 3d 30 20 85 20  31 2c 22 49 63 6f 6e 20  |00)=0 . 1,"Icon |
00001370  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
00001380  22 0d 07 62 10 3d 24 28  77 69 6d 70 25 21 32 38  |"..b.=$(wimp%!28|
00001390  29 0d 07 6c 05 3a 0d 07  76 29 dd 20 a4 57 69 6d  |)..l.:..v). .Wim|
000013a0  70 5f 49 63 6f 6e 56 61  6c 69 64 61 74 69 6f 6e  |p_IconValidation|
000013b0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000013c0  07 80 23 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |..#wimp%!0=windo|
000013d0  77 25 20 3a 20 77 69 6d  70 25 21 34 3d 69 63 6f  |w% : wimp%!4=ico|
000013e0  6e 25 0d 07 8a 21 c8 99  20 22 57 69 6d 70 5f 47  |n%...!.. "Wimp_G|
000013f0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00001400  6d 70 25 0d 07 94 37 e7  20 28 28 77 69 6d 70 25  |mp%...7. ((wimp%|
00001410  21 32 34 29 20 80 20 26  31 30 30 29 3d 30 20 85  |!24) . &100)=0 .|
00001420  20 31 2c 22 49 63 6f 6e  20 69 73 6e 27 74 20 69  | 1,"Icon isn't i|
00001430  6e 64 69 72 65 63 74 65  64 22 0d 07 9e 10 3d 24  |ndirected"....=$|
00001440  28 77 69 6d 70 25 21 33  32 29 0d 07 a8 05 3a 0d  |(wimp%!32)....:.|
00001450  07 b2 26 dd 20 f2 57 69  6d 70 5f 49 63 6f 6e 44  |..&. .Wimp_IconD|
00001460  69 73 61 62 6c 65 28 77  69 6e 64 6f 77 25 2c 69  |isable(window%,i|
00001470  63 6f 6e 25 29 0d 07 bc  23 77 69 6d 70 25 21 30  |con%)...#wimp%!0|
00001480  3d 77 69 6e 64 6f 77 25  20 3a 20 77 69 6d 70 25  |=window% : wimp%|
00001490  21 34 3d 69 63 6f 6e 25  0d 07 c6 24 77 69 6d 70  |!4=icon%...$wimp|
000014a0  25 21 38 3d 31 3c 3c 32  32 20 20 20 3a 20 77 69  |%!8=1<<22   : wi|
000014b0  6d 70 25 21 31 32 3d 31  3c 3c 32 32 0d 07 d0 21  |mp%!12=1<<22...!|
000014c0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000014d0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 07 da  |State",,wimp%...|
000014e0  05 e1 0d 07 e4 05 3a 0d  07 ee 25 dd 20 f2 57 69  |......:...%. .Wi|
000014f0  6d 70 5f 49 63 6f 6e 45  6e 61 62 6c 65 28 77 69  |mp_IconEnable(wi|
00001500  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 07 f8 23  |ndow%,icon%)...#|
00001510  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
00001520  3a 20 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |: wimp%!4=icon%.|
00001530  08 02 24 77 69 6d 70 25  21 38 3d 30 20 20 20 20  |..$wimp%!8=0    |
00001540  20 20 20 3a 20 77 69 6d  70 25 21 31 32 3d 31 3c  |   : wimp%!12=1<|
00001550  3c 32 32 0d 08 0c 21 c8  99 20 22 57 69 6d 70 5f  |<22...!.. "Wimp_|
00001560  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
00001570  69 6d 70 25 0d 08 16 05  e1 0d 08 20 05 3a 0d 08  |imp%....... .:..|
00001580  2a 2c dd 20 f2 57 69 6d  70 5f 49 63 6f 6e 50 75  |*,. .Wimp_IconPu|
00001590  74 54 65 78 74 28 77 69  6e 64 6f 77 25 2c 69 63  |tText(window%,ic|
000015a0  6f 6e 25 2c 74 65 78 74  24 29 0d 08 34 23 77 69  |on%,text$)..4#wi|
000015b0  6d 70 25 21 30 3d 77 69  6e 64 6f 77 25 20 3a 20  |mp%!0=window% : |
000015c0  77 69 6d 70 25 21 34 3d  69 63 6f 6e 25 0d 08 3e  |wimp%!4=icon%..>|
000015d0  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |!.. "Wimp_GetIco|
000015e0  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 08  |nState",,wimp%..|
000015f0  48 37 e7 20 28 28 77 69  6d 70 25 21 32 34 29 20  |H7. ((wimp%!24) |
00001600  80 20 26 31 30 30 29 3d  30 20 85 20 31 2c 22 49  |. &100)=0 . 1,"I|
00001610  63 6f 6e 20 69 73 6e 27  74 20 69 6e 64 69 72 65  |con isn't indire|
00001620  63 74 65 64 22 0d 08 52  15 24 28 77 69 6d 70 25  |cted"..R.$(wimp%|
00001630  21 32 38 29 3d 74 65 78  74 24 0d 08 5c 23 77 69  |!28)=text$..\#wi|
00001640  6d 70 25 21 30 3d 77 69  6e 64 6f 77 25 20 3a 20  |mp%!0=window% : |
00001650  77 69 6d 70 25 21 34 3d  69 63 6f 6e 25 0d 08 66  |wimp%!4=icon%..f|
00001660  1a 77 69 6d 70 25 21 38  3d 30 20 3a 20 77 69 6d  |.wimp%!8=0 : wim|
00001670  70 25 21 31 32 3d 30 0d  08 70 21 c8 99 20 22 57  |p%!12=0..p!.. "W|
00001680  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001690  22 2c 2c 77 69 6d 70 25  0d 08 7a 05 e1 0d 08 84  |",,wimp%..z.....|
000016a0  05 3a 0d 08 8e 06 f4 7c  0d 08 98 06 f4 7c 0d 08  |.:.....|.....|..|
000016b0  a2 06 f4 7c 0d 08 ac 31  f4 7c 20 20 20 20 20 20  |...|...1.|      |
000016c0  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
000016d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000016e0  2d 2d 2d 2d 2d 0d 08 b6  28 f4 7c 20 20 20 20 20  |-----...(.|     |
000016f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001700  20 20 20 20 20 33 2e a0  4d 65 6e 75 73 0d 08 c0  |     3..Menus...|
00001710  31 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |1.|             |
00001720  20 20 20 20 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |     -----------|
00001730  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 08  |--------------..|
00001740  ca 06 f4 7c 0d 08 d4 06  f4 7c 0d 08 de 3f f4 7c  |...|.....|...?.||
00001750  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
00001760  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001780  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 08 e8 06 f4 7c 0d  |---------.....|.|
00001790  08 f2 28 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..(.|           |
000017a0  20 20 20 20 20 20 20 20  20 20 20 50 72 6f 63 65  |           Proce|
000017b0  64 75 72 65 73 20 3a 0d  08 fc 06 f4 7c 0d 09 06  |dures :.....|...|
000017c0  06 f4 7c 0d 09 10 2b f4  7c 20 20 20 20 20 20 20  |..|...+.|       |
000017d0  20 20 20 20 20 46 4e 57  69 6d 70 5f 4d 65 6e 75  |     FNWimp_Menu|
000017e0  43 68 6f 69 63 65 28 6c  65 76 65 6c 25 29 0d 09  |Choice(level%)..|
000017f0  1a 2a f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.*.|            |
00001800  46 4e 57 69 6d 70 5f 4d  65 6e 75 43 72 65 61 74  |FNWimp_MenuCreat|
00001810  65 28 6d 65 6e 75 24 29  0d 09 24 24 f4 7c 20 20  |e(menu$)..$$.|  |
00001820  20 20 20 20 20 20 20 20  20 20 46 4e 57 69 6d 70  |          FNWimp|
00001830  5f 4d 65 6e 75 43 6f 6c  6f 75 72 73 0d 09 2e 32  |_MenuColours...2|
00001840  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 46 4e  |.|            FN|
00001850  57 69 6d 70 5f 4d 65 6e  75 43 72 65 61 74 65 43  |Wimp_MenuCreateC|
00001860  6f 6c 6f 75 72 73 28 74  69 74 6c 65 24 29 0d 09  |olours(title$)..|
00001870  38 2f f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |8/.|            |
00001880  46 4e 57 69 6d 70 5f 4d  65 6e 75 4e 6f 4f 66 45  |FNWimp_MenuNoOfE|
00001890  6e 74 72 69 65 73 28 6d  65 6e 75 24 29 0d 09 42  |ntries(menu$)..B|
000018a0  44 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 50  |D.|            P|
000018b0  52 4f 43 57 69 6d 70 5f  4d 65 6e 75 42 61 63 6b  |ROCWimp_MenuBack|
000018c0  47 72 6f 75 6e 64 43 6f  6c 6f 75 72 28 6d 65 6e  |GroundColour(men|
000018d0  75 25 2c 69 74 65 6d 25  2c 63 6f 6c 6f 75 72 25  |u%,item%,colour%|
000018e0  29 0d 09 4c 32 f4 7c 20  20 20 20 20 20 20 20 20  |)..L2.|         |
000018f0  20 20 20 50 52 4f 43 57  69 6d 70 5f 4d 65 6e 75  |   PROCWimp_Menu|
00001900  43 65 6e 74 72 65 28 6d  65 6e 75 25 2c 69 74 65  |Centre(menu%,ite|
00001910  6d 25 29 0d 09 56 24 f4  7c 20 20 20 20 20 20 20  |m%)..V$.|       |
00001920  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 4d 65  |     PROCWimp_Me|
00001930  6e 75 43 6c 6f 73 65 0d  09 60 33 f4 7c 20 20 20  |nuClose..`3.|   |
00001940  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00001950  70 5f 4d 65 6e 75 44 69  73 61 62 6c 65 28 6d 65  |p_MenuDisable(me|
00001960  6e 75 25 2c 69 74 65 6d  25 29 0d 09 6a 36 f4 7c  |nu%,item%)..j6.||
00001970  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
00001980  57 69 6d 70 5f 4d 65 6e  75 44 6f 74 74 65 64 4c  |Wimp_MenuDottedL|
00001990  69 6e 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |ine(menu%,item%)|
000019a0  0d 09 74 32 f4 7c 20 20  20 20 20 20 20 20 20 20  |..t2.|          |
000019b0  20 20 50 52 4f 43 57 69  6d 70 5f 4d 65 6e 75 45  |  PROCWimp_MenuE|
000019c0  6e 61 62 6c 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |nable(menu%,item|
000019d0  25 29 0d 09 7e 44 f4 7c  20 20 20 20 20 20 20 20  |%)..~D.|        |
000019e0  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 4d 65 6e  |    PROCWimp_Men|
000019f0  75 46 6f 72 65 67 72 6f  75 6e 64 43 6f 6c 6f 75  |uForegroundColou|
00001a00  72 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 63 6f  |r(menu%,item%,co|
00001a10  6c 6f 75 72 25 29 0d 09  88 38 f4 7c 20 20 20 20  |lour%)...8.|    |
00001a20  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00001a30  5f 4d 65 6e 75 47 6c 75  65 28 6d 65 6e 75 31 25  |_MenuGlue(menu1%|
00001a40  2c 69 74 65 6d 25 2c 6d  65 6e 75 32 25 29 0d 09  |,item%,menu2%)..|
00001a50  92 36 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.6.|            |
00001a60  50 52 4f 43 57 69 6d 70  5f 4d 65 6e 75 49 74 65  |PROCWimp_MenuIte|
00001a70  6d 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 69 74  |m(menu%,item%,it|
00001a80  65 6d 24 29 0d 09 9c 33  f4 7c 20 20 20 20 20 20  |em$)...3.|      |
00001a90  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 4d  |      PROCWimp_M|
00001aa0  65 6e 75 4d 65 73 73 61  67 65 28 6d 65 6e 75 25  |enuMessage(menu%|
00001ab0  2c 69 74 65 6d 25 29 0d  09 a6 31 f4 7c 20 20 20  |,item%)...1.|   |
00001ac0  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00001ad0  70 5f 4d 65 6e 75 50 6f  70 55 70 28 4d 65 6e 75  |p_MenuPopUp(Menu|
00001ae0  25 2c 78 25 2c 79 25 29  0d 09 b0 2e f4 7c 20 20  |%,x%,y%).....|  |
00001af0  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00001b00  6d 70 5f 4d 65 6e 75 50  6f 70 55 70 42 61 72 28  |mp_MenuPopUpBar(|
00001b10  78 25 2c 79 25 29 0d 09  ba 30 f4 7c 20 20 20 20  |x%,y%)...0.|    |
00001b20  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00001b30  5f 4d 65 6e 75 54 69 63  6b 28 6d 65 6e 75 25 2c  |_MenuTick(menu%,|
00001b40  69 74 65 6d 25 29 0d 09  c4 32 f4 7c 20 20 20 20  |item%)...2.|    |
00001b50  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00001b60  5f 4d 65 6e 75 54 69 74  6c 65 28 6d 65 6e 75 25  |_MenuTitle(menu%|
00001b70  2c 74 69 74 6c 65 24 29  0d 09 ce 4c f4 7c 20 20  |,title$)...L.|  |
00001b80  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00001b90  6d 70 5f 4d 65 6e 75 57  72 69 74 65 28 6d 65 6e  |mp_MenuWrite(men|
00001ba0  75 25 2c 69 74 65 6d 25  2c 62 75 66 66 65 72 25  |u%,item%,buffer%|
00001bb0  2c 76 61 6c 25 2c 42 75  66 66 65 72 4c 65 6e 67  |,val%,BufferLeng|
00001bc0  74 68 25 29 0d 09 d8 06  f4 7c 0d 09 e2 3f f4 7c  |th%).....|...?.||
00001bd0  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
00001be0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 09 ec 06 f4 7c 0d  |---------.....|.|
00001c10  09 f6 1e dd 20 a4 57 69  6d 70 5f 4d 65 6e 75 43  |.... .Wimp_MenuC|
00001c20  68 6f 69 63 65 28 6c 65  76 65 6c 25 29 0d 0a 00  |hoice(level%)...|
00001c30  19 3d 28 77 69 6d 70 25  21 28 34 2a 6c 65 76 65  |.=(wimp%!(4*leve|
00001c40  6c 25 29 29 2b 31 0d 0a  0a 05 3a 0d 0a 14 1d dd  |l%))+1....:.....|
00001c50  20 a4 57 69 6d 70 5f 4d  65 6e 75 43 72 65 61 74  | .Wimp_MenuCreat|
00001c60  65 28 6d 65 6e 75 24 29  0d 0a 1e 27 ea 20 6d 65  |e(menu$)...'. me|
00001c70  6e 75 25 2c 69 6e 64 65  78 25 2c 77 69 64 74 68  |nu%,index%,width|
00001c80  25 2c 6c 65 6e 67 74 68  25 2c 6b 25 2c 73 25 0d  |%,length%,k%,s%.|
00001c90  0a 28 32 de 20 6d 65 6e  75 25 20 32 38 2b a4 49  |.(2. menu% 28+.I|
00001ca0  6e 74 65 72 6e 61 6c 5f  4d 65 6e 75 4e 6f 4f 66  |nternal_MenuNoOf|
00001cb0  45 6e 74 72 69 65 73 28  6d 65 6e 75 24 29 2a 32  |Entries(menu$)*2|
00001cc0  34 0d 0a 32 37 6d 65 6e  75 25 3f 31 32 3d 37 20  |4..27menu%?12=7 |
00001cd0  20 20 3a 20 6d 65 6e 75  25 3f 31 33 3d 32 20 20  |  : menu%?13=2  |
00001ce0  3a 20 6d 65 6e 75 25 3f  31 34 3d 37 20 3a 6d 65  |: menu%?14=7 :me|
00001cf0  6e 75 25 3f 31 35 3d 30  0d 0a 3c 2b 6d 65 6e 75  |nu%?15=0..<+menu|
00001d00  25 21 31 36 3d 31 34 30  20 3a 20 6d 65 6e 75 25  |%!16=140 : menu%|
00001d10  21 32 30 3d 34 34 20 3a  20 6d 65 6e 75 25 21 32  |!20=44 : menu%!2|
00001d20  34 3d 30 0d 0a 46 13 69  6e 64 65 78 25 3d 6d 65  |4=0..F.index%=me|
00001d30  6e 75 25 2b 32 38 0d 0a  50 20 24 6d 65 6e 75 25  |nu%+28..P $menu%|
00001d40  3d c0 6d 65 6e 75 24 2c  a7 6d 65 6e 75 24 2c 22  |=.menu$,.menu$,"|
00001d50  5c 22 29 2d 31 29 0d 0a  5a 23 77 69 64 74 68 25  |\")-1)..Z#width%|
00001d60  3d a9 28 c0 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |=.(.menu$,.menu$|
00001d70  2c 22 5c 22 29 2d 31 29  29 0d 0a 64 24 6d 65 6e  |,"\")-1))..d$men|
00001d80  75 24 2b 3d 22 5c 22 20  3a 20 4d 65 6e 75 5f 4e  |u$+="\" : Menu_N|
00001d90  6f 4f 66 45 6e 74 72 69  65 73 25 3d 30 0d 0a 6e  |oOfEntries%=0..n|
00001da0  10 c8 95 20 6d 65 6e 75  24 3c 3e 22 22 0d 0a 78  |... menu$<>""..x|
00001db0  1f 6d 65 6e 75 24 3d c1  6d 65 6e 75 24 2c a7 6d  |.menu$=.menu$,.m|
00001dc0  65 6e 75 24 2c 22 5c 22  29 2b 31 29 0d 0a 82 11  |enu$,"\")+1)....|
00001dd0  e7 20 6d 65 6e 75 24 3c  3e 22 22 20 8c 0d 0a 8c  |. menu$<>"" ....|
00001de0  2f 21 69 6e 64 65 78 25  3d 30 20 3a 20 69 6e 64  |/!index%=0 : ind|
00001df0  65 78 25 21 34 3d 2d 31  20 3a 20 69 6e 64 65 78  |ex%!4=-1 : index|
00001e00  25 21 38 3d 26 37 30 30  30 30 32 31 0d 0a 96 19  |%!8=&7000021....|
00001e10  6c 65 6e 67 74 68 25 3d  a7 6d 65 6e 75 24 2c 22  |length%=.menu$,"|
00001e20  5c 22 29 2d 31 0d 0a a0  1c 6b 25 3d a7 c0 6d 65  |\")-1....k%=..me|
00001e30  6e 75 24 2c 6c 65 6e 67  74 68 25 29 2c 22 3e 22  |nu$,length%),">"|
00001e40  29 0d 0a aa 0d e7 20 6b  25 3c 3e 30 20 8c 0d 0a  |)..... k%<>0 ...|
00001e50  b4 21 73 25 3d a0 28 c1  6d 65 6e 75 24 2c 6b 25  |.!s%=.(.menu$,k%|
00001e60  2b 31 2c 6c 65 6e 67 74  68 25 2d 6b 25 29 29 0d  |+1,length%-k%)).|
00001e70  0a be 0f 69 6e 64 65 78  25 21 34 3d 73 25 0d 0a  |...index%!4=s%..|
00001e80  c8 10 6c 65 6e 67 74 68  25 3d 6b 25 2d 31 0d 0a  |..length%=k%-1..|
00001e90  d2 05 cd 0d 0a dc 20 24  28 69 6e 64 65 78 25 2b  |...... $(index%+|
00001ea0  31 32 29 3d c0 6d 65 6e  75 24 2c 6c 65 6e 67 74  |12)=.menu$,lengt|
00001eb0  68 25 29 0d 0a e6 25 e7  20 6c 65 6e 67 74 68 25  |h%)...%. length%|
00001ec0  3e 77 69 64 74 68 25 20  8c 20 77 69 64 74 68 25  |>width% . width%|
00001ed0  3d 6c 65 6e 67 74 68 25  0d 0a f0 0e 69 6e 64 65  |=length%....inde|
00001ee0  78 25 2b 3d 32 34 0d 0a  fa 05 cd 0d 0b 04 05 ce  |x%+=24..........|
00001ef0  0d 0b 0e 1a 6d 65 6e 75  25 21 31 36 3d 31 36 2a  |....menu%!16=16*|
00001f00  28 77 69 64 74 68 25 2b  31 29 0d 0b 18 28 69 6e  |(width%+1)...(in|
00001f10  64 65 78 25 21 2d 32 34  3d 69 6e 64 65 78 25 21  |dex%!-24=index%!|
00001f20  2d 32 34 20 84 20 26 38  30 20 3a 20 3d 6d 65 6e  |-24 . &80 : =men|
00001f30  75 25 0d 0b 22 05 3a 0d  0b 2c 17 dd 20 a4 57 69  |u%..".:..,.. .Wi|
00001f40  6d 70 5f 4d 65 6e 75 43  6f 6c 6f 75 72 73 0d 0b  |mp_MenuColours..|
00001f50  36 21 3d a4 57 69 6d 70  5f 4d 65 6e 75 43 72 65  |6!=.Wimp_MenuCre|
00001f60  61 74 65 43 6f 6c 6f 75  72 73 28 22 20 22 29 0d  |ateColours(" ").|
00001f70  0b 40 05 3a 0d 0b 4a 25  dd 20 a4 57 69 6d 70 5f  |.@.:..J%. .Wimp_|
00001f80  4d 65 6e 75 43 72 65 61  74 65 43 6f 6c 6f 75 72  |MenuCreateColour|
00001f90  73 28 74 69 74 6c 65 24  29 0d 0b 54 13 ea 20 78  |s(title$)..T.. x|
00001fa0  24 2c 6d 65 6e 25 2c 6a  25 2c 69 25 0d 0b 5e 36  |$,men%,j%,i%..^6|
00001fb0  78 24 3d 74 69 74 6c 65  24 2b 22 5c 30 5c 31 5c  |x$=title$+"\0\1\|
00001fc0  32 5c 33 5c 34 5c 35 5c  36 5c 37 5c 38 5c 39 5c  |2\3\4\5\6\7\8\9\|
00001fd0  31 30 5c 31 31 5c 31 32  5c 31 33 5c 31 34 5c 31  |10\11\12\13\14\1|
00001fe0  35 22 0d 0b 68 1d 6d 65  6e 25 3d a4 57 69 6d 70  |5"..h.men%=.Wimp|
00001ff0  5f 4d 65 6e 75 43 72 65  61 74 65 28 78 24 29 0d  |_MenuCreate(x$).|
00002000  0b 72 0f e3 20 69 25 3d  30 20 b8 20 31 35 0d 0b  |.r.. i%=0 . 15..|
00002010  7c 0a c8 8e 20 b9 20 ca  0d 0b 86 28 c9 20 69 25  ||... . ....(. i%|
00002020  3c 34 2c 69 25 3d 39 2c  69 25 3d 31 32 2c 69 25  |<4,i%=9,i%=12,i%|
00002030  3d 31 34 2c 69 25 3d 31  35 20 3a 20 6a 25 3d 37  |=14,i%=15 : j%=7|
00002040  0d 0b 90 0c 7f 20 3a 20  6a 25 3d 30 0d 0b 9a 05  |..... : j%=0....|
00002050  cb 0d 0b a4 1c 6d 65 6e  25 3f 28 33 39 2b 69 25  |.....men%?(39+i%|
00002060  2a 32 34 29 3d 69 25 2a  31 36 2b 6a 25 0d 0b ae  |*24)=i%*16+j%...|
00002070  1f f2 57 69 6d 70 5f 4d  65 6e 75 43 65 6e 74 72  |..Wimp_MenuCentr|
00002080  65 28 6d 65 6e 25 2c 69  25 2b 31 29 0d 0b b8 05  |e(men%,i%+1)....|
00002090  ed 0d 0b c2 09 3d 6d 65  6e 25 0d 0b cc 05 3a 0d  |.....=men%....:.|
000020a0  0b d6 22 dd 20 a4 57 69  6d 70 5f 4d 65 6e 75 4e  |..". .Wimp_MenuN|
000020b0  6f 4f 66 45 6e 74 72 69  65 73 28 6d 65 6e 75 24  |oOfEntries(menu$|
000020c0  29 0d 0b e0 1a ea 20 6e  25 20 2c 6a 25 20 3a 20  |)..... n% ,j% : |
000020d0  6e 25 3d 30 20 3a 20 6a  25 3d 30 0d 0b ea 05 f5  |n%=0 : j%=0.....|
000020e0  0d 0b f4 17 6a 25 3d a7  6d 65 6e 75 24 2c 22 5c  |....j%=.menu$,"\|
000020f0  22 2c 6a 25 2b 31 29 0d  0b fe 13 e7 20 6a 25 3c  |",j%+1)..... j%<|
00002100  3e 30 20 8c 20 6e 25 2b  3d 31 0d 0c 08 0a fd 20  |>0 . n%+=1..... |
00002110  6a 25 3d 30 0d 0c 12 07  3d 6e 25 0d 0c 1c 05 3a  |j%=0....=n%....:|
00002120  0d 0c 26 35 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..&5. .Wimp_Menu|
00002130  42 61 63 6b 47 72 6f 75  6e 64 43 6f 6c 6f 75 72  |BackGroundColour|
00002140  28 6d 65 6e 75 25 2c 69  74 65 6d 25 2c 63 6f 6c  |(menu%,item%,col|
00002150  6f 75 72 25 29 0d 0c 30  0e ea 20 66 6f 72 65 25  |our%)..0.. fore%|
00002160  2c 69 25 0d 0c 3a 26 66  6f 72 65 25 3d 28 6d 65  |,i%..:&fore%=(me|
00002170  6e 75 25 3f 28 33 39 2b  28 69 74 65 6d 25 2d 31  |nu%?(39+(item%-1|
00002180  29 2a 32 34 29 29 83 31  36 0d 0c 44 28 69 25 3d  |)*24)).16..D(i%=|
00002190  28 28 6d 65 6e 75 25 3f  28 33 39 2b 28 69 74 65  |((menu%?(39+(ite|
000021a0  6d 25 2d 31 29 2a 32 34  29 29 81 31 36 29 83 31  |m%-1)*24)).16).1|
000021b0  36 0d 0c 4e 2f 6d 65 6e  75 25 3f 28 33 39 2b 28  |6..N/menu%?(39+(|
000021c0  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 66 6f 72  |item%-1)*24)=for|
000021d0  65 25 2b 31 36 2a 63 6f  6c 6f 75 72 25 2b 69 25  |e%+16*colour%+i%|
000021e0  0d 0c 58 05 e1 0d 0c 62  05 3a 0d 0c 6c 23 dd 20  |..X....b.:..l#. |
000021f0  f2 57 69 6d 70 5f 4d 65  6e 75 43 65 6e 74 72 65  |.Wimp_MenuCentre|
00002200  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 0c 76  |(menu%,item%)..v|
00002210  3a 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |:menu%!(36+(item|
00002220  25 2d 31 29 2a 32 34 29  3d 6d 65 6e 75 25 21 28  |%-1)*24)=menu%!(|
00002230  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
00002240  84 28 31 3c 3c 33 29 0d  0c 80 05 e1 0d 0c 8a 05  |.(1<<3).........|
00002250  3a 0d 0c 94 15 dd 20 f2  57 69 6d 70 5f 4d 65 6e  |:..... .Wimp_Men|
00002260  75 43 6c 6f 73 65 0d 0c  9e 1b c8 99 20 22 57 69  |uClose...... "Wi|
00002270  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2d  |mp_CreateMenu",-|
00002280  31 0d 0c a8 05 e1 0d 0c  b2 05 3a 0d 0c bc 24 dd  |1.........:...$.|
00002290  20 f2 57 69 6d 70 5f 4d  65 6e 75 44 69 73 61 62  | .Wimp_MenuDisab|
000022a0  6c 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |le(menu%,item%).|
000022b0  0c c6 3b 6d 65 6e 75 25  21 28 33 36 2b 28 69 74  |..;menu%!(36+(it|
000022c0  65 6d 25 2d 31 29 2a 32  34 29 3d 6d 65 6e 75 25  |em%-1)*24)=menu%|
000022d0  21 28 33 36 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(36+(item%-1)*2|
000022e0  34 29 84 28 31 3c 3c 32  32 29 0d 0c d0 05 e1 0d  |4).(1<<22)......|
000022f0  0c da 05 3a 0d 0c e4 27  dd 20 f2 57 69 6d 70 5f  |...:...'. .Wimp_|
00002300  4d 65 6e 75 44 6f 74 74  65 64 4c 69 6e 65 28 6d  |MenuDottedLine(m|
00002310  65 6e 75 25 2c 69 74 65  6d 25 29 0d 0c ee 37 6d  |enu%,item%)...7m|
00002320  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00002330  31 29 2a 32 34 29 3d 28  6d 65 6e 75 25 21 28 32  |1)*24)=(menu%!(2|
00002340  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |8+(item%-1)*24))|
00002350  84 32 0d 0c f8 05 e1 0d  0d 02 05 3a 0d 0d 0c 23  |.2.........:...#|
00002360  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 45 6e 61 62  |. .Wimp_MenuEnab|
00002370  6c 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |le(menu%,item%).|
00002380  0d 16 22 f2 57 69 6d 70  5f 4d 65 6e 75 44 69 73  |..".Wimp_MenuDis|
00002390  61 62 6c 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |able(menu%,item%|
000023a0  29 0d 0d 20 3b 6d 65 6e  75 25 21 28 33 36 2b 28  |).. ;menu%!(36+(|
000023b0  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 6d 65 6e  |item%-1)*24)=men|
000023c0  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
000023d0  2a 32 34 29 82 28 31 3c  3c 32 32 29 0d 0d 2a 05  |*24).(1<<22)..*.|
000023e0  e1 0d 0d 34 05 3a 0d 0d  3e 35 dd 20 f2 57 69 6d  |...4.:..>5. .Wim|
000023f0  70 5f 4d 65 6e 75 46 6f  72 65 67 72 6f 75 6e 64  |p_MenuForeground|
00002400  43 6f 6c 6f 75 72 28 6d  65 6e 75 25 2c 69 74 65  |Colour(menu%,ite|
00002410  6d 25 2c 63 6f 6c 6f 75  72 25 29 0d 0d 48 45 6d  |m%,colour%)..HEm|
00002420  65 6e 75 25 3f 28 33 39  2b 28 69 74 65 6d 25 2d  |enu%?(39+(item%-|
00002430  31 29 2a 32 34 29 3d 63  6f 6c 6f 75 72 25 2b 31  |1)*24)=colour%+1|
00002440  36 2a 28 28 6d 65 6e 75  25 3f 28 33 39 2b 28 69  |6*((menu%?(39+(i|
00002450  74 65 6d 25 2d 31 29 2a  32 34 29 29 81 31 36 29  |tem%-1)*24)).16)|
00002460  0d 0d 52 05 e1 0d 0d 5c  05 3a 0d 0d 66 29 dd 20  |..R....\.:..f). |
00002470  f2 57 69 6d 70 5f 4d 65  6e 75 47 6c 75 65 28 6d  |.Wimp_MenuGlue(m|
00002480  65 6e 75 31 25 2c 69 74  65 6d 25 2c 6d 65 6e 75  |enu1%,item%,menu|
00002490  32 25 29 0d 0d 70 1e 6d  65 6e 75 31 25 21 28 38  |2%)..p.menu1%!(8|
000024a0  2b 69 74 65 6d 25 2a 32  34 29 3d 6d 65 6e 75 32  |+item%*24)=menu2|
000024b0  25 0d 0d 7a 05 e1 0d 0d  84 05 3a 0d 0d 8e 27 dd  |%..z......:...'.|
000024c0  20 f2 57 69 6d 70 5f 4d  65 6e 75 49 74 65 6d 28  | .Wimp_MenuItem(|
000024d0  6d 65 6e 75 25 2c 69 74  65 6d 25 2c 69 74 65 6d  |menu%,item%,item|
000024e0  24 29 0d 0d 98 2c 24 28  6d 65 6e 75 25 2b 28 34  |$)...,$(menu%+(4|
000024f0  30 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |0+(item%-1)*24))|
00002500  3d c0 69 74 65 6d 24 2c  31 32 29 2b bd 30 0d 0d  |=.item$,12)+.0..|
00002510  a2 05 e1 0d 0d ac 05 3a  0d 0d b6 24 dd 20 f2 57  |.......:...$. .W|
00002520  69 6d 70 5f 4d 65 6e 75  4d 65 73 73 61 67 65 28  |imp_MenuMessage(|
00002530  6d 65 6e 75 25 2c 69 74  65 6d 25 29 0d 0d c0 3c  |menu%,item%)...<|
00002540  6d 65 6e 75 25 21 28 32  38 2b 28 69 74 65 6d 25  |menu%!(28+(item%|
00002550  2d 31 29 2a 32 34 29 3d  28 6d 65 6e 75 25 21 28  |-1)*24)=(menu%!(|
00002560  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
00002570  29 82 28 31 3c 3c 33 29  0d 0d ca 05 e1 0d 0d d4  |).(1<<3)........|
00002580  05 3a 0d 0d de 22 dd 20  f2 57 69 6d 70 5f 4d 65  |.:...". .Wimp_Me|
00002590  6e 75 50 6f 70 55 70 28  4d 65 6e 75 25 2c 78 25  |nuPopUp(Menu%,x%|
000025a0  2c 79 25 29 0d 0d e8 0f  6d 65 6e 75 25 3d 4d 65  |,y%)....menu%=Me|
000025b0  6e 75 25 0d 0d f2 2b c8  99 20 22 57 69 6d 70 5f  |nu%...+.. "Wimp_|
000025c0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 6d 65 6e  |CreateMenu",,men|
000025d0  75 25 2c 78 25 2d 36 34  2c 79 25 2b 32 30 0d 0d  |u%,x%-64,y%+20..|
000025e0  fc 05 e1 0d 0e 06 05 3a  0d 0e 10 1f dd 20 f2 57  |.......:..... .W|
000025f0  69 6d 70 5f 4d 65 6e 75  50 6f 70 55 70 42 61 72  |imp_MenuPopUpBar|
00002600  28 78 25 2c 79 25 29 0d  0e 1a 0f ea 20 6e 25 20  |(x%,y%)..... n% |
00002610  3a 20 6e 25 3d 30 0d 0e  24 2b c8 95 20 28 28 42  |: n%=0..$+.. ((B|
00002620  61 72 5f 4d 65 6e 75 25  21 28 32 38 2b 6e 25 2a  |ar_Menu%!(28+n%*|
00002630  32 34 29 29 80 25 31 30  30 30 30 30 30 30 29 3d  |24)).%10000000)=|
00002640  30 0d 0e 2e 09 6e 25 2b  3d 31 0d 0e 38 05 ce 0d  |0....n%+=1..8...|
00002650  0e 42 32 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |.B2.. "Wimp_Crea|
00002660  74 65 4d 65 6e 75 22 2c  2c 42 61 72 5f 4d 65 6e  |teMenu",,Bar_Men|
00002670  75 25 2c 78 25 2d 36 34  2c 39 36 2b 6e 25 2a 34  |u%,x%-64,96+n%*4|
00002680  34 0d 0e 4c 13 6d 65 6e  75 25 3d 42 61 72 5f 4d  |4..L.menu%=Bar_M|
00002690  65 6e 75 25 0d 0e 56 05  e1 0d 0e 60 05 3a 0d 0e  |enu%..V....`.:..|
000026a0  6a 21 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 54 69  |j!. .Wimp_MenuTi|
000026b0  63 6b 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |ck(menu%,item%).|
000026c0  0e 74 37 6d 65 6e 75 25  21 28 32 38 2b 28 69 74  |.t7menu%!(28+(it|
000026d0  65 6d 25 2d 31 29 2a 32  34 29 3d 28 6d 65 6e 75  |em%-1)*24)=(menu|
000026e0  25 21 28 32 38 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(28+(item%-1)*|
000026f0  32 34 29 29 82 31 0d 0e  7e 05 e1 0d 0e 88 05 3a  |24)).1..~......:|
00002700  0d 0e 92 23 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |...#. .Wimp_Menu|
00002710  54 69 74 6c 65 28 6d 65  6e 75 25 2c 74 69 74 6c  |Title(menu%,titl|
00002720  65 24 29 0d 0e 9c 19 24  6d 65 6e 75 25 3d c0 74  |e$)....$menu%=.t|
00002730  69 74 6c 65 24 2c 31 32  29 2b bd 30 0d 0e a6 05  |itle$,12)+.0....|
00002740  e1 0d 0e b0 05 3a 0d 0e  ba 3d dd 20 f2 57 69 6d  |.....:...=. .Wim|
00002750  70 5f 4d 65 6e 75 57 72  69 74 65 28 6d 65 6e 75  |p_MenuWrite(menu|
00002760  25 2c 69 74 65 6d 25 2c  62 75 66 66 65 72 25 2c  |%,item%,buffer%,|
00002770  76 61 6c 25 2c 42 75 66  66 65 72 4c 65 6e 67 74  |val%,BufferLengt|
00002780  68 25 29 0d 0e c4 37 6d  65 6e 75 25 21 28 32 38  |h%)...7menu%!(28|
00002790  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 28  |+(item%-1)*24)=(|
000027a0  6d 65 6e 75 25 21 28 32  38 2b 28 69 74 65 6d 25  |menu%!(28+(item%|
000027b0  2d 31 29 2a 32 34 29 29  84 34 0d 0e ce 38 6d 65  |-1)*24)).4...8me|
000027c0  6e 75 25 21 28 33 36 2b  28 69 74 65 6d 25 2d 31  |nu%!(36+(item%-1|
000027d0  29 2a 32 34 29 3d 6d 65  6e 75 25 21 28 33 36 2b  |)*24)=menu%!(36+|
000027e0  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 84 26 31  |(item%-1)*24).&1|
000027f0  30 30 0d 0e d8 23 6d 65  6e 75 25 21 28 34 30 2b  |00...#menu%!(40+|
00002800  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 62 75  |(item%-1)*24)=bu|
00002810  66 66 65 72 25 0d 0e e2  20 6d 65 6e 75 25 21 28  |ffer%... menu%!(|
00002820  34 34 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |44+(item%-1)*24)|
00002830  3d 76 61 6c 25 0d 0e ec  29 6d 65 6e 75 25 21 28  |=val%...)menu%!(|
00002840  34 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |48+(item%-1)*24)|
00002850  3d 42 75 66 66 65 72 4c  65 6e 67 74 68 25 0d 0e  |=BufferLength%..|
00002860  f6 05 e1 0d 0f 00 06 f4  7c 0d 0f 0a 06 f4 7c 0d  |........|.....|.|
00002870  0f 14 06 f4 7c 0d 0f 1e  31 f4 7c 20 20 20 20 20  |....|...1.|     |
00002880  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |             ---|
00002890  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000028a0  2d 2d 2d 2d 2d 2d 0d 0f  28 2a f4 7c 20 20 20 20  |------..(*.|    |
000028b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000028c0  20 20 20 20 20 20 34 2e  a0 53 70 72 69 74 65 73  |      4..Sprites|
000028d0  0d 0f 32 31 f4 7c 20 20  20 20 20 20 20 20 20 20  |..21.|          |
000028e0  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
000028f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002900  2d 0d 0f 3c 06 f4 7c 0d  0f 46 06 f4 7c 0d 0f 50  |-..<..|..F..|..P|
00002910  3a f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.|             |
00002920  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00002930  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002940  2d 2d 2d 2d 2d 2d 2d 0d  0f 5a 06 f4 7c 0d 0f 64  |-------..Z..|..d|
00002950  28 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |(.|             |
00002960  20 20 20 20 20 20 20 20  20 50 72 6f 63 65 64 75  |         Procedu|
00002970  72 65 73 20 3a 0d 0f 6e  06 f4 7c 0d 0f 78 06 f4  |res :..n..|..x..|
00002980  7c 0d 0f 82 2c f4 7c 20  20 20 20 20 20 20 20 20  ||...,.|         |
00002990  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
000029a0  70 5f 53 70 72 69 74 65  73 4c 6f 61 64 0d 0f 8c  |p_SpritesLoad...|
000029b0  3a f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |:.|             |
000029c0  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 53 70  |     PROCWimp_Sp|
000029d0  72 69 74 65 73 50 61 74  68 4c 6f 61 64 28 70 61  |ritesPathLoad(pa|
000029e0  74 68 6e 61 6d 65 24 0d  0f 96 06 f4 7c 0d 0f a0  |thname$.....|...|
000029f0  06 f4 7c 0d 0f aa 06 f4  7c 0d 0f b4 3a f4 7c 20  |..|.....|...:.| |
00002a00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00002a10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002a30  2d 2d 2d 0d 0f be 06 f4  7c 0d 0f c8 05 3a 0d 0f  |---.....|....:..|
00002a40  d2 17 dd 20 f2 57 69 6d  70 5f 53 70 72 69 74 65  |... .Wimp_Sprite|
00002a50  73 4c 6f 61 64 0d 0f dc  2f f2 57 69 6d 70 5f 53  |sLoad.../.Wimp_S|
00002a60  70 72 69 74 65 73 50 61  74 68 4c 6f 61 64 28 22  |pritesPathLoad("|
00002a70  3c 4f 62 65 79 24 44 69  72 3e 2e 53 70 72 69 74  |<Obey$Dir>.Sprit|
00002a80  65 73 22 29 0d 0f e6 05  e1 0d 0f f0 05 3a 0d 0f  |es").........:..|
00002a90  fa 26 dd 20 f2 57 69 6d  70 5f 53 70 72 69 74 65  |.&. .Wimp_Sprite|
00002aa0  73 50 61 74 68 4c 6f 61  64 28 70 61 74 68 6e 61  |sPathLoad(pathna|
00002ab0  6d 65 24 29 0d 10 04 0a  ea 53 25 2c 54 25 0d 10  |me$).....S%,T%..|
00002ac0  0e 2c 53 25 3d 8e 22 3c  4f 62 65 79 24 44 69 72  |.,S%=."<Obey$Dir|
00002ad0  3e 2e 53 70 72 69 74 65  73 22 3a 54 25 3d a2 23  |>.Sprites":T%=.#|
00002ae0  53 25 2b 31 36 3a d9 23  53 25 0d 10 18 19 de 73  |S%+16:.#S%.....s|
00002af0  70 72 69 74 65 73 25 54  25 2c 73 70 6e 61 6d 65  |prites%T%,spname|
00002b00  25 31 32 0d 10 22 1d 21  73 70 72 69 74 65 73 25  |%12..".!sprites%|
00002b10  3d 54 25 3a 73 70 72 69  74 65 73 25 21 38 3d 30  |=T%:sprites%!8=0|
00002b20  0d 10 2c 21 c8 99 22 4f  53 5f 53 70 72 69 74 65  |..,!.."OS_Sprite|
00002b30  4f 70 22 2c 26 31 30 39  2c 73 70 72 69 74 65 73  |Op",&109,sprites|
00002b40  25 0d 10 36 2b c8 99 22  4f 53 5f 53 70 72 69 74  |%..6+.."OS_Sprit|
00002b50  65 4f 70 22 2c 26 31 30  41 2c 73 70 72 69 74 65  |eOp",&10A,sprite|
00002b60  73 25 2c 70 61 74 68 6e  61 6d 65 24 0d 10 40 05  |s%,pathname$..@.|
00002b70  e1 0d 10 4a 05 3a 0d 10  54 06 f4 7c 0d 10 5e 06  |...J.:..T..|..^.|
00002b80  f4 7c 0d 10 68 06 f4 7c  0d 10 72 31 f4 7c 20 20  |.|..h..|..r1.|  |
00002b90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002bb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 10 7c 28 f4 7c 20  |---------..|(.| |
00002bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002bd0  20 20 20 20 20 20 20 20  20 35 2e a0 46 69 6c 65  |         5..File|
00002be0  73 0d 10 86 31 f4 7c 20  20 20 20 20 20 20 20 20  |s...1.|         |
00002bf0  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
00002c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002c10  2d 2d 0d 10 90 06 f4 7c  0d 10 9a 06 f4 7c 0d 10  |--.....|.....|..|
00002c20  a4 35 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.5.|            |
00002c30  20 20 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    ------------|
00002c40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002c50  2d 2d 2d 0d 10 ae 06 f4  7c 0d 10 b8 28 f4 7c 20  |---.....|...(.| |
00002c60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002c70  20 20 20 20 20 50 72 6f  63 65 64 75 72 65 73 20  |     Procedures |
00002c80  3a 0d 10 c2 06 f4 7c 0d  10 cc 06 f4 7c 0d 10 d6  |:.....|.....|...|
00002c90  2e f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |..|             |
00002ca0  20 20 20 20 20 46 4e 57  69 6d 70 5f 46 69 6c 65  |     FNWimp_File|
00002cb0  54 79 70 65 28 74 79 70  65 25 29 0d 10 e0 2e f4  |Type(type%).....|
00002cc0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00002cd0  20 20 20 46 4e 57 69 6d  70 5f 47 65 74 46 69 6c  |   FNWimp_GetFil|
00002ce0  65 50 61 74 68 4e 61 6d  65 0d 10 ea 32 f4 7c 20  |ePathName...2.| |
00002cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002d00  20 46 4e 57 69 6d 70 5f  46 69 6c 65 4c 6f 61 64  | FNWimp_FileLoad|
00002d10  28 70 61 74 68 6e 61 6d  65 24 29 0d 10 f4 39 f4  |(pathname$)...9.|
00002d20  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00002d30  20 20 20 46 4e 57 69 6d  70 5f 47 65 74 53 74 72  |   FNWimp_GetStr|
00002d40  69 6e 67 41 74 41 64 64  72 65 73 73 28 61 72 72  |ingAtAddress(arr|
00002d50  61 79 25 29 0d 10 fe 36  f4 7c 20 20 20 20 20 20  |ay%)...6.|      |
00002d60  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00002d70  6d 70 5f 47 65 74 46 69  6c 65 46 72 6f 6d 50 61  |mp_GetFileFromPa|
00002d80  74 68 6e 61 6d 65 28 66  24 29 0d 11 08 06 f4 7c  |thname(f$).....||
00002d90  0d 11 12 06 f4 7c 0d 11  1c 35 f4 7c 20 20 20 20  |.....|...5.|    |
00002da0  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00002db0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002dc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 11 26 06 f4  |-----------..&..|
00002dd0  7c 0d 11 30 06 f4 7c 0d  11 3a 06 f4 7c 0d 11 44  ||..0..|..:..|..D|
00002de0  05 3a 0d 11 4e 1b dd 20  a4 57 69 6d 70 5f 46 69  |.:..N.. .Wimp_Fi|
00002df0  6c 65 54 79 70 65 28 74  79 70 65 25 29 0d 11 58  |leType(type%)..X|
00002e00  0c c8 8e 74 79 70 65 25  ca 0d 11 62 11 c9 26 46  |...type%...b..&F|
00002e10  46 46 3a 3d 22 54 65 78  74 22 0d 11 6c 11 c9 26  |FF:="Text"..l..&|
00002e20  46 46 44 3a 3d 22 44 61  74 61 22 0d 11 76 12 c9  |FFD:="Data"..v..|
00002e30  26 46 46 42 3a 3d 22 42  61 73 69 63 22 0d 11 80  |&FFB:="Basic"...|
00002e40  13 c9 26 46 46 39 3a 3d  22 53 70 72 69 74 65 22  |..&FF9:="Sprite"|
00002e50  0d 11 8a 14 c9 26 46 45  44 3a 3d 22 50 61 6c 65  |.....&FED:="Pale|
00002e60  74 74 65 22 0d 11 94 15  c9 26 46 45 43 3a 3d 22  |tte".....&FEC:="|
00002e70  54 65 6d 70 6c 61 74 65  22 0d 11 9e 11 c9 26 41  |Template".....&A|
00002e80  46 46 3a 3d 22 44 72 61  77 22 0d 11 a8 14 c9 26  |FF:="Draw".....&|
00002e90  31 30 30 30 3a 3d 22 46  6f 6c 64 65 72 22 0d 11  |1000:="Folder"..|
00002ea0  b2 19 c9 26 32 30 30 30  3a 3d 22 41 70 70 6c 69  |...&2000:="Appli|
00002eb0  63 61 74 69 6f 6e 22 0d  11 bc 0f 7f 3d c3 7e 28  |cation".....=.~(|
00002ec0  74 79 70 65 25 29 0d 11  c6 05 cb 0d 11 d0 05 3a  |type%).........:|
00002ed0  0d 11 da 1b dd 20 a4 57  69 6d 70 5f 47 65 74 46  |..... .Wimp_GetF|
00002ee0  69 6c 65 50 61 74 68 4e  61 6d 65 0d 11 e4 27 3d  |ilePathName...'=|
00002ef0  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00002f00  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 2b 34  |tAddress(wimp%+4|
00002f10  34 29 0d 11 ee 05 3a 0d  11 f8 1f dd 20 a4 57 69  |4)....:..... .Wi|
00002f20  6d 70 5f 46 69 6c 65 4c  6f 61 64 28 70 61 74 68  |mp_FileLoad(path|
00002f30  6e 61 6d 65 24 29 0d 12  02 10 ea 53 25 2c 54 25  |name$).....S%,T%|
00002f40  2c 66 69 6c 65 25 0d 12  0c 11 53 25 3d 8e 70 61  |,file%....S%=.pa|
00002f50  74 68 6e 61 6d 65 24 0d  12 16 0e 54 25 3d a2 23  |thname$....T%=.#|
00002f60  53 25 2b 31 36 0d 12 20  08 d9 23 53 25 0d 12 2a  |S%+16.. ..#S%..*|
00002f70  0c de 66 69 6c 65 25 54  25 0d 12 34 22 ff 28 22  |..file%T%..4".("|
00002f80  4c 4f 41 44 22 2b 70 61  74 68 6e 61 6d 65 24 2b  |LOAD"+pathname$+|
00002f90  22 22 2b c3 7e 66 69 6c  65 25 29 0d 12 3e 0a 3d  |""+.~file%)..>.=|
00002fa0  66 69 6c 65 25 0d 12 48  05 3b 0d 12 52 26 dd 20  |file%..H.;..R&. |
00002fb0  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00002fc0  74 41 64 64 72 65 73 73  28 61 72 72 61 79 25 29  |tAddress(array%)|
00002fd0  0d 12 5c 0d ea 73 24 3a  73 24 3d 22 22 0d 12 66  |..\..s$:s$=""..f|
00002fe0  3c c8 95 28 3f 61 72 72  61 79 25 3c 3e 31 33 29  |<..(?array%<>13)|
00002ff0  80 28 3f 61 72 72 61 79  25 3c 3e 30 29 3a 73 24  |.(?array%<>0):s$|
00003000  2b 3d bd 28 3f 61 72 72  61 79 25 29 3a 61 72 72  |+=.(?array%):arr|
00003010  61 79 25 2b 3d 31 3a ce  3a 0d 12 70 07 3d 73 24  |ay%+=1:.:..p.=s$|
00003020  0d 12 7a 05 3a 0d 12 84  23 dd 20 a4 57 69 6d 70  |..z.:...#. .Wimp|
00003030  5f 47 65 74 46 69 6c 65  46 72 6f 6d 50 61 74 68  |_GetFileFromPath|
00003040  6e 61 6d 65 28 66 24 29  0d 12 8e 10 e7 a7 66 24  |name(f$)......f$|
00003050  2c 22 2e 22 29 3d 30 8c  0d 12 98 07 3d 66 24 0d  |,".")=0.....=f$.|
00003060  12 a2 05 cc 0d 12 ac 35  3d a4 57 69 6d 70 5f 47  |.......5=.Wimp_G|
00003070  65 74 53 74 72 69 6e 67  46 72 6f 6d 50 61 74 68  |etStringFromPath|
00003080  6e 61 6d 65 28 c2 66 24  2c a9 28 66 24 29 2d a7  |name(.f$,.(f$)-.|
00003090  66 24 2c 22 2e 22 29 29  29 0d 12 b6 05 cd 0d 12  |f$,"."))).......|
000030a0  c0 05 3a 0d 12 ca 18 dd  20 f2 57 69 6d 70 5f 57  |..:..... .Wimp_W|
000030b0  61 69 74 46 6f 72 45 76  65 6e 74 0d 12 d4 0f 66  |aitForEvent....f|
000030c0  69 6e 69 73 68 65 64 25  3d a3 0d 12 de 19 6d 61  |inished%=.....ma|
000030d0  73 6b 25 3d 25 31 31 31  30 30 30 30 31 31 30 30  |sk%=%11100001100|
000030e0  31 3a f5 0d 12 e8 25 c8  99 22 57 69 6d 70 5f 50  |1:....%.."Wimp_P|
000030f0  6f 6c 6c 22 2c 6d 61 73  6b 25 2c 62 6c 6f 63 6b  |oll",mask%,block|
00003100  25 b8 65 76 65 6e 74 25  0d 12 f2 21 c8 8e a4 57  |%.event%...!...W|
00003110  69 6d 70 5f 45 76 65 6e  74 28 65 76 65 6e 74 25  |imp_Event(event%|
00003120  2c 62 6c 6f 63 6b 25 29  ca 0d 12 fc 17 c9 2d 31  |,block%)......-1|
00003130  3a f2 45 76 65 6e 74 5f  53 61 76 65 46 69 6c 65  |:.Event_SaveFile|
00003140  0d 13 06 07 c9 30 3a 0d  13 10 2a c9 31 3a c8 99  |.....0:...*.1:..|
00003150  22 57 69 6d 70 5f 52 65  64 72 61 77 57 69 6e 64  |"Wimp_RedrawWind|
00003160  6f 77 22 2c 2c 62 6c 6f  63 6b 25 b8 6d 6f 72 65  |ow",,block%.more|
00003170  25 0d 13 1a 29 78 5f 6f  72 69 67 69 6e 25 3d a4  |%...)x_origin%=.|
00003180  57 69 6d 70 5f 57 69 6e  64 6f 77 58 4f 72 69 67  |Wimp_WindowXOrig|
00003190  69 6e 28 62 6c 6f 63 6b  25 29 0d 13 24 29 79 5f  |in(block%)..$)y_|
000031a0  6f 72 69 67 69 6e 25 3d  a4 57 69 6d 70 5f 57 69  |origin%=.Wimp_Wi|
000031b0  6e 64 6f 77 59 4f 72 69  67 69 6e 28 62 6c 6f 63  |ndowYOrigin(bloc|
000031c0  6b 25 29 0d 13 2e 0b c8  95 6d 6f 72 65 25 0d 13  |k%)......more%..|
000031d0  38 21 c8 99 22 57 69 6d  70 5f 42 6f 72 64 65 72  |8!.."Wimp_Border|
000031e0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
000031f0  13 42 1f f2 45 76 65 6e  74 5f 44 72 61 77 57 69  |.B..Event_DrawWi|
00003200  6e 64 6f 77 28 62 6c 6f  63 6b 25 21 30 29 0d 13  |ndow(block%!0)..|
00003210  4c 27 c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |L'.."Wimp_GetRec|
00003220  74 61 6e 67 6c 65 22 2c  2c 62 6c 6f 63 6b 25 b8  |tangle",,block%.|
00003230  6d 6f 72 65 25 0d 13 56  05 ce 0d 13 60 16 c9 32  |more%..V....`..2|
00003240  3a 77 69 6e 64 6f 77 25  3d 21 62 6c 6f 63 6b 25  |:window%=!block%|
00003250  0d 13 6a 1d f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |..j..Wimp_Window|
00003260  4f 70 65 6e 28 77 69 6e  64 6f 77 25 29 0d 13 74  |Open(window%)..t|
00003270  16 c9 33 3a 77 69 6e 64  6f 77 25 3d 21 62 6c 6f  |..3:window%=!blo|
00003280  63 6b 25 0d 13 7e 1e f2  57 69 6d 70 5f 57 69 6e  |ck%..~..Wimp_Win|
00003290  64 6f 77 43 6c 6f 73 65  28 77 69 6e 64 6f 77 25  |dowClose(window%|
000032a0  29 0d 13 88 07 c9 34 3a  0d 13 92 07 c9 35 3a 0d  |).....4:.....5:.|
000032b0  13 9c 39 c9 36 3a 62 75  74 74 6f 6e 25 3d 62 6c  |..9.6:button%=bl|
000032c0  6f 63 6b 25 21 38 3a 77  69 6e 64 6f 77 25 3d 62  |ock%!8:window%=b|
000032d0  6c 6f 63 6b 25 21 31 32  3a 69 63 6f 6e 25 3d 62  |lock%!12:icon%=b|
000032e0  6c 6f 63 6b 25 21 31 36  0d 13 a6 1b 78 25 3d 62  |lock%!16....x%=b|
000032f0  6c 6f 63 6b 25 21 30 3a  79 25 3d 62 6c 6f 63 6b  |lock%!0:y%=block|
00003300  25 21 34 0d 13 b0 0e c8  8e 62 75 74 74 6f 6e 25  |%!4......button%|
00003310  ca 0d 13 ba 07 c9 32 3a  0d 13 c4 23 f2 45 76 65  |......2:...#.Eve|
00003320  6e 74 5f 4d 65 6e 75 50  6f 70 55 70 28 77 69 6e  |nt_MenuPopUp(win|
00003330  64 6f 77 25 2c 78 25 2c  79 25 29 0d 13 ce 06 7f  |dow%,x%,y%).....|
00003340  3a 0d 13 d8 1f c8 99 22  57 69 6d 70 5f 42 6f 72  |:......"Wimp_Bor|
00003350  64 65 72 49 63 6f 6e 22  2c 2c 62 6c 6f 63 6b 25  |derIcon",,block%|
00003360  0d 13 e2 32 f2 45 76 65  6e 74 5f 4d 6f 75 73 65  |...2.Event_Mouse|
00003370  43 6c 69 63 6b 28 62 75  74 74 6f 6e 25 2c 77 69  |Click(button%,wi|
00003380  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 78 25 2c 79  |ndow%,icon%,x%,y|
00003390  25 29 0d 13 ec 30 62 6c  6f 63 6b 25 21 38 3d 30  |%)...0block%!8=0|
000033a0  3a 62 6c 6f 63 6b 25 21  31 32 3d 77 69 6e 64 6f  |:block%!12=windo|
000033b0  77 25 3a 62 6c 6f 63 6b  25 21 31 36 3d 69 63 6f  |w%:block%!16=ico|
000033c0  6e 25 0d 13 f6 1f c8 99  22 57 69 6d 70 5f 42 6f  |n%......"Wimp_Bo|
000033d0  72 64 65 72 49 63 6f 6e  22 2c 2c 62 6c 6f 63 6b  |rderIcon",,block|
000033e0  25 0d 14 00 05 cb 0d 14  0a 38 c9 37 3a c9 38 3a  |%........8.7:.8:|
000033f0  77 69 6e 64 6f 77 25 3d  62 6c 6f 63 6b 25 21 30  |window%=block%!0|
00003400  3a 69 63 6f 6e 25 3d 62  6c 6f 63 6b 25 21 34 3a  |:icon%=block%!4:|
00003410  6b 65 79 25 3d 62 6c 6f  63 6b 25 21 32 34 0d 14  |key%=block%!24..|
00003420  14 27 f2 45 76 65 6e 74  5f 4b 65 79 50 72 65 73  |.'.Event_KeyPres|
00003430  73 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |s(window%,icon%,|
00003440  6b 65 79 25 29 0d 14 1e  1f c9 39 3a f2 45 76 65  |key%).....9:.Eve|
00003450  6e 74 5f 4d 65 6e 75 43  68 6f 69 63 65 28 6d 65  |nt_MenuChoice(me|
00003460  6e 75 25 29 0d 14 28 08  c9 31 30 3a 0d 14 32 08  |nu%)..(..10:..2.|
00003470  c9 31 31 3a 0d 14 3c 08  c9 31 32 3a 0d 14 46 04  |.11:..<..12:..F.|
00003480  0d 14 50 04 0d 14 5a 0b  c9 31 37 2c 31 38 3a 0d  |..P...Z..17,18:.|
00003490  14 64 16 6d 65 73 73 61  67 65 25 3d 62 6c 6f 63  |.d.message%=bloc|
000034a0  6b 25 21 31 36 0d 14 6e  0f c8 8e 6d 65 73 73 61  |k%!16..n...messa|
000034b0  67 65 25 ca 0d 14 78 1e  c9 6d 65 73 73 61 67 65  |ge%...x..message|
000034c0  5f 71 75 69 74 25 3a 66  69 6e 69 73 68 65 64 25  |_quit%:finished%|
000034d0  3d b9 0d 14 82 24 c9 6d  65 73 73 61 67 65 5f 6c  |=....$.message_l|
000034e0  6f 61 64 25 3a f2 45 76  65 6e 74 5f 4c 6f 61 64  |oad%:.Event_Load|
000034f0  46 69 6c 65 28 29 0d 14  8c 05 cb 0d 14 96 08 c9  |File()..........|
00003500  31 39 3a 0d 14 a0 04 0d  14 aa 34 f2 57 69 6d 70  |19:.......4.Wimp|
00003510  5f 41 6c 65 72 74 28 54  61 73 6b 4e 61 6d 65 24  |_Alert(TaskName$|
00003520  2c f6 24 2b 22 61 74 6c  69 6e 65 22 2b c3 28 45  |,.$+"atline"+.(E|
00003530  52 4c 44 49 56 31 30 29  2c 32 29 0d 14 b4 05 cb  |RLDIV10),2).....|
00003540  0d 14 be 0e fd 66 69 6e  69 73 68 65 64 25 0d 14  |.....finished%..|
00003550  c8 05 e1 0d 14 d2 05 3a  0d 14 dc 1f dd a4 57 69  |.......:......Wi|
00003560  6d 70 5f 45 76 65 6e 74  28 65 76 65 6e 74 25 2c  |mp_Event(event%,|
00003570  62 6c 6f 63 6b 25 29 0d  14 e6 0d c8 8e 65 76 65  |block%)......eve|
00003580  6e 74 25 ca 0d 14 f0 06  c9 30 0d 14 fa 05 cb 0d  |nt%......0......|
00003590  15 04 0b 3d 65 76 65 6e  74 25 0d 15 0e 10 dd f2  |...=event%......|
000035a0  53 61 76 65 5f 45 76 65  6e 74 0d 15 18 0f c8 8e  |Save_Event......|
000035b0  62 6c 6f 63 6b 25 21 30  ca 0d 15 22 20 c9 53 61  |block%!0..." .Sa|
000035c0  76 65 5f 57 69 6e 64 6f  77 25 3a f2 57 69 6d 70  |ve_Window%:.Wimp|
000035d0  5f 53 61 76 65 46 69 6c  65 0d 15 2c 06 7f 3a 0d  |_SaveFile..,..:.|
000035e0  15 36 10 c8 8e 62 6c 6f  63 6b 25 21 31 36 ca 0d  |.6...block%!16..|
000035f0  15 40 07 c9 30 3a 0d 15  4a 2d e7 62 6c 6f 63 6b  |.@..0:..J-.block|
00003600  25 21 38 80 26 35 30 8c  f2 57 69 6d 70 5f 44 72  |%!8.&50..Wimp_Dr|
00003610  61 67 42 6f 78 28 53 61  76 65 5f 57 69 6e 64 6f  |agBox(Save_Windo|
00003620  77 25 29 0d 15 54 07 c9  32 3a 0d 15 5e 1e e7 62  |w%)..T..2:..^..b|
00003630  6c 6f 63 6b 25 21 38 80  35 8c f2 57 69 6d 70 5f  |lock%!8.5..Wimp_|
00003640  53 61 76 65 46 69 6c 65  0d 15 68 05 cb 0d 15 72  |SaveFile..h....r|
00003650  05 cb 0d 15 7c 05 e1 0d  15 86 13 dd f2 57 69 6d  |....|........Wim|
00003660  70 5f 53 61 76 65 46 69  6c 65 0d 15 90 07 ea 78  |p_SaveFile.....x|
00003670  24 0d 15 9a 24 78 24 3d  a4 49 63 6f 6e 5f 47 65  |$...$x$=.Icon_Ge|
00003680  74 54 65 78 74 28 53 61  76 65 5f 57 69 6e 64 6f  |tText(Save_Windo|
00003690  77 25 2c 31 29 0d 15 a4  0f c8 8e a7 78 24 2c 22  |w%,1).......x$,"|
000036a0  2e 22 29 ca 0d 15 ae 07  c9 30 3a 0d 15 b8 3b f2  |.")......0:...;.|
000036b0  41 6c 65 72 74 42 6f 78  28 54 61 73 6b 24 2c 22  |AlertBox(Task$,"|
000036c0  54 6f 73 61 76 65 2c 64  72 61 67 74 68 65 69 63  |Tosave,dragtheic|
000036d0  6f 6e 74 6f 61 64 69 72  65 63 74 6f 72 79 77 69  |ontoadirectorywi|
000036e0  6e 64 6f 77 22 29 0d 15  c2 06 7f 3a 0d 15 cc 17  |ndow").....:....|
000036f0  f2 45 76 65 6e 74 5f 53  61 76 65 46 69 6c 65 28  |.Event_SaveFile(|
00003700  78 24 29 0d 15 d6 05 cb  0d 15 e0 1a c8 99 22 57  |x$)..........."W|
00003710  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00003720  2d 31 0d 15 ea 05 e1 0d  15 f4 1b dd f2 57 69 6d  |-1...........Wim|
00003730  70 5f 44 72 61 67 42 6f  78 28 77 69 6e 64 6f 77  |p_DragBox(window|
00003740  25 29 0d 15 fe 0a ea 78  25 2c 79 25 0d 16 08 13  |%).....x%,y%....|
00003750  21 62 6c 6f 63 6b 25 3d  77 69 6e 64 6f 77 25 0d  |!block%=window%.|
00003760  16 12 23 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |..#.."Wimp_GetWi|
00003770  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00003780  6b 25 0d 16 1c 30 78 25  3d 62 6c 6f 63 6b 25 21  |k%...0x%=block%!|
00003790  34 2d 62 6c 6f 63 6b 25  21 32 30 3a 79 25 3d 62  |4-block%!20:y%=b|
000037a0  6c 6f 63 6b 25 21 31 36  2d 62 6c 6f 63 6b 25 21  |lock%!16-block%!|
000037b0  32 34 0d 16 26 0e 62 6c  6f 63 6b 25 21 34 3d 30  |24..&.block%!4=0|
000037c0  0d 16 30 21 c8 99 22 57  69 6d 70 5f 47 65 74 49  |..0!.."Wimp_GetI|
000037d0  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000037e0  25 0d 16 3a 13 21 62 6c  6f 63 6b 25 3d 77 69 6e  |%..:.!block%=win|
000037f0  64 6f 77 25 0d 16 44 0e  62 6c 6f 63 6b 25 21 34  |dow%..D.block%!4|
00003800  3d 35 0d 16 4e 2f 62 6c  6f 63 6b 25 21 38 3d 78  |=5..N/block%!8=x|
00003810  25 2b 62 6c 6f 63 6b 25  21 38 3a 62 6c 6f 63 6b  |%+block%!8:block|
00003820  25 21 31 32 3d 79 25 2b  62 6c 6f 63 6b 25 21 31  |%!12=y%+block%!1|
00003830  32 0d 16 58 31 62 6c 6f  63 6b 25 21 31 36 3d 78  |2..X1block%!16=x|
00003840  25 2b 62 6c 6f 63 6b 25  21 31 36 3a 62 6c 6f 63  |%+block%!16:bloc|
00003850  6b 25 21 32 30 3d 79 25  2b 62 6c 6f 63 6b 25 21  |k%!20=y%+block%!|
00003860  32 30 0d 16 62 1b 62 6c  6f 63 6b 25 21 32 34 3d  |20..b.block%!24=|
00003870  30 3a 62 6c 6f 63 6b 25  21 32 38 3d 30 0d 16 6c  |0:block%!28=0..l|
00003880  2b 62 6c 6f 63 6b 25 21  33 32 3d 26 37 46 46 46  |+block%!32=&7FFF|
00003890  46 46 46 46 3a 62 6c 6f  63 6b 25 21 33 36 3d 26  |FFFF:block%!36=&|
000038a0  37 46 46 46 46 46 46 46  0d 16 76 1c c8 99 22 57  |7FFFFFFF..v..."W|
000038b0  69 6d 70 5f 44 72 61 67  42 6f 78 22 2c 2c 62 6c  |imp_DragBox",,bl|
000038c0  6f 63 6b 25 0d 16 80 05  e1 0d 16 8a 16 dd f2 57  |ock%...........W|
000038d0  69 6d 70 5f 53 61 76 65  4d 65 73 73 61 67 65 0d  |imp_SaveMessage.|
000038e0  16 94 1e ea 66 69 6c 65  24 2c 77 69 6e 64 6f 77  |....file$,window|
000038f0  25 2c 69 63 6f 6e 25 2c  78 25 2c 79 25 0d 16 9e  |%,icon%,x%,y%...|
00003900  23 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |#.."Wimp_GetPoin|
00003910  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
00003920  0d 16 a8 3d 77 69 6e 64  6f 77 25 3d 62 6c 6f 63  |...=window%=bloc|
00003930  6b 25 21 31 32 3a 69 63  6f 6e 25 3d 62 6c 6f 63  |k%!12:icon%=bloc|
00003940  6b 25 21 31 36 3a 78 25  3d 62 6c 6f 63 6b 25 21  |k%!16:x%=block%!|
00003950  30 3a 79 25 3d 62 6c 6f  63 6b 25 21 34 0d 16 b2  |0:y%=block%!4...|
00003960  31 66 69 6c 65 24 3d a4  47 65 74 4c 65 61 66 28  |1file$=.GetLeaf(|
00003970  a4 49 63 6f 6e 5f 47 65  74 54 65 78 74 28 53 61  |.Icon_GetText(Sa|
00003980  76 65 5f 57 69 6e 64 6f  77 25 2c 31 29 29 0d 16  |ve_Window%,1))..|
00003990  bc 15 62 6c 6f 63 6b 25  21 32 30 3d 77 69 6e 64  |..block%!20=wind|
000039a0  6f 77 25 0d 16 c6 13 62  6c 6f 63 6b 25 21 32 34  |ow%....block%!24|
000039b0  3d 69 63 6f 6e 25 0d 16  d0 1d 62 6c 6f 63 6b 25  |=icon%....block%|
000039c0  21 32 38 3d 78 25 3a 62  6c 6f 63 6b 25 21 33 32  |!28=x%:block%!32|
000039d0  3d 79 25 0d 16 da 15 62  6c 6f 63 6b 25 21 33 36  |=y%....block%!36|
000039e0  3d 6c 65 6e 67 74 68 25  0d 16 e4 0f 62 6c 6f 63  |=length%....bloc|
000039f0  6b 25 21 30 3d 36 34 0d  16 ee 0f 62 6c 6f 63 6b  |k%!0=64....block|
00003a00  25 21 31 32 3d 30 0d 16  f8 0f 62 6c 6f 63 6b 25  |%!12=0....block%|
00003a10  21 31 36 3d 31 0d 17 02  12 62 6c 6f 63 6b 25 21  |!16=1....block%!|
00003a20  34 30 3d 26 46 46 46 0d  17 0c 16 24 28 62 6c 6f  |40=&FFF....$(blo|
00003a30  63 6b 25 2b 34 34 29 3d  66 69 6c 65 24 0d 17 16  |ck%+44)=file$...|
00003a40  36 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |6.."Wimp_SendMes|
00003a50  73 61 67 65 22 2c 31 37  2c 62 6c 6f 63 6b 25 2c  |sage",17,block%,|
00003a60  62 6c 6f 63 6b 25 21 32  30 2c 62 6c 6f 63 6b 25  |block%!20,block%|
00003a70  21 32 34 0d 17 20 05 e1  0d 17 2a 14 dd a4 57 69  |!24.. ....*...Wi|
00003a80  6d 70 5f 53 61 76 65 45  76 65 6e 74 0d 17 34 35  |mp_SaveEvent..45|
00003a90  3d 28 62 6c 6f 63 6b 25  21 30 3d 53 61 76 65 5f  |=(block%!0=Save_|
00003aa0  57 69 6e 64 6f 77 25 29  84 28 62 6c 6f 63 6b 25  |Window%).(block%|
00003ab0  21 31 32 3d 53 61 76 65  5f 57 69 6e 64 6f 77 25  |!12=Save_Window%|
00003ac0  29 0d 17 3e 05 3a 0d 17  48 06 f4 7c 0d 17 52 06  |)..>.:..H..|..R.|
00003ad0  f4 7c 0d 17 5c 06 f4 7c  0d 17 66 31 f4 7c 20 20  |.|..\..|..f1.|  |
00003ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003af0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003b00  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 17 70 2c f4 7c 20  |---------..p,.| |
00003b10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003b20  20 20 20 20 20 36 2e a0  4d 69 73 63 65 6c 6c 61  |     6..Miscella|
00003b30  6e 65 6f 75 73 0d 17 7a  31 f4 7c 20 20 20 20 20  |neous..z1.|     |
00003b40  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |             ---|
00003b50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003b60  2d 2d 2d 2d 2d 2d 0d 17  84 06 f4 7c 0d 17 8e 06  |------.....|....|
00003b70  f4 7c 0d 17 98 35 f4 7c  20 20 20 20 20 20 20 20  |.|...5.|        |
00003b80  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00003b90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003ba0  2d 2d 2d 2d 2d 2d 2d 0d  17 a2 06 f4 7c 0d 17 ac  |-------.....|...|
00003bb0  28 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |(.|             |
00003bc0  20 20 20 20 20 20 20 20  20 50 72 6f 63 65 64 75  |         Procedu|
00003bd0  72 65 73 20 3a 0d 17 b6  06 f4 7c 0d 17 c0 06 f4  |res :.....|.....|
00003be0  7c 0d 17 ca 2f f4 7c 20  20 20 20 20 20 20 20 20  ||.../.|         |
00003bf0  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
00003c00  53 74 61 72 74 28 54 61  73 6b 4e 61 6d 65 24 29  |Start(TaskName$)|
00003c10  0d 17 d4 32 f4 7c 20 20  20 20 20 20 20 20 20 20  |...2.|          |
00003c20  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00003c30  5f 53 65 74 45 76 65 6e  74 56 61 72 69 61 62 6c  |_SetEventVariabl|
00003c40  65 73 0d 17 de 37 f4 7c  20 20 20 20 20 20 20 20  |es...7.|        |
00003c50  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00003c60  6d 70 5f 45 72 72 6f 72  28 74 61 73 6b 25 2c 54  |mp_Error(task%,T|
00003c70  61 73 6b 4e 61 6d 65 24  29 0d 17 e8 2a f4 7c 20  |askName$)...*.| |
00003c80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003c90  20 50 52 4f 43 57 69 6d  70 5f 43 6c 6f 73 65 44  | PROCWimp_CloseD|
00003ca0  6f 77 6e 0d 17 f2 25 f4  7c 20 20 20 20 20 20 20  |own...%.|       |
00003cb0  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00003cc0  69 6d 70 5f 51 75 69 74  0d 17 fc 36 f4 7c 20 20  |imp_Quit...6.|  |
00003cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003ce0  46 4e 57 69 6d 70 5f 52  65 61 64 56 61 72 69 61  |FNWimp_ReadVaria|
00003cf0  62 6c 65 28 56 61 72 69  61 62 6c 65 24 29 0d 18  |ble(Variable$)..|
00003d00  06 32 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.2.|            |
00003d10  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 53  |      PROCWimp_S|
00003d20  65 6e 64 54 6f 45 64 69  74 28 66 69 6c 65 24 29  |endToEdit(file$)|
00003d30  0d 18 10 06 f4 7c 0d 18  1a 35 f4 7c 20 20 20 20  |.....|...5.|    |
00003d40  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00003d50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003d60  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 18 24 06 f4  |-----------..$..|
00003d70  7c 0d 18 2e 05 3a 0d 18  38 1c dd 20 a4 57 69 6d  ||....:..8.. .Wim|
00003d80  70 5f 53 74 61 72 74 28  54 61 73 6b 4e 61 6d 65  |p_Start(TaskName|
00003d90  24 29 0d 18 42 0e ea 20  76 65 72 73 69 6f 6e 25  |$)..B.. version%|
00003da0  0d 18 4c 1b f2 57 69 6d  70 5f 53 65 74 45 76 65  |..L..Wimp_SetEve|
00003db0  6e 74 56 61 72 69 61 62  6c 65 73 0d 18 56 26 ee  |ntVariables..V&.|
00003dc0  20 85 20 f2 57 69 6d 70  5f 45 72 72 6f 72 28 74  | . .Wimp_Error(t|
00003dd0  61 73 6b 25 2c 54 61 73  6b 4e 61 6d 65 24 29 3a  |ask%,TaskName$):|
00003de0  e0 0d 18 60 11 24 77 69  6d 70 25 3d 22 54 41 53  |...`.$wimp%="TAS|
00003df0  4b 22 0d 18 6a 3d c8 99  22 57 69 6d 70 5f 49 6e  |K"..j=.."Wimp_In|
00003e00  69 74 69 61 6c 69 73 65  22 2c 32 30 30 2c 21 77  |itialise",200,!w|
00003e10  69 6d 70 25 2c 54 61 73  6b 4e 61 6d 65 24 20 b8  |imp%,TaskName$ .|
00003e20  20 76 65 72 73 69 6f 6e  25 2c 74 61 73 6b 25 0d  | version%,task%.|
00003e30  18 74 0e 3d 54 61 73 6b  4e 61 6d 65 24 0d 18 7e  |.t.=TaskName$..~|
00003e40  05 3a 0d 18 88 1d dd 20  f2 57 69 6d 70 5f 53 65  |.:..... .Wimp_Se|
00003e50  74 45 76 65 6e 74 56 61  72 69 61 62 6c 65 73 0d  |tEventVariables.|
00003e60  18 92 2c de 20 77 69 6d  70 25 20 62 6c 6f 63 6b  |..,. wimp% block|
00003e70  5f 6d 65 6d 6f 72 79 25  2c 69 63 6f 6e 73 25 69  |_memory%,icons%i|
00003e80  63 6f 6e 5f 6d 65 6d 6f  72 79 25 0d 18 9c 21 69  |con_memory%...!i|
00003e90  63 6f 6e 5f 65 6e 64 25  3d 69 63 6f 6e 73 25 2b  |con_end%=icons%+|
00003ea0  69 63 6f 6e 5f 6d 65 6d  6f 72 79 25 0d 18 a6 2e  |icon_memory%....|
00003eb0  6e 75 6c 6c 25 3d 31 20  20 3a 64 72 61 77 25 3d  |null%=1  :draw%=|
00003ec0  32 20 3a 20 20 70 6f 69  6e 74 65 72 5f 6c 65 61  |2 :  pointer_lea|
00003ed0  76 69 6e 67 25 3d 31 3c  3c 34 0d 18 b0 31 70 6f  |ving%=1<<4...1po|
00003ee0  69 6e 74 65 72 5f 65 6e  74 65 72 69 6e 67 25 3d  |inter_entering%=|
00003ef0  31 3c 3c 35 3a 6d 6f 75  73 65 25 3d 31 3c 3c 36  |1<<5:mouse%=1<<6|
00003f00  3a 64 72 61 67 25 3d 31  3c 3c 37 0d 18 ba 26 6b  |:drag%=1<<7...&k|
00003f10  65 79 25 3d 31 3c 3c 38  3a 6d 65 6e 75 25 3d 31  |ey%=1<<8:menu%=1|
00003f20  3c 3c 39 3a 73 63 72 6f  6c 6c 25 3d 31 3c 3c 31  |<<9:scroll%=1<<1|
00003f30  30 0d 18 c4 40 6c 6f 73  65 5f 63 61 72 65 74 25  |0...@lose_caret%|
00003f40  3d 31 3c 3c 31 31 3a 67  61 69 6e 5f 63 61 72 65  |=1<<11:gain_care|
00003f50  74 25 3d 31 3c 3c 31 32  3a 6d 65 73 73 61 67 65  |t%=1<<12:message|
00003f60  25 3d 28 31 3c 3c 31 37  29 2b 28 31 3c 3c 31 38  |%=(1<<17)+(1<<18|
00003f70  29 0d 18 ce 30 72 65 63  6f 72 64 65 72 25 3d 31  |)...0recorder%=1|
00003f80  3c 3c 31 38 3a 61 63 6b  6e 6f 77 6c 65 64 67 65  |<<18:acknowledge|
00003f90  25 3d 31 3c 3c 31 39 3a  77 69 6e 64 6f 77 25 3d  |%=1<<19:window%=|
00003fa0  30 0d 18 d8 21 73 70 72  69 74 65 73 25 3d 30 3a  |0...!sprites%=0:|
00003fb0  76 65 72 73 69 6f 6e 25  3d 30 3a 74 61 73 6b 25  |version%=0:task%|
00003fc0  3d 30 0d 18 e2 2a 42 61  72 5f 57 69 6e 64 6f 77  |=0...*Bar_Window|
00003fd0  25 3d 2d 32 3a 42 61 72  5f 49 63 6f 6e 25 3d 30  |%=-2:Bar_Icon%=0|
00003fe0  3a 42 61 72 5f 4d 65 6e  75 25 3d 30 0d 18 ec 2a  |:Bar_Menu%=0...*|
00003ff0  78 5f 6f 72 69 67 69 6e  25 3d 30 3a 79 5f 6f 72  |x_origin%=0:y_or|
00004000  69 67 69 6e 25 3d 30 3a  53 61 76 65 57 69 6e 64  |igin%=0:SaveWind|
00004010  6f 77 25 3d 2d 33 0d 18  f6 33 6d 65 73 73 61 67  |ow%=-3...3messag|
00004020  65 5f 71 75 69 74 25 3d  30 3a 6d 65 73 73 61 67  |e_quit%=0:messag|
00004030  65 5f 73 61 76 65 25 3d  32 3a 6d 65 73 73 61 67  |e_save%=2:messag|
00004040  65 5f 6c 6f 61 64 25 3d  33 0d 19 00 21 6d 6f 75  |e_load%=3...!mou|
00004050  73 65 5f 62 75 74 74 6f  6e 25 3d 32 3a 73 61 76  |se_button%=2:sav|
00004060  65 5f 65 76 65 6e 74 25  3d 30 0d 19 0a 05 e1 0d  |e_event%=0......|
00004070  19 14 05 3a 0d 19 1e 22  dd 20 f2 57 69 6d 70 5f  |...:...". .Wimp_|
00004080  45 72 72 6f 72 28 74 61  73 6b 25 2c 54 61 73 6b  |Error(task%,Task|
00004090  4e 61 6d 65 24 29 0d 19  28 0a ea 58 24 2c 78 25  |Name$)..(..X$,x%|
000040a0  0d 19 32 09 ee 20 85 20  87 0d 19 3c 08 78 25 3d  |..2.. . ...<.x%=|
000040b0  9e 0d 19 46 1b 58 24 3d  f6 24 2b 22 61 74 6c 69  |...F.X$=.$+"atli|
000040c0  6e 65 22 2b c3 28 78 25  81 31 30 29 0d 19 50 10  |ne"+.(x%.10)..P.|
000040d0  de 45 72 72 6f 72 4d 73  67 25 33 36 0d 19 5a 83  |.ErrorMsg%36..Z.|
000040e0  45 72 72 6f 72 4d 73 67  25 21 30 3d 33 36 3a 45  |ErrorMsg%!0=36:E|
000040f0  72 72 6f 72 4d 73 67 25  21 31 32 3d 30 3a 45 72  |rrorMsg%!12=0:Er|
00004100  72 6f 72 4d 73 67 25 21  31 36 3d 26 38 31 30 38  |rorMsg%!16=&8108|
00004110  30 3a 45 72 72 6f 72 4d  73 67 25 21 32 30 3d 78  |0:ErrorMsg%!20=x|
00004120  25 3a 24 28 45 72 72 6f  72 4d 73 67 25 2b 32 34  |%:$(ErrorMsg%+24|
00004130  29 3d 22 21 52 75 6e 49  6d 61 67 65 22 3a c8 99  |)="!RunImage":..|
00004140  22 57 69 6d 70 5f 53 65  6e 64 4d 65 73 73 61 67  |"Wimp_SendMessag|
00004150  65 22 2c 31 37 2c 45 72  72 6f 72 4d 73 67 25 0d  |e",17,ErrorMsg%.|
00004160  19 64 23 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 41  |.d#.Wimp_WindowA|
00004170  6c 65 72 74 28 54 61 73  6b 4e 61 6d 65 24 2c 58  |lert(TaskName$,X|
00004180  24 29 0d 19 6e 13 f2 57  69 6d 70 5f 43 6c 6f 73  |$)..n..Wimp_Clos|
00004190  65 44 6f 77 6e 0d 19 78  05 e1 0d 19 82 05 3a 0d  |eDown..x......:.|
000041a0  19 8c 15 dd 20 f2 57 69  6d 70 5f 43 6c 6f 73 65  |.... .Wimp_Close|
000041b0  44 6f 77 6e 0d 19 96 23  c8 99 22 57 69 6d 70 5f  |Down...#.."Wimp_|
000041c0  43 6c 6f 73 65 44 6f 77  6e 22 2c 74 61 73 6b 25  |CloseDown",task%|
000041d0  2c 22 54 41 53 4b 22 0d  19 a0 05 e1 0d 19 aa 05  |,"TASK".........|
000041e0  3a 0d 19 b4 10 dd 20 f2  57 69 6d 70 5f 51 75 69  |:..... .Wimp_Qui|
000041f0  74 0d 19 be 10 20 66 69  6e 69 73 68 65 64 25 3d  |t.... finished%=|
00004200  b9 0d 19 c8 05 e1 0d 19  d2 05 3a 0d 19 dc 23 dd  |..........:...#.|
00004210  20 a4 57 69 6d 70 5f 52  65 61 64 56 61 72 69 61  | .Wimp_ReadVaria|
00004220  62 6c 65 28 56 61 72 69  61 62 6c 65 24 29 0d 19  |ble(Variable$)..|
00004230  e6 1b ea 6c 65 6e 25 2c  72 65 73 75 6c 74 25 2c  |...len%,result%,|
00004240  76 61 72 69 61 62 6c 65  25 0d 19 f0 14 24 77 69  |variable%....$wi|
00004250  6d 70 25 3d 56 61 72 69  61 62 6c 65 24 0d 19 fa  |mp%=Variable$...|
00004260  33 c8 99 22 4f 53 5f 52  65 61 64 56 61 72 56 61  |3.."OS_ReadVarVa|
00004270  6c 22 2c 77 69 6d 70 25  2c 77 69 6d 70 25 2b 32  |l",wimp%,wimp%+2|
00004280  35 35 2c 32 35 35 2c 2c  33 b8 2c 2c 6c 65 6e 25  |55,255,,3.,,len%|
00004290  0d 1a 04 17 77 69 6d 70  25 3f 28 6c 65 6e 25 2b  |....wimp%?(len%+|
000042a0  32 35 35 29 3d 31 33 0d  1a 0e 11 3d 24 28 77 69  |255)=13....=$(wi|
000042b0  6d 70 25 2b 32 35 35 29  0d 1a 18 05 3a 0d 1a 22  |mp%+255)....:.."|
000042c0  1d dd 20 f2 57 69 6d 70  5f 53 65 6e 64 54 6f 45  |.. .Wimp_SendToE|
000042d0  64 69 74 28 66 69 6c 65  24 29 0d 1a 2c 08 ea 20  |dit(file$)..,.. |
000042e0  6e 25 0d 1a 36 15 77 69  6d 70 25 21 34 3d 26 36  |n%..6.wimp%!4=&6|
000042f0  43 43 30 31 43 30 43 0d  1a 40 0e 77 69 6d 70 25  |CC01C0C..@.wimp%|
00004300  21 31 36 3d 35 0d 1a 4a  0e 77 69 6d 70 25 21 33  |!16=5..J.wimp%!3|
00004310  36 3d 30 0d 1a 54 11 77  69 6d 70 25 21 34 30 3d  |6=0..T.wimp%!40=|
00004320  26 46 46 46 0d 1a 5e 18  24 28 77 69 6d 70 25 2b  |&FFF..^.$(wimp%+|
00004330  34 34 29 3d 66 69 6c 65  24 2b bd 30 0d 1a 68 10  |44)=file$+.0..h.|
00004340  6e 25 3d a9 66 69 6c 65  24 2b 34 35 0d 1a 72 2c  |n%=.file$+45..r,|
00004350  e7 20 6e 25 83 34 20 8c  20 21 77 69 6d 70 25 3d  |. n%.4 . !wimp%=|
00004360  34 2b 28 6e 25 3e 3e 32  29 3c 3c 32 20 8b 20 21  |4+(n%>>2)<<2 . !|
00004370  77 69 6d 70 25 3d 6e 25  0d 1a 7c 24 c8 99 20 22  |wimp%=n%..|$.. "|
00004380  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00004390  22 2c 31 37 2c 77 69 6d  70 25 2c 30 0d 1a 86 05  |",17,wimp%,0....|
000043a0  e1 0d 1a 90 05 3a 0d ff                           |.....:..|
000043a8