� > Wimp Procedure Library
O�|_________________________________________________________________________
O�|_________________________________________________________________________
(O�|_________________________________________________________________________
2�|
<�|
F�|
PE�|                -------------------------------          6/1/92
Z/�|                   WIMP PROCEDURE LIBRARY
d�|
n,�|                     Index of Contents
x�|
�5�|                -------------------------------
��|
�$�|                    1.�Windows
��|
�"�|                    2.�Icons
��|
�"�|                    3.�Menus
��|
�$�|                    4.�Sprites
��|
�*�|                    5.�Miscellaneous
��|
�$�|                    6.�Polling

�|

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

�|

"�|

,�|

6�|

@�|

J�|

T5�|                -------------------------------

^*�|                          1.�Windows

h5�|                -------------------------------

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

�
=c%
:
(%� �Wimp_WindowBringToTop(window%)
2!wimp%=window%
<#ș "Wimp_GetWindowState",,wimp%
Fwimp%!28=-1
Pș "Wimp_OpenWindow",,wimp%
Z�
d:
n � �Wimp_WindowClose(window%)
x!wimp%=window%
� ș "Wimp_CloseWindow",,wimp%
��
�:
�$� �Wimp_WindowForceDraw(window%)
�Ȏ window% �
�8 � -1   : ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
�9  : ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
��
��
�:
�� �Wimp_WindowOpen(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
ș "Wimp_OpenWindow",,wimp%
�
:
"�Wimp_WindowInterface
, ș"Wimp_BorderWindow",,wimp%
6�
@�|
J�|
T�|
^1�|                  -------------------------
h(�|                          2.�Icons
r1�|                  -------------------------
|�|
��|
�=�|             ------------------------------------------
��|
�(�|                      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�|
::
D� �Wimp_IconBar(Sprite$)
N� icon%
Xwimp%!0=-1
bwimp%!4=0     : wimp%!8=0
lwimp%!12=68 : wimp%!16=68
vwimp%!20=&3002
�$(wimp%+24)=Sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�+� �Wimp_IconCaret(window%,icon%,chars%)
�8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
��
�:
�#� �Wimp_IconText(window%,icon%)
�#wimp%!0=window% : wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�=$(wimp%!28)
:
)� �Wimp_IconValidation(window%,icon%)
#wimp%!0=window% : wimp%!4=icon%
 !ș "Wimp_GetIconState",,wimp%
*7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
4=$(wimp%!32)
>:
H&� �Wimp_IconDisable(window%,icon%)
R#wimp%!0=window% : wimp%!4=icon%
\$wimp%!8=1<<22   : wimp%!12=1<<22
f!ș "Wimp_SetIconState",,wimp%
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%
	87� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
	B$(wimp%!28)=text$
	L#wimp%!0=window% : wimp%!4=icon%
	Vwimp%!8=0 : wimp%!12=0
	`!ș "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�|
Z.�|            PROCWimp_MenuAdjustOn(menu%)
d+�|            FNWimp_MenuChoice(level%)
n*�|            FNWimp_MenuCreate(menu$)
x$�|            FNWimp_MenuColours
�2�|            FNWimp_MenuCreateColours(title$)
�/�|            FNWimp_MenuNoOfEntries(menu$)
�D�|            PROCWimp_MenuBackGroundColour(menu%,item%,colour%)
�2�|            PROCWimp_MenuCentre(menu%,item%)
�$�|            PROCWimp_MenuClose
�3�|            PROCWimp_MenuDisable(menu%,item%)
�6�|            PROCWimp_MenuDottedLine(menu%,item%)
�2�|            PROCWimp_MenuEnable(menu%,item%)
�D�|            PROCWimp_MenuForegroundColour(menu%,item%,colour%)
�8�|            PROCWimp_MenuGlue(menu1%,item%,menu2%)
�6�|            PROCWimp_MenuItem(menu%,item%,item$)
�3�|            PROCWimp_MenuMessage(menu%,item%)
�1�|            PROCWimp_MenuPopUp(Menu%,x%,y%)
.�|            PROCWimp_MenuPopUpBar(x%,y%)
0�|            PROCWimp_MenuTick(menu%,item%)
2�|            PROCWimp_MenuTitle(menu%,title$)
"L�|            PROCWimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
,�|
6?�|           ----------------------------------------------
@�|
J:
T� �Wimp_MenuAdjustOn(menu%)
^,ș "Wimp_GetPointerInfo",,pointer_block%
h^� ((pointer_block%!8)�1)=1 � ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
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$ �
&	 � ""
0  :
:1  !index%=0 : index%!4=-1 : index%!8=&7000021
D  length%=�menu$,"\")-1
N  k%=��menu$,length%),">")
X
  Ȏ k% �
b
   � 0
l   
v%    s%=�(�menu$,k%+1,length%-k%))
�    index%!4=s%
�    length%=k%-1
�  �
�"  $(index%+12)=�menu$,length%)
�'  � length%>width% � width%=length%
�  index%+=24
��
��
�menu%!16=16*(width%+1)
�(index%!-24=index%!-24 � &80 : =menu%
�:
�� �Wimp_MenuColours
�!=�Wimp_MenuCreateColours(" ")

:

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

4� i%=0 � 15

>
Ȏ � �

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

R : j%=0

\�

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

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

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%)
8:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)
B�
L:
V� �Wimp_MenuClose
`ș "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%)
2menu1%!(8+item%*24)=menu2%
<�
F:
P'� �Wimp_MenuItem(menu%,item%,item$)
Z,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
d�
n:
x$� �Wimp_MenuMessage(menu%,item%)
�<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
��
�:
�"� �Wimp_MenuPopUp(Menu%,x%,y%)
�menu%=Menu%
�+ș "Wimp_CreateMenu",,menu%,x%-64,y%+20
��
�:
�� �Wimp_MenuPopUpBar(x%,y%)
�� n% : n%=0
�+ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
�	n%+=1
��
2ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+n%*44
menu%=Bar_Menu%
�
":
,!� �Wimp_MenuTick(menu%,item%)
67menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
@�
J:
T#� �Wimp_MenuTitle(menu%,title$)
^$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�|                  -------------------------
�|
�|
:�|                ------------------------------------
&�|
0(�|                      Procedures :
:�|
D�|
N,�|                  PROCWimp_SpritesLoad
X:�|                  PROCWimp_SpritesPathLoad(pathname$
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�|
>�|
H1�|                  -------------------------
R(�|                          5.�Files
\1�|                  -------------------------
f�|
p�|
z5�|                -------------------------------
��|
�(�|                      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%�
8�&FFF:="Text"
B�&FFD:="Data"
L�&FFB:="Basic"
V�&FF9:="Sprite"
`�&FED:="Palette"
j�&FEC:="Template"
t�&AFF:="Draw"
~�&1000:="Folder"
��&2000:="Application"
�=�~(type%)
��
�:
�� �Wimp_GetFilePathName
�'=�Wimp_GetStringAtAddress(wimp%+44)
�:
�� �Wimp_FileLoad(pathname$)
��S%,T%,file%
�S%=�pathname$
�T%=�#S%+16
��#S%
�file%T%

$�("LOAD "+pathname$+" "+�~file%)

=file%
;
(&� �Wimp_GetStringAtAddress(array%)
2
�s$:s$=""
<<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
F=s$
P:
Z#� �Wimp_GetFileFromPathname(f$)
dȎ �f$,".") �
n � 0    :=f$
x7  :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
��
�:
�� �Wimp_SendToEdit(file$)
�� n%
�wimp%!4=&6CC01C0C
�wimp%!16=5
�wimp%!36=0
�wimp%!40=&FFF
�$(wimp%+44)=file$+�0
�n%=�file$+45
�,� n%�4 � !wimp%=4+(n%>>2)<<2 � !wimp%=n%
�$ș "Wimp_SendMessage",17,wimp%,0
��
:
�|
�|
"�|
,1�|                  -------------------------
6,�|                      5.�Miscellaneous
@1�|                  -------------------------
J�|
T�|
^5�|                -------------------------------
h�|
r(�|                      Procedures :
|�|
��|
�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%
0task$=TaskName$
:+indirect_sprites%=1 : direct_sprites%=1
D�Wimp_SetEventVariables
N� � �Wimp_Error:�
X@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
b�
l:
v� �Wimp_BASICParameters
� � com$,param$,I%
� ș "OS_GetEnv" � com$
� params$=""
� I%=�com$," -quit ")
�5 � I% � params$=�com$,�com$," ",I%+�" -quit ")+1)
�=params$
�:
�� �Wimp_SetEventVariables
�� pointer_block% 20
�interface%=�
�.null%=1  :draw%=2 :  pointer_leaving%=1<<4
�1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7
�&key%=1<<8:menu%=1<<9:scroll%=1<<10
@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)
0recorder%=1<<18:acknowledge%=1<<19:window%=0
!sprites%=1:version%=0:task%=0
 *Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
**x_origin%=0:y_origin%=0:SaveWindow%=-3
43message_quit%=0:message_save%=2:message_load%=3
>!mouse_button%=2:save_event%=0
H top_line%=0 : bottom_line%=0
R�
\:
f� �Wimp_Error
p
�X$,x%
z	� � �
�x%=�
�X$=�$+"atline"+�(x%�10)
��ErrorMsg%36
�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
�$(ErrorMsg%+24)="!RunImage"
�%ș"Wimp_SendMessage",17,ErrorMsg%
��Wimp_WindowAlert(task$,X$)
��Wimp_CloseDown
��
�:
�� �Wimp_CloseDown
�#ș"Wimp_CloseDown",task%,"TASK"
��
:
� �Wimp_Quit
finished%=�
$�
.:
8#� �Wimp_ReadVariable(Variable$)
B�len%,result%,variable%
L$wimp%=Variable$
V3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
`wimp%?(len%+255)=13
j=$(wimp%+255)
t:
~:
��|
��|
��|
��|
�)�|                   ----------------
�'�|                     Wimp Polling
�)�|                   ----------------
��|
��|
�:
�� �Wimp_WaitForEvent
�� mask%,event%
finished%=�

mask%=%111000011001
�
' ș"Wimp_Poll",mask%,wimp% � event%
( Ȏ event% �
2
  �0 :
<  �1 : �Wimp_PollDrawWindow
F&  �2 : ș "Wimp_OpenWindow",,wimp%
P   �3 : �Wimp_PollCloseWindow
Z
  �4 :
d
  �5 :
n  �6 : �Wimp_PollMouseClick
x   �7 : �Wimp_PollSaveMessage
�  �8 : �Wimp_PollKeyPress
�#  �9 : �Event_MenuChoice(menu%)
�
  �10:
�
  �11:
�
  �12:
�   �17,18: �Wimp_PollMessages
�
  �19:
� �
�� finished%
��
�:
�� �Wimp_PollDrawWindow
�� more%
&ș"Wimp_RedrawWindow",,wimp%�more%
window%=wimp%!0
Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24
"ȕmore%
,0 � interface% � ș"Wimp_BorderWindow",,wimp%
6- �Event_Draw(window%,x_origin%,y_origin%)
@' ș"Wimp_GetRectangle",,wimp%�more%
J�
T�
^:
h� �Wimp_PollCloseWindow
r%  ș "Wimp_GetPointerInfo",,wimp%
|)  window%=wimp%!12 : buttons%=wimp%!8
�) �Event_WindowClose(window%,buttons%)
�2 !wimp%=window% : ș "Wimp_CloseWindow",,wimp%
��
�:
�� �Wimp_PollMouseClick
�J button%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
� Ȏ button% �
�"   �2    : �Wimp_PollMenuPopUp
�#   : Ȏ �Event_Save(window%) �
�,               � � : �Wimp_PollMouseSave
�1               � �: �Wimp_PollEventMouseClick
�              �
� �
�
:
� �Wimp_PollMenuPopUp
&menu%=�Event_Menu(window%)
0  Ȏ menu%  �
:   � �:
D
    :
N     Ȏ window% �
X      � -2   : n%=0
b3        ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
l         n%+=1
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% �
*  � � :
4(   wimp%!0=x%:wimp%!4=y% : wimp%!8=0
>(   wimp%!12=window% : wimp%!16=icon%
H!   ș"Wimp_BorderIcon",,wimp%
R �
\�
f:
p!� �Wimp_PollSaveFile(window%)
z
�file$
�@ wimp%!0=window% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
� file$=$(wimp%!28)
� Ȏ �file$,".") �
�
  � 0   :
�@   $(wimp%+4)="To save, drag the icon to a directory window"
�+   ș "Wimp_ReportError",wimp%,16,task$
�  :
�%   �Event_SaveFile(file$,window%)
� �
� ș"Wimp_CreateMenu",-1
��
�:
� � �Wimp_PollDragBox(window%)

�x%,y%
 save%=window%
 !wimp%=window%
$# ș"Wimp_GetWindowState",,wimp%
.- x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
8 wimp%!4=0
B! ș"Wimp_GetIconState",,wimp%
L !wimp%=window%
V wimp%!4=5
`, wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
j. wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
t wimp%!24=0:wimp%!28=0
~* wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
� ș"Wimp_DragBox",,wimp%
��
�:
�� �Wimp_PollKeyPress
�1  window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
�  Ȏ �Event_Save(window%) �
�   � � :
�   Ȏ key% �
�+    � &01B : �Wimp_WindowClose(window%)
�'     : �Wimp_PollSaveFile(window%)
�   �
�/   � �: �Event_KeyPress(window%,icon%,key%)
  �

�
:
� �Wimp_PollSaveMessage
(�file$,window%,icon%,x%,y%
2# ș"Wimp_GetPointerInfo",,wimp%
<: window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
F> wimp%!0=save% : wimp%!4=1 : ș "Wimp_GetIconState",,wimp%
P file$=$(wimp%!28)
Z+ file$=�Wimp_GetFileFromPathname(file$)
d wimp%!20=window%
n wimp%!24=icon%
x wimp%!28=x%:wimp%!32=y%
� 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%
6      $(wimp%!28)=file$
@<      wimp%!0=save% : wimp%!4=1 : wimp%!8=0 : wimp%!12=0
J'      ș "Wimp_SetIconState",,wimp%
T0      � PROCWimp_IconCaret(save%,1,LENfile$)
^8      ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
h&      �Event_SaveFile(file$,save%)
r     � 3
|G      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"
 0�&FFD:="Data"
 :�&FFB:="Basic"
 D�&FF9:="Sprite"
 N�&FED:="Palette"
 X�&FEC:="Template"
 b�&AFF:="Draw"
 l�&1000:="Folder"
 v�&2000:="Application"
 �=�~(type%)
 ��
 �:
 �
�

00000000  0d 00 0a 1e f4 20 3e 20  57 69 6d 70 20 50 72 6f  |..... > Wimp Pro|
00000010  63 65 64 75 72 65 20 4c  69 62 72 61 72 79 0d 00  |cedure Library..|
00000020  14 4f f4 7c 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |.O.|____________|
00000030  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000060  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 0d 00 1e  |_____________...|
00000070  4f f4 7c 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |O.|_____________|
00000080  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
000000b0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 0d 00 28 4f  |____________..(O|
000000c0  f4 7c 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |.|______________|
000000d0  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 5f 5f 5f 5f 5f  |________________|
*
00000100  5f 5f 5f 5f 5f 5f 5f 5f  5f 5f 5f 0d 00 32 06 f4  |___________..2..|
00000110  7c 0d 00 3c 06 f4 7c 0d  00 46 06 f4 7c 0d 00 50  ||..<..|..F..|..P|
00000120  45 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |E.|             |
00000130  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00000140  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000150  2d 2d 20 20 20 20 20 20  20 20 20 20 36 2f 31 2f  |--          6/1/|
00000160  39 32 0d 00 5a 2f f4 7c  20 20 20 20 20 20 20 20  |92..Z/.|        |
00000170  20 20 20 20 20 20 20 20  20 20 20 57 49 4d 50 20  |           WIMP |
00000180  50 52 4f 43 45 44 55 52  45 20 4c 49 42 52 41 52  |PROCEDURE LIBRAR|
00000190  59 0d 00 64 06 f4 7c 0d  00 6e 2c f4 7c 20 20 20  |Y..d..|..n,.|   |
000001a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001b0  20 20 49 6e 64 65 78 20  6f 66 20 43 6f 6e 74 65  |  Index of Conte|
000001c0  6e 74 73 0d 00 78 06 f4  7c 0d 00 82 35 f4 7c 20  |nts..x..|...5.| |
000001d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
000001e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000001f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 00  |--------------..|
00000200  8c 06 f4 7c 0d 00 96 24  f4 7c 20 20 20 20 20 20  |...|...$.|      |
00000210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 31 2e  |              1.|
00000220  a0 57 69 6e 64 6f 77 73  0d 00 a0 06 f4 7c 0d 00  |.Windows.....|..|
00000230  aa 22 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.".|            |
00000240  20 20 20 20 20 20 20 20  32 2e a0 49 63 6f 6e 73  |        2..Icons|
00000250  0d 00 b4 06 f4 7c 0d 00  be 22 f4 7c 20 20 20 20  |.....|...".|    |
00000260  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000270  33 2e a0 4d 65 6e 75 73  0d 00 c8 06 f4 7c 0d 00  |3..Menus.....|..|
00000280  d2 24 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.$.|            |
00000290  20 20 20 20 20 20 20 20  34 2e a0 53 70 72 69 74  |        4..Sprit|
000002a0  65 73 0d 00 dc 06 f4 7c  0d 00 e6 2a f4 7c 20 20  |es.....|...*.|  |
000002b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002c0  20 20 35 2e a0 4d 69 73  63 65 6c 6c 61 6e 65 6f  |  5..Miscellaneo|
000002d0  75 73 0d 00 f0 06 f4 7c  0d 00 fa 24 f4 7c 20 20  |us.....|...$.|  |
000002e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000002f0  20 20 36 2e a0 50 6f 6c  6c 69 6e 67 0d 01 04 06  |  6..Polling....|
00000300  f4 7c 0d 01 0e 35 f4 7c  20 20 20 20 20 20 20 20  |.|...5.|        |
00000310  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00000320  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000330  2d 2d 2d 2d 2d 2d 2d 0d  01 18 06 f4 7c 0d 01 22  |-------.....|.."|
00000340  06 f4 7c 0d 01 2c 06 f4  7c 0d 01 36 06 f4 7c 0d  |..|..,..|..6..|.|
00000350  01 40 06 f4 7c 0d 01 4a  06 f4 7c 0d 01 54 35 f4  |.@..|..J..|..T5.|
00000360  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00000370  20 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | ---------------|
00000380  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000390  0d 01 5e 2a f4 7c 20 20  20 20 20 20 20 20 20 20  |..^*.|          |
000003a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003b0  31 2e a0 57 69 6e 64 6f  77 73 0d 01 68 35 f4 7c  |1..Windows..h5.||
000003c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000003e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
000003f0  01 72 06 f4 7c 0d 01 7c  06 f4 7c 0d 01 86 40 f4  |.r..|..|..|...@.|
00000400  7c 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  ||          -----|
00000410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000430  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 01 90 06 f4  |-----------.....|
00000440  7c 0d 01 9a 28 f4 7c 20  20 20 20 20 20 20 20 20  ||...(.|         |
00000450  20 20 20 20 20 20 20 20  20 20 20 20 20 50 72 6f  |             Pro|
00000460  63 65 64 75 72 65 73 20  3a 0d 01 a4 06 f4 7c 0d  |cedures :.....|.|
00000470  01 ae 38 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..8.|           |
00000480  20 20 50 52 4f 43 57 69  6d 70 5f 57 69 6e 64 6f  |  PROCWimp_Windo|
00000490  77 41 6c 65 72 74 28 74  69 74 6c 65 24 2c 6d 65  |wAlert(title$,me|
000004a0  73 73 61 67 65 24 29 0d  01 b8 43 f4 7c 20 20 20  |ssage$)...C.|   |
000004b0  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
000004c0  6d 70 5f 57 69 6e 64 6f  77 41 6c 65 72 74 42 6f  |mp_WindowAlertBo|
000004d0  78 28 74 69 74 6c 65 24  2c 6d 65 73 73 61 67 65  |x(title$,message|
000004e0  24 2c 62 75 74 74 6f 6e  25 29 0d 01 c2 37 f4 7c  |$,button%)...7.||
000004f0  20 20 20 20 20 20 20 20  20 20 20 20 20 46 4e 57  |             FNW|
00000500  69 6d 70 5f 57 69 6e 64  6f 77 43 61 6e 63 65 6c  |imp_WindowCancel|
00000510  28 74 69 74 6c 65 24 2c  6d 65 73 73 61 67 65 24  |(title$,message$|
00000520  29 0d 01 cc 3b f4 7c 20  20 20 20 20 20 20 20 20  |)...;.|         |
00000530  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 57 69 6e  |    PROCWimp_Win|
00000540  64 6f 77 45 72 72 6f 72  42 6f 78 28 74 69 74 6c  |dowErrorBox(titl|
00000550  65 24 2c 6d 65 73 73 61  67 65 24 29 0d 01 d6 2e  |e$,message$)....|
00000560  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 46  |.|             F|
00000570  4e 57 69 6d 70 5f 57 69  6e 64 6f 77 54 69 74 6c  |NWimp_WindowTitl|
00000580  65 28 77 69 6e 64 6f 77  25 29 0d 01 e0 2d f4 7c  |e(window%)...-.||
00000590  20 20 20 20 20 20 20 20  20 20 20 20 20 46 4e 57  |             FNW|
000005a0  69 6d 70 5f 57 69 6e 64  6f 77 4c 6f 61 64 28 77  |imp_WindowLoad(w|
000005b0  69 6e 64 6f 77 24 29 0d  01 ea 3b f4 7c 20 20 20  |indow$)...;.|   |
000005c0  20 20 20 20 20 20 20 20  20 20 46 4e 57 69 6d 70  |          FNWimp|
000005d0  5f 57 69 6e 64 6f 77 4c  6f 61 64 46 72 6f 6d 28  |_WindowLoadFrom(|
000005e0  77 69 6e 64 6f 77 24 2c  74 65 6d 70 6c 61 74 65  |window$,template|
000005f0  24 29 0d 01 f4 35 f4 7c  20 20 20 20 20 20 20 20  |$)...5.|        |
00000600  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 57 69  |     PROCWimp_Wi|
00000610  6e 64 6f 77 42 72 69 6e  67 54 6f 54 6f 70 28 77  |ndowBringToTop(w|
00000620  69 6e 64 6f 77 25 29 0d  01 fe 34 f4 7c 20 20 20  |indow%)...4.|   |
00000630  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00000640  6d 70 5f 57 69 6e 64 6f  77 46 6f 72 63 65 44 72  |mp_WindowForceDr|
00000650  61 77 28 77 69 6e 64 6f  77 25 29 0d 02 08 2f f4  |aw(window%).../.|
00000660  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 50 52  ||             PR|
00000670  4f 43 57 69 6d 70 5f 57  69 6e 64 6f 77 4f 70 65  |OCWimp_WindowOpe|
00000680  6e 28 77 69 6e 64 6f 77  25 29 0d 02 12 2b f4 7c  |n(window%)...+.||
00000690  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
000006a0  43 57 69 6d 70 5f 57 69  6e 64 6f 77 49 6e 74 65  |CWimp_WindowInte|
000006b0  72 66 61 63 65 0d 02 1c  06 f4 7c 0d 02 26 3f f4  |rface.....|..&?.|
000006c0  7c 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  ||           ----|
000006d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000006f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 02 30 06 f4 7c  |----------..0..||
00000700  0d 02 3a 06 f4 7c 0d 02  44 06 f4 7c 0d 02 4e 28  |..:..|..D..|..N(|
00000710  dd 20 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 41 6c  |. .Wimp_WindowAl|
00000720  65 72 74 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |ert(title$,messa|
00000730  67 65 24 29 0d 02 58 2b  f2 57 69 6d 70 5f 57 69  |ge$)..X+.Wimp_Wi|
00000740  6e 64 6f 77 41 6c 65 72  74 42 6f 78 28 74 69 74  |ndowAlertBox(tit|
00000750  6c 65 24 2c 6d 65 73 73  61 67 65 24 2c 30 29 0d  |le$,message$,0).|
00000760  02 62 05 e1 0d 02 6c 05  3a 0d 02 76 33 dd 20 f2  |.b....l.:..v3. .|
00000770  57 69 6d 70 5f 57 69 6e  64 6f 77 41 6c 65 72 74  |Wimp_WindowAlert|
00000780  42 6f 78 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |Box(title$,messa|
00000790  67 65 24 2c 62 75 74 74  6f 6e 25 29 0d 02 80 0f  |ge$,button%)....|
000007a0  ea 20 72 65 73 70 6f 6e  73 65 25 0d 02 8a 17 24  |. response%....$|
000007b0  28 77 69 6d 70 25 2b 34  29 3d 6d 65 73 73 61 67  |(wimp%+4)=messag|
000007c0  65 24 0d 02 94 10 c8 8e  20 62 75 74 74 6f 6e 25  |e$...... button%|
000007d0  20 ca 0d 02 9e 19 20 c9  20 32 20 20 20 20 3a 20  | ..... . 2    : |
000007e0  72 65 73 70 6f 6e 73 65  25 3d 31 0d 02 a8 1a 20  |response%=1.... |
000007f0  c9 20 31 20 20 20 20 3a  20 72 65 73 70 6f 6e 73  |. 1    : respons|
00000800  65 25 3d 31 35 0d 02 b2  21 20 c9 20 33 20 20 20  |e%=15...! . 3   |
00000810  20 3a 20 72 65 73 70 6f  6e 73 65 25 3d 28 31 3c  | : response%=(1<|
00000820  3c 35 29 2b 31 36 0d 02  bc 21 20 c9 20 34 20 20  |<5)+16...! . 4  |
00000830  20 20 3a 20 72 65 73 70  6f 6e 73 65 25 3d 28 31  |  : response%=(1|
00000840  3c 3c 36 29 2b 31 36 0d  02 c6 14 7f 20 3a 20 72  |<<6)+16..... : r|
00000850  65 73 70 6f 6e 73 65 25  3d 31 36 0d 02 d0 05 cb  |esponse%=16.....|
00000860  0d 02 da 3d c8 99 20 22  57 69 6d 70 5f 52 65 70  |...=.. "Wimp_Rep|
00000870  6f 72 74 45 72 72 6f 72  22 2c 77 69 6d 70 25 2c  |ortError",wimp%,|
00000880  72 65 73 70 6f 6e 73 65  25 2c 74 69 74 6c 65 24  |response%,title$|
00000890  20 b8 20 2c 72 65 73 70  6f 6e 73 65 25 0d 02 e4  | . ,response%...|
000008a0  05 e1 0d 02 ee 05 3a 0d  02 f8 29 dd 20 a4 57 69  |......:...). .Wi|
000008b0  6d 70 5f 57 69 6e 64 6f  77 43 61 6e 63 65 6c 28  |mp_WindowCancel(|
000008c0  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
000008d0  0d 03 02 17 24 28 77 69  6d 70 25 2b 34 29 3d 6d  |....$(wimp%+4)=m|
000008e0  65 73 73 61 67 65 24 0d  03 0c 10 72 65 73 70 6f  |essage$....respo|
000008f0  6e 73 65 25 3d 32 33 0d  03 16 3d c8 99 20 22 57  |nse%=23...=.. "W|
00000900  69 6d 70 5f 52 65 70 6f  72 74 45 72 72 6f 72 22  |imp_ReportError"|
00000910  2c 77 69 6d 70 25 2c 72  65 73 70 6f 6e 73 65 25  |,wimp%,response%|
00000920  2c 74 69 74 6c 65 24 20  b8 20 2c 72 65 73 70 6f  |,title$ . ,respo|
00000930  6e 73 65 25 0d 03 20 10  3d 72 65 73 70 6f 6e 73  |nse%.. .=respons|
00000940  65 25 2d 32 0d 03 2a 05  3a 0d 03 34 2b dd 20 f2  |e%-2..*.:..4+. .|
00000950  57 69 6d 70 5f 57 69 6e  64 6f 77 45 72 72 6f 72  |Wimp_WindowError|
00000960  42 6f 78 28 74 69 74 6c  65 24 2c 6d 65 73 73 61  |Box(title$,messa|
00000970  67 65 24 29 0d 03 3e 2b  f2 57 69 6d 70 5f 57 69  |ge$)..>+.Wimp_Wi|
00000980  6e 64 6f 77 41 6c 65 72  74 42 6f 78 28 74 69 74  |ndowAlertBox(tit|
00000990  6c 65 24 2c 6d 65 73 73  61 67 65 24 2c 32 29 0d  |le$,message$,2).|
000009a0  03 48 05 e1 0d 03 52 05  3a 0d 03 5c 20 dd 20 a4  |.H....R.:..\ . .|
000009b0  57 69 6d 70 5f 57 69 6e  64 6f 77 54 69 74 6c 65  |Wimp_WindowTitle|
000009c0  28 77 69 6e 64 6f 77 25  29 0d 03 66 13 77 69 6d  |(window%)..f.wim|
000009d0  70 25 21 30 3d 77 69 6e  64 6f 77 25 0d 03 70 20  |p%!0=window%..p |
000009e0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
000009f0  49 6e 66 6f 22 2c 2c 77  69 6d 70 25 0d 03 7a 36  |Info",,wimp%..z6|
00000a00  e7 20 28 28 77 69 6d 70  25 21 36 30 29 80 26 31  |. ((wimp%!60).&1|
00000a10  30 30 29 3d 30 20 85 20  31 2c 22 54 69 74 6c 65  |00)=0 . 1,"Title|
00000a20  20 69 73 6e 27 74 20 69  6e 64 69 72 65 63 74 65  | isn't indirecte|
00000a30  64 22 0d 03 84 10 3d 24  28 77 69 6d 70 25 21 37  |d"....=$(wimp%!7|
00000a40  36 29 0d 03 8e 05 3a 0d  03 98 1f dd 20 a4 57 69  |6)....:..... .Wi|
00000a50  6d 70 5f 57 69 6e 64 6f  77 4c 6f 61 64 28 77 69  |mp_WindowLoad(wi|
00000a60  6e 64 6f 77 24 29 0d 03  a2 39 3d a4 57 69 6d 70  |ndow$)...9=.Wimp|
00000a70  5f 57 69 6e 64 6f 77 4c  6f 61 64 46 72 6f 6d 28  |_WindowLoadFrom(|
00000a80  77 69 6e 64 6f 77 24 2c  22 3c 4f 62 65 79 24 44  |window$,"<Obey$D|
00000a90  69 72 3e 2e 54 65 6d 70  6c 61 74 65 73 22 29 0d  |ir>.Templates").|
00000aa0  03 ac 05 3a 0d 03 b6 2d  dd 20 a4 57 69 6d 70 5f  |...:...-. .Wimp_|
00000ab0  57 69 6e 64 6f 77 4c 6f  61 64 46 72 6f 6d 28 77  |WindowLoadFrom(w|
00000ac0  69 6e 64 6f 77 24 2c 74  65 6d 70 6c 61 74 65 24  |indow$,template$|
00000ad0  29 0d 03 c0 1a ea 20 63  25 2c 69 25 2c 6e 25 2c  |)..... c%,i%,n%,|
00000ae0  6a 25 2c 73 70 24 2c 73  70 32 24 0d 03 ca 25 c8  |j%,sp$,sp2$...%.|
00000af0  99 20 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |. "Wimp_OpenTemp|
00000b00  6c 61 74 65 22 2c 2c 74  65 6d 70 6c 61 74 65 24  |late",,template$|
00000b10  0d 03 d4 4d c8 99 20 22  57 69 6d 70 5f 4c 6f 61  |...M.. "Wimp_Loa|
00000b20  64 54 65 6d 70 6c 61 74  65 22 2c 2c 77 69 6d 70  |dTemplate",,wimp|
00000b30  25 2c 69 63 6f 6e 73 25  2c 69 63 6f 6e 5f 6d 65  |%,icons%,icon_me|
00000b40  6d 6f 72 79 25 2c 2d 31  2c 77 69 6e 64 6f 77 24  |mory%,-1,window$|
00000b50  2c 30 20 b8 20 2c 2c 69  63 6f 6e 73 25 0d 03 de  |,0 . ,,icons%...|
00000b60  11 c8 8e 20 73 70 72 69  74 65 73 25 20 ca 0d 03  |... sprites% ...|
00000b70  e8 1f 20 c9 20 31 20 20  20 20 3a 20 77 69 6d 70  |.. . 1    : wimp|
00000b80  25 21 36 34 3d 73 70 72  69 74 65 73 25 0d 03 f2  |%!64=sprites%...|
00000b90  29 20 7f 20 3a 20 77 69  6d 70 25 21 36 34 3d a4  |) . : wimp%!64=.|
00000ba0  45 76 65 6e 74 5f 53 70  72 69 74 65 73 28 77 69  |Event_Sprites(wi|
00000bb0  6e 64 6f 77 25 29 0d 03  fc 05 cb 0d 04 06 26 c8  |ndow%)........&.|
00000bc0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 57 69  |. "Wimp_CreateWi|
00000bd0  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 20 b8 20 63  |ndow",,wimp% . c|
00000be0  25 0d 04 10 1b c8 99 20  22 57 69 6d 70 5f 43 6c  |%...... "Wimp_Cl|
00000bf0  6f 73 65 54 65 6d 70 6c  61 74 65 22 0d 04 1a 37  |oseTemplate"...7|
00000c00  c8 99 20 22 57 69 6d 70  5f 57 68 69 63 68 49 63  |.. "Wimp_WhichIc|
00000c10  6f 6e 22 2c 63 25 2c 77  69 6d 70 25 2b 34 30 2c  |on",c%,wimp%+40,|
00000c20  31 2b 32 2b 28 31 3c 3c  38 29 2c 32 2b 28 31 3c  |1+2+(1<<8),2+(1<|
00000c30  3c 38 29 0d 04 24 11 c8  8e 20 77 69 6d 70 25 21  |<8)..$... wimp%!|
00000c40  34 30 20 ca 0d 04 2e 0d  20 c9 20 2d 31 20 20 20  |40 ..... . -1   |
00000c50  3a 0d 04 38 0e 20 7f 20  3a 20 69 25 3d 34 30 0d  |:..8. . : i%=40.|
00000c60  04 42 06 20 f5 0d 04 4c  24 20 20 20 77 69 6d 70  |.B. ...L$   wimp|
00000c70  25 21 34 3d 77 69 6d 70  25 21 69 25 20 3a 20 77  |%!4=wimp%!i% : w|
00000c80  69 6d 70 25 21 30 3d 63  25 0d 04 56 24 20 20 20  |imp%!0=c%..V$   |
00000c90  c8 99 20 22 57 69 6d 70  5f 47 65 74 49 63 6f 6e  |.. "Wimp_GetIcon|
00000ca0  53 74 61 74 65 22 2c 2c  77 69 6d 70 25 0d 04 60  |State",,wimp%..`|
00000cb0  2d 20 20 20 73 70 24 3d  a4 57 69 6d 70 5f 47 65  |-   sp$=.Wimp_Ge|
00000cc0  74 53 74 72 69 6e 67 41  74 41 64 64 72 65 73 73  |tStringAtAddress|
00000cd0  28 77 69 6d 70 25 21 32  38 29 0d 04 6a 22 20 20  |(wimp%!28)..j"  |
00000ce0  20 c8 99 20 22 57 69 6d  70 5f 44 65 6c 65 74 65  | .. "Wimp_Delete|
00000cf0  49 63 6f 6e 22 2c 2c 77  69 6d 70 25 0d 04 74 14  |Icon",,wimp%..t.|
00000d00  20 20 20 c8 8e 20 73 70  72 69 74 65 73 25 20 ca  |   .. sprites% .|
00000d10  0d 04 7e 1b 20 20 20 20  c9 20 31 20 20 20 20 3a  |..~.    . 1    :|
00000d20  20 77 69 6d 70 25 21 33  32 3d 31 0d 04 88 0b 20  | wimp%!32=1.... |
00000d30  20 20 20 7f 20 3a 0d 04  92 2f 20 20 20 20 20 c8  |   . :.../     .|
00000d40  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000d50  26 31 30 38 2c 73 70 72  69 74 65 73 25 20 b8 20  |&108,sprites% . |
00000d60  2c 2c 2c 6e 25 0d 04 9c  0d 20 20 20 20 20 6a 25  |,,,n%....     j%|
00000d70  3d 30 0d 04 a6 12 20 20  20 20 20 f5 20 3a 20 6a  |=0....     . : j|
00000d80  25 2b 3d 31 0d 04 b0 3d  20 20 20 20 20 20 c8 99  |%+=1...=      ..|
00000d90  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000da0  31 30 44 2c 73 70 72 69  74 65 73 25 2c 70 6f 69  |10D,sprites%,poi|
00000db0  6e 74 65 72 5f 62 6c 6f  63 6b 25 2c 32 30 2c 6a  |nter_block%,20,j|
00000dc0  25 0d 04 ba 37 20 20 20  20 20 20 73 70 32 24 3d  |%...7      sp2$=|
00000dd0  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00000de0  74 41 64 64 72 65 73 73  28 70 6f 69 6e 74 65 72  |tAddress(pointer|
00000df0  5f 62 6c 6f 63 6b 25 29  0d 04 c4 1b 20 20 20 20  |_block%)....    |
00000e00  20 fd 20 6a 25 3d 6e 25  20 84 20 73 70 24 3d 73  | . j%=n% . sp$=s|
00000e10  70 32 24 0d 04 ce 34 20  20 20 20 20 e7 20 73 70  |p2$...4     . sp|
00000e20  24 3d 73 70 32 24 20 8c  20 77 69 6d 70 25 21 33  |$=sp2$ . wimp%!3|
00000e30  32 3d 73 70 72 69 74 65  73 25 20 8b 20 77 69 6d  |2=sprites% . wim|
00000e40  70 25 21 33 32 3d 31 0d  04 d8 08 20 20 20 cb 0d  |p%!32=1....   ..|
00000e50  04 e2 11 20 20 20 77 69  6d 70 25 21 34 3d 63 25  |...   wimp%!4=c%|
00000e60  0d 04 ec 2e 20 20 20 c8  99 20 22 57 69 6d 70 5f  |....   .. "Wimp_|
00000e70  43 72 65 61 74 65 49 63  6f 6e 22 2c 2c 77 69 6d  |CreateIcon",,wim|
00000e80  70 25 2b 34 20 b8 20 68  61 6e 64 6c 65 25 0d 04  |p%+4 . handle%..|
00000e90  f6 0c 20 20 20 69 25 2b  3d 34 0d 05 00 14 20 fd  |..   i%+=4.... .|
00000ea0  20 28 77 69 6d 70 25 21  69 25 29 3d 2d 31 0d 05  | (wimp%!i%)=-1..|
00000eb0  0a 05 cb 0d 05 14 07 3d  63 25 0d 05 1e 05 3a 0d  |.......=c%....:.|
00000ec0  05 28 25 dd 20 f2 57 69  6d 70 5f 57 69 6e 64 6f  |.(%. .Wimp_Windo|
00000ed0  77 42 72 69 6e 67 54 6f  54 6f 70 28 77 69 6e 64  |wBringToTop(wind|
00000ee0  6f 77 25 29 0d 05 32 12  21 77 69 6d 70 25 3d 77  |ow%)..2.!wimp%=w|
00000ef0  69 6e 64 6f 77 25 0d 05  3c 23 c8 99 20 22 57 69  |indow%..<#.. "Wi|
00000f00  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00000f10  65 22 2c 2c 77 69 6d 70  25 0d 05 46 0f 77 69 6d  |e",,wimp%..F.wim|
00000f20  70 25 21 32 38 3d 2d 31  0d 05 50 1f c8 99 20 22  |p%!28=-1..P... "|
00000f30  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00000f40  2c 2c 77 69 6d 70 25 0d  05 5a 05 e1 0d 05 64 05  |,,wimp%..Z....d.|
00000f50  3a 0d 05 6e 20 dd 20 f2  57 69 6d 70 5f 57 69 6e  |:..n . .Wimp_Win|
00000f60  64 6f 77 43 6c 6f 73 65  28 77 69 6e 64 6f 77 25  |dowClose(window%|
00000f70  29 0d 05 78 12 21 77 69  6d 70 25 3d 77 69 6e 64  |)..x.!wimp%=wind|
00000f80  6f 77 25 0d 05 82 20 c8  99 20 22 57 69 6d 70 5f  |ow%... .. "Wimp_|
00000f90  43 6c 6f 73 65 57 69 6e  64 6f 77 22 2c 2c 77 69  |CloseWindow",,wi|
00000fa0  6d 70 25 0d 05 8c 05 e1  0d 05 96 05 3a 0d 05 a0  |mp%.........:...|
00000fb0  24 dd 20 f2 57 69 6d 70  5f 57 69 6e 64 6f 77 46  |$. .Wimp_WindowF|
00000fc0  6f 72 63 65 44 72 61 77  28 77 69 6e 64 6f 77 25  |orceDraw(window%|
00000fd0  29 0d 05 aa 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |)...... window% |
00000fe0  ca 0d 05 b4 38 20 c9 20  2d 31 20 20 20 3a 20 c8  |....8 . -1   : .|
00000ff0  99 20 22 57 69 6d 70 5f  46 6f 72 63 65 52 65 64  |. "Wimp_ForceRed|
00001000  72 61 77 22 2c 2d 31 2c  30 2c 30 2c 32 2a 31 32  |raw",-1,0,0,2*12|
00001010  38 30 2c 32 2a 31 30 32  34 0d 05 be 39 20 7f 20  |80,2*1024...9 . |
00001020  3a 20 c8 99 20 22 57 69  6d 70 5f 46 6f 72 63 65  |: .. "Wimp_Force|
00001030  52 65 64 72 61 77 22 2c  77 69 6e 64 6f 77 25 2c  |Redraw",window%,|
00001040  30 2c 2d 32 2a 31 30 32  34 2c 32 2a 31 32 38 30  |0,-2*1024,2*1280|
00001050  2c 30 0d 05 c8 05 cb 0d  05 d2 05 e1 0d 05 dc 05  |,0..............|
00001060  3a 0d 05 e6 1f dd 20 f2  57 69 6d 70 5f 57 69 6e  |:..... .Wimp_Win|
00001070  64 6f 77 4f 70 65 6e 28  77 69 6e 64 6f 77 25 29  |dowOpen(window%)|
00001080  0d 05 f0 12 21 77 69 6d  70 25 3d 77 69 6e 64 6f  |....!wimp%=windo|
00001090  77 25 0d 05 fa 23 c8 99  20 22 57 69 6d 70 5f 47  |w%...#.. "Wimp_G|
000010a0  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
000010b0  77 69 6d 70 25 0d 06 04  1f c8 99 20 22 57 69 6d  |wimp%...... "Wim|
000010c0  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 77  |p_OpenWindow",,w|
000010d0  69 6d 70 25 0d 06 0e 05  e1 0d 06 18 05 3a 0d 06  |imp%.........:..|
000010e0  22 19 f2 57 69 6d 70 5f  57 69 6e 64 6f 77 49 6e  |"..Wimp_WindowIn|
000010f0  74 65 72 66 61 63 65 0d  06 2c 20 c8 99 22 57 69  |terface.., .."Wi|
00001100  6d 70 5f 42 6f 72 64 65  72 57 69 6e 64 6f 77 22  |mp_BorderWindow"|
00001110  2c 2c 77 69 6d 70 25 0d  06 36 05 e1 0d 06 40 06  |,,wimp%..6....@.|
00001120  f4 7c 0d 06 4a 06 f4 7c  0d 06 54 06 f4 7c 0d 06  |.|..J..|..T..|..|
00001130  5e 31 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |^1.|            |
00001140  20 20 20 20 20 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |      ----------|
00001150  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001160  06 68 28 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.h(.|           |
00001170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 32  |               2|
00001180  2e a0 49 63 6f 6e 73 0d  06 72 31 f4 7c 20 20 20  |..Icons..r1.|   |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
000011a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000011b0  2d 2d 2d 2d 2d 2d 2d 2d  0d 06 7c 06 f4 7c 0d 06  |--------..|..|..|
000011c0  86 06 f4 7c 0d 06 90 3d  f4 7c 20 20 20 20 20 20  |...|...=.|      |
000011d0  20 20 20 20 20 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |       ---------|
000011e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001200  2d 0d 06 9a 06 f4 7c 0d  06 a4 28 f4 7c 20 20 20  |-.....|...(.|   |
00001210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001220  20 20 20 50 72 6f 63 65  64 75 72 65 73 20 3a 0d  |   Procedures :.|
00001230  06 ae 06 f4 7c 0d 06 b8  2b f4 7c 20 20 20 20 20  |....|...+.|     |
00001240  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
00001250  49 63 6f 6e 42 61 72 28  53 70 72 69 74 65 24 29  |IconBar(Sprite$)|
00001260  0d 06 c2 3c f4 7c 20 20  20 20 20 20 20 20 20 20  |...<.|          |
00001270  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 49 63 6f  |    PROCWimp_Ico|
00001280  6e 43 61 72 65 74 28 77  69 6e 64 6f 77 25 2c 69  |nCaret(window%,i|
00001290  63 6f 6e 25 2c 63 68 61  72 73 25 29 0d 06 cc 32  |con%,chars%)...2|
000012a0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
000012b0  46 4e 57 69 6d 70 5f 49  63 6f 6e 54 65 78 74 28  |FNWimp_IconText(|
000012c0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 06  |window%,icon%)..|
000012d0  d6 38 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.8.|            |
000012e0  20 20 46 4e 57 69 6d 70  5f 49 63 6f 6e 56 61 6c  |  FNWimp_IconVal|
000012f0  69 64 61 74 69 6f 6e 28  77 69 6e 64 6f 77 25 2c  |idation(window%,|
00001300  69 63 6f 6e 25 29 0d 06  e0 37 f4 7c 20 20 20 20  |icon%)...7.|    |
00001310  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00001320  6d 70 5f 49 63 6f 6e 44  69 73 61 62 6c 65 28 77  |mp_IconDisable(w|
00001330  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 06 ea  |indow%,icon%)...|
00001340  36 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 20  |6.|             |
00001350  20 50 52 4f 43 57 69 6d  70 5f 49 63 6f 6e 45 6e  | PROCWimp_IconEn|
00001360  61 62 6c 65 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |able(window%,ico|
00001370  6e 25 29 0d 06 f4 3f f4  7c 20 20 20 20 20 20 20  |n%)...?.|       |
00001380  20 20 20 20 20 20 20 46  4e 57 69 6d 70 5f 49 63  |       FNWimp_Ic|
00001390  6f 6e 50 75 74 53 70 72  69 74 65 28 77 69 6e 64  |onPutSprite(wind|
000013a0  6f 77 25 2c 69 63 6f 6e  25 2c 73 70 72 69 74 65  |ow%,icon%,sprite|
000013b0  24 29 0d 06 fe 3d f4 7c  20 20 20 20 20 20 20 20  |$)...=.|        |
000013c0  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 49  |      PROCWimp_I|
000013d0  63 6f 6e 50 75 74 54 65  78 74 28 77 69 6e 64 6f  |conPutText(windo|
000013e0  77 25 2c 69 63 6f 6e 25  2c 74 65 78 74 24 29 0d  |w%,icon%,text$).|
000013f0  07 08 2f f4 7c 20 20 20  20 20 20 20 20 20 20 20  |../.|           |
00001400  20 20 20 50 52 4f 43 57  69 6d 70 5f 49 63 6f 6e  |   PROCWimp_Icon|
00001410  49 6e 74 65 72 66 61 63  65 53 74 61 72 74 0d 07  |InterfaceStart..|
00001420  12 30 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.0.|            |
00001430  20 20 50 52 4f 43 57 69  6d 70 5f 49 63 6f 6e 49  |  PROCWimp_IconI|
00001440  6e 74 65 72 66 61 63 65  46 69 6e 69 73 68 0d 07  |nterfaceFinish..|
00001450  1c 06 f4 7c 0d 07 26 3d  f4 7c 20 20 20 20 20 20  |...|..&=.|      |
00001460  20 20 20 20 20 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |       ---------|
00001470  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001490  2d 0d 07 30 06 f4 7c 0d  07 3a 05 3a 0d 07 44 1c  |-..0..|..:.:..D.|
000014a0  dd 20 a4 57 69 6d 70 5f  49 63 6f 6e 42 61 72 28  |. .Wimp_IconBar(|
000014b0  53 70 72 69 74 65 24 29  0d 07 4e 0b ea 20 69 63  |Sprite$)..N.. ic|
000014c0  6f 6e 25 0d 07 58 0e 77  69 6d 70 25 21 30 3d 2d  |on%..X.wimp%!0=-|
000014d0  31 0d 07 62 1d 77 69 6d  70 25 21 34 3d 30 20 20  |1..b.wimp%!4=0  |
000014e0  20 20 20 3a 20 77 69 6d  70 25 21 38 3d 30 0d 07  |   : wimp%!8=0..|
000014f0  6c 1d 77 69 6d 70 25 21  31 32 3d 36 38 20 3a 20  |l.wimp%!12=68 : |
00001500  77 69 6d 70 25 21 31 36  3d 36 38 0d 07 76 12 77  |wimp%!16=68..v.w|
00001510  69 6d 70 25 21 32 30 3d  26 33 30 30 32 0d 07 80  |imp%!20=&3002...|
00001520  17 24 28 77 69 6d 70 25  2b 32 34 29 3d 53 70 72  |.$(wimp%+24)=Spr|
00001530  69 74 65 24 0d 07 8a 27  c8 99 20 22 57 69 6d 70  |ite$...'.. "Wimp|
00001540  5f 43 72 65 61 74 65 49  63 6f 6e 22 2c 2c 77 69  |_CreateIcon",,wi|
00001550  6d 70 25 20 b8 20 69 63  6f 6e 25 0d 07 94 0a 3d  |mp% . icon%....=|
00001560  69 63 6f 6e 25 0d 07 9e  05 3a 0d 07 a8 2b dd 20  |icon%....:...+. |
00001570  f2 57 69 6d 70 5f 49 63  6f 6e 43 61 72 65 74 28  |.Wimp_IconCaret(|
00001580  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 2c 63 68  |window%,icon%,ch|
00001590  61 72 73 25 29 0d 07 b2  38 c8 99 20 22 57 69 6d  |ars%)...8.. "Wim|
000015a0  70 5f 53 65 74 43 61 72  65 74 50 6f 73 69 74 69  |p_SetCaretPositi|
000015b0  6f 6e 22 2c 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |on",window%,icon|
000015c0  25 2c 2c 2c 2d 31 2c 63  68 61 72 73 25 0d 07 bc  |%,,,-1,chars%...|
000015d0  05 e1 0d 07 c6 05 3a 0d  07 d0 23 dd 20 a4 57 69  |......:...#. .Wi|
000015e0  6d 70 5f 49 63 6f 6e 54  65 78 74 28 77 69 6e 64  |mp_IconText(wind|
000015f0  6f 77 25 2c 69 63 6f 6e  25 29 0d 07 da 23 77 69  |ow%,icon%)...#wi|
00001600  6d 70 25 21 30 3d 77 69  6e 64 6f 77 25 20 3a 20  |mp%!0=window% : |
00001610  77 69 6d 70 25 21 34 3d  69 63 6f 6e 25 0d 07 e4  |wimp%!4=icon%...|
00001620  21 c8 99 20 22 57 69 6d  70 5f 47 65 74 49 63 6f  |!.. "Wimp_GetIco|
00001630  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 07  |nState",,wimp%..|
00001640  ee 37 e7 20 28 28 77 69  6d 70 25 21 32 34 29 20  |.7. ((wimp%!24) |
00001650  80 20 26 31 30 30 29 3d  30 20 85 20 31 2c 22 49  |. &100)=0 . 1,"I|
00001660  63 6f 6e 20 69 73 6e 27  74 20 69 6e 64 69 72 65  |con isn't indire|
00001670  63 74 65 64 22 0d 07 f8  10 3d 24 28 77 69 6d 70  |cted"....=$(wimp|
00001680  25 21 32 38 29 0d 08 02  05 3a 0d 08 0c 29 dd 20  |%!28)....:...). |
00001690  a4 57 69 6d 70 5f 49 63  6f 6e 56 61 6c 69 64 61  |.Wimp_IconValida|
000016a0  74 69 6f 6e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |tion(window%,ico|
000016b0  6e 25 29 0d 08 16 23 77  69 6d 70 25 21 30 3d 77  |n%)...#wimp%!0=w|
000016c0  69 6e 64 6f 77 25 20 3a  20 77 69 6d 70 25 21 34  |indow% : wimp%!4|
000016d0  3d 69 63 6f 6e 25 0d 08  20 21 c8 99 20 22 57 69  |=icon%.. !.. "Wi|
000016e0  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000016f0  2c 2c 77 69 6d 70 25 0d  08 2a 37 e7 20 28 28 77  |,,wimp%..*7. ((w|
00001700  69 6d 70 25 21 32 34 29  20 80 20 26 31 30 30 29  |imp%!24) . &100)|
00001710  3d 30 20 85 20 31 2c 22  49 63 6f 6e 20 69 73 6e  |=0 . 1,"Icon isn|
00001720  27 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 08  |'t indirected"..|
00001730  34 10 3d 24 28 77 69 6d  70 25 21 33 32 29 0d 08  |4.=$(wimp%!32)..|
00001740  3e 05 3a 0d 08 48 26 dd  20 f2 57 69 6d 70 5f 49  |>.:..H&. .Wimp_I|
00001750  63 6f 6e 44 69 73 61 62  6c 65 28 77 69 6e 64 6f  |conDisable(windo|
00001760  77 25 2c 69 63 6f 6e 25  29 0d 08 52 23 77 69 6d  |w%,icon%)..R#wim|
00001770  70 25 21 30 3d 77 69 6e  64 6f 77 25 20 3a 20 77  |p%!0=window% : w|
00001780  69 6d 70 25 21 34 3d 69  63 6f 6e 25 0d 08 5c 24  |imp%!4=icon%..\$|
00001790  77 69 6d 70 25 21 38 3d  31 3c 3c 32 32 20 20 20  |wimp%!8=1<<22   |
000017a0  3a 20 77 69 6d 70 25 21  31 32 3d 31 3c 3c 32 32  |: wimp%!12=1<<22|
000017b0  0d 08 66 21 c8 99 20 22  57 69 6d 70 5f 53 65 74  |..f!.. "Wimp_Set|
000017c0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 77 69 6d 70  |IconState",,wimp|
000017d0  25 0d 08 70 05 e1 0d 08  7a 05 3a 0d 08 84 25 dd  |%..p....z.:...%.|
000017e0  20 f2 57 69 6d 70 5f 49  63 6f 6e 45 6e 61 62 6c  | .Wimp_IconEnabl|
000017f0  65 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |e(window%,icon%)|
00001800  0d 08 8e 23 77 69 6d 70  25 21 30 3d 77 69 6e 64  |...#wimp%!0=wind|
00001810  6f 77 25 20 3a 20 77 69  6d 70 25 21 34 3d 69 63  |ow% : wimp%!4=ic|
00001820  6f 6e 25 0d 08 98 24 77  69 6d 70 25 21 38 3d 30  |on%...$wimp%!8=0|
00001830  20 20 20 20 20 20 20 3a  20 77 69 6d 70 25 21 31  |       : wimp%!1|
00001840  32 3d 31 3c 3c 32 32 0d  08 a2 21 c8 99 20 22 57  |2=1<<22...!.. "W|
00001850  69 6d 70 5f 53 65 74 49  63 6f 6e 53 74 61 74 65  |imp_SetIconState|
00001860  22 2c 2c 77 69 6d 70 25  0d 08 ac 05 e1 0d 08 b6  |",,wimp%........|
00001870  05 3a 0d 08 c0 30 dd 20  a4 57 69 6d 70 5f 49 63  |.:...0. .Wimp_Ic|
00001880  6f 6e 50 75 74 53 70 72  69 74 65 28 77 69 6e 64  |onPutSprite(wind|
00001890  6f 77 25 2c 69 63 6f 6e  25 2c 73 70 72 69 74 65  |ow%,icon%,sprite|
000018a0  24 29 0d 08 ca 21 77 69  6d 70 25 21 30 3d 77 69  |$)...!wimp%!0=wi|
000018b0  6e 64 6f 77 25 3a 77 69  6d 70 25 21 34 3d 69 63  |ndow%:wimp%!4=ic|
000018c0  6f 6e 25 0d 08 d4 21 c8  99 20 22 57 69 6d 70 5f  |on%...!.. "Wimp_|
000018d0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |GetIconState",,w|
000018e0  69 6d 70 25 0d 08 de 1f  c8 99 20 22 57 69 6d 70  |imp%...... "Wimp|
000018f0  5f 44 65 6c 65 74 65 49  63 6f 6e 22 2c 2c 77 69  |_DeleteIcon",,wi|
00001900  6d 70 25 0d 08 e8 3d 77  69 6d 70 25 21 34 3d 77  |mp%...=wimp%!4=w|
00001910  69 6d 70 25 21 38 20 20  20 3a 20 77 69 6d 70 25  |imp%!8   : wimp%|
00001920  21 38 3d 77 69 6d 70 25  21 31 32 20 20 3a 20 77  |!8=wimp%!12  : w|
00001930  69 6d 70 25 21 31 32 3d  77 69 6d 70 25 21 31 36  |imp%!12=wimp%!16|
00001940  0d 08 f2 3f 77 69 6d 70  25 21 31 36 3d 77 69 6d  |...?wimp%!16=wim|
00001950  70 25 21 32 30 20 3a 20  77 69 6d 70 25 21 32 30  |p%!20 : wimp%!20|
00001960  3d 77 69 6d 70 25 21 32  34 20 3a 20 24 28 77 69  |=wimp%!24 : $(wi|
00001970  6d 70 25 2b 32 34 29 3d  73 70 72 69 74 65 24 0d  |mp%+24)=sprite$.|
00001980  08 fc 27 c8 99 20 22 57  69 6d 70 5f 43 72 65 61  |..'.. "Wimp_Crea|
00001990  74 65 49 63 6f 6e 22 2c  2c 77 69 6d 70 25 20 b8  |teIcon",,wimp% .|
000019a0  20 69 63 6f 6e 25 0d 09  06 0a 3d 69 63 6f 6e 25  | icon%....=icon%|
000019b0  0d 09 10 05 3a 0d 09 1a  2c dd 20 f2 57 69 6d 70  |....:...,. .Wimp|
000019c0  5f 49 63 6f 6e 50 75 74  54 65 78 74 28 77 69 6e  |_IconPutText(win|
000019d0  64 6f 77 25 2c 69 63 6f  6e 25 2c 74 65 78 74 24  |dow%,icon%,text$|
000019e0  29 0d 09 24 23 77 69 6d  70 25 21 30 3d 77 69 6e  |)..$#wimp%!0=win|
000019f0  64 6f 77 25 20 3a 20 77  69 6d 70 25 21 34 3d 69  |dow% : wimp%!4=i|
00001a00  63 6f 6e 25 0d 09 2e 21  c8 99 20 22 57 69 6d 70  |con%...!.. "Wimp|
00001a10  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00001a20  77 69 6d 70 25 0d 09 38  37 e7 20 28 28 77 69 6d  |wimp%..87. ((wim|
00001a30  70 25 21 32 34 29 20 80  20 26 31 30 30 29 3d 30  |p%!24) . &100)=0|
00001a40  20 85 20 31 2c 22 49 63  6f 6e 20 69 73 6e 27 74  | . 1,"Icon isn't|
00001a50  20 69 6e 64 69 72 65 63  74 65 64 22 0d 09 42 15  | indirected"..B.|
00001a60  24 28 77 69 6d 70 25 21  32 38 29 3d 74 65 78 74  |$(wimp%!28)=text|
00001a70  24 0d 09 4c 23 77 69 6d  70 25 21 30 3d 77 69 6e  |$..L#wimp%!0=win|
00001a80  64 6f 77 25 20 3a 20 77  69 6d 70 25 21 34 3d 69  |dow% : wimp%!4=i|
00001a90  63 6f 6e 25 0d 09 56 1a  77 69 6d 70 25 21 38 3d  |con%..V.wimp%!8=|
00001aa0  30 20 3a 20 77 69 6d 70  25 21 31 32 3d 30 0d 09  |0 : wimp%!12=0..|
00001ab0  60 21 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |`!.. "Wimp_SetIc|
00001ac0  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00001ad0  09 6a 05 e1 0d 09 74 05  3a 0d 09 7e 1e dd 20 f2  |.j....t.:..~.. .|
00001ae0  57 69 6d 70 5f 49 63 6f  6e 49 6e 74 65 72 66 61  |Wimp_IconInterfa|
00001af0  63 65 53 74 61 72 74 0d  09 88 1e c8 99 22 57 69  |ceStart......"Wi|
00001b00  6d 70 5f 42 6f 72 64 65  72 49 63 6f 6e 22 2c 2c  |mp_BorderIcon",,|
00001b10  77 69 6d 70 25 0d 09 92  05 e1 0d 09 9c 05 3a 0d  |wimp%.........:.|
00001b20  09 a6 1f dd 20 f2 57 69  6d 70 5f 49 63 6f 6e 49  |.... .Wimp_IconI|
00001b30  6e 74 65 72 66 61 63 65  46 69 6e 69 73 68 0d 09  |nterfaceFinish..|
00001b40  b0 0d 77 69 6d 70 25 21  38 3d 30 0d 09 ba 1e c8  |..wimp%!8=0.....|
00001b50  99 22 57 69 6d 70 5f 42  6f 72 64 65 72 49 63 6f  |."Wimp_BorderIco|
00001b60  6e 22 2c 2c 77 69 6d 70  25 0d 09 c4 05 e1 0d 09  |n",,wimp%.......|
00001b70  ce 05 3a 0d 09 d8 06 f4  7c 0d 09 e2 06 f4 7c 0d  |..:.....|.....|.|
00001b80  09 ec 06 f4 7c 0d 09 f6  31 f4 7c 20 20 20 20 20  |....|...1.|     |
00001b90  20 20 20 20 20 20 20 20  20 20 20 20 20 2d 2d 2d  |             ---|
00001ba0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00001bb0  2d 2d 2d 2d 2d 2d 0d 0a  00 28 f4 7c 20 20 20 20  |------...(.|    |
00001bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001bd0  20 20 20 20 20 20 33 2e  a0 4d 65 6e 75 73 0d 0a  |      3..Menus..|
00001be0  0a 31 f4 7c 20 20 20 20  20 20 20 20 20 20 20 20  |.1.|            |
00001bf0  20 20 20 20 20 20 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |      ----------|
00001c00  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0d  |---------------.|
00001c10  0a 14 06 f4 7c 0d 0a 1e  06 f4 7c 0d 0a 28 3f f4  |....|.....|..(?.|
00001c20  7c 20 20 20 20 20 20 20  20 20 20 20 2d 2d 2d 2d  ||           ----|
00001c30  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00001c50  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 0a 32 06 f4 7c  |----------..2..||
00001c60  0d 0a 3c 28 f4 7c 20 20  20 20 20 20 20 20 20 20  |..<(.|          |
00001c70  20 20 20 20 20 20 20 20  20 20 20 20 50 72 6f 63  |            Proc|
00001c80  65 64 75 72 65 73 20 3a  0d 0a 46 06 f4 7c 0d 0a  |edures :..F..|..|
00001c90  50 06 f4 7c 0d 0a 5a 2e  f4 7c 20 20 20 20 20 20  |P..|..Z..|      |
00001ca0  20 20 20 20 20 20 50 52  4f 43 57 69 6d 70 5f 4d  |      PROCWimp_M|
00001cb0  65 6e 75 41 64 6a 75 73  74 4f 6e 28 6d 65 6e 75  |enuAdjustOn(menu|
00001cc0  25 29 0d 0a 64 2b f4 7c  20 20 20 20 20 20 20 20  |%)..d+.|        |
00001cd0  20 20 20 20 46 4e 57 69  6d 70 5f 4d 65 6e 75 43  |    FNWimp_MenuC|
00001ce0  68 6f 69 63 65 28 6c 65  76 65 6c 25 29 0d 0a 6e  |hoice(level%)..n|
00001cf0  2a f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 46  |*.|            F|
00001d00  4e 57 69 6d 70 5f 4d 65  6e 75 43 72 65 61 74 65  |NWimp_MenuCreate|
00001d10  28 6d 65 6e 75 24 29 0d  0a 78 24 f4 7c 20 20 20  |(menu$)..x$.|   |
00001d20  20 20 20 20 20 20 20 20  20 46 4e 57 69 6d 70 5f  |         FNWimp_|
00001d30  4d 65 6e 75 43 6f 6c 6f  75 72 73 0d 0a 82 32 f4  |MenuColours...2.|
00001d40  7c 20 20 20 20 20 20 20  20 20 20 20 20 46 4e 57  ||            FNW|
00001d50  69 6d 70 5f 4d 65 6e 75  43 72 65 61 74 65 43 6f  |imp_MenuCreateCo|
00001d60  6c 6f 75 72 73 28 74 69  74 6c 65 24 29 0d 0a 8c  |lours(title$)...|
00001d70  2f f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 46  |/.|            F|
00001d80  4e 57 69 6d 70 5f 4d 65  6e 75 4e 6f 4f 66 45 6e  |NWimp_MenuNoOfEn|
00001d90  74 72 69 65 73 28 6d 65  6e 75 24 29 0d 0a 96 44  |tries(menu$)...D|
00001da0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 50 52  |.|            PR|
00001db0  4f 43 57 69 6d 70 5f 4d  65 6e 75 42 61 63 6b 47  |OCWimp_MenuBackG|
00001dc0  72 6f 75 6e 64 43 6f 6c  6f 75 72 28 6d 65 6e 75  |roundColour(menu|
00001dd0  25 2c 69 74 65 6d 25 2c  63 6f 6c 6f 75 72 25 29  |%,item%,colour%)|
00001de0  0d 0a a0 32 f4 7c 20 20  20 20 20 20 20 20 20 20  |...2.|          |
00001df0  20 20 50 52 4f 43 57 69  6d 70 5f 4d 65 6e 75 43  |  PROCWimp_MenuC|
00001e00  65 6e 74 72 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |entre(menu%,item|
00001e10  25 29 0d 0a aa 24 f4 7c  20 20 20 20 20 20 20 20  |%)...$.|        |
00001e20  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 4d 65 6e  |    PROCWimp_Men|
00001e30  75 43 6c 6f 73 65 0d 0a  b4 33 f4 7c 20 20 20 20  |uClose...3.|    |
00001e40  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00001e50  5f 4d 65 6e 75 44 69 73  61 62 6c 65 28 6d 65 6e  |_MenuDisable(men|
00001e60  75 25 2c 69 74 65 6d 25  29 0d 0a be 36 f4 7c 20  |u%,item%)...6.| |
00001e70  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00001e80  69 6d 70 5f 4d 65 6e 75  44 6f 74 74 65 64 4c 69  |imp_MenuDottedLi|
00001e90  6e 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |ne(menu%,item%).|
00001ea0  0a c8 32 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |..2.|           |
00001eb0  20 50 52 4f 43 57 69 6d  70 5f 4d 65 6e 75 45 6e  | PROCWimp_MenuEn|
00001ec0  61 62 6c 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |able(menu%,item%|
00001ed0  29 0d 0a d2 44 f4 7c 20  20 20 20 20 20 20 20 20  |)...D.|         |
00001ee0  20 20 20 50 52 4f 43 57  69 6d 70 5f 4d 65 6e 75  |   PROCWimp_Menu|
00001ef0  46 6f 72 65 67 72 6f 75  6e 64 43 6f 6c 6f 75 72  |ForegroundColour|
00001f00  28 6d 65 6e 75 25 2c 69  74 65 6d 25 2c 63 6f 6c  |(menu%,item%,col|
00001f10  6f 75 72 25 29 0d 0a dc  38 f4 7c 20 20 20 20 20  |our%)...8.|     |
00001f20  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
00001f30  4d 65 6e 75 47 6c 75 65  28 6d 65 6e 75 31 25 2c  |MenuGlue(menu1%,|
00001f40  69 74 65 6d 25 2c 6d 65  6e 75 32 25 29 0d 0a e6  |item%,menu2%)...|
00001f50  36 f4 7c 20 20 20 20 20  20 20 20 20 20 20 20 50  |6.|            P|
00001f60  52 4f 43 57 69 6d 70 5f  4d 65 6e 75 49 74 65 6d  |ROCWimp_MenuItem|
00001f70  28 6d 65 6e 75 25 2c 69  74 65 6d 25 2c 69 74 65  |(menu%,item%,ite|
00001f80  6d 24 29 0d 0a f0 33 f4  7c 20 20 20 20 20 20 20  |m$)...3.|       |
00001f90  20 20 20 20 20 50 52 4f  43 57 69 6d 70 5f 4d 65  |     PROCWimp_Me|
00001fa0  6e 75 4d 65 73 73 61 67  65 28 6d 65 6e 75 25 2c  |nuMessage(menu%,|
00001fb0  69 74 65 6d 25 29 0d 0a  fa 31 f4 7c 20 20 20 20  |item%)...1.|    |
00001fc0  20 20 20 20 20 20 20 20  50 52 4f 43 57 69 6d 70  |        PROCWimp|
00001fd0  5f 4d 65 6e 75 50 6f 70  55 70 28 4d 65 6e 75 25  |_MenuPopUp(Menu%|
00001fe0  2c 78 25 2c 79 25 29 0d  0b 04 2e f4 7c 20 20 20  |,x%,y%).....|   |
00001ff0  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00002000  70 5f 4d 65 6e 75 50 6f  70 55 70 42 61 72 28 78  |p_MenuPopUpBar(x|
00002010  25 2c 79 25 29 0d 0b 0e  30 f4 7c 20 20 20 20 20  |%,y%)...0.|     |
00002020  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
00002030  4d 65 6e 75 54 69 63 6b  28 6d 65 6e 75 25 2c 69  |MenuTick(menu%,i|
00002040  74 65 6d 25 29 0d 0b 18  32 f4 7c 20 20 20 20 20  |tem%)...2.|     |
00002050  20 20 20 20 20 20 20 50  52 4f 43 57 69 6d 70 5f  |       PROCWimp_|
00002060  4d 65 6e 75 54 69 74 6c  65 28 6d 65 6e 75 25 2c  |MenuTitle(menu%,|
00002070  74 69 74 6c 65 24 29 0d  0b 22 4c f4 7c 20 20 20  |title$).."L.|   |
00002080  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
00002090  70 5f 4d 65 6e 75 57 72  69 74 65 28 6d 65 6e 75  |p_MenuWrite(menu|
000020a0  25 2c 69 74 65 6d 25 2c  62 75 66 66 65 72 25 2c  |%,item%,buffer%,|
000020b0  76 61 6c 25 2c 42 75 66  66 65 72 4c 65 6e 67 74  |val%,BufferLengt|
000020c0  68 25 29 0d 0b 2c 06 f4  7c 0d 0b 36 3f f4 7c 20  |h%)..,..|..6?.| |
000020d0  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
000020e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002100  2d 2d 2d 2d 2d 2d 2d 2d  0d 0b 40 06 f4 7c 0d 0b  |--------..@..|..|
00002110  4a 05 3a 0d 0b 54 1f dd  20 f2 57 69 6d 70 5f 4d  |J.:..T.. .Wimp_M|
00002120  65 6e 75 41 64 6a 75 73  74 4f 6e 28 6d 65 6e 75  |enuAdjustOn(menu|
00002130  25 29 0d 0b 5e 2c c8 99  20 22 57 69 6d 70 5f 47  |%)..^,.. "Wimp_G|
00002140  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
00002150  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 0d 0b  |pointer_block%..|
00002160  68 5e e7 20 28 28 70 6f  69 6e 74 65 72 5f 62 6c  |h^. ((pointer_bl|
00002170  6f 63 6b 25 21 38 29 80  31 29 3d 31 20 8c 20 c8  |ock%!8).1)=1 . .|
00002180  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 4d 65  |. "Wimp_CreateMe|
00002190  6e 75 22 2c 2c 6d 65 6e  75 25 2c 70 6f 69 6e 74  |nu",,menu%,point|
000021a0  65 72 5f 62 6c 6f 63 6b  25 21 30 2c 70 6f 69 6e  |er_block%!0,poin|
000021b0  74 65 72 5f 62 6c 6f 63  6b 25 21 34 0d 0b 72 05  |ter_block%!4..r.|
000021c0  e1 0d 0b 7c 05 3a 0d 0b  86 1e dd 20 a4 57 69 6d  |...|.:..... .Wim|
000021d0  70 5f 4d 65 6e 75 43 68  6f 69 63 65 28 6c 65 76  |p_MenuChoice(lev|
000021e0  65 6c 25 29 0d 0b 90 19  3d 28 77 69 6d 70 25 21  |el%)....=(wimp%!|
000021f0  28 34 2a 6c 65 76 65 6c  25 29 29 2b 31 0d 0b 9a  |(4*level%))+1...|
00002200  05 3a 0d 0b a4 1d dd 20  a4 57 69 6d 70 5f 4d 65  |.:..... .Wimp_Me|
00002210  6e 75 43 72 65 61 74 65  28 6d 65 6e 75 24 29 0d  |nuCreate(menu$).|
00002220  0b ae 29 e7 20 6d 65 6e  75 24 3d 22 43 6f 6c 6f  |..). menu$="Colo|
00002230  75 72 73 22 20 8c 3d a4  57 69 6d 70 5f 4d 65 6e  |urs" .=.Wimp_Men|
00002240  75 43 6f 6c 6f 75 72 73  0d 0b b8 27 ea 20 6d 65  |uColours...'. me|
00002250  6e 75 25 2c 69 6e 64 65  78 25 2c 77 69 64 74 68  |nu%,index%,width|
00002260  25 2c 6c 65 6e 67 74 68  25 2c 6b 25 2c 73 25 0d  |%,length%,k%,s%.|
00002270  0b c2 2e de 20 6d 65 6e  75 25 20 32 38 2b a4 57  |.... menu% 28+.W|
00002280  69 6d 70 5f 4d 65 6e 75  4e 6f 4f 66 45 6e 74 72  |imp_MenuNoOfEntr|
00002290  69 65 73 28 6d 65 6e 75  24 29 2a 32 34 0d 0b cc  |ies(menu$)*24...|
000022a0  37 6d 65 6e 75 25 3f 31  32 3d 37 20 20 20 3a 20  |7menu%?12=7   : |
000022b0  6d 65 6e 75 25 3f 31 33  3d 32 20 20 3a 20 6d 65  |menu%?13=2  : me|
000022c0  6e 75 25 3f 31 34 3d 37  20 3a 6d 65 6e 75 25 3f  |nu%?14=7 :menu%?|
000022d0  31 35 3d 30 0d 0b d6 2b  6d 65 6e 75 25 21 31 36  |15=0...+menu%!16|
000022e0  3d 31 34 30 20 3a 20 6d  65 6e 75 25 21 32 30 3d  |=140 : menu%!20=|
000022f0  34 34 20 3a 20 6d 65 6e  75 25 21 32 34 3d 30 0d  |44 : menu%!24=0.|
00002300  0b e0 13 69 6e 64 65 78  25 3d 6d 65 6e 75 25 2b  |...index%=menu%+|
00002310  32 38 0d 0b ea 20 24 6d  65 6e 75 25 3d c0 6d 65  |28... $menu%=.me|
00002320  6e 75 24 2c a7 6d 65 6e  75 24 2c 22 5c 22 29 2d  |nu$,.menu$,"\")-|
00002330  31 29 0d 0b f4 23 77 69  64 74 68 25 3d a9 28 c0  |1)...#width%=.(.|
00002340  6d 65 6e 75 24 2c a7 6d  65 6e 75 24 2c 22 5c 22  |menu$,.menu$,"\"|
00002350  29 2d 31 29 29 0d 0b fe  24 6d 65 6e 75 24 2b 3d  |)-1))...$menu$+=|
00002360  22 5c 22 20 3a 20 4d 65  6e 75 5f 4e 6f 4f 66 45  |"\" : Menu_NoOfE|
00002370  6e 74 72 69 65 73 25 3d  30 0d 0c 08 10 c8 95 20  |ntries%=0...... |
00002380  6d 65 6e 75 24 3c 3e 22  22 0d 0c 12 1f 6d 65 6e  |menu$<>""....men|
00002390  75 24 3d c1 6d 65 6e 75  24 2c a7 6d 65 6e 75 24  |u$=.menu$,.menu$|
000023a0  2c 22 5c 22 29 2b 31 29  0d 0c 1c 0e c8 8e 20 6d  |,"\")+1)...... m|
000023b0  65 6e 75 24 20 ca 0d 0c  26 09 20 c9 20 22 22 0d  |enu$ ...&. . "".|
000023c0  0c 30 08 20 7f 20 3a 0d  0c 3a 31 20 20 21 69 6e  |.0. . :..:1  !in|
000023d0  64 65 78 25 3d 30 20 3a  20 69 6e 64 65 78 25 21  |dex%=0 : index%!|
000023e0  34 3d 2d 31 20 3a 20 69  6e 64 65 78 25 21 38 3d  |4=-1 : index%!8=|
000023f0  26 37 30 30 30 30 32 31  0d 0c 44 1b 20 20 6c 65  |&7000021..D.  le|
00002400  6e 67 74 68 25 3d a7 6d  65 6e 75 24 2c 22 5c 22  |ngth%=.menu$,"\"|
00002410  29 2d 31 0d 0c 4e 1e 20  20 6b 25 3d a7 c0 6d 65  |)-1..N.  k%=..me|
00002420  6e 75 24 2c 6c 65 6e 67  74 68 25 29 2c 22 3e 22  |nu$,length%),">"|
00002430  29 0d 0c 58 0d 20 20 c8  8e 20 6b 25 20 ca 0d 0c  |)..X.  .. k% ...|
00002440  62 0a 20 20 20 c9 20 30  0d 0c 6c 08 20 20 20 7f  |b.   . 0..l.   .|
00002450  0d 0c 76 25 20 20 20 20  73 25 3d a0 28 c1 6d 65  |..v%    s%=.(.me|
00002460  6e 75 24 2c 6b 25 2b 31  2c 6c 65 6e 67 74 68 25  |nu$,k%+1,length%|
00002470  2d 6b 25 29 29 0d 0c 80  13 20 20 20 20 69 6e 64  |-k%))....    ind|
00002480  65 78 25 21 34 3d 73 25  0d 0c 8a 14 20 20 20 20  |ex%!4=s%....    |
00002490  6c 65 6e 67 74 68 25 3d  6b 25 2d 31 0d 0c 94 07  |length%=k%-1....|
000024a0  20 20 cb 0d 0c 9e 22 20  20 24 28 69 6e 64 65 78  |  ...."  $(index|
000024b0  25 2b 31 32 29 3d c0 6d  65 6e 75 24 2c 6c 65 6e  |%+12)=.menu$,len|
000024c0  67 74 68 25 29 0d 0c a8  27 20 20 e7 20 6c 65 6e  |gth%)...'  . len|
000024d0  67 74 68 25 3e 77 69 64  74 68 25 20 8c 20 77 69  |gth%>width% . wi|
000024e0  64 74 68 25 3d 6c 65 6e  67 74 68 25 0d 0c b2 10  |dth%=length%....|
000024f0  20 20 69 6e 64 65 78 25  2b 3d 32 34 0d 0c bc 05  |  index%+=24....|
00002500  cb 0d 0c c6 05 ce 0d 0c  d0 1a 6d 65 6e 75 25 21  |..........menu%!|
00002510  31 36 3d 31 36 2a 28 77  69 64 74 68 25 2b 31 29  |16=16*(width%+1)|
00002520  0d 0c da 28 69 6e 64 65  78 25 21 2d 32 34 3d 69  |...(index%!-24=i|
00002530  6e 64 65 78 25 21 2d 32  34 20 84 20 26 38 30 20  |ndex%!-24 . &80 |
00002540  3a 20 3d 6d 65 6e 75 25  0d 0c e4 05 3a 0d 0c ee  |: =menu%....:...|
00002550  17 dd 20 a4 57 69 6d 70  5f 4d 65 6e 75 43 6f 6c  |.. .Wimp_MenuCol|
00002560  6f 75 72 73 0d 0c f8 21  3d a4 57 69 6d 70 5f 4d  |ours...!=.Wimp_M|
00002570  65 6e 75 43 72 65 61 74  65 43 6f 6c 6f 75 72 73  |enuCreateColours|
00002580  28 22 20 22 29 0d 0d 02  05 3a 0d 0d 0c 25 dd 20  |(" ")....:...%. |
00002590  a4 57 69 6d 70 5f 4d 65  6e 75 43 72 65 61 74 65  |.Wimp_MenuCreate|
000025a0  43 6f 6c 6f 75 72 73 28  74 69 74 6c 65 24 29 0d  |Colours(title$).|
000025b0  0d 16 13 ea 20 78 24 2c  6d 65 6e 25 2c 6a 25 2c  |.... x$,men%,j%,|
000025c0  69 25 0d 0d 20 36 78 24  3d 74 69 74 6c 65 24 2b  |i%.. 6x$=title$+|
000025d0  22 5c 30 5c 31 5c 32 5c  33 5c 34 5c 35 5c 36 5c  |"\0\1\2\3\4\5\6\|
000025e0  37 5c 38 5c 39 5c 31 30  5c 31 31 5c 31 32 5c 31  |7\8\9\10\11\12\1|
000025f0  33 5c 31 34 5c 31 35 22  0d 0d 2a 1d 6d 65 6e 25  |3\14\15"..*.men%|
00002600  3d a4 57 69 6d 70 5f 4d  65 6e 75 43 72 65 61 74  |=.Wimp_MenuCreat|
00002610  65 28 78 24 29 0d 0d 34  0f e3 20 69 25 3d 30 20  |e(x$)..4.. i%=0 |
00002620  b8 20 31 35 0d 0d 3e 0a  c8 8e 20 b9 20 ca 0d 0d  |. 15..>... . ...|
00002630  48 28 c9 20 69 25 3c 34  2c 69 25 3d 39 2c 69 25  |H(. i%<4,i%=9,i%|
00002640  3d 31 32 2c 69 25 3d 31  34 2c 69 25 3d 31 35 20  |=12,i%=14,i%=15 |
00002650  3a 20 6a 25 3d 37 0d 0d  52 0c 7f 20 3a 20 6a 25  |: j%=7..R.. : j%|
00002660  3d 30 0d 0d 5c 05 cb 0d  0d 66 1c 6d 65 6e 25 3f  |=0..\....f.men%?|
00002670  28 33 39 2b 69 25 2a 32  34 29 3d 69 25 2a 31 36  |(39+i%*24)=i%*16|
00002680  2b 6a 25 0d 0d 70 1f f2  57 69 6d 70 5f 4d 65 6e  |+j%..p..Wimp_Men|
00002690  75 43 65 6e 74 72 65 28  6d 65 6e 25 2c 69 25 2b  |uCentre(men%,i%+|
000026a0  31 29 0d 0d 7a 05 ed 0d  0d 84 09 3d 6d 65 6e 25  |1)..z......=men%|
000026b0  0d 0d 8e 05 3a 0d 0d 98  22 dd 20 a4 57 69 6d 70  |....:...". .Wimp|
000026c0  5f 4d 65 6e 75 4e 6f 4f  66 45 6e 74 72 69 65 73  |_MenuNoOfEntries|
000026d0  28 6d 65 6e 75 24 29 0d  0d a2 1a ea 20 6e 25 20  |(menu$)..... n% |
000026e0  2c 6a 25 20 3a 20 6e 25  3d 30 20 3a 20 6a 25 3d  |,j% : n%=0 : j%=|
000026f0  30 0d 0d ac 05 f5 0d 0d  b6 17 6a 25 3d a7 6d 65  |0.........j%=.me|
00002700  6e 75 24 2c 22 5c 22 2c  6a 25 2b 31 29 0d 0d c0  |nu$,"\",j%+1)...|
00002710  13 e7 20 6a 25 3c 3e 30  20 8c 20 6e 25 2b 3d 31  |.. j%<>0 . n%+=1|
00002720  0d 0d ca 0a fd 20 6a 25  3d 30 0d 0d d4 07 3d 6e  |..... j%=0....=n|
00002730  25 0d 0d de 05 3a 0d 0d  e8 35 dd 20 f2 57 69 6d  |%....:...5. .Wim|
00002740  70 5f 4d 65 6e 75 42 61  63 6b 47 72 6f 75 6e 64  |p_MenuBackGround|
00002750  43 6f 6c 6f 75 72 28 6d  65 6e 75 25 2c 69 74 65  |Colour(menu%,ite|
00002760  6d 25 2c 63 6f 6c 6f 75  72 25 29 0d 0d f2 0e ea  |m%,colour%).....|
00002770  20 66 6f 72 65 25 2c 69  25 0d 0d fc 26 66 6f 72  | fore%,i%...&for|
00002780  65 25 3d 28 6d 65 6e 75  25 3f 28 33 39 2b 28 69  |e%=(menu%?(39+(i|
00002790  74 65 6d 25 2d 31 29 2a  32 34 29 29 83 31 36 0d  |tem%-1)*24)).16.|
000027a0  0e 06 28 69 25 3d 28 28  6d 65 6e 75 25 3f 28 33  |..(i%=((menu%?(3|
000027b0  39 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |9+(item%-1)*24))|
000027c0  81 31 36 29 83 31 36 0d  0e 10 2f 6d 65 6e 75 25  |.16).16.../menu%|
000027d0  3f 28 33 39 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |?(39+(item%-1)*2|
000027e0  34 29 3d 66 6f 72 65 25  2b 31 36 2a 63 6f 6c 6f  |4)=fore%+16*colo|
000027f0  75 72 25 2b 69 25 0d 0e  1a 05 e1 0d 0e 24 05 3a  |ur%+i%.......$.:|
00002800  0d 0e 2e 23 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |...#. .Wimp_Menu|
00002810  43 65 6e 74 72 65 28 6d  65 6e 75 25 2c 69 74 65  |Centre(menu%,ite|
00002820  6d 25 29 0d 0e 38 3a 6d  65 6e 75 25 21 28 33 36  |m%)..8:menu%!(36|
00002830  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 6d  |+(item%-1)*24)=m|
00002840  65 6e 75 25 21 28 33 36  2b 28 69 74 65 6d 25 2d  |enu%!(36+(item%-|
00002850  31 29 2a 32 34 29 84 28  31 3c 3c 33 29 0d 0e 42  |1)*24).(1<<3)..B|
00002860  05 e1 0d 0e 4c 05 3a 0d  0e 56 15 dd 20 f2 57 69  |....L.:..V.. .Wi|
00002870  6d 70 5f 4d 65 6e 75 43  6c 6f 73 65 0d 0e 60 1b  |mp_MenuClose..`.|
00002880  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 4d  |.. "Wimp_CreateM|
00002890  65 6e 75 22 2c 2d 31 0d  0e 6a 05 e1 0d 0e 74 05  |enu",-1..j....t.|
000028a0  3a 0d 0e 7e 24 dd 20 f2  57 69 6d 70 5f 4d 65 6e  |:..~$. .Wimp_Men|
000028b0  75 44 69 73 61 62 6c 65  28 6d 65 6e 75 25 2c 69  |uDisable(menu%,i|
000028c0  74 65 6d 25 29 0d 0e 88  3b 6d 65 6e 75 25 21 28  |tem%)...;menu%!(|
000028d0  33 36 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |36+(item%-1)*24)|
000028e0  3d 6d 65 6e 75 25 21 28  33 36 2b 28 69 74 65 6d  |=menu%!(36+(item|
000028f0  25 2d 31 29 2a 32 34 29  84 28 31 3c 3c 32 32 29  |%-1)*24).(1<<22)|
00002900  0d 0e 92 05 e1 0d 0e 9c  05 3a 0d 0e a6 27 dd 20  |.........:...'. |
00002910  f2 57 69 6d 70 5f 4d 65  6e 75 44 6f 74 74 65 64  |.Wimp_MenuDotted|
00002920  4c 69 6e 65 28 6d 65 6e  75 25 2c 69 74 65 6d 25  |Line(menu%,item%|
00002930  29 0d 0e b0 37 6d 65 6e  75 25 21 28 32 38 2b 28  |)...7menu%!(28+(|
00002940  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 28 6d 65  |item%-1)*24)=(me|
00002950  6e 75 25 21 28 32 38 2b  28 69 74 65 6d 25 2d 31  |nu%!(28+(item%-1|
00002960  29 2a 32 34 29 29 84 32  0d 0e ba 05 e1 0d 0e c4  |)*24)).2........|
00002970  05 3a 0d 0e ce 23 dd 20  f2 57 69 6d 70 5f 4d 65  |.:...#. .Wimp_Me|
00002980  6e 75 45 6e 61 62 6c 65  28 6d 65 6e 75 25 2c 69  |nuEnable(menu%,i|
00002990  74 65 6d 25 29 0d 0e d8  22 f2 57 69 6d 70 5f 4d  |tem%)...".Wimp_M|
000029a0  65 6e 75 44 69 73 61 62  6c 65 28 6d 65 6e 75 25  |enuDisable(menu%|
000029b0  2c 69 74 65 6d 25 29 0d  0e e2 3b 6d 65 6e 75 25  |,item%)...;menu%|
000029c0  21 28 33 36 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(36+(item%-1)*2|
000029d0  34 29 3d 6d 65 6e 75 25  21 28 33 36 2b 28 69 74  |4)=menu%!(36+(it|
000029e0  65 6d 25 2d 31 29 2a 32  34 29 82 28 31 3c 3c 32  |em%-1)*24).(1<<2|
000029f0  32 29 0d 0e ec 05 e1 0d  0e f6 05 3a 0d 0f 00 35  |2).........:...5|
00002a00  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 46 6f 72 65  |. .Wimp_MenuFore|
00002a10  67 72 6f 75 6e 64 43 6f  6c 6f 75 72 28 6d 65 6e  |groundColour(men|
00002a20  75 25 2c 69 74 65 6d 25  2c 63 6f 6c 6f 75 72 25  |u%,item%,colour%|
00002a30  29 0d 0f 0a 45 6d 65 6e  75 25 3f 28 33 39 2b 28  |)...Emenu%?(39+(|
00002a40  69 74 65 6d 25 2d 31 29  2a 32 34 29 3d 63 6f 6c  |item%-1)*24)=col|
00002a50  6f 75 72 25 2b 31 36 2a  28 28 6d 65 6e 75 25 3f  |our%+16*((menu%?|
00002a60  28 33 39 2b 28 69 74 65  6d 25 2d 31 29 2a 32 34  |(39+(item%-1)*24|
00002a70  29 29 81 31 36 29 0d 0f  14 05 e1 0d 0f 1e 05 3a  |)).16).........:|
00002a80  0d 0f 28 29 dd 20 f2 57  69 6d 70 5f 4d 65 6e 75  |..(). .Wimp_Menu|
00002a90  47 6c 75 65 28 6d 65 6e  75 31 25 2c 69 74 65 6d  |Glue(menu1%,item|
00002aa0  25 2c 6d 65 6e 75 32 25  29 0d 0f 32 1e 6d 65 6e  |%,menu2%)..2.men|
00002ab0  75 31 25 21 28 38 2b 69  74 65 6d 25 2a 32 34 29  |u1%!(8+item%*24)|
00002ac0  3d 6d 65 6e 75 32 25 0d  0f 3c 05 e1 0d 0f 46 05  |=menu2%..<....F.|
00002ad0  3a 0d 0f 50 27 dd 20 f2  57 69 6d 70 5f 4d 65 6e  |:..P'. .Wimp_Men|
00002ae0  75 49 74 65 6d 28 6d 65  6e 75 25 2c 69 74 65 6d  |uItem(menu%,item|
00002af0  25 2c 69 74 65 6d 24 29  0d 0f 5a 2c 24 28 6d 65  |%,item$)..Z,$(me|
00002b00  6e 75 25 2b 28 34 30 2b  28 69 74 65 6d 25 2d 31  |nu%+(40+(item%-1|
00002b10  29 2a 32 34 29 29 3d c0  69 74 65 6d 24 2c 31 32  |)*24))=.item$,12|
00002b20  29 2b bd 30 0d 0f 64 05  e1 0d 0f 6e 05 3a 0d 0f  |)+.0..d....n.:..|
00002b30  78 24 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 4d 65  |x$. .Wimp_MenuMe|
00002b40  73 73 61 67 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |ssage(menu%,item|
00002b50  25 29 0d 0f 82 3c 6d 65  6e 75 25 21 28 32 38 2b  |%)...<menu%!(28+|
00002b60  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 28 6d  |(item%-1)*24)=(m|
00002b70  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00002b80  31 29 2a 32 34 29 29 82  28 31 3c 3c 33 29 0d 0f  |1)*24)).(1<<3)..|
00002b90  8c 05 e1 0d 0f 96 05 3a  0d 0f a0 22 dd 20 f2 57  |.......:...". .W|
00002ba0  69 6d 70 5f 4d 65 6e 75  50 6f 70 55 70 28 4d 65  |imp_MenuPopUp(Me|
00002bb0  6e 75 25 2c 78 25 2c 79  25 29 0d 0f aa 0f 6d 65  |nu%,x%,y%)....me|
00002bc0  6e 75 25 3d 4d 65 6e 75  25 0d 0f b4 2b c8 99 20  |nu%=Menu%...+.. |
00002bd0  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00002be0  22 2c 2c 6d 65 6e 75 25  2c 78 25 2d 36 34 2c 79  |",,menu%,x%-64,y|
00002bf0  25 2b 32 30 0d 0f be 05  e1 0d 0f c8 05 3a 0d 0f  |%+20.........:..|
00002c00  d2 1f dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 50 6f  |... .Wimp_MenuPo|
00002c10  70 55 70 42 61 72 28 78  25 2c 79 25 29 0d 0f dc  |pUpBar(x%,y%)...|
00002c20  0f ea 20 6e 25 20 3a 20  6e 25 3d 30 0d 0f e6 2b  |.. n% : n%=0...+|
00002c30  c8 95 20 28 28 42 61 72  5f 4d 65 6e 75 25 21 28  |.. ((Bar_Menu%!(|
00002c40  32 38 2b 6e 25 2a 32 34  29 29 80 25 31 30 30 30  |28+n%*24)).%1000|
00002c50  30 30 30 30 29 3d 30 0d  0f f0 09 6e 25 2b 3d 31  |0000)=0....n%+=1|
00002c60  0d 0f fa 05 ce 0d 10 04  32 c8 99 20 22 57 69 6d  |........2.. "Wim|
00002c70  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 42  |p_CreateMenu",,B|
00002c80  61 72 5f 4d 65 6e 75 25  2c 78 25 2d 36 34 2c 39  |ar_Menu%,x%-64,9|
00002c90  36 2b 6e 25 2a 34 34 0d  10 0e 13 6d 65 6e 75 25  |6+n%*44....menu%|
00002ca0  3d 42 61 72 5f 4d 65 6e  75 25 0d 10 18 05 e1 0d  |=Bar_Menu%......|
00002cb0  10 22 05 3a 0d 10 2c 21  dd 20 f2 57 69 6d 70 5f  |.".:..,!. .Wimp_|
00002cc0  4d 65 6e 75 54 69 63 6b  28 6d 65 6e 75 25 2c 69  |MenuTick(menu%,i|
00002cd0  74 65 6d 25 29 0d 10 36  37 6d 65 6e 75 25 21 28  |tem%)..67menu%!(|
00002ce0  32 38 2b 28 69 74 65 6d  25 2d 31 29 2a 32 34 29  |28+(item%-1)*24)|
00002cf0  3d 28 6d 65 6e 75 25 21  28 32 38 2b 28 69 74 65  |=(menu%!(28+(ite|
00002d00  6d 25 2d 31 29 2a 32 34  29 29 82 31 0d 10 40 05  |m%-1)*24)).1..@.|
00002d10  e1 0d 10 4a 05 3a 0d 10  54 23 dd 20 f2 57 69 6d  |...J.:..T#. .Wim|
00002d20  70 5f 4d 65 6e 75 54 69  74 6c 65 28 6d 65 6e 75  |p_MenuTitle(menu|
00002d30  25 2c 74 69 74 6c 65 24  29 0d 10 5e 19 24 6d 65  |%,title$)..^.$me|
00002d40  6e 75 25 3d c0 74 69 74  6c 65 24 2c 31 32 29 2b  |nu%=.title$,12)+|
00002d50  bd 30 0d 10 68 05 e1 0d  10 72 05 3a 0d 10 7c 3d  |.0..h....r.:..|=|
00002d60  dd 20 f2 57 69 6d 70 5f  4d 65 6e 75 57 72 69 74  |. .Wimp_MenuWrit|
00002d70  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 2c 62 75  |e(menu%,item%,bu|
00002d80  66 66 65 72 25 2c 76 61  6c 25 2c 42 75 66 66 65  |ffer%,val%,Buffe|
00002d90  72 4c 65 6e 67 74 68 25  29 0d 10 86 37 6d 65 6e  |rLength%)...7men|
00002da0  75 25 21 28 32 38 2b 28  69 74 65 6d 25 2d 31 29  |u%!(28+(item%-1)|
00002db0  2a 32 34 29 3d 28 6d 65  6e 75 25 21 28 32 38 2b  |*24)=(menu%!(28+|
00002dc0  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 29 84 34  |(item%-1)*24)).4|
00002dd0  0d 10 90 38 6d 65 6e 75  25 21 28 33 36 2b 28 69  |...8menu%!(36+(i|
00002de0  74 65 6d 25 2d 31 29 2a  32 34 29 3d 6d 65 6e 75  |tem%-1)*24)=menu|
00002df0  25 21 28 33 36 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(36+(item%-1)*|
00002e00  32 34 29 84 26 31 30 30  0d 10 9a 23 6d 65 6e 75  |24).&100...#menu|
00002e10  25 21 28 34 30 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(40+(item%-1)*|
00002e20  32 34 29 3d 62 75 66 66  65 72 25 0d 10 a4 20 6d  |24)=buffer%... m|
00002e30  65 6e 75 25 21 28 34 34  2b 28 69 74 65 6d 25 2d  |enu%!(44+(item%-|
00002e40  31 29 2a 32 34 29 3d 76  61 6c 25 0d 10 ae 29 6d  |1)*24)=val%...)m|
00002e50  65 6e 75 25 21 28 34 38  2b 28 69 74 65 6d 25 2d  |enu%!(48+(item%-|
00002e60  31 29 2a 32 34 29 3d 42  75 66 66 65 72 4c 65 6e  |1)*24)=BufferLen|
00002e70  67 74 68 25 0d 10 b8 05  e1 0d 10 c2 05 3a 0d 10  |gth%.........:..|
00002e80  cc 06 f4 7c 0d 10 d6 06  f4 7c 0d 10 e0 06 f4 7c  |...|.....|.....||
00002e90  0d 10 ea 31 f4 7c 20 20  20 20 20 20 20 20 20 20  |...1.|          |
00002ea0  20 20 20 20 20 20 20 20  2d 2d 2d 2d 2d 2d 2d 2d  |        --------|
00002eb0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00002ec0  2d 0d 10 f4 2a f4 7c 20  20 20 20 20 20 20 20 20  |-...*.|         |
00002ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002ee0  20 34 2e a0 53 70 72 69  74 65 73 0d 10 fe 31 f4  | 4..Sprites...1.|
00002ef0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00002f00  20 20 20 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   -------------|
00002f10  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 0d 11 08 06  |------------....|
00002f20  f4 7c 0d 11 12 06 f4 7c  0d 11 1c 3a f4 7c 20 20  |.|.....|...:.|  |
00002f30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2d 2d  |              --|
00002f40  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00002f60  2d 2d 0d 11 26 06 f4 7c  0d 11 30 28 f4 7c 20 20  |--..&..|..0(.|  |
00002f70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002f80  20 20 20 20 50 72 6f 63  65 64 75 72 65 73 20 3a  |    Procedures :|
00002f90  0d 11 3a 06 f4 7c 0d 11  44 06 f4 7c 0d 11 4e 2c  |..:..|..D..|..N,|
00002fa0  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00002fb0  20 20 20 20 50 52 4f 43  57 69 6d 70 5f 53 70 72  |    PROCWimp_Spr|
00002fc0  69 74 65 73 4c 6f 61 64  0d 11 58 3a f4 7c 20 20  |itesLoad..X:.|  |
00002fd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002fe0  50 52 4f 43 57 69 6d 70  5f 53 70 72 69 74 65 73  |PROCWimp_Sprites|
00002ff0  50 61 74 68 4c 6f 61 64  28 70 61 74 68 6e 61 6d  |PathLoad(pathnam|
00003000  65 24 0d 11 62 06 f4 7c  0d 11 6c 06 f4 7c 0d 11  |e$..b..|..l..|..|
00003010  76 06 f4 7c 0d 11 80 3a  f4 7c 20 20 20 20 20 20  |v..|...:.|      |
00003020  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
00003030  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003040  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 11  |--------------..|
00003050  8a 06 f4 7c 0d 11 94 05  3a 0d 11 9e 17 dd 20 f2  |...|....:..... .|
00003060  57 69 6d 70 5f 53 70 72  69 74 65 73 4c 6f 61 64  |Wimp_SpritesLoad|
00003070  0d 11 a8 2f f2 57 69 6d  70 5f 53 70 72 69 74 65  |.../.Wimp_Sprite|
00003080  73 50 61 74 68 4c 6f 61  64 28 22 3c 4f 62 65 79  |sPathLoad("<Obey|
00003090  24 44 69 72 3e 2e 53 70  72 69 74 65 73 22 29 0d  |$Dir>.Sprites").|
000030a0  11 b2 1c 64 69 72 65 63  74 5f 73 70 72 69 74 65  |...direct_sprite|
000030b0  73 25 3d 73 70 72 69 74  65 73 25 0d 11 bc 05 e1  |s%=sprites%.....|
000030c0  0d 11 c6 05 3a 0d 11 d0  26 dd 20 f2 57 69 6d 70  |....:...&. .Wimp|
000030d0  5f 53 70 72 69 74 65 73  50 61 74 68 4c 6f 61 64  |_SpritesPathLoad|
000030e0  28 70 61 74 68 6e 61 6d  65 24 29 0d 11 da 0a ea  |(pathname$).....|
000030f0  53 25 2c 54 25 0d 11 e4  2c 53 25 3d 8e 22 3c 4f  |S%,T%...,S%=."<O|
00003100  62 65 79 24 44 69 72 3e  2e 53 70 72 69 74 65 73  |bey$Dir>.Sprites|
00003110  22 3a 54 25 3d a2 23 53  25 2b 31 36 3a d9 23 53  |":T%=.#S%+16:.#S|
00003120  25 0d 11 ee 19 de 73 70  72 69 74 65 73 25 54 25  |%.....sprites%T%|
00003130  2c 73 70 6e 61 6d 65 25  31 32 0d 11 f8 1d 21 73  |,spname%12....!s|
00003140  70 72 69 74 65 73 25 3d  54 25 3a 73 70 72 69 74  |prites%=T%:sprit|
00003150  65 73 25 21 38 3d 30 0d  12 02 21 c8 99 22 4f 53  |es%!8=0...!.."OS|
00003160  5f 53 70 72 69 74 65 4f  70 22 2c 26 31 30 39 2c  |_SpriteOp",&109,|
00003170  73 70 72 69 74 65 73 25  0d 12 0c 2b c8 99 22 4f  |sprites%...+.."O|
00003180  53 5f 53 70 72 69 74 65  4f 70 22 2c 26 31 30 41  |S_SpriteOp",&10A|
00003190  2c 73 70 72 69 74 65 73  25 2c 70 61 74 68 6e 61  |,sprites%,pathna|
000031a0  6d 65 24 0d 12 16 05 e1  0d 12 20 05 3a 0d 12 2a  |me$....... .:..*|
000031b0  06 f4 7c 0d 12 34 06 f4  7c 0d 12 3e 06 f4 7c 0d  |..|..4..|..>..|.|
000031c0  12 48 31 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.H1.|           |
000031d0  20 20 20 20 20 20 20 2d  2d 2d 2d 2d 2d 2d 2d 2d  |       ---------|
000031e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000031f0  0d 12 52 28 f4 7c 20 20  20 20 20 20 20 20 20 20  |..R(.|          |
00003200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003210  35 2e a0 46 69 6c 65 73  0d 12 5c 31 f4 7c 20 20  |5..Files..\1.|  |
00003220  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003230  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003240  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 12 66 06 f4 7c 0d  |---------..f..|.|
00003250  12 70 06 f4 7c 0d 12 7a  35 f4 7c 20 20 20 20 20  |.p..|..z5.|     |
00003260  20 20 20 20 20 20 20 20  20 20 20 2d 2d 2d 2d 2d  |           -----|
00003270  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003280  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0d 12 84 06 f4 7c  |----------.....||
00003290  0d 12 8e 28 f4 7c 20 20  20 20 20 20 20 20 20 20  |...(.|          |
000032a0  20 20 20 20 20 20 20 20  20 20 20 20 50 72 6f 63  |            Proc|
000032b0  65 64 75 72 65 73 20 3a  0d 12 98 06 f4 7c 0d 12  |edures :.....|..|
000032c0  a2 06 f4 7c 0d 12 ac 2e  f4 7c 20 20 20 20 20 20  |...|.....|      |
000032d0  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
000032e0  6d 70 5f 46 69 6c 65 54  79 70 65 28 74 79 70 65  |mp_FileType(type|
000032f0  25 29 0d 12 b6 2e f4 7c  20 20 20 20 20 20 20 20  |%).....|        |
00003300  20 20 20 20 20 20 20 20  20 20 46 4e 57 69 6d 70  |          FNWimp|
00003310  5f 47 65 74 46 69 6c 65  50 61 74 68 4e 61 6d 65  |_GetFilePathName|
00003320  0d 12 c0 32 f4 7c 20 20  20 20 20 20 20 20 20 20  |...2.|          |
00003330  20 20 20 20 20 20 20 20  46 4e 57 69 6d 70 5f 46  |        FNWimp_F|
00003340  69 6c 65 4c 6f 61 64 28  70 61 74 68 6e 61 6d 65  |ileLoad(pathname|
00003350  24 29 0d 12 ca 39 f4 7c  20 20 20 20 20 20 20 20  |$)...9.|        |
00003360  20 20 20 20 20 20 20 20  20 20 46 4e 57 69 6d 70  |          FNWimp|
00003370  5f 47 65 74 53 74 72 69  6e 67 41 74 41 64 64 72  |_GetStringAtAddr|
00003380  65 73 73 28 61 72 72 61  79 25 29 0d 12 d4 36 f4  |ess(array%)...6.|
00003390  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000033a0  20 20 20 46 4e 57 69 6d  70 5f 47 65 74 46 69 6c  |   FNWimp_GetFil|
000033b0  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 66 24  |eFromPathname(f$|
000033c0  29 0d 12 de 32 f4 7c 20  20 20 20 20 20 20 20 20  |)...2.|         |
000033d0  20 20 20 20 20 20 20 20  20 50 52 4f 43 57 69 6d  |         PROCWim|
000033e0  70 5f 53 65 6e 64 54 6f  45 64 69 74 28 66 69 6c  |p_SendToEdit(fil|
000033f0  65 24 29 0d 12 e8 06 f4  7c 0d 12 f2 35 f4 7c 20  |e$).....|...5.| |
00003400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00003410  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003420  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0d 12  |--------------..|
00003430  fc 06 f4 7c 0d 13 06 06  f4 7c 0d 13 10 06 f4 7c  |...|.....|.....||
00003440  0d 13 1a 05 3a 0d 13 24  1b dd 20 a4 57 69 6d 70  |....:..$.. .Wimp|
00003450  5f 46 69 6c 65 54 79 70  65 28 74 79 70 65 25 29  |_FileType(type%)|
00003460  0d 13 2e 0c c8 8e 74 79  70 65 25 ca 0d 13 38 11  |......type%...8.|
00003470  c9 26 46 46 46 3a 3d 22  54 65 78 74 22 0d 13 42  |.&FFF:="Text"..B|
00003480  11 c9 26 46 46 44 3a 3d  22 44 61 74 61 22 0d 13  |..&FFD:="Data"..|
00003490  4c 12 c9 26 46 46 42 3a  3d 22 42 61 73 69 63 22  |L..&FFB:="Basic"|
000034a0  0d 13 56 13 c9 26 46 46  39 3a 3d 22 53 70 72 69  |..V..&FF9:="Spri|
000034b0  74 65 22 0d 13 60 14 c9  26 46 45 44 3a 3d 22 50  |te"..`..&FED:="P|
000034c0  61 6c 65 74 74 65 22 0d  13 6a 15 c9 26 46 45 43  |alette"..j..&FEC|
000034d0  3a 3d 22 54 65 6d 70 6c  61 74 65 22 0d 13 74 11  |:="Template"..t.|
000034e0  c9 26 41 46 46 3a 3d 22  44 72 61 77 22 0d 13 7e  |.&AFF:="Draw"..~|
000034f0  14 c9 26 31 30 30 30 3a  3d 22 46 6f 6c 64 65 72  |..&1000:="Folder|
00003500  22 0d 13 88 19 c9 26 32  30 30 30 3a 3d 22 41 70  |".....&2000:="Ap|
00003510  70 6c 69 63 61 74 69 6f  6e 22 0d 13 92 0f 7f 3d  |plication".....=|
00003520  c3 7e 28 74 79 70 65 25  29 0d 13 9c 05 cb 0d 13  |.~(type%).......|
00003530  a6 05 3a 0d 13 b0 1b dd  20 a4 57 69 6d 70 5f 47  |..:..... .Wimp_G|
00003540  65 74 46 69 6c 65 50 61  74 68 4e 61 6d 65 0d 13  |etFilePathName..|
00003550  ba 27 3d a4 57 69 6d 70  5f 47 65 74 53 74 72 69  |.'=.Wimp_GetStri|
00003560  6e 67 41 74 41 64 64 72  65 73 73 28 77 69 6d 70  |ngAtAddress(wimp|
00003570  25 2b 34 34 29 0d 13 c4  05 3a 0d 13 ce 1f dd 20  |%+44)....:..... |
00003580  a4 57 69 6d 70 5f 46 69  6c 65 4c 6f 61 64 28 70  |.Wimp_FileLoad(p|
00003590  61 74 68 6e 61 6d 65 24  29 0d 13 d8 10 ea 53 25  |athname$).....S%|
000035a0  2c 54 25 2c 66 69 6c 65  25 0d 13 e2 11 53 25 3d  |,T%,file%....S%=|
000035b0  8e 70 61 74 68 6e 61 6d  65 24 0d 13 ec 0e 54 25  |.pathname$....T%|
000035c0  3d a2 23 53 25 2b 31 36  0d 13 f6 08 d9 23 53 25  |=.#S%+16.....#S%|
000035d0  0d 14 00 0c de 66 69 6c  65 25 54 25 0d 14 0a 24  |.....file%T%...$|
000035e0  ff 28 22 4c 4f 41 44 20  22 2b 70 61 74 68 6e 61  |.("LOAD "+pathna|
000035f0  6d 65 24 2b 22 20 22 2b  c3 7e 66 69 6c 65 25 29  |me$+" "+.~file%)|
00003600  0d 14 14 0a 3d 66 69 6c  65 25 0d 14 1e 05 3b 0d  |....=file%....;.|
00003610  14 28 26 dd 20 a4 57 69  6d 70 5f 47 65 74 53 74  |.(&. .Wimp_GetSt|
00003620  72 69 6e 67 41 74 41 64  64 72 65 73 73 28 61 72  |ringAtAddress(ar|
00003630  72 61 79 25 29 0d 14 32  0d ea 73 24 3a 73 24 3d  |ray%)..2..s$:s$=|
00003640  22 22 0d 14 3c 3c c8 95  28 3f 61 72 72 61 79 25  |""..<<..(?array%|
00003650  3c 3e 31 33 29 80 28 3f  61 72 72 61 79 25 3c 3e  |<>13).(?array%<>|
00003660  30 29 3a 73 24 2b 3d bd  28 3f 61 72 72 61 79 25  |0):s$+=.(?array%|
00003670  29 3a 61 72 72 61 79 25  2b 3d 31 3a ce 3a 0d 14  |):array%+=1:.:..|
00003680  46 07 3d 73 24 0d 14 50  05 3a 0d 14 5a 23 dd 20  |F.=s$..P.:..Z#. |
00003690  a4 57 69 6d 70 5f 47 65  74 46 69 6c 65 46 72 6f  |.Wimp_GetFileFro|
000036a0  6d 50 61 74 68 6e 61 6d  65 28 66 24 29 0d 14 64  |mPathname(f$)..d|
000036b0  11 c8 8e 20 a7 66 24 2c  22 2e 22 29 20 ca 0d 14  |... .f$,".") ...|
000036c0  6e 10 20 c9 20 30 20 20  20 20 3a 3d 66 24 0d 14  |n. . 0    :=f$..|
000036d0  78 37 20 7f 20 3a 3d a4  57 69 6d 70 5f 47 65 74  |x7 . :=.Wimp_Get|
000036e0  46 69 6c 65 46 72 6f 6d  50 61 74 68 6e 61 6d 65  |FileFromPathname|
000036f0  28 c2 66 24 2c a9 28 66  24 29 2d a7 66 24 2c 22  |(.f$,.(f$)-.f$,"|
00003700  2e 22 29 29 29 0d 14 82  05 cb 0d 14 8c 05 3a 0d  |."))).........:.|
00003710  14 96 1d dd 20 f2 57 69  6d 70 5f 53 65 6e 64 54  |.... .Wimp_SendT|
00003720  6f 45 64 69 74 28 66 69  6c 65 24 29 0d 14 a0 08  |oEdit(file$)....|
00003730  ea 20 6e 25 0d 14 aa 15  77 69 6d 70 25 21 34 3d  |. n%....wimp%!4=|
00003740  26 36 43 43 30 31 43 30  43 0d 14 b4 0e 77 69 6d  |&6CC01C0C....wim|
00003750  70 25 21 31 36 3d 35 0d  14 be 0e 77 69 6d 70 25  |p%!16=5....wimp%|
00003760  21 33 36 3d 30 0d 14 c8  11 77 69 6d 70 25 21 34  |!36=0....wimp%!4|
00003770  30 3d 26 46 46 46 0d 14  d2 18 24 28 77 69 6d 70  |0=&FFF....$(wimp|
00003780  25 2b 34 34 29 3d 66 69  6c 65 24 2b bd 30 0d 14  |%+44)=file$+.0..|
00003790  dc 10 6e 25 3d a9 66 69  6c 65 24 2b 34 35 0d 14  |..n%=.file$+45..|
000037a0  e6 2c e7 20 6e 25 83 34  20 8c 20 21 77 69 6d 70  |.,. n%.4 . !wimp|
000037b0  25 3d 34 2b 28 6e 25 3e  3e 32 29 3c 3c 32 20 8b  |%=4+(n%>>2)<<2 .|
000037c0  20 21 77 69 6d 70 25 3d  6e 25 0d 14 f0 24 c8 99  | !wimp%=n%...$..|
000037d0  20 22 57 69 6d 70 5f 53  65 6e 64 4d 65 73 73 61  | "Wimp_SendMessa|
000037e0  67 65 22 2c 31 37 2c 77  69 6d 70 25 2c 30 0d 14  |ge",17,wimp%,0..|
000037f0  fa 05 e1 0d 15 04 05 3a  0d 15 0e 06 f4 7c 0d 15  |.......:.....|..|
00003800  18 06 f4 7c 0d 15 22 06  f4 7c 0d 15 2c 31 f4 7c  |...|.."..|..,1.||
00003810  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003820  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00003830  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0d 15 36 2c f4  |-----------..6,.|
00003840  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
00003850  20 20 20 20 20 20 20 35  2e a0 4d 69 73 63 65 6c  |       5..Miscel|
00003860  6c 61 6e 65 6f 75 73 0d  15 40 31 f4 7c 20 20 20  |laneous..@1.|   |
00003870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 2d  |               -|
00003880  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003890  2d 2d 2d 2d 2d 2d 2d 2d  0d 15 4a 06 f4 7c 0d 15  |--------..J..|..|
000038a0  54 06 f4 7c 0d 15 5e 35  f4 7c 20 20 20 20 20 20  |T..|..^5.|      |
000038b0  20 20 20 20 20 20 20 20  20 20 2d 2d 2d 2d 2d 2d  |          ------|
000038c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000038d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 0d 15 68 06 f4 7c 0d  |---------..h..|.|
000038e0  15 72 28 f4 7c 20 20 20  20 20 20 20 20 20 20 20  |.r(.|           |
000038f0  20 20 20 20 20 20 20 20  20 20 20 50 72 6f 63 65  |           Proce|
00003900  64 75 72 65 73 20 3a 0d  15 7c 06 f4 7c 0d 15 86  |dures :..|..|...|
00003910  06 f4 7c 0d 15 90 31 f4  7c 20 20 20 20 20 20 20  |..|...1.|       |
00003920  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 43 57  |           PROCW|
00003930  69 6d 70 5f 53 74 61 72  74 28 54 61 73 6b 4e 61  |imp_Start(TaskNa|
00003940  6d 65 24 29 0d 15 9a 2e  f4 7c 20 20 20 20 20 20  |me$).....|      |
00003950  20 20 20 20 20 20 20 20  20 20 20 20 46 4e 57 69  |            FNWi|
00003960  6d 70 5f 42 41 53 49 43  50 61 72 61 6d 65 74 65  |mp_BASICParamete|
00003970  72 73 0d 15 a4 32 f4 7c  20 20 20 20 20 20 20 20  |rs...2.|        |
00003980  20 20 20 20 20 20 20 20  20 20 50 52 4f 43 57 69  |          PROCWi|
00003990  6d 70 5f 53 65 74 45 76  65 6e 74 56 61 72 69 61  |mp_SetEventVaria|
000039a0  62 6c 65 73 0d 15 ae 37  f4 7c 20 20 20 20 20 20  |bles...7.|      |
000039b0  20 20 20 20 20 20 20 20  20 20 20 20 50 52 4f 43  |            PROC|
000039c0  57 69 6d 70 5f 45 72 72  6f 72 28 74 61 73 6b 25  |Wimp_Error(task%|
000039d0  2c 54 61 73 6b 4e 61 6d  65 24 29 0d 15 b8 2a f4  |,TaskName$)...*.|
000039e0  7c 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  ||               |
000039f0  20 20 20 50 52 4f 43 57  69 6d 70 5f 43 6c 6f 73  |   PROCWimp_Clos|
00003a00  65 44 6f 77 6e 0d 15 c2  25 f4 7c 20 20 20 20 20  |eDown...%.|     |
00003a10  20 20 20 20 20 20 20 20  20 20 20 20 20 50 52 4f  |             PRO|
00003a20  43 57 69 6d 70 5f 51 75  69 74 0d 15 cc 36 f4 7c  |CWimp_Quit...6.||
00003a30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003a40  20 20 46 4e 57 69 6d 70  5f 52 65 61 64 56 61 72  |  FNWimp_ReadVar|
00003a50  69 61 62 6c 65 28 56 61  72 69 61 62 6c 65 24 29  |iable(Variable$)|
00003a60  0d 15 d6 06 f4 7c 0d 15  e0 06 f4 7c 0d 15 ea 35  |.....|.....|...5|
00003a70  f4 7c 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.|              |
00003a80  20 20 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |  --------------|
00003a90  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00003aa0  2d 0d 15 f4 06 f4 7c 0d  15 fe 05 3a 0d 16 08 2f  |-.....|....:.../|
00003ab0  dd 20 f2 57 69 6d 70 5f  53 74 61 72 74 28 54 61  |. .Wimp_Start(Ta|
00003ac0  73 6b 4e 61 6d 65 24 2c  77 69 6d 70 5f 6d 65 6d  |skName$,wimp_mem|
00003ad0  6f 72 79 25 2c 69 63 6f  6e 25 29 0d 16 12 25 de  |ory%,icon%)...%.|
00003ae0  20 77 69 6d 70 25 20 77  69 6d 70 5f 6d 65 6d 6f  | wimp% wimp_memo|
00003af0  72 79 25 2c 69 63 6f 6e  73 25 20 69 63 6f 6e 25  |ry%,icons% icon%|
00003b00  0d 16 1c 29 e7 20 77 69  6d 70 5f 6d 65 6d 6f 72  |...). wimp_memor|
00003b10  79 25 3c 32 35 36 20 8c  20 77 69 6d 70 5f 6d 65  |y%<256 . wimp_me|
00003b20  6d 6f 72 79 25 3d 32 35  36 0d 16 26 1d 69 63 6f  |mory%=256..&.ico|
00003b30  6e 5f 6d 65 6d 6f 72 79  25 3d 69 63 6f 6e 73 25  |n_memory%=icons%|
00003b40  2b 69 63 6f 6e 25 0d 16  30 13 74 61 73 6b 24 3d  |+icon%..0.task$=|
00003b50  54 61 73 6b 4e 61 6d 65  24 0d 16 3a 2b 69 6e 64  |TaskName$..:+ind|
00003b60  69 72 65 63 74 5f 73 70  72 69 74 65 73 25 3d 31  |irect_sprites%=1|
00003b70  20 3a 20 64 69 72 65 63  74 5f 73 70 72 69 74 65  | : direct_sprite|
00003b80  73 25 3d 31 0d 16 44 1b  f2 57 69 6d 70 5f 53 65  |s%=1..D..Wimp_Se|
00003b90  74 45 76 65 6e 74 56 61  72 69 61 62 6c 65 73 0d  |tEventVariables.|
00003ba0  16 4e 15 ee 20 85 20 f2  57 69 6d 70 5f 45 72 72  |.N.. . .Wimp_Err|
00003bb0  6f 72 3a e0 0d 16 58 40  c8 99 22 57 69 6d 70 5f  |or:...X@.."Wimp_|
00003bc0  49 6e 69 74 69 61 6c 69  73 65 22 2c 32 30 30 2c  |Initialise",200,|
00003bd0  26 34 42 35 33 34 31 35  34 2c 54 61 73 6b 4e 61  |&4B534154,TaskNa|
00003be0  6d 65 24 20 b8 20 76 65  72 73 69 6f 6e 25 2c 74  |me$ . version%,t|
00003bf0  61 73 6b 25 0d 16 62 05  e1 0d 16 6c 05 3a 0d 16  |ask%..b....l.:..|
00003c00  76 1b dd 20 a4 57 69 6d  70 5f 42 41 53 49 43 50  |v.. .Wimp_BASICP|
00003c10  61 72 61 6d 65 74 65 72  73 0d 16 80 15 20 ea 20  |arameters.... . |
00003c20  63 6f 6d 24 2c 70 61 72  61 6d 24 2c 49 25 0d 16  |com$,param$,I%..|
00003c30  8a 1a 20 c8 99 20 22 4f  53 5f 47 65 74 45 6e 76  |.. .. "OS_GetEnv|
00003c40  22 20 b8 20 63 6f 6d 24  0d 16 94 0f 20 70 61 72  |" . com$.... par|
00003c50  61 6d 73 24 3d 22 22 0d  16 9e 18 20 49 25 3d a7  |ams$="".... I%=.|
00003c60  63 6f 6d 24 2c 22 20 2d  71 75 69 74 20 22 29 0d  |com$," -quit ").|
00003c70  16 a8 35 20 e7 20 49 25  20 8c 20 70 61 72 61 6d  |..5 . I% . param|
00003c80  73 24 3d c1 63 6f 6d 24  2c a7 63 6f 6d 24 2c 22  |s$=.com$,.com$,"|
00003c90  20 22 2c 49 25 2b a9 22  20 2d 71 75 69 74 20 22  | ",I%+." -quit "|
00003ca0  29 2b 31 29 0d 16 b2 0c  3d 70 61 72 61 6d 73 24  |)+1)....=params$|
00003cb0  0d 16 bc 05 3a 0d 16 c6  1d dd 20 f2 57 69 6d 70  |....:..... .Wimp|
00003cc0  5f 53 65 74 45 76 65 6e  74 56 61 72 69 61 62 6c  |_SetEventVariabl|
00003cd0  65 73 0d 16 d0 17 de 20  70 6f 69 6e 74 65 72 5f  |es..... pointer_|
00003ce0  62 6c 6f 63 6b 25 20 32  30 0d 16 da 10 69 6e 74  |block% 20....int|
00003cf0  65 72 66 61 63 65 25 3d  a3 0d 16 e4 2e 6e 75 6c  |erface%=.....nul|
00003d00  6c 25 3d 31 20 20 3a 64  72 61 77 25 3d 32 20 3a  |l%=1  :draw%=2 :|
00003d10  20 20 70 6f 69 6e 74 65  72 5f 6c 65 61 76 69 6e  |  pointer_leavin|
00003d20  67 25 3d 31 3c 3c 34 0d  16 ee 31 70 6f 69 6e 74  |g%=1<<4...1point|
00003d30  65 72 5f 65 6e 74 65 72  69 6e 67 25 3d 31 3c 3c  |er_entering%=1<<|
00003d40  35 3a 6d 6f 75 73 65 25  3d 31 3c 3c 36 3a 64 72  |5:mouse%=1<<6:dr|
00003d50  61 67 25 3d 31 3c 3c 37  0d 16 f8 26 6b 65 79 25  |ag%=1<<7...&key%|
00003d60  3d 31 3c 3c 38 3a 6d 65  6e 75 25 3d 31 3c 3c 39  |=1<<8:menu%=1<<9|
00003d70  3a 73 63 72 6f 6c 6c 25  3d 31 3c 3c 31 30 0d 17  |:scroll%=1<<10..|
00003d80  02 40 6c 6f 73 65 5f 63  61 72 65 74 25 3d 31 3c  |.@lose_caret%=1<|
00003d90  3c 31 31 3a 67 61 69 6e  5f 63 61 72 65 74 25 3d  |<11:gain_caret%=|
00003da0  31 3c 3c 31 32 3a 6d 65  73 73 61 67 65 25 3d 28  |1<<12:message%=(|
00003db0  31 3c 3c 31 37 29 2b 28  31 3c 3c 31 38 29 0d 17  |1<<17)+(1<<18)..|
00003dc0  0c 30 72 65 63 6f 72 64  65 72 25 3d 31 3c 3c 31  |.0recorder%=1<<1|
00003dd0  38 3a 61 63 6b 6e 6f 77  6c 65 64 67 65 25 3d 31  |8:acknowledge%=1|
00003de0  3c 3c 31 39 3a 77 69 6e  64 6f 77 25 3d 30 0d 17  |<<19:window%=0..|
00003df0  16 21 73 70 72 69 74 65  73 25 3d 31 3a 76 65 72  |.!sprites%=1:ver|
00003e00  73 69 6f 6e 25 3d 30 3a  74 61 73 6b 25 3d 30 0d  |sion%=0:task%=0.|
00003e10  17 20 2a 42 61 72 5f 57  69 6e 64 6f 77 25 3d 2d  |. *Bar_Window%=-|
00003e20  32 3a 42 61 72 5f 49 63  6f 6e 25 3d 30 3a 42 61  |2:Bar_Icon%=0:Ba|
00003e30  72 5f 4d 65 6e 75 25 3d  30 0d 17 2a 2a 78 5f 6f  |r_Menu%=0..**x_o|
00003e40  72 69 67 69 6e 25 3d 30  3a 79 5f 6f 72 69 67 69  |rigin%=0:y_origi|
00003e50  6e 25 3d 30 3a 53 61 76  65 57 69 6e 64 6f 77 25  |n%=0:SaveWindow%|
00003e60  3d 2d 33 0d 17 34 33 6d  65 73 73 61 67 65 5f 71  |=-3..43message_q|
00003e70  75 69 74 25 3d 30 3a 6d  65 73 73 61 67 65 5f 73  |uit%=0:message_s|
00003e80  61 76 65 25 3d 32 3a 6d  65 73 73 61 67 65 5f 6c  |ave%=2:message_l|
00003e90  6f 61 64 25 3d 33 0d 17  3e 21 6d 6f 75 73 65 5f  |oad%=3..>!mouse_|
00003ea0  62 75 74 74 6f 6e 25 3d  32 3a 73 61 76 65 5f 65  |button%=2:save_e|
00003eb0  76 65 6e 74 25 3d 30 0d  17 48 20 74 6f 70 5f 6c  |vent%=0..H top_l|
00003ec0  69 6e 65 25 3d 30 20 3a  20 62 6f 74 74 6f 6d 5f  |ine%=0 : bottom_|
00003ed0  6c 69 6e 65 25 3d 30 0d  17 52 05 e1 0d 17 5c 05  |line%=0..R....\.|
00003ee0  3a 0d 17 66 11 dd 20 f2  57 69 6d 70 5f 45 72 72  |:..f.. .Wimp_Err|
00003ef0  6f 72 0d 17 70 0a ea 58  24 2c 78 25 0d 17 7a 09  |or..p..X$,x%..z.|
00003f00  ee 20 85 20 87 0d 17 84  08 78 25 3d 9e 0d 17 8e  |. . .....x%=....|
00003f10  1b 58 24 3d f6 24 2b 22  61 74 6c 69 6e 65 22 2b  |.X$=.$+"atline"+|
00003f20  c3 28 78 25 81 31 30 29  0d 17 98 10 de 45 72 72  |.(x%.10).....Err|
00003f30  6f 72 4d 73 67 25 33 36  0d 17 a2 45 45 72 72 6f  |orMsg%36...EErro|
00003f40  72 4d 73 67 25 21 30 3d  33 36 3a 45 72 72 6f 72  |rMsg%!0=36:Error|
00003f50  4d 73 67 25 21 31 32 3d  30 3a 45 72 72 6f 72 4d  |Msg%!12=0:ErrorM|
00003f60  73 67 25 21 31 36 3d 26  38 31 30 38 30 3a 45 72  |sg%!16=&81080:Er|
00003f70  72 6f 72 4d 73 67 25 21  32 30 3d 78 25 0d 17 ac  |rorMsg%!20=x%...|
00003f80  1f 24 28 45 72 72 6f 72  4d 73 67 25 2b 32 34 29  |.$(ErrorMsg%+24)|
00003f90  3d 22 21 52 75 6e 49 6d  61 67 65 22 0d 17 b6 25  |="!RunImage"...%|
00003fa0  c8 99 22 57 69 6d 70 5f  53 65 6e 64 4d 65 73 73  |.."Wimp_SendMess|
00003fb0  61 67 65 22 2c 31 37 2c  45 72 72 6f 72 4d 73 67  |age",17,ErrorMsg|
00003fc0  25 0d 17 c0 1f f2 57 69  6d 70 5f 57 69 6e 64 6f  |%.....Wimp_Windo|
00003fd0  77 41 6c 65 72 74 28 74  61 73 6b 24 2c 58 24 29  |wAlert(task$,X$)|
00003fe0  0d 17 ca 13 f2 57 69 6d  70 5f 43 6c 6f 73 65 44  |.....Wimp_CloseD|
00003ff0  6f 77 6e 0d 17 d4 05 e1  0d 17 de 05 3a 0d 17 e8  |own.........:...|
00004000  15 dd 20 f2 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |.. .Wimp_CloseDo|
00004010  77 6e 0d 17 f2 23 c8 99  22 57 69 6d 70 5f 43 6c  |wn...#.."Wimp_Cl|
00004020  6f 73 65 44 6f 77 6e 22  2c 74 61 73 6b 25 2c 22  |oseDown",task%,"|
00004030  54 41 53 4b 22 0d 17 fc  05 e1 0d 18 06 05 3a 0d  |TASK".........:.|
00004040  18 10 10 dd 20 f2 57 69  6d 70 5f 51 75 69 74 0d  |.... .Wimp_Quit.|
00004050  18 1a 0f 66 69 6e 69 73  68 65 64 25 3d b9 0d 18  |...finished%=...|
00004060  24 05 e1 0d 18 2e 05 3a  0d 18 38 23 dd 20 a4 57  |$......:..8#. .W|
00004070  69 6d 70 5f 52 65 61 64  56 61 72 69 61 62 6c 65  |imp_ReadVariable|
00004080  28 56 61 72 69 61 62 6c  65 24 29 0d 18 42 1b ea  |(Variable$)..B..|
00004090  6c 65 6e 25 2c 72 65 73  75 6c 74 25 2c 76 61 72  |len%,result%,var|
000040a0  69 61 62 6c 65 25 0d 18  4c 14 24 77 69 6d 70 25  |iable%..L.$wimp%|
000040b0  3d 56 61 72 69 61 62 6c  65 24 0d 18 56 33 c8 99  |=Variable$..V3..|
000040c0  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |"OS_ReadVarVal",|
000040d0  77 69 6d 70 25 2c 77 69  6d 70 25 2b 32 35 35 2c  |wimp%,wimp%+255,|
000040e0  32 35 35 2c 2c 33 b8 2c  2c 6c 65 6e 25 0d 18 60  |255,,3.,,len%..`|
000040f0  17 77 69 6d 70 25 3f 28  6c 65 6e 25 2b 32 35 35  |.wimp%?(len%+255|
00004100  29 3d 31 33 0d 18 6a 11  3d 24 28 77 69 6d 70 25  |)=13..j.=$(wimp%|
00004110  2b 32 35 35 29 0d 18 74  05 3a 0d 18 7e 05 3a 0d  |+255)..t.:..~.:.|
00004120  18 88 06 f4 7c 0d 18 92  06 f4 7c 0d 18 9c 06 f4  |....|.....|.....|
00004130  7c 0d 18 a6 06 f4 7c 0d  18 b0 29 f4 7c 20 20 20  ||.....|...).|   |
00004140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004150  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00004160  0d 18 ba 27 f4 7c 20 20  20 20 20 20 20 20 20 20  |...'.|          |
00004170  20 20 20 20 20 20 20 20  20 20 20 57 69 6d 70 20  |           Wimp |
00004180  50 6f 6c 6c 69 6e 67 0d  18 c4 29 f4 7c 20 20 20  |Polling...).|   |
00004190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000041a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
000041b0  0d 18 ce 06 f4 7c 0d 18  d8 06 f4 7c 0d 18 e2 05  |.....|.....|....|
000041c0  3a 0d 18 ec 18 dd 20 f2  57 69 6d 70 5f 57 61 69  |:..... .Wimp_Wai|
000041d0  74 46 6f 72 45 76 65 6e  74 0d 18 f6 12 ea 20 6d  |tForEvent..... m|
000041e0  61 73 6b 25 2c 65 76 65  6e 74 25 0d 19 00 0f 66  |ask%,event%....f|
000041f0  69 6e 69 73 68 65 64 25  3d a3 0d 19 0a 17 6d 61  |inished%=.....ma|
00004200  73 6b 25 3d 25 31 31 31  30 30 30 30 31 31 30 30  |sk%=%11100001100|
00004210  31 0d 19 14 05 f5 0d 19  1e 27 20 c8 99 22 57 69  |1........' .."Wi|
00004220  6d 70 5f 50 6f 6c 6c 22  2c 6d 61 73 6b 25 2c 77  |mp_Poll",mask%,w|
00004230  69 6d 70 25 20 b8 20 65  76 65 6e 74 25 0d 19 28  |imp% . event%..(|
00004240  10 20 c8 8e 20 65 76 65  6e 74 25 20 ca 0d 19 32  |. .. event% ...2|
00004250  0a 20 20 c9 30 20 3a 0d  19 3c 1f 20 20 c9 31 20  |.  .0 :..<.  .1 |
00004260  3a 20 f2 57 69 6d 70 5f  50 6f 6c 6c 44 72 61 77  |: .Wimp_PollDraw|
00004270  57 69 6e 64 6f 77 0d 19  46 26 20 20 c9 32 20 3a  |Window..F&  .2 :|
00004280  20 c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  | .. "Wimp_OpenWi|
00004290  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 0d 19 50 20  |ndow",,wimp%..P |
000042a0  20 20 c9 33 20 3a 20 f2  57 69 6d 70 5f 50 6f 6c  |  .3 : .Wimp_Pol|
000042b0  6c 43 6c 6f 73 65 57 69  6e 64 6f 77 0d 19 5a 0a  |lCloseWindow..Z.|
000042c0  20 20 c9 34 20 3a 0d 19  64 0a 20 20 c9 35 20 3a  |  .4 :..d.  .5 :|
000042d0  0d 19 6e 1f 20 20 c9 36  20 3a 20 f2 57 69 6d 70  |..n.  .6 : .Wimp|
000042e0  5f 50 6f 6c 6c 4d 6f 75  73 65 43 6c 69 63 6b 0d  |_PollMouseClick.|
000042f0  19 78 20 20 20 c9 37 20  3a 20 f2 57 69 6d 70 5f  |.x   .7 : .Wimp_|
00004300  50 6f 6c 6c 53 61 76 65  4d 65 73 73 61 67 65 0d  |PollSaveMessage.|
00004310  19 82 1d 20 20 c9 38 20  3a 20 f2 57 69 6d 70 5f  |...  .8 : .Wimp_|
00004320  50 6f 6c 6c 4b 65 79 50  72 65 73 73 0d 19 8c 23  |PollKeyPress...#|
00004330  20 20 c9 39 20 3a 20 f2  45 76 65 6e 74 5f 4d 65  |  .9 : .Event_Me|
00004340  6e 75 43 68 6f 69 63 65  28 6d 65 6e 75 25 29 0d  |nuChoice(menu%).|
00004350  19 96 0a 20 20 c9 31 30  3a 0d 19 a0 0a 20 20 c9  |...  .10:....  .|
00004360  31 31 3a 0d 19 aa 0a 20  20 c9 31 32 3a 0d 19 b4  |11:....  .12:...|
00004370  20 20 20 c9 31 37 2c 31  38 3a 20 f2 57 69 6d 70  |   .17,18: .Wimp|
00004380  5f 50 6f 6c 6c 4d 65 73  73 61 67 65 73 0d 19 be  |_PollMessages...|
00004390  0a 20 20 c9 31 39 3a 0d  19 c8 06 20 cb 0d 19 d2  |.  .19:.... ....|
000043a0  0f fd 20 66 69 6e 69 73  68 65 64 25 0d 19 dc 05  |.. finished%....|
000043b0  e1 0d 19 e6 05 3a 0d 19  f0 1a dd 20 f2 57 69 6d  |.....:..... .Wim|
000043c0  70 5f 50 6f 6c 6c 44 72  61 77 57 69 6e 64 6f 77  |p_PollDrawWindow|
000043d0  0d 19 fa 0b ea 20 6d 6f  72 65 25 0d 1a 04 26 c8  |..... more%...&.|
000043e0  99 22 57 69 6d 70 5f 52  65 64 72 61 77 57 69 6e  |."Wimp_RedrawWin|
000043f0  64 6f 77 22 2c 2c 77 69  6d 70 25 b8 6d 6f 72 65  |dow",,wimp%.more|
00004400  25 0d 1a 0e 13 77 69 6e  64 6f 77 25 3d 77 69 6d  |%....window%=wim|
00004410  70 25 21 30 0d 1a 18 41  78 5f 6f 72 69 67 69 6e  |p%!0...Ax_origin|
00004420  25 3d 31 36 2b 77 69 6d  70 25 21 34 2d 77 69 6d  |%=16+wimp%!4-wim|
00004430  70 25 21 32 30 3a 79 5f  6f 72 69 67 69 6e 25 3d  |p%!20:y_origin%=|
00004440  2d 31 36 2b 77 69 6d 70  25 21 31 36 2d 77 69 6d  |-16+wimp%!16-wim|
00004450  70 25 21 32 34 0d 1a 22  0b c8 95 6d 6f 72 65 25  |p%!24.."...more%|
00004460  0d 1a 2c 30 20 e7 20 69  6e 74 65 72 66 61 63 65  |..,0 . interface|
00004470  25 20 8c 20 c8 99 22 57  69 6d 70 5f 42 6f 72 64  |% . .."Wimp_Bord|
00004480  65 72 57 69 6e 64 6f 77  22 2c 2c 77 69 6d 70 25  |erWindow",,wimp%|
00004490  0d 1a 36 2d 20 f2 45 76  65 6e 74 5f 44 72 61 77  |..6- .Event_Draw|
000044a0  28 77 69 6e 64 6f 77 25  2c 78 5f 6f 72 69 67 69  |(window%,x_origi|
000044b0  6e 25 2c 79 5f 6f 72 69  67 69 6e 25 29 0d 1a 40  |n%,y_origin%)..@|
000044c0  27 20 c8 99 22 57 69 6d  70 5f 47 65 74 52 65 63  |' .."Wimp_GetRec|
000044d0  74 61 6e 67 6c 65 22 2c  2c 77 69 6d 70 25 b8 6d  |tangle",,wimp%.m|
000044e0  6f 72 65 25 0d 1a 4a 05  ce 0d 1a 54 05 e1 0d 1a  |ore%..J....T....|
000044f0  5e 05 3a 0d 1a 68 1b dd  20 f2 57 69 6d 70 5f 50  |^.:..h.. .Wimp_P|
00004500  6f 6c 6c 43 6c 6f 73 65  57 69 6e 64 6f 77 0d 1a  |ollCloseWindow..|
00004510  72 25 20 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |r%  .. "Wimp_Get|
00004520  50 6f 69 6e 74 65 72 49  6e 66 6f 22 2c 2c 77 69  |PointerInfo",,wi|
00004530  6d 70 25 0d 1a 7c 29 20  20 77 69 6e 64 6f 77 25  |mp%..|)  window%|
00004540  3d 77 69 6d 70 25 21 31  32 20 3a 20 62 75 74 74  |=wimp%!12 : butt|
00004550  6f 6e 73 25 3d 77 69 6d  70 25 21 38 0d 1a 86 29  |ons%=wimp%!8...)|
00004560  20 f2 45 76 65 6e 74 5f  57 69 6e 64 6f 77 43 6c  | .Event_WindowCl|
00004570  6f 73 65 28 77 69 6e 64  6f 77 25 2c 62 75 74 74  |ose(window%,butt|
00004580  6f 6e 73 25 29 0d 1a 90  32 20 21 77 69 6d 70 25  |ons%)...2 !wimp%|
00004590  3d 77 69 6e 64 6f 77 25  20 3a 20 c8 99 20 22 57  |=window% : .. "W|
000045a0  69 6d 70 5f 43 6c 6f 73  65 57 69 6e 64 6f 77 22  |imp_CloseWindow"|
000045b0  2c 2c 77 69 6d 70 25 0d  1a 9a 05 e1 0d 1a a4 05  |,,wimp%.........|
000045c0  3a 0d 1a ae 1a dd 20 f2  57 69 6d 70 5f 50 6f 6c  |:..... .Wimp_Pol|
000045d0  6c 4d 6f 75 73 65 43 6c  69 63 6b 0d 1a b8 4a 20  |lMouseClick...J |
000045e0  62 75 74 74 6f 6e 25 3d  77 69 6d 70 25 21 38 3a  |button%=wimp%!8:|
000045f0  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 31 32  |window%=wimp%!12|
00004600  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
00004610  78 25 3d 77 69 6d 70 25  21 30 3a 79 25 3d 77 69  |x%=wimp%!0:y%=wi|
00004620  6d 70 25 21 34 0d 1a c2  11 20 c8 8e 20 62 75 74  |mp%!4.... .. but|
00004630  74 6f 6e 25 20 ca 0d 1a  cc 22 20 20 20 c9 32 20  |ton% ...."   .2 |
00004640  20 20 20 3a 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |   : .Wimp_PollM|
00004650  65 6e 75 50 6f 70 55 70  0d 1a d6 23 20 20 20 7f  |enuPopUp...#   .|
00004660  3a 20 c8 8e 20 a4 45 76  65 6e 74 5f 53 61 76 65  |: .. .Event_Save|
00004670  28 77 69 6e 64 6f 77 25  29 20 ca 0d 1a e0 2c 20  |(window%) ...., |
00004680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 c9 20  |              . |
00004690  b9 20 3a 20 f2 57 69 6d  70 5f 50 6f 6c 6c 4d 6f  |. : .Wimp_PollMo|
000046a0  75 73 65 53 61 76 65 0d  1a ea 31 20 20 20 20 20  |useSave...1     |
000046b0  20 20 20 20 20 20 20 20  20 20 c9 20 a3 3a 20 f2  |          . .: .|
000046c0  57 69 6d 70 5f 50 6f 6c  6c 45 76 65 6e 74 4d 6f  |Wimp_PollEventMo|
000046d0  75 73 65 43 6c 69 63 6b  0d 1a f4 13 20 20 20 20  |useClick....    |
000046e0  20 20 20 20 20 20 20 20  20 20 cb 0d 1a fe 06 20  |          ..... |
000046f0  cb 0d 1b 08 05 e1 0d 1b  12 05 3a 0d 1b 1c 19 dd  |..........:.....|
00004700  20 f2 57 69 6d 70 5f 50  6f 6c 6c 4d 65 6e 75 50  | .Wimp_PollMenuP|
00004710  6f 70 55 70 0d 1b 26 1e  6d 65 6e 75 25 3d a4 45  |opUp..&.menu%=.E|
00004720  76 65 6e 74 5f 4d 65 6e  75 28 77 69 6e 64 6f 77  |vent_Menu(window|
00004730  25 29 0d 1b 30 11 20 20  c8 8e 20 6d 65 6e 75 25  |%)..0.  .. menu%|
00004740  20 20 ca 0d 1b 3a 0b 20  20 20 c9 20 a3 3a 0d 1b  |  ...:.   . .:..|
00004750  44 0a 20 20 20 7f 20 3a  0d 1b 4e 15 20 20 20 20  |D.   . :..N.    |
00004760  20 c8 8e 20 77 69 6e 64  6f 77 25 20 ca 0d 1b 58  | .. window% ...X|
00004770  17 20 20 20 20 20 20 c9  20 2d 32 20 20 20 3a 20  |.      . -2   : |
00004780  6e 25 3d 30 0d 1b 62 33  20 20 20 20 20 20 20 20  |n%=0..b3        |
00004790  c8 95 20 28 28 42 61 72  5f 4d 65 6e 75 25 21 28  |.. ((Bar_Menu%!(|
000047a0  32 38 2b 6e 25 2a 32 34  29 29 80 25 31 30 30 30  |28+n%*24)).%1000|
000047b0  30 30 30 30 29 3d 30 0d  1b 6c 12 20 20 20 20 20  |0000)=0..l.     |
000047c0  20 20 20 20 6e 25 2b 3d  31 0d 1b 76 0d 20 20 20  |    n%+=1..v.   |
000047d0  20 20 20 20 20 ce 0d 1b  80 3a 20 20 20 20 20 20  |     ....:      |
000047e0  20 20 c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |  .. "Wimp_Creat|
000047f0  65 4d 65 6e 75 22 2c 2c  42 61 72 5f 4d 65 6e 75  |eMenu",,Bar_Menu|
00004800  25 2c 78 25 2d 36 34 2c  39 36 2b 6e 25 2a 34 34  |%,x%-64,96+n%*44|
00004810  0d 1b 8a 34 20 20 20 20  20 20 7f 20 3a 20 c8 99  |...4      . : ..|
00004820  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00004830  22 2c 2c 6d 65 6e 75 25  2c 78 25 2d 36 34 2c 79  |",,menu%,x%-64,y|
00004840  25 2b 32 30 0d 1b 94 0a  20 20 20 20 20 cb 0d 1b  |%+20....     ...|
00004850  9e 07 20 20 cb 0d 1b a8  05 e1 0d 1b b2 05 3a 0d  |..  ..........:.|
00004860  1b bc 19 dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 4d  |.... .Wimp_PollM|
00004870  6f 75 73 65 53 61 76 65  0d 1b c6 0f 20 c8 8e 20  |ouseSave.... .. |
00004880  69 63 6f 6e 25 20 ca 0d  1b d0 38 20 20 c9 20 30  |icon% ....8  . 0|
00004890  20 3a 20 e7 20 62 75 74  74 6f 6e 25 20 80 20 26  | : . button% . &|
000048a0  35 30 20 8c 20 f2 57 69  6d 70 5f 50 6f 6c 6c 44  |50 . .Wimp_PollD|
000048b0  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
000048c0  1b da 38 20 20 c9 20 32  20 3a 20 e7 20 62 75 74  |..8  . 2 : . but|
000048d0  74 6f 6e 25 20 80 20 35  20 8c 20 20 f2 57 69 6d  |ton% . 5 .  .Wim|
000048e0  70 5f 50 6f 6c 6c 53 61  76 65 46 69 6c 65 28 77  |p_PollSaveFile(w|
000048f0  69 6e 64 6f 77 25 29 0d  1b e4 06 20 cb 0d 1b ee  |indow%).... ....|
00004900  05 e1 0d 1b f8 05 3a 0d  1c 02 1f dd 20 f2 57 69  |......:..... .Wi|
00004910  6d 70 5f 50 6f 6c 6c 45  76 65 6e 74 4d 6f 75 73  |mp_PollEventMous|
00004920  65 43 6c 69 63 6b 0d 1c  0c 2e 20 e7 20 69 6e 74  |eClick.... . int|
00004930  65 72 66 61 63 65 25 20  8c 20 c8 99 22 57 69 6d  |erface% . .."Wim|
00004940  70 5f 42 6f 72 64 65 72  49 63 6f 6e 22 2c 2c 77  |p_BorderIcon",,w|
00004950  69 6d 70 25 0d 1c 16 33  20 f2 45 76 65 6e 74 5f  |imp%...3 .Event_|
00004960  4d 6f 75 73 65 43 6c 69  63 6b 28 77 69 6e 64 6f  |MouseClick(windo|
00004970  77 25 2c 69 63 6f 6e 25  2c 62 75 74 74 6f 6e 25  |w%,icon%,button%|
00004980  2c 78 25 2c 79 25 29 0d  1c 20 15 20 c8 8e 20 20  |,x%,y%).. . ..  |
00004990  69 6e 74 65 72 66 61 63  65 25 20 ca 0d 1c 2a 0b  |interface% ...*.|
000049a0  20 20 c9 20 b9 20 3a 0d  1c 34 28 20 20 20 77 69  |  . . :..4(   wi|
000049b0  6d 70 25 21 30 3d 78 25  3a 77 69 6d 70 25 21 34  |mp%!0=x%:wimp%!4|
000049c0  3d 79 25 20 3a 20 77 69  6d 70 25 21 38 3d 30 0d  |=y% : wimp%!8=0.|
000049d0  1c 3e 28 20 20 20 77 69  6d 70 25 21 31 32 3d 77  |.>(   wimp%!12=w|
000049e0  69 6e 64 6f 77 25 20 3a  20 77 69 6d 70 25 21 31  |indow% : wimp%!1|
000049f0  36 3d 69 63 6f 6e 25 0d  1c 48 21 20 20 20 c8 99  |6=icon%..H!   ..|
00004a00  22 57 69 6d 70 5f 42 6f  72 64 65 72 49 63 6f 6e  |"Wimp_BorderIcon|
00004a10  22 2c 2c 77 69 6d 70 25  0d 1c 52 06 20 cb 0d 1c  |",,wimp%..R. ...|
00004a20  5c 05 e1 0d 1c 66 05 3a  0d 1c 70 21 dd 20 f2 57  |\....f.:..p!. .W|
00004a30  69 6d 70 5f 50 6f 6c 6c  53 61 76 65 46 69 6c 65  |imp_PollSaveFile|
00004a40  28 77 69 6e 64 6f 77 25  29 0d 1c 7a 0a ea 66 69  |(window%)..z..fi|
00004a50  6c 65 24 0d 1c 84 40 20  77 69 6d 70 25 21 30 3d  |le$...@ wimp%!0=|
00004a60  77 69 6e 64 6f 77 25 20  3a 20 77 69 6d 70 25 21  |window% : wimp%!|
00004a70  34 3d 31 20 3a 20 c8 99  20 22 57 69 6d 70 5f 47  |4=1 : .. "Wimp_G|
00004a80  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00004a90  6d 70 25 0d 1c 8e 16 20  66 69 6c 65 24 3d 24 28  |mp%.... file$=$(|
00004aa0  77 69 6d 70 25 21 32 38  29 0d 1c 98 15 20 c8 8e  |wimp%!28).... ..|
00004ab0  20 a7 66 69 6c 65 24 2c  22 2e 22 29 20 ca 0d 1c  | .file$,".") ...|
00004ac0  a2 0d 20 20 c9 20 30 20  20 20 3a 0d 1c ac 40 20  |..  . 0   :...@ |
00004ad0  20 20 24 28 77 69 6d 70  25 2b 34 29 3d 22 54 6f  |  $(wimp%+4)="To|
00004ae0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
00004af0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00004b00  6f 72 79 20 77 69 6e 64  6f 77 22 0d 1c b6 2b 20  |ory window"...+ |
00004b10  20 20 c8 99 20 22 57 69  6d 70 5f 52 65 70 6f 72  |  .. "Wimp_Repor|
00004b20  74 45 72 72 6f 72 22 2c  77 69 6d 70 25 2c 31 36  |tError",wimp%,16|
00004b30  2c 74 61 73 6b 24 0d 1c  c0 08 20 20 7f 3a 0d 1c  |,task$....  .:..|
00004b40  ca 25 20 20 20 f2 45 76  65 6e 74 5f 53 61 76 65  |.%   .Event_Save|
00004b50  46 69 6c 65 28 66 69 6c  65 24 2c 77 69 6e 64 6f  |File(file$,windo|
00004b60  77 25 29 0d 1c d4 06 20  cb 0d 1c de 1b 20 c8 99  |w%).... ..... ..|
00004b70  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00004b80  22 2c 2d 31 0d 1c e8 05  e1 0d 1c f2 05 3a 0d 1c  |",-1.........:..|
00004b90  fc 20 dd 20 f2 57 69 6d  70 5f 50 6f 6c 6c 44 72  |. . .Wimp_PollDr|
00004ba0  61 67 42 6f 78 28 77 69  6e 64 6f 77 25 29 0d 1d  |agBox(window%)..|
00004bb0  06 0a ea 78 25 2c 79 25  0d 1d 10 12 20 73 61 76  |...x%,y%.... sav|
00004bc0  65 25 3d 77 69 6e 64 6f  77 25 0d 1d 1a 13 20 21  |e%=window%.... !|
00004bd0  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 0d 1d 24  |wimp%=window%..$|
00004be0  23 20 c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |# .."Wimp_GetWin|
00004bf0  64 6f 77 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |dowState",,wimp%|
00004c00  0d 1d 2e 2d 20 78 25 3d  77 69 6d 70 25 21 34 2d  |...- x%=wimp%!4-|
00004c10  77 69 6d 70 25 21 32 30  3a 79 25 3d 77 69 6d 70  |wimp%!20:y%=wimp|
00004c20  25 21 31 36 2d 77 69 6d  70 25 21 32 34 0d 1d 38  |%!16-wimp%!24..8|
00004c30  0e 20 77 69 6d 70 25 21  34 3d 30 0d 1d 42 21 20  |. wimp%!4=0..B! |
00004c40  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00004c50  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 1d 4c 13  |tate",,wimp%..L.|
00004c60  20 21 77 69 6d 70 25 3d  77 69 6e 64 6f 77 25 0d  | !wimp%=window%.|
00004c70  1d 56 0e 20 77 69 6d 70  25 21 34 3d 35 0d 1d 60  |.V. wimp%!4=5..`|
00004c80  2c 20 77 69 6d 70 25 21  38 3d 78 25 2b 77 69 6d  |, wimp%!8=x%+wim|
00004c90  70 25 21 38 3a 77 69 6d  70 25 21 31 32 3d 79 25  |p%!8:wimp%!12=y%|
00004ca0  2b 77 69 6d 70 25 21 31  32 0d 1d 6a 2e 20 77 69  |+wimp%!12..j. wi|
00004cb0  6d 70 25 21 31 36 3d 78  25 2b 77 69 6d 70 25 21  |mp%!16=x%+wimp%!|
00004cc0  31 36 3a 77 69 6d 70 25  21 32 30 3d 79 25 2b 77  |16:wimp%!20=y%+w|
00004cd0  69 6d 70 25 21 32 30 0d  1d 74 1a 20 77 69 6d 70  |imp%!20..t. wimp|
00004ce0  25 21 32 34 3d 30 3a 77  69 6d 70 25 21 32 38 3d  |%!24=0:wimp%!28=|
00004cf0  30 0d 1d 7e 2a 20 77 69  6d 70 25 21 33 32 3d 26  |0..~* wimp%!32=&|
00004d00  37 46 46 46 46 46 46 46  3a 77 69 6d 70 25 21 33  |7FFFFFFF:wimp%!3|
00004d10  36 3d 26 37 46 46 46 46  46 46 46 0d 1d 88 1c 20  |6=&7FFFFFFF.... |
00004d20  c8 99 22 57 69 6d 70 5f  44 72 61 67 42 6f 78 22  |.."Wimp_DragBox"|
00004d30  2c 2c 77 69 6d 70 25 0d  1d 92 05 e1 0d 1d 9c 05  |,,wimp%.........|
00004d40  3a 0d 1d a6 18 dd 20 f2  57 69 6d 70 5f 50 6f 6c  |:..... .Wimp_Pol|
00004d50  6c 4b 65 79 50 72 65 73  73 0d 1d b0 31 20 20 77  |lKeyPress...1  w|
00004d60  69 6e 64 6f 77 25 3d 77  69 6d 70 25 21 30 3a 69  |indow%=wimp%!0:i|
00004d70  63 6f 6e 25 3d 77 69 6d  70 25 21 34 3a 6b 65 79  |con%=wimp%!4:key|
00004d80  25 3d 77 69 6d 70 25 21  32 34 0d 1d ba 1f 20 20  |%=wimp%!24....  |
00004d90  c8 8e 20 a4 45 76 65 6e  74 5f 53 61 76 65 28 77  |.. .Event_Save(w|
00004da0  69 6e 64 6f 77 25 29 20  ca 0d 1d c4 0c 20 20 20  |indow%) .....   |
00004db0  c9 20 b9 20 3a 0d 1d ce  10 20 20 20 c8 8e 20 6b  |. . :....   .. k|
00004dc0  65 79 25 20 ca 0d 1d d8  2b 20 20 20 20 c9 20 26  |ey% ....+    . &|
00004dd0  30 31 42 20 3a 20 f2 57  69 6d 70 5f 57 69 6e 64  |01B : .Wimp_Wind|
00004de0  6f 77 43 6c 6f 73 65 28  77 69 6e 64 6f 77 25 29  |owClose(window%)|
00004df0  0d 1d e2 27 20 20 20 20  7f 20 3a 20 f2 57 69 6d  |...'    . : .Wim|
00004e00  70 5f 50 6f 6c 6c 53 61  76 65 46 69 6c 65 28 77  |p_PollSaveFile(w|
00004e10  69 6e 64 6f 77 25 29 0d  1d ec 08 20 20 20 cb 0d  |indow%)....   ..|
00004e20  1d f6 2f 20 20 20 c9 20  a3 3a 20 f2 45 76 65 6e  |../   . .: .Even|
00004e30  74 5f 4b 65 79 50 72 65  73 73 28 77 69 6e 64 6f  |t_KeyPress(windo|
00004e40  77 25 2c 69 63 6f 6e 25  2c 6b 65 79 25 29 0d 1e  |w%,icon%,key%)..|
00004e50  00 07 20 20 cb 0d 1e 0a  05 e1 0d 1e 14 05 3a 0d  |..  ..........:.|
00004e60  1e 1e 1b dd 20 f2 57 69  6d 70 5f 50 6f 6c 6c 53  |.... .Wimp_PollS|
00004e70  61 76 65 4d 65 73 73 61  67 65 0d 1e 28 1e ea 66  |aveMessage..(..f|
00004e80  69 6c 65 24 2c 77 69 6e  64 6f 77 25 2c 69 63 6f  |ile$,window%,ico|
00004e90  6e 25 2c 78 25 2c 79 25  0d 1e 32 23 20 c8 99 22  |n%,x%,y%..2# .."|
00004ea0  57 69 6d 70 5f 47 65 74  50 6f 69 6e 74 65 72 49  |Wimp_GetPointerI|
00004eb0  6e 66 6f 22 2c 2c 77 69  6d 70 25 0d 1e 3c 3a 20  |nfo",,wimp%..<: |
00004ec0  77 69 6e 64 6f 77 25 3d  77 69 6d 70 25 21 31 32  |window%=wimp%!12|
00004ed0  3a 69 63 6f 6e 25 3d 77  69 6d 70 25 21 31 36 3a  |:icon%=wimp%!16:|
00004ee0  78 25 3d 77 69 6d 70 25  21 30 3a 79 25 3d 77 69  |x%=wimp%!0:y%=wi|
00004ef0  6d 70 25 21 34 0d 1e 46  3e 20 77 69 6d 70 25 21  |mp%!4..F> wimp%!|
00004f00  30 3d 73 61 76 65 25 20  3a 20 77 69 6d 70 25 21  |0=save% : wimp%!|
00004f10  34 3d 31 20 3a 20 c8 99  20 22 57 69 6d 70 5f 47  |4=1 : .. "Wimp_G|
00004f20  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 77 69  |etIconState",,wi|
00004f30  6d 70 25 0d 1e 50 16 20  66 69 6c 65 24 3d 24 28  |mp%..P. file$=$(|
00004f40  77 69 6d 70 25 21 32 38  29 0d 1e 5a 2b 20 66 69  |wimp%!28)..Z+ fi|
00004f50  6c 65 24 3d a4 57 69 6d  70 5f 47 65 74 46 69 6c  |le$=.Wimp_GetFil|
00004f60  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 66 69  |eFromPathname(fi|
00004f70  6c 65 24 29 0d 1e 64 15  20 77 69 6d 70 25 21 32  |le$)..d. wimp%!2|
00004f80  30 3d 77 69 6e 64 6f 77  25 0d 1e 6e 13 20 77 69  |0=window%..n. wi|
00004f90  6d 70 25 21 32 34 3d 69  63 6f 6e 25 0d 1e 78 1c  |mp%!24=icon%..x.|
00004fa0  20 77 69 6d 70 25 21 32  38 3d 78 25 3a 77 69 6d  | wimp%!28=x%:wim|
00004fb0  70 25 21 33 32 3d 79 25  0d 1e 82 15 20 77 69 6d  |p%!32=y%.... wim|
00004fc0  70 25 21 33 36 3d 6c 65  6e 67 74 68 25 0d 1e 8c  |p%!36=length%...|
00004fd0  0f 20 77 69 6d 70 25 21  30 3d 36 34 0d 1e 96 0f  |. wimp%!0=64....|
00004fe0  20 77 69 6d 70 25 21 31  32 3d 30 0d 1e a0 0f 20  | wimp%!12=0.... |
00004ff0  77 69 6d 70 25 21 31 36  3d 31 0d 1e aa 12 20 77  |wimp%!16=1.... w|
00005000  69 6d 70 25 21 34 30 3d  26 46 46 46 0d 1e b4 16  |imp%!40=&FFF....|
00005010  20 24 28 77 69 6d 70 25  2b 34 34 29 3d 66 69 6c  | $(wimp%+44)=fil|
00005020  65 24 0d 1e be 34 20 c8  99 22 57 69 6d 70 5f 53  |e$...4 .."Wimp_S|
00005030  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 37 2c 77  |endMessage",17,w|
00005040  69 6d 70 25 2c 77 69 6d  70 25 21 32 30 2c 77 69  |imp%,wimp%!20,wi|
00005050  6d 70 25 21 32 34 0d 1e  c8 05 e1 0d 1e d2 05 3a  |mp%!24.........:|
00005060  0d 1e dc 18 dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..... .Wimp_Poll|
00005070  4d 65 73 73 61 67 65 73  0d 1e e6 0b ea 20 66 69  |Messages..... fi|
00005080  6c 65 24 0d 1e f0 2c 66  69 6c 65 24 3d a4 57 69  |le$...,file$=.Wi|
00005090  6d 70 5f 47 65 74 53 74  72 69 6e 67 41 74 41 64  |mp_GetStringAtAd|
000050a0  64 72 65 73 73 28 77 69  6d 70 25 2b 34 34 29 0d  |dress(wimp%+44).|
000050b0  1e fa 15 20 20 20 20 c8  8e 20 77 69 6d 70 25 21  |...    .. wimp%!|
000050c0  31 36 20 ca 0d 1f 04 1a  20 20 20 20 20 c9 20 30  |16 .....     . 0|
000050d0  20 3a 20 66 69 6e 69 73  68 65 64 25 3d b9 0d 1f  | : finished%=...|
000050e0  0e 0e 20 20 20 20 20 c9  20 31 20 3a 0d 1f 18 0e  |..     . 1 :....|
000050f0  20 20 20 20 20 c9 20 32  20 3a 0d 1f 22 2f 20 20  |     . 2 :.."/  |
00005100  20 20 20 20 f4 20 50 52  4f 43 57 69 6d 70 5f 49  |    . PROCWimp_I|
00005110  63 6f 6e 50 75 74 54 65  78 74 28 73 61 76 65 25  |conPutText(save%|
00005120  2c 31 2c 66 69 6c 65 24  29 0d 1f 2c 43 20 20 20  |,1,file$)..,C   |
00005130  20 20 20 77 69 6d 70 25  21 30 3d 73 61 76 65 25  |   wimp%!0=save%|
00005140  20 3a 20 77 69 6d 70 25  21 34 3d 31 20 3a 20 c8  | : wimp%!4=1 : .|
00005150  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
00005160  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 1f 36 1b  |tate",,wimp%..6.|
00005170  20 20 20 20 20 20 24 28  77 69 6d 70 25 21 32 38  |      $(wimp%!28|
00005180  29 3d 66 69 6c 65 24 0d  1f 40 3c 20 20 20 20 20  |)=file$..@<     |
00005190  20 77 69 6d 70 25 21 30  3d 73 61 76 65 25 20 3a  | wimp%!0=save% :|
000051a0  20 77 69 6d 70 25 21 34  3d 31 20 3a 20 77 69 6d  | wimp%!4=1 : wim|
000051b0  70 25 21 38 3d 30 20 3a  20 77 69 6d 70 25 21 31  |p%!8=0 : wimp%!1|
000051c0  32 3d 30 0d 1f 4a 27 20  20 20 20 20 20 c8 99 20  |2=0..J'      .. |
000051d0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000051e0  74 65 22 2c 2c 77 69 6d  70 25 0d 1f 54 30 20 20  |te",,wimp%..T0  |
000051f0  20 20 20 20 f4 20 50 52  4f 43 57 69 6d 70 5f 49  |    . PROCWimp_I|
00005200  63 6f 6e 43 61 72 65 74  28 73 61 76 65 25 2c 31  |conCaret(save%,1|
00005210  2c 4c 45 4e 66 69 6c 65  24 29 0d 1f 5e 38 20 20  |,LENfile$)..^8  |
00005220  20 20 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |    .. "Wimp_Set|
00005230  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 73  |CaretPosition",s|
00005240  61 76 65 25 2c 31 2c 2c  2c 2d 31 2c a9 66 69 6c  |ave%,1,,,-1,.fil|
00005250  65 24 0d 1f 68 26 20 20  20 20 20 20 f2 45 76 65  |e$..h&      .Eve|
00005260  6e 74 5f 53 61 76 65 46  69 6c 65 28 66 69 6c 65  |nt_SaveFile(file|
00005270  24 2c 73 61 76 65 25 29  0d 1f 72 0c 20 20 20 20  |$,save%)..r.    |
00005280  20 c9 20 33 0d 1f 7c 47  20 20 20 20 20 20 74 79  | . 3..|G      ty|
00005290  70 65 24 3d a4 57 69 6d  70 5f 46 69 6c 65 54 79  |pe$=.Wimp_FileTy|
000052a0  70 65 28 77 69 6d 70 25  21 34 30 29 20 3a 20 f2  |pe(wimp%!40) : .|
000052b0  45 76 65 6e 74 5f 4c 6f  61 64 46 69 6c 65 28 66  |Event_LoadFile(f|
000052c0  69 6c 65 24 2c 74 79 70  65 24 29 0d 1f 86 09 20  |ile$,type$).... |
000052d0  20 20 20 cb 0d 1f 90 05  e1 0d 1f 9a 05 3a 0d 1f  |   ..........:..|
000052e0  a4 26 dd 20 a4 57 69 6d  70 5f 47 65 74 53 74 72  |.&. .Wimp_GetStr|
000052f0  69 6e 67 41 74 41 64 64  72 65 73 73 28 61 72 72  |ingAtAddress(arr|
00005300  61 79 25 29 0d 1f ae 0d  ea 73 24 3a 73 24 3d 22  |ay%).....s$:s$="|
00005310  22 0d 1f b8 3c c8 95 28  3f 61 72 72 61 79 25 3c  |"...<..(?array%<|
00005320  3e 31 33 29 80 28 3f 61  72 72 61 79 25 3c 3e 30  |>13).(?array%<>0|
00005330  29 3a 73 24 2b 3d bd 28  3f 61 72 72 61 79 25 29  |):s$+=.(?array%)|
00005340  3a 61 72 72 61 79 25 2b  3d 31 3a ce 3a 0d 1f c2  |:array%+=1:.:...|
00005350  07 3d 73 24 0d 1f cc 05  3a 0d 1f d6 23 dd 20 a4  |.=s$....:...#. .|
00005360  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00005370  50 61 74 68 6e 61 6d 65  28 66 24 29 0d 1f e0 11  |Pathname(f$)....|
00005380  c8 8e 20 a7 66 24 2c 22  2e 22 29 20 ca 0d 1f ea  |.. .f$,".") ....|
00005390  10 20 c9 20 30 20 20 20  20 3a 3d 66 24 0d 1f f4  |. . 0    :=f$...|
000053a0  37 20 7f 20 3a 3d a4 57  69 6d 70 5f 47 65 74 46  |7 . :=.Wimp_GetF|
000053b0  69 6c 65 46 72 6f 6d 50  61 74 68 6e 61 6d 65 28  |ileFromPathname(|
000053c0  c2 66 24 2c a9 28 66 24  29 2d a7 66 24 2c 22 2e  |.f$,.(f$)-.f$,".|
000053d0  22 29 29 29 0d 1f fe 05  cb 0d 20 08 05 3a 0d 20  |")))...... ..:. |
000053e0  12 1b dd 20 a4 57 69 6d  70 5f 46 69 6c 65 54 79  |... .Wimp_FileTy|
000053f0  70 65 28 74 79 70 65 25  29 0d 20 1c 0c c8 8e 74  |pe(type%). ....t|
00005400  79 70 65 25 ca 0d 20 26  11 c9 26 46 46 46 3a 3d  |ype%.. &..&FFF:=|
00005410  22 54 65 78 74 22 0d 20  30 11 c9 26 46 46 44 3a  |"Text". 0..&FFD:|
00005420  3d 22 44 61 74 61 22 0d  20 3a 12 c9 26 46 46 42  |="Data". :..&FFB|
00005430  3a 3d 22 42 61 73 69 63  22 0d 20 44 13 c9 26 46  |:="Basic". D..&F|
00005440  46 39 3a 3d 22 53 70 72  69 74 65 22 0d 20 4e 14  |F9:="Sprite". N.|
00005450  c9 26 46 45 44 3a 3d 22  50 61 6c 65 74 74 65 22  |.&FED:="Palette"|
00005460  0d 20 58 15 c9 26 46 45  43 3a 3d 22 54 65 6d 70  |. X..&FEC:="Temp|
00005470  6c 61 74 65 22 0d 20 62  11 c9 26 41 46 46 3a 3d  |late". b..&AFF:=|
00005480  22 44 72 61 77 22 0d 20  6c 14 c9 26 31 30 30 30  |"Draw". l..&1000|
00005490  3a 3d 22 46 6f 6c 64 65  72 22 0d 20 76 19 c9 26  |:="Folder". v..&|
000054a0  32 30 30 30 3a 3d 22 41  70 70 6c 69 63 61 74 69  |2000:="Applicati|
000054b0  6f 6e 22 0d 20 80 0f 7f  3d c3 7e 28 74 79 70 65  |on". ...=.~(type|
000054c0  25 29 0d 20 8a 05 cb 0d  20 94 05 3a 0d 20 9e 04  |%). .... ..:. ..|
000054d0  0d ff                                             |..|
000054d2