O�|_________________________________________________________________________
O�|_________________________________________________________________________
O�|_________________________________________________________________________
(�|
2�|
<�|
FE�|                -------------------------------          6/1/92
P/�|                   WIMP PROCEDURE LIBRARY
Z�|
d,�|                     Index of Contents
n�|
x5�|                -------------------------------
��|
�$�|                    1.�Windows
��|
�"�|                    2.�Icons
��|
�"�|                    3.�Menus
��|
�$�|                    4.�Sprites
��|
�*�|                    5.�Miscellaneous
��|
�$�|                    6.�Polling
��|

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

�|

�|

"�|

,�|

6�|

@�|

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

T*�|                          1.�Windows

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

h�|

r�|

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

��|

�(�|                      Procedures :

��|

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

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

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

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

�.�|             FNWimp_WindowTitle(window%)

�-�|             FNWimp_WindowLoad(window$)

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

�5�|             PROCWimp_WindowBringToTop(window%)

�4�|             PROCWimp_WindowForceDraw(window%)

�/�|             PROCWimp_WindowOpen(window%)
+�|             PROCWimp_WindowInterface
�|
?�|           ----------------------------------------------
&�|
0�|
:�|
D(� �Wimp_WindowAlert(title$,message$)
N+�Wimp_WindowAlertBox(title$,message$,0)
X�
b:
l3� �Wimp_WindowAlertBox(title$,message$,button%)
v� response%
�$(wimp%+4)=message$
�Ȏ button% �
� � 2    : response%=1
� � 1    : response%=15
�! � 3    : response%=(1<<5)+16
�! � 4    : response%=(1<<6)+16
� : response%=16
��
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
response%=23
=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
=response%-2
 :
*+� �Wimp_WindowErrorBox(title$,message$)
4+�Wimp_WindowAlertBox(title$,message$,2)
>�
H:
R � �Wimp_WindowTitle(window%)
\wimp%!0=window%
f ș "Wimp_GetWindInfo",,wimp%
p6� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
z=$(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%
ș "Wimp_CloseTemplate"
7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
Ȏ wimp%!40 �
$
 � -1   :
.  : i%=40
8 �
B$   wimp%!4=wimp%!i% : wimp%!0=c%
L$   ș "Wimp_GetIconState",,wimp%
V-   sp$=�Wimp_GetStringAtAddress(wimp%!28)
`"   ș "Wimp_DeleteIcon",,wimp%
j   Ȏ sprites% �
t    � 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
�

=c%
:
%� �Wimp_WindowBringToTop(window%)
(!wimp%=window%
2#ș "Wimp_GetWindowState",,wimp%
<wimp%!28=-1
Fș "Wimp_OpenWindow",,wimp%
P�
Z:
d � �Wimp_WindowClose(window%)
n!wimp%=window%
x ș "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%
�
:
�Wimp_WindowInterface
" ș"Wimp_BorderWindow",,wimp%
,�
6�|
@�|
J�|
T1�|                  -------------------------
^(�|                          2.�Icons
h1�|                  -------------------------
r�|
|�|
�=�|             ------------------------------------------
��|
�(�|                      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$)
�/�|              PROCWimp_IconInterfaceStart
0�|              PROCWimp_IconInterfaceFinish
�|
=�|             ------------------------------------------
&�|
0:
:� �Wimp_IconBar(Sprite$)
D� icon%
Nwimp%!0=-1
Xwimp%!4=0     : wimp%!8=0
bwimp%!12=68 : wimp%!16=68
lwimp%!20=&3002
v$(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)
�:
)� �Wimp_IconValidation(window%,icon%)
#wimp%!0=window% : wimp%!4=icon%
!ș "Wimp_GetIconState",,wimp%
 7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
*=$(wimp%!32)
4:
>&� �Wimp_IconDisable(window%,icon%)
H#wimp%!0=window% : wimp%!4=icon%
R$wimp%!8=1<<22   : wimp%!12=1<<22
\!ș "Wimp_SetIconState",,wimp%
f�
p:
z%� �Wimp_IconEnable(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�$wimp%!8=0       : wimp%!12=1<<22
�!ș "Wimp_SetIconState",,wimp%
��
�:
�0� �Wimp_IconPutSprite(window%,icon%,sprite$)
�!wimp%!0=window%:wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�ș "Wimp_DeleteIcon",,wimp%
�=wimp%!4=wimp%!8   : wimp%!8=wimp%!12  : wimp%!12=wimp%!16
�?wimp%!16=wimp%!20 : wimp%!20=wimp%!24 : $(wimp%+24)=sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
	:
	,� �Wimp_IconPutText(window%,icon%,text$)
	#wimp%!0=window% : wimp%!4=icon%
	$!ș "Wimp_GetIconState",,wimp%
	.7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
	8$(wimp%!28)=text$
	B#wimp%!0=window% : wimp%!4=icon%
	Lwimp%!8=0 : wimp%!12=0
	V!ș "Wimp_SetIconState",,wimp%
	`�
	j:
	t� �Wimp_IconInterfaceStart
	~ș"Wimp_BorderIcon",,wimp%
	��
	�:
	�� �Wimp_IconInterfaceFinish
	�
wimp%!8=0
	�ș"Wimp_BorderIcon",,wimp%
	��
	�:
	��|
	��|
	��|
	�1�|                  -------------------------
	�(�|                          3.�Menus
1�|                  -------------------------

�|
�|
?�|           ----------------------------------------------
(�|
2(�|                      Procedures :
<�|
F�|
P.�|            PROCWimp_MenuAdjustOn(menu%)
Z+�|            FNWimp_MenuChoice(level%)
d*�|            FNWimp_MenuCreate(menu$)
n$�|            FNWimp_MenuColours
x2�|            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%)
0�|            PROCWimp_MenuTick(menu%,item%)
2�|            PROCWimp_MenuTitle(menu%,title$)
L�|            PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
"�|
,?�|           ----------------------------------------------
6�|
@:
J� �Wimp_MenuAdjustOn(menu%)
T,ș "Wimp_GetPointerInfo",,pointer_block%
^^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
h�
r:
|� �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
�ȕ menu$<>""
menu$=�menu$,�menu$,"\")+1)
Ȏ menu$ �
	 � ""
&  :
01  !index%=0 : index%!4=-1 : index%!8=&7000021
:  length%=�menu$,"\")-1
D  k%=��menu$,length%),">")
N
  Ȏ k% �
X
   � 0
b   
l%    s%=�(�menu$,k%+1,length%-k%))
v    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(" ")
�:

%� �Wimp_MenuCreateColours(title$)

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

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

 men%=�Wimp_MenuCreate(x$)

*� i%=0 � 15

4
Ȏ � �

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

H : j%=0

R�

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

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

p�

z	=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
/menu%?(39+(item%-1)*24)=fore%+16*colour%+i%
�
:
$#� �Wimp_MenuCentre(menu%,item%)
.:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
8�
B:
L� �Wimp_MenuClose
Vș "Wimp_CreateMenu",-1
`�
j:
t$� �Wimp_MenuDisable(menu%,item%)
~;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
��
�:
�'� �Wimp_MenuDottedLine(menu%,item%)
�7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�2
��
�:
�#� �Wimp_MenuEnable(menu%,item%)
�"�Wimp_MenuDisable(menu%,item%)
�;menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<22)
��
�:
�5� �Wimp_MenuForegroundColour(menu%,item%,colour%)
Emenu%?(39+(item%-1)*24)=colour%+16*((menu%?(39+(item%-1)*24))�16)

�
:
)� �Wimp_MenuGlue(menu1%,item%,menu2%)
(menu1%!(8+item%*24)=menu2%
2�
<:
F'� �Wimp_MenuItem(menu%,item%,item$)
P,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
Z�
d:
n$� �Wimp_MenuMessage(menu%,item%)
x<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
menu%=Bar_Menu%
�
:
"!� �Wimp_MenuTick(menu%,item%)
,7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
6�
@:
J#� �Wimp_MenuTitle(menu%,title$)
T$menu%=�title$,12)+�0
^�
h:
r=� �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�|                  -------------------------
��|
�|
:�|                ------------------------------------
�|
&(�|                      Procedures :
0�|
:�|
D,�|                  PROCWimp_SpritesLoad
N:�|                  PROCWimp_SpritesPathLoad(pathname$
X�|
b�|
l�|
v:�|                ------------------------------------
��|
�:
�� �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%
+ș"OS_SpriteOp",&10A,sprites%,pathname$
�
:
 �|
*�|
4�|
>1�|                  -------------------------
H(�|                          5.�Files
R1�|                  -------------------------
\�|
f�|
p5�|                -------------------------------
z�|
�(�|                      Procedures :
��|
��|
�.�|                  FNWimp_FileType(type%)
�.�|                  FNWimp_GetFilePathName
�2�|                  FNWimp_FileLoad(pathname$)
�9�|                  FNWimp_GetStringAtAddress(array%)
�6�|                  FNWimp_GetFileFromPathname(f$)
�2�|                  PROCWimp_SendToEdit(file$)
��|
�5�|                -------------------------------
��|
��|
�|
:
� �Wimp_FileType(type%)
$Ȏtype%�
.�&FFF:="Text"
8�&FFD:="Data"
B�&FFB:="Basic"
L�&FF9:="Sprite"
V�&FED:="Palette"
`�&FEC:="Template"
j�&AFF:="Draw"
t�&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%
"�("LOAD"+pathname$+""+�~file%)


=file%
;
&� �Wimp_GetStringAtAddress(array%)
(
�s$:s$=""
2<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
<=s$
F:
P#� �Wimp_GetFileFromPathname(f$)
ZȎ �f$,".") �
d � 0    :=f$
n7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
x�
�:
�� �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
��
�:
�|
�|
�|
"1�|                  -------------------------
,,�|                      5.�Miscellaneous
61�|                  -------------------------
@�|
J�|
T5�|                -------------------------------
^�|
h(�|                      Procedures :
r�|
|�|
�1�|                  PROCWimp_Start(TaskName$)
�.�|                  FNWimp_BASICParameters
�2�|                  PROCWimp_SetEventVariables
�7�|                  PROCWimp_Error(task%,TaskName$)
�*�|                  PROCWimp_CloseDown
�%�|                  PROCWimp_Quit
�6�|                  FNWimp_ReadVariable(Variable$)
��|
��|
�5�|                -------------------------------
��|
�:
�/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
%� wimp% wimp_memory%,icons% icon%
)� wimp_memory%<256 � wimp_memory%=256
icon_memory%=icons%+icon%
&task$=TaskName$
0+indirect_sprites%=1 : direct_sprites%=1
:�Wimp_SetEventVariables
D� � �Wimp_Error:�
N@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
X�
b:
l� �Wimp_BASICParameters
v � 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
!sprites%=1:version%=0:task%=0
*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
 *x_origin%=0:y_origin%=0:SaveWindow%=-3
*3message_quit%=0:message_save%=2:message_load%=3
4!mouse_button%=2:save_event%=0
> top_line%=0 : bottom_line%=0
H�
R:
\� �Wimp_Error
f
�X$,x%
p	� � �
zx%=�
�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
finished%=�
�
$:
.#� �Wimp_ReadVariable(Variable$)
8�len%,result%,variable%
B$wimp%=Variable$
L3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
Vwimp%?(len%+255)=13
`=$(wimp%+255)
j:
t:
~�|
��|
��|
��|
�)�|                   ----------------
�'�|                     Wimp Polling
�)�|                   ----------------
��|
��|
�:
�� �Wimp_WaitForEvent
�� mask%,event%
�finished%=�
mask%=%111000011001

�
' ș"Wimp_Poll",mask%,wimp% � event%
 Ȏ event% �
(
  �0 :
2  �1 : �Wimp_PollDrawWindow
<&  �2 : ș "Wimp_OpenWindow",,wimp%
F   �3 : �Wimp_PollCloseWindow
P
  �4 :
Z
  �5 :
d  �6 : �Wimp_PollMouseClick
n   �7 : �Wimp_PollSaveMessage
x  �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
Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
ȕmore%
"0 � interface% � ș"Wimp_BorderWindow",,wimp%
,- �Event_Draw(window%,x_origin%,y_origin%)
6' ș"Wimp_GetRectangle",,wimp%�more%
@�
J�
T:
^� �Wimp_PollCloseWindow
h%  ș "Wimp_GetPointerInfo",,wimp%
r)  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
�              �
� �
��
:
� �Wimp_PollMenuPopUp
menu%=�Event_Menu(window%)
&  Ȏ menu%  �
0   � �:
:
    :
D     Ȏ window% �
N      � -2   : n%=0
X3        ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
b         n%+=1
l
        �
v:        ș "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%
3 �Event_MouseClick(window%,icon%,button%,x%,y%)
 Ȏ  interface% �
   � � :
*(   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
4(   wimp%!12=window% : wimp%!16=icon%
>!   ș"Wimp_BorderIcon",,wimp%
H �
R�
\:
f!� �Wimp_PollSaveFile(window%)
p
�file$
z@ 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%
 !wimp%=window%
# ș"Wimp_GetWindowState",,wimp%
$- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
. wimp%!4=0
8! ș"Wimp_GetIconState",,wimp%
B !wimp%=window%
L wimp%!4=5
V, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
`. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
j wimp%!24=0:wimp%!28=0
t* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
~ ș"Wimp_DragBox",,wimp%
��
�:
�� �Wimp_PollKeyPress
�1  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
�  Ȏ �Event_Save(window%) �
�   � � :
�   Ȏ key% �
�+    � &01B : �Wimp_WindowClose(window%)
�'     : �Wimp_PollSaveFile(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 4f f4 7c 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |...O.|__________|
00000010  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000040  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 0d  |_______________.|
00000050  00 14 4f f4 7c 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |..O.|___________|
00000060  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000090  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 0d 00  |______________..|
000000a0  1e 4f f4 7c 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |.O.|____________|
000000b0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
000000e0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 0d 00 28  |_____________..(|
000000f0  06 f4 7c 0d 00 32 06 f4  7c 0d 00 3c 06 f4 7c 0d  |..|..2..|..<..|.|
00000100  00 46 45 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.FE.|           |
00000110  20 20 20 20 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |     -----------|
00000120  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000130  2d 2d 2d 2d 20 20 20 20  20 20 20 20 20 20 36 2f  |----          6/|
00000140  31 2f 39 32 0d 00 50 2f  f4 7c 20 20 20 20 20 20  |1/92..P/.|      |
00000150  20 20 20 20 20 20 20 20  20 20 20 20 20 57 49 4d  |             WIM|
00000160  50 20 50 52 4f 43 45 44  55 52 45 20 4c 49 42 52  |P PROCEDURE LIBR|
00000170  41 52 59 0d 00 5a 06 f4  7c 0d 00 64 2c f4 7c 20  |ARY..Z..|..d,.| |
00000180  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000190  20 20 20 20 49 6e 64 65  78 20 6f 66 20 43 6f 6e  |    Index of Con|
000001a0  74 65 6e 74 73 0d 00 6e  06 f4 7c 0d 00 78 35 f4  |tents..n..|..x5.|
000001b0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000001c0  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
000001d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000001e0  0d 00 82 06 f4 7c 0d 00  8c 24 f4 7c 20 20 20 20  |.....|...$.|    |
000001f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000200  31 2e a0 57 69 6e 64 6f  77 73 0d 00 96 06 f4 7c  |1..Windows.....||
00000210  0d 00 a0 22 f4 7c 20 20  20 20 20 20 20 20 20 20  |...".|          |
00000220  20 20 20 20 20 20 20 20  20 20 32 2e a0 49 63 6f  |          2..Ico|
00000230  6e 73 0d 00 aa 06 f4 7c  0d 00 b4 22 f4 7c 20 20  |ns.....|...".|  |
00000240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000250  20 20 33 2e a0 4d 65 6e  75 73 0d 00 be 06 f4 7c  |  3..Menus.....||
00000260  0d 00 c8 24 f4 7c 20 20  20 20 20 20 20 20 20 20  |...$.|          |
00000270  20 20 20 20 20 20 20 20  20 20 34 2e a0 53 70 72  |          4..Spr|
00000280  69 74 65 73 0d 00 d2 06  f4 7c 0d 00 dc 2a f4 7c  |ites.....|...*.||
00000290  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002a0  20 20 20 20 35 2e a0 4d  69 73 63 65 6c 6c 61 6e  |    5..Miscellan|
000002b0  65 6f 75 73 0d 00 e6 06  f4 7c 0d 00 f0 24 f4 7c  |eous.....|...$.||
000002c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002d0  20 20 20 20 36 2e a0 50  6f 6c 6c 69 6e 67 0d 00  |    6..Polling..|
000002e0  fa 06 f4 7c 0d 01 04 35  f4 7c 20 20 20 20 20 20  |...|...5.|      |
000002f0  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
00000300  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000310  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 01 0e 06 f4 7c 0d  |---------.....|.|
00000320  01 18 06 f4 7c 0d 01 22  06 f4 7c 0d 01 2c 06 f4  |....|.."..|..,..|
00000330  7c 0d 01 36 06 f4 7c 0d  01 40 06 f4 7c 0d 01 4a  ||..6..|..@..|..J|
00000340  35 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |5.|             |
00000350  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00000360  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000370  2d 2d 0d 01 54 2a f4 7c  20 20 20 20 20 20 20 20  |--..T*.|        |
00000380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000390  20 20 31 2e a0 57 69 6e  64 6f 77 73 0d 01 5e 35  |  1..Windows..^5|
000003a0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
000003b0  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
000003c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000003d0  2d 0d 01 68 06 f4 7c 0d  01 72 06 f4 7c 0d 01 7c  |-..h..|..r..|..||
000003e0  40 f4 7c 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |@.|          ---|
000003f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 0d 01 86  |-------------...|
00000420  06 f4 7c 0d 01 90 28 f4  7c 20 20 20 20 20 20 20  |..|...(.|       |
00000430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 50  |               P|
00000440  72 6f 63 65 64 75 72 65  73 20 3a 0d 01 9a 06 f4  |rocedures :.....|
00000450  7c 0d 01 a4 38 f4 7c 20  20 20 20 20 20 20 20 20  ||...8.|         |
00000460  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 57 69 6e  |    PROCWimp_Win|
00000470  64 6f 77 41 6c 65 72 74  28 74 69 74 6c 65 24 2c  |dowAlert(title$,|
00000480  6d 65 73 73 61 67 65 24  29 0d 01 ae 43 f4 7c 20  |message$)...C.| |
00000490  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
000004a0  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
000004b0  42 6f 78 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |Box(title$,messa|
000004c0  67 65 24 2c 62 75 74 74  6f 6e 25 29 0d 01 b8 37  |ge$,button%)...7|
000004d0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |.|             F|
000004e0  4e 57 69 6d 70 5f 57 69  6e 64 6f 77 43 61 6e 63  |NWimp_WindowCanc|
000004f0  65 6c 28 74 69 74 6c 65  24 2c 6d 65 73 73 61 67  |el(title$,messag|
00000500  65 24 29 0d 01 c2 3b f4  7c 20 20 20 20 20 20 20  |e$)...;.|       |
00000510  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 57  |      PROCWimp_W|
00000520  69 6e 64 6f 77 45 72 72  6f 72 42 6f 78 28 74 69  |indowErrorBox(ti|
00000530  74 6c 65 24 2c 6d 65 73  73 61 67 65 24 29 0d 01  |tle$,message$)..|
00000540  cc 2e f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |...|            |
00000550  20 46 4e 57 69 6d 70 5f  57 69 6e 64 6f 77 54 69  | FNWimp_WindowTi|
00000560  74 6c 65 28 77 69 6e 64  6f 77 25 29 0d 01 d6 2d  |tle(window%)...-|
00000570  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |.|             F|
00000580  4e 57 69 6d 70 5f 57 69  6e 64 6f 77 4c 6f 61 64  |NWimp_WindowLoad|
00000590  28 77 69 6e 64 6f 77 24  29 0d 01 e0 3b f4 7c 20  |(window$)...;.| |
000005a0  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
000005b0  6d 70 5f 57 69 6e 64 6f  77 4c 6f 61 64 46 72 6f  |mp_WindowLoadFro|
000005c0  6d 28 77 69 6e 64 6f 77  24 2c 74 65 6d 70 6c 61  |m(window$,templa|
000005d0  74 65 24 29 0d 01 ea 35  f4 7c 20 20 20 20 20 20  |te$)...5.|      |
000005e0  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
000005f0  57 69 6e 64 6f 77 42 72  69 6e 67 54 6f 54 6f 70  |WindowBringToTop|
00000600  28 77 69 6e 64 6f 77 25  29 0d 01 f4 34 f4 7c 20  |(window%)...4.| |
00000610  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
00000620  57 69 6d 70 5f 57 69 6e  64 6f 77 46 6f 72 63 65  |Wimp_WindowForce|
00000630  44 72 61 77 28 77 69 6e  64 6f 77 25 29 0d 01 fe  |Draw(window%)...|
00000640  2f f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |/.|             |
00000650  50 52 4f 43 57 69 6d 70  5f 57 69 6e 64 6f 77 4f  |PROCWimp_WindowO|
00000660  70 65 6e 28 77 69 6e 64  6f 77 25 29 0d 02 08 2b  |pen(window%)...+|
00000670  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 50  |.|             P|
00000680  52 4f 43 57 69 6d 70 5f  57 69 6e 64 6f 77 49 6e  |ROCWimp_WindowIn|
00000690  74 65 72 66 61 63 65 0d  02 12 06 f4 7c 0d 02 1c  |terface.....|...|
000006a0  3f f4 7c 20 20 20 20 20  20 20 20 20 20 20 2d 2d  |?.|           --|
000006b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000006d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 02 26 06  |------------..&.|
000006e0  f4 7c 0d 02 30 06 f4 7c  0d 02 3a 06 f4 7c 0d 02  |.|..0..|..:..|..|
000006f0  44 28 dd 20 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |D(. .Wimp_Window|
00000700  41 6c 65 72 74 28 74 69  74 6c 65 24 2c 6d 65 73  |Alert(title$,mes|
00000710  73 61 67 65 24 29 0d 02  4e 2b f2 57 69 6d 70 5f  |sage$)..N+.Wimp_|
00000720  57 69 6e 64 6f 77 41 6c  65 72 74 42 6f 78 28 74  |WindowAlertBox(t|
00000730  69 74 6c 65 24 2c 6d 65  73 73 61 67 65 24 2c 30  |itle$,message$,0|
00000740  29 0d 02 58 05 e1 0d 02  62 05 3a 0d 02 6c 33 dd  |)..X....b.:..l3.|
00000750  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 41 6c 65  | .Wimp_WindowAle|
00000760  72 74 42 6f 78 28 74 69  74 6c 65 24 2c 6d 65 73  |rtBox(title$,mes|
00000770  73 61 67 65 24 2c 62 75  74 74 6f 6e 25 29 0d 02  |sage$,button%)..|
00000780  76 0f ea 20 72 65 73 70  6f 6e 73 65 25 0d 02 80  |v.. response%...|
00000790  17 24 28 77 69 6d 70 25  2b 34 29 3d 6d 65 73 73  |.$(wimp%+4)=mess|
000007a0  61 67 65 24 0d 02 8a 10  c8 8e 20 62 75 74 74 6f  |age$...... butto|
000007b0  6e 25 20 ca 0d 02 94 19  20 c9 20 32 20 20 20 20  |n% ..... . 2    |
000007c0  3a 20 72 65 73 70 6f 6e  73 65 25 3d 31 0d 02 9e  |: response%=1...|
000007d0  1a 20 c9 20 31 20 20 20  20 3a 20 72 65 73 70 6f  |. . 1    : respo|
000007e0  6e 73 65 25 3d 31 35 0d  02 a8 21 20 c9 20 33 20  |nse%=15...! . 3 |
000007f0  20 20 20 3a 20 72 65 73  70 6f 6e 73 65 25 3d 28  |   : response%=(|
00000800  31 3c 3c 35 29 2b 31 36  0d 02 b2 21 20 c9 20 34  |1<<5)+16...! . 4|
00000810  20 20 20 20 3a 20 72 65  73 70 6f 6e 73 65 25 3d  |    : response%=|
00000820  28 31 3c 3c 36 29 2b 31  36 0d 02 bc 14 7f 20 3a  |(1<<6)+16..... :|
00000830  20 72 65 73 70 6f 6e 73  65 25 3d 31 36 0d 02 c6  | response%=16...|
00000840  05 cb 0d 02 d0 3d c8 99  20 22 57 69 6d 70 5f 52  |.....=.. "Wimp_R|
00000850  65 70 6f 72 74 45 72 72  6f 72 22 2c 77 69 6d 70  |eportError",wimp|
00000860  25 2c 72 65 73 70 6f 6e  73 65 25 2c 74 69 74 6c  |%,response%,titl|
00000870  65 24 20 b8 20 2c 72 65  73 70 6f 6e 73 65 25 0d  |e$ . ,response%.|
00000880  02 da 05 e1 0d 02 e4 05  3a 0d 02 ee 29 dd 20 a4  |........:...). .|
00000890  57 69 6d 70 5f 57 69 6e  64 6f 77 43 61 6e 63 65  |Wimp_WindowCance|
000008a0  6c 28 74 69 74 6c 65 24  2c 6d 65 73 73 61 67 65  |l(title$,message|
000008b0  24 29 0d 02 f8 17 24 28  77 69 6d 70 25 2b 34 29  |$)....$(wimp%+4)|
000008c0  3d 6d 65 73 73 61 67 65  24 0d 03 02 10 72 65 73  |=message$....res|
000008d0  70 6f 6e 73 65 25 3d 32  33 0d 03 0c 3d c8 99 20  |ponse%=23...=.. |
000008e0  22 57 69 6d 70 5f 52 65  70 6f 72 74 45 72 72 6f  |"Wimp_ReportErro|
000008f0  72 22 2c 77 69 6d 70 25  2c 72 65 73 70 6f 6e 73  |r",wimp%,respons|
00000900  65 25 2c 74 69 74 6c 65  24 20 b8 20 2c 72 65 73  |e%,title$ . ,res|
00000910  70 6f 6e 73 65 25 0d 03  16 10 3d 72 65 73 70 6f  |ponse%....=respo|
00000920  6e 73 65 25 2d 32 0d 03  20 05 3a 0d 03 2a 2b dd  |nse%-2.. .:..*+.|
00000930  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 45 72 72  | .Wimp_WindowErr|
00000940  6f 72 42 6f 78 28 74 69  74 6c 65 24 2c 6d 65 73  |orBox(title$,mes|
00000950  73 61 67 65 24 29 0d 03  34 2b f2 57 69 6d 70 5f  |sage$)..4+.Wimp_|
00000960  57 69 6e 64 6f 77 41 6c  65 72 74 42 6f 78 28 74  |WindowAlertBox(t|
00000970  69 74 6c 65 24 2c 6d 65  73 73 61 67 65 24 2c 32  |itle$,message$,2|
00000980  29 0d 03 3e 05 e1 0d 03  48 05 3a 0d 03 52 20 dd  |)..>....H.:..R .|
00000990  20 a4 57 69 6d 70 5f 57  69 6e 64 6f 77 54 69 74  | .Wimp_WindowTit|
000009a0  6c 65 28 77 69 6e 64 6f  77 25 29 0d 03 5c 13 77  |le(window%)..\.w|
000009b0  69 6d 70 25 21 30 3d 77  69 6e 64 6f 77 25 0d 03  |imp%!0=window%..|
000009c0  66 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 57 69  |f .. "Wimp_GetWi|
000009d0  6e 64 49 6e 66 6f 22 2c  2c 77 69 6d 70 25 0d 03  |ndInfo",,wimp%..|
000009e0  70 36 e7 20 28 28 77 69  6d 70 25 21 36 30 29 80  |p6. ((wimp%!60).|
000009f0  26 31 30 30 29 3d 30 20  85 20 31 2c 22 54 69 74  |&100)=0 . 1,"Tit|
00000a00  6c 65 20 69 73 6e 27 74  20 69 6e 64 69 72 65 63  |le isn't indirec|
00000a10  74 65 64 22 0d 03 7a 10  3d 24 28 77 69 6d 70 25  |ted"..z.=$(wimp%|
00000a20  21 37 36 29 0d 03 84 05  3a 0d 03 8e 1f dd 20 a4  |!76)....:..... .|
00000a30  57 69 6d 70 5f 57 69 6e  64 6f 77 4c 6f 61 64 28  |Wimp_WindowLoad(|
00000a40  77 69 6e 64 6f 77 24 29  0d 03 98 39 3d a4 57 69  |window$)...9=.Wi|
00000a50  6d 70 5f 57 69 6e 64 6f  77 4c 6f 61 64 46 72 6f  |mp_WindowLoadFro|
00000a60  6d 28 77 69 6e 64 6f 77  24 2c 22 3c 4f 62 65 79  |m(window$,"<Obey|
00000a70  24 44 69 72 3e 2e 54 65  6d 70 6c 61 74 65 73 22  |$Dir>.Templates"|
00000a80  29 0d 03 a2 05 3a 0d 03  ac 2d dd 20 a4 57 69 6d  |)....:...-. .Wim|
00000a90  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 46 72 6f 6d  |p_WindowLoadFrom|
00000aa0  28 77 69 6e 64 6f 77 24  2c 74 65 6d 70 6c 61 74  |(window$,templat|
00000ab0  65 24 29 0d 03 b6 1a ea  20 63 25 2c 69 25 2c 6e  |e$)..... c%,i%,n|
00000ac0  25 2c 6a 25 2c 73 70 24  2c 73 70 32 24 0d 03 c0  |%,j%,sp$,sp2$...|
00000ad0  25 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 54 65  |%.. "Wimp_OpenTe|
00000ae0  6d 70 6c 61 74 65 22 2c  2c 74 65 6d 70 6c 61 74  |mplate",,templat|
00000af0  65 24 0d 03 ca 4d c8 99  20 22 57 69 6d 70 5f 4c  |e$...M.. "Wimp_L|
00000b00  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 77 69  |oadTemplate",,wi|
00000b10  6d 70 25 2c 69 63 6f 6e  73 25 2c 69 63 6f 6e 5f  |mp%,icons%,icon_|
00000b20  6d 65 6d 6f 72 79 25 2c  2d 31 2c 77 69 6e 64 6f  |memory%,-1,windo|
00000b30  77 24 2c 30 20 b8 20 2c  2c 69 63 6f 6e 73 25 0d  |w$,0 . ,,icons%.|
00000b40  03 d4 11 c8 8e 20 73 70  72 69 74 65 73 25 20 ca  |..... sprites% .|
00000b50  0d 03 de 1f 20 c9 20 31  20 20 20 20 3a 20 77 69  |.... . 1    : wi|
00000b60  6d 70 25 21 36 34 3d 73  70 72 69 74 65 73 25 0d  |mp%!64=sprites%.|
00000b70  03 e8 29 20 7f 20 3a 20  77 69 6d 70 25 21 36 34  |..) . : wimp%!64|
00000b80  3d a4 45 76 65 6e 74 5f  53 70 72 69 74 65 73 28  |=.Event_Sprites(|
00000b90  77 69 6e 64 6f 77 25 29  0d 03 f2 05 cb 0d 03 fc  |window%)........|
00000ba0  26 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  |&.. "Wimp_Create|
00000bb0  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 20 b8  |Window",,wimp% .|
00000bc0  20 63 25 0d 04 06 1b c8  99 20 22 57 69 6d 70 5f  | c%...... "Wimp_|
00000bd0  43 6c 6f 73 65 54 65 6d  70 6c 61 74 65 22 0d 04  |CloseTemplate"..|
00000be0  10 37 c8 99 20 22 57 69  6d 70 5f 57 68 69 63 68  |.7.. "Wimp_Which|
00000bf0  49 63 6f 6e 22 2c 63 25  2c 77 69 6d 70 25 2b 34  |Icon",c%,wimp%+4|
00000c00  30 2c 31 2b 32 2b 28 31  3c 3c 38 29 2c 32 2b 28  |0,1+2+(1<<8),2+(|
00000c10  31 3c 3c 38 29 0d 04 1a  11 c8 8e 20 77 69 6d 70  |1<<8)...... wimp|
00000c20  25 21 34 30 20 ca 0d 04  24 0d 20 c9 20 2d 31 20  |%!40 ...$. . -1 |
00000c30  20 20 3a 0d 04 2e 0e 20  7f 20 3a 20 69 25 3d 34  |  :.... . : i%=4|
00000c40  30 0d 04 38 06 20 f5 0d  04 42 24 20 20 20 77 69  |0..8. ...B$   wi|
00000c50  6d 70 25 21 34 3d 77 69  6d 70 25 21 69 25 20 3a  |mp%!4=wimp%!i% :|
00000c60  20 77 69 6d 70 25 21 30  3d 63 25 0d 04 4c 24 20  | wimp%!0=c%..L$ |
00000c70  20 20 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |  .. "Wimp_GetIc|
00000c80  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00000c90  04 56 2d 20 20 20 73 70  24 3d a4 57 69 6d 70 5f  |.V-   sp$=.Wimp_|
00000ca0  47 65 74 53 74 72 69 6e  67 41 74 41 64 64 72 65  |GetStringAtAddre|
00000cb0  73 73 28 77 69 6d 70 25  21 32 38 29 0d 04 60 22  |ss(wimp%!28)..`"|
00000cc0  20 20 20 c8 99 20 22 57  69 6d 70 5f 44 65 6c 65  |   .. "Wimp_Dele|
00000cd0  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 0d 04  |teIcon",,wimp%..|
00000ce0  6a 14 20 20 20 c8 8e 20  73 70 72 69 74 65 73 25  |j.   .. sprites%|
00000cf0  20 ca 0d 04 74 1b 20 20  20 20 c9 20 31 20 20 20  | ...t.    . 1   |
00000d00  20 3a 20 77 69 6d 70 25  21 33 32 3d 31 0d 04 7e  | : wimp%!32=1..~|
00000d10  0b 20 20 20 20 7f 20 3a  0d 04 88 2f 20 20 20 20  |.    . :.../    |
00000d20  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00000d30  22 2c 26 31 30 38 2c 73  70 72 69 74 65 73 25 20  |",&108,sprites% |
00000d40  b8 20 2c 2c 2c 6e 25 0d  04 92 0d 20 20 20 20 20  |. ,,,n%....     |
00000d50  6a 25 3d 30 0d 04 9c 12  20 20 20 20 20 f5 20 3a  |j%=0....     . :|
00000d60  20 6a 25 2b 3d 31 0d 04  a6 3d 20 20 20 20 20 20  | j%+=1...=      |
00000d70  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
00000d80  2c 26 31 30 44 2c 73 70  72 69 74 65 73 25 2c 70  |,&10D,sprites%,p|
00000d90  6f 69 6e 74 65 72 5f 62  6c 6f 63 6b 25 2c 32 30  |ointer_block%,20|
00000da0  2c 6a 25 0d 04 b0 37 20  20 20 20 20 20 73 70 32  |,j%...7      sp2|
00000db0  24 3d a4 57 69 6d 70 5f  47 65 74 53 74 72 69 6e  |$=.Wimp_GetStrin|
00000dc0  67 41 74 41 64 64 72 65  73 73 28 70 6f 69 6e 74  |gAtAddress(point|
00000dd0  65 72 5f 62 6c 6f 63 6b  25 29 0d 04 ba 1b 20 20  |er_block%)....  |
00000de0  20 20 20 fd 20 6a 25 3d  6e 25 20 84 20 73 70 24  |   . j%=n% . sp$|
00000df0  3d 73 70 32 24 0d 04 c4  34 20 20 20 20 20 e7 20  |=sp2$...4     . |
00000e00  73 70 24 3d 73 70 32 24  20 8c 20 77 69 6d 70 25  |sp$=sp2$ . wimp%|
00000e10  21 33 32 3d 73 70 72 69  74 65 73 25 20 8b 20 77  |!32=sprites% . w|
00000e20  69 6d 70 25 21 33 32 3d  31 0d 04 ce 08 20 20 20  |imp%!32=1....   |
00000e30  cb 0d 04 d8 11 20 20 20  77 69 6d 70 25 21 34 3d  |.....   wimp%!4=|
00000e40  63 25 0d 04 e2 2e 20 20  20 c8 99 20 22 57 69 6d  |c%....   .. "Wim|
00000e50  70 5f 43 72 65 61 74 65  49 63 6f 6e 22 2c 2c 77  |p_CreateIcon",,w|
00000e60  69 6d 70 25 2b 34 20 b8  20 68 61 6e 64 6c 65 25  |imp%+4 . handle%|
00000e70  0d 04 ec 0c 20 20 20 69  25 2b 3d 34 0d 04 f6 14  |....   i%+=4....|
00000e80  20 fd 20 28 77 69 6d 70  25 21 69 25 29 3d 2d 31  | . (wimp%!i%)=-1|
00000e90  0d 05 00 05 cb 0d 05 0a  07 3d 63 25 0d 05 14 05  |.........=c%....|
00000ea0  3a 0d 05 1e 25 dd 20 f2  57 69 6d 70 5f 57 69 6e  |:...%. .Wimp_Win|
00000eb0  64 6f 77 42 72 69 6e 67  54 6f 54 6f 70 28 77 69  |dowBringToTop(wi|
00000ec0  6e 64 6f 77 25 29 0d 05  28 12 21 77 69 6d 70 25  |ndow%)..(.!wimp%|
00000ed0  3d 77 69 6e 64 6f 77 25  0d 05 32 23 c8 99 20 22  |=window%..2#.. "|
00000ee0  57 69 6d 70 5f 47 65 74  57 69 6e 64 6f 77 53 74  |Wimp_GetWindowSt|
00000ef0  61 74 65 22 2c 2c 77 69  6d 70 25 0d 05 3c 0f 77  |ate",,wimp%..<.w|
00000f00  69 6d 70 25 21 32 38 3d  2d 31 0d 05 46 1f c8 99  |imp%!28=-1..F...|
00000f10  20 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  | "Wimp_OpenWindo|
00000f20  77 22 2c 2c 77 69 6d 70  25 0d 05 50 05 e1 0d 05  |w",,wimp%..P....|
00000f30  5a 05 3a 0d 05 64 20 dd  20 f2 57 69 6d 70 5f 57  |Z.:..d . .Wimp_W|
00000f40  69 6e 64 6f 77 43 6c 6f  73 65 28 77 69 6e 64 6f  |indowClose(windo|
00000f50  77 25 29 0d 05 6e 12 21  77 69 6d 70 25 3d 77 69  |w%)..n.!wimp%=wi|
00000f60  6e 64 6f 77 25 0d 05 78  20 c8 99 20 22 57 69 6d  |ndow%..x .. "Wim|
00000f70  70 5f 43 6c 6f 73 65 57  69 6e 64 6f 77 22 2c 2c  |p_CloseWindow",,|
00000f80  77 69 6d 70 25 0d 05 82  05 e1 0d 05 8c 05 3a 0d  |wimp%.........:.|
00000f90  05 96 24 dd 20 f2 57 69  6d 70 5f 57 69 6e 64 6f  |..$. .Wimp_Windo|
00000fa0  77 46 6f 72 63 65 44 72  61 77 28 77 69 6e 64 6f  |wForceDraw(windo|
00000fb0  77 25 29 0d 05 a0 10 c8  8e 20 77 69 6e 64 6f 77  |w%)...... window|
00000fc0  25 20 ca 0d 05 aa 38 20  c9 20 2d 31 20 20 20 3a  |% ....8 . -1   :|
00000fd0  20 c8 99 20 22 57 69 6d  70 5f 46 6f 72 63 65 52  | .. "Wimp_ForceR|
00000fe0  65 64 72 61 77 22 2c 2d  31 2c 30 2c 30 2c 32 2a  |edraw",-1,0,0,2*|
00000ff0  31 32 38 30 2c 32 2a 31  30 32 34 0d 05 b4 39 20  |1280,2*1024...9 |
00001000  7f 20 3a 20 c8 99 20 22  57 69 6d 70 5f 46 6f 72  |. : .. "Wimp_For|
00001010  63 65 52 65 64 72 61 77  22 2c 77 69 6e 64 6f 77  |ceRedraw",window|
00001020  25 2c 30 2c 2d 32 2a 31  30 32 34 2c 32 2a 31 32  |%,0,-2*1024,2*12|
00001030  38 30 2c 30 0d 05 be 05  cb 0d 05 c8 05 e1 0d 05  |80,0............|
00001040  d2 05 3a 0d 05 dc 1f dd  20 f2 57 69 6d 70 5f 57  |..:..... .Wimp_W|
00001050  69 6e 64 6f 77 4f 70 65  6e 28 77 69 6e 64 6f 77  |indowOpen(window|
00001060  25 29 0d 05 e6 12 21 77  69 6d 70 25 3d 77 69 6e  |%)....!wimp%=win|
00001070  64 6f 77 25 0d 05 f0 23  c8 99 20 22 57 69 6d 70  |dow%...#.. "Wimp|
00001080  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001090  2c 2c 77 69 6d 70 25 0d  05 fa 1f c8 99 20 22 57  |,,wimp%...... "W|
000010a0  69 6d 70 5f 4f 70 65 6e  57 69 6e 64 6f 77 22 2c  |imp_OpenWindow",|
000010b0  2c 77 69 6d 70 25 0d 06  04 05 e1 0d 06 0e 05 3a  |,wimp%.........:|
000010c0  0d 06 18 19 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |.....Wimp_Window|
000010d0  49 6e 74 65 72 66 61 63  65 0d 06 22 20 c8 99 22  |Interface.." .."|
000010e0  57 69 6d 70 5f 42 6f 72  64 65 72 57 69 6e 64 6f  |Wimp_BorderWindo|
000010f0  77 22 2c 2c 77 69 6d 70  25 0d 06 2c 05 e1 0d 06  |w",,wimp%..,....|
00001100  36 06 f4 7c 0d 06 40 06  f4 7c 0d 06 4a 06 f4 7c  |6..|..@..|..J..||
00001110  0d 06 54 31 f4 7c 20 20  20 20 20 20 20 20 20 20  |..T1.|          |
00001120  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00001130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001140  2d 0d 06 5e 28 f4 7c 20  20 20 20 20 20 20 20 20  |-..^(.|         |
00001150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001160  20 32 2e a0 49 63 6f 6e  73 0d 06 68 31 f4 7c 20  | 2..Icons..h1.| |
00001170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001180  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00001190  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 06 72 06 f4 7c  |----------..r..||
000011a0  0d 06 7c 06 f4 7c 0d 06  86 3d f4 7c 20 20 20 20  |..|..|...=.|    |
000011b0  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
000011c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000011e0  2d 2d 2d 0d 06 90 06 f4  7c 0d 06 9a 28 f4 7c 20  |---.....|...(.| |
000011f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001200  20 20 20 20 20 50 72 6f  63 65 64 75 72 65 73 20  |     Procedures |
00001210  3a 0d 06 a4 06 f4 7c 0d  06 ae 2b f4 7c 20 20 20  |:.....|...+.|   |
00001220  20 20 20 20 20 20 20 20  20 20 20 46 4e 57 69 6d  |           FNWim|
00001230  70 5f 49 63 6f 6e 42 61  72 28 53 70 72 69 74 65  |p_IconBar(Sprite|
00001240  24 29 0d 06 b8 3c f4 7c  20 20 20 20 20 20 20 20  |$)...<.|        |
00001250  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 49  |      PROCWimp_I|
00001260  63 6f 6e 43 61 72 65 74  28 77 69 6e 64 6f 77 25  |conCaret(window%|
00001270  2c 69 63 6f 6e 25 2c 63  68 61 72 73 25 29 0d 06  |,icon%,chars%)..|
00001280  c2 32 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.2.|            |
00001290  20 20 46 4e 57 69 6d 70  5f 49 63 6f 6e 54 65 78  |  FNWimp_IconTex|
000012a0  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |t(window%,icon%)|
000012b0  0d 06 cc 38 f4 7c 20 20  20 20 20 20 20 20 20 20  |...8.|          |
000012c0  20 20 20 20 46 4e 57 69  6d 70 5f 49 63 6f 6e 56  |    FNWimp_IconV|
000012d0  61 6c 69 64 61 74 69 6f  6e 28 77 69 6e 64 6f 77  |alidation(window|
000012e0  25 2c 69 63 6f 6e 25 29  0d 06 d6 37 f4 7c 20 20  |%,icon%)...7.|  |
000012f0  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
00001300  57 69 6d 70 5f 49 63 6f  6e 44 69 73 61 62 6c 65  |Wimp_IconDisable|
00001310  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00001320  06 e0 36 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..6.|           |
00001330  20 20 20 50 52 4f 43 57  69 6d 70 5f 49 63 6f 6e  |   PROCWimp_Icon|
00001340  45 6e 61 62 6c 65 28 77  69 6e 64 6f 77 25 2c 69  |Enable(window%,i|
00001350  63 6f 6e 25 29 0d 06 ea  3f f4 7c 20 20 20 20 20  |con%)...?.|     |
00001360  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
00001370  49 63 6f 6e 50 75 74 53  70 72 69 74 65 28 77 69  |IconPutSprite(wi|
00001380  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 73 70 72 69  |ndow%,icon%,spri|
00001390  74 65 24 29 0d 06 f4 3d  f4 7c 20 20 20 20 20 20  |te$)...=.|      |
000013a0  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
000013b0  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 77 69 6e  |_IconPutText(win|
000013c0  64 6f 77 25 2c 69 63 6f  6e 25 2c 74 65 78 74 24  |dow%,icon%,text$|
000013d0  29 0d 06 fe 2f f4 7c 20  20 20 20 20 20 20 20 20  |).../.|         |
000013e0  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 49 63  |     PROCWimp_Ic|
000013f0  6f 6e 49 6e 74 65 72 66  61 63 65 53 74 61 72 74  |onInterfaceStart|
00001400  0d 07 08 30 f4 7c 20 20  20 20 20 20 20 20 20 20  |...0.|          |
00001410  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 49 63 6f  |    PROCWimp_Ico|
00001420  6e 49 6e 74 65 72 66 61  63 65 46 69 6e 69 73 68  |nInterfaceFinish|
00001430  0d 07 12 06 f4 7c 0d 07  1c 3d f4 7c 20 20 20 20  |.....|...=.|    |
00001440  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
00001450  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001470  2d 2d 2d 0d 07 26 06 f4  7c 0d 07 30 05 3a 0d 07  |---..&..|..0.:..|
00001480  3a 1c dd 20 a4 57 69 6d  70 5f 49 63 6f 6e 42 61  |:.. .Wimp_IconBa|
00001490  72 28 53 70 72 69 74 65  24 29 0d 07 44 0b ea 20  |r(Sprite$)..D.. |
000014a0  69 63 6f 6e 25 0d 07 4e  0e 77 69 6d 70 25 21 30  |icon%..N.wimp%!0|
000014b0  3d 2d 31 0d 07 58 1d 77  69 6d 70 25 21 34 3d 30  |=-1..X.wimp%!4=0|
000014c0  20 20 20 20 20 3a 20 77  69 6d 70 25 21 38 3d 30  |     : wimp%!8=0|
000014d0  0d 07 62 1d 77 69 6d 70  25 21 31 32 3d 36 38 20  |..b.wimp%!12=68 |
000014e0  3a 20 77 69 6d 70 25 21  31 36 3d 36 38 0d 07 6c  |: wimp%!16=68..l|
000014f0  12 77 69 6d 70 25 21 32  30 3d 26 33 30 30 32 0d  |.wimp%!20=&3002.|
00001500  07 76 17 24 28 77 69 6d  70 25 2b 32 34 29 3d 53  |.v.$(wimp%+24)=S|
00001510  70 72 69 74 65 24 0d 07  80 27 c8 99 20 22 57 69  |prite$...'.. "Wi|
00001520  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00001530  77 69 6d 70 25 20 b8 20  69 63 6f 6e 25 0d 07 8a  |wimp% . icon%...|
00001540  0a 3d 69 63 6f 6e 25 0d  07 94 05 3a 0d 07 9e 2b  |.=icon%....:...+|
00001550  dd 20 f2 57 69 6d 70 5f  49 63 6f 6e 43 61 72 65  |. .Wimp_IconCare|
00001560  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |t(window%,icon%,|
00001570  63 68 61 72 73 25 29 0d  07 a8 38 c8 99 20 22 57  |chars%)...8.. "W|
00001580  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00001590  74 69 6f 6e 22 2c 77 69  6e 64 6f 77 25 2c 69 63  |tion",window%,ic|
000015a0  6f 6e 25 2c 2c 2c 2d 31  2c 63 68 61 72 73 25 0d  |on%,,,-1,chars%.|
000015b0  07 b2 05 e1 0d 07 bc 05  3a 0d 07 c6 23 dd 20 a4  |........:...#. .|
000015c0  57 69 6d 70 5f 49 63 6f  6e 54 65 78 74 28 77 69  |Wimp_IconText(wi|
000015d0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 07 d0 23  |ndow%,icon%)...#|
000015e0  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
000015f0  3a 20 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |: wimp%!4=icon%.|
00001600  07 da 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |..!.. "Wimp_GetI|
00001610  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00001620  0d 07 e4 37 e7 20 28 28  77 69 6d 70 25 21 32 34  |...7. ((wimp%!24|
00001630  29 20 80 20 26 31 30 30  29 3d 30 20 85 20 31 2c  |) . &100)=0 . 1,|
00001640  22 49 63 6f 6e 20 69 73  6e 27 74 20 69 6e 64 69  |"Icon isn't indi|
00001650  72 65 63 74 65 64 22 0d  07 ee 10 3d 24 28 77 69  |rected"....=$(wi|
00001660  6d 70 25 21 32 38 29 0d  07 f8 05 3a 0d 08 02 29  |mp%!28)....:...)|
00001670  dd 20 a4 57 69 6d 70 5f  49 63 6f 6e 56 61 6c 69  |. .Wimp_IconVali|
00001680  64 61 74 69 6f 6e 28 77  69 6e 64 6f 77 25 2c 69  |dation(window%,i|
00001690  63 6f 6e 25 29 0d 08 0c  23 77 69 6d 70 25 21 30  |con%)...#wimp%!0|
000016a0  3d 77 69 6e 64 6f 77 25  20 3a 20 77 69 6d 70 25  |=window% : wimp%|
000016b0  21 34 3d 69 63 6f 6e 25  0d 08 16 21 c8 99 20 22  |!4=icon%...!.. "|
000016c0  57 69 6d 70 5f 47 65 74  49 63 6f 6e 53 74 61 74  |Wimp_GetIconStat|
000016d0  65 22 2c 2c 77 69 6d 70  25 0d 08 20 37 e7 20 28  |e",,wimp%.. 7. (|
000016e0  28 77 69 6d 70 25 21 32  34 29 20 80 20 26 31 30  |(wimp%!24) . &10|
000016f0  30 29 3d 30 20 85 20 31  2c 22 49 63 6f 6e 20 69  |0)=0 . 1,"Icon i|
00001700  73 6e 27 74 20 69 6e 64  69 72 65 63 74 65 64 22  |sn't indirected"|
00001710  0d 08 2a 10 3d 24 28 77  69 6d 70 25 21 33 32 29  |..*.=$(wimp%!32)|
00001720  0d 08 34 05 3a 0d 08 3e  26 dd 20 f2 57 69 6d 70  |..4.:..>&. .Wimp|
00001730  5f 49 63 6f 6e 44 69 73  61 62 6c 65 28 77 69 6e  |_IconDisable(win|
00001740  64 6f 77 25 2c 69 63 6f  6e 25 29 0d 08 48 23 77  |dow%,icon%)..H#w|
00001750  69 6d 70 25 21 30 3d 77  69 6e 64 6f 77 25 20 3a  |imp%!0=window% :|
00001760  20 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 08  | wimp%!4=icon%..|
00001770  52 24 77 69 6d 70 25 21  38 3d 31 3c 3c 32 32 20  |R$wimp%!8=1<<22 |
00001780  20 20 3a 20 77 69 6d 70  25 21 31 32 3d 31 3c 3c  |  : wimp%!12=1<<|
00001790  32 32 0d 08 5c 21 c8 99  20 22 57 69 6d 70 5f 53  |22..\!.. "Wimp_S|
000017a0  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
000017b0  6d 70 25 0d 08 66 05 e1  0d 08 70 05 3a 0d 08 7a  |mp%..f....p.:..z|
000017c0  25 dd 20 f2 57 69 6d 70  5f 49 63 6f 6e 45 6e 61  |%. .Wimp_IconEna|
000017d0  62 6c 65 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ble(window%,icon|
000017e0  25 29 0d 08 84 23 77 69  6d 70 25 21 30 3d 77 69  |%)...#wimp%!0=wi|
000017f0  6e 64 6f 77 25 20 3a 20  77 69 6d 70 25 21 34 3d  |ndow% : wimp%!4=|
00001800  69 63 6f 6e 25 0d 08 8e  24 77 69 6d 70 25 21 38  |icon%...$wimp%!8|
00001810  3d 30 20 20 20 20 20 20  20 3a 20 77 69 6d 70 25  |=0       : wimp%|
00001820  21 31 32 3d 31 3c 3c 32  32 0d 08 98 21 c8 99 20  |!12=1<<22...!.. |
00001830  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00001840  74 65 22 2c 2c 77 69 6d  70 25 0d 08 a2 05 e1 0d  |te",,wimp%......|
00001850  08 ac 05 3a 0d 08 b6 30  dd 20 a4 57 69 6d 70 5f  |...:...0. .Wimp_|
00001860  49 63 6f 6e 50 75 74 53  70 72 69 74 65 28 77 69  |IconPutSprite(wi|
00001870  6e 64 6f 77 25 2c 69 63  6f 6e 25 2c 73 70 72 69  |ndow%,icon%,spri|
00001880  74 65 24 29 0d 08 c0 21  77 69 6d 70 25 21 30 3d  |te$)...!wimp%!0=|
00001890  77 69 6e 64 6f 77 25 3a  77 69 6d 70 25 21 34 3d  |window%:wimp%!4=|
000018a0  69 63 6f 6e 25 0d 08 ca  21 c8 99 20 22 57 69 6d  |icon%...!.. "Wim|
000018b0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
000018c0  2c 77 69 6d 70 25 0d 08  d4 1f c8 99 20 22 57 69  |,wimp%...... "Wi|
000018d0  6d 70 5f 44 65 6c 65 74  65 49 63 6f 6e 22 2c 2c  |mp_DeleteIcon",,|
000018e0  77 69 6d 70 25 0d 08 de  3d 77 69 6d 70 25 21 34  |wimp%...=wimp%!4|
000018f0  3d 77 69 6d 70 25 21 38  20 20 20 3a 20 77 69 6d  |=wimp%!8   : wim|
00001900  70 25 21 38 3d 77 69 6d  70 25 21 31 32 20 20 3a  |p%!8=wimp%!12  :|
00001910  20 77 69 6d 70 25 21 31  32 3d 77 69 6d 70 25 21  | wimp%!12=wimp%!|
00001920  31 36 0d 08 e8 3f 77 69  6d 70 25 21 31 36 3d 77  |16...?wimp%!16=w|
00001930  69 6d 70 25 21 32 30 20  3a 20 77 69 6d 70 25 21  |imp%!20 : wimp%!|
00001940  32 30 3d 77 69 6d 70 25  21 32 34 20 3a 20 24 28  |20=wimp%!24 : $(|
00001950  77 69 6d 70 25 2b 32 34  29 3d 73 70 72 69 74 65  |wimp%+24)=sprite|
00001960  24 0d 08 f2 27 c8 99 20  22 57 69 6d 70 5f 43 72  |$...'.. "Wimp_Cr|
00001970  65 61 74 65 49 63 6f 6e  22 2c 2c 77 69 6d 70 25  |eateIcon",,wimp%|
00001980  20 b8 20 69 63 6f 6e 25  0d 08 fc 0a 3d 69 63 6f  | . icon%....=ico|
00001990  6e 25 0d 09 06 05 3a 0d  09 10 2c dd 20 f2 57 69  |n%....:...,. .Wi|
000019a0  6d 70 5f 49 63 6f 6e 50  75 74 54 65 78 74 28 77  |mp_IconPutText(w|
000019b0  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 74 65 78  |indow%,icon%,tex|
000019c0  74 24 29 0d 09 1a 23 77  69 6d 70 25 21 30 3d 77  |t$)...#wimp%!0=w|
000019d0  69 6e 64 6f 77 25 20 3a  20 77 69 6d 70 25 21 34  |indow% : wimp%!4|
000019e0  3d 69 63 6f 6e 25 0d 09  24 21 c8 99 20 22 57 69  |=icon%..$!.. "Wi|
000019f0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
00001a00  2c 2c 77 69 6d 70 25 0d  09 2e 37 e7 20 28 28 77  |,,wimp%...7. ((w|
00001a10  69 6d 70 25 21 32 34 29  20 80 20 26 31 30 30 29  |imp%!24) . &100)|
00001a20  3d 30 20 85 20 31 2c 22  49 63 6f 6e 20 69 73 6e  |=0 . 1,"Icon isn|
00001a30  27 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 09  |'t indirected"..|
00001a40  38 15 24 28 77 69 6d 70  25 21 32 38 29 3d 74 65  |8.$(wimp%!28)=te|
00001a50  78 74 24 0d 09 42 23 77  69 6d 70 25 21 30 3d 77  |xt$..B#wimp%!0=w|
00001a60  69 6e 64 6f 77 25 20 3a  20 77 69 6d 70 25 21 34  |indow% : wimp%!4|
00001a70  3d 69 63 6f 6e 25 0d 09  4c 1a 77 69 6d 70 25 21  |=icon%..L.wimp%!|
00001a80  38 3d 30 20 3a 20 77 69  6d 70 25 21 31 32 3d 30  |8=0 : wimp%!12=0|
00001a90  0d 09 56 21 c8 99 20 22  57 69 6d 70 5f 53 65 74  |..V!.. "Wimp_Set|
00001aa0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
00001ab0  25 0d 09 60 05 e1 0d 09  6a 05 3a 0d 09 74 1e dd  |%..`....j.:..t..|
00001ac0  20 f2 57 69 6d 70 5f 49  63 6f 6e 49 6e 74 65 72  | .Wimp_IconInter|
00001ad0  66 61 63 65 53 74 61 72  74 0d 09 7e 1e c8 99 22  |faceStart..~..."|
00001ae0  57 69 6d 70 5f 42 6f 72  64 65 72 49 63 6f 6e 22  |Wimp_BorderIcon"|
00001af0  2c 2c 77 69 6d 70 25 0d  09 88 05 e1 0d 09 92 05  |,,wimp%.........|
00001b00  3a 0d 09 9c 1f dd 20 f2  57 69 6d 70 5f 49 63 6f  |:..... .Wimp_Ico|
00001b10  6e 49 6e 74 65 72 66 61  63 65 46 69 6e 69 73 68  |nInterfaceFinish|
00001b20  0d 09 a6 0d 77 69 6d 70  25 21 38 3d 30 0d 09 b0  |....wimp%!8=0...|
00001b30  1e c8 99 22 57 69 6d 70  5f 42 6f 72 64 65 72 49  |..."Wimp_BorderI|
00001b40  63 6f 6e 22 2c 2c 77 69  6d 70 25 0d 09 ba 05 e1  |con",,wimp%.....|
00001b50  0d 09 c4 05 3a 0d 09 ce  06 f4 7c 0d 09 d8 06 f4  |....:.....|.....|
00001b60  7c 0d 09 e2 06 f4 7c 0d  09 ec 31 f4 7c 20 20 20  ||.....|...1.|   |
00001b70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00001b80  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001b90  2d 2d 2d 2d 2d 2d 2d 2d  0d 09 f6 28 f4 7c 20 20  |--------...(.|  |
00001ba0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001bb0  20 20 20 20 20 20 20 20  33 2e a0 4d 65 6e 75 73  |        3..Menus|
00001bc0  0d 0a 00 31 f4 7c 20 20  20 20 20 20 20 20 20 20  |...1.|          |
00001bd0  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00001be0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001bf0  2d 0d 0a 0a 06 f4 7c 0d  0a 14 06 f4 7c 0d 0a 1e  |-.....|.....|...|
00001c00  3f f4 7c 20 20 20 20 20  20 20 20 20 20 20 2d 2d  |?.|           --|
00001c10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 0a 28 06  |------------..(.|
00001c40  f4 7c 0d 0a 32 28 f4 7c  20 20 20 20 20 20 20 20  |.|..2(.|        |
00001c50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 50 72  |              Pr|
00001c60  6f 63 65 64 75 72 65 73  20 3a 0d 0a 3c 06 f4 7c  |ocedures :..<..||
00001c70  0d 0a 46 06 f4 7c 0d 0a  50 2e f4 7c 20 20 20 20  |..F..|..P..|    |
00001c80  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00001c90  5f 4d 65 6e 75 41 64 6a  75 73 74 4f 6e 28 6d 65  |_MenuAdjustOn(me|
00001ca0  6e 75 25 29 0d 0a 5a 2b  f4 7c 20 20 20 20 20 20  |nu%)..Z+.|      |
00001cb0  20 20 20 20 20 20 46 4e  57 69 6d 70 5f 4d 65 6e  |      FNWimp_Men|
00001cc0  75 43 68 6f 69 63 65 28  6c 65 76 65 6c 25 29 0d  |uChoice(level%).|
00001cd0  0a 64 2a f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.d*.|           |
00001ce0  20 46 4e 57 69 6d 70 5f  4d 65 6e 75 43 72 65 61  | FNWimp_MenuCrea|
00001cf0  74 65 28 6d 65 6e 75 24  29 0d 0a 6e 24 f4 7c 20  |te(menu$)..n$.| |
00001d00  20 20 20 20 20 20 20 20  20 20 20 46 4e 57 69 6d  |           FNWim|
00001d10  70 5f 4d 65 6e 75 43 6f  6c 6f 75 72 73 0d 0a 78  |p_MenuColours..x|
00001d20  32 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 46  |2.|            F|
00001d30  4e 57 69 6d 70 5f 4d 65  6e 75 43 72 65 61 74 65  |NWimp_MenuCreate|
00001d40  43 6f 6c 6f 75 72 73 28  74 69 74 6c 65 24 29 0d  |Colours(title$).|
00001d50  0a 82 2f f4 7c 20 20 20  20 20 20 20 20 20 20 20  |../.|           |
00001d60  20 46 4e 57 69 6d 70 5f  4d 65 6e 75 4e 6f 4f 66  | FNWimp_MenuNoOf|
00001d70  45 6e 74 72 69 65 73 28  6d 65 6e 75 24 29 0d 0a  |Entries(menu$)..|
00001d80  8c 44 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.D.|            |
00001d90  50 52 4f 43 57 69 6d 70  5f 4d 65 6e 75 42 61 63  |PROCWimp_MenuBac|
00001da0  6b 47 72 6f 75 6e 64 43  6f 6c 6f 75 72 28 6d 65  |kGroundColour(me|
00001db0  6e 75 25 2c 69 74 65 6d  25 2c 63 6f 6c 6f 75 72  |nu%,item%,colour|
00001dc0  25 29 0d 0a 96 32 f4 7c  20 20 20 20 20 20 20 20  |%)...2.|        |
00001dd0  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 4d 65 6e  |    PROCWimp_Men|
00001de0  75 43 65 6e 74 72 65 28  6d 65 6e 75 25 2c 69 74  |uCentre(menu%,it|
00001df0  65 6d 25 29 0d 0a a0 24  f4 7c 20 20 20 20 20 20  |em%)...$.|      |
00001e00  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 4d  |      PROCWimp_M|
00001e10  65 6e 75 43 6c 6f 73 65  0d 0a aa 33 f4 7c 20 20  |enuClose...3.|  |
00001e20  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00001e30  6d 70 5f 4d 65 6e 75 44  69 73 61 62 6c 65 28 6d  |mp_MenuDisable(m|
00001e40  65 6e 75 25 2c 69 74 65  6d 25 29 0d 0a b4 36 f4  |enu%,item%)...6.|
00001e50  7c 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  ||            PRO|
00001e60  43 57 69 6d 70 5f 4d 65  6e 75 44 6f 74 74 65 64  |CWimp_MenuDotted|
00001e70  4c 69 6e 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |Line(menu%,item%|
00001e80  29 0d 0a be 32 f4 7c 20  20 20 20 20 20 20 20 20  |)...2.|         |
00001e90  20 20 20 50 52 4f 43 57  69 6d 70 5f 4d 65 6e 75  |   PROCWimp_Menu|
00001ea0  45 6e 61 62 6c 65 28 6d  65 6e 75 25 2c 69 74 65  |Enable(menu%,ite|
00001eb0  6d 25 29 0d 0a c8 44 f4  7c 20 20 20 20 20 20 20  |m%)...D.|       |
00001ec0  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 4d 65  |     PROCWimp_Me|
00001ed0  6e 75 46 6f 72 65 67 72  6f 75 6e 64 43 6f 6c 6f  |nuForegroundColo|
00001ee0  75 72 28 6d 65 6e 75 25  2c 69 74 65 6d 25 2c 63  |ur(menu%,item%,c|
00001ef0  6f 6c 6f 75 72 25 29 0d  0a d2 38 f4 7c 20 20 20  |olour%)...8.|   |
00001f00  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00001f10  70 5f 4d 65 6e 75 47 6c  75 65 28 6d 65 6e 75 31  |p_MenuGlue(menu1|
00001f20  25 2c 69 74 65 6d 25 2c  6d 65 6e 75 32 25 29 0d  |%,item%,menu2%).|
00001f30  0a dc 36 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..6.|           |
00001f40  20 50 52 4f 43 57 69 6d  70 5f 4d 65 6e 75 49 74  | PROCWimp_MenuIt|
00001f50  65 6d 28 6d 65 6e 75 25  2c 69 74 65 6d 25 2c 69  |em(menu%,item%,i|
00001f60  74 65 6d 24 29 0d 0a e6  33 f4 7c 20 20 20 20 20  |tem$)...3.|     |
00001f70  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
00001f80  4d 65 6e 75 4d 65 73 73  61 67 65 28 6d 65 6e 75  |MenuMessage(menu|
00001f90  25 2c 69 74 65 6d 25 29  0d 0a f0 31 f4 7c 20 20  |%,item%)...1.|  |
00001fa0  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00001fb0  6d 70 5f 4d 65 6e 75 50  6f 70 55 70 28 4d 65 6e  |mp_MenuPopUp(Men|
00001fc0  75 25 2c 78 25 2c 79 25  29 0d 0a fa 2e f4 7c 20  |u%,x%,y%).....| |
00001fd0  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00001fe0  69 6d 70 5f 4d 65 6e 75  50 6f 70 55 70 42 61 72  |imp_MenuPopUpBar|
00001ff0  28 78 25 2c 79 25 29 0d  0b 04 30 f4 7c 20 20 20  |(x%,y%)...0.|   |
00002000  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00002010  70 5f 4d 65 6e 75 54 69  63 6b 28 6d 65 6e 75 25  |p_MenuTick(menu%|
00002020  2c 69 74 65 6d 25 29 0d  0b 0e 32 f4 7c 20 20 20  |,item%)...2.|   |
00002030  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00002040  70 5f 4d 65 6e 75 54 69  74 6c 65 28 6d 65 6e 75  |p_MenuTitle(menu|
00002050  25 2c 74 69 74 6c 65 24  29 0d 0b 18 4c f4 7c 20  |%,title$)...L.| |
00002060  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00002070  69 6d 70 5f 4d 65 6e 75  57 72 69 74 65 28 6d 65  |imp_MenuWrite(me|
00002080  6e 75 25 2c 69 74 65 6d  25 2c 62 75 66 66 65 72  |nu%,item%,buffer|
00002090  25 2c 76 61 6c 25 2c 42  75 66 66 65 72 4c 65 6e  |%,val%,BufferLen|
000020a0  67 74 68 25 29 0d 0b 22  06 f4 7c 0d 0b 2c 3f f4  |gth%).."..|..,?.|
000020b0  7c 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  ||           ----|
000020c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000020e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 0b 36 06 f4 7c  |----------..6..||
000020f0  0d 0b 40 05 3a 0d 0b 4a  1f dd 20 f2 57 69 6d 70  |..@.:..J.. .Wimp|
00002100  5f 4d 65 6e 75 41 64 6a  75 73 74 4f 6e 28 6d 65  |_MenuAdjustOn(me|
00002110  6e 75 25 29 0d 0b 54 2c  c8 99 20 22 57 69 6d 70  |nu%)..T,.. "Wimp|
00002120  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00002130  2c 2c 70 6f 69 6e 74 65  72 5f 62 6c 6f 63 6b 25  |,,pointer_block%|
00002140  0d 0b 5e 5e e7 20 28 28  70 6f 69 6e 74 65 72 5f  |..^^. ((pointer_|
00002150  62 6c 6f 63 6b 25 21 38  29 80 31 29 3d 31 20 8c  |block%!8).1)=1 .|
00002160  20 c8 99 20 22 57 69 6d  70 5f 43 72 65 61 74 65  | .. "Wimp_Create|
00002170  4d 65 6e 75 22 2c 2c 6d  65 6e 75 25 2c 70 6f 69  |Menu",,menu%,poi|
00002180  6e 74 65 72 5f 62 6c 6f  63 6b 25 21 30 2c 70 6f  |nter_block%!0,po|
00002190  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 21 34 0d 0b  |inter_block%!4..|
000021a0  68 05 e1 0d 0b 72 05 3a  0d 0b 7c 1e dd 20 a4 57  |h....r.:..|.. .W|
000021b0  69 6d 70 5f 4d 65 6e 75  43 68 6f 69 63 65 28 6c  |imp_MenuChoice(l|
000021c0  65 76 65 6c 25 29 0d 0b  86 19 3d 28 77 69 6d 70  |evel%)....=(wimp|
000021d0  25 21 28 34 2a 6c 65 76  65 6c 25 29 29 2b 31 0d  |%!(4*level%))+1.|
000021e0  0b 90 05 3a 0d 0b 9a 1d  dd 20 a4 57 69 6d 70 5f  |...:..... .Wimp_|
000021f0  4d 65 6e 75 43 72 65 61  74 65 28 6d 65 6e 75 24  |MenuCreate(menu$|
00002200  29 0d 0b a4 29 e7 20 6d  65 6e 75 24 3d 22 43 6f  |)...). menu$="Co|
00002210  6c 6f 75 72 73 22 20 8c  3d a4 57 69 6d 70 5f 4d  |lours" .=.Wimp_M|
00002220  65 6e 75 43 6f 6c 6f 75  72 73 0d 0b ae 27 ea 20  |enuColours...'. |
00002230  6d 65 6e 75 25 2c 69 6e  64 65 78 25 2c 77 69 64  |menu%,index%,wid|
00002240  74 68 25 2c 6c 65 6e 67  74 68 25 2c 6b 25 2c 73  |th%,length%,k%,s|
00002250  25 0d 0b b8 2e de 20 6d  65 6e 75 25 20 32 38 2b  |%..... menu% 28+|
00002260  a4 57 69 6d 70 5f 4d 65  6e 75 4e 6f 4f 66 45 6e  |.Wimp_MenuNoOfEn|
00002270  74 72 69 65 73 28 6d 65  6e 75 24 29 2a 32 34 0d  |tries(menu$)*24.|
00002280  0b c2 37 6d 65 6e 75 25  3f 31 32 3d 37 20 20 20  |..7menu%?12=7   |
00002290  3a 20 6d 65 6e 75 25 3f  31 33 3d 32 20 20 3a 20  |: menu%?13=2  : |
000022a0  6d 65 6e 75 25 3f 31 34  3d 37 20 3a 6d 65 6e 75  |menu%?14=7 :menu|
000022b0  25 3f 31 35 3d 30 0d 0b  cc 2b 6d 65 6e 75 25 21  |%?15=0...+menu%!|
000022c0  31 36 3d 31 34 30 20 3a  20 6d 65 6e 75 25 21 32  |16=140 : menu%!2|
000022d0  30 3d 34 34 20 3a 20 6d  65 6e 75 25 21 32 34 3d  |0=44 : menu%!24=|
000022e0  30 0d 0b d6 13 69 6e 64  65 78 25 3d 6d 65 6e 75  |0....index%=menu|
000022f0  25 2b 32 38 0d 0b e0 20  24 6d 65 6e 75 25 3d c0  |%+28... $menu%=.|
00002300  6d 65 6e 75 24 2c a7 6d  65 6e 75 24 2c 22 5c 22  |menu$,.menu$,"\"|
00002310  29 2d 31 29 0d 0b ea 23  77 69 64 74 68 25 3d a9  |)-1)...#width%=.|
00002320  28 c0 6d 65 6e 75 24 2c  a7 6d 65 6e 75 24 2c 22  |(.menu$,.menu$,"|
00002330  5c 22 29 2d 31 29 29 0d  0b f4 24 6d 65 6e 75 24  |\")-1))...$menu$|
00002340  2b 3d 22 5c 22 20 3a 20  4d 65 6e 75 5f 4e 6f 4f  |+="\" : Menu_NoO|
00002350  66 45 6e 74 72 69 65 73  25 3d 30 0d 0b fe 10 c8  |fEntries%=0.....|
00002360  95 20 6d 65 6e 75 24 3c  3e 22 22 0d 0c 08 1f 6d  |. menu$<>""....m|
00002370  65 6e 75 24 3d c1 6d 65  6e 75 24 2c a7 6d 65 6e  |enu$=.menu$,.men|
00002380  75 24 2c 22 5c 22 29 2b  31 29 0d 0c 12 0e c8 8e  |u$,"\")+1)......|
00002390  20 6d 65 6e 75 24 20 ca  0d 0c 1c 09 20 c9 20 22  | menu$ ..... . "|
000023a0  22 0d 0c 26 08 20 7f 20  3a 0d 0c 30 31 20 20 21  |"..&. . :..01  !|
000023b0  69 6e 64 65 78 25 3d 30  20 3a 20 69 6e 64 65 78  |index%=0 : index|
000023c0  25 21 34 3d 2d 31 20 3a  20 69 6e 64 65 78 25 21  |%!4=-1 : index%!|
000023d0  38 3d 26 37 30 30 30 30  32 31 0d 0c 3a 1b 20 20  |8=&7000021..:.  |
000023e0  6c 65 6e 67 74 68 25 3d  a7 6d 65 6e 75 24 2c 22  |length%=.menu$,"|
000023f0  5c 22 29 2d 31 0d 0c 44  1e 20 20 6b 25 3d a7 c0  |\")-1..D.  k%=..|
00002400  6d 65 6e 75 24 2c 6c 65  6e 67 74 68 25 29 2c 22  |menu$,length%),"|
00002410  3e 22 29 0d 0c 4e 0d 20  20 c8 8e 20 6b 25 20 ca  |>")..N.  .. k% .|
00002420  0d 0c 58 0a 20 20 20 c9  20 30 0d 0c 62 08 20 20  |..X.   . 0..b.  |
00002430  20 7f 0d 0c 6c 25 20 20  20 20 73 25 3d a0 28 c1  | ...l%    s%=.(.|
00002440  6d 65 6e 75 24 2c 6b 25  2b 31 2c 6c 65 6e 67 74  |menu$,k%+1,lengt|
00002450  68 25 2d 6b 25 29 29 0d  0c 76 13 20 20 20 20 69  |h%-k%))..v.    i|
00002460  6e 64 65 78 25 21 34 3d  73 25 0d 0c 80 14 20 20  |ndex%!4=s%....  |
00002470  20 20 6c 65 6e 67 74 68  25 3d 6b 25 2d 31 0d 0c  |  length%=k%-1..|
00002480  8a 07 20 20 cb 0d 0c 94  22 20 20 24 28 69 6e 64  |..  ...."  $(ind|
00002490  65 78 25 2b 31 32 29 3d  c0 6d 65 6e 75 24 2c 6c  |ex%+12)=.menu$,l|
000024a0  65 6e 67 74 68 25 29 0d  0c 9e 27 20 20 e7 20 6c  |ength%)...'  . l|
000024b0  65 6e 67 74 68 25 3e 77  69 64 74 68 25 20 8c 20  |ength%>width% . |
000024c0  77 69 64 74 68 25 3d 6c  65 6e 67 74 68 25 0d 0c  |width%=length%..|
000024d0  a8 10 20 20 69 6e 64 65  78 25 2b 3d 32 34 0d 0c  |..  index%+=24..|
000024e0  b2 05 cb 0d 0c bc 05 ce  0d 0c c6 1a 6d 65 6e 75  |............menu|
000024f0  25 21 31 36 3d 31 36 2a  28 77 69 64 74 68 25 2b  |%!16=16*(width%+|
00002500  31 29 0d 0c d0 28 69 6e  64 65 78 25 21 2d 32 34  |1)...(index%!-24|
00002510  3d 69 6e 64 65 78 25 21  2d 32 34 20 84 20 26 38  |=index%!-24 . &8|
00002520  30 20 3a 20 3d 6d 65 6e  75 25 0d 0c da 05 3a 0d  |0 : =menu%....:.|
00002530  0c e4 17 dd 20 a4 57 69  6d 70 5f 4d 65 6e 75 43  |.... .Wimp_MenuC|
00002540  6f 6c 6f 75 72 73 0d 0c  ee 21 3d a4 57 69 6d 70  |olours...!=.Wimp|
00002550  5f 4d 65 6e 75 43 72 65  61 74 65 43 6f 6c 6f 75  |_MenuCreateColou|
00002560  72 73 28 22 20 22 29 0d  0c f8 05 3a 0d 0d 02 25  |rs(" ")....:...%|
00002570  dd 20 a4 57 69 6d 70 5f  4d 65 6e 75 43 72 65 61  |. .Wimp_MenuCrea|
00002580  74 65 43 6f 6c 6f 75 72  73 28 74 69 74 6c 65 24  |teColours(title$|
00002590  29 0d 0d 0c 13 ea 20 78  24 2c 6d 65 6e 25 2c 6a  |)..... x$,men%,j|
000025a0  25 2c 69 25 0d 0d 16 36  78 24 3d 74 69 74 6c 65  |%,i%...6x$=title|
000025b0  24 2b 22 5c 30 5c 31 5c  32 5c 33 5c 34 5c 35 5c  |$+"\0\1\2\3\4\5\|
000025c0  36 5c 37 5c 38 5c 39 5c  31 30 5c 31 31 5c 31 32  |6\7\8\9\10\11\12|
000025d0  5c 31 33 5c 31 34 5c 31  35 22 0d 0d 20 1d 6d 65  |\13\14\15".. .me|
000025e0  6e 25 3d a4 57 69 6d 70  5f 4d 65 6e 75 43 72 65  |n%=.Wimp_MenuCre|
000025f0  61 74 65 28 78 24 29 0d  0d 2a 0f e3 20 69 25 3d  |ate(x$)..*.. i%=|
00002600  30 20 b8 20 31 35 0d 0d  34 0a c8 8e 20 b9 20 ca  |0 . 15..4... . .|
00002610  0d 0d 3e 28 c9 20 69 25  3c 34 2c 69 25 3d 39 2c  |..>(. i%<4,i%=9,|
00002620  69 25 3d 31 32 2c 69 25  3d 31 34 2c 69 25 3d 31  |i%=12,i%=14,i%=1|
00002630  35 20 3a 20 6a 25 3d 37  0d 0d 48 0c 7f 20 3a 20  |5 : j%=7..H.. : |
00002640  6a 25 3d 30 0d 0d 52 05  cb 0d 0d 5c 1c 6d 65 6e  |j%=0..R....\.men|
00002650  25 3f 28 33 39 2b 69 25  2a 32 34 29 3d 69 25 2a  |%?(39+i%*24)=i%*|
00002660  31 36 2b 6a 25 0d 0d 66  1f f2 57 69 6d 70 5f 4d  |16+j%..f..Wimp_M|
00002670  65 6e 75 43 65 6e 74 72  65 28 6d 65 6e 25 2c 69  |enuCentre(men%,i|
00002680  25 2b 31 29 0d 0d 70 05  ed 0d 0d 7a 09 3d 6d 65  |%+1)..p....z.=me|
00002690  6e 25 0d 0d 84 05 3a 0d  0d 8e 22 dd 20 a4 57 69  |n%....:...". .Wi|
000026a0  6d 70 5f 4d 65 6e 75 4e  6f 4f 66 45 6e 74 72 69  |mp_MenuNoOfEntri|
000026b0  65 73 28 6d 65 6e 75 24  29 0d 0d 98 1a ea 20 6e  |es(menu$)..... n|
000026c0  25 20 2c 6a 25 20 3a 20  6e 25 3d 30 20 3a 20 6a  |% ,j% : n%=0 : j|
000026d0  25 3d 30 0d 0d a2 05 f5  0d 0d ac 17 6a 25 3d a7  |%=0.........j%=.|
000026e0  6d 65 6e 75 24 2c 22 5c  22 2c 6a 25 2b 31 29 0d  |menu$,"\",j%+1).|
000026f0  0d b6 13 e7 20 6a 25 3c  3e 30 20 8c 20 6e 25 2b  |.... j%<>0 . n%+|
00002700  3d 31 0d 0d c0 0a fd 20  6a 25 3d 30 0d 0d ca 07  |=1..... j%=0....|
00002710  3d 6e 25 0d 0d d4 05 3a  0d 0d de 35 dd 20 f2 57  |=n%....:...5. .W|
00002720  69 6d 70 5f 4d 65 6e 75  42 61 63 6b 47 72 6f 75  |imp_MenuBackGrou|
00002730  6e 64 43 6f 6c 6f 75 72  28 6d 65 6e 75 25 2c 69  |ndColour(menu%,i|
00002740  74 65 6d 25 2c 63 6f 6c  6f 75 72 25 29 0d 0d e8  |tem%,colour%)...|
00002750  0e ea 20 66 6f 72 65 25  2c 69 25 0d 0d f2 26 66  |.. fore%,i%...&f|
00002760  6f 72 65 25 3d 28 6d 65  6e 75 25 3f 28 33 39 2b  |ore%=(menu%?(39+|
00002770  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 83 31  |(item%-1)*24)).1|
00002780  36 0d 0d fc 28 69 25 3d  28 28 6d 65 6e 75 25 3f  |6...(i%=((menu%?|
00002790  28 33 39 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(39+(item%-1)*24|
000027a0  29 29 81 31 36 29 83 31  36 0d 0e 06 2f 6d 65 6e  |)).16).16.../men|
000027b0  75 25 3f 28 33 39 2b 28  69 74 65 6d 25 2d 31 29  |u%?(39+(item%-1)|
000027c0  2a 32 34 29 3d 66 6f 72  65 25 2b 31 36 2a 63 6f  |*24)=fore%+16*co|
000027d0  6c 6f 75 72 25 2b 69 25  0d 0e 10 05 e1 0d 0e 1a  |lour%+i%........|
000027e0  05 3a 0d 0e 24 23 dd 20  f2 57 69 6d 70 5f 4d 65  |.:..$#. .Wimp_Me|
000027f0  6e 75 43 65 6e 74 72 65  28 6d 65 6e 75 25 2c 69  |nuCentre(menu%,i|
00002800  74 65 6d 25 29 0d 0e 2e  3a 6d 65 6e 75 25 21 28  |tem%)...:menu%!(|
00002810  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
00002820  3d 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |=menu%!(36+(item|
00002830  25 2d 31 29 2a 32 34 29  84 28 31 3c 3c 33 29 0d  |%-1)*24).(1<<3).|
00002840  0e 38 05 e1 0d 0e 42 05  3a 0d 0e 4c 15 dd 20 f2  |.8....B.:..L.. .|
00002850  57 69 6d 70 5f 4d 65 6e  75 43 6c 6f 73 65 0d 0e  |Wimp_MenuClose..|
00002860  56 1b c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |V... "Wimp_Creat|
00002870  65 4d 65 6e 75 22 2c 2d  31 0d 0e 60 05 e1 0d 0e  |eMenu",-1..`....|
00002880  6a 05 3a 0d 0e 74 24 dd  20 f2 57 69 6d 70 5f 4d  |j.:..t$. .Wimp_M|
00002890  65 6e 75 44 69 73 61 62  6c 65 28 6d 65 6e 75 25  |enuDisable(menu%|
000028a0  2c 69 74 65 6d 25 29 0d  0e 7e 3b 6d 65 6e 75 25  |,item%)..~;menu%|
000028b0  21 28 33 36 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(36+(item%-1)*2|
000028c0  34 29 3d 6d 65 6e 75 25  21 28 33 36 2b 28 69 74  |4)=menu%!(36+(it|
000028d0  65 6d 25 2d 31 29 2a 32  34 29 84 28 31 3c 3c 32  |em%-1)*24).(1<<2|
000028e0  32 29 0d 0e 88 05 e1 0d  0e 92 05 3a 0d 0e 9c 27  |2).........:...'|
000028f0  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 44 6f 74 74  |. .Wimp_MenuDott|
00002900  65 64 4c 69 6e 65 28 6d  65 6e 75 25 2c 69 74 65  |edLine(menu%,ite|
00002910  6d 25 29 0d 0e a6 37 6d  65 6e 75 25 21 28 32 38  |m%)...7menu%!(28|
00002920  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 28  |+(item%-1)*24)=(|
00002930  6d 65 6e 75 25 21 28 32  38 2b 28 69 74 65 6d 25  |menu%!(28+(item%|
00002940  2d 31 29 2a 32 34 29 29  84 32 0d 0e b0 05 e1 0d  |-1)*24)).2......|
00002950  0e ba 05 3a 0d 0e c4 23  dd 20 f2 57 69 6d 70 5f  |...:...#. .Wimp_|
00002960  4d 65 6e 75 45 6e 61 62  6c 65 28 6d 65 6e 75 25  |MenuEnable(menu%|
00002970  2c 69 74 65 6d 25 29 0d  0e ce 22 f2 57 69 6d 70  |,item%)...".Wimp|
00002980  5f 4d 65 6e 75 44 69 73  61 62 6c 65 28 6d 65 6e  |_MenuDisable(men|
00002990  75 25 2c 69 74 65 6d 25  29 0d 0e d8 3b 6d 65 6e  |u%,item%)...;men|
000029a0  75 25 21 28 33 36 2b 28  69 74 65 6d 25 2d 31 29  |u%!(36+(item%-1)|
000029b0  2a 32 34 29 3d 6d 65 6e  75 25 21 28 33 36 2b 28  |*24)=menu%!(36+(|
000029c0  69 74 65 6d 25 2d 31 29  2a 32 34 29 82 28 31 3c  |item%-1)*24).(1<|
000029d0  3c 32 32 29 0d 0e e2 05  e1 0d 0e ec 05 3a 0d 0e  |<22).........:..|
000029e0  f6 35 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 46 6f  |.5. .Wimp_MenuFo|
000029f0  72 65 67 72 6f 75 6e 64  43 6f 6c 6f 75 72 28 6d  |regroundColour(m|
00002a00  65 6e 75 25 2c 69 74 65  6d 25 2c 63 6f 6c 6f 75  |enu%,item%,colou|
00002a10  72 25 29 0d 0f 00 45 6d  65 6e 75 25 3f 28 33 39  |r%)...Emenu%?(39|
00002a20  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 63  |+(item%-1)*24)=c|
00002a30  6f 6c 6f 75 72 25 2b 31  36 2a 28 28 6d 65 6e 75  |olour%+16*((menu|
00002a40  25 3f 28 33 39 2b 28 69  74 65 6d 25 2d 31 29 2a  |%?(39+(item%-1)*|
00002a50  32 34 29 29 81 31 36 29  0d 0f 0a 05 e1 0d 0f 14  |24)).16)........|
00002a60  05 3a 0d 0f 1e 29 dd 20  f2 57 69 6d 70 5f 4d 65  |.:...). .Wimp_Me|
00002a70  6e 75 47 6c 75 65 28 6d  65 6e 75 31 25 2c 69 74  |nuGlue(menu1%,it|
00002a80  65 6d 25 2c 6d 65 6e 75  32 25 29 0d 0f 28 1e 6d  |em%,menu2%)..(.m|
00002a90  65 6e 75 31 25 21 28 38  2b 69 74 65 6d 25 2a 32  |enu1%!(8+item%*2|
00002aa0  34 29 3d 6d 65 6e 75 32  25 0d 0f 32 05 e1 0d 0f  |4)=menu2%..2....|
00002ab0  3c 05 3a 0d 0f 46 27 dd  20 f2 57 69 6d 70 5f 4d  |<.:..F'. .Wimp_M|
00002ac0  65 6e 75 49 74 65 6d 28  6d 65 6e 75 25 2c 69 74  |enuItem(menu%,it|
00002ad0  65 6d 25 2c 69 74 65 6d  24 29 0d 0f 50 2c 24 28  |em%,item$)..P,$(|
00002ae0  6d 65 6e 75 25 2b 28 34  30 2b 28 69 74 65 6d 25  |menu%+(40+(item%|
00002af0  2d 31 29 2a 32 34 29 29  3d c0 69 74 65 6d 24 2c  |-1)*24))=.item$,|
00002b00  31 32 29 2b bd 30 0d 0f  5a 05 e1 0d 0f 64 05 3a  |12)+.0..Z....d.:|
00002b10  0d 0f 6e 24 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..n$. .Wimp_Menu|
00002b20  4d 65 73 73 61 67 65 28  6d 65 6e 75 25 2c 69 74  |Message(menu%,it|
00002b30  65 6d 25 29 0d 0f 78 3c  6d 65 6e 75 25 21 28 32  |em%)..x<menu%!(2|
00002b40  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |8+(item%-1)*24)=|
00002b50  28 6d 65 6e 75 25 21 28  32 38 2b 28 69 74 65 6d  |(menu%!(28+(item|
00002b60  25 2d 31 29 2a 32 34 29  29 82 28 31 3c 3c 33 29  |%-1)*24)).(1<<3)|
00002b70  0d 0f 82 05 e1 0d 0f 8c  05 3a 0d 0f 96 22 dd 20  |.........:...". |
00002b80  f2 57 69 6d 70 5f 4d 65  6e 75 50 6f 70 55 70 28  |.Wimp_MenuPopUp(|
00002b90  4d 65 6e 75 25 2c 78 25  2c 79 25 29 0d 0f a0 0f  |Menu%,x%,y%)....|
00002ba0  6d 65 6e 75 25 3d 4d 65  6e 75 25 0d 0f aa 2b c8  |menu%=Menu%...+.|
00002bb0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00002bc0  6e 75 22 2c 2c 6d 65 6e  75 25 2c 78 25 2d 36 34  |nu",,menu%,x%-64|
00002bd0  2c 79 25 2b 32 30 0d 0f  b4 05 e1 0d 0f be 05 3a  |,y%+20.........:|
00002be0  0d 0f c8 1f dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..... .Wimp_Menu|
00002bf0  50 6f 70 55 70 42 61 72  28 78 25 2c 79 25 29 0d  |PopUpBar(x%,y%).|
00002c00  0f d2 0f ea 20 6e 25 20  3a 20 6e 25 3d 30 0d 0f  |.... n% : n%=0..|
00002c10  dc 2b c8 95 20 28 28 42  61 72 5f 4d 65 6e 75 25  |.+.. ((Bar_Menu%|
00002c20  21 28 32 38 2b 6e 25 2a  32 34 29 29 80 25 31 30  |!(28+n%*24)).%10|
00002c30  30 30 30 30 30 30 29 3d  30 0d 0f e6 09 6e 25 2b  |000000)=0....n%+|
00002c40  3d 31 0d 0f f0 05 ce 0d  0f fa 32 c8 99 20 22 57  |=1........2.. "W|
00002c50  69 6d 70 5f 43 72 65 61  74 65 4d 65 6e 75 22 2c  |imp_CreateMenu",|
00002c60  2c 42 61 72 5f 4d 65 6e  75 25 2c 78 25 2d 36 34  |,Bar_Menu%,x%-64|
00002c70  2c 39 36 2b 6e 25 2a 34  34 0d 10 04 13 6d 65 6e  |,96+n%*44....men|
00002c80  75 25 3d 42 61 72 5f 4d  65 6e 75 25 0d 10 0e 05  |u%=Bar_Menu%....|
00002c90  e1 0d 10 18 05 3a 0d 10  22 21 dd 20 f2 57 69 6d  |.....:.."!. .Wim|
00002ca0  70 5f 4d 65 6e 75 54 69  63 6b 28 6d 65 6e 75 25  |p_MenuTick(menu%|
00002cb0  2c 69 74 65 6d 25 29 0d  10 2c 37 6d 65 6e 75 25  |,item%)..,7menu%|
00002cc0  21 28 32 38 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(28+(item%-1)*2|
00002cd0  34 29 3d 28 6d 65 6e 75  25 21 28 32 38 2b 28 69  |4)=(menu%!(28+(i|
00002ce0  74 65 6d 25 2d 31 29 2a  32 34 29 29 82 31 0d 10  |tem%-1)*24)).1..|
00002cf0  36 05 e1 0d 10 40 05 3a  0d 10 4a 23 dd 20 f2 57  |6....@.:..J#. .W|
00002d00  69 6d 70 5f 4d 65 6e 75  54 69 74 6c 65 28 6d 65  |imp_MenuTitle(me|
00002d10  6e 75 25 2c 74 69 74 6c  65 24 29 0d 10 54 19 24  |nu%,title$)..T.$|
00002d20  6d 65 6e 75 25 3d c0 74  69 74 6c 65 24 2c 31 32  |menu%=.title$,12|
00002d30  29 2b bd 30 0d 10 5e 05  e1 0d 10 68 05 3a 0d 10  |)+.0..^....h.:..|
00002d40  72 3d dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 57 72  |r=. .Wimp_MenuWr|
00002d50  69 74 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |ite(menu%,item%,|
00002d60  62 75 66 66 65 72 25 2c  76 61 6c 25 2c 42 75 66  |buffer%,val%,Buf|
00002d70  66 65 72 4c 65 6e 67 74  68 25 29 0d 10 7c 37 6d  |ferLength%)..|7m|
00002d80  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00002d90  31 29 2a 32 34 29 3d 28  6d 65 6e 75 25 21 28 32  |1)*24)=(menu%!(2|
00002da0  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |8+(item%-1)*24))|
00002db0  84 34 0d 10 86 38 6d 65  6e 75 25 21 28 33 36 2b  |.4...8menu%!(36+|
00002dc0  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 6d 65  |(item%-1)*24)=me|
00002dd0  6e 75 25 21 28 33 36 2b  28 69 74 65 6d 25 2d 31  |nu%!(36+(item%-1|
00002de0  29 2a 32 34 29 84 26 31  30 30 0d 10 90 23 6d 65  |)*24).&100...#me|
00002df0  6e 75 25 21 28 34 30 2b  28 69 74 65 6d 25 2d 31  |nu%!(40+(item%-1|
00002e00  29 2a 32 34 29 3d 62 75  66 66 65 72 25 0d 10 9a  |)*24)=buffer%...|
00002e10  20 6d 65 6e 75 25 21 28  34 34 2b 28 69 74 65 6d  | menu%!(44+(item|
00002e20  25 2d 31 29 2a 32 34 29  3d 76 61 6c 25 0d 10 a4  |%-1)*24)=val%...|
00002e30  29 6d 65 6e 75 25 21 28  34 38 2b 28 69 74 65 6d  |)menu%!(48+(item|
00002e40  25 2d 31 29 2a 32 34 29  3d 42 75 66 66 65 72 4c  |%-1)*24)=BufferL|
00002e50  65 6e 67 74 68 25 0d 10  ae 05 e1 0d 10 b8 05 3a  |ength%.........:|
00002e60  0d 10 c2 06 f4 7c 0d 10  cc 06 f4 7c 0d 10 d6 06  |.....|.....|....|
00002e70  f4 7c 0d 10 e0 31 f4 7c  20 20 20 20 20 20 20 20  |.|...1.|        |
00002e80  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
00002e90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002ea0  2d 2d 2d 0d 10 ea 2a f4  7c 20 20 20 20 20 20 20  |---...*.|       |
00002eb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002ec0  20 20 20 34 2e a0 53 70  72 69 74 65 73 0d 10 f4  |   4..Sprites...|
00002ed0  31 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |1.|             |
00002ee0  20 20 20 20 20 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |     -----------|
00002ef0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 10  |--------------..|
00002f00  fe 06 f4 7c 0d 11 08 06  f4 7c 0d 11 12 3a f4 7c  |...|.....|...:.||
00002f10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002f20  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002f40  2d 2d 2d 2d 0d 11 1c 06  f4 7c 0d 11 26 28 f4 7c  |----.....|..&(.||
00002f50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002f60  20 20 20 20 20 20 50 72  6f 63 65 64 75 72 65 73  |      Procedures|
00002f70  20 3a 0d 11 30 06 f4 7c  0d 11 3a 06 f4 7c 0d 11  | :..0..|..:..|..|
00002f80  44 2c f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |D,.|            |
00002f90  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 53  |      PROCWimp_S|
00002fa0  70 72 69 74 65 73 4c 6f  61 64 0d 11 4e 3a f4 7c  |pritesLoad..N:.||
00002fb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002fc0  20 20 50 52 4f 43 57 69  6d 70 5f 53 70 72 69 74  |  PROCWimp_Sprit|
00002fd0  65 73 50 61 74 68 4c 6f  61 64 28 70 61 74 68 6e  |esPathLoad(pathn|
00002fe0  61 6d 65 24 0d 11 58 06  f4 7c 0d 11 62 06 f4 7c  |ame$..X..|..b..||
00002ff0  0d 11 6c 06 f4 7c 0d 11  76 3a f4 7c 20 20 20 20  |..l..|..v:.|    |
00003000  20 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  |            ----|
00003010  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00003030  0d 11 80 06 f4 7c 0d 11  8a 05 3a 0d 11 94 17 dd  |.....|....:.....|
00003040  20 f2 57 69 6d 70 5f 53  70 72 69 74 65 73 4c 6f  | .Wimp_SpritesLo|
00003050  61 64 0d 11 9e 2f f2 57  69 6d 70 5f 53 70 72 69  |ad.../.Wimp_Spri|
00003060  74 65 73 50 61 74 68 4c  6f 61 64 28 22 3c 4f 62  |tesPathLoad("<Ob|
00003070  65 79 24 44 69 72 3e 2e  53 70 72 69 74 65 73 22  |ey$Dir>.Sprites"|
00003080  29 0d 11 a8 1c 64 69 72  65 63 74 5f 73 70 72 69  |)....direct_spri|
00003090  74 65 73 25 3d 73 70 72  69 74 65 73 25 0d 11 b2  |tes%=sprites%...|
000030a0  05 e1 0d 11 bc 05 3a 0d  11 c6 26 dd 20 f2 57 69  |......:...&. .Wi|
000030b0  6d 70 5f 53 70 72 69 74  65 73 50 61 74 68 4c 6f  |mp_SpritesPathLo|
000030c0  61 64 28 70 61 74 68 6e  61 6d 65 24 29 0d 11 d0  |ad(pathname$)...|
000030d0  0a ea 53 25 2c 54 25 0d  11 da 2c 53 25 3d 8e 22  |..S%,T%...,S%=."|
000030e0  3c 4f 62 65 79 24 44 69  72 3e 2e 53 70 72 69 74  |<Obey$Dir>.Sprit|
000030f0  65 73 22 3a 54 25 3d a2  23 53 25 2b 31 36 3a d9  |es":T%=.#S%+16:.|
00003100  23 53 25 0d 11 e4 19 de  73 70 72 69 74 65 73 25  |#S%.....sprites%|
00003110  54 25 2c 73 70 6e 61 6d  65 25 31 32 0d 11 ee 1d  |T%,spname%12....|
00003120  21 73 70 72 69 74 65 73  25 3d 54 25 3a 73 70 72  |!sprites%=T%:spr|
00003130  69 74 65 73 25 21 38 3d  30 0d 11 f8 21 c8 99 22  |ites%!8=0...!.."|
00003140  4f 53 5f 53 70 72 69 74  65 4f 70 22 2c 26 31 30  |OS_SpriteOp",&10|
00003150  39 2c 73 70 72 69 74 65  73 25 0d 12 02 2b c8 99  |9,sprites%...+..|
00003160  22 4f 53 5f 53 70 72 69  74 65 4f 70 22 2c 26 31  |"OS_SpriteOp",&1|
00003170  30 41 2c 73 70 72 69 74  65 73 25 2c 70 61 74 68  |0A,sprites%,path|
00003180  6e 61 6d 65 24 0d 12 0c  05 e1 0d 12 16 05 3a 0d  |name$.........:.|
00003190  12 20 06 f4 7c 0d 12 2a  06 f4 7c 0d 12 34 06 f4  |. ..|..*..|..4..|
000031a0  7c 0d 12 3e 31 f4 7c 20  20 20 20 20 20 20 20 20  ||..>1.|         |
000031b0  20 20 20 20 20 20 20 20  20 2d 2d 2d 2d 2d 2d 2d  |         -------|
000031c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000031d0  2d 2d 0d 12 48 28 f4 7c  20 20 20 20 20 20 20 20  |--..H(.|        |
000031e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000031f0  20 20 35 2e a0 46 69 6c  65 73 0d 12 52 31 f4 7c  |  5..Files..R1.||
00003200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003210  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00003220  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 12 5c 06 f4  |-----------..\..|
00003230  7c 0d 12 66 06 f4 7c 0d  12 70 35 f4 7c 20 20 20  ||..f..|..p5.|   |
00003240  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |             ---|
00003250  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003260  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 12 7a 06  |------------..z.|
00003270  f4 7c 0d 12 84 28 f4 7c  20 20 20 20 20 20 20 20  |.|...(.|        |
00003280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 50 72  |              Pr|
00003290  6f 63 65 64 75 72 65 73  20 3a 0d 12 8e 06 f4 7c  |ocedures :.....||
000032a0  0d 12 98 06 f4 7c 0d 12  a2 2e f4 7c 20 20 20 20  |.....|.....|    |
000032b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 46 4e  |              FN|
000032c0  57 69 6d 70 5f 46 69 6c  65 54 79 70 65 28 74 79  |Wimp_FileType(ty|
000032d0  70 65 25 29 0d 12 ac 2e  f4 7c 20 20 20 20 20 20  |pe%).....|      |
000032e0  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
000032f0  6d 70 5f 47 65 74 46 69  6c 65 50 61 74 68 4e 61  |mp_GetFilePathNa|
00003300  6d 65 0d 12 b6 32 f4 7c  20 20 20 20 20 20 20 20  |me...2.|        |
00003310  20 20 20 20 20 20 20 20  20 20 46 4e 57 69 6d 70  |          FNWimp|
00003320  5f 46 69 6c 65 4c 6f 61  64 28 70 61 74 68 6e 61  |_FileLoad(pathna|
00003330  6d 65 24 29 0d 12 c0 39  f4 7c 20 20 20 20 20 20  |me$)...9.|      |
00003340  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00003350  6d 70 5f 47 65 74 53 74  72 69 6e 67 41 74 41 64  |mp_GetStringAtAd|
00003360  64 72 65 73 73 28 61 72  72 61 79 25 29 0d 12 ca  |dress(array%)...|
00003370  36 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |6.|             |
00003380  20 20 20 20 20 46 4e 57  69 6d 70 5f 47 65 74 46  |     FNWimp_GetF|
00003390  69 6c 65 46 72 6f 6d 50  61 74 68 6e 61 6d 65 28  |ileFromPathname(|
000033a0  66 24 29 0d 12 d4 32 f4  7c 20 20 20 20 20 20 20  |f$)...2.|       |
000033b0  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
000033c0  69 6d 70 5f 53 65 6e 64  54 6f 45 64 69 74 28 66  |imp_SendToEdit(f|
000033d0  69 6c 65 24 29 0d 12 de  06 f4 7c 0d 12 e8 35 f4  |ile$).....|...5.|
000033e0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000033f0  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00003400  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003410  0d 12 f2 06 f4 7c 0d 12  fc 06 f4 7c 0d 13 06 06  |.....|.....|....|
00003420  f4 7c 0d 13 10 05 3a 0d  13 1a 1b dd 20 a4 57 69  |.|....:..... .Wi|
00003430  6d 70 5f 46 69 6c 65 54  79 70 65 28 74 79 70 65  |mp_FileType(type|
00003440  25 29 0d 13 24 0c c8 8e  74 79 70 65 25 ca 0d 13  |%)..$...type%...|
00003450  2e 11 c9 26 46 46 46 3a  3d 22 54 65 78 74 22 0d  |...&FFF:="Text".|
00003460  13 38 11 c9 26 46 46 44  3a 3d 22 44 61 74 61 22  |.8..&FFD:="Data"|
00003470  0d 13 42 12 c9 26 46 46  42 3a 3d 22 42 61 73 69  |..B..&FFB:="Basi|
00003480  63 22 0d 13 4c 13 c9 26  46 46 39 3a 3d 22 53 70  |c"..L..&FF9:="Sp|
00003490  72 69 74 65 22 0d 13 56  14 c9 26 46 45 44 3a 3d  |rite"..V..&FED:=|
000034a0  22 50 61 6c 65 74 74 65  22 0d 13 60 15 c9 26 46  |"Palette"..`..&F|
000034b0  45 43 3a 3d 22 54 65 6d  70 6c 61 74 65 22 0d 13  |EC:="Template"..|
000034c0  6a 11 c9 26 41 46 46 3a  3d 22 44 72 61 77 22 0d  |j..&AFF:="Draw".|
000034d0  13 74 14 c9 26 31 30 30  30 3a 3d 22 46 6f 6c 64  |.t..&1000:="Fold|
000034e0  65 72 22 0d 13 7e 19 c9  26 32 30 30 30 3a 3d 22  |er"..~..&2000:="|
000034f0  41 70 70 6c 69 63 61 74  69 6f 6e 22 0d 13 88 0f  |Application"....|
00003500  7f 3d c3 7e 28 74 79 70  65 25 29 0d 13 92 05 cb  |.=.~(type%).....|
00003510  0d 13 9c 05 3a 0d 13 a6  1b dd 20 a4 57 69 6d 70  |....:..... .Wimp|
00003520  5f 47 65 74 46 69 6c 65  50 61 74 68 4e 61 6d 65  |_GetFilePathName|
00003530  0d 13 b0 27 3d a4 57 69  6d 70 5f 47 65 74 53 74  |...'=.Wimp_GetSt|
00003540  72 69 6e 67 41 74 41 64  64 72 65 73 73 28 77 69  |ringAtAddress(wi|
00003550  6d 70 25 2b 34 34 29 0d  13 ba 05 3a 0d 13 c4 1f  |mp%+44)....:....|
00003560  dd 20 a4 57 69 6d 70 5f  46 69 6c 65 4c 6f 61 64  |. .Wimp_FileLoad|
00003570  28 70 61 74 68 6e 61 6d  65 24 29 0d 13 ce 10 ea  |(pathname$).....|
00003580  53 25 2c 54 25 2c 66 69  6c 65 25 0d 13 d8 11 53  |S%,T%,file%....S|
00003590  25 3d 8e 70 61 74 68 6e  61 6d 65 24 0d 13 e2 0e  |%=.pathname$....|
000035a0  54 25 3d a2 23 53 25 2b  31 36 0d 13 ec 08 d9 23  |T%=.#S%+16.....#|
000035b0  53 25 0d 13 f6 0c de 66  69 6c 65 25 54 25 0d 14  |S%.....file%T%..|
000035c0  00 22 ff 28 22 4c 4f 41  44 22 2b 70 61 74 68 6e  |.".("LOAD"+pathn|
000035d0  61 6d 65 24 2b 22 22 2b  c3 7e 66 69 6c 65 25 29  |ame$+""+.~file%)|
000035e0  0d 14 0a 0a 3d 66 69 6c  65 25 0d 14 14 05 3b 0d  |....=file%....;.|
000035f0  14 1e 26 dd 20 a4 57 69  6d 70 5f 47 65 74 53 74  |..&. .Wimp_GetSt|
00003600  72 69 6e 67 41 74 41 64  64 72 65 73 73 28 61 72  |ringAtAddress(ar|
00003610  72 61 79 25 29 0d 14 28  0d ea 73 24 3a 73 24 3d  |ray%)..(..s$:s$=|
00003620  22 22 0d 14 32 3c c8 95  28 3f 61 72 72 61 79 25  |""..2<..(?array%|
00003630  3c 3e 31 33 29 80 28 3f  61 72 72 61 79 25 3c 3e  |<>13).(?array%<>|
00003640  30 29 3a 73 24 2b 3d bd  28 3f 61 72 72 61 79 25  |0):s$+=.(?array%|
00003650  29 3a 61 72 72 61 79 25  2b 3d 31 3a ce 3a 0d 14  |):array%+=1:.:..|
00003660  3c 07 3d 73 24 0d 14 46  05 3a 0d 14 50 23 dd 20  |<.=s$..F.:..P#. |
00003670  a4 57 69 6d 70 5f 47 65  74 46 69 6c 65 46 72 6f  |.Wimp_GetFileFro|
00003680  6d 50 61 74 68 6e 61 6d  65 28 66 24 29 0d 14 5a  |mPathname(f$)..Z|
00003690  11 c8 8e 20 a7 66 24 2c  22 2e 22 29 20 ca 0d 14  |... .f$,".") ...|
000036a0  64 10 20 c9 20 30 20 20  20 20 3a 3d 66 24 0d 14  |d. . 0    :=f$..|
000036b0  6e 37 20 7f 20 3a 3d a4  57 69 6d 70 5f 47 65 74  |n7 . :=.Wimp_Get|
000036c0  46 69 6c 65 46 72 6f 6d  50 61 74 68 6e 61 6d 65  |FileFromPathname|
000036d0  28 c2 66 24 2c a9 28 66  24 29 2d a7 66 24 2c 22  |(.f$,.(f$)-.f$,"|
000036e0  2e 22 29 29 29 0d 14 78  05 cb 0d 14 82 05 3a 0d  |.")))..x......:.|
000036f0  14 8c 1d dd 20 f2 57 69  6d 70 5f 53 65 6e 64 54  |.... .Wimp_SendT|
00003700  6f 45 64 69 74 28 66 69  6c 65 24 29 0d 14 96 08  |oEdit(file$)....|
00003710  ea 20 6e 25 0d 14 a0 15  77 69 6d 70 25 21 34 3d  |. n%....wimp%!4=|
00003720  26 36 43 43 30 31 43 30  43 0d 14 aa 0e 77 69 6d  |&6CC01C0C....wim|
00003730  70 25 21 31 36 3d 35 0d  14 b4 0e 77 69 6d 70 25  |p%!16=5....wimp%|
00003740  21 33 36 3d 30 0d 14 be  11 77 69 6d 70 25 21 34  |!36=0....wimp%!4|
00003750  30 3d 26 46 46 46 0d 14  c8 18 24 28 77 69 6d 70  |0=&FFF....$(wimp|
00003760  25 2b 34 34 29 3d 66 69  6c 65 24 2b bd 30 0d 14  |%+44)=file$+.0..|
00003770  d2 10 6e 25 3d a9 66 69  6c 65 24 2b 34 35 0d 14  |..n%=.file$+45..|
00003780  dc 2c e7 20 6e 25 83 34  20 8c 20 21 77 69 6d 70  |.,. n%.4 . !wimp|
00003790  25 3d 34 2b 28 6e 25 3e  3e 32 29 3c 3c 32 20 8b  |%=4+(n%>>2)<<2 .|
000037a0  20 21 77 69 6d 70 25 3d  6e 25 0d 14 e6 24 c8 99  | !wimp%=n%...$..|
000037b0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000037c0  67 65 22 2c 31 37 2c 77  69 6d 70 25 2c 30 0d 14  |ge",17,wimp%,0..|
000037d0  f0 05 e1 0d 14 fa 05 3a  0d 15 04 06 f4 7c 0d 15  |.......:.....|..|
000037e0  0e 06 f4 7c 0d 15 18 06  f4 7c 0d 15 22 31 f4 7c  |...|.....|.."1.||
000037f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003800  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00003810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 15 2c 2c f4  |-----------..,,.|
00003820  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00003830  20 20 20 20 20 20 20 35  2e a0 4d 69 73 63 65 6c  |       5..Miscel|
00003840  6c 61 6e 65 6f 75 73 0d  15 36 31 f4 7c 20 20 20  |laneous..61.|   |
00003850  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00003860  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003870  2d 2d 2d 2d 2d 2d 2d 2d  0d 15 40 06 f4 7c 0d 15  |--------..@..|..|
00003880  4a 06 f4 7c 0d 15 54 35  f4 7c 20 20 20 20 20 20  |J..|..T5.|      |
00003890  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
000038a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000038b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 15 5e 06 f4 7c 0d  |---------..^..|.|
000038c0  15 68 28 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.h(.|           |
000038d0  20 20 20 20 20 20 20 20  20 20 20 50 72 6f 63 65  |           Proce|
000038e0  64 75 72 65 73 20 3a 0d  15 72 06 f4 7c 0d 15 7c  |dures :..r..|..||
000038f0  06 f4 7c 0d 15 86 31 f4  7c 20 20 20 20 20 20 20  |..|...1.|       |
00003900  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00003910  69 6d 70 5f 53 74 61 72  74 28 54 61 73 6b 4e 61  |imp_Start(TaskNa|
00003920  6d 65 24 29 0d 15 90 2e  f4 7c 20 20 20 20 20 20  |me$).....|      |
00003930  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00003940  6d 70 5f 42 41 53 49 43  50 61 72 61 6d 65 74 65  |mp_BASICParamete|
00003950  72 73 0d 15 9a 32 f4 7c  20 20 20 20 20 20 20 20  |rs...2.|        |
00003960  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00003970  6d 70 5f 53 65 74 45 76  65 6e 74 56 61 72 69 61  |mp_SetEventVaria|
00003980  62 6c 65 73 0d 15 a4 37  f4 7c 20 20 20 20 20 20  |bles...7.|      |
00003990  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
000039a0  57 69 6d 70 5f 45 72 72  6f 72 28 74 61 73 6b 25  |Wimp_Error(task%|
000039b0  2c 54 61 73 6b 4e 61 6d  65 24 29 0d 15 ae 2a f4  |,TaskName$)...*.|
000039c0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000039d0  20 20 20 50 52 4f 43 57  69 6d 70 5f 43 6c 6f 73  |   PROCWimp_Clos|
000039e0  65 44 6f 77 6e 0d 15 b8  25 f4 7c 20 20 20 20 20  |eDown...%.|     |
000039f0  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
00003a00  43 57 69 6d 70 5f 51 75  69 74 0d 15 c2 36 f4 7c  |CWimp_Quit...6.||
00003a10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003a20  20 20 46 4e 57 69 6d 70  5f 52 65 61 64 56 61 72  |  FNWimp_ReadVar|
00003a30  69 61 62 6c 65 28 56 61  72 69 61 62 6c 65 24 29  |iable(Variable$)|
00003a40  0d 15 cc 06 f4 7c 0d 15  d6 06 f4 7c 0d 15 e0 35  |.....|.....|...5|
00003a50  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00003a60  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00003a70  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003a80  2d 0d 15 ea 06 f4 7c 0d  15 f4 05 3a 0d 15 fe 2f  |-.....|....:.../|
00003a90  dd 20 f2 57 69 6d 70 5f  53 74 61 72 74 28 54 61  |. .Wimp_Start(Ta|
00003aa0  73 6b 4e 61 6d 65 24 2c  77 69 6d 70 5f 6d 65 6d  |skName$,wimp_mem|
00003ab0  6f 72 79 25 2c 69 63 6f  6e 25 29 0d 16 08 25 de  |ory%,icon%)...%.|
00003ac0  20 77 69 6d 70 25 20 77  69 6d 70 5f 6d 65 6d 6f  | wimp% wimp_memo|
00003ad0  72 79 25 2c 69 63 6f 6e  73 25 20 69 63 6f 6e 25  |ry%,icons% icon%|
00003ae0  0d 16 12 29 e7 20 77 69  6d 70 5f 6d 65 6d 6f 72  |...). wimp_memor|
00003af0  79 25 3c 32 35 36 20 8c  20 77 69 6d 70 5f 6d 65  |y%<256 . wimp_me|
00003b00  6d 6f 72 79 25 3d 32 35  36 0d 16 1c 1d 69 63 6f  |mory%=256....ico|
00003b10  6e 5f 6d 65 6d 6f 72 79  25 3d 69 63 6f 6e 73 25  |n_memory%=icons%|
00003b20  2b 69 63 6f 6e 25 0d 16  26 13 74 61 73 6b 24 3d  |+icon%..&.task$=|
00003b30  54 61 73 6b 4e 61 6d 65  24 0d 16 30 2b 69 6e 64  |TaskName$..0+ind|
00003b40  69 72 65 63 74 5f 73 70  72 69 74 65 73 25 3d 31  |irect_sprites%=1|
00003b50  20 3a 20 64 69 72 65 63  74 5f 73 70 72 69 74 65  | : direct_sprite|
00003b60  73 25 3d 31 0d 16 3a 1b  f2 57 69 6d 70 5f 53 65  |s%=1..:..Wimp_Se|
00003b70  74 45 76 65 6e 74 56 61  72 69 61 62 6c 65 73 0d  |tEventVariables.|
00003b80  16 44 15 ee 20 85 20 f2  57 69 6d 70 5f 45 72 72  |.D.. . .Wimp_Err|
00003b90  6f 72 3a e0 0d 16 4e 40  c8 99 22 57 69 6d 70 5f  |or:...N@.."Wimp_|
00003ba0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00003bb0  26 34 42 35 33 34 31 35  34 2c 54 61 73 6b 4e 61  |&4B534154,TaskNa|
00003bc0  6d 65 24 20 b8 20 76 65  72 73 69 6f 6e 25 2c 74  |me$ . version%,t|
00003bd0  61 73 6b 25 0d 16 58 05  e1 0d 16 62 05 3a 0d 16  |ask%..X....b.:..|
00003be0  6c 1b dd 20 a4 57 69 6d  70 5f 42 41 53 49 43 50  |l.. .Wimp_BASICP|
00003bf0  61 72 61 6d 65 74 65 72  73 0d 16 76 15 20 ea 20  |arameters..v. . |
00003c00  63 6f 6d 24 2c 70 61 72  61 6d 24 2c 49 25 0d 16  |com$,param$,I%..|
00003c10  80 1a 20 c8 99 20 22 4f  53 5f 47 65 74 45 6e 76  |.. .. "OS_GetEnv|
00003c20  22 20 b8 20 63 6f 6d 24  0d 16 8a 0f 20 70 61 72  |" . com$.... par|
00003c30  61 6d 73 24 3d 22 22 0d  16 94 18 20 49 25 3d a7  |ams$="".... I%=.|
00003c40  63 6f 6d 24 2c 22 20 2d  71 75 69 74 20 22 29 0d  |com$," -quit ").|
00003c50  16 9e 35 20 e7 20 49 25  20 8c 20 70 61 72 61 6d  |..5 . I% . param|
00003c60  73 24 3d c1 63 6f 6d 24  2c a7 63 6f 6d 24 2c 22  |s$=.com$,.com$,"|
00003c70  20 22 2c 49 25 2b a9 22  20 2d 71 75 69 74 20 22  | ",I%+." -quit "|
00003c80  29 2b 31 29 0d 16 a8 0c  3d 70 61 72 61 6d 73 24  |)+1)....=params$|
00003c90  0d 16 b2 05 3a 0d 16 bc  1d dd 20 f2 57 69 6d 70  |....:..... .Wimp|
00003ca0  5f 53 65 74 45 76 65 6e  74 56 61 72 69 61 62 6c  |_SetEventVariabl|
00003cb0  65 73 0d 16 c6 17 de 20  70 6f 69 6e 74 65 72 5f  |es..... pointer_|
00003cc0  62 6c 6f 63 6b 25 20 32  30 0d 16 d0 10 69 6e 74  |block% 20....int|
00003cd0  65 72 66 61 63 65 25 3d  a3 0d 16 da 2e 6e 75 6c  |erface%=.....nul|
00003ce0  6c 25 3d 31 20 20 3a 64  72 61 77 25 3d 32 20 3a  |l%=1  :draw%=2 :|
00003cf0  20 20 70 6f 69 6e 74 65  72 5f 6c 65 61 76 69 6e  |  pointer_leavin|
00003d00  67 25 3d 31 3c 3c 34 0d  16 e4 31 70 6f 69 6e 74  |g%=1<<4...1point|
00003d10  65 72 5f 65 6e 74 65 72  69 6e 67 25 3d 31 3c 3c  |er_entering%=1<<|
00003d20  35 3a 6d 6f 75 73 65 25  3d 31 3c 3c 36 3a 64 72  |5:mouse%=1<<6:dr|
00003d30  61 67 25 3d 31 3c 3c 37  0d 16 ee 26 6b 65 79 25  |ag%=1<<7...&key%|
00003d40  3d 31 3c 3c 38 3a 6d 65  6e 75 25 3d 31 3c 3c 39  |=1<<8:menu%=1<<9|
00003d50  3a 73 63 72 6f 6c 6c 25  3d 31 3c 3c 31 30 0d 16  |:scroll%=1<<10..|
00003d60  f8 40 6c 6f 73 65 5f 63  61 72 65 74 25 3d 31 3c  |.@lose_caret%=1<|
00003d70  3c 31 31 3a 67 61 69 6e  5f 63 61 72 65 74 25 3d  |<11:gain_caret%=|
00003d80  31 3c 3c 31 32 3a 6d 65  73 73 61 67 65 25 3d 28  |1<<12:message%=(|
00003d90  31 3c 3c 31 37 29 2b 28  31 3c 3c 31 38 29 0d 17  |1<<17)+(1<<18)..|
00003da0  02 30 72 65 63 6f 72 64  65 72 25 3d 31 3c 3c 31  |.0recorder%=1<<1|
00003db0  38 3a 61 63 6b 6e 6f 77  6c 65 64 67 65 25 3d 31  |8:acknowledge%=1|
00003dc0  3c 3c 31 39 3a 77 69 6e  64 6f 77 25 3d 30 0d 17  |<<19:window%=0..|
00003dd0  0c 21 73 70 72 69 74 65  73 25 3d 31 3a 76 65 72  |.!sprites%=1:ver|
00003de0  73 69 6f 6e 25 3d 30 3a  74 61 73 6b 25 3d 30 0d  |sion%=0:task%=0.|
00003df0  17 16 2a 42 61 72 5f 57  69 6e 64 6f 77 25 3d 2d  |..*Bar_Window%=-|
00003e00  32 3a 42 61 72 5f 49 63  6f 6e 25 3d 30 3a 42 61  |2:Bar_Icon%=0:Ba|
00003e10  72 5f 4d 65 6e 75 25 3d  30 0d 17 20 2a 78 5f 6f  |r_Menu%=0.. *x_o|
00003e20  72 69 67 69 6e 25 3d 30  3a 79 5f 6f 72 69 67 69  |rigin%=0:y_origi|
00003e30  6e 25 3d 30 3a 53 61 76  65 57 69 6e 64 6f 77 25  |n%=0:SaveWindow%|
00003e40  3d 2d 33 0d 17 2a 33 6d  65 73 73 61 67 65 5f 71  |=-3..*3message_q|
00003e50  75 69 74 25 3d 30 3a 6d  65 73 73 61 67 65 5f 73  |uit%=0:message_s|
00003e60  61 76 65 25 3d 32 3a 6d  65 73 73 61 67 65 5f 6c  |ave%=2:message_l|
00003e70  6f 61 64 25 3d 33 0d 17  34 21 6d 6f 75 73 65 5f  |oad%=3..4!mouse_|
00003e80  62 75 74 74 6f 6e 25 3d  32 3a 73 61 76 65 5f 65  |button%=2:save_e|
00003e90  76 65 6e 74 25 3d 30 0d  17 3e 20 74 6f 70 5f 6c  |vent%=0..> top_l|
00003ea0  69 6e 65 25 3d 30 20 3a  20 62 6f 74 74 6f 6d 5f  |ine%=0 : bottom_|
00003eb0  6c 69 6e 65 25 3d 30 0d  17 48 05 e1 0d 17 52 05  |line%=0..H....R.|
00003ec0  3a 0d 17 5c 11 dd 20 f2  57 69 6d 70 5f 45 72 72  |:..\.. .Wimp_Err|
00003ed0  6f 72 0d 17 66 0a ea 58  24 2c 78 25 0d 17 70 09  |or..f..X$,x%..p.|
00003ee0  ee 20 85 20 87 0d 17 7a  08 78 25 3d 9e 0d 17 84  |. . ...z.x%=....|
00003ef0  1b 58 24 3d f6 24 2b 22  61 74 6c 69 6e 65 22 2b  |.X$=.$+"atline"+|
00003f00  c3 28 78 25 81 31 30 29  0d 17 8e 10 de 45 72 72  |.(x%.10).....Err|
00003f10  6f 72 4d 73 67 25 33 36  0d 17 98 45 45 72 72 6f  |orMsg%36...EErro|
00003f20  72 4d 73 67 25 21 30 3d  33 36 3a 45 72 72 6f 72  |rMsg%!0=36:Error|
00003f30  4d 73 67 25 21 31 32 3d  30 3a 45 72 72 6f 72 4d  |Msg%!12=0:ErrorM|
00003f40  73 67 25 21 31 36 3d 26  38 31 30 38 30 3a 45 72  |sg%!16=&81080:Er|
00003f50  72 6f 72 4d 73 67 25 21  32 30 3d 78 25 0d 17 a2  |rorMsg%!20=x%...|
00003f60  1f 24 28 45 72 72 6f 72  4d 73 67 25 2b 32 34 29  |.$(ErrorMsg%+24)|
00003f70  3d 22 21 52 75 6e 49 6d  61 67 65 22 0d 17 ac 25  |="!RunImage"...%|
00003f80  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00003f90  61 67 65 22 2c 31 37 2c  45 72 72 6f 72 4d 73 67  |age",17,ErrorMsg|
00003fa0  25 0d 17 b6 1f f2 57 69  6d 70 5f 57 69 6e 64 6f  |%.....Wimp_Windo|
00003fb0  77 41 6c 65 72 74 28 74  61 73 6b 24 2c 58 24 29  |wAlert(task$,X$)|
00003fc0  0d 17 c0 13 f2 57 69 6d  70 5f 43 6c 6f 73 65 44  |.....Wimp_CloseD|
00003fd0  6f 77 6e 0d 17 ca 05 e1  0d 17 d4 05 3a 0d 17 de  |own.........:...|
00003fe0  15 dd 20 f2 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. .Wimp_CloseDo|
00003ff0  77 6e 0d 17 e8 23 c8 99  22 57 69 6d 70 5f 43 6c  |wn...#.."Wimp_Cl|
00004000  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 25 2c 22  |oseDown",task%,"|
00004010  54 41 53 4b 22 0d 17 f2  05 e1 0d 17 fc 05 3a 0d  |TASK".........:.|
00004020  18 06 10 dd 20 f2 57 69  6d 70 5f 51 75 69 74 0d  |.... .Wimp_Quit.|
00004030  18 10 0f 66 69 6e 69 73  68 65 64 25 3d b9 0d 18  |...finished%=...|
00004040  1a 05 e1 0d 18 24 05 3a  0d 18 2e 23 dd 20 a4 57  |.....$.:...#. .W|
00004050  69 6d 70 5f 52 65 61 64  56 61 72 69 61 62 6c 65  |imp_ReadVariable|
00004060  28 56 61 72 69 61 62 6c  65 24 29 0d 18 38 1b ea  |(Variable$)..8..|
00004070  6c 65 6e 25 2c 72 65 73  75 6c 74 25 2c 76 61 72  |len%,result%,var|
00004080  69 61 62 6c 65 25 0d 18  42 14 24 77 69 6d 70 25  |iable%..B.$wimp%|
00004090  3d 56 61 72 69 61 62 6c  65 24 0d 18 4c 33 c8 99  |=Variable$..L3..|
000040a0  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |"OS_ReadVarVal",|
000040b0  77 69 6d 70 25 2c 77 69  6d 70 25 2b 32 35 35 2c  |wimp%,wimp%+255,|
000040c0  32 35 35 2c 2c 33 b8 2c  2c 6c 65 6e 25 0d 18 56  |255,,3.,,len%..V|
000040d0  17 77 69 6d 70 25 3f 28  6c 65 6e 25 2b 32 35 35  |.wimp%?(len%+255|
000040e0  29 3d 31 33 0d 18 60 11  3d 24 28 77 69 6d 70 25  |)=13..`.=$(wimp%|
000040f0  2b 32 35 35 29 0d 18 6a  05 3a 0d 18 74 05 3a 0d  |+255)..j.:..t.:.|
00004100  18 7e 06 f4 7c 0d 18 88  06 f4 7c 0d 18 92 06 f4  |.~..|.....|.....|
00004110  7c 0d 18 9c 06 f4 7c 0d  18 a6 29 f4 7c 20 20 20  ||.....|...).|   |
00004120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004130  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004140  0d 18 b0 27 f4 7c 20 20  20 20 20 20 20 20 20 20  |...'.|          |
00004150  20 20 20 20 20 20 20 20  20 20 20 57 69 6d 70 20  |           Wimp |
00004160  50 6f 6c 6c 69 6e 67 0d  18 ba 29 f4 7c 20 20 20  |Polling...).|   |
00004170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004180  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004190  0d 18 c4 06 f4 7c 0d 18  ce 06 f4 7c 0d 18 d8 05  |.....|.....|....|
000041a0  3a 0d 18 e2 18 dd 20 f2  57 69 6d 70 5f 57 61 69  |:..... .Wimp_Wai|
000041b0  74 46 6f 72 45 76 65 6e  74 0d 18 ec 12 ea 20 6d  |tForEvent..... m|
000041c0  61 73 6b 25 2c 65 76 65  6e 74 25 0d 18 f6 0f 66  |ask%,event%....f|
000041d0  69 6e 69 73 68 65 64 25  3d a3 0d 19 00 17 6d 61  |inished%=.....ma|
000041e0  73 6b 25 3d 25 31 31 31  30 30 30 30 31 31 30 30  |sk%=%11100001100|
000041f0  31 0d 19 0a 05 f5 0d 19  14 27 20 c8 99 22 57 69  |1........' .."Wi|
00004200  6d 70 5f 50 6f 6c 6c 22  2c 6d 61 73 6b 25 2c 77  |mp_Poll",mask%,w|
00004210  69 6d 70 25 20 b8 20 65  76 65 6e 74 25 0d 19 1e  |imp% . event%...|
00004220  10 20 c8 8e 20 65 76 65  6e 74 25 20 ca 0d 19 28  |. .. event% ...(|
00004230  0a 20 20 c9 30 20 3a 0d  19 32 1f 20 20 c9 31 20  |.  .0 :..2.  .1 |
00004240  3a 20 f2 57 69 6d 70 5f  50 6f 6c 6c 44 72 61 77  |: .Wimp_PollDraw|
00004250  57 69 6e 64 6f 77 0d 19  3c 26 20 20 c9 32 20 3a  |Window..<&  .2 :|
00004260  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00004270  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 19 46 20  |ndow",,wimp%..F |
00004280  20 20 c9 33 20 3a 20 f2  57 69 6d 70 5f 50 6f 6c  |  .3 : .Wimp_Pol|
00004290  6c 43 6c 6f 73 65 57 69  6e 64 6f 77 0d 19 50 0a  |lCloseWindow..P.|
000042a0  20 20 c9 34 20 3a 0d 19  5a 0a 20 20 c9 35 20 3a  |  .4 :..Z.  .5 :|
000042b0  0d 19 64 1f 20 20 c9 36  20 3a 20 f2 57 69 6d 70  |..d.  .6 : .Wimp|
000042c0  5f 50 6f 6c 6c 4d 6f 75  73 65 43 6c 69 63 6b 0d  |_PollMouseClick.|
000042d0  19 6e 20 20 20 c9 37 20  3a 20 f2 57 69 6d 70 5f  |.n   .7 : .Wimp_|
000042e0  50 6f 6c 6c 53 61 76 65  4d 65 73 73 61 67 65 0d  |PollSaveMessage.|
000042f0  19 78 1d 20 20 c9 38 20  3a 20 f2 57 69 6d 70 5f  |.x.  .8 : .Wimp_|
00004300  50 6f 6c 6c 4b 65 79 50  72 65 73 73 0d 19 82 23  |PollKeyPress...#|
00004310  20 20 c9 39 20 3a 20 f2  45 76 65 6e 74 5f 4d 65  |  .9 : .Event_Me|
00004320  6e 75 43 68 6f 69 63 65  28 6d 65 6e 75 25 29 0d  |nuChoice(menu%).|
00004330  19 8c 0a 20 20 c9 31 30  3a 0d 19 96 0a 20 20 c9  |...  .10:....  .|
00004340  31 31 3a 0d 19 a0 0a 20  20 c9 31 32 3a 0d 19 aa  |11:....  .12:...|
00004350  20 20 20 c9 31 37 2c 31  38 3a 20 f2 57 69 6d 70  |   .17,18: .Wimp|
00004360  5f 50 6f 6c 6c 4d 65 73  73 61 67 65 73 0d 19 b4  |_PollMessages...|
00004370  0a 20 20 c9 31 39 3a 0d  19 be 06 20 cb 0d 19 c8  |.  .19:.... ....|
00004380  0f fd 20 66 69 6e 69 73  68 65 64 25 0d 19 d2 05  |.. finished%....|
00004390  e1 0d 19 dc 05 3a 0d 19  e6 1a dd 20 f2 57 69 6d  |.....:..... .Wim|
000043a0  70 5f 50 6f 6c 6c 44 72  61 77 57 69 6e 64 6f 77  |p_PollDrawWindow|
000043b0  0d 19 f0 0b ea 20 6d 6f  72 65 25 0d 19 fa 26 c8  |..... more%...&.|
000043c0  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
000043d0  64 6f 77 22 2c 2c 77 69  6d 70 25 b8 6d 6f 72 65  |dow",,wimp%.more|
000043e0  25 0d 1a 04 13 77 69 6e  64 6f 77 25 3d 77 69 6d  |%....window%=wim|
000043f0  70 25 21 30 0d 1a 0e 41  78 5f 6f 72 69 67 69 6e  |p%!0...Ax_origin|
00004400  25 3d 31 36 2b 77 69 6d  70 25 21 34 2d 77 69 6d  |%=16+wimp%!4-wim|
00004410  70 25 21 32 30 3a 79 5f  6f 72 69 67 69 6e 25 3d  |p%!20:y_origin%=|
00004420  2d 31 36 2b 77 69 6d 70  25 21 31 36 2d 77 69 6d  |-16+wimp%!16-wim|
00004430  70 25 21 32 34 0d 1a 18  0b c8 95 6d 6f 72 65 25  |p%!24......more%|
00004440  0d 1a 22 30 20 e7 20 69  6e 74 65 72 66 61 63 65  |.."0 . interface|
00004450  25 20 8c 20 c8 99 22 57  69 6d 70 5f 42 6f 72 64  |% . .."Wimp_Bord|
00004460  65 72 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |erWindow",,wimp%|
00004470  0d 1a 2c 2d 20 f2 45 76  65 6e 74 5f 44 72 61 77  |..,- .Event_Draw|
00004480  28 77 69 6e 64 6f 77 25  2c 78 5f 6f 72 69 67 69  |(window%,x_origi|
00004490  6e 25 2c 79 5f 6f 72 69  67 69 6e 25 29 0d 1a 36  |n%,y_origin%)..6|
000044a0  27 20 c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |' .."Wimp_GetRec|
000044b0  74 61 6e 67 6c 65 22 2c  2c 77 69 6d 70 25 b8 6d  |tangle",,wimp%.m|
000044c0  6f 72 65 25 0d 1a 40 05  ce 0d 1a 4a 05 e1 0d 1a  |ore%..@....J....|
000044d0  54 05 3a 0d 1a 5e 1b dd  20 f2 57 69 6d 70 5f 50  |T.:..^.. .Wimp_P|
000044e0  6f 6c 6c 43 6c 6f 73 65  57 69 6e 64 6f 77 0d 1a  |ollCloseWindow..|
000044f0  68 25 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |h%  .. "Wimp_Get|
00004500  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 77 69  |PointerInfo",,wi|
00004510  6d 70 25 0d 1a 72 29 20  20 77 69 6e 64 6f 77 25  |mp%..r)  window%|
00004520  3d 77 69 6d 70 25 21 31  32 20 3a 20 62 75 74 74  |=wimp%!12 : butt|
00004530  6f 6e 73 25 3d 77 69 6d  70 25 21 38 0d 1a 7c 29  |ons%=wimp%!8..|)|
00004540  20 f2 45 76 65 6e 74 5f  57 69 6e 64 6f 77 43 6c  | .Event_WindowCl|
00004550  6f 73 65 28 77 69 6e 64  6f 77 25 2c 62 75 74 74  |ose(window%,butt|
00004560  6f 6e 73 25 29 0d 1a 86  32 20 21 77 69 6d 70 25  |ons%)...2 !wimp%|
00004570  3d 77 69 6e 64 6f 77 25  20 3a 20 c8 99 20 22 57  |=window% : .. "W|
00004580  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
00004590  2c 2c 77 69 6d 70 25 0d  1a 90 05 e1 0d 1a 9a 05  |,,wimp%.........|
000045a0  3a 0d 1a a4 1a dd 20 f2  57 69 6d 70 5f 50 6f 6c  |:..... .Wimp_Pol|
000045b0  6c 4d 6f 75 73 65 43 6c  69 63 6b 0d 1a ae 4a 20  |lMouseClick...J |
000045c0  62 75 74 74 6f 6e 25 3d  77 69 6d 70 25 21 38 3a  |button%=wimp%!8:|
000045d0  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 31 32  |window%=wimp%!12|
000045e0  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
000045f0  78 25 3d 77 69 6d 70 25  21 30 3a 79 25 3d 77 69  |x%=wimp%!0:y%=wi|
00004600  6d 70 25 21 34 0d 1a b8  11 20 c8 8e 20 62 75 74  |mp%!4.... .. but|
00004610  74 6f 6e 25 20 ca 0d 1a  c2 22 20 20 20 c9 32 20  |ton% ...."   .2 |
00004620  20 20 20 3a 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |   : .Wimp_PollM|
00004630  65 6e 75 50 6f 70 55 70  0d 1a cc 23 20 20 20 7f  |enuPopUp...#   .|
00004640  3a 20 c8 8e 20 a4 45 76  65 6e 74 5f 53 61 76 65  |: .. .Event_Save|
00004650  28 77 69 6e 64 6f 77 25  29 20 ca 0d 1a d6 2c 20  |(window%) ...., |
00004660  20 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |              . |
00004670  b9 20 3a 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4d 6f  |. : .Wimp_PollMo|
00004680  75 73 65 53 61 76 65 0d  1a e0 31 20 20 20 20 20  |useSave...1     |
00004690  20 20 20 20 20 20 20 20  20 20 c9 20 a3 3a 20 f2  |          . .: .|
000046a0  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
000046b0  75 73 65 43 6c 69 63 6b  0d 1a ea 13 20 20 20 20  |useClick....    |
000046c0  20 20 20 20 20 20 20 20  20 20 cb 0d 1a f4 06 20  |          ..... |
000046d0  cb 0d 1a fe 05 e1 0d 1b  08 05 3a 0d 1b 12 19 dd  |..........:.....|
000046e0  20 f2 57 69 6d 70 5f 50  6f 6c 6c 4d 65 6e 75 50  | .Wimp_PollMenuP|
000046f0  6f 70 55 70 0d 1b 1c 1e  6d 65 6e 75 25 3d a4 45  |opUp....menu%=.E|
00004700  76 65 6e 74 5f 4d 65 6e  75 28 77 69 6e 64 6f 77  |vent_Menu(window|
00004710  25 29 0d 1b 26 11 20 20  c8 8e 20 6d 65 6e 75 25  |%)..&.  .. menu%|
00004720  20 20 ca 0d 1b 30 0b 20  20 20 c9 20 a3 3a 0d 1b  |  ...0.   . .:..|
00004730  3a 0a 20 20 20 7f 20 3a  0d 1b 44 15 20 20 20 20  |:.   . :..D.    |
00004740  20 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 1b 4e  | .. window% ...N|
00004750  17 20 20 20 20 20 20 c9  20 2d 32 20 20 20 3a 20  |.      . -2   : |
00004760  6e 25 3d 30 0d 1b 58 33  20 20 20 20 20 20 20 20  |n%=0..X3        |
00004770  c8 95 20 28 28 42 61 72  5f 4d 65 6e 75 25 21 28  |.. ((Bar_Menu%!(|
00004780  32 38 2b 6e 25 2a 32 34  29 29 80 25 31 30 30 30  |28+n%*24)).%1000|
00004790  30 30 30 30 29 3d 30 0d  1b 62 12 20 20 20 20 20  |0000)=0..b.     |
000047a0  20 20 20 20 6e 25 2b 3d  31 0d 1b 6c 0d 20 20 20  |    n%+=1..l.   |
000047b0  20 20 20 20 20 ce 0d 1b  76 3a 20 20 20 20 20 20  |     ...v:      |
000047c0  20 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |  .. "Wimp_Creat|
000047d0  65 4d 65 6e 75 22 2c 2c  42 61 72 5f 4d 65 6e 75  |eMenu",,Bar_Menu|
000047e0  25 2c 78 25 2d 36 34 2c  39 36 2b 6e 25 2a 34 34  |%,x%-64,96+n%*44|
000047f0  0d 1b 80 34 20 20 20 20  20 20 7f 20 3a 20 c8 99  |...4      . : ..|
00004800  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00004810  22 2c 2c 6d 65 6e 75 25  2c 78 25 2d 36 34 2c 79  |",,menu%,x%-64,y|
00004820  25 2b 32 30 0d 1b 8a 0a  20 20 20 20 20 cb 0d 1b  |%+20....     ...|
00004830  94 07 20 20 cb 0d 1b 9e  05 e1 0d 1b a8 05 3a 0d  |..  ..........:.|
00004840  1b b2 19 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |.... .Wimp_PollM|
00004850  6f 75 73 65 53 61 76 65  0d 1b bc 0f 20 c8 8e 20  |ouseSave.... .. |
00004860  69 63 6f 6e 25 20 ca 0d  1b c6 38 20 20 c9 20 30  |icon% ....8  . 0|
00004870  20 3a 20 e7 20 62 75 74  74 6f 6e 25 20 80 20 26  | : . button% . &|
00004880  35 30 20 8c 20 f2 57 69  6d 70 5f 50 6f 6c 6c 44  |50 . .Wimp_PollD|
00004890  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
000048a0  1b d0 38 20 20 c9 20 32  20 3a 20 e7 20 62 75 74  |..8  . 2 : . but|
000048b0  74 6f 6e 25 20 80 20 35  20 8c 20 20 f2 57 69 6d  |ton% . 5 .  .Wim|
000048c0  70 5f 50 6f 6c 6c 53 61  76 65 46 69 6c 65 28 77  |p_PollSaveFile(w|
000048d0  69 6e 64 6f 77 25 29 0d  1b da 06 20 cb 0d 1b e4  |indow%).... ....|
000048e0  05 e1 0d 1b ee 05 3a 0d  1b f8 1f dd 20 f2 57 69  |......:..... .Wi|
000048f0  6d 70 5f 50 6f 6c 6c 45  76 65 6e 74 4d 6f 75 73  |mp_PollEventMous|
00004900  65 43 6c 69 63 6b 0d 1c  02 2e 20 e7 20 69 6e 74  |eClick.... . int|
00004910  65 72 66 61 63 65 25 20  8c 20 c8 99 22 57 69 6d  |erface% . .."Wim|
00004920  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
00004930  69 6d 70 25 0d 1c 0c 33  20 f2 45 76 65 6e 74 5f  |imp%...3 .Event_|
00004940  4d 6f 75 73 65 43 6c 69  63 6b 28 77 69 6e 64 6f  |MouseClick(windo|
00004950  77 25 2c 69 63 6f 6e 25  2c 62 75 74 74 6f 6e 25  |w%,icon%,button%|
00004960  2c 78 25 2c 79 25 29 0d  1c 16 15 20 c8 8e 20 20  |,x%,y%).... ..  |
00004970  69 6e 74 65 72 66 61 63  65 25 20 ca 0d 1c 20 0b  |interface% ... .|
00004980  20 20 c9 20 b9 20 3a 0d  1c 2a 28 20 20 20 77 69  |  . . :..*(   wi|
00004990  6d 70 25 21 30 3d 78 25  3a 77 69 6d 70 25 21 34  |mp%!0=x%:wimp%!4|
000049a0  3d 79 25 20 3a 20 77 69  6d 70 25 21 38 3d 30 0d  |=y% : wimp%!8=0.|
000049b0  1c 34 28 20 20 20 77 69  6d 70 25 21 31 32 3d 77  |.4(   wimp%!12=w|
000049c0  69 6e 64 6f 77 25 20 3a  20 77 69 6d 70 25 21 31  |indow% : wimp%!1|
000049d0  36 3d 69 63 6f 6e 25 0d  1c 3e 21 20 20 20 c8 99  |6=icon%..>!   ..|
000049e0  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
000049f0  22 2c 2c 77 69 6d 70 25  0d 1c 48 06 20 cb 0d 1c  |",,wimp%..H. ...|
00004a00  52 05 e1 0d 1c 5c 05 3a  0d 1c 66 21 dd 20 f2 57  |R....\.:..f!. .W|
00004a10  69 6d 70 5f 50 6f 6c 6c  53 61 76 65 46 69 6c 65  |imp_PollSaveFile|
00004a20  28 77 69 6e 64 6f 77 25  29 0d 1c 70 0a ea 66 69  |(window%)..p..fi|
00004a30  6c 65 24 0d 1c 7a 40 20  77 69 6d 70 25 21 30 3d  |le$..z@ wimp%!0=|
00004a40  77 69 6e 64 6f 77 25 20  3a 20 77 69 6d 70 25 21  |window% : wimp%!|
00004a50  34 3d 31 20 3a 20 c8 99  20 22 57 69 6d 70 5f 47  |4=1 : .. "Wimp_G|
00004a60  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00004a70  6d 70 25 0d 1c 84 16 20  66 69 6c 65 24 3d 24 28  |mp%.... file$=$(|
00004a80  77 69 6d 70 25 21 32 38  29 0d 1c 8e 15 20 c8 8e  |wimp%!28).... ..|
00004a90  20 a7 66 69 6c 65 24 2c  22 2e 22 29 20 ca 0d 1c  | .file$,".") ...|
00004aa0  98 0d 20 20 c9 20 30 20  20 20 3a 0d 1c a2 40 20  |..  . 0   :...@ |
00004ab0  20 20 24 28 77 69 6d 70  25 2b 34 29 3d 22 54 6f  |  $(wimp%+4)="To|
00004ac0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
00004ad0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00004ae0  6f 72 79 20 77 69 6e 64  6f 77 22 0d 1c ac 2b 20  |ory window"...+ |
00004af0  20 20 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |  .. "Wimp_Repor|
00004b00  74 45 72 72 6f 72 22 2c  77 69 6d 70 25 2c 31 36  |tError",wimp%,16|
00004b10  2c 74 61 73 6b 24 0d 1c  b6 08 20 20 7f 3a 0d 1c  |,task$....  .:..|
00004b20  c0 25 20 20 20 f2 45 76  65 6e 74 5f 53 61 76 65  |.%   .Event_Save|
00004b30  46 69 6c 65 28 66 69 6c  65 24 2c 77 69 6e 64 6f  |File(file$,windo|
00004b40  77 25 29 0d 1c ca 06 20  cb 0d 1c d4 1b 20 c8 99  |w%).... ..... ..|
00004b50  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00004b60  22 2c 2d 31 0d 1c de 05  e1 0d 1c e8 05 3a 0d 1c  |",-1.........:..|
00004b70  f2 20 dd 20 f2 57 69 6d  70 5f 50 6f 6c 6c 44 72  |. . .Wimp_PollDr|
00004b80  61 67 42 6f 78 28 77 69  6e 64 6f 77 25 29 0d 1c  |agBox(window%)..|
00004b90  fc 0a ea 78 25 2c 79 25  0d 1d 06 12 20 73 61 76  |...x%,y%.... sav|
00004ba0  65 25 3d 77 69 6e 64 6f  77 25 0d 1d 10 13 20 21  |e%=window%.... !|
00004bb0  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 0d 1d 1a  |wimp%=window%...|
00004bc0  23 20 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |# .."Wimp_GetWin|
00004bd0  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00004be0  0d 1d 24 2d 20 78 25 3d  77 69 6d 70 25 21 34 2d  |..$- x%=wimp%!4-|
00004bf0  77 69 6d 70 25 21 32 30  3a 79 25 3d 77 69 6d 70  |wimp%!20:y%=wimp|
00004c00  25 21 31 36 2d 77 69 6d  70 25 21 32 34 0d 1d 2e  |%!16-wimp%!24...|
00004c10  0e 20 77 69 6d 70 25 21  34 3d 30 0d 1d 38 21 20  |. wimp%!4=0..8! |
00004c20  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00004c30  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 1d 42 13  |tate",,wimp%..B.|
00004c40  20 21 77 69 6d 70 25 3d  77 69 6e 64 6f 77 25 0d  | !wimp%=window%.|
00004c50  1d 4c 0e 20 77 69 6d 70  25 21 34 3d 35 0d 1d 56  |.L. wimp%!4=5..V|
00004c60  2c 20 77 69 6d 70 25 21  38 3d 78 25 2b 77 69 6d  |, wimp%!8=x%+wim|
00004c70  70 25 21 38 3a 77 69 6d  70 25 21 31 32 3d 79 25  |p%!8:wimp%!12=y%|
00004c80  2b 77 69 6d 70 25 21 31  32 0d 1d 60 2e 20 77 69  |+wimp%!12..`. wi|
00004c90  6d 70 25 21 31 36 3d 78  25 2b 77 69 6d 70 25 21  |mp%!16=x%+wimp%!|
00004ca0  31 36 3a 77 69 6d 70 25  21 32 30 3d 79 25 2b 77  |16:wimp%!20=y%+w|
00004cb0  69 6d 70 25 21 32 30 0d  1d 6a 1a 20 77 69 6d 70  |imp%!20..j. wimp|
00004cc0  25 21 32 34 3d 30 3a 77  69 6d 70 25 21 32 38 3d  |%!24=0:wimp%!28=|
00004cd0  30 0d 1d 74 2a 20 77 69  6d 70 25 21 33 32 3d 26  |0..t* wimp%!32=&|
00004ce0  37 46 46 46 46 46 46 46  3a 77 69 6d 70 25 21 33  |7FFFFFFF:wimp%!3|
00004cf0  36 3d 26 37 46 46 46 46  46 46 46 0d 1d 7e 1c 20  |6=&7FFFFFFF..~. |
00004d00  c8 99 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |.."Wimp_DragBox"|
00004d10  2c 2c 77 69 6d 70 25 0d  1d 88 05 e1 0d 1d 92 05  |,,wimp%.........|
00004d20  3a 0d 1d 9c 18 dd 20 f2  57 69 6d 70 5f 50 6f 6c  |:..... .Wimp_Pol|
00004d30  6c 4b 65 79 50 72 65 73  73 0d 1d a6 31 20 20 77  |lKeyPress...1  w|
00004d40  69 6e 64 6f 77 25 3d 77  69 6d 70 25 21 30 3a 69  |indow%=wimp%!0:i|
00004d50  63 6f 6e 25 3d 77 69 6d  70 25 21 34 3a 6b 65 79  |con%=wimp%!4:key|
00004d60  25 3d 77 69 6d 70 25 21  32 34 0d 1d b0 1f 20 20  |%=wimp%!24....  |
00004d70  c8 8e 20 a4 45 76 65 6e  74 5f 53 61 76 65 28 77  |.. .Event_Save(w|
00004d80  69 6e 64 6f 77 25 29 20  ca 0d 1d ba 0c 20 20 20  |indow%) .....   |
00004d90  c9 20 b9 20 3a 0d 1d c4  10 20 20 20 c8 8e 20 6b  |. . :....   .. k|
00004da0  65 79 25 20 ca 0d 1d ce  2b 20 20 20 20 c9 20 26  |ey% ....+    . &|
00004db0  30 31 42 20 3a 20 f2 57  69 6d 70 5f 57 69 6e 64  |01B : .Wimp_Wind|
00004dc0  6f 77 43 6c 6f 73 65 28  77 69 6e 64 6f 77 25 29  |owClose(window%)|
00004dd0  0d 1d d8 27 20 20 20 20  7f 20 3a 20 f2 57 69 6d  |...'    . : .Wim|
00004de0  70 5f 50 6f 6c 6c 53 61  76 65 46 69 6c 65 28 77  |p_PollSaveFile(w|
00004df0  69 6e 64 6f 77 25 29 0d  1d e2 08 20 20 20 cb 0d  |indow%)....   ..|
00004e00  1d ec 2f 20 20 20 c9 20  a3 3a 20 f2 45 76 65 6e  |../   . .: .Even|
00004e10  74 5f 4b 65 79 50 72 65  73 73 28 77 69 6e 64 6f  |t_KeyPress(windo|
00004e20  77 25 2c 69 63 6f 6e 25  2c 6b 65 79 25 29 0d 1d  |w%,icon%,key%)..|
00004e30  f6 07 20 20 cb 0d 1e 00  05 e1 0d 1e 0a 05 3a 0d  |..  ..........:.|
00004e40  1e 14 1b dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 53  |.... .Wimp_PollS|
00004e50  61 76 65 4d 65 73 73 61  67 65 0d 1e 1e 1e ea 66  |aveMessage.....f|
00004e60  69 6c 65 24 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ile$,window%,ico|
00004e70  6e 25 2c 78 25 2c 79 25  0d 1e 28 23 20 c8 99 22  |n%,x%,y%..(# .."|
00004e80  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00004e90  6e 66 6f 22 2c 2c 77 69  6d 70 25 0d 1e 32 3a 20  |nfo",,wimp%..2: |
00004ea0  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 31 32  |window%=wimp%!12|
00004eb0  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
00004ec0  78 25 3d 77 69 6d 70 25  21 30 3a 79 25 3d 77 69  |x%=wimp%!0:y%=wi|
00004ed0  6d 70 25 21 34 0d 1e 3c  3e 20 77 69 6d 70 25 21  |mp%!4..<> wimp%!|
00004ee0  30 3d 73 61 76 65 25 20  3a 20 77 69 6d 70 25 21  |0=save% : wimp%!|
00004ef0  34 3d 31 20 3a 20 c8 99  20 22 57 69 6d 70 5f 47  |4=1 : .. "Wimp_G|
00004f00  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00004f10  6d 70 25 0d 1e 46 16 20  66 69 6c 65 24 3d 24 28  |mp%..F. file$=$(|
00004f20  77 69 6d 70 25 21 32 38  29 0d 1e 50 2b 20 66 69  |wimp%!28)..P+ fi|
00004f30  6c 65 24 3d a4 57 69 6d  70 5f 47 65 74 46 69 6c  |le$=.Wimp_GetFil|
00004f40  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 66 69  |eFromPathname(fi|
00004f50  6c 65 24 29 0d 1e 5a 15  20 77 69 6d 70 25 21 32  |le$)..Z. wimp%!2|
00004f60  30 3d 77 69 6e 64 6f 77  25 0d 1e 64 13 20 77 69  |0=window%..d. wi|
00004f70  6d 70 25 21 32 34 3d 69  63 6f 6e 25 0d 1e 6e 1c  |mp%!24=icon%..n.|
00004f80  20 77 69 6d 70 25 21 32  38 3d 78 25 3a 77 69 6d  | wimp%!28=x%:wim|
00004f90  70 25 21 33 32 3d 79 25  0d 1e 78 15 20 77 69 6d  |p%!32=y%..x. wim|
00004fa0  70 25 21 33 36 3d 6c 65  6e 67 74 68 25 0d 1e 82  |p%!36=length%...|
00004fb0  0f 20 77 69 6d 70 25 21  30 3d 36 34 0d 1e 8c 0f  |. wimp%!0=64....|
00004fc0  20 77 69 6d 70 25 21 31  32 3d 30 0d 1e 96 0f 20  | wimp%!12=0.... |
00004fd0  77 69 6d 70 25 21 31 36  3d 31 0d 1e a0 12 20 77  |wimp%!16=1.... w|
00004fe0  69 6d 70 25 21 34 30 3d  26 46 46 46 0d 1e aa 16  |imp%!40=&FFF....|
00004ff0  20 24 28 77 69 6d 70 25  2b 34 34 29 3d 66 69 6c  | $(wimp%+44)=fil|
00005000  65 24 0d 1e b4 34 20 c8  99 22 57 69 6d 70 5f 53  |e$...4 .."Wimp_S|
00005010  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 77  |endMessage",17,w|
00005020  69 6d 70 25 2c 77 69 6d  70 25 21 32 30 2c 77 69  |imp%,wimp%!20,wi|
00005030  6d 70 25 21 32 34 0d 1e  be 05 e1 0d 1e c8 05 3a  |mp%!24.........:|
00005040  0d 1e d2 18 dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..... .Wimp_Poll|
00005050  4d 65 73 73 61 67 65 73  0d 1e dc 0b ea 20 66 69  |Messages..... fi|
00005060  6c 65 24 0d 1e e6 2c 66  69 6c 65 24 3d a4 57 69  |le$...,file$=.Wi|
00005070  6d 70 5f 47 65 74 53 74  72 69 6e 67 41 74 41 64  |mp_GetStringAtAd|
00005080  64 72 65 73 73 28 77 69  6d 70 25 2b 34 34 29 0d  |dress(wimp%+44).|
00005090  1e f0 15 20 20 20 20 c8  8e 20 77 69 6d 70 25 21  |...    .. wimp%!|
000050a0  31 36 20 ca 0d 1e fa 1a  20 20 20 20 20 c9 20 30  |16 .....     . 0|
000050b0  20 3a 20 66 69 6e 69 73  68 65 64 25 3d b9 0d 1f  | : finished%=...|
000050c0  04 0e 20 20 20 20 20 c9  20 31 20 3a 0d 1f 0e 0e  |..     . 1 :....|
000050d0  20 20 20 20 20 c9 20 32  20 3a 0d 1f 18 2f 20 20  |     . 2 :.../  |
000050e0  20 20 20 20 f4 20 50 52  4f 43 57 69 6d 70 5f 49  |    . PROCWimp_I|
000050f0  63 6f 6e 50 75 74 54 65  78 74 28 73 61 76 65 25  |conPutText(save%|
00005100  2c 31 2c 66 69 6c 65 24  29 0d 1f 22 43 20 20 20  |,1,file$).."C   |
00005110  20 20 20 77 69 6d 70 25  21 30 3d 73 61 76 65 25  |   wimp%!0=save%|
00005120  20 3a 20 77 69 6d 70 25  21 34 3d 31 20 3a 20 c8  | : wimp%!4=1 : .|
00005130  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00005140  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 1f 2c 1b  |tate",,wimp%..,.|
00005150  20 20 20 20 20 20 24 28  77 69 6d 70 25 21 32 38  |      $(wimp%!28|
00005160  29 3d 66 69 6c 65 24 0d  1f 36 3c 20 20 20 20 20  |)=file$..6<     |
00005170  20 77 69 6d 70 25 21 30  3d 73 61 76 65 25 20 3a  | wimp%!0=save% :|
00005180  20 77 69 6d 70 25 21 34  3d 31 20 3a 20 77 69 6d  | wimp%!4=1 : wim|
00005190  70 25 21 38 3d 30 20 3a  20 77 69 6d 70 25 21 31  |p%!8=0 : wimp%!1|
000051a0  32 3d 30 0d 1f 40 27 20  20 20 20 20 20 c8 99 20  |2=0..@'      .. |
000051b0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000051c0  74 65 22 2c 2c 77 69 6d  70 25 0d 1f 4a 30 20 20  |te",,wimp%..J0  |
000051d0  20 20 20 20 f4 20 50 52  4f 43 57 69 6d 70 5f 49  |    . PROCWimp_I|
000051e0  63 6f 6e 43 61 72 65 74  28 73 61 76 65 25 2c 31  |conCaret(save%,1|
000051f0  2c 4c 45 4e 66 69 6c 65  24 29 0d 1f 54 38 20 20  |,LENfile$)..T8  |
00005200  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |    .. "Wimp_Set|
00005210  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 73  |CaretPosition",s|
00005220  61 76 65 25 2c 31 2c 2c  2c 2d 31 2c a9 66 69 6c  |ave%,1,,,-1,.fil|
00005230  65 24 0d 1f 5e 26 20 20  20 20 20 20 f2 45 76 65  |e$..^&      .Eve|
00005240  6e 74 5f 53 61 76 65 46  69 6c 65 28 66 69 6c 65  |nt_SaveFile(file|
00005250  24 2c 73 61 76 65 25 29  0d 1f 68 0c 20 20 20 20  |$,save%)..h.    |
00005260  20 c9 20 33 0d 1f 72 47  20 20 20 20 20 20 74 79  | . 3..rG      ty|
00005270  70 65 24 3d a4 57 69 6d  70 5f 46 69 6c 65 54 79  |pe$=.Wimp_FileTy|
00005280  70 65 28 77 69 6d 70 25  21 34 30 29 20 3a 20 f2  |pe(wimp%!40) : .|
00005290  45 76 65 6e 74 5f 4c 6f  61 64 46 69 6c 65 28 66  |Event_LoadFile(f|
000052a0  69 6c 65 24 2c 74 79 70  65 24 29 0d 1f 7c 09 20  |ile$,type$)..|. |
000052b0  20 20 20 cb 0d 1f 86 05  e1 0d 1f 90 05 3a 0d 1f  |   ..........:..|
000052c0  9a 26 dd 20 a4 57 69 6d  70 5f 47 65 74 53 74 72  |.&. .Wimp_GetStr|
000052d0  69 6e 67 41 74 41 64 64  72 65 73 73 28 61 72 72  |ingAtAddress(arr|
000052e0  61 79 25 29 0d 1f a4 0d  ea 73 24 3a 73 24 3d 22  |ay%).....s$:s$="|
000052f0  22 0d 1f ae 3c c8 95 28  3f 61 72 72 61 79 25 3c  |"...<..(?array%<|
00005300  3e 31 33 29 80 28 3f 61  72 72 61 79 25 3c 3e 30  |>13).(?array%<>0|
00005310  29 3a 73 24 2b 3d bd 28  3f 61 72 72 61 79 25 29  |):s$+=.(?array%)|
00005320  3a 61 72 72 61 79 25 2b  3d 31 3a ce 3a 0d 1f b8  |:array%+=1:.:...|
00005330  07 3d 73 24 0d 1f c2 05  3a 0d 1f cc 23 dd 20 a4  |.=s$....:...#. .|
00005340  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00005350  50 61 74 68 6e 61 6d 65  28 66 24 29 0d 1f d6 11  |Pathname(f$)....|
00005360  c8 8e 20 a7 66 24 2c 22  2e 22 29 20 ca 0d 1f e0  |.. .f$,".") ....|
00005370  10 20 c9 20 30 20 20 20  20 3a 3d 66 24 0d 1f ea  |. . 0    :=f$...|
00005380  37 20 7f 20 3a 3d a4 57  69 6d 70 5f 47 65 74 46  |7 . :=.Wimp_GetF|
00005390  69 6c 65 46 72 6f 6d 50  61 74 68 6e 61 6d 65 28  |ileFromPathname(|
000053a0  c2 66 24 2c a9 28 66 24  29 2d a7 66 24 2c 22 2e  |.f$,.(f$)-.f$,".|
000053b0  22 29 29 29 0d 1f f4 05  cb 0d 1f fe 05 3a 0d 20  |"))).........:. |
000053c0  08 1b dd 20 a4 57 69 6d  70 5f 46 69 6c 65 54 79  |... .Wimp_FileTy|
000053d0  70 65 28 74 79 70 65 25  29 0d 20 12 0c c8 8e 74  |pe(type%). ....t|
000053e0  79 70 65 25 ca 0d 20 1c  11 c9 26 46 46 46 3a 3d  |ype%.. ...&FFF:=|
000053f0  22 54 65 78 74 22 0d 20  26 11 c9 26 46 46 44 3a  |"Text". &..&FFD:|
00005400  3d 22 44 61 74 61 22 0d  20 30 12 c9 26 46 46 42  |="Data". 0..&FFB|
00005410  3a 3d 22 42 61 73 69 63  22 0d 20 3a 13 c9 26 46  |:="Basic". :..&F|
00005420  46 39 3a 3d 22 53 70 72  69 74 65 22 0d 20 44 14  |F9:="Sprite". D.|
00005430  c9 26 46 45 44 3a 3d 22  50 61 6c 65 74 74 65 22  |.&FED:="Palette"|
00005440  0d 20 4e 15 c9 26 46 45  43 3a 3d 22 54 65 6d 70  |. N..&FEC:="Temp|
00005450  6c 61 74 65 22 0d 20 58  11 c9 26 41 46 46 3a 3d  |late". X..&AFF:=|
00005460  22 44 72 61 77 22 0d 20  62 14 c9 26 31 30 30 30  |"Draw". b..&1000|
00005470  3a 3d 22 46 6f 6c 64 65  72 22 0d 20 6c 19 c9 26  |:="Folder". l..&|
00005480  32 30 30 30 3a 3d 22 41  70 70 6c 69 63 61 74 69  |2000:="Applicati|
00005490  6f 6e 22 0d 20 76 0f 7f  3d c3 7e 28 74 79 70 65  |on". v..=.~(type|
000054a0  25 29 0d 20 80 05 cb 0d  20 8a 05 3a 0d 20 94 04  |%). .... ..:. ..|
000054b0  0d ff                                             |..|
000054b2