�Wimp_Start("Task",0,0)
2�Wimp_WindowAlert("Title","This is a message")
�Wimp_CloseDown
(�
2:
<O�|_________________________________________________________________________
FO�|_________________________________________________________________________
PO�|_________________________________________________________________________
Z�|
d�|
n�|
xE�|                -------------------------------          6/1/92
�/�|                   WIMP PROCEDURE LIBRARY
��|
�,�|                     Index of Contents
��|
�5�|                -------------------------------
��|
�$�|                    1.�Windows
��|
�"�|                    2.�Icons
��|
�"�|                    3.�Menus
��|
�$�|                    4.�Sprites

�|

*�|                    5.�Miscellaneous

�|

"$�|                    6.�Polling

,�|

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

@�|

J�|

T�|

^�|

h�|

r�|

|5�|                -------------------------------

�*�|                          1.�Windows

�5�|                -------------------------------

��|

��|

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

��|

�(�|                      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$)
5�|             PROCWimp_WindowBringToTop(window%)
&4�|             PROCWimp_WindowForceDraw(window%)
0/�|             PROCWimp_WindowOpen(window%)
:+�|             PROCWimp_WindowInterface
D�|
N?�|           ----------------------------------------------
X�|
b�|
l�|
v(� �Wimp_WindowAlert(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,0)
��
�:
�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$
4response%=23
>=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
H=response%-2
R:
\+� �Wimp_WindowErrorBox(title$,message$)
f+�Wimp_WindowAlertBox(title$,message$,2)
p�
z:
� � �Wimp_WindowTitle(window%)
�wimp%!0=window%
� ș "Wimp_GetWindInfo",,wimp%
�6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
�=$(wimp%!76)
�:
�� �Wimp_WindowLoad(window$)
�9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
�:
�-� �Wimp_WindowLoadFrom(window$,template$)
�� c%,i%,n%,j%,sp$,sp2$
�%ș "Wimp_OpenTemplate",,template$
�Mș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
Ȏ sprites% �
 � 1    : wimp%!64=sprites%
)  : wimp%!64=�Event_Sprites(window%)
$�
.&ș "Wimp_CreateWindow",,wimp% � c%
8ș "Wimp_CloseTemplate"
B7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
LȎ wimp%!40 �
V
 � -1   :
`  : i%=40
j �
t$   wimp%!4=wimp%!i% : wimp%!0=c%
~$   ș "Wimp_GetIconState",,wimp%
�-   sp$=�Wimp_GetStringAtAddress(wimp%!28)
�"   ș "Wimp_DeleteIcon",,wimp%
�   Ȏ sprites% �
�    � 1    : wimp%!32=1
�     :
�/     ș "OS_SpriteOp",&108,sprites% � ,,,n%
�
     j%=0
�     � : j%+=1
�=      ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
�7      sp2$=�Wimp_GetStringAtAddress(pointer_block%)
�     � j%=n% � sp$=sp2$
�4     � sp$=sp2$ � wimp%!32=sprites% � wimp%!32=1
   �

   wimp%!4=c%
.   ș "Wimp_CreateIcon",,wimp%+4 � handle%
   i%+=4
( � (wimp%!i%)=-1
2�
<=c%
F:
P%� �Wimp_WindowBringToTop(window%)
Z!wimp%=window%
d#ș "Wimp_GetWindowState",,wimp%
nwimp%!28=-1
xș "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%
,ș "Wimp_OpenWindow",,wimp%
6�
@:
J�Wimp_WindowInterface
T ș"Wimp_BorderWindow",,wimp%
^�
h�|
r�|
|�|
�1�|                  -------------------------
�(�|                          2.�Icons
�1�|                  -------------------------
��|
��|
�=�|             ------------------------------------------
��|
�(�|                      Procedures :
��|
�+�|              FNWimp_IconBar(Sprite$)
�<�|              PROCWimp_IconCaret(window%,icon%,chars%)
�2�|              FNWimp_IconText(window%,icon%)
�8�|              FNWimp_IconValidation(window%,icon%)
7�|              PROCWimp_IconDisable(window%,icon%)
6�|              PROCWimp_IconEnable(window%,icon%)
?�|              FNWimp_IconPutSprite(window%,icon%,sprite$)
&=�|              PROCWimp_IconPutText(window%,icon%,text$)
0/�|              PROCWimp_IconInterfaceStart
:0�|              PROCWimp_IconInterfaceFinish
D�|
N=�|             ------------------------------------------
X�|
b:
l� �Wimp_IconBar(Sprite$)
v� icon%
�wimp%!0=-1
�wimp%!4=0     : wimp%!8=0
�wimp%!12=68 : wimp%!16=68
�wimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�+� �Wimp_IconCaret(window%,icon%,chars%)
�8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
��
�:
�#� �Wimp_IconText(window%,icon%)
#wimp%!0=window% : wimp%!4=icon%
!ș "Wimp_GetIconState",,wimp%
7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
 =$(wimp%!28)
*:
4)� �Wimp_IconValidation(window%,icon%)
>#wimp%!0=window% : wimp%!4=icon%
H!ș "Wimp_GetIconState",,wimp%
R7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
\=$(wimp%!32)
f:
p&� �Wimp_IconDisable(window%,icon%)
z#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%
��
�:
�0� �Wimp_IconPutSprite(window%,icon%,sprite$)
�!wimp%!0=window%:wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
	ș "Wimp_DeleteIcon",,wimp%
	=wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
	?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
	$'ș "Wimp_CreateIcon",,wimp% � icon%
	.
=icon%
	8:
	B,� �Wimp_IconPutText(window%,icon%,text$)
	L#wimp%!0=window% : wimp%!4=icon%
	V!ș "Wimp_GetIconState",,wimp%
	`7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
	j$(wimp%!28)=text$
	t#wimp%!0=window% : wimp%!4=icon%
	~wimp%!8=0 : wimp%!12=0
	�!ș "Wimp_SetIconState",,wimp%
	��
	�:
	�� �Wimp_IconInterfaceStart
	�ș"Wimp_BorderIcon",,wimp%
	��
	�:
	�� �Wimp_IconInterfaceFinish
	�
wimp%!8=0
	�ș"Wimp_BorderIcon",,wimp%
	��
	�:
�|

�|
�|
1�|                  -------------------------
((�|                          3.�Menus
21�|                  -------------------------
<�|
F�|
P?�|           ----------------------------------------------
Z�|
d(�|                      Procedures :
n�|
x�|
�.�|            PROCWimp_MenuAdjustOn(menu%)
�+�|            FNWimp_MenuChoice(level%)
�*�|            FNWimp_MenuCreate(menu$)
�$�|            FNWimp_MenuColours
�2�|            FNWimp_MenuCreateColours(title$)
�/�|            FNWimp_MenuNoOfEntries(menu$)
�D�|            PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
�2�|            PROCWimp_MenuCentre(menu%,item%)
�$�|            PROCWimp_MenuClose
�3�|            PROCWimp_MenuDisable(menu%,item%)
�6�|            PROCWimp_MenuDottedLine(menu%,item%)
�2�|            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%)
60�|            PROCWimp_MenuTick(menu%,item%)
@2�|            PROCWimp_MenuTitle(menu%,title$)
JL�|            PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
T�|
^?�|           ----------------------------------------------
h�|
r:
|� �Wimp_MenuAdjustOn(menu%)
�,ș "Wimp_GetPointerInfo",,pointer_block%
�^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
��
�:
�� �Wimp_MenuChoice(level%)
�=(wimp%!(4*level%))+1
�:
�� �Wimp_MenuCreate(menu$)
�)� menu$="Colours" �=�Wimp_MenuColours
�'� menu%,index%,width%,length%,k%,s%
�.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
�7menu%?12=7   : menu%?13=2  : menu%?14=7 :menu%?15=0
�+menu%!16=140 : menu%!20=44 : menu%!24=0
index%=menu%+28
 $menu%=�menu$,�menu$,"\")-1)
#width%=�(�menu$,�menu$,"\")-1))
&$menu$+="\" : Menu_NoOfEntries%=0
0ȕ menu$<>""
:menu$=�menu$,�menu$,"\")+1)
DȎ menu$ �
N	 � ""
X  :
b1  !index%=0 : index%!4=-1 : index%!8=&7000021
l  length%=�menu$,"\")-1
v  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

 !=�Wimp_MenuCreateColours(" ")

*:

4%� �Wimp_MenuCreateColours(title$)

>� x$,men%,j%,i%

H6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"

Rmen%=�Wimp_MenuCreate(x$)

\� i%=0 � 15

f
Ȏ � �

p(� i%<4,i%=9,i%=12,i%=14,i%=15 : j%=7

z : j%=0

��

�men%?(39+i%*24)=i%*16+j%

��Wimp_MenuCentre(men%,i%+1)

��

�	=men%

�:

�"� �Wimp_MenuNoOfEntries(menu$)

�� n% ,j% : n%=0 : j%=0

��

�j%=�menu$,"\",j%+1)

�� j%<>0 � n%+=1

�
� j%=0

�=n%
:
5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)
� fore%,i%
$&fore%=(menu%?(39+(item%-1)*24))�16
.(i%=((menu%?(39+(item%-1)*24))�16)�16
8/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
B�
L:
V#� �Wimp_MenuCentre(menu%,item%)
`:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
j�
t:
~� �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)
�
:
(5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
2Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)
<�
F:
P)� �Wimp_MenuGlue(menu1%,item%,menu2%)
Zmenu1%!(8+item%*24)=menu2%
d�
n:
x'� �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
"�
,2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
6menu%=Bar_Menu%
@�
J:
T!� �Wimp_MenuTick(menu%,item%)
^7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
h�
r:
|#� �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
&1�|                  -------------------------
0�|
:�|
D:�|                ------------------------------------
N�|
X(�|                      Procedures :
b�|
l�|
v,�|                  PROCWimp_SpritesLoad
�:�|                  PROCWimp_SpritesPathLoad(pathname$
��|
��|
��|
�:�|                ------------------------------------
��|
�:
�� �Wimp_SpritesLoad
�/�Wimp_SpritesPathLoad("<Obey$Dir>.Sprites")
�direct_sprites%=sprites%
��
�:
�&� �Wimp_SpritesPathLoad(pathname$)

�S%,T%
,S%=�"<Obey$Dir>.Sprites":T%=�#S%+16:�#S%
�sprites%T%,spname%12
 !sprites%=T%:sprites%!8=0
*!ș"OS_SpriteOp",&109,sprites%
4+ș"OS_SpriteOp",&10A,sprites%,pathname$
>�
H:
R�|
\�|
f�|
p1�|                  -------------------------
z(�|                          5.�Files
�1�|                  -------------------------
��|
��|
�5�|                -------------------------------
��|
�(�|                      Procedures :
��|
��|
�.�|                  FNWimp_FileType(type%)
�.�|                  FNWimp_GetFilePathName
�2�|                  FNWimp_FileLoad(pathname$)
�9�|                  FNWimp_GetStringAtAddress(array%)
�6�|                  FNWimp_GetFileFromPathname(f$)
2�|                  PROCWimp_SendToEdit(file$)
�|
5�|                -------------------------------
$�|
.�|
8�|
B:
L� �Wimp_FileType(type%)
VȎtype%�
`�&FFF:="Text"
j�&FFD:="Data"
t�&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%
2"�("LOAD"+pathname$+""+�~file%)
<
=file%
F;
P&� �Wimp_GetStringAtAddress(array%)
Z
�s$:s$=""
d<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
n=s$
x:
�#� �Wimp_GetFileFromPathname(f$)
�Ȏ �f$,".") �
� � 0    :=f$
�7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
��
�:
�� �Wimp_SendToEdit(file$)
�� n%
�wimp%!4=&6CC01C0C
�wimp%!16=5
�wimp%!36=0
�wimp%!40=&FFF
�$(wimp%+44)=file$+�0
n%=�file$+45
,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
$ș "Wimp_SendMessage",17,wimp%,0
"�
,:
6�|
@�|
J�|
T1�|                  -------------------------
^,�|                      5.�Miscellaneous
h1�|                  -------------------------
r�|
|�|
�5�|                -------------------------------
��|
�(�|                      Procedures :
��|
��|
�1�|                  PROCWimp_Start(TaskName$)
�.�|                  FNWimp_BASICParameters
�2�|                  PROCWimp_SetEventVariables
�7�|                  PROCWimp_Error(task%,TaskName$)
�*�|                  PROCWimp_CloseDown
�%�|                  PROCWimp_Quit
�6�|                  FNWimp_ReadVariable(Variable$)
��|
�|
5�|                -------------------------------
�|
&:
0/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
:%� wimp% wimp_memory%,icons% icon%
Dicon_memory%=icons%+icon%
Ntask$=TaskName$
X+indirect_sprites%=1 : direct_sprites%=1
b�Wimp_SetEventVariables
l� � �Wimp_Error:�
v@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
��
�:
�� �Wimp_BASICParameters
� � com$,param$,I%
� ș "OS_GetEnv" � com$
� params$=""
� I%=�com$," -quit ")
�5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
�=params$
�:
�� �Wimp_SetEventVariables
�� pointer_block% 20
�interface%=�
.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
4!sprites%=1:version%=0:task%=0
>*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
H*x_origin%=0:y_origin%=0:SaveWindow%=-3
R3message_quit%=0:message_save%=2:message_load%=3
\!mouse_button%=2:save_event%=0
f top_line%=0 : bottom_line%=0
p�
z:
�� �Wimp_Error
�
�X$,x%
�	� � �
�x%=�
�X$=�$+"atline"+�(x%�10)
��ErrorMsg%36
�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
�$(ErrorMsg%+24)="!RunImage"
�%ș"Wimp_SendMessage",17,ErrorMsg%
��Wimp_WindowAlert(task$,X$)
��Wimp_CloseDown
��
�:
� �Wimp_CloseDown
#ș"Wimp_CloseDown",task%,"TASK"
�
$:
.� �Wimp_Quit
8finished%=�
B�
L:
V#� �Wimp_ReadVariable(Variable$)
`�len%,result%,variable%
j$wimp%=Variable$
t3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
~wimp%?(len%+255)=13
�=$(wimp%+255)
�:
�:
��|
��|
��|
��|
�)�|                   ----------------
�'�|                     Wimp Polling
�)�|                   ----------------
��|
��|
:

� �Wimp_WaitForEvent
� mask%,event%
finished%=�
(mask%=%111000011001
2�
<' ș"Wimp_Poll",mask%,wimp% � event%
F Ȏ event% �
P
  �0 :
Z  �1 : �Wimp_PollDrawWindow
d&  �2 : ș "Wimp_OpenWindow",,wimp%
n   �3 : �Wimp_PollCloseWindow
x
  �4 :
�
  �5 :
�  �6 : �Wimp_PollMouseClick
�   �7 : �Wimp_PollSaveMessage
�  �8 : �Wimp_PollKeyPress
�#  �9 : �Event_MenuChoice(menu%)
�
  �10:
�
  �11:
�
  �12:
�   �17,18: �Wimp_PollMessages
�
  �19:
� �
�� finished%
��
:
� �Wimp_PollDrawWindow
� more%
"&ș"Wimp_RedrawWindow",,wimp%�more%
,window%=wimp%!0
6Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
@ȕmore%
J0 � interface% � ș"Wimp_BorderWindow",,wimp%
T- �Event_Draw(window%,x_origin%,y_origin%)
^' ș"Wimp_GetRectangle",,wimp%�more%
h�
r�
|:
�� �Wimp_PollCloseWindow
�%  ș "Wimp_GetPointerInfo",,wimp%
�)  window%=wimp%!12 : buttons%=wimp%!8
�) �Event_WindowClose(window%,buttons%)
�2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
��
�:
�� �Wimp_PollMouseClick
�J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
� Ȏ button% �
�"   �2    : �Wimp_PollMenuPopUp
�#   : Ȏ �Event_Save(window%) �
�,               � � : �Wimp_PollMouseSave
1               � �: �Wimp_PollEventMouseClick
              �
 �
&�
0:
:� �Wimp_PollMenuPopUp
Dmenu%=�Event_Menu(window%)
N  Ȏ menu%  �
X   � �:
b
    :
l     Ȏ window% �
v      � -2   : n%=0
�3        ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
�         n%+=1
�
        �
�:        ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
�4       : ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
�
     �
�  �
��
�:
�� �Wimp_PollMouseSave
� Ȏ icon% �
�8  � 0 : � button% � &50 � �Wimp_PollDragBox(window%)
�8  � 2 : � button% � 5 �  �Wimp_PollSaveFile(window%)
 �
�
:
 � �Wimp_PollEventMouseClick
*. � interface% � ș"Wimp_BorderIcon",,wimp%
43 �Event_MouseClick(window%,icon%,button%,x%,y%)
> Ȏ  interface% �
H  � � :
R(   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
\(   wimp%!12=window% : wimp%!16=icon%
f!   ș"Wimp_BorderIcon",,wimp%
p �
z�
�:
�!� �Wimp_PollSaveFile(window%)
�
�file$
�@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
� file$=$(wimp%!28)
� Ȏ �file$,".") �
�
  � 0   :
�@   $(wimp%+4)="To save, drag the icon to a directory window"
�+   ș "Wimp_ReportError",wimp%,16,task$
�  :
�%   �Event_SaveFile(file$,window%)
� �
� ș"Wimp_CreateMenu",-1
�
:
 � �Wimp_PollDragBox(window%)
$
�x%,y%
. save%=window%
8 !wimp%=window%
B# ș"Wimp_GetWindowState",,wimp%
L- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
V wimp%!4=0
`! ș"Wimp_GetIconState",,wimp%
j !wimp%=window%
t wimp%!4=5
~, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
�. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
� wimp%!24=0:wimp%!28=0
�* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
� ș"Wimp_DragBox",,wimp%
��
�:
�� �Wimp_PollKeyPress
�1  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
�  Ȏ �Event_Save(window%) �
�(   � � : �WimpPoll_SaveFile(window%)
�/   � �: �Event_KeyPress(window%,icon%,key%)
�  �
�

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

00000000  0d 00 0a 1b f2 57 69 6d  70 5f 53 74 61 72 74 28  |.....Wimp_Start(|
00000010  22 54 61 73 6b 22 2c 30  2c 30 29 0d 00 14 32 f2  |"Task",0,0)...2.|
00000020  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
00000030  28 22 54 69 74 6c 65 22  2c 22 54 68 69 73 20 69  |("Title","This i|
00000040  73 20 61 20 6d 65 73 73  61 67 65 22 29 0d 00 1e  |s a message")...|
00000050  13 f2 57 69 6d 70 5f 43  6c 6f 73 65 44 6f 77 6e  |..Wimp_CloseDown|
00000060  0d 00 28 05 e0 0d 00 32  05 3a 0d 00 3c 4f f4 7c  |..(....2.:..<O.||
00000070  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
000000b0  5f 5f 5f 5f 5f 5f 5f 5f  5f 0d 00 46 4f f4 7c 5f  |_________..FO.|_|
000000c0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000100  5f 5f 5f 5f 5f 5f 5f 5f  0d 00 50 4f f4 7c 5f 5f  |________..PO.|__|
00000110  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000150  5f 5f 5f 5f 5f 5f 5f 0d  00 5a 06 f4 7c 0d 00 64  |_______..Z..|..d|
00000160  06 f4 7c 0d 00 6e 06 f4  7c 0d 00 78 45 f4 7c 20  |..|..n..|..xE.| |
00000170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00000180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 20 20  |--------------  |
000001a0  20 20 20 20 20 20 20 20  36 2f 31 2f 39 32 0d 00  |        6/1/92..|
000001b0  82 2f f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |./.|            |
000001c0  20 20 20 20 20 20 20 57  49 4d 50 20 50 52 4f 43  |       WIMP PROC|
000001d0  45 44 55 52 45 20 4c 49  42 52 41 52 59 0d 00 8c  |EDURE LIBRARY...|
000001e0  06 f4 7c 0d 00 96 2c f4  7c 20 20 20 20 20 20 20  |..|...,.|       |
000001f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 6e  |              In|
00000200  64 65 78 20 6f 66 20 43  6f 6e 74 65 6e 74 73 0d  |dex of Contents.|
00000210  00 a0 06 f4 7c 0d 00 aa  35 f4 7c 20 20 20 20 20  |....|...5.|     |
00000220  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
00000230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 00 b4 06 f4 7c  |----------.....||
00000250  0d 00 be 24 f4 7c 20 20  20 20 20 20 20 20 20 20  |...$.|          |
00000260  20 20 20 20 20 20 20 20  20 20 31 2e a0 57 69 6e  |          1..Win|
00000270  64 6f 77 73 0d 00 c8 06  f4 7c 0d 00 d2 22 f4 7c  |dows.....|...".||
00000280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000290  20 20 20 20 32 2e a0 49  63 6f 6e 73 0d 00 dc 06  |    2..Icons....|
000002a0  f4 7c 0d 00 e6 22 f4 7c  20 20 20 20 20 20 20 20  |.|...".|        |
000002b0  20 20 20 20 20 20 20 20  20 20 20 20 33 2e a0 4d  |            3..M|
000002c0  65 6e 75 73 0d 00 f0 06  f4 7c 0d 00 fa 24 f4 7c  |enus.....|...$.||
000002d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002e0  20 20 20 20 34 2e a0 53  70 72 69 74 65 73 0d 01  |    4..Sprites..|
000002f0  04 06 f4 7c 0d 01 0e 2a  f4 7c 20 20 20 20 20 20  |...|...*.|      |
00000300  20 20 20 20 20 20 20 20  20 20 20 20 20 20 35 2e  |              5.|
00000310  a0 4d 69 73 63 65 6c 6c  61 6e 65 6f 75 73 0d 01  |.Miscellaneous..|
00000320  18 06 f4 7c 0d 01 22 24  f4 7c 20 20 20 20 20 20  |...|.."$.|      |
00000330  20 20 20 20 20 20 20 20  20 20 20 20 20 20 36 2e  |              6.|
00000340  a0 50 6f 6c 6c 69 6e 67  0d 01 2c 06 f4 7c 0d 01  |.Polling..,..|..|
00000350  36 35 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |65.|            |
00000360  20 20 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    ------------|
00000370  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000380  2d 2d 2d 0d 01 40 06 f4  7c 0d 01 4a 06 f4 7c 0d  |---..@..|..J..|.|
00000390  01 54 06 f4 7c 0d 01 5e  06 f4 7c 0d 01 68 06 f4  |.T..|..^..|..h..|
000003a0  7c 0d 01 72 06 f4 7c 0d  01 7c 35 f4 7c 20 20 20  ||..r..|..|5.|   |
000003b0  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |             ---|
000003c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000003d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 01 86 2a  |------------...*|
000003e0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
000003f0  20 20 20 20 20 20 20 20  20 20 20 20 31 2e a0 57  |            1..W|
00000400  69 6e 64 6f 77 73 0d 01  90 35 f4 7c 20 20 20 20  |indows...5.|    |
00000410  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00000420  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 9a 06 f4  |-----------.....|
00000440  7c 0d 01 a4 06 f4 7c 0d  01 ae 40 f4 7c 20 20 20  ||.....|...@.|   |
00000450  20 20 20 20 20 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |       ---------|
00000460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000480  2d 2d 2d 2d 2d 2d 2d 0d  01 b8 06 f4 7c 0d 01 c2  |-------.....|...|
00000490  28 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |(.|             |
000004a0  20 20 20 20 20 20 20 20  20 50 72 6f 63 65 64 75  |         Procedu|
000004b0  72 65 73 20 3a 0d 01 cc  06 f4 7c 0d 01 d6 38 f4  |res :.....|...8.|
000004c0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 50 52  ||             PR|
000004d0  4f 43 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  |OCWimp_WindowAle|
000004e0  72 74 28 74 69 74 6c 65  24 2c 6d 65 73 73 61 67  |rt(title$,messag|
000004f0  65 24 29 0d 01 e0 43 f4  7c 20 20 20 20 20 20 20  |e$)...C.|       |
00000500  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 57  |      PROCWimp_W|
00000510  69 6e 64 6f 77 41 6c 65  72 74 42 6f 78 28 74 69  |indowAlertBox(ti|
00000520  74 6c 65 24 2c 6d 65 73  73 61 67 65 24 2c 62 75  |tle$,message$,bu|
00000530  74 74 6f 6e 25 29 0d 01  ea 37 f4 7c 20 20 20 20  |tton%)...7.|    |
00000540  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
00000550  57 69 6e 64 6f 77 43 61  6e 63 65 6c 28 74 69 74  |WindowCancel(tit|
00000560  6c 65 24 2c 6d 65 73 73  61 67 65 24 29 0d 01 f4  |le$,message$)...|
00000570  3b f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |;.|             |
00000580  50 52 4f 43 57 69 6d 70  5f 57 69 6e 64 6f 77 45  |PROCWimp_WindowE|
00000590  72 72 6f 72 42 6f 78 28  74 69 74 6c 65 24 2c 6d  |rrorBox(title$,m|
000005a0  65 73 73 61 67 65 24 29  0d 01 fe 2e f4 7c 20 20  |essage$).....|  |
000005b0  20 20 20 20 20 20 20 20  20 20 20 46 4e 57 69 6d  |           FNWim|
000005c0  70 5f 57 69 6e 64 6f 77  54 69 74 6c 65 28 77 69  |p_WindowTitle(wi|
000005d0  6e 64 6f 77 25 29 0d 02  08 2d f4 7c 20 20 20 20  |ndow%)...-.|    |
000005e0  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
000005f0  57 69 6e 64 6f 77 4c 6f  61 64 28 77 69 6e 64 6f  |WindowLoad(windo|
00000600  77 24 29 0d 02 12 3b f4  7c 20 20 20 20 20 20 20  |w$)...;.|       |
00000610  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 57 69 6e  |      FNWimp_Win|
00000620  64 6f 77 4c 6f 61 64 46  72 6f 6d 28 77 69 6e 64  |dowLoadFrom(wind|
00000630  6f 77 24 2c 74 65 6d 70  6c 61 74 65 24 29 0d 02  |ow$,template$)..|
00000640  1c 35 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.5.|            |
00000650  20 50 52 4f 43 57 69 6d  70 5f 57 69 6e 64 6f 77  | PROCWimp_Window|
00000660  42 72 69 6e 67 54 6f 54  6f 70 28 77 69 6e 64 6f  |BringToTop(windo|
00000670  77 25 29 0d 02 26 34 f4  7c 20 20 20 20 20 20 20  |w%)..&4.|       |
00000680  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 57  |      PROCWimp_W|
00000690  69 6e 64 6f 77 46 6f 72  63 65 44 72 61 77 28 77  |indowForceDraw(w|
000006a0  69 6e 64 6f 77 25 29 0d  02 30 2f f4 7c 20 20 20  |indow%)..0/.|   |
000006b0  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
000006c0  6d 70 5f 57 69 6e 64 6f  77 4f 70 65 6e 28 77 69  |mp_WindowOpen(wi|
000006d0  6e 64 6f 77 25 29 0d 02  3a 2b f4 7c 20 20 20 20  |ndow%)..:+.|    |
000006e0  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
000006f0  70 5f 57 69 6e 64 6f 77  49 6e 74 65 72 66 61 63  |p_WindowInterfac|
00000700  65 0d 02 44 06 f4 7c 0d  02 4e 3f f4 7c 20 20 20  |e..D..|..N?.|   |
00000710  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00000720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000740  2d 2d 2d 2d 2d 2d 0d 02  58 06 f4 7c 0d 02 62 06  |------..X..|..b.|
00000750  f4 7c 0d 02 6c 06 f4 7c  0d 02 76 28 dd 20 f2 57  |.|..l..|..v(. .W|
00000760  69 6d 70 5f 57 69 6e 64  6f 77 41 6c 65 72 74 28  |imp_WindowAlert(|
00000770  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
00000780  0d 02 80 2b f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |...+.Wimp_Window|
00000790  41 6c 65 72 74 42 6f 78  28 74 69 74 6c 65 24 2c  |AlertBox(title$,|
000007a0  6d 65 73 73 61 67 65 24  2c 30 29 0d 02 8a 05 e1  |message$,0).....|
000007b0  0d 02 94 05 3a 0d 02 9e  33 dd 20 f2 57 69 6d 70  |....:...3. .Wimp|
000007c0  5f 57 69 6e 64 6f 77 41  6c 65 72 74 42 6f 78 28  |_WindowAlertBox(|
000007d0  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 2c  |title$,message$,|
000007e0  62 75 74 74 6f 6e 25 29  0d 02 a8 0f ea 20 72 65  |button%)..... re|
000007f0  73 70 6f 6e 73 65 25 0d  02 b2 17 24 28 77 69 6d  |sponse%....$(wim|
00000800  70 25 2b 34 29 3d 6d 65  73 73 61 67 65 24 0d 02  |p%+4)=message$..|
00000810  bc 10 c8 8e 20 62 75 74  74 6f 6e 25 20 ca 0d 02  |.... button% ...|
00000820  c6 19 20 c9 20 32 20 20  20 20 3a 20 72 65 73 70  |.. . 2    : resp|
00000830  6f 6e 73 65 25 3d 31 0d  02 d0 1a 20 c9 20 31 20  |onse%=1.... . 1 |
00000840  20 20 20 3a 20 72 65 73  70 6f 6e 73 65 25 3d 31  |   : response%=1|
00000850  35 0d 02 da 21 20 c9 20  33 20 20 20 20 3a 20 72  |5...! . 3    : r|
00000860  65 73 70 6f 6e 73 65 25  3d 28 31 3c 3c 35 29 2b  |esponse%=(1<<5)+|
00000870  31 36 0d 02 e4 21 20 c9  20 34 20 20 20 20 3a 20  |16...! . 4    : |
00000880  72 65 73 70 6f 6e 73 65  25 3d 28 31 3c 3c 36 29  |response%=(1<<6)|
00000890  2b 31 36 0d 02 ee 14 7f  20 3a 20 72 65 73 70 6f  |+16..... : respo|
000008a0  6e 73 65 25 3d 31 36 0d  02 f8 05 cb 0d 03 02 3d  |nse%=16........=|
000008b0  c8 99 20 22 57 69 6d 70  5f 52 65 70 6f 72 74 45  |.. "Wimp_ReportE|
000008c0  72 72 6f 72 22 2c 77 69  6d 70 25 2c 72 65 73 70  |rror",wimp%,resp|
000008d0  6f 6e 73 65 25 2c 74 69  74 6c 65 24 20 b8 20 2c  |onse%,title$ . ,|
000008e0  72 65 73 70 6f 6e 73 65  25 0d 03 0c 05 e1 0d 03  |response%.......|
000008f0  16 05 3a 0d 03 20 29 dd  20 a4 57 69 6d 70 5f 57  |..:.. ). .Wimp_W|
00000900  69 6e 64 6f 77 43 61 6e  63 65 6c 28 74 69 74 6c  |indowCancel(titl|
00000910  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 03 2a 17  |e$,message$)..*.|
00000920  24 28 77 69 6d 70 25 2b  34 29 3d 6d 65 73 73 61  |$(wimp%+4)=messa|
00000930  67 65 24 0d 03 34 10 72  65 73 70 6f 6e 73 65 25  |ge$..4.response%|
00000940  3d 32 33 0d 03 3e 3d c8  99 20 22 57 69 6d 70 5f  |=23..>=.. "Wimp_|
00000950  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 77 69 6d  |ReportError",wim|
00000960  70 25 2c 72 65 73 70 6f  6e 73 65 25 2c 74 69 74  |p%,response%,tit|
00000970  6c 65 24 20 b8 20 2c 72  65 73 70 6f 6e 73 65 25  |le$ . ,response%|
00000980  0d 03 48 10 3d 72 65 73  70 6f 6e 73 65 25 2d 32  |..H.=response%-2|
00000990  0d 03 52 05 3a 0d 03 5c  2b dd 20 f2 57 69 6d 70  |..R.:..\+. .Wimp|
000009a0  5f 57 69 6e 64 6f 77 45  72 72 6f 72 42 6f 78 28  |_WindowErrorBox(|
000009b0  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
000009c0  0d 03 66 2b f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |..f+.Wimp_Window|
000009d0  41 6c 65 72 74 42 6f 78  28 74 69 74 6c 65 24 2c  |AlertBox(title$,|
000009e0  6d 65 73 73 61 67 65 24  2c 32 29 0d 03 70 05 e1  |message$,2)..p..|
000009f0  0d 03 7a 05 3a 0d 03 84  20 dd 20 a4 57 69 6d 70  |..z.:... . .Wimp|
00000a00  5f 57 69 6e 64 6f 77 54  69 74 6c 65 28 77 69 6e  |_WindowTitle(win|
00000a10  64 6f 77 25 29 0d 03 8e  13 77 69 6d 70 25 21 30  |dow%)....wimp%!0|
00000a20  3d 77 69 6e 64 6f 77 25  0d 03 98 20 c8 99 20 22  |=window%... .. "|
00000a30  57 69 6d 70 5f 47 65 74  57 69 6e 64 49 6e 66 6f  |Wimp_GetWindInfo|
00000a40  22 2c 2c 77 69 6d 70 25  0d 03 a2 36 e7 20 28 28  |",,wimp%...6. ((|
00000a50  77 69 6d 70 25 21 36 30  29 80 26 31 30 30 29 3d  |wimp%!60).&100)=|
00000a60  30 20 85 20 31 2c 22 54  69 74 6c 65 20 69 73 6e  |0 . 1,"Title isn|
00000a70  27 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 03  |'t indirected"..|
00000a80  ac 10 3d 24 28 77 69 6d  70 25 21 37 36 29 0d 03  |..=$(wimp%!76)..|
00000a90  b6 05 3a 0d 03 c0 1f dd  20 a4 57 69 6d 70 5f 57  |..:..... .Wimp_W|
00000aa0  69 6e 64 6f 77 4c 6f 61  64 28 77 69 6e 64 6f 77  |indowLoad(window|
00000ab0  24 29 0d 03 ca 39 3d a4  57 69 6d 70 5f 57 69 6e  |$)...9=.Wimp_Win|
00000ac0  64 6f 77 4c 6f 61 64 46  72 6f 6d 28 77 69 6e 64  |dowLoadFrom(wind|
00000ad0  6f 77 24 2c 22 3c 4f 62  65 79 24 44 69 72 3e 2e  |ow$,"<Obey$Dir>.|
00000ae0  54 65 6d 70 6c 61 74 65  73 22 29 0d 03 d4 05 3a  |Templates")....:|
00000af0  0d 03 de 2d dd 20 a4 57  69 6d 70 5f 57 69 6e 64  |...-. .Wimp_Wind|
00000b00  6f 77 4c 6f 61 64 46 72  6f 6d 28 77 69 6e 64 6f  |owLoadFrom(windo|
00000b10  77 24 2c 74 65 6d 70 6c  61 74 65 24 29 0d 03 e8  |w$,template$)...|
00000b20  1a ea 20 63 25 2c 69 25  2c 6e 25 2c 6a 25 2c 73  |.. c%,i%,n%,j%,s|
00000b30  70 24 2c 73 70 32 24 0d  03 f2 25 c8 99 20 22 57  |p$,sp2$...%.. "W|
00000b40  69 6d 70 5f 4f 70 65 6e  54 65 6d 70 6c 61 74 65  |imp_OpenTemplate|
00000b50  22 2c 2c 74 65 6d 70 6c  61 74 65 24 0d 03 fc 4d  |",,template$...M|
00000b60  c8 99 20 22 57 69 6d 70  5f 4c 6f 61 64 54 65 6d  |.. "Wimp_LoadTem|
00000b70  70 6c 61 74 65 22 2c 2c  77 69 6d 70 25 2c 69 63  |plate",,wimp%,ic|
00000b80  6f 6e 73 25 2c 69 63 6f  6e 5f 6d 65 6d 6f 72 79  |ons%,icon_memory|
00000b90  25 2c 2d 31 2c 77 69 6e  64 6f 77 24 2c 30 20 b8  |%,-1,window$,0 .|
00000ba0  20 2c 2c 69 63 6f 6e 73  25 0d 04 06 11 c8 8e 20  | ,,icons%...... |
00000bb0  73 70 72 69 74 65 73 25  20 ca 0d 04 10 1f 20 c9  |sprites% ..... .|
00000bc0  20 31 20 20 20 20 3a 20  77 69 6d 70 25 21 36 34  | 1    : wimp%!64|
00000bd0  3d 73 70 72 69 74 65 73  25 0d 04 1a 29 20 7f 20  |=sprites%...) . |
00000be0  3a 20 77 69 6d 70 25 21  36 34 3d a4 45 76 65 6e  |: wimp%!64=.Even|
00000bf0  74 5f 53 70 72 69 74 65  73 28 77 69 6e 64 6f 77  |t_Sprites(window|
00000c00  25 29 0d 04 24 05 cb 0d  04 2e 26 c8 99 20 22 57  |%)..$.....&.. "W|
00000c10  69 6d 70 5f 43 72 65 61  74 65 57 69 6e 64 6f 77  |imp_CreateWindow|
00000c20  22 2c 2c 77 69 6d 70 25  20 b8 20 63 25 0d 04 38  |",,wimp% . c%..8|
00000c30  1b c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 54  |... "Wimp_CloseT|
00000c40  65 6d 70 6c 61 74 65 22  0d 04 42 37 c8 99 20 22  |emplate"..B7.. "|
00000c50  57 69 6d 70 5f 57 68 69  63 68 49 63 6f 6e 22 2c  |Wimp_WhichIcon",|
00000c60  63 25 2c 77 69 6d 70 25  2b 34 30 2c 31 2b 32 2b  |c%,wimp%+40,1+2+|
00000c70  28 31 3c 3c 38 29 2c 32  2b 28 31 3c 3c 38 29 0d  |(1<<8),2+(1<<8).|
00000c80  04 4c 11 c8 8e 20 77 69  6d 70 25 21 34 30 20 ca  |.L... wimp%!40 .|
00000c90  0d 04 56 0d 20 c9 20 2d  31 20 20 20 3a 0d 04 60  |..V. . -1   :..`|
00000ca0  0e 20 7f 20 3a 20 69 25  3d 34 30 0d 04 6a 06 20  |. . : i%=40..j. |
00000cb0  f5 0d 04 74 24 20 20 20  77 69 6d 70 25 21 34 3d  |...t$   wimp%!4=|
00000cc0  77 69 6d 70 25 21 69 25  20 3a 20 77 69 6d 70 25  |wimp%!i% : wimp%|
00000cd0  21 30 3d 63 25 0d 04 7e  24 20 20 20 c8 99 20 22  |!0=c%..~$   .. "|
00000ce0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
00000cf0  65 22 2c 2c 77 69 6d 70  25 0d 04 88 2d 20 20 20  |e",,wimp%...-   |
00000d00  73 70 24 3d a4 57 69 6d  70 5f 47 65 74 53 74 72  |sp$=.Wimp_GetStr|
00000d10  69 6e 67 41 74 41 64 64  72 65 73 73 28 77 69 6d  |ingAtAddress(wim|
00000d20  70 25 21 32 38 29 0d 04  92 22 20 20 20 c8 99 20  |p%!28)..."   .. |
00000d30  22 57 69 6d 70 5f 44 65  6c 65 74 65 49 63 6f 6e  |"Wimp_DeleteIcon|
00000d40  22 2c 2c 77 69 6d 70 25  0d 04 9c 14 20 20 20 c8  |",,wimp%....   .|
00000d50  8e 20 73 70 72 69 74 65  73 25 20 ca 0d 04 a6 1b  |. sprites% .....|
00000d60  20 20 20 20 c9 20 31 20  20 20 20 3a 20 77 69 6d  |    . 1    : wim|
00000d70  70 25 21 33 32 3d 31 0d  04 b0 0b 20 20 20 20 7f  |p%!32=1....    .|
00000d80  20 3a 0d 04 ba 2f 20 20  20 20 20 c8 99 20 22 4f  | :.../     .. "O|
00000d90  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 38  |S_SpriteOp",&108|
00000da0  2c 73 70 72 69 74 65 73  25 20 b8 20 2c 2c 2c 6e  |,sprites% . ,,,n|
00000db0  25 0d 04 c4 0d 20 20 20  20 20 6a 25 3d 30 0d 04  |%....     j%=0..|
00000dc0  ce 12 20 20 20 20 20 f5  20 3a 20 6a 25 2b 3d 31  |..     . : j%+=1|
00000dd0  0d 04 d8 3d 20 20 20 20  20 20 c8 99 20 22 4f 53  |...=      .. "OS|
00000de0  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 44 2c  |_SpriteOp",&10D,|
00000df0  73 70 72 69 74 65 73 25  2c 70 6f 69 6e 74 65 72  |sprites%,pointer|
00000e00  5f 62 6c 6f 63 6b 25 2c  32 30 2c 6a 25 0d 04 e2  |_block%,20,j%...|
00000e10  37 20 20 20 20 20 20 73  70 32 24 3d a4 57 69 6d  |7      sp2$=.Wim|
00000e20  70 5f 47 65 74 53 74 72  69 6e 67 41 74 41 64 64  |p_GetStringAtAdd|
00000e30  72 65 73 73 28 70 6f 69  6e 74 65 72 5f 62 6c 6f  |ress(pointer_blo|
00000e40  63 6b 25 29 0d 04 ec 1b  20 20 20 20 20 fd 20 6a  |ck%)....     . j|
00000e50  25 3d 6e 25 20 84 20 73  70 24 3d 73 70 32 24 0d  |%=n% . sp$=sp2$.|
00000e60  04 f6 34 20 20 20 20 20  e7 20 73 70 24 3d 73 70  |..4     . sp$=sp|
00000e70  32 24 20 8c 20 77 69 6d  70 25 21 33 32 3d 73 70  |2$ . wimp%!32=sp|
00000e80  72 69 74 65 73 25 20 8b  20 77 69 6d 70 25 21 33  |rites% . wimp%!3|
00000e90  32 3d 31 0d 05 00 08 20  20 20 cb 0d 05 0a 11 20  |2=1....   ..... |
00000ea0  20 20 77 69 6d 70 25 21  34 3d 63 25 0d 05 14 2e  |  wimp%!4=c%....|
00000eb0  20 20 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |   .. "Wimp_Crea|
00000ec0  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 2b 34  |teIcon",,wimp%+4|
00000ed0  20 b8 20 68 61 6e 64 6c  65 25 0d 05 1e 0c 20 20  | . handle%....  |
00000ee0  20 69 25 2b 3d 34 0d 05  28 14 20 fd 20 28 77 69  | i%+=4..(. . (wi|
00000ef0  6d 70 25 21 69 25 29 3d  2d 31 0d 05 32 05 cb 0d  |mp%!i%)=-1..2...|
00000f00  05 3c 07 3d 63 25 0d 05  46 05 3a 0d 05 50 25 dd  |.<.=c%..F.:..P%.|
00000f10  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 42 72 69  | .Wimp_WindowBri|
00000f20  6e 67 54 6f 54 6f 70 28  77 69 6e 64 6f 77 25 29  |ngToTop(window%)|
00000f30  0d 05 5a 12 21 77 69 6d  70 25 3d 77 69 6e 64 6f  |..Z.!wimp%=windo|
00000f40  77 25 0d 05 64 23 c8 99  20 22 57 69 6d 70 5f 47  |w%..d#.. "Wimp_G|
00000f50  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00000f60  77 69 6d 70 25 0d 05 6e  0f 77 69 6d 70 25 21 32  |wimp%..n.wimp%!2|
00000f70  38 3d 2d 31 0d 05 78 1f  c8 99 20 22 57 69 6d 70  |8=-1..x... "Wimp|
00000f80  5f 4f 70 65 6e 57 69 6e  64 6f 77 22 2c 2c 77 69  |_OpenWindow",,wi|
00000f90  6d 70 25 0d 05 82 05 e1  0d 05 8c 05 3a 0d 05 96  |mp%.........:...|
00000fa0  20 dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 43  | . .Wimp_WindowC|
00000fb0  6c 6f 73 65 28 77 69 6e  64 6f 77 25 29 0d 05 a0  |lose(window%)...|
00000fc0  12 21 77 69 6d 70 25 3d  77 69 6e 64 6f 77 25 0d  |.!wimp%=window%.|
00000fd0  05 aa 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  |.. .. "Wimp_Clos|
00000fe0  65 57 69 6e 64 6f 77 22  2c 2c 77 69 6d 70 25 0d  |eWindow",,wimp%.|
00000ff0  05 b4 05 e1 0d 05 be 05  3a 0d 05 c8 24 dd 20 f2  |........:...$. .|
00001000  57 69 6d 70 5f 57 69 6e  64 6f 77 46 6f 72 63 65  |Wimp_WindowForce|
00001010  44 72 61 77 28 77 69 6e  64 6f 77 25 29 0d 05 d2  |Draw(window%)...|
00001020  10 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 05 dc  |... window% ....|
00001030  38 20 c9 20 2d 31 20 20  20 3a 20 c8 99 20 22 57  |8 . -1   : .. "W|
00001040  69 6d 70 5f 46 6f 72 63  65 52 65 64 72 61 77 22  |imp_ForceRedraw"|
00001050  2c 2d 31 2c 30 2c 30 2c  32 2a 31 32 38 30 2c 32  |,-1,0,0,2*1280,2|
00001060  2a 31 30 32 34 0d 05 e6  39 20 7f 20 3a 20 c8 99  |*1024...9 . : ..|
00001070  20 22 57 69 6d 70 5f 46  6f 72 63 65 52 65 64 72  | "Wimp_ForceRedr|
00001080  61 77 22 2c 77 69 6e 64  6f 77 25 2c 30 2c 2d 32  |aw",window%,0,-2|
00001090  2a 31 30 32 34 2c 32 2a  31 32 38 30 2c 30 0d 05  |*1024,2*1280,0..|
000010a0  f0 05 cb 0d 05 fa 05 e1  0d 06 04 05 3a 0d 06 0e  |............:...|
000010b0  1f dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 4f  |.. .Wimp_WindowO|
000010c0  70 65 6e 28 77 69 6e 64  6f 77 25 29 0d 06 18 12  |pen(window%)....|
000010d0  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 0d 06  |!wimp%=window%..|
000010e0  22 23 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |"#.. "Wimp_GetWi|
000010f0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00001100  25 0d 06 2c 1f c8 99 20  22 57 69 6d 70 5f 4f 70  |%..,... "Wimp_Op|
00001110  65 6e 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |enWindow",,wimp%|
00001120  0d 06 36 05 e1 0d 06 40  05 3a 0d 06 4a 19 f2 57  |..6....@.:..J..W|
00001130  69 6d 70 5f 57 69 6e 64  6f 77 49 6e 74 65 72 66  |imp_WindowInterf|
00001140  61 63 65 0d 06 54 20 c8  99 22 57 69 6d 70 5f 42  |ace..T .."Wimp_B|
00001150  6f 72 64 65 72 57 69 6e  64 6f 77 22 2c 2c 77 69  |orderWindow",,wi|
00001160  6d 70 25 0d 06 5e 05 e1  0d 06 68 06 f4 7c 0d 06  |mp%..^....h..|..|
00001170  72 06 f4 7c 0d 06 7c 06  f4 7c 0d 06 86 31 f4 7c  |r..|..|..|...1.||
00001180  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001190  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
000011a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 06 90 28 f4  |-----------...(.|
000011b0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000011c0  20 20 20 20 20 20 20 20  20 20 20 32 2e a0 49 63  |           2..Ic|
000011d0  6f 6e 73 0d 06 9a 31 f4  7c 20 20 20 20 20 20 20  |ons...1.|       |
000011e0  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
000011f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001200  2d 2d 2d 2d 0d 06 a4 06  f4 7c 0d 06 ae 06 f4 7c  |----.....|.....||
00001210  0d 06 b8 3d f4 7c 20 20  20 20 20 20 20 20 20 20  |...=.|          |
00001220  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00001230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001240  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 06 c2  |-------------...|
00001250  06 f4 7c 0d 06 cc 28 f4  7c 20 20 20 20 20 20 20  |..|...(.|       |
00001260  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 50  |               P|
00001270  72 6f 63 65 64 75 72 65  73 20 3a 0d 06 d6 06 f4  |rocedures :.....|
00001280  7c 0d 06 e0 2b f4 7c 20  20 20 20 20 20 20 20 20  ||...+.|         |
00001290  20 20 20 20 20 46 4e 57  69 6d 70 5f 49 63 6f 6e  |     FNWimp_Icon|
000012a0  42 61 72 28 53 70 72 69  74 65 24 29 0d 06 ea 3c  |Bar(Sprite$)...<|
000012b0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
000012c0  50 52 4f 43 57 69 6d 70  5f 49 63 6f 6e 43 61 72  |PROCWimp_IconCar|
000012d0  65 74 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |et(window%,icon%|
000012e0  2c 63 68 61 72 73 25 29  0d 06 f4 32 f4 7c 20 20  |,chars%)...2.|  |
000012f0  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00001300  6d 70 5f 49 63 6f 6e 54  65 78 74 28 77 69 6e 64  |mp_IconText(wind|
00001310  6f 77 25 2c 69 63 6f 6e  25 29 0d 06 fe 38 f4 7c  |ow%,icon%)...8.||
00001320  20 20 20 20 20 20 20 20  20 20 20 20 20 20 46 4e  |              FN|
00001330  57 69 6d 70 5f 49 63 6f  6e 56 61 6c 69 64 61 74  |Wimp_IconValidat|
00001340  69 6f 6e 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ion(window%,icon|
00001350  25 29 0d 07 08 37 f4 7c  20 20 20 20 20 20 20 20  |%)...7.|        |
00001360  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 49  |      PROCWimp_I|
00001370  63 6f 6e 44 69 73 61 62  6c 65 28 77 69 6e 64 6f  |conDisable(windo|
00001380  77 25 2c 69 63 6f 6e 25  29 0d 07 12 36 f4 7c 20  |w%,icon%)...6.| |
00001390  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
000013a0  43 57 69 6d 70 5f 49 63  6f 6e 45 6e 61 62 6c 65  |CWimp_IconEnable|
000013b0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000013c0  07 1c 3f f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..?.|           |
000013d0  20 20 20 46 4e 57 69 6d  70 5f 49 63 6f 6e 50 75  |   FNWimp_IconPu|
000013e0  74 53 70 72 69 74 65 28  77 69 6e 64 6f 77 25 2c  |tSprite(window%,|
000013f0  69 63 6f 6e 25 2c 73 70  72 69 74 65 24 29 0d 07  |icon%,sprite$)..|
00001400  26 3d f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |&=.|            |
00001410  20 20 50 52 4f 43 57 69  6d 70 5f 49 63 6f 6e 50  |  PROCWimp_IconP|
00001420  75 74 54 65 78 74 28 77  69 6e 64 6f 77 25 2c 69  |utText(window%,i|
00001430  63 6f 6e 25 2c 74 65 78  74 24 29 0d 07 30 2f f4  |con%,text$)..0/.|
00001440  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 50  ||              P|
00001450  52 4f 43 57 69 6d 70 5f  49 63 6f 6e 49 6e 74 65  |ROCWimp_IconInte|
00001460  72 66 61 63 65 53 74 61  72 74 0d 07 3a 30 f4 7c  |rfaceStart..:0.||
00001470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 50 52  |              PR|
00001480  4f 43 57 69 6d 70 5f 49  63 6f 6e 49 6e 74 65 72  |OCWimp_IconInter|
00001490  66 61 63 65 46 69 6e 69  73 68 0d 07 44 06 f4 7c  |faceFinish..D..||
000014a0  0d 07 4e 3d f4 7c 20 20  20 20 20 20 20 20 20 20  |..N=.|          |
000014b0  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
000014c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000014d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 07 58  |-------------..X|
000014e0  06 f4 7c 0d 07 62 05 3a  0d 07 6c 1c dd 20 a4 57  |..|..b.:..l.. .W|
000014f0  69 6d 70 5f 49 63 6f 6e  42 61 72 28 53 70 72 69  |imp_IconBar(Spri|
00001500  74 65 24 29 0d 07 76 0b  ea 20 69 63 6f 6e 25 0d  |te$)..v.. icon%.|
00001510  07 80 0e 77 69 6d 70 25  21 30 3d 2d 31 0d 07 8a  |...wimp%!0=-1...|
00001520  1d 77 69 6d 70 25 21 34  3d 30 20 20 20 20 20 3a  |.wimp%!4=0     :|
00001530  20 77 69 6d 70 25 21 38  3d 30 0d 07 94 1d 77 69  | wimp%!8=0....wi|
00001540  6d 70 25 21 31 32 3d 36  38 20 3a 20 77 69 6d 70  |mp%!12=68 : wimp|
00001550  25 21 31 36 3d 36 38 0d  07 9e 12 77 69 6d 70 25  |%!16=68....wimp%|
00001560  21 32 30 3d 26 33 30 30  32 0d 07 a8 17 24 28 77  |!20=&3002....$(w|
00001570  69 6d 70 25 2b 32 34 29  3d 53 70 72 69 74 65 24  |imp%+24)=Sprite$|
00001580  0d 07 b2 27 c8 99 20 22  57 69 6d 70 5f 43 72 65  |...'.. "Wimp_Cre|
00001590  61 74 65 49 63 6f 6e 22  2c 2c 77 69 6d 70 25 20  |ateIcon",,wimp% |
000015a0  b8 20 69 63 6f 6e 25 0d  07 bc 0a 3d 69 63 6f 6e  |. icon%....=icon|
000015b0  25 0d 07 c6 05 3a 0d 07  d0 2b dd 20 f2 57 69 6d  |%....:...+. .Wim|
000015c0  70 5f 49 63 6f 6e 43 61  72 65 74 28 77 69 6e 64  |p_IconCaret(wind|
000015d0  6f 77 25 2c 69 63 6f 6e  25 2c 63 68 61 72 73 25  |ow%,icon%,chars%|
000015e0  29 0d 07 da 38 c8 99 20  22 57 69 6d 70 5f 53 65  |)...8.. "Wimp_Se|
000015f0  74 43 61 72 65 74 50 6f  73 69 74 69 6f 6e 22 2c  |tCaretPosition",|
00001600  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 2c 2c  |window%,icon%,,,|
00001610  2d 31 2c 63 68 61 72 73  25 0d 07 e4 05 e1 0d 07  |-1,chars%.......|
00001620  ee 05 3a 0d 07 f8 23 dd  20 a4 57 69 6d 70 5f 49  |..:...#. .Wimp_I|
00001630  63 6f 6e 54 65 78 74 28  77 69 6e 64 6f 77 25 2c  |conText(window%,|
00001640  69 63 6f 6e 25 29 0d 08  02 23 77 69 6d 70 25 21  |icon%)...#wimp%!|
00001650  30 3d 77 69 6e 64 6f 77  25 20 3a 20 77 69 6d 70  |0=window% : wimp|
00001660  25 21 34 3d 69 63 6f 6e  25 0d 08 0c 21 c8 99 20  |%!4=icon%...!.. |
00001670  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001680  74 65 22 2c 2c 77 69 6d  70 25 0d 08 16 37 e7 20  |te",,wimp%...7. |
00001690  28 28 77 69 6d 70 25 21  32 34 29 20 80 20 26 31  |((wimp%!24) . &1|
000016a0  30 30 29 3d 30 20 85 20  31 2c 22 49 63 6f 6e 20  |00)=0 . 1,"Icon |
000016b0  69 73 6e 27 74 20 69 6e  64 69 72 65 63 74 65 64  |isn't indirected|
000016c0  22 0d 08 20 10 3d 24 28  77 69 6d 70 25 21 32 38  |".. .=$(wimp%!28|
000016d0  29 0d 08 2a 05 3a 0d 08  34 29 dd 20 a4 57 69 6d  |)..*.:..4). .Wim|
000016e0  70 5f 49 63 6f 6e 56 61  6c 69 64 61 74 69 6f 6e  |p_IconValidation|
000016f0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00001700  08 3e 23 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |.>#wimp%!0=windo|
00001710  77 25 20 3a 20 77 69 6d  70 25 21 34 3d 69 63 6f  |w% : wimp%!4=ico|
00001720  6e 25 0d 08 48 21 c8 99  20 22 57 69 6d 70 5f 47  |n%..H!.. "Wimp_G|
00001730  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00001740  6d 70 25 0d 08 52 37 e7  20 28 28 77 69 6d 70 25  |mp%..R7. ((wimp%|
00001750  21 32 34 29 20 80 20 26  31 30 30 29 3d 30 20 85  |!24) . &100)=0 .|
00001760  20 31 2c 22 49 63 6f 6e  20 69 73 6e 27 74 20 69  | 1,"Icon isn't i|
00001770  6e 64 69 72 65 63 74 65  64 22 0d 08 5c 10 3d 24  |ndirected"..\.=$|
00001780  28 77 69 6d 70 25 21 33  32 29 0d 08 66 05 3a 0d  |(wimp%!32)..f.:.|
00001790  08 70 26 dd 20 f2 57 69  6d 70 5f 49 63 6f 6e 44  |.p&. .Wimp_IconD|
000017a0  69 73 61 62 6c 65 28 77  69 6e 64 6f 77 25 2c 69  |isable(window%,i|
000017b0  63 6f 6e 25 29 0d 08 7a  23 77 69 6d 70 25 21 30  |con%)..z#wimp%!0|
000017c0  3d 77 69 6e 64 6f 77 25  20 3a 20 77 69 6d 70 25  |=window% : wimp%|
000017d0  21 34 3d 69 63 6f 6e 25  0d 08 84 24 77 69 6d 70  |!4=icon%...$wimp|
000017e0  25 21 38 3d 31 3c 3c 32  32 20 20 20 3a 20 77 69  |%!8=1<<22   : wi|
000017f0  6d 70 25 21 31 32 3d 31  3c 3c 32 32 0d 08 8e 21  |mp%!12=1<<22...!|
00001800  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
00001810  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 08 98  |State",,wimp%...|
00001820  05 e1 0d 08 a2 05 3a 0d  08 ac 25 dd 20 f2 57 69  |......:...%. .Wi|
00001830  6d 70 5f 49 63 6f 6e 45  6e 61 62 6c 65 28 77 69  |mp_IconEnable(wi|
00001840  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 08 b6 23  |ndow%,icon%)...#|
00001850  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
00001860  3a 20 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |: wimp%!4=icon%.|
00001870  08 c0 24 77 69 6d 70 25  21 38 3d 30 20 20 20 20  |..$wimp%!8=0    |
00001880  20 20 20 3a 20 77 69 6d  70 25 21 31 32 3d 31 3c  |   : wimp%!12=1<|
00001890  3c 32 32 0d 08 ca 21 c8  99 20 22 57 69 6d 70 5f  |<22...!.. "Wimp_|
000018a0  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
000018b0  69 6d 70 25 0d 08 d4 05  e1 0d 08 de 05 3a 0d 08  |imp%.........:..|
000018c0  e8 30 dd 20 a4 57 69 6d  70 5f 49 63 6f 6e 50 75  |.0. .Wimp_IconPu|
000018d0  74 53 70 72 69 74 65 28  77 69 6e 64 6f 77 25 2c  |tSprite(window%,|
000018e0  69 63 6f 6e 25 2c 73 70  72 69 74 65 24 29 0d 08  |icon%,sprite$)..|
000018f0  f2 21 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |.!wimp%!0=window|
00001900  25 3a 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |%:wimp%!4=icon%.|
00001910  08 fc 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..!.. "Wimp_GetI|
00001920  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00001930  0d 09 06 1f c8 99 20 22  57 69 6d 70 5f 44 65 6c  |...... "Wimp_Del|
00001940  65 74 65 49 63 6f 6e 22  2c 2c 77 69 6d 70 25 0d  |eteIcon",,wimp%.|
00001950  09 10 3d 77 69 6d 70 25  21 34 3d 77 69 6d 70 25  |..=wimp%!4=wimp%|
00001960  21 38 20 20 20 3a 20 77  69 6d 70 25 21 38 3d 77  |!8   : wimp%!8=w|
00001970  69 6d 70 25 21 31 32 20  20 3a 20 77 69 6d 70 25  |imp%!12  : wimp%|
00001980  21 31 32 3d 77 69 6d 70  25 21 31 36 0d 09 1a 3f  |!12=wimp%!16...?|
00001990  77 69 6d 70 25 21 31 36  3d 77 69 6d 70 25 21 32  |wimp%!16=wimp%!2|
000019a0  30 20 3a 20 77 69 6d 70  25 21 32 30 3d 77 69 6d  |0 : wimp%!20=wim|
000019b0  70 25 21 32 34 20 3a 20  24 28 77 69 6d 70 25 2b  |p%!24 : $(wimp%+|
000019c0  32 34 29 3d 73 70 72 69  74 65 24 0d 09 24 27 c8  |24)=sprite$..$'.|
000019d0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000019e0  6f 6e 22 2c 2c 77 69 6d  70 25 20 b8 20 69 63 6f  |on",,wimp% . ico|
000019f0  6e 25 0d 09 2e 0a 3d 69  63 6f 6e 25 0d 09 38 05  |n%....=icon%..8.|
00001a00  3a 0d 09 42 2c dd 20 f2  57 69 6d 70 5f 49 63 6f  |:..B,. .Wimp_Ico|
00001a10  6e 50 75 74 54 65 78 74  28 77 69 6e 64 6f 77 25  |nPutText(window%|
00001a20  2c 69 63 6f 6e 25 2c 74  65 78 74 24 29 0d 09 4c  |,icon%,text$)..L|
00001a30  23 77 69 6d 70 25 21 30  3d 77 69 6e 64 6f 77 25  |#wimp%!0=window%|
00001a40  20 3a 20 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  | : wimp%!4=icon%|
00001a50  0d 09 56 21 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..V!.. "Wimp_Get|
00001a60  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00001a70  25 0d 09 60 37 e7 20 28  28 77 69 6d 70 25 21 32  |%..`7. ((wimp%!2|
00001a80  34 29 20 80 20 26 31 30  30 29 3d 30 20 85 20 31  |4) . &100)=0 . 1|
00001a90  2c 22 49 63 6f 6e 20 69  73 6e 27 74 20 69 6e 64  |,"Icon isn't ind|
00001aa0  69 72 65 63 74 65 64 22  0d 09 6a 15 24 28 77 69  |irected"..j.$(wi|
00001ab0  6d 70 25 21 32 38 29 3d  74 65 78 74 24 0d 09 74  |mp%!28)=text$..t|
00001ac0  23 77 69 6d 70 25 21 30  3d 77 69 6e 64 6f 77 25  |#wimp%!0=window%|
00001ad0  20 3a 20 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  | : wimp%!4=icon%|
00001ae0  0d 09 7e 1a 77 69 6d 70  25 21 38 3d 30 20 3a 20  |..~.wimp%!8=0 : |
00001af0  77 69 6d 70 25 21 31 32  3d 30 0d 09 88 21 c8 99  |wimp%!12=0...!..|
00001b00  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00001b10  61 74 65 22 2c 2c 77 69  6d 70 25 0d 09 92 05 e1  |ate",,wimp%.....|
00001b20  0d 09 9c 05 3a 0d 09 a6  1e dd 20 f2 57 69 6d 70  |....:..... .Wimp|
00001b30  5f 49 63 6f 6e 49 6e 74  65 72 66 61 63 65 53 74  |_IconInterfaceSt|
00001b40  61 72 74 0d 09 b0 1e c8  99 22 57 69 6d 70 5f 42  |art......"Wimp_B|
00001b50  6f 72 64 65 72 49 63 6f  6e 22 2c 2c 77 69 6d 70  |orderIcon",,wimp|
00001b60  25 0d 09 ba 05 e1 0d 09  c4 05 3a 0d 09 ce 1f dd  |%.........:.....|
00001b70  20 f2 57 69 6d 70 5f 49  63 6f 6e 49 6e 74 65 72  | .Wimp_IconInter|
00001b80  66 61 63 65 46 69 6e 69  73 68 0d 09 d8 0d 77 69  |faceFinish....wi|
00001b90  6d 70 25 21 38 3d 30 0d  09 e2 1e c8 99 22 57 69  |mp%!8=0......"Wi|
00001ba0  6d 70 5f 42 6f 72 64 65  72 49 63 6f 6e 22 2c 2c  |mp_BorderIcon",,|
00001bb0  77 69 6d 70 25 0d 09 ec  05 e1 0d 09 f6 05 3a 0d  |wimp%.........:.|
00001bc0  0a 00 06 f4 7c 0d 0a 0a  06 f4 7c 0d 0a 14 06 f4  |....|.....|.....|
00001bd0  7c 0d 0a 1e 31 f4 7c 20  20 20 20 20 20 20 20 20  ||...1.|         |
00001be0  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
00001bf0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001c00  2d 2d 0d 0a 28 28 f4 7c  20 20 20 20 20 20 20 20  |--..((.|        |
00001c10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001c20  20 20 33 2e a0 4d 65 6e  75 73 0d 0a 32 31 f4 7c  |  3..Menus..21.||
00001c30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001c40  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00001c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 0a 3c 06 f4  |-----------..<..|
00001c60  7c 0d 0a 46 06 f4 7c 0d  0a 50 3f f4 7c 20 20 20  ||..F..|..P?.|   |
00001c70  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00001c80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001ca0  2d 2d 2d 2d 2d 2d 0d 0a  5a 06 f4 7c 0d 0a 64 28  |------..Z..|..d(|
00001cb0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00001cc0  20 20 20 20 20 20 20 20  50 72 6f 63 65 64 75 72  |        Procedur|
00001cd0  65 73 20 3a 0d 0a 6e 06  f4 7c 0d 0a 78 06 f4 7c  |es :..n..|..x..||
00001ce0  0d 0a 82 2e f4 7c 20 20  20 20 20 20 20 20 20 20  |.....|          |
00001cf0  20 20 50 52 4f 43 57 69  6d 70 5f 4d 65 6e 75 41  |  PROCWimp_MenuA|
00001d00  64 6a 75 73 74 4f 6e 28  6d 65 6e 75 25 29 0d 0a  |djustOn(menu%)..|
00001d10  8c 2b f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.+.|            |
00001d20  46 4e 57 69 6d 70 5f 4d  65 6e 75 43 68 6f 69 63  |FNWimp_MenuChoic|
00001d30  65 28 6c 65 76 65 6c 25  29 0d 0a 96 2a f4 7c 20  |e(level%)...*.| |
00001d40  20 20 20 20 20 20 20 20  20 20 20 46 4e 57 69 6d  |           FNWim|
00001d50  70 5f 4d 65 6e 75 43 72  65 61 74 65 28 6d 65 6e  |p_MenuCreate(men|
00001d60  75 24 29 0d 0a a0 24 f4  7c 20 20 20 20 20 20 20  |u$)...$.|       |
00001d70  20 20 20 20 20 46 4e 57  69 6d 70 5f 4d 65 6e 75  |     FNWimp_Menu|
00001d80  43 6f 6c 6f 75 72 73 0d  0a aa 32 f4 7c 20 20 20  |Colours...2.|   |
00001d90  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
00001da0  4d 65 6e 75 43 72 65 61  74 65 43 6f 6c 6f 75 72  |MenuCreateColour|
00001db0  73 28 74 69 74 6c 65 24  29 0d 0a b4 2f f4 7c 20  |s(title$).../.| |
00001dc0  20 20 20 20 20 20 20 20  20 20 20 46 4e 57 69 6d  |           FNWim|
00001dd0  70 5f 4d 65 6e 75 4e 6f  4f 66 45 6e 74 72 69 65  |p_MenuNoOfEntrie|
00001de0  73 28 6d 65 6e 75 24 29  0d 0a be 44 f4 7c 20 20  |s(menu$)...D.|  |
00001df0  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00001e00  6d 70 5f 4d 65 6e 75 42  61 63 6b 47 72 6f 75 6e  |mp_MenuBackGroun|
00001e10  64 43 6f 6c 6f 75 72 28  6d 65 6e 75 25 2c 69 74  |dColour(menu%,it|
00001e20  65 6d 25 2c 63 6f 6c 6f  75 72 25 29 0d 0a c8 32  |em%,colour%)...2|
00001e30  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 50 52  |.|            PR|
00001e40  4f 43 57 69 6d 70 5f 4d  65 6e 75 43 65 6e 74 72  |OCWimp_MenuCentr|
00001e50  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 0a  |e(menu%,item%)..|
00001e60  d2 24 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.$.|            |
00001e70  50 52 4f 43 57 69 6d 70  5f 4d 65 6e 75 43 6c 6f  |PROCWimp_MenuClo|
00001e80  73 65 0d 0a dc 33 f4 7c  20 20 20 20 20 20 20 20  |se...3.|        |
00001e90  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 4d 65 6e  |    PROCWimp_Men|
00001ea0  75 44 69 73 61 62 6c 65  28 6d 65 6e 75 25 2c 69  |uDisable(menu%,i|
00001eb0  74 65 6d 25 29 0d 0a e6  36 f4 7c 20 20 20 20 20  |tem%)...6.|     |
00001ec0  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
00001ed0  4d 65 6e 75 44 6f 74 74  65 64 4c 69 6e 65 28 6d  |MenuDottedLine(m|
00001ee0  65 6e 75 25 2c 69 74 65  6d 25 29 0d 0a f0 32 f4  |enu%,item%)...2.|
00001ef0  7c 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  ||            PRO|
00001f00  43 57 69 6d 70 5f 4d 65  6e 75 45 6e 61 62 6c 65  |CWimp_MenuEnable|
00001f10  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 0a fa  |(menu%,item%)...|
00001f20  44 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 50  |D.|            P|
00001f30  52 4f 43 57 69 6d 70 5f  4d 65 6e 75 46 6f 72 65  |ROCWimp_MenuFore|
00001f40  67 72 6f 75 6e 64 43 6f  6c 6f 75 72 28 6d 65 6e  |groundColour(men|
00001f50  75 25 2c 69 74 65 6d 25  2c 63 6f 6c 6f 75 72 25  |u%,item%,colour%|
00001f60  29 0d 0b 04 38 f4 7c 20  20 20 20 20 20 20 20 20  |)...8.|         |
00001f70  20 20 20 50 52 4f 43 57  69 6d 70 5f 4d 65 6e 75  |   PROCWimp_Menu|
00001f80  47 6c 75 65 28 6d 65 6e  75 31 25 2c 69 74 65 6d  |Glue(menu1%,item|
00001f90  25 2c 6d 65 6e 75 32 25  29 0d 0b 0e 36 f4 7c 20  |%,menu2%)...6.| |
00001fa0  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00001fb0  69 6d 70 5f 4d 65 6e 75  49 74 65 6d 28 6d 65 6e  |imp_MenuItem(men|
00001fc0  75 25 2c 69 74 65 6d 25  2c 69 74 65 6d 24 29 0d  |u%,item%,item$).|
00001fd0  0b 18 33 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..3.|           |
00001fe0  20 50 52 4f 43 57 69 6d  70 5f 4d 65 6e 75 4d 65  | PROCWimp_MenuMe|
00001ff0  73 73 61 67 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |ssage(menu%,item|
00002000  25 29 0d 0b 22 31 f4 7c  20 20 20 20 20 20 20 20  |%).."1.|        |
00002010  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 4d 65 6e  |    PROCWimp_Men|
00002020  75 50 6f 70 55 70 28 4d  65 6e 75 25 2c 78 25 2c  |uPopUp(Menu%,x%,|
00002030  79 25 29 0d 0b 2c 2e f4  7c 20 20 20 20 20 20 20  |y%)..,..|       |
00002040  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 4d 65  |     PROCWimp_Me|
00002050  6e 75 50 6f 70 55 70 42  61 72 28 78 25 2c 79 25  |nuPopUpBar(x%,y%|
00002060  29 0d 0b 36 30 f4 7c 20  20 20 20 20 20 20 20 20  |)..60.|         |
00002070  20 20 20 50 52 4f 43 57  69 6d 70 5f 4d 65 6e 75  |   PROCWimp_Menu|
00002080  54 69 63 6b 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |Tick(menu%,item%|
00002090  29 0d 0b 40 32 f4 7c 20  20 20 20 20 20 20 20 20  |)..@2.|         |
000020a0  20 20 20 50 52 4f 43 57  69 6d 70 5f 4d 65 6e 75  |   PROCWimp_Menu|
000020b0  54 69 74 6c 65 28 6d 65  6e 75 25 2c 74 69 74 6c  |Title(menu%,titl|
000020c0  65 24 29 0d 0b 4a 4c f4  7c 20 20 20 20 20 20 20  |e$)..JL.|       |
000020d0  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 4d 65  |     PROCWimp_Me|
000020e0  6e 75 57 72 69 74 65 28  6d 65 6e 75 25 2c 69 74  |nuWrite(menu%,it|
000020f0  65 6d 25 2c 62 75 66 66  65 72 25 2c 76 61 6c 25  |em%,buffer%,val%|
00002100  2c 42 75 66 66 65 72 4c  65 6e 67 74 68 25 29 0d  |,BufferLength%).|
00002110  0b 54 06 f4 7c 0d 0b 5e  3f f4 7c 20 20 20 20 20  |.T..|..^?.|     |
00002120  20 20 20 20 20 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |      ----------|
00002130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002150  2d 2d 2d 2d 0d 0b 68 06  f4 7c 0d 0b 72 05 3a 0d  |----..h..|..r.:.|
00002160  0b 7c 1f dd 20 f2 57 69  6d 70 5f 4d 65 6e 75 41  |.|.. .Wimp_MenuA|
00002170  64 6a 75 73 74 4f 6e 28  6d 65 6e 75 25 29 0d 0b  |djustOn(menu%)..|
00002180  86 2c c8 99 20 22 57 69  6d 70 5f 47 65 74 50 6f  |.,.. "Wimp_GetPo|
00002190  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 70 6f 69 6e  |interInfo",,poin|
000021a0  74 65 72 5f 62 6c 6f 63  6b 25 0d 0b 90 5e e7 20  |ter_block%...^. |
000021b0  28 28 70 6f 69 6e 74 65  72 5f 62 6c 6f 63 6b 25  |((pointer_block%|
000021c0  21 38 29 80 31 29 3d 31  20 8c 20 c8 99 20 22 57  |!8).1)=1 . .. "W|
000021d0  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
000021e0  2c 6d 65 6e 75 25 2c 70  6f 69 6e 74 65 72 5f 62  |,menu%,pointer_b|
000021f0  6c 6f 63 6b 25 21 30 2c  70 6f 69 6e 74 65 72 5f  |lock%!0,pointer_|
00002200  62 6c 6f 63 6b 25 21 34  0d 0b 9a 05 e1 0d 0b a4  |block%!4........|
00002210  05 3a 0d 0b ae 1e dd 20  a4 57 69 6d 70 5f 4d 65  |.:..... .Wimp_Me|
00002220  6e 75 43 68 6f 69 63 65  28 6c 65 76 65 6c 25 29  |nuChoice(level%)|
00002230  0d 0b b8 19 3d 28 77 69  6d 70 25 21 28 34 2a 6c  |....=(wimp%!(4*l|
00002240  65 76 65 6c 25 29 29 2b  31 0d 0b c2 05 3a 0d 0b  |evel%))+1....:..|
00002250  cc 1d dd 20 a4 57 69 6d  70 5f 4d 65 6e 75 43 72  |... .Wimp_MenuCr|
00002260  65 61 74 65 28 6d 65 6e  75 24 29 0d 0b d6 29 e7  |eate(menu$)...).|
00002270  20 6d 65 6e 75 24 3d 22  43 6f 6c 6f 75 72 73 22  | menu$="Colours"|
00002280  20 8c 3d a4 57 69 6d 70  5f 4d 65 6e 75 43 6f 6c  | .=.Wimp_MenuCol|
00002290  6f 75 72 73 0d 0b e0 27  ea 20 6d 65 6e 75 25 2c  |ours...'. menu%,|
000022a0  69 6e 64 65 78 25 2c 77  69 64 74 68 25 2c 6c 65  |index%,width%,le|
000022b0  6e 67 74 68 25 2c 6b 25  2c 73 25 0d 0b ea 2e de  |ngth%,k%,s%.....|
000022c0  20 6d 65 6e 75 25 20 32  38 2b a4 57 69 6d 70 5f  | menu% 28+.Wimp_|
000022d0  4d 65 6e 75 4e 6f 4f 66  45 6e 74 72 69 65 73 28  |MenuNoOfEntries(|
000022e0  6d 65 6e 75 24 29 2a 32  34 0d 0b f4 37 6d 65 6e  |menu$)*24...7men|
000022f0  75 25 3f 31 32 3d 37 20  20 20 3a 20 6d 65 6e 75  |u%?12=7   : menu|
00002300  25 3f 31 33 3d 32 20 20  3a 20 6d 65 6e 75 25 3f  |%?13=2  : menu%?|
00002310  31 34 3d 37 20 3a 6d 65  6e 75 25 3f 31 35 3d 30  |14=7 :menu%?15=0|
00002320  0d 0b fe 2b 6d 65 6e 75  25 21 31 36 3d 31 34 30  |...+menu%!16=140|
00002330  20 3a 20 6d 65 6e 75 25  21 32 30 3d 34 34 20 3a  | : menu%!20=44 :|
00002340  20 6d 65 6e 75 25 21 32  34 3d 30 0d 0c 08 13 69  | menu%!24=0....i|
00002350  6e 64 65 78 25 3d 6d 65  6e 75 25 2b 32 38 0d 0c  |ndex%=menu%+28..|
00002360  12 20 24 6d 65 6e 75 25  3d c0 6d 65 6e 75 24 2c  |. $menu%=.menu$,|
00002370  a7 6d 65 6e 75 24 2c 22  5c 22 29 2d 31 29 0d 0c  |.menu$,"\")-1)..|
00002380  1c 23 77 69 64 74 68 25  3d a9 28 c0 6d 65 6e 75  |.#width%=.(.menu|
00002390  24 2c a7 6d 65 6e 75 24  2c 22 5c 22 29 2d 31 29  |$,.menu$,"\")-1)|
000023a0  29 0d 0c 26 24 6d 65 6e  75 24 2b 3d 22 5c 22 20  |)..&$menu$+="\" |
000023b0  3a 20 4d 65 6e 75 5f 4e  6f 4f 66 45 6e 74 72 69  |: Menu_NoOfEntri|
000023c0  65 73 25 3d 30 0d 0c 30  10 c8 95 20 6d 65 6e 75  |es%=0..0... menu|
000023d0  24 3c 3e 22 22 0d 0c 3a  1f 6d 65 6e 75 24 3d c1  |$<>""..:.menu$=.|
000023e0  6d 65 6e 75 24 2c a7 6d  65 6e 75 24 2c 22 5c 22  |menu$,.menu$,"\"|
000023f0  29 2b 31 29 0d 0c 44 0e  c8 8e 20 6d 65 6e 75 24  |)+1)..D... menu$|
00002400  20 ca 0d 0c 4e 09 20 c9  20 22 22 0d 0c 58 08 20  | ...N. . ""..X. |
00002410  7f 20 3a 0d 0c 62 31 20  20 21 69 6e 64 65 78 25  |. :..b1  !index%|
00002420  3d 30 20 3a 20 69 6e 64  65 78 25 21 34 3d 2d 31  |=0 : index%!4=-1|
00002430  20 3a 20 69 6e 64 65 78  25 21 38 3d 26 37 30 30  | : index%!8=&700|
00002440  30 30 32 31 0d 0c 6c 1b  20 20 6c 65 6e 67 74 68  |0021..l.  length|
00002450  25 3d a7 6d 65 6e 75 24  2c 22 5c 22 29 2d 31 0d  |%=.menu$,"\")-1.|
00002460  0c 76 1e 20 20 6b 25 3d  a7 c0 6d 65 6e 75 24 2c  |.v.  k%=..menu$,|
00002470  6c 65 6e 67 74 68 25 29  2c 22 3e 22 29 0d 0c 80  |length%),">")...|
00002480  0d 20 20 c8 8e 20 6b 25  20 ca 0d 0c 8a 0a 20 20  |.  .. k% .....  |
00002490  20 c9 20 30 0d 0c 94 08  20 20 20 7f 0d 0c 9e 25  | . 0....   ....%|
000024a0  20 20 20 20 73 25 3d a0  28 c1 6d 65 6e 75 24 2c  |    s%=.(.menu$,|
000024b0  6b 25 2b 31 2c 6c 65 6e  67 74 68 25 2d 6b 25 29  |k%+1,length%-k%)|
000024c0  29 0d 0c a8 13 20 20 20  20 69 6e 64 65 78 25 21  |)....    index%!|
000024d0  34 3d 73 25 0d 0c b2 14  20 20 20 20 6c 65 6e 67  |4=s%....    leng|
000024e0  74 68 25 3d 6b 25 2d 31  0d 0c bc 07 20 20 cb 0d  |th%=k%-1....  ..|
000024f0  0c c6 22 20 20 24 28 69  6e 64 65 78 25 2b 31 32  |.."  $(index%+12|
00002500  29 3d c0 6d 65 6e 75 24  2c 6c 65 6e 67 74 68 25  |)=.menu$,length%|
00002510  29 0d 0c d0 27 20 20 e7  20 6c 65 6e 67 74 68 25  |)...'  . length%|
00002520  3e 77 69 64 74 68 25 20  8c 20 77 69 64 74 68 25  |>width% . width%|
00002530  3d 6c 65 6e 67 74 68 25  0d 0c da 10 20 20 69 6e  |=length%....  in|
00002540  64 65 78 25 2b 3d 32 34  0d 0c e4 05 cb 0d 0c ee  |dex%+=24........|
00002550  05 ce 0d 0c f8 1a 6d 65  6e 75 25 21 31 36 3d 31  |......menu%!16=1|
00002560  36 2a 28 77 69 64 74 68  25 2b 31 29 0d 0d 02 28  |6*(width%+1)...(|
00002570  69 6e 64 65 78 25 21 2d  32 34 3d 69 6e 64 65 78  |index%!-24=index|
00002580  25 21 2d 32 34 20 84 20  26 38 30 20 3a 20 3d 6d  |%!-24 . &80 : =m|
00002590  65 6e 75 25 0d 0d 0c 05  3a 0d 0d 16 17 dd 20 a4  |enu%....:..... .|
000025a0  57 69 6d 70 5f 4d 65 6e  75 43 6f 6c 6f 75 72 73  |Wimp_MenuColours|
000025b0  0d 0d 20 21 3d a4 57 69  6d 70 5f 4d 65 6e 75 43  |.. !=.Wimp_MenuC|
000025c0  72 65 61 74 65 43 6f 6c  6f 75 72 73 28 22 20 22  |reateColours(" "|
000025d0  29 0d 0d 2a 05 3a 0d 0d  34 25 dd 20 a4 57 69 6d  |)..*.:..4%. .Wim|
000025e0  70 5f 4d 65 6e 75 43 72  65 61 74 65 43 6f 6c 6f  |p_MenuCreateColo|
000025f0  75 72 73 28 74 69 74 6c  65 24 29 0d 0d 3e 13 ea  |urs(title$)..>..|
00002600  20 78 24 2c 6d 65 6e 25  2c 6a 25 2c 69 25 0d 0d  | x$,men%,j%,i%..|
00002610  48 36 78 24 3d 74 69 74  6c 65 24 2b 22 5c 30 5c  |H6x$=title$+"\0\|
00002620  31 5c 32 5c 33 5c 34 5c  35 5c 36 5c 37 5c 38 5c  |1\2\3\4\5\6\7\8\|
00002630  39 5c 31 30 5c 31 31 5c  31 32 5c 31 33 5c 31 34  |9\10\11\12\13\14|
00002640  5c 31 35 22 0d 0d 52 1d  6d 65 6e 25 3d a4 57 69  |\15"..R.men%=.Wi|
00002650  6d 70 5f 4d 65 6e 75 43  72 65 61 74 65 28 78 24  |mp_MenuCreate(x$|
00002660  29 0d 0d 5c 0f e3 20 69  25 3d 30 20 b8 20 31 35  |)..\.. i%=0 . 15|
00002670  0d 0d 66 0a c8 8e 20 b9  20 ca 0d 0d 70 28 c9 20  |..f... . ...p(. |
00002680  69 25 3c 34 2c 69 25 3d  39 2c 69 25 3d 31 32 2c  |i%<4,i%=9,i%=12,|
00002690  69 25 3d 31 34 2c 69 25  3d 31 35 20 3a 20 6a 25  |i%=14,i%=15 : j%|
000026a0  3d 37 0d 0d 7a 0c 7f 20  3a 20 6a 25 3d 30 0d 0d  |=7..z.. : j%=0..|
000026b0  84 05 cb 0d 0d 8e 1c 6d  65 6e 25 3f 28 33 39 2b  |.......men%?(39+|
000026c0  69 25 2a 32 34 29 3d 69  25 2a 31 36 2b 6a 25 0d  |i%*24)=i%*16+j%.|
000026d0  0d 98 1f f2 57 69 6d 70  5f 4d 65 6e 75 43 65 6e  |....Wimp_MenuCen|
000026e0  74 72 65 28 6d 65 6e 25  2c 69 25 2b 31 29 0d 0d  |tre(men%,i%+1)..|
000026f0  a2 05 ed 0d 0d ac 09 3d  6d 65 6e 25 0d 0d b6 05  |.......=men%....|
00002700  3a 0d 0d c0 22 dd 20 a4  57 69 6d 70 5f 4d 65 6e  |:...". .Wimp_Men|
00002710  75 4e 6f 4f 66 45 6e 74  72 69 65 73 28 6d 65 6e  |uNoOfEntries(men|
00002720  75 24 29 0d 0d ca 1a ea  20 6e 25 20 2c 6a 25 20  |u$)..... n% ,j% |
00002730  3a 20 6e 25 3d 30 20 3a  20 6a 25 3d 30 0d 0d d4  |: n%=0 : j%=0...|
00002740  05 f5 0d 0d de 17 6a 25  3d a7 6d 65 6e 75 24 2c  |......j%=.menu$,|
00002750  22 5c 22 2c 6a 25 2b 31  29 0d 0d e8 13 e7 20 6a  |"\",j%+1)..... j|
00002760  25 3c 3e 30 20 8c 20 6e  25 2b 3d 31 0d 0d f2 0a  |%<>0 . n%+=1....|
00002770  fd 20 6a 25 3d 30 0d 0d  fc 07 3d 6e 25 0d 0e 06  |. j%=0....=n%...|
00002780  05 3a 0d 0e 10 35 dd 20  f2 57 69 6d 70 5f 4d 65  |.:...5. .Wimp_Me|
00002790  6e 75 42 61 63 6b 47 72  6f 75 6e 64 43 6f 6c 6f  |nuBackGroundColo|
000027a0  75 72 28 6d 65 6e 75 25  2c 69 74 65 6d 25 2c 63  |ur(menu%,item%,c|
000027b0  6f 6c 6f 75 72 25 29 0d  0e 1a 0e ea 20 66 6f 72  |olour%)..... for|
000027c0  65 25 2c 69 25 0d 0e 24  26 66 6f 72 65 25 3d 28  |e%,i%..$&fore%=(|
000027d0  6d 65 6e 75 25 3f 28 33  39 2b 28 69 74 65 6d 25  |menu%?(39+(item%|
000027e0  2d 31 29 2a 32 34 29 29  83 31 36 0d 0e 2e 28 69  |-1)*24)).16...(i|
000027f0  25 3d 28 28 6d 65 6e 75  25 3f 28 33 39 2b 28 69  |%=((menu%?(39+(i|
00002800  74 65 6d 25 2d 31 29 2a  32 34 29 29 81 31 36 29  |tem%-1)*24)).16)|
00002810  83 31 36 0d 0e 38 2f 6d  65 6e 75 25 3f 28 33 39  |.16..8/menu%?(39|
00002820  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 66  |+(item%-1)*24)=f|
00002830  6f 72 65 25 2b 31 36 2a  63 6f 6c 6f 75 72 25 2b  |ore%+16*colour%+|
00002840  69 25 0d 0e 42 05 e1 0d  0e 4c 05 3a 0d 0e 56 23  |i%..B....L.:..V#|
00002850  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 43 65 6e 74  |. .Wimp_MenuCent|
00002860  72 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |re(menu%,item%).|
00002870  0e 60 3a 6d 65 6e 75 25  21 28 33 36 2b 28 69 74  |.`:menu%!(36+(it|
00002880  65 6d 25 2d 31 29 2a 32  34 29 3d 6d 65 6e 75 25  |em%-1)*24)=menu%|
00002890  21 28 33 36 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(36+(item%-1)*2|
000028a0  34 29 84 28 31 3c 3c 33  29 0d 0e 6a 05 e1 0d 0e  |4).(1<<3)..j....|
000028b0  74 05 3a 0d 0e 7e 15 dd  20 f2 57 69 6d 70 5f 4d  |t.:..~.. .Wimp_M|
000028c0  65 6e 75 43 6c 6f 73 65  0d 0e 88 1b c8 99 20 22  |enuClose...... "|
000028d0  57 69 6d 70 5f 43 72 65  61 74 65 4d 65 6e 75 22  |Wimp_CreateMenu"|
000028e0  2c 2d 31 0d 0e 92 05 e1  0d 0e 9c 05 3a 0d 0e a6  |,-1.........:...|
000028f0  24 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 44 69 73  |$. .Wimp_MenuDis|
00002900  61 62 6c 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |able(menu%,item%|
00002910  29 0d 0e b0 3b 6d 65 6e  75 25 21 28 33 36 2b 28  |)...;menu%!(36+(|
00002920  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 6d 65 6e  |item%-1)*24)=men|
00002930  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
00002940  2a 32 34 29 84 28 31 3c  3c 32 32 29 0d 0e ba 05  |*24).(1<<22)....|
00002950  e1 0d 0e c4 05 3a 0d 0e  ce 27 dd 20 f2 57 69 6d  |.....:...'. .Wim|
00002960  70 5f 4d 65 6e 75 44 6f  74 74 65 64 4c 69 6e 65  |p_MenuDottedLine|
00002970  28 6d 65 6e 75 25 2c 69  74 65 6d 25 29 0d 0e d8  |(menu%,item%)...|
00002980  37 6d 65 6e 75 25 21 28  32 38 2b 28 69 74 65 6d  |7menu%!(28+(item|
00002990  25 2d 31 29 2a 32 34 29  3d 28 6d 65 6e 75 25 21  |%-1)*24)=(menu%!|
000029a0  28 32 38 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(28+(item%-1)*24|
000029b0  29 29 84 32 0d 0e e2 05  e1 0d 0e ec 05 3a 0d 0e  |)).2.........:..|
000029c0  f6 23 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 45 6e  |.#. .Wimp_MenuEn|
000029d0  61 62 6c 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |able(menu%,item%|
000029e0  29 0d 0f 00 22 f2 57 69  6d 70 5f 4d 65 6e 75 44  |)...".Wimp_MenuD|
000029f0  69 73 61 62 6c 65 28 6d  65 6e 75 25 2c 69 74 65  |isable(menu%,ite|
00002a00  6d 25 29 0d 0f 0a 3b 6d  65 6e 75 25 21 28 33 36  |m%)...;menu%!(36|
00002a10  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 6d  |+(item%-1)*24)=m|
00002a20  65 6e 75 25 21 28 33 36  2b 28 69 74 65 6d 25 2d  |enu%!(36+(item%-|
00002a30  31 29 2a 32 34 29 82 28  31 3c 3c 32 32 29 0d 0f  |1)*24).(1<<22)..|
00002a40  14 05 e1 0d 0f 1e 05 3a  0d 0f 28 35 dd 20 f2 57  |.......:..(5. .W|
00002a50  69 6d 70 5f 4d 65 6e 75  46 6f 72 65 67 72 6f 75  |imp_MenuForegrou|
00002a60  6e 64 43 6f 6c 6f 75 72  28 6d 65 6e 75 25 2c 69  |ndColour(menu%,i|
00002a70  74 65 6d 25 2c 63 6f 6c  6f 75 72 25 29 0d 0f 32  |tem%,colour%)..2|
00002a80  45 6d 65 6e 75 25 3f 28  33 39 2b 28 69 74 65 6d  |Emenu%?(39+(item|
00002a90  25 2d 31 29 2a 32 34 29  3d 63 6f 6c 6f 75 72 25  |%-1)*24)=colour%|
00002aa0  2b 31 36 2a 28 28 6d 65  6e 75 25 3f 28 33 39 2b  |+16*((menu%?(39+|
00002ab0  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 81 31  |(item%-1)*24)).1|
00002ac0  36 29 0d 0f 3c 05 e1 0d  0f 46 05 3a 0d 0f 50 29  |6)..<....F.:..P)|
00002ad0  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 47 6c 75 65  |. .Wimp_MenuGlue|
00002ae0  28 6d 65 6e 75 31 25 2c  69 74 65 6d 25 2c 6d 65  |(menu1%,item%,me|
00002af0  6e 75 32 25 29 0d 0f 5a  1e 6d 65 6e 75 31 25 21  |nu2%)..Z.menu1%!|
00002b00  28 38 2b 69 74 65 6d 25  2a 32 34 29 3d 6d 65 6e  |(8+item%*24)=men|
00002b10  75 32 25 0d 0f 64 05 e1  0d 0f 6e 05 3a 0d 0f 78  |u2%..d....n.:..x|
00002b20  27 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 49 74 65  |'. .Wimp_MenuIte|
00002b30  6d 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 69 74  |m(menu%,item%,it|
00002b40  65 6d 24 29 0d 0f 82 2c  24 28 6d 65 6e 75 25 2b  |em$)...,$(menu%+|
00002b50  28 34 30 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(40+(item%-1)*24|
00002b60  29 29 3d c0 69 74 65 6d  24 2c 31 32 29 2b bd 30  |))=.item$,12)+.0|
00002b70  0d 0f 8c 05 e1 0d 0f 96  05 3a 0d 0f a0 24 dd 20  |.........:...$. |
00002b80  f2 57 69 6d 70 5f 4d 65  6e 75 4d 65 73 73 61 67  |.Wimp_MenuMessag|
00002b90  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 0f  |e(menu%,item%)..|
00002ba0  aa 3c 6d 65 6e 75 25 21  28 32 38 2b 28 69 74 65  |.<menu%!(28+(ite|
00002bb0  6d 25 2d 31 29 2a 32 34  29 3d 28 6d 65 6e 75 25  |m%-1)*24)=(menu%|
00002bc0  21 28 32 38 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(28+(item%-1)*2|
00002bd0  34 29 29 82 28 31 3c 3c  33 29 0d 0f b4 05 e1 0d  |4)).(1<<3)......|
00002be0  0f be 05 3a 0d 0f c8 22  dd 20 f2 57 69 6d 70 5f  |...:...". .Wimp_|
00002bf0  4d 65 6e 75 50 6f 70 55  70 28 4d 65 6e 75 25 2c  |MenuPopUp(Menu%,|
00002c00  78 25 2c 79 25 29 0d 0f  d2 0f 6d 65 6e 75 25 3d  |x%,y%)....menu%=|
00002c10  4d 65 6e 75 25 0d 0f dc  2b c8 99 20 22 57 69 6d  |Menu%...+.. "Wim|
00002c20  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
00002c30  65 6e 75 25 2c 78 25 2d  36 34 2c 79 25 2b 32 30  |enu%,x%-64,y%+20|
00002c40  0d 0f e6 05 e1 0d 0f f0  05 3a 0d 0f fa 1f dd 20  |.........:..... |
00002c50  f2 57 69 6d 70 5f 4d 65  6e 75 50 6f 70 55 70 42  |.Wimp_MenuPopUpB|
00002c60  61 72 28 78 25 2c 79 25  29 0d 10 04 0f ea 20 6e  |ar(x%,y%)..... n|
00002c70  25 20 3a 20 6e 25 3d 30  0d 10 0e 2b c8 95 20 28  |% : n%=0...+.. (|
00002c80  28 42 61 72 5f 4d 65 6e  75 25 21 28 32 38 2b 6e  |(Bar_Menu%!(28+n|
00002c90  25 2a 32 34 29 29 80 25  31 30 30 30 30 30 30 30  |%*24)).%10000000|
00002ca0  29 3d 30 0d 10 18 09 6e  25 2b 3d 31 0d 10 22 05  |)=0....n%+=1..".|
00002cb0  ce 0d 10 2c 32 c8 99 20  22 57 69 6d 70 5f 43 72  |...,2.. "Wimp_Cr|
00002cc0  65 61 74 65 4d 65 6e 75  22 2c 2c 42 61 72 5f 4d  |eateMenu",,Bar_M|
00002cd0  65 6e 75 25 2c 78 25 2d  36 34 2c 39 36 2b 6e 25  |enu%,x%-64,96+n%|
00002ce0  2a 34 34 0d 10 36 13 6d  65 6e 75 25 3d 42 61 72  |*44..6.menu%=Bar|
00002cf0  5f 4d 65 6e 75 25 0d 10  40 05 e1 0d 10 4a 05 3a  |_Menu%..@....J.:|
00002d00  0d 10 54 21 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..T!. .Wimp_Menu|
00002d10  54 69 63 6b 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |Tick(menu%,item%|
00002d20  29 0d 10 5e 37 6d 65 6e  75 25 21 28 32 38 2b 28  |)..^7menu%!(28+(|
00002d30  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 28 6d 65  |item%-1)*24)=(me|
00002d40  6e 75 25 21 28 32 38 2b  28 69 74 65 6d 25 2d 31  |nu%!(28+(item%-1|
00002d50  29 2a 32 34 29 29 82 31  0d 10 68 05 e1 0d 10 72  |)*24)).1..h....r|
00002d60  05 3a 0d 10 7c 23 dd 20  f2 57 69 6d 70 5f 4d 65  |.:..|#. .Wimp_Me|
00002d70  6e 75 54 69 74 6c 65 28  6d 65 6e 75 25 2c 74 69  |nuTitle(menu%,ti|
00002d80  74 6c 65 24 29 0d 10 86  19 24 6d 65 6e 75 25 3d  |tle$)....$menu%=|
00002d90  c0 74 69 74 6c 65 24 2c  31 32 29 2b bd 30 0d 10  |.title$,12)+.0..|
00002da0  90 05 e1 0d 10 9a 05 3a  0d 10 a4 3d dd 20 f2 57  |.......:...=. .W|
00002db0  69 6d 70 5f 4d 65 6e 75  57 72 69 74 65 28 6d 65  |imp_MenuWrite(me|
00002dc0  6e 75 25 2c 69 74 65 6d  25 2c 62 75 66 66 65 72  |nu%,item%,buffer|
00002dd0  25 2c 76 61 6c 25 2c 42  75 66 66 65 72 4c 65 6e  |%,val%,BufferLen|
00002de0  67 74 68 25 29 0d 10 ae  37 6d 65 6e 75 25 21 28  |gth%)...7menu%!(|
00002df0  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
00002e00  3d 28 6d 65 6e 75 25 21  28 32 38 2b 28 69 74 65  |=(menu%!(28+(ite|
00002e10  6d 25 2d 31 29 2a 32 34  29 29 84 34 0d 10 b8 38  |m%-1)*24)).4...8|
00002e20  6d 65 6e 75 25 21 28 33  36 2b 28 69 74 65 6d 25  |menu%!(36+(item%|
00002e30  2d 31 29 2a 32 34 29 3d  6d 65 6e 75 25 21 28 33  |-1)*24)=menu%!(3|
00002e40  36 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 84  |6+(item%-1)*24).|
00002e50  26 31 30 30 0d 10 c2 23  6d 65 6e 75 25 21 28 34  |&100...#menu%!(4|
00002e60  30 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |0+(item%-1)*24)=|
00002e70  62 75 66 66 65 72 25 0d  10 cc 20 6d 65 6e 75 25  |buffer%... menu%|
00002e80  21 28 34 34 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(44+(item%-1)*2|
00002e90  34 29 3d 76 61 6c 25 0d  10 d6 29 6d 65 6e 75 25  |4)=val%...)menu%|
00002ea0  21 28 34 38 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(48+(item%-1)*2|
00002eb0  34 29 3d 42 75 66 66 65  72 4c 65 6e 67 74 68 25  |4)=BufferLength%|
00002ec0  0d 10 e0 05 e1 0d 10 ea  05 3a 0d 10 f4 06 f4 7c  |.........:.....||
00002ed0  0d 10 fe 06 f4 7c 0d 11  08 06 f4 7c 0d 11 12 31  |.....|.....|...1|
00002ee0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00002ef0  20 20 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    ------------|
00002f00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 11 1c  |-------------...|
00002f10  2a f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |*.|             |
00002f20  20 20 20 20 20 20 20 20  20 20 20 20 20 34 2e a0  |             4..|
00002f30  53 70 72 69 74 65 73 0d  11 26 31 f4 7c 20 20 20  |Sprites..&1.|   |
00002f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00002f50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002f60  2d 2d 2d 2d 2d 2d 2d 2d  0d 11 30 06 f4 7c 0d 11  |--------..0..|..|
00002f70  3a 06 f4 7c 0d 11 44 3a  f4 7c 20 20 20 20 20 20  |:..|..D:.|      |
00002f80  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
00002f90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002fa0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 11  |--------------..|
00002fb0  4e 06 f4 7c 0d 11 58 28  f4 7c 20 20 20 20 20 20  |N..|..X(.|      |
00002fc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002fd0  50 72 6f 63 65 64 75 72  65 73 20 3a 0d 11 62 06  |Procedures :..b.|
00002fe0  f4 7c 0d 11 6c 06 f4 7c  0d 11 76 2c f4 7c 20 20  |.|..l..|..v,.|  |
00002ff0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003000  50 52 4f 43 57 69 6d 70  5f 53 70 72 69 74 65 73  |PROCWimp_Sprites|
00003010  4c 6f 61 64 0d 11 80 3a  f4 7c 20 20 20 20 20 20  |Load...:.|      |
00003020  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
00003030  57 69 6d 70 5f 53 70 72  69 74 65 73 50 61 74 68  |Wimp_SpritesPath|
00003040  4c 6f 61 64 28 70 61 74  68 6e 61 6d 65 24 0d 11  |Load(pathname$..|
00003050  8a 06 f4 7c 0d 11 94 06  f4 7c 0d 11 9e 06 f4 7c  |...|.....|.....||
00003060  0d 11 a8 3a f4 7c 20 20  20 20 20 20 20 20 20 20  |...:.|          |
00003070  20 20 20 20 20 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |      ----------|
00003080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003090  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 11 b2 06 f4 7c  |----------.....||
000030a0  0d 11 bc 05 3a 0d 11 c6  17 dd 20 f2 57 69 6d 70  |....:..... .Wimp|
000030b0  5f 53 70 72 69 74 65 73  4c 6f 61 64 0d 11 d0 2f  |_SpritesLoad.../|
000030c0  f2 57 69 6d 70 5f 53 70  72 69 74 65 73 50 61 74  |.Wimp_SpritesPat|
000030d0  68 4c 6f 61 64 28 22 3c  4f 62 65 79 24 44 69 72  |hLoad("<Obey$Dir|
000030e0  3e 2e 53 70 72 69 74 65  73 22 29 0d 11 da 1c 64  |>.Sprites")....d|
000030f0  69 72 65 63 74 5f 73 70  72 69 74 65 73 25 3d 73  |irect_sprites%=s|
00003100  70 72 69 74 65 73 25 0d  11 e4 05 e1 0d 11 ee 05  |prites%.........|
00003110  3a 0d 11 f8 26 dd 20 f2  57 69 6d 70 5f 53 70 72  |:...&. .Wimp_Spr|
00003120  69 74 65 73 50 61 74 68  4c 6f 61 64 28 70 61 74  |itesPathLoad(pat|
00003130  68 6e 61 6d 65 24 29 0d  12 02 0a ea 53 25 2c 54  |hname$).....S%,T|
00003140  25 0d 12 0c 2c 53 25 3d  8e 22 3c 4f 62 65 79 24  |%...,S%=."<Obey$|
00003150  44 69 72 3e 2e 53 70 72  69 74 65 73 22 3a 54 25  |Dir>.Sprites":T%|
00003160  3d a2 23 53 25 2b 31 36  3a d9 23 53 25 0d 12 16  |=.#S%+16:.#S%...|
00003170  19 de 73 70 72 69 74 65  73 25 54 25 2c 73 70 6e  |..sprites%T%,spn|
00003180  61 6d 65 25 31 32 0d 12  20 1d 21 73 70 72 69 74  |ame%12.. .!sprit|
00003190  65 73 25 3d 54 25 3a 73  70 72 69 74 65 73 25 21  |es%=T%:sprites%!|
000031a0  38 3d 30 0d 12 2a 21 c8  99 22 4f 53 5f 53 70 72  |8=0..*!.."OS_Spr|
000031b0  69 74 65 4f 70 22 2c 26  31 30 39 2c 73 70 72 69  |iteOp",&109,spri|
000031c0  74 65 73 25 0d 12 34 2b  c8 99 22 4f 53 5f 53 70  |tes%..4+.."OS_Sp|
000031d0  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 73 70 72  |riteOp",&10A,spr|
000031e0  69 74 65 73 25 2c 70 61  74 68 6e 61 6d 65 24 0d  |ites%,pathname$.|
000031f0  12 3e 05 e1 0d 12 48 05  3a 0d 12 52 06 f4 7c 0d  |.>....H.:..R..|.|
00003200  12 5c 06 f4 7c 0d 12 66  06 f4 7c 0d 12 70 31 f4  |.\..|..f..|..p1.|
00003210  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00003220  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00003230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 12 7a 28  |------------..z(|
00003240  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00003250  20 20 20 20 20 20 20 20  20 20 20 20 35 2e a0 46  |            5..F|
00003260  69 6c 65 73 0d 12 84 31  f4 7c 20 20 20 20 20 20  |iles...1.|      |
00003270  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00003280  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003290  2d 2d 2d 2d 2d 0d 12 8e  06 f4 7c 0d 12 98 06 f4  |-----.....|.....|
000032a0  7c 0d 12 a2 35 f4 7c 20  20 20 20 20 20 20 20 20  ||...5.|         |
000032b0  20 20 20 20 20 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |       ---------|
000032c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000032d0  2d 2d 2d 2d 2d 2d 0d 12  ac 06 f4 7c 0d 12 b6 28  |------.....|...(|
000032e0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
000032f0  20 20 20 20 20 20 20 20  50 72 6f 63 65 64 75 72  |        Procedur|
00003300  65 73 20 3a 0d 12 c0 06  f4 7c 0d 12 ca 06 f4 7c  |es :.....|.....||
00003310  0d 12 d4 2e f4 7c 20 20  20 20 20 20 20 20 20 20  |.....|          |
00003320  20 20 20 20 20 20 20 20  46 4e 57 69 6d 70 5f 46  |        FNWimp_F|
00003330  69 6c 65 54 79 70 65 28  74 79 70 65 25 29 0d 12  |ileType(type%)..|
00003340  de 2e f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |...|            |
00003350  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 47 65 74  |      FNWimp_Get|
00003360  46 69 6c 65 50 61 74 68  4e 61 6d 65 0d 12 e8 32  |FilePathName...2|
00003370  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00003380  20 20 20 20 46 4e 57 69  6d 70 5f 46 69 6c 65 4c  |    FNWimp_FileL|
00003390  6f 61 64 28 70 61 74 68  6e 61 6d 65 24 29 0d 12  |oad(pathname$)..|
000033a0  f2 39 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.9.|            |
000033b0  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 47 65 74  |      FNWimp_Get|
000033c0  53 74 72 69 6e 67 41 74  41 64 64 72 65 73 73 28  |StringAtAddress(|
000033d0  61 72 72 61 79 25 29 0d  12 fc 36 f4 7c 20 20 20  |array%)...6.|   |
000033e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |               F|
000033f0  4e 57 69 6d 70 5f 47 65  74 46 69 6c 65 46 72 6f  |NWimp_GetFileFro|
00003400  6d 50 61 74 68 6e 61 6d  65 28 66 24 29 0d 13 06  |mPathname(f$)...|
00003410  32 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |2.|             |
00003420  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 53 65  |     PROCWimp_Se|
00003430  6e 64 54 6f 45 64 69 74  28 66 69 6c 65 24 29 0d  |ndToEdit(file$).|
00003440  13 10 06 f4 7c 0d 13 1a  35 f4 7c 20 20 20 20 20  |....|...5.|     |
00003450  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
00003460  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003470  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 13 24 06 f4 7c  |----------..$..||
00003480  0d 13 2e 06 f4 7c 0d 13  38 06 f4 7c 0d 13 42 05  |.....|..8..|..B.|
00003490  3a 0d 13 4c 1b dd 20 a4  57 69 6d 70 5f 46 69 6c  |:..L.. .Wimp_Fil|
000034a0  65 54 79 70 65 28 74 79  70 65 25 29 0d 13 56 0c  |eType(type%)..V.|
000034b0  c8 8e 74 79 70 65 25 ca  0d 13 60 11 c9 26 46 46  |..type%...`..&FF|
000034c0  46 3a 3d 22 54 65 78 74  22 0d 13 6a 11 c9 26 46  |F:="Text"..j..&F|
000034d0  46 44 3a 3d 22 44 61 74  61 22 0d 13 74 12 c9 26  |FD:="Data"..t..&|
000034e0  46 46 42 3a 3d 22 42 61  73 69 63 22 0d 13 7e 13  |FFB:="Basic"..~.|
000034f0  c9 26 46 46 39 3a 3d 22  53 70 72 69 74 65 22 0d  |.&FF9:="Sprite".|
00003500  13 88 14 c9 26 46 45 44  3a 3d 22 50 61 6c 65 74  |....&FED:="Palet|
00003510  74 65 22 0d 13 92 15 c9  26 46 45 43 3a 3d 22 54  |te".....&FEC:="T|
00003520  65 6d 70 6c 61 74 65 22  0d 13 9c 11 c9 26 41 46  |emplate".....&AF|
00003530  46 3a 3d 22 44 72 61 77  22 0d 13 a6 14 c9 26 31  |F:="Draw".....&1|
00003540  30 30 30 3a 3d 22 46 6f  6c 64 65 72 22 0d 13 b0  |000:="Folder"...|
00003550  19 c9 26 32 30 30 30 3a  3d 22 41 70 70 6c 69 63  |..&2000:="Applic|
00003560  61 74 69 6f 6e 22 0d 13  ba 0f 7f 3d c3 7e 28 74  |ation".....=.~(t|
00003570  79 70 65 25 29 0d 13 c4  05 cb 0d 13 ce 05 3a 0d  |ype%).........:.|
00003580  13 d8 1b dd 20 a4 57 69  6d 70 5f 47 65 74 46 69  |.... .Wimp_GetFi|
00003590  6c 65 50 61 74 68 4e 61  6d 65 0d 13 e2 27 3d a4  |lePathName...'=.|
000035a0  57 69 6d 70 5f 47 65 74  53 74 72 69 6e 67 41 74  |Wimp_GetStringAt|
000035b0  41 64 64 72 65 73 73 28  77 69 6d 70 25 2b 34 34  |Address(wimp%+44|
000035c0  29 0d 13 ec 05 3a 0d 13  f6 1f dd 20 a4 57 69 6d  |)....:..... .Wim|
000035d0  70 5f 46 69 6c 65 4c 6f  61 64 28 70 61 74 68 6e  |p_FileLoad(pathn|
000035e0  61 6d 65 24 29 0d 14 00  10 ea 53 25 2c 54 25 2c  |ame$).....S%,T%,|
000035f0  66 69 6c 65 25 0d 14 0a  11 53 25 3d 8e 70 61 74  |file%....S%=.pat|
00003600  68 6e 61 6d 65 24 0d 14  14 0e 54 25 3d a2 23 53  |hname$....T%=.#S|
00003610  25 2b 31 36 0d 14 1e 08  d9 23 53 25 0d 14 28 0c  |%+16.....#S%..(.|
00003620  de 66 69 6c 65 25 54 25  0d 14 32 22 ff 28 22 4c  |.file%T%..2".("L|
00003630  4f 41 44 22 2b 70 61 74  68 6e 61 6d 65 24 2b 22  |OAD"+pathname$+"|
00003640  22 2b c3 7e 66 69 6c 65  25 29 0d 14 3c 0a 3d 66  |"+.~file%)..<.=f|
00003650  69 6c 65 25 0d 14 46 05  3b 0d 14 50 26 dd 20 a4  |ile%..F.;..P&. .|
00003660  57 69 6d 70 5f 47 65 74  53 74 72 69 6e 67 41 74  |Wimp_GetStringAt|
00003670  41 64 64 72 65 73 73 28  61 72 72 61 79 25 29 0d  |Address(array%).|
00003680  14 5a 0d ea 73 24 3a 73  24 3d 22 22 0d 14 64 3c  |.Z..s$:s$=""..d<|
00003690  c8 95 28 3f 61 72 72 61  79 25 3c 3e 31 33 29 80  |..(?array%<>13).|
000036a0  28 3f 61 72 72 61 79 25  3c 3e 30 29 3a 73 24 2b  |(?array%<>0):s$+|
000036b0  3d bd 28 3f 61 72 72 61  79 25 29 3a 61 72 72 61  |=.(?array%):arra|
000036c0  79 25 2b 3d 31 3a ce 3a  0d 14 6e 07 3d 73 24 0d  |y%+=1:.:..n.=s$.|
000036d0  14 78 05 3a 0d 14 82 23  dd 20 a4 57 69 6d 70 5f  |.x.:...#. .Wimp_|
000036e0  47 65 74 46 69 6c 65 46  72 6f 6d 50 61 74 68 6e  |GetFileFromPathn|
000036f0  61 6d 65 28 66 24 29 0d  14 8c 11 c8 8e 20 a7 66  |ame(f$)...... .f|
00003700  24 2c 22 2e 22 29 20 ca  0d 14 96 10 20 c9 20 30  |$,".") ..... . 0|
00003710  20 20 20 20 3a 3d 66 24  0d 14 a0 37 20 7f 20 3a  |    :=f$...7 . :|
00003720  3d a4 57 69 6d 70 5f 47  65 74 46 69 6c 65 46 72  |=.Wimp_GetFileFr|
00003730  6f 6d 50 61 74 68 6e 61  6d 65 28 c2 66 24 2c a9  |omPathname(.f$,.|
00003740  28 66 24 29 2d a7 66 24  2c 22 2e 22 29 29 29 0d  |(f$)-.f$,"."))).|
00003750  14 aa 05 cb 0d 14 b4 05  3a 0d 14 be 1d dd 20 f2  |........:..... .|
00003760  57 69 6d 70 5f 53 65 6e  64 54 6f 45 64 69 74 28  |Wimp_SendToEdit(|
00003770  66 69 6c 65 24 29 0d 14  c8 08 ea 20 6e 25 0d 14  |file$)..... n%..|
00003780  d2 15 77 69 6d 70 25 21  34 3d 26 36 43 43 30 31  |..wimp%!4=&6CC01|
00003790  43 30 43 0d 14 dc 0e 77  69 6d 70 25 21 31 36 3d  |C0C....wimp%!16=|
000037a0  35 0d 14 e6 0e 77 69 6d  70 25 21 33 36 3d 30 0d  |5....wimp%!36=0.|
000037b0  14 f0 11 77 69 6d 70 25  21 34 30 3d 26 46 46 46  |...wimp%!40=&FFF|
000037c0  0d 14 fa 18 24 28 77 69  6d 70 25 2b 34 34 29 3d  |....$(wimp%+44)=|
000037d0  66 69 6c 65 24 2b bd 30  0d 15 04 10 6e 25 3d a9  |file$+.0....n%=.|
000037e0  66 69 6c 65 24 2b 34 35  0d 15 0e 2c e7 20 6e 25  |file$+45...,. n%|
000037f0  83 34 20 8c 20 21 77 69  6d 70 25 3d 34 2b 28 6e  |.4 . !wimp%=4+(n|
00003800  25 3e 3e 32 29 3c 3c 32  20 8b 20 21 77 69 6d 70  |%>>2)<<2 . !wimp|
00003810  25 3d 6e 25 0d 15 18 24  c8 99 20 22 57 69 6d 70  |%=n%...$.. "Wimp|
00003820  5f 53 65 6e 64 4d 65 73  73 61 67 65 22 2c 31 37  |_SendMessage",17|
00003830  2c 77 69 6d 70 25 2c 30  0d 15 22 05 e1 0d 15 2c  |,wimp%,0.."....,|
00003840  05 3a 0d 15 36 06 f4 7c  0d 15 40 06 f4 7c 0d 15  |.:..6..|..@..|..|
00003850  4a 06 f4 7c 0d 15 54 31  f4 7c 20 20 20 20 20 20  |J..|..T1.|      |
00003860  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00003870  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003880  2d 2d 2d 2d 2d 0d 15 5e  2c f4 7c 20 20 20 20 20  |-----..^,.|     |
00003890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000038a0  20 35 2e a0 4d 69 73 63  65 6c 6c 61 6e 65 6f 75  | 5..Miscellaneou|
000038b0  73 0d 15 68 31 f4 7c 20  20 20 20 20 20 20 20 20  |s..h1.|         |
000038c0  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
000038d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000038e0  2d 2d 0d 15 72 06 f4 7c  0d 15 7c 06 f4 7c 0d 15  |--..r..|..|..|..|
000038f0  86 35 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.5.|            |
00003900  20 20 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |    ------------|
00003910  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003920  2d 2d 2d 0d 15 90 06 f4  7c 0d 15 9a 28 f4 7c 20  |---.....|...(.| |
00003930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003940  20 20 20 20 20 50 72 6f  63 65 64 75 72 65 73 20  |     Procedures |
00003950  3a 0d 15 a4 06 f4 7c 0d  15 ae 06 f4 7c 0d 15 b8  |:.....|.....|...|
00003960  31 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |1.|             |
00003970  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 53 74  |     PROCWimp_St|
00003980  61 72 74 28 54 61 73 6b  4e 61 6d 65 24 29 0d 15  |art(TaskName$)..|
00003990  c2 2e f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |...|            |
000039a0  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 42 41 53  |      FNWimp_BAS|
000039b0  49 43 50 61 72 61 6d 65  74 65 72 73 0d 15 cc 32  |ICParameters...2|
000039c0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
000039d0  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 53 65 74  |    PROCWimp_Set|
000039e0  45 76 65 6e 74 56 61 72  69 61 62 6c 65 73 0d 15  |EventVariables..|
000039f0  d6 37 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.7.|            |
00003a00  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 45  |      PROCWimp_E|
00003a10  72 72 6f 72 28 74 61 73  6b 25 2c 54 61 73 6b 4e  |rror(task%,TaskN|
00003a20  61 6d 65 24 29 0d 15 e0  2a f4 7c 20 20 20 20 20  |ame$)...*.|     |
00003a30  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
00003a40  43 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 0d  |CWimp_CloseDown.|
00003a50  15 ea 25 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..%.|           |
00003a60  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
00003a70  51 75 69 74 0d 15 f4 36  f4 7c 20 20 20 20 20 20  |Quit...6.|      |
00003a80  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00003a90  6d 70 5f 52 65 61 64 56  61 72 69 61 62 6c 65 28  |mp_ReadVariable(|
00003aa0  56 61 72 69 61 62 6c 65  24 29 0d 15 fe 06 f4 7c  |Variable$).....||
00003ab0  0d 16 08 06 f4 7c 0d 16  12 35 f4 7c 20 20 20 20  |.....|...5.|    |
00003ac0  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00003ad0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003ae0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 16 1c 06 f4  |-----------.....|
00003af0  7c 0d 16 26 05 3a 0d 16  30 2f dd 20 f2 57 69 6d  ||..&.:..0/. .Wim|
00003b00  70 5f 53 74 61 72 74 28  54 61 73 6b 4e 61 6d 65  |p_Start(TaskName|
00003b10  24 2c 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 2c 69  |$,wimp_memory%,i|
00003b20  63 6f 6e 25 29 0d 16 3a  25 de 20 77 69 6d 70 25  |con%)..:%. wimp%|
00003b30  20 77 69 6d 70 5f 6d 65  6d 6f 72 79 25 2c 69 63  | wimp_memory%,ic|
00003b40  6f 6e 73 25 20 69 63 6f  6e 25 0d 16 44 1d 69 63  |ons% icon%..D.ic|
00003b50  6f 6e 5f 6d 65 6d 6f 72  79 25 3d 69 63 6f 6e 73  |on_memory%=icons|
00003b60  25 2b 69 63 6f 6e 25 0d  16 4e 13 74 61 73 6b 24  |%+icon%..N.task$|
00003b70  3d 54 61 73 6b 4e 61 6d  65 24 0d 16 58 2b 69 6e  |=TaskName$..X+in|
00003b80  64 69 72 65 63 74 5f 73  70 72 69 74 65 73 25 3d  |direct_sprites%=|
00003b90  31 20 3a 20 64 69 72 65  63 74 5f 73 70 72 69 74  |1 : direct_sprit|
00003ba0  65 73 25 3d 31 0d 16 62  1b f2 57 69 6d 70 5f 53  |es%=1..b..Wimp_S|
00003bb0  65 74 45 76 65 6e 74 56  61 72 69 61 62 6c 65 73  |etEventVariables|
00003bc0  0d 16 6c 15 ee 20 85 20  f2 57 69 6d 70 5f 45 72  |..l.. . .Wimp_Er|
00003bd0  72 6f 72 3a e0 0d 16 76  40 c8 99 22 57 69 6d 70  |ror:...v@.."Wimp|
00003be0  5f 49 6e 69 74 69 61 6c  69 73 65 22 2c 32 30 30  |_Initialise",200|
00003bf0  2c 26 34 42 35 33 34 31  35 34 2c 54 61 73 6b 4e  |,&4B534154,TaskN|
00003c00  61 6d 65 24 20 b8 20 76  65 72 73 69 6f 6e 25 2c  |ame$ . version%,|
00003c10  74 61 73 6b 25 0d 16 80  05 e1 0d 16 8a 05 3a 0d  |task%.........:.|
00003c20  16 94 1b dd 20 a4 57 69  6d 70 5f 42 41 53 49 43  |.... .Wimp_BASIC|
00003c30  50 61 72 61 6d 65 74 65  72 73 0d 16 9e 15 20 ea  |Parameters.... .|
00003c40  20 63 6f 6d 24 2c 70 61  72 61 6d 24 2c 49 25 0d  | com$,param$,I%.|
00003c50  16 a8 1a 20 c8 99 20 22  4f 53 5f 47 65 74 45 6e  |... .. "OS_GetEn|
00003c60  76 22 20 b8 20 63 6f 6d  24 0d 16 b2 0f 20 70 61  |v" . com$.... pa|
00003c70  72 61 6d 73 24 3d 22 22  0d 16 bc 18 20 49 25 3d  |rams$="".... I%=|
00003c80  a7 63 6f 6d 24 2c 22 20  2d 71 75 69 74 20 22 29  |.com$," -quit ")|
00003c90  0d 16 c6 35 20 e7 20 49  25 20 8c 20 70 61 72 61  |...5 . I% . para|
00003ca0  6d 73 24 3d c1 63 6f 6d  24 2c a7 63 6f 6d 24 2c  |ms$=.com$,.com$,|
00003cb0  22 20 22 2c 49 25 2b a9  22 20 2d 71 75 69 74 20  |" ",I%+." -quit |
00003cc0  22 29 2b 31 29 0d 16 d0  0c 3d 70 61 72 61 6d 73  |")+1)....=params|
00003cd0  24 0d 16 da 05 3a 0d 16  e4 1d dd 20 f2 57 69 6d  |$....:..... .Wim|
00003ce0  70 5f 53 65 74 45 76 65  6e 74 56 61 72 69 61 62  |p_SetEventVariab|
00003cf0  6c 65 73 0d 16 ee 17 de  20 70 6f 69 6e 74 65 72  |les..... pointer|
00003d00  5f 62 6c 6f 63 6b 25 20  32 30 0d 16 f8 10 69 6e  |_block% 20....in|
00003d10  74 65 72 66 61 63 65 25  3d a3 0d 17 02 2e 6e 75  |terface%=.....nu|
00003d20  6c 6c 25 3d 31 20 20 3a  64 72 61 77 25 3d 32 20  |ll%=1  :draw%=2 |
00003d30  3a 20 20 70 6f 69 6e 74  65 72 5f 6c 65 61 76 69  |:  pointer_leavi|
00003d40  6e 67 25 3d 31 3c 3c 34  0d 17 0c 31 70 6f 69 6e  |ng%=1<<4...1poin|
00003d50  74 65 72 5f 65 6e 74 65  72 69 6e 67 25 3d 31 3c  |ter_entering%=1<|
00003d60  3c 35 3a 6d 6f 75 73 65  25 3d 31 3c 3c 36 3a 64  |<5:mouse%=1<<6:d|
00003d70  72 61 67 25 3d 31 3c 3c  37 0d 17 16 26 6b 65 79  |rag%=1<<7...&key|
00003d80  25 3d 31 3c 3c 38 3a 6d  65 6e 75 25 3d 31 3c 3c  |%=1<<8:menu%=1<<|
00003d90  39 3a 73 63 72 6f 6c 6c  25 3d 31 3c 3c 31 30 0d  |9:scroll%=1<<10.|
00003da0  17 20 40 6c 6f 73 65 5f  63 61 72 65 74 25 3d 31  |. @lose_caret%=1|
00003db0  3c 3c 31 31 3a 67 61 69  6e 5f 63 61 72 65 74 25  |<<11:gain_caret%|
00003dc0  3d 31 3c 3c 31 32 3a 6d  65 73 73 61 67 65 25 3d  |=1<<12:message%=|
00003dd0  28 31 3c 3c 31 37 29 2b  28 31 3c 3c 31 38 29 0d  |(1<<17)+(1<<18).|
00003de0  17 2a 30 72 65 63 6f 72  64 65 72 25 3d 31 3c 3c  |.*0recorder%=1<<|
00003df0  31 38 3a 61 63 6b 6e 6f  77 6c 65 64 67 65 25 3d  |18:acknowledge%=|
00003e00  31 3c 3c 31 39 3a 77 69  6e 64 6f 77 25 3d 30 0d  |1<<19:window%=0.|
00003e10  17 34 21 73 70 72 69 74  65 73 25 3d 31 3a 76 65  |.4!sprites%=1:ve|
00003e20  72 73 69 6f 6e 25 3d 30  3a 74 61 73 6b 25 3d 30  |rsion%=0:task%=0|
00003e30  0d 17 3e 2a 42 61 72 5f  57 69 6e 64 6f 77 25 3d  |..>*Bar_Window%=|
00003e40  2d 32 3a 42 61 72 5f 49  63 6f 6e 25 3d 30 3a 42  |-2:Bar_Icon%=0:B|
00003e50  61 72 5f 4d 65 6e 75 25  3d 30 0d 17 48 2a 78 5f  |ar_Menu%=0..H*x_|
00003e60  6f 72 69 67 69 6e 25 3d  30 3a 79 5f 6f 72 69 67  |origin%=0:y_orig|
00003e70  69 6e 25 3d 30 3a 53 61  76 65 57 69 6e 64 6f 77  |in%=0:SaveWindow|
00003e80  25 3d 2d 33 0d 17 52 33  6d 65 73 73 61 67 65 5f  |%=-3..R3message_|
00003e90  71 75 69 74 25 3d 30 3a  6d 65 73 73 61 67 65 5f  |quit%=0:message_|
00003ea0  73 61 76 65 25 3d 32 3a  6d 65 73 73 61 67 65 5f  |save%=2:message_|
00003eb0  6c 6f 61 64 25 3d 33 0d  17 5c 21 6d 6f 75 73 65  |load%=3..\!mouse|
00003ec0  5f 62 75 74 74 6f 6e 25  3d 32 3a 73 61 76 65 5f  |_button%=2:save_|
00003ed0  65 76 65 6e 74 25 3d 30  0d 17 66 20 74 6f 70 5f  |event%=0..f top_|
00003ee0  6c 69 6e 65 25 3d 30 20  3a 20 62 6f 74 74 6f 6d  |line%=0 : bottom|
00003ef0  5f 6c 69 6e 65 25 3d 30  0d 17 70 05 e1 0d 17 7a  |_line%=0..p....z|
00003f00  05 3a 0d 17 84 11 dd 20  f2 57 69 6d 70 5f 45 72  |.:..... .Wimp_Er|
00003f10  72 6f 72 0d 17 8e 0a ea  58 24 2c 78 25 0d 17 98  |ror.....X$,x%...|
00003f20  09 ee 20 85 20 87 0d 17  a2 08 78 25 3d 9e 0d 17  |.. . .....x%=...|
00003f30  ac 1b 58 24 3d f6 24 2b  22 61 74 6c 69 6e 65 22  |..X$=.$+"atline"|
00003f40  2b c3 28 78 25 81 31 30  29 0d 17 b6 10 de 45 72  |+.(x%.10).....Er|
00003f50  72 6f 72 4d 73 67 25 33  36 0d 17 c0 45 45 72 72  |rorMsg%36...EErr|
00003f60  6f 72 4d 73 67 25 21 30  3d 33 36 3a 45 72 72 6f  |orMsg%!0=36:Erro|
00003f70  72 4d 73 67 25 21 31 32  3d 30 3a 45 72 72 6f 72  |rMsg%!12=0:Error|
00003f80  4d 73 67 25 21 31 36 3d  26 38 31 30 38 30 3a 45  |Msg%!16=&81080:E|
00003f90  72 72 6f 72 4d 73 67 25  21 32 30 3d 78 25 0d 17  |rrorMsg%!20=x%..|
00003fa0  ca 1f 24 28 45 72 72 6f  72 4d 73 67 25 2b 32 34  |..$(ErrorMsg%+24|
00003fb0  29 3d 22 21 52 75 6e 49  6d 61 67 65 22 0d 17 d4  |)="!RunImage"...|
00003fc0  25 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |%.."Wimp_SendMes|
00003fd0  73 61 67 65 22 2c 31 37  2c 45 72 72 6f 72 4d 73  |sage",17,ErrorMs|
00003fe0  67 25 0d 17 de 1f f2 57  69 6d 70 5f 57 69 6e 64  |g%.....Wimp_Wind|
00003ff0  6f 77 41 6c 65 72 74 28  74 61 73 6b 24 2c 58 24  |owAlert(task$,X$|
00004000  29 0d 17 e8 13 f2 57 69  6d 70 5f 43 6c 6f 73 65  |).....Wimp_Close|
00004010  44 6f 77 6e 0d 17 f2 05  e1 0d 17 fc 05 3a 0d 18  |Down.........:..|
00004020  06 15 dd 20 f2 57 69 6d  70 5f 43 6c 6f 73 65 44  |... .Wimp_CloseD|
00004030  6f 77 6e 0d 18 10 23 c8  99 22 57 69 6d 70 5f 43  |own...#.."Wimp_C|
00004040  6c 6f 73 65 44 6f 77 6e  22 2c 74 61 73 6b 25 2c  |loseDown",task%,|
00004050  22 54 41 53 4b 22 0d 18  1a 05 e1 0d 18 24 05 3a  |"TASK".......$.:|
00004060  0d 18 2e 10 dd 20 f2 57  69 6d 70 5f 51 75 69 74  |..... .Wimp_Quit|
00004070  0d 18 38 0f 66 69 6e 69  73 68 65 64 25 3d b9 0d  |..8.finished%=..|
00004080  18 42 05 e1 0d 18 4c 05  3a 0d 18 56 23 dd 20 a4  |.B....L.:..V#. .|
00004090  57 69 6d 70 5f 52 65 61  64 56 61 72 69 61 62 6c  |Wimp_ReadVariabl|
000040a0  65 28 56 61 72 69 61 62  6c 65 24 29 0d 18 60 1b  |e(Variable$)..`.|
000040b0  ea 6c 65 6e 25 2c 72 65  73 75 6c 74 25 2c 76 61  |.len%,result%,va|
000040c0  72 69 61 62 6c 65 25 0d  18 6a 14 24 77 69 6d 70  |riable%..j.$wimp|
000040d0  25 3d 56 61 72 69 61 62  6c 65 24 0d 18 74 33 c8  |%=Variable$..t3.|
000040e0  99 22 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |."OS_ReadVarVal"|
000040f0  2c 77 69 6d 70 25 2c 77  69 6d 70 25 2b 32 35 35  |,wimp%,wimp%+255|
00004100  2c 32 35 35 2c 2c 33 b8  2c 2c 6c 65 6e 25 0d 18  |,255,,3.,,len%..|
00004110  7e 17 77 69 6d 70 25 3f  28 6c 65 6e 25 2b 32 35  |~.wimp%?(len%+25|
00004120  35 29 3d 31 33 0d 18 88  11 3d 24 28 77 69 6d 70  |5)=13....=$(wimp|
00004130  25 2b 32 35 35 29 0d 18  92 05 3a 0d 18 9c 05 3a  |%+255)....:....:|
00004140  0d 18 a6 06 f4 7c 0d 18  b0 06 f4 7c 0d 18 ba 06  |.....|.....|....|
00004150  f4 7c 0d 18 c4 06 f4 7c  0d 18 ce 29 f4 7c 20 20  |.|.....|...).|  |
00004160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004170  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00004180  2d 0d 18 d8 27 f4 7c 20  20 20 20 20 20 20 20 20  |-...'.|         |
00004190  20 20 20 20 20 20 20 20  20 20 20 20 57 69 6d 70  |            Wimp|
000041a0  20 50 6f 6c 6c 69 6e 67  0d 18 e2 29 f4 7c 20 20  | Polling...).|  |
000041b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000041c0  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
000041d0  2d 0d 18 ec 06 f4 7c 0d  18 f6 06 f4 7c 0d 19 00  |-.....|.....|...|
000041e0  05 3a 0d 19 0a 18 dd 20  f2 57 69 6d 70 5f 57 61  |.:..... .Wimp_Wa|
000041f0  69 74 46 6f 72 45 76 65  6e 74 0d 19 14 12 ea 20  |itForEvent..... |
00004200  6d 61 73 6b 25 2c 65 76  65 6e 74 25 0d 19 1e 0f  |mask%,event%....|
00004210  66 69 6e 69 73 68 65 64  25 3d a3 0d 19 28 17 6d  |finished%=...(.m|
00004220  61 73 6b 25 3d 25 31 31  31 30 30 30 30 31 31 30  |ask%=%1110000110|
00004230  30 31 0d 19 32 05 f5 0d  19 3c 27 20 c8 99 22 57  |01..2....<' .."W|
00004240  69 6d 70 5f 50 6f 6c 6c  22 2c 6d 61 73 6b 25 2c  |imp_Poll",mask%,|
00004250  77 69 6d 70 25 20 b8 20  65 76 65 6e 74 25 0d 19  |wimp% . event%..|
00004260  46 10 20 c8 8e 20 65 76  65 6e 74 25 20 ca 0d 19  |F. .. event% ...|
00004270  50 0a 20 20 c9 30 20 3a  0d 19 5a 1f 20 20 c9 31  |P.  .0 :..Z.  .1|
00004280  20 3a 20 f2 57 69 6d 70  5f 50 6f 6c 6c 44 72 61  | : .Wimp_PollDra|
00004290  77 57 69 6e 64 6f 77 0d  19 64 26 20 20 c9 32 20  |wWindow..d&  .2 |
000042a0  3a 20 c8 99 20 22 57 69  6d 70 5f 4f 70 65 6e 57  |: .. "Wimp_OpenW|
000042b0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 19 6e  |indow",,wimp%..n|
000042c0  20 20 20 c9 33 20 3a 20  f2 57 69 6d 70 5f 50 6f  |   .3 : .Wimp_Po|
000042d0  6c 6c 43 6c 6f 73 65 57  69 6e 64 6f 77 0d 19 78  |llCloseWindow..x|
000042e0  0a 20 20 c9 34 20 3a 0d  19 82 0a 20 20 c9 35 20  |.  .4 :....  .5 |
000042f0  3a 0d 19 8c 1f 20 20 c9  36 20 3a 20 f2 57 69 6d  |:....  .6 : .Wim|
00004300  70 5f 50 6f 6c 6c 4d 6f  75 73 65 43 6c 69 63 6b  |p_PollMouseClick|
00004310  0d 19 96 20 20 20 c9 37  20 3a 20 f2 57 69 6d 70  |...   .7 : .Wimp|
00004320  5f 50 6f 6c 6c 53 61 76  65 4d 65 73 73 61 67 65  |_PollSaveMessage|
00004330  0d 19 a0 1d 20 20 c9 38  20 3a 20 f2 57 69 6d 70  |....  .8 : .Wimp|
00004340  5f 50 6f 6c 6c 4b 65 79  50 72 65 73 73 0d 19 aa  |_PollKeyPress...|
00004350  23 20 20 c9 39 20 3a 20  f2 45 76 65 6e 74 5f 4d  |#  .9 : .Event_M|
00004360  65 6e 75 43 68 6f 69 63  65 28 6d 65 6e 75 25 29  |enuChoice(menu%)|
00004370  0d 19 b4 0a 20 20 c9 31  30 3a 0d 19 be 0a 20 20  |....  .10:....  |
00004380  c9 31 31 3a 0d 19 c8 0a  20 20 c9 31 32 3a 0d 19  |.11:....  .12:..|
00004390  d2 20 20 20 c9 31 37 2c  31 38 3a 20 f2 57 69 6d  |.   .17,18: .Wim|
000043a0  70 5f 50 6f 6c 6c 4d 65  73 73 61 67 65 73 0d 19  |p_PollMessages..|
000043b0  dc 0a 20 20 c9 31 39 3a  0d 19 e6 06 20 cb 0d 19  |..  .19:.... ...|
000043c0  f0 0f fd 20 66 69 6e 69  73 68 65 64 25 0d 19 fa  |... finished%...|
000043d0  05 e1 0d 1a 04 05 3a 0d  1a 0e 1a dd 20 f2 57 69  |......:..... .Wi|
000043e0  6d 70 5f 50 6f 6c 6c 44  72 61 77 57 69 6e 64 6f  |mp_PollDrawWindo|
000043f0  77 0d 1a 18 0b ea 20 6d  6f 72 65 25 0d 1a 22 26  |w..... more%.."&|
00004400  c8 99 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |.."Wimp_RedrawWi|
00004410  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 b8 6d 6f 72  |ndow",,wimp%.mor|
00004420  65 25 0d 1a 2c 13 77 69  6e 64 6f 77 25 3d 77 69  |e%..,.window%=wi|
00004430  6d 70 25 21 30 0d 1a 36  41 78 5f 6f 72 69 67 69  |mp%!0..6Ax_origi|
00004440  6e 25 3d 31 36 2b 77 69  6d 70 25 21 34 2d 77 69  |n%=16+wimp%!4-wi|
00004450  6d 70 25 21 32 30 3a 79  5f 6f 72 69 67 69 6e 25  |mp%!20:y_origin%|
00004460  3d 2d 31 36 2b 77 69 6d  70 25 21 31 36 2d 77 69  |=-16+wimp%!16-wi|
00004470  6d 70 25 21 32 34 0d 1a  40 0b c8 95 6d 6f 72 65  |mp%!24..@...more|
00004480  25 0d 1a 4a 30 20 e7 20  69 6e 74 65 72 66 61 63  |%..J0 . interfac|
00004490  65 25 20 8c 20 c8 99 22  57 69 6d 70 5f 42 6f 72  |e% . .."Wimp_Bor|
000044a0  64 65 72 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |derWindow",,wimp|
000044b0  25 0d 1a 54 2d 20 f2 45  76 65 6e 74 5f 44 72 61  |%..T- .Event_Dra|
000044c0  77 28 77 69 6e 64 6f 77  25 2c 78 5f 6f 72 69 67  |w(window%,x_orig|
000044d0  69 6e 25 2c 79 5f 6f 72  69 67 69 6e 25 29 0d 1a  |in%,y_origin%)..|
000044e0  5e 27 20 c8 99 22 57 69  6d 70 5f 47 65 74 52 65  |^' .."Wimp_GetRe|
000044f0  63 74 61 6e 67 6c 65 22  2c 2c 77 69 6d 70 25 b8  |ctangle",,wimp%.|
00004500  6d 6f 72 65 25 0d 1a 68  05 ce 0d 1a 72 05 e1 0d  |more%..h....r...|
00004510  1a 7c 05 3a 0d 1a 86 1b  dd 20 f2 57 69 6d 70 5f  |.|.:..... .Wimp_|
00004520  50 6f 6c 6c 43 6c 6f 73  65 57 69 6e 64 6f 77 0d  |PollCloseWindow.|
00004530  1a 90 25 20 20 c8 99 20  22 57 69 6d 70 5f 47 65  |..%  .. "Wimp_Ge|
00004540  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 77  |tPointerInfo",,w|
00004550  69 6d 70 25 0d 1a 9a 29  20 20 77 69 6e 64 6f 77  |imp%...)  window|
00004560  25 3d 77 69 6d 70 25 21  31 32 20 3a 20 62 75 74  |%=wimp%!12 : but|
00004570  74 6f 6e 73 25 3d 77 69  6d 70 25 21 38 0d 1a a4  |tons%=wimp%!8...|
00004580  29 20 f2 45 76 65 6e 74  5f 57 69 6e 64 6f 77 43  |) .Event_WindowC|
00004590  6c 6f 73 65 28 77 69 6e  64 6f 77 25 2c 62 75 74  |lose(window%,but|
000045a0  74 6f 6e 73 25 29 0d 1a  ae 32 20 21 77 69 6d 70  |tons%)...2 !wimp|
000045b0  25 3d 77 69 6e 64 6f 77  25 20 3a 20 c8 99 20 22  |%=window% : .. "|
000045c0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000045d0  22 2c 2c 77 69 6d 70 25  0d 1a b8 05 e1 0d 1a c2  |",,wimp%........|
000045e0  05 3a 0d 1a cc 1a dd 20  f2 57 69 6d 70 5f 50 6f  |.:..... .Wimp_Po|
000045f0  6c 6c 4d 6f 75 73 65 43  6c 69 63 6b 0d 1a d6 4a  |llMouseClick...J|
00004600  20 62 75 74 74 6f 6e 25  3d 77 69 6d 70 25 21 38  | button%=wimp%!8|
00004610  3a 77 69 6e 64 6f 77 25  3d 77 69 6d 70 25 21 31  |:window%=wimp%!1|
00004620  32 3a 69 63 6f 6e 25 3d  77 69 6d 70 25 21 31 36  |2:icon%=wimp%!16|
00004630  3a 78 25 3d 77 69 6d 70  25 21 30 3a 79 25 3d 77  |:x%=wimp%!0:y%=w|
00004640  69 6d 70 25 21 34 0d 1a  e0 11 20 c8 8e 20 62 75  |imp%!4.... .. bu|
00004650  74 74 6f 6e 25 20 ca 0d  1a ea 22 20 20 20 c9 32  |tton% ...."   .2|
00004660  20 20 20 20 3a 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |    : .Wimp_Poll|
00004670  4d 65 6e 75 50 6f 70 55  70 0d 1a f4 23 20 20 20  |MenuPopUp...#   |
00004680  7f 3a 20 c8 8e 20 a4 45  76 65 6e 74 5f 53 61 76  |.: .. .Event_Sav|
00004690  65 28 77 69 6e 64 6f 77  25 29 20 ca 0d 1a fe 2c  |e(window%) ....,|
000046a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 c9  |               .|
000046b0  20 b9 20 3a 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  | . : .Wimp_PollM|
000046c0  6f 75 73 65 53 61 76 65  0d 1b 08 31 20 20 20 20  |ouseSave...1    |
000046d0  20 20 20 20 20 20 20 20  20 20 20 c9 20 a3 3a 20  |           . .: |
000046e0  f2 57 69 6d 70 5f 50 6f  6c 6c 45 76 65 6e 74 4d  |.Wimp_PollEventM|
000046f0  6f 75 73 65 43 6c 69 63  6b 0d 1b 12 13 20 20 20  |ouseClick....   |
00004700  20 20 20 20 20 20 20 20  20 20 20 cb 0d 1b 1c 06  |           .....|
00004710  20 cb 0d 1b 26 05 e1 0d  1b 30 05 3a 0d 1b 3a 19  | ...&....0.:..:.|
00004720  dd 20 f2 57 69 6d 70 5f  50 6f 6c 6c 4d 65 6e 75  |. .Wimp_PollMenu|
00004730  50 6f 70 55 70 0d 1b 44  1e 6d 65 6e 75 25 3d a4  |PopUp..D.menu%=.|
00004740  45 76 65 6e 74 5f 4d 65  6e 75 28 77 69 6e 64 6f  |Event_Menu(windo|
00004750  77 25 29 0d 1b 4e 11 20  20 c8 8e 20 6d 65 6e 75  |w%)..N.  .. menu|
00004760  25 20 20 ca 0d 1b 58 0b  20 20 20 c9 20 a3 3a 0d  |%  ...X.   . .:.|
00004770  1b 62 0a 20 20 20 7f 20  3a 0d 1b 6c 15 20 20 20  |.b.   . :..l.   |
00004780  20 20 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 1b  |  .. window% ...|
00004790  76 17 20 20 20 20 20 20  c9 20 2d 32 20 20 20 3a  |v.      . -2   :|
000047a0  20 6e 25 3d 30 0d 1b 80  33 20 20 20 20 20 20 20  | n%=0...3       |
000047b0  20 c8 95 20 28 28 42 61  72 5f 4d 65 6e 75 25 21  | .. ((Bar_Menu%!|
000047c0  28 32 38 2b 6e 25 2a 32  34 29 29 80 25 31 30 30  |(28+n%*24)).%100|
000047d0  30 30 30 30 30 29 3d 30  0d 1b 8a 12 20 20 20 20  |00000)=0....    |
000047e0  20 20 20 20 20 6e 25 2b  3d 31 0d 1b 94 0d 20 20  |     n%+=1....  |
000047f0  20 20 20 20 20 20 ce 0d  1b 9e 3a 20 20 20 20 20  |      ....:     |
00004800  20 20 20 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |   .. "Wimp_Crea|
00004810  74 65 4d 65 6e 75 22 2c  2c 42 61 72 5f 4d 65 6e  |teMenu",,Bar_Men|
00004820  75 25 2c 78 25 2d 36 34  2c 39 36 2b 6e 25 2a 34  |u%,x%-64,96+n%*4|
00004830  34 0d 1b a8 34 20 20 20  20 20 20 7f 20 3a 20 c8  |4...4      . : .|
00004840  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00004850  75 22 2c 2c 6d 65 6e 75  25 2c 78 25 2d 36 34 2c  |u",,menu%,x%-64,|
00004860  79 25 2b 32 30 0d 1b b2  0a 20 20 20 20 20 cb 0d  |y%+20....     ..|
00004870  1b bc 07 20 20 cb 0d 1b  c6 05 e1 0d 1b d0 05 3a  |...  ..........:|
00004880  0d 1b da 19 dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..... .Wimp_Poll|
00004890  4d 6f 75 73 65 53 61 76  65 0d 1b e4 0f 20 c8 8e  |MouseSave.... ..|
000048a0  20 69 63 6f 6e 25 20 ca  0d 1b ee 38 20 20 c9 20  | icon% ....8  . |
000048b0  30 20 3a 20 e7 20 62 75  74 74 6f 6e 25 20 80 20  |0 : . button% . |
000048c0  26 35 30 20 8c 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |&50 . .Wimp_Poll|
000048d0  44 72 61 67 42 6f 78 28  77 69 6e 64 6f 77 25 29  |DragBox(window%)|
000048e0  0d 1b f8 38 20 20 c9 20  32 20 3a 20 e7 20 62 75  |...8  . 2 : . bu|
000048f0  74 74 6f 6e 25 20 80 20  35 20 8c 20 20 f2 57 69  |tton% . 5 .  .Wi|
00004900  6d 70 5f 50 6f 6c 6c 53  61 76 65 46 69 6c 65 28  |mp_PollSaveFile(|
00004910  77 69 6e 64 6f 77 25 29  0d 1c 02 06 20 cb 0d 1c  |window%).... ...|
00004920  0c 05 e1 0d 1c 16 05 3a  0d 1c 20 1f dd 20 f2 57  |.......:.. .. .W|
00004930  69 6d 70 5f 50 6f 6c 6c  45 76 65 6e 74 4d 6f 75  |imp_PollEventMou|
00004940  73 65 43 6c 69 63 6b 0d  1c 2a 2e 20 e7 20 69 6e  |seClick..*. . in|
00004950  74 65 72 66 61 63 65 25  20 8c 20 c8 99 22 57 69  |terface% . .."Wi|
00004960  6d 70 5f 42 6f 72 64 65  72 49 63 6f 6e 22 2c 2c  |mp_BorderIcon",,|
00004970  77 69 6d 70 25 0d 1c 34  33 20 f2 45 76 65 6e 74  |wimp%..43 .Event|
00004980  5f 4d 6f 75 73 65 43 6c  69 63 6b 28 77 69 6e 64  |_MouseClick(wind|
00004990  6f 77 25 2c 69 63 6f 6e  25 2c 62 75 74 74 6f 6e  |ow%,icon%,button|
000049a0  25 2c 78 25 2c 79 25 29  0d 1c 3e 15 20 c8 8e 20  |%,x%,y%)..>. .. |
000049b0  20 69 6e 74 65 72 66 61  63 65 25 20 ca 0d 1c 48  | interface% ...H|
000049c0  0b 20 20 c9 20 b9 20 3a  0d 1c 52 28 20 20 20 77  |.  . . :..R(   w|
000049d0  69 6d 70 25 21 30 3d 78  25 3a 77 69 6d 70 25 21  |imp%!0=x%:wimp%!|
000049e0  34 3d 79 25 20 3a 20 77  69 6d 70 25 21 38 3d 30  |4=y% : wimp%!8=0|
000049f0  0d 1c 5c 28 20 20 20 77  69 6d 70 25 21 31 32 3d  |..\(   wimp%!12=|
00004a00  77 69 6e 64 6f 77 25 20  3a 20 77 69 6d 70 25 21  |window% : wimp%!|
00004a10  31 36 3d 69 63 6f 6e 25  0d 1c 66 21 20 20 20 c8  |16=icon%..f!   .|
00004a20  99 22 57 69 6d 70 5f 42  6f 72 64 65 72 49 63 6f  |."Wimp_BorderIco|
00004a30  6e 22 2c 2c 77 69 6d 70  25 0d 1c 70 06 20 cb 0d  |n",,wimp%..p. ..|
00004a40  1c 7a 05 e1 0d 1c 84 05  3a 0d 1c 8e 21 dd 20 f2  |.z......:...!. .|
00004a50  57 69 6d 70 5f 50 6f 6c  6c 53 61 76 65 46 69 6c  |Wimp_PollSaveFil|
00004a60  65 28 77 69 6e 64 6f 77  25 29 0d 1c 98 0a ea 66  |e(window%).....f|
00004a70  69 6c 65 24 0d 1c a2 40  20 77 69 6d 70 25 21 30  |ile$...@ wimp%!0|
00004a80  3d 77 69 6e 64 6f 77 25  20 3a 20 77 69 6d 70 25  |=window% : wimp%|
00004a90  21 34 3d 31 20 3a 20 c8  99 20 22 57 69 6d 70 5f  |!4=1 : .. "Wimp_|
00004aa0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
00004ab0  69 6d 70 25 0d 1c ac 16  20 66 69 6c 65 24 3d 24  |imp%.... file$=$|
00004ac0  28 77 69 6d 70 25 21 32  38 29 0d 1c b6 15 20 c8  |(wimp%!28).... .|
00004ad0  8e 20 a7 66 69 6c 65 24  2c 22 2e 22 29 20 ca 0d  |. .file$,".") ..|
00004ae0  1c c0 0d 20 20 c9 20 30  20 20 20 3a 0d 1c ca 40  |...  . 0   :...@|
00004af0  20 20 20 24 28 77 69 6d  70 25 2b 34 29 3d 22 54  |   $(wimp%+4)="T|
00004b00  6f 20 73 61 76 65 2c 20  64 72 61 67 20 74 68 65  |o save, drag the|
00004b10  20 69 63 6f 6e 20 74 6f  20 61 20 64 69 72 65 63  | icon to a direc|
00004b20  74 6f 72 79 20 77 69 6e  64 6f 77 22 0d 1c d4 2b  |tory window"...+|
00004b30  20 20 20 c8 99 20 22 57  69 6d 70 5f 52 65 70 6f  |   .. "Wimp_Repo|
00004b40  72 74 45 72 72 6f 72 22  2c 77 69 6d 70 25 2c 31  |rtError",wimp%,1|
00004b50  36 2c 74 61 73 6b 24 0d  1c de 08 20 20 7f 3a 0d  |6,task$....  .:.|
00004b60  1c e8 25 20 20 20 f2 45  76 65 6e 74 5f 53 61 76  |..%   .Event_Sav|
00004b70  65 46 69 6c 65 28 66 69  6c 65 24 2c 77 69 6e 64  |eFile(file$,wind|
00004b80  6f 77 25 29 0d 1c f2 06  20 cb 0d 1c fc 1b 20 c8  |ow%).... ..... .|
00004b90  99 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  |."Wimp_CreateMen|
00004ba0  75 22 2c 2d 31 0d 1d 06  05 e1 0d 1d 10 05 3a 0d  |u",-1.........:.|
00004bb0  1d 1a 20 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 44  |.. . .Wimp_PollD|
00004bc0  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
00004bd0  1d 24 0a ea 78 25 2c 79  25 0d 1d 2e 12 20 73 61  |.$..x%,y%.... sa|
00004be0  76 65 25 3d 77 69 6e 64  6f 77 25 0d 1d 38 13 20  |ve%=window%..8. |
00004bf0  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 0d 1d  |!wimp%=window%..|
00004c00  42 23 20 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |B# .."Wimp_GetWi|
00004c10  6e 64 6f 77 53 74 61 74  65 22 2c 2c 77 69 6d 70  |ndowState",,wimp|
00004c20  25 0d 1d 4c 2d 20 78 25  3d 77 69 6d 70 25 21 34  |%..L- x%=wimp%!4|
00004c30  2d 77 69 6d 70 25 21 32  30 3a 79 25 3d 77 69 6d  |-wimp%!20:y%=wim|
00004c40  70 25 21 31 36 2d 77 69  6d 70 25 21 32 34 0d 1d  |p%!16-wimp%!24..|
00004c50  56 0e 20 77 69 6d 70 25  21 34 3d 30 0d 1d 60 21  |V. wimp%!4=0..`!|
00004c60  20 c8 99 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  | .."Wimp_GetIcon|
00004c70  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 1d 6a  |State",,wimp%..j|
00004c80  13 20 21 77 69 6d 70 25  3d 77 69 6e 64 6f 77 25  |. !wimp%=window%|
00004c90  0d 1d 74 0e 20 77 69 6d  70 25 21 34 3d 35 0d 1d  |..t. wimp%!4=5..|
00004ca0  7e 2c 20 77 69 6d 70 25  21 38 3d 78 25 2b 77 69  |~, wimp%!8=x%+wi|
00004cb0  6d 70 25 21 38 3a 77 69  6d 70 25 21 31 32 3d 79  |mp%!8:wimp%!12=y|
00004cc0  25 2b 77 69 6d 70 25 21  31 32 0d 1d 88 2e 20 77  |%+wimp%!12.... w|
00004cd0  69 6d 70 25 21 31 36 3d  78 25 2b 77 69 6d 70 25  |imp%!16=x%+wimp%|
00004ce0  21 31 36 3a 77 69 6d 70  25 21 32 30 3d 79 25 2b  |!16:wimp%!20=y%+|
00004cf0  77 69 6d 70 25 21 32 30  0d 1d 92 1a 20 77 69 6d  |wimp%!20.... wim|
00004d00  70 25 21 32 34 3d 30 3a  77 69 6d 70 25 21 32 38  |p%!24=0:wimp%!28|
00004d10  3d 30 0d 1d 9c 2a 20 77  69 6d 70 25 21 33 32 3d  |=0...* wimp%!32=|
00004d20  26 37 46 46 46 46 46 46  46 3a 77 69 6d 70 25 21  |&7FFFFFFF:wimp%!|
00004d30  33 36 3d 26 37 46 46 46  46 46 46 46 0d 1d a6 1c  |36=&7FFFFFFF....|
00004d40  20 c8 99 22 57 69 6d 70  5f 44 72 61 67 42 6f 78  | .."Wimp_DragBox|
00004d50  22 2c 2c 77 69 6d 70 25  0d 1d b0 05 e1 0d 1d ba  |",,wimp%........|
00004d60  05 3a 0d 1d c4 18 dd 20  f2 57 69 6d 70 5f 50 6f  |.:..... .Wimp_Po|
00004d70  6c 6c 4b 65 79 50 72 65  73 73 0d 1d ce 31 20 20  |llKeyPress...1  |
00004d80  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 30 3a  |window%=wimp%!0:|
00004d90  69 63 6f 6e 25 3d 77 69  6d 70 25 21 34 3a 6b 65  |icon%=wimp%!4:ke|
00004da0  79 25 3d 77 69 6d 70 25  21 32 34 0d 1d d8 1f 20  |y%=wimp%!24.... |
00004db0  20 c8 8e 20 a4 45 76 65  6e 74 5f 53 61 76 65 28  | .. .Event_Save(|
00004dc0  77 69 6e 64 6f 77 25 29  20 ca 0d 1d e2 28 20 20  |window%) ....(  |
00004dd0  20 c9 20 b9 20 3a 20 f2  57 69 6d 70 50 6f 6c 6c  | . . : .WimpPoll|
00004de0  5f 53 61 76 65 46 69 6c  65 28 77 69 6e 64 6f 77  |_SaveFile(window|
00004df0  25 29 0d 1d ec 2f 20 20  20 c9 20 a3 3a 20 f2 45  |%).../   . .: .E|
00004e00  76 65 6e 74 5f 4b 65 79  50 72 65 73 73 28 77 69  |vent_KeyPress(wi|
00004e10  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 6b 65 79 25  |ndow%,icon%,key%|
00004e20  29 0d 1d f6 07 20 20 cb  0d 1e 00 05 e1 0d 1e 0a  |)....  .........|
00004e30  05 3a 0d 1e 14 1b dd 20  f2 57 69 6d 70 5f 50 6f  |.:..... .Wimp_Po|
00004e40  6c 6c 53 61 76 65 4d 65  73 73 61 67 65 0d 1e 1e  |llSaveMessage...|
00004e50  1e ea 66 69 6c 65 24 2c  77 69 6e 64 6f 77 25 2c  |..file$,window%,|
00004e60  69 63 6f 6e 25 2c 78 25  2c 79 25 0d 1e 28 23 20  |icon%,x%,y%..(# |
00004e70  c8 99 22 57 69 6d 70 5f  47 65 74 50 6f 69 6e 74  |.."Wimp_GetPoint|
00004e80  65 72 49 6e 66 6f 22 2c  2c 77 69 6d 70 25 0d 1e  |erInfo",,wimp%..|
00004e90  32 3a 20 77 69 6e 64 6f  77 25 3d 77 69 6d 70 25  |2: window%=wimp%|
00004ea0  21 31 32 3a 69 63 6f 6e  25 3d 77 69 6d 70 25 21  |!12:icon%=wimp%!|
00004eb0  31 36 3a 78 25 3d 77 69  6d 70 25 21 30 3a 79 25  |16:x%=wimp%!0:y%|
00004ec0  3d 77 69 6d 70 25 21 34  0d 1e 3c 3e 20 77 69 6d  |=wimp%!4..<> wim|
00004ed0  70 25 21 30 3d 73 61 76  65 25 20 3a 20 77 69 6d  |p%!0=save% : wim|
00004ee0  70 25 21 34 3d 31 20 3a  20 c8 99 20 22 57 69 6d  |p%!4=1 : .. "Wim|
00004ef0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00004f00  2c 77 69 6d 70 25 0d 1e  46 16 20 66 69 6c 65 24  |,wimp%..F. file$|
00004f10  3d 24 28 77 69 6d 70 25  21 32 38 29 0d 1e 50 2b  |=$(wimp%!28)..P+|
00004f20  20 66 69 6c 65 24 3d a4  57 69 6d 70 5f 47 65 74  | file$=.Wimp_Get|
00004f30  46 69 6c 65 46 72 6f 6d  50 61 74 68 6e 61 6d 65  |FileFromPathname|
00004f40  28 66 69 6c 65 24 29 0d  1e 5a 15 20 77 69 6d 70  |(file$)..Z. wimp|
00004f50  25 21 32 30 3d 77 69 6e  64 6f 77 25 0d 1e 64 13  |%!20=window%..d.|
00004f60  20 77 69 6d 70 25 21 32  34 3d 69 63 6f 6e 25 0d  | wimp%!24=icon%.|
00004f70  1e 6e 1c 20 77 69 6d 70  25 21 32 38 3d 78 25 3a  |.n. wimp%!28=x%:|
00004f80  77 69 6d 70 25 21 33 32  3d 79 25 0d 1e 78 15 20  |wimp%!32=y%..x. |
00004f90  77 69 6d 70 25 21 33 36  3d 6c 65 6e 67 74 68 25  |wimp%!36=length%|
00004fa0  0d 1e 82 0f 20 77 69 6d  70 25 21 30 3d 36 34 0d  |.... wimp%!0=64.|
00004fb0  1e 8c 0f 20 77 69 6d 70  25 21 31 32 3d 30 0d 1e  |... wimp%!12=0..|
00004fc0  96 0f 20 77 69 6d 70 25  21 31 36 3d 31 0d 1e a0  |.. wimp%!16=1...|
00004fd0  12 20 77 69 6d 70 25 21  34 30 3d 26 46 46 46 0d  |. wimp%!40=&FFF.|
00004fe0  1e aa 16 20 24 28 77 69  6d 70 25 2b 34 34 29 3d  |... $(wimp%+44)=|
00004ff0  66 69 6c 65 24 0d 1e b4  34 20 c8 99 22 57 69 6d  |file$...4 .."Wim|
00005000  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00005010  37 2c 77 69 6d 70 25 2c  77 69 6d 70 25 21 32 30  |7,wimp%,wimp%!20|
00005020  2c 77 69 6d 70 25 21 32  34 0d 1e be 05 e1 0d 1e  |,wimp%!24.......|
00005030  c8 05 3a 0d 1e d2 18 dd  20 f2 57 69 6d 70 5f 50  |..:..... .Wimp_P|
00005040  6f 6c 6c 4d 65 73 73 61  67 65 73 0d 1e dc 0b ea  |ollMessages.....|
00005050  20 66 69 6c 65 24 0d 1e  e6 2c 66 69 6c 65 24 3d  | file$...,file$=|
00005060  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00005070  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 2b 34  |tAddress(wimp%+4|
00005080  34 29 0d 1e f0 15 20 20  20 20 c8 8e 20 77 69 6d  |4)....    .. wim|
00005090  70 25 21 31 36 20 ca 0d  1e fa 1a 20 20 20 20 20  |p%!16 .....     |
000050a0  c9 20 30 20 3a 20 66 69  6e 69 73 68 65 64 25 3d  |. 0 : finished%=|
000050b0  b9 0d 1f 04 0e 20 20 20  20 20 c9 20 31 20 3a 0d  |.....     . 1 :.|
000050c0  1f 0e 0e 20 20 20 20 20  c9 20 32 20 3a 0d 1f 18  |...     . 2 :...|
000050d0  2f 20 20 20 20 20 20 f4  20 50 52 4f 43 57 69 6d  |/      . PROCWim|
000050e0  70 5f 49 63 6f 6e 50 75  74 54 65 78 74 28 73 61  |p_IconPutText(sa|
000050f0  76 65 25 2c 31 2c 66 69  6c 65 24 29 0d 1f 22 43  |ve%,1,file$).."C|
00005100  20 20 20 20 20 20 77 69  6d 70 25 21 30 3d 73 61  |      wimp%!0=sa|
00005110  76 65 25 20 3a 20 77 69  6d 70 25 21 34 3d 31 20  |ve% : wimp%!4=1 |
00005120  3a 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |: .. "Wimp_GetIc|
00005130  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00005140  1f 2c 1b 20 20 20 20 20  20 24 28 77 69 6d 70 25  |.,.      $(wimp%|
00005150  21 32 38 29 3d 66 69 6c  65 24 0d 1f 36 3c 20 20  |!28)=file$..6<  |
00005160  20 20 20 20 77 69 6d 70  25 21 30 3d 73 61 76 65  |    wimp%!0=save|
00005170  25 20 3a 20 77 69 6d 70  25 21 34 3d 31 20 3a 20  |% : wimp%!4=1 : |
00005180  77 69 6d 70 25 21 38 3d  30 20 3a 20 77 69 6d 70  |wimp%!8=0 : wimp|
00005190  25 21 31 32 3d 30 0d 1f  40 27 20 20 20 20 20 20  |%!12=0..@'      |
000051a0  c8 99 20 22 57 69 6d 70  5f 53 65 74 49 63 6f 6e  |.. "Wimp_SetIcon|
000051b0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 1f 4a  |State",,wimp%..J|
000051c0  30 20 20 20 20 20 20 f4  20 50 52 4f 43 57 69 6d  |0      . PROCWim|
000051d0  70 5f 49 63 6f 6e 43 61  72 65 74 28 73 61 76 65  |p_IconCaret(save|
000051e0  25 2c 31 2c 4c 45 4e 66  69 6c 65 24 29 0d 1f 54  |%,1,LENfile$)..T|
000051f0  38 20 20 20 20 20 20 c8  99 20 22 57 69 6d 70 5f  |8      .. "Wimp_|
00005200  53 65 74 43 61 72 65 74  50 6f 73 69 74 69 6f 6e  |SetCaretPosition|
00005210  22 2c 73 61 76 65 25 2c  31 2c 2c 2c 2d 31 2c a9  |",save%,1,,,-1,.|
00005220  66 69 6c 65 24 0d 1f 5e  26 20 20 20 20 20 20 f2  |file$..^&      .|
00005230  45 76 65 6e 74 5f 53 61  76 65 46 69 6c 65 28 66  |Event_SaveFile(f|
00005240  69 6c 65 24 2c 73 61 76  65 25 29 0d 1f 68 0c 20  |ile$,save%)..h. |
00005250  20 20 20 20 c9 20 33 0d  1f 72 47 20 20 20 20 20  |    . 3..rG     |
00005260  20 74 79 70 65 24 3d a4  57 69 6d 70 5f 46 69 6c  | type$=.Wimp_Fil|
00005270  65 54 79 70 65 28 77 69  6d 70 25 21 34 30 29 20  |eType(wimp%!40) |
00005280  3a 20 f2 45 76 65 6e 74  5f 4c 6f 61 64 46 69 6c  |: .Event_LoadFil|
00005290  65 28 66 69 6c 65 24 2c  74 79 70 65 24 29 0d 1f  |e(file$,type$)..|
000052a0  7c 09 20 20 20 20 cb 0d  1f 86 05 e1 0d 1f 90 05  ||.    ..........|
000052b0  3a 0d 1f 9a 26 dd 20 a4  57 69 6d 70 5f 47 65 74  |:...&. .Wimp_Get|
000052c0  53 74 72 69 6e 67 41 74  41 64 64 72 65 73 73 28  |StringAtAddress(|
000052d0  61 72 72 61 79 25 29 0d  1f a4 0d ea 73 24 3a 73  |array%).....s$:s|
000052e0  24 3d 22 22 0d 1f ae 3c  c8 95 28 3f 61 72 72 61  |$=""...<..(?arra|
000052f0  79 25 3c 3e 31 33 29 80  28 3f 61 72 72 61 79 25  |y%<>13).(?array%|
00005300  3c 3e 30 29 3a 73 24 2b  3d bd 28 3f 61 72 72 61  |<>0):s$+=.(?arra|
00005310  79 25 29 3a 61 72 72 61  79 25 2b 3d 31 3a ce 3a  |y%):array%+=1:.:|
00005320  0d 1f b8 07 3d 73 24 0d  1f c2 05 3a 0d 1f cc 23  |....=s$....:...#|
00005330  dd 20 a4 57 69 6d 70 5f  47 65 74 46 69 6c 65 46  |. .Wimp_GetFileF|
00005340  72 6f 6d 50 61 74 68 6e  61 6d 65 28 66 24 29 0d  |romPathname(f$).|
00005350  1f d6 11 c8 8e 20 a7 66  24 2c 22 2e 22 29 20 ca  |..... .f$,".") .|
00005360  0d 1f e0 10 20 c9 20 30  20 20 20 20 3a 3d 66 24  |.... . 0    :=f$|
00005370  0d 1f ea 37 20 7f 20 3a  3d a4 57 69 6d 70 5f 47  |...7 . :=.Wimp_G|
00005380  65 74 46 69 6c 65 46 72  6f 6d 50 61 74 68 6e 61  |etFileFromPathna|
00005390  6d 65 28 c2 66 24 2c a9  28 66 24 29 2d a7 66 24  |me(.f$,.(f$)-.f$|
000053a0  2c 22 2e 22 29 29 29 0d  1f f4 05 cb 0d 1f fe 05  |,"."))).........|
000053b0  3a 0d 20 08 1b dd 20 a4  57 69 6d 70 5f 46 69 6c  |:. ... .Wimp_Fil|
000053c0  65 54 79 70 65 28 74 79  70 65 25 29 0d 20 12 0c  |eType(type%). ..|
000053d0  c8 8e 74 79 70 65 25 ca  0d 20 1c 11 c9 26 46 46  |..type%.. ...&FF|
000053e0  46 3a 3d 22 54 65 78 74  22 0d 20 26 11 c9 26 46  |F:="Text". &..&F|
000053f0  46 44 3a 3d 22 44 61 74  61 22 0d 20 30 12 c9 26  |FD:="Data". 0..&|
00005400  46 46 42 3a 3d 22 42 61  73 69 63 22 0d 20 3a 13  |FFB:="Basic". :.|
00005410  c9 26 46 46 39 3a 3d 22  53 70 72 69 74 65 22 0d  |.&FF9:="Sprite".|
00005420  20 44 14 c9 26 46 45 44  3a 3d 22 50 61 6c 65 74  | D..&FED:="Palet|
00005430  74 65 22 0d 20 4e 15 c9  26 46 45 43 3a 3d 22 54  |te". N..&FEC:="T|
00005440  65 6d 70 6c 61 74 65 22  0d 20 58 11 c9 26 41 46  |emplate". X..&AF|
00005450  46 3a 3d 22 44 72 61 77  22 0d 20 62 14 c9 26 31  |F:="Draw". b..&1|
00005460  30 30 30 3a 3d 22 46 6f  6c 64 65 72 22 0d 20 6c  |000:="Folder". l|
00005470  19 c9 26 32 30 30 30 3a  3d 22 41 70 70 6c 69 63  |..&2000:="Applic|
00005480  61 74 69 6f 6e 22 0d 20  76 0f 7f 3d c3 7e 28 74  |ation". v..=.~(t|
00005490  79 70 65 25 29 0d 20 80  05 cb 0d 20 8a 05 3a 0d  |ype%). .... ..:.|
000054a0  20 94 04 0d ff                                    | ....|
000054a5