%�Wimp_Start("PipeTool",1523,1147)
�User_SetInitialData
�Create_Windows
(�Create_Menus
2�Wimp_WaitForEvent
<�Wimp_CloseDown
F�
P:
Z� �User_SetInitialData
dA$="":L=0:C=0:butbar%=-1
nbutton_up%=�
xcheckmouse%=�
�� block% 32
�
button%=0
��
�:
�� �Create_Windows
��Wimp_SpritesLoad
�)Main_Window%=�Wimp_WindowLoad("Main")
�)Info_Window%=�Wimp_WindowLoad("Info")
�-� PROCWimp_WindowBringToTop(Main_Window%)
��install_icon
�Bar_Icon%=iconbar%
��
�:

� �Event_Save(window%)=�

:

&� �Event_Sprites(window%)=sprites%

":

,� �Create_Menus

6+menu$="PipeTool\Info>Info_Window%\Quit"

@%Bar_Menu%=�Wimp_MenuCreate(menu$)

J�

T:

^� �Event_Menu(window%)

hȎ window% �

r&  � Bar_Window%        :=Bar_Menu%

|                 :=�

��

�:

�*� �Event_WindowClose(window%,buttons%)

�Ȏ window% �

�$   � Main_Window% : �Pipe_Toggle

��

��

�:

�.� �Event_Draw(window%,x_origin%,y_origin%)

�Ȏ window% �

�1  � Main_Window%        :�User_DrawMainWindow

�1  � Info_Window%        :�User_DrawInfoWindow

��
�
:
� �User_DrawMainWindow
&�
0:
:� �User_DrawInfoWindow
D�
N:
X4� �Event_MouseClick(window%,icon%,button%,x%,y%)
bȎ window% �
l*  � Bar_Window%        :�User_MouseBar
v;  � Main_Window%       :�User_MouseMain( button%,icon%)
�;  � Info_Window%       :�User_MouseInfo( button%,icon%)
��
��
�:
�� �User_MouseBar
��Pipe_Toggle
��
�:
�%� �User_MouseMain( button%,icon%)
�� code%
�� button% <5 �
�  code%=-1
�%  � button%=1 � icon%=0 �code%=24
$  � button%=4 � icon%=0 �code%=3
A$="":L=0:C=0
  Ȏ icon% �
     � 0 :A$="PB"
*    � 1 :A$="PI"
4    � 2 :A$="PU"
>    � 3 :A$="PFG"
H    � 4 :A$="FS"
R    � 5 :A$="BD"
\    � 6 :A$="I"
f    � 7 :A$="BC"
p    � 8 :A$="BDI"
z    � 9:A$="PO"
�    � 10:A$="SC"
�    � 11:A$="LAR"
�    � 12:A$="LAC"
�    � 13:A$="LAL"
�  �
�	L=�A$
��
��
�:
�� �Null_Event
�� C<>L �
�C$=(�A$,C+1,1))
�      code%=�(C$)-64
ș"Wimp_ProcessKey",code%
C+=1
�
$�
.:
8%� �User_MouseInfo( button%,icon%)
B�
L:
V)� �Event_KeyPress(window%,icon%,key%)
`Ȏ window% �
j�
t�
~:
�� �Event_MenuChoice(menu%)
�Ȏ menu% �
�/  � Bar_Menu%          :�User_MenuChoiceBar
��
��
�:
�� �User_MenuChoiceBar
�Ȏ �Wimp_MenuChoice(0) �
�  � 1 :
�  � 2 :finished%=�
��
��


(� �Wimp_WindowAlert(title$,message$)
+�Wimp_WindowAlertBox(title$,message$,0)
�
(:
23� �Wimp_WindowAlertBox(title$,message$,button%)
<� response%
F$(wimp%+4)=message$
PȎ button% �
Z  � 2    :response%=1
d  � 1    :response%=15
n!  � 3    :response%=(1<<5)+16
x!  � 4    :response%=(1<<6)+16
�   :response%=16
��
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
��
�:
�)� �Wimp_WindowCancel(title$,message$)
�$(wimp%+4)=message$
�response%=23
�=ș "Wimp_ReportError",wimp%,response%,title$ � ,response%
�=response%-2
�:
�+� �Wimp_WindowErrorBox(title$,message$)
�+�Wimp_WindowAlertBox(title$,message$,2)
�
:
 � �Wimp_WindowTitle(window%)
"wimp%!0=window%
, ș "Wimp_GetWindInfo",,wimp%
66� ((wimp%!60)�&100)=0 � 1,"Title isn't indirected"
@=$(wimp%!76)
J:
T� �Wimp_WindowLoad(window$)
^9=�Wimp_WindowLoadFrom(window$,"<Obey$Dir>.Templates")
h:
r-� �Wimp_WindowLoadFrom(window$,template$)
|� c%,i%,n%,j%,sp$,sp2$
�%ș "Wimp_OpenTemplate",,template$
�Mș "Wimp_LoadTemplate",,wimp%,icons%,icon_memory%,-1,window$,0 � ,,icons%
�Ȏ sprites% �
�  � 1    :wimp%!64=sprites%
�)   :wimp%!64=�Event_Sprites(window%)
��
�&ș "Wimp_CreateWindow",,wimp% � c%
�ș "Wimp_CloseTemplate"
�7ș "Wimp_WhichIcon",c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ wimp%!40 �
�  � -1   :
�   :i%=40
�  �
$    wimp%!4=wimp%!i% :wimp%!0=c%
%    ș "Wimp_GetIconState",,wimp%
.    sp$=�Wimp_GetStringAtAddress(wimp%!28)
&#    ș "Wimp_DeleteIcon",,wimp%
0    Ȏ sprites% �
:      � 1    :wimp%!32=1
D
       :
N0      ș "OS_SpriteOp",&108,sprites% � ,,,n%
X      j%=0
b      � :j%+=1
l?        ș "OS_SpriteOp",&10D,sprites%,pointer_block%,20,j%
v9        sp2$=�Wimp_GetStringAtAddress(pointer_block%)
�      � j%=n% � sp$=sp2$
�3      � sp$=sp2$ �wimp%!32=sprites% �wimp%!32=1
�	    �
�    wimp%!4=c%
�/    ș "Wimp_CreateIcon",,wimp%+4 � handle%
�
    i%+=4
�  � (wimp%!i%)=-1
��
�=c%
�:
�%� �Wimp_WindowBringToTop(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
wimp%!28=-1
ș "Wimp_OpenWindow",,wimp%
�
 :
* � �Wimp_WindowClose(window%)
4!wimp%=window%
> ș "Wimp_CloseWindow",,wimp%
H�
R:
\$� �Wimp_WindowForceDraw(window%)
fȎ window% �
p8  � -1   :ș "Wimp_ForceRedraw",-1,0,0,2*1280,2*1024
z9   :ș "Wimp_ForceRedraw",window%,0,-2*1024,2*1280,0
��
��
�:
�� �Wimp_WindowOpen(window%)
�!wimp%=window%
�#ș "Wimp_GetWindowState",,wimp%
�ș "Wimp_OpenWindow",,wimp%
��
�:
�� �Wimp_IconBar(Sprite$)
�� icon%
�wimp%!0=-1
�wimp%!4=0     :wimp%!8=0
	wimp%!12=68 :wimp%!16=68
	wimp%!20=&3002
	$(wimp%+24)=Sprite$
	$iconstring%=wimp%+24
	.'ș "Wimp_CreateIcon",,wimp% � icon%
	8
=icon%
	B:
	L+� �Wimp_IconCaret(window%,icon%,chars%)
	V8ș "Wimp_SetCaretPosition",window%,icon%,,,-1,chars%
	`�
	j:
	t#� �Wimp_IconText(window%,icon%)
	~"wimp%!0=window% :wimp%!4=icon%
	�!ș "Wimp_GetIconState",,wimp%
	�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
	�=$(wimp%!28)
	�:
	�)� �Wimp_IconValidation(window%,icon%)
	�"wimp%!0=window% :wimp%!4=icon%
	�!ș "Wimp_GetIconState",,wimp%
	�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
	�=$(wimp%!32)
	�:
	�&� �Wimp_IconDisable(window%,icon%)
	�"wimp%!0=window% :wimp%!4=icon%
#wimp%!8=1<<22   :wimp%!12=1<<22

!ș "Wimp_SetIconState",,wimp%
�
:
(%� �Wimp_IconEnable(window%,icon%)
2"wimp%!0=window% :wimp%!4=icon%
<#wimp%!8=0       :wimp%!12=1<<22
F!ș "Wimp_SetIconState",,wimp%
P�
Z:
d0� �Wimp_IconPutSprite(window%,icon%,sprite$)
n!wimp%!0=window%:wimp%!4=icon%
x!ș "Wimp_GetIconState",,wimp%
�ș "Wimp_DeleteIcon",,wimp%
�;wimp%!4=wimp%!8   :wimp%!8=wimp%!12  :wimp%!12=wimp%!16
�=wimp%!16=wimp%!20 :wimp%!20=wimp%!24 :$(wimp%+24)=sprite$
�'ș "Wimp_CreateIcon",,wimp% � icon%
�
=icon%
�:
�,� �Wimp_IconPutText(window%,icon%,text$)
�"wimp%!0=window% :wimp%!4=icon%
�!ș "Wimp_GetIconState",,wimp%
�7� ((wimp%!24) � &100)=0 � 1,"Icon isn't indirected"
�$(wimp%!28)=text$
�"wimp%!0=window% :wimp%!4=icon%
�wimp%!8=0 :wimp%!12=0
!ș "Wimp_SetIconState",,wimp%
�
:
":
,� �Wimp_MenuAdjustOn(menu%)
6,ș "Wimp_GetPointerInfo",,pointer_block%
@]� ((pointer_block%!8)�1)=1 �ș "Wimp_CreateMenu",,menu%,pointer_block%!0,pointer_block%!4
J�
T:
^� �Wimp_MenuChoice(level%)
h=(wimp%!(4*level%))+1
r:
|� �Wimp_MenuCreate(menu$)
�)� menu$="Colours" �=�Wimp_MenuColours
�'� menu%,index%,width%,length%,k%,s%
�.� menu% 28+�Wimp_MenuNoOfEntries(menu$)*24
�5menu%?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$ �
�    � ""
     :
1    !index%=0 :index%!4=-1 :index%!8=&7000021
    length%=�menu$,"\")-1
&     k%=��menu$,length%),">")
0    Ȏ k% �
:
      � 0
D      
N'      s%=�(�menu$,k%+1,length%-k%))
X      index%!4=s%
b      length%=k%-1
l	    �
v$    $(index%+12)=�menu$,length%)
�(    � length%>width% �width%=length%
�    index%+=24
�  �
��
�menu%!16=16*(width%+1)
�'index%!-24=index%!-24 � &80 :=menu%
�:
�� �Wimp_MenuColours
�!=�Wimp_MenuCreateColours(" ")
�:
�%� �Wimp_MenuCreateColours(title$)
�� x$,men%,j%,i%
�6x$=title$+"\0\1\2\3\4\5\6\7\8\9\10\11\12\13\14\15"

men%=�Wimp_MenuCreate(x$)

� i%=0 � 15

  Ȏ � �

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

*     :j%=0

4  �

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

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

R�

\	=men%

f:

p"� �Wimp_MenuNoOfEntries(menu$)

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

��

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

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

�
� j%=0

�=n%

�:

�5� �Wimp_MenuBackGroundColour(menu%,item%,colour%)

�� fore%,i%

�&fore%=(menu%?(39+(item%-1)*24))�16

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

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

��

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

menu1%!(8+item%*24)=menu2%
�
:
('� �Wimp_MenuItem(menu%,item%,item$)
2,$(menu%+(40+(item%-1)*24))=�item$,12)+�0
<�
F:
P$� �Wimp_MenuMessage(menu%,item%)
Z<menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�(1<<3)
d�
n:
x"� �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
��
�6ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+(n%+1)*44
�menu%=Bar_Menu%
��
�:
!� �Wimp_MenuTick(menu%,item%)
7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�1
�
":
,#� �Wimp_MenuTitle(menu%,title$)
6$menu%=�title$,12)+�0
@�
J:
T=� �Wimp_MenuWrite(menu%,item%,buffer%,val%,BufferLength%)
^7menu%!(28+(item%-1)*24)=(menu%!(28+(item%-1)*24))�4
h8menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�&100
r#menu%!(40+(item%-1)*24)=buffer%
| menu%!(44+(item%-1)*24)=val%
�)menu%!(48+(item%-1)*24)=BufferLength%
��
�:
�:
�� �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$
&�
0:
::
D� �Wimp_FileType(type%)
NȎtype%�
X  �&FFF:="Text"
b  �&FFD:="Data"
l  �&FFB:="Basic"
v  �&FF9:="Sprite"
�  �&FED:="Palette"
�  �&FEC:="Template"
�  �&AFF:="Draw"
�  �&1000:="Folder"
�  �&2000:="Application"
�  =�~(type%)
��
�:
�� �Wimp_GetFilePathName
�'=�Wimp_GetStringAtAddress(wimp%+44)
�:
�� �Wimp_FileLoad(pathname$)
��S%,T%,file%
S%=�pathname$
T%=�#S%+16
�#S%
 �file%T%
*"�("LOAD"+pathname$+""+�~file%)
4
=file%
>;
H&� �Wimp_GetStringAtAddress(array%)
R
�s$:s$=""
\<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
f=s$
p:
z#� �Wimp_GetFileFromPathname(f$)
�Ȏ �f$,".") �
�  � 0    :=f$
�8   :=�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
�
$:
.:
8/� �Wimp_Start(TaskName$,wimp_memory%,icon%)
B%� wimp% wimp_memory%,icons% icon%
L(� wimp_memory%<256 �wimp_memory%=256
Vicon_memory%=icons%+icon%
`task$=TaskName$
j*indirect_sprites%=1 :direct_sprites%=1
t�Wimp_SetEventVariables
~� � �Wimp_Error:�
�@ș"Wimp_Initialise",200,&4B534154,TaskName$ � version%,task%
��
�:
�� �Wimp_BASICParameters
�� com$,param$,I%
�ș "OS_GetEnv" � com$
�params$=""
�I%=�com$," -quit ")
�3� I% �params$=�com$,�com$," ",I%+�" -quit ")+1)
�=params$
�:
�� �Wimp_SetEventVariables
� pointer_block% 20

,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)
20recorder%=1<<18:acknowledge%=1<<19:window%=0
<!sprites%=1:version%=0:task%=0
F*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0
P*x_origin%=0:y_origin%=0:SaveWindow%=-3
Z3message_quit%=0:message_save%=2:message_load%=3
d!mouse_button%=2:save_event%=0
ntop_line%=0 :bottom_line%=0
x�
�:
�� �Wimp_Error
�
�X$,x%
�	� � �
�x%=�
�X$=�$+"atline"+�(x%�10)
��ErrorMsg%36
�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=&81080:ErrorMsg%!20=x%
�$(ErrorMsg%+24)="!RunImage"
�%ș"Wimp_SendMessage",17,ErrorMsg%
��Wimp_WindowAlert(task$,X$)
��Wimp_CloseDown
��
:
� �Wimp_CloseDown
#ș"Wimp_CloseDown",task%,"TASK"
"�
,:
6� �Wimp_Quit
@finished%=�
J�
T:
^#� �Wimp_ReadVariable(Variable$)
h�len%,result%,variable%
r$wimp%=Variable$
|3ș"OS_ReadVarVal",wimp%,wimp%+255,255,,3�,,len%
�wimp%?(len%+255)=13
�=$(wimp%+255)
�:
�:
�:
�� �Wimp_WaitForEvent
�� mask%,event%
�finished%=�
�mask%=%111000011000
��
�(  ș"Wimp_Poll",mask%,wimp% � event%
�  Ȏ event% �
�    �0 :�Null_Event
     �1 :�Wimp_PollDrawWindow
'    �2 :ș "Wimp_OpenWindow",,wimp%
!    �3 :�Wimp_PollCloseWindow
&    �4 :
0    �5 :
:     �6 :�Wimp_PollMouseClick
D!    �7 :�Wimp_PollSaveMessage
N    �8 :�Wimp_PollKeyPress
X$    �9 :�Event_MenuChoice(menu%)
b    �10:
l    �11:
v    �12:
�!    �17,18:�Wimp_PollMessages
�    �19:
�  �
�� checkmouse%=� �
��
�ȗ x%,y%,b%
�
� b%=0
�checkmouse%=�
��
�� 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%
4.  �Event_Draw(window%,x_origin%,y_origin%)
>(  ș"Wimp_GetRectangle",,wimp%�more%
H�
R�
\:
f� �Wimp_PollCloseWindow
p#ș "Wimp_GetPointerInfo",,wimp%
z&window%=wimp%!12 :buttons%=wimp%!8
�(�Event_WindowClose(window%,buttons%)
�0!wimp%=window% :ș "Wimp_CloseWindow",,wimp%
��
�:
�� �Wimp_PollMouseClick
�Ibutton%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�Ȏ button% �
�   �2    :�Wimp_PollMenuPopUp
�!  :Ȏ �Event_Save(window%) �
�     � � :�Wimp_PollMouseSave
�%    � �:�Wimp_PollEventMouseClick
�  �
��
�
:
� �Wimp_PollMenuPopUp
$menu%=�Event_Menu(window%)
.Ȏ menu%  �
8
  � �:
B	   :
L  Ȏ window% �
V    � -2   :n%=0
`/    ȕ ((Bar_Menu%!(28+n%*24))�%10000000)=0
j      n%+=1
t	    �
~:    ș "Wimp_CreateMenu",,Bar_Menu%,x%-64,96+(n%+1)*44
�1     :ș"Wimp_CreateMenu",,menu%,x%-64,y%+20
�  �
��
��
�:
�� �Wimp_PollMouseSave
�Ȏ icon% �
�6  � 0 :� button% � &50 ��Wimp_PollDragBox(window%)
�5  � 2 :� button% � 5 ��Wimp_PollSaveFile(window%)
��
��
�:
� �Wimp_PollEventMouseClick

2�Event_MouseClick(window%,icon%,button%,x%,y%)
�
:
(!� �Wimp_PollSaveFile(window%)
2
�file$
<=wimp%!0=window% :wimp%!4=1 :ș "Wimp_GetIconState",,wimp%
Ffile$=$(wimp%!28)
PȎ �file$,".") �
Z
  � 0   :
d?  $(wimp%+4)="To save, drag the icon to a directory window"
n*  ș "Wimp_ReportError",wimp%,16,task$
x  :
�$  �Event_SaveFile(file$,window%)
��
�ș"Wimp_CreateMenu",-1
��
�:
� � �Wimp_PollDragBox(window%)
�
�x%,y%
�save%=window%
�!wimp%=window%
�"ș"Wimp_GetWindowState",,wimp%
�,x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24
�
wimp%!4=0
� ș"Wimp_GetIconState",,wimp%
!wimp%=window%

wimp%!4=5
+wimp%!8=x%+wimp%!8:wimp%!12=y%+wimp%!12
"-wimp%!16=x%+wimp%!16:wimp%!20=y%+wimp%!20
,wimp%!24=0:wimp%!28=0
6)wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
@ș"Wimp_DragBox",,wimp%
J�
T:
^� �Wimp_PollKeyPress
h/window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
rȎ �Event_Save(window%) �
|&  � � :�WimpPoll_SaveFile(window%)
�-  � �:�Event_KeyPress(window%,icon%,key%)
��
��
�:
�� �Wimp_PollSaveMessage
��file$,window%,icon%,x%,y%
�"ș"Wimp_GetPointerInfo",,wimp%
�9window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
�;wimp%!0=save% :wimp%!4=1 :ș "Wimp_GetIconState",,wimp%
�file$=$(wimp%!28)
�*file$=�Wimp_GetFileFromPathname(file$)
�wimp%!20=window%
�wimp%!24=icon%
wimp%!28=x%:wimp%!32=y%
wimp%!36=length%
wimp%!0=64
&wimp%!12=0
0wimp%!16=1
:wimp%!40=&FFF
D$(wimp%+44)=file$
N3ș"Wimp_SendMessage",17,wimp%,wimp%!20,wimp%!24
X�
b:
l� �Wimp_PollMessages
v� file$
�,file$=�Wimp_GetStringAtAddress(wimp%+44)
�Ȏ wimp%!16 �
�  � 0 :finished%=�
�  � 1 :
�  � 2 :
�=  wimp%!0=save% :wimp%!4=1 :ș "Wimp_GetIconState",,wimp%
�  $(wimp%!28)=file$
�5  wimp%!0=save% :wimp%!4=1 :wimp%!8=0 :wimp%!12=0
�#  ș "Wimp_SetIconState",,wimp%
�4  ș "Wimp_SetCaretPosition",save%,1,,,-1,�file$
�"  �Event_SaveFile(file$,save%)
�	  � 3
�B  type$=�Wimp_FileType(wimp%!40) :�Event_LoadFile(file$,type$)
�
�
:
 &� �Wimp_GetStringAtAddress(array%)
*
�s$:s$=""
4<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
>=s$
H:
R#� �Wimp_GetFileFromPathname(f$)
\Ȏ �f$,".") �
f  � 0    :=f$
p8   :=�Wimp_GetFileFromPathname(�f$,�(f$)-�f$,".")))
z�
�:
�� �Wimp_FileType(type%)
�Ȏtype%�
�  �&FFF:="Text"
�  �&FFD:="Data"
�  �&FFB:="Basic"
�  �&FF9:="Sprite"
�  �&FED:="Palette"
�  �&FEC:="Template"
�  �&AFF:="Draw"
�  �&1000:="Folder"
�  �&2000:="Application"
�  =�~(type%)
�
:
� �Wimp_Open
$!temp1=Main_Window%
.temp1!4=wimp%!4-80
8temp1!8=wimp%!16-332
Btemp1!12=wimp%!4
Ltemp1!16=wimp%!16
Vtemp1!20=0
`temp1!24=0
jtemp1!28=-1
tș "Wimp_OpenWindow",,temp1
~�
�:
�:
�� �install_icon
�� bicon% 20
�$bicon%="!pipe_up"
�0iconbar%=�icon(&B7002102,bicon%,sprites%,10)
��
�:
�ݤicon(flag%,b1%,b2%,b3%)
�� I%
�block%!0=-1
�block%!4=0:block%!8=0
block%!12=76:block%!16=68

flag%=flag% � 2^8
block%!20=flag%
-block%!24=b1%:block%!28=b2%:block%!32=b3%
(%ș "Wimp_CreateIcon",,block% � I%
2=I%
<:
F� �Pipe_Up
P$bicon%="!pipe_up"
Z!block%!0=-1:block%!4=iconbar%
dblock%!8=0:block%!12=0
n"ș "Wimp_SetIconState",,block%
x�
�:
�� �Pipe_Down
�$bicon%="!pipe_down"
�!block%!0=-1:block%!4=iconbar%
�block%!8=0:block%!12=0
�"ș "Wimp_SetIconState",,block%
��
�:
�� �Pipe_Toggle
�� button_up%=� �
�button_up%=�
��Pipe_Down
�"�Wimp_WindowOpen(Main_Window%)
�
button_up%=�
�Pipe_Up
"#�Wimp_WindowClose(Main_Window%)
,�
6checkmouse%=�
@�
�

00000000  0d 00 0a 25 f2 57 69 6d  70 5f 53 74 61 72 74 28  |...%.Wimp_Start(|
00000010  22 50 69 70 65 54 6f 6f  6c 22 2c 31 35 32 33 2c  |"PipeTool",1523,|
00000020  31 31 34 37 29 0d 00 14  18 f2 55 73 65 72 5f 53  |1147).....User_S|
00000030  65 74 49 6e 69 74 69 61  6c 44 61 74 61 0d 00 1e  |etInitialData...|
00000040  13 f2 43 72 65 61 74 65  5f 57 69 6e 64 6f 77 73  |..Create_Windows|
00000050  0d 00 28 11 f2 43 72 65  61 74 65 5f 4d 65 6e 75  |..(..Create_Menu|
00000060  73 0d 00 32 16 f2 57 69  6d 70 5f 57 61 69 74 46  |s..2..Wimp_WaitF|
00000070  6f 72 45 76 65 6e 74 0d  00 3c 13 f2 57 69 6d 70  |orEvent..<..Wimp|
00000080  5f 43 6c 6f 73 65 44 6f  77 6e 0d 00 46 05 e0 0d  |_CloseDown..F...|
00000090  00 50 05 3a 0d 00 5a 1a  dd 20 f2 55 73 65 72 5f  |.P.:..Z.. .User_|
000000a0  53 65 74 49 6e 69 74 69  61 6c 44 61 74 61 0d 00  |SetInitialData..|
000000b0  64 1c 41 24 3d 22 22 3a  4c 3d 30 3a 43 3d 30 3a  |d.A$="":L=0:C=0:|
000000c0  62 75 74 62 61 72 25 3d  2d 31 0d 00 6e 10 62 75  |butbar%=-1..n.bu|
000000d0  74 74 6f 6e 5f 75 70 25  3d b9 0d 00 78 11 63 68  |tton_up%=...x.ch|
000000e0  65 63 6b 6d 6f 75 73 65  25 3d a3 0d 00 82 0f de  |eckmouse%=......|
000000f0  20 62 6c 6f 63 6b 25 20  33 32 0d 00 8c 0d 62 75  | block% 32....bu|
00000100  74 74 6f 6e 25 3d 30 0d  00 96 05 e1 0d 00 a0 05  |tton%=0.........|
00000110  3a 0d 00 aa 15 dd 20 f2  43 72 65 61 74 65 5f 57  |:..... .Create_W|
00000120  69 6e 64 6f 77 73 0d 00  b4 15 f2 57 69 6d 70 5f  |indows.....Wimp_|
00000130  53 70 72 69 74 65 73 4c  6f 61 64 0d 00 be 29 4d  |SpritesLoad...)M|
00000140  61 69 6e 5f 57 69 6e 64  6f 77 25 3d a4 57 69 6d  |ain_Window%=.Wim|
00000150  70 5f 57 69 6e 64 6f 77  4c 6f 61 64 28 22 4d 61  |p_WindowLoad("Ma|
00000160  69 6e 22 29 0d 00 c8 29  49 6e 66 6f 5f 57 69 6e  |in")...)Info_Win|
00000170  64 6f 77 25 3d a4 57 69  6d 70 5f 57 69 6e 64 6f  |dow%=.Wimp_Windo|
00000180  77 4c 6f 61 64 28 22 49  6e 66 6f 22 29 0d 00 d2  |wLoad("Info")...|
00000190  2d f4 20 50 52 4f 43 57  69 6d 70 5f 57 69 6e 64  |-. PROCWimp_Wind|
000001a0  6f 77 42 72 69 6e 67 54  6f 54 6f 70 28 4d 61 69  |owBringToTop(Mai|
000001b0  6e 5f 57 69 6e 64 6f 77  25 29 0d 00 dc 11 f2 69  |n_Window%).....i|
000001c0  6e 73 74 61 6c 6c 5f 69  63 6f 6e 0d 00 e6 16 42  |nstall_icon....B|
000001d0  61 72 5f 49 63 6f 6e 25  3d 69 63 6f 6e 62 61 72  |ar_Icon%=iconbar|
000001e0  25 0d 00 f0 05 e1 0d 00  fa 05 3a 0d 01 04 1c dd  |%.........:.....|
000001f0  20 a4 45 76 65 6e 74 5f  53 61 76 65 28 77 69 6e  | .Event_Save(win|
00000200  64 6f 77 25 29 3d a3 0d  01 0e 05 3a 0d 01 18 26  |dow%)=.....:...&|
00000210  dd 20 a4 45 76 65 6e 74  5f 53 70 72 69 74 65 73  |. .Event_Sprites|
00000220  28 77 69 6e 64 6f 77 25  29 3d 73 70 72 69 74 65  |(window%)=sprite|
00000230  73 25 0d 01 22 05 3a 0d  01 2c 13 dd 20 f2 43 72  |s%..".:..,.. .Cr|
00000240  65 61 74 65 5f 4d 65 6e  75 73 0d 01 36 2b 6d 65  |eate_Menus..6+me|
00000250  6e 75 24 3d 22 50 69 70  65 54 6f 6f 6c 5c 49 6e  |nu$="PipeTool\In|
00000260  66 6f 3e 49 6e 66 6f 5f  57 69 6e 64 6f 77 25 5c  |fo>Info_Window%\|
00000270  51 75 69 74 22 0d 01 40  25 42 61 72 5f 4d 65 6e  |Quit"..@%Bar_Men|
00000280  75 25 3d a4 57 69 6d 70  5f 4d 65 6e 75 43 72 65  |u%=.Wimp_MenuCre|
00000290  61 74 65 28 6d 65 6e 75  24 29 0d 01 4a 05 e1 0d  |ate(menu$)..J...|
000002a0  01 54 05 3a 0d 01 5e 1a  dd 20 a4 45 76 65 6e 74  |.T.:..^.. .Event|
000002b0  5f 4d 65 6e 75 28 77 69  6e 64 6f 77 25 29 0d 01  |_Menu(window%)..|
000002c0  68 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 01  |h... window% ...|
000002d0  72 26 20 20 c9 20 42 61  72 5f 57 69 6e 64 6f 77  |r&  . Bar_Window|
000002e0  25 20 20 20 20 20 20 20  20 3a 3d 42 61 72 5f 4d  |%        :=Bar_M|
000002f0  65 6e 75 25 0d 01 7c 19  20 20 7f 20 20 20 20 20  |enu%..|.  .     |
00000300  20 20 20 20 20 20 20 20  20 20 3a 3d a3 0d 01 86  |          :=....|
00000310  05 cb 0d 01 90 05 3a 0d  01 9a 2a dd 20 f2 45 76  |......:...*. .Ev|
00000320  65 6e 74 5f 57 69 6e 64  6f 77 43 6c 6f 73 65 28  |ent_WindowClose(|
00000330  77 69 6e 64 6f 77 25 2c  62 75 74 74 6f 6e 73 25  |window%,buttons%|
00000340  29 0d 01 a4 10 c8 8e 20  77 69 6e 64 6f 77 25 20  |)...... window% |
00000350  ca 0d 01 ae 24 20 20 20  c9 20 4d 61 69 6e 5f 57  |....$   . Main_W|
00000360  69 6e 64 6f 77 25 20 3a  20 f2 50 69 70 65 5f 54  |indow% : .Pipe_T|
00000370  6f 67 67 6c 65 0d 01 b8  05 cb 0d 01 c2 05 e1 0d  |oggle...........|
00000380  01 cc 05 3a 0d 01 d6 2e  dd 20 f2 45 76 65 6e 74  |...:..... .Event|
00000390  5f 44 72 61 77 28 77 69  6e 64 6f 77 25 2c 78 5f  |_Draw(window%,x_|
000003a0  6f 72 69 67 69 6e 25 2c  79 5f 6f 72 69 67 69 6e  |origin%,y_origin|
000003b0  25 29 0d 01 e0 10 c8 8e  20 77 69 6e 64 6f 77 25  |%)...... window%|
000003c0  20 ca 0d 01 ea 31 20 20  c9 20 4d 61 69 6e 5f 57  | ....1  . Main_W|
000003d0  69 6e 64 6f 77 25 20 20  20 20 20 20 20 20 3a f2  |indow%        :.|
000003e0  55 73 65 72 5f 44 72 61  77 4d 61 69 6e 57 69 6e  |User_DrawMainWin|
000003f0  64 6f 77 0d 01 f4 31 20  20 c9 20 49 6e 66 6f 5f  |dow...1  . Info_|
00000400  57 69 6e 64 6f 77 25 20  20 20 20 20 20 20 20 3a  |Window%        :|
00000410  f2 55 73 65 72 5f 44 72  61 77 49 6e 66 6f 57 69  |.User_DrawInfoWi|
00000420  6e 64 6f 77 0d 01 fe 05  cb 0d 02 08 05 e1 0d 02  |ndow............|
00000430  12 05 3a 0d 02 1c 1a dd  20 f2 55 73 65 72 5f 44  |..:..... .User_D|
00000440  72 61 77 4d 61 69 6e 57  69 6e 64 6f 77 0d 02 26  |rawMainWindow..&|
00000450  05 e1 0d 02 30 05 3a 0d  02 3a 1a dd 20 f2 55 73  |....0.:..:.. .Us|
00000460  65 72 5f 44 72 61 77 49  6e 66 6f 57 69 6e 64 6f  |er_DrawInfoWindo|
00000470  77 0d 02 44 05 e1 0d 02  4e 05 3a 0d 02 58 34 dd  |w..D....N.:..X4.|
00000480  20 f2 45 76 65 6e 74 5f  4d 6f 75 73 65 43 6c 69  | .Event_MouseCli|
00000490  63 6b 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |ck(window%,icon%|
000004a0  2c 62 75 74 74 6f 6e 25  2c 78 25 2c 79 25 29 0d  |,button%,x%,y%).|
000004b0  02 62 10 c8 8e 20 77 69  6e 64 6f 77 25 20 ca 0d  |.b... window% ..|
000004c0  02 6c 2a 20 20 c9 20 42  61 72 5f 57 69 6e 64 6f  |.l*  . Bar_Windo|
000004d0  77 25 20 20 20 20 20 20  20 20 3a f2 55 73 65 72  |w%        :.User|
000004e0  5f 4d 6f 75 73 65 42 61  72 0d 02 76 3b 20 20 c9  |_MouseBar..v;  .|
000004f0  20 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 20 20 20  | Main_Window%   |
00000500  20 20 20 20 3a f2 55 73  65 72 5f 4d 6f 75 73 65  |    :.User_Mouse|
00000510  4d 61 69 6e 28 20 62 75  74 74 6f 6e 25 2c 69 63  |Main( button%,ic|
00000520  6f 6e 25 29 0d 02 80 3b  20 20 c9 20 49 6e 66 6f  |on%)...;  . Info|
00000530  5f 57 69 6e 64 6f 77 25  20 20 20 20 20 20 20 3a  |_Window%       :|
00000540  f2 55 73 65 72 5f 4d 6f  75 73 65 49 6e 66 6f 28  |.User_MouseInfo(|
00000550  20 62 75 74 74 6f 6e 25  2c 69 63 6f 6e 25 29 0d  | button%,icon%).|
00000560  02 8a 05 cb 0d 02 94 05  e1 0d 02 9e 05 3a 0d 02  |.............:..|
00000570  a8 14 dd 20 f2 55 73 65  72 5f 4d 6f 75 73 65 42  |... .User_MouseB|
00000580  61 72 0d 02 b2 10 f2 50  69 70 65 5f 54 6f 67 67  |ar.....Pipe_Togg|
00000590  6c 65 0d 02 bc 05 e1 0d  02 c6 05 3a 0d 02 d0 25  |le.........:...%|
000005a0  dd 20 f2 55 73 65 72 5f  4d 6f 75 73 65 4d 61 69  |. .User_MouseMai|
000005b0  6e 28 20 62 75 74 74 6f  6e 25 2c 69 63 6f 6e 25  |n( button%,icon%|
000005c0  29 0d 02 da 0b ea 20 63  6f 64 65 25 0d 02 e4 12  |)..... code%....|
000005d0  e7 20 62 75 74 74 6f 6e  25 20 3c 35 20 8c 0d 02  |. button% <5 ...|
000005e0  ee 0e 20 20 63 6f 64 65  25 3d 2d 31 0d 02 f8 25  |..  code%=-1...%|
000005f0  20 20 e7 20 62 75 74 74  6f 6e 25 3d 31 20 80 20  |  . button%=1 . |
00000600  69 63 6f 6e 25 3d 30 20  8c 63 6f 64 65 25 3d 32  |icon%=0 .code%=2|
00000610  34 0d 03 02 24 20 20 e7  20 62 75 74 74 6f 6e 25  |4...$  . button%|
00000620  3d 34 20 80 20 69 63 6f  6e 25 3d 30 20 8c 63 6f  |=4 . icon%=0 .co|
00000630  64 65 25 3d 33 0d 03 0c  11 41 24 3d 22 22 3a 4c  |de%=3....A$="":L|
00000640  3d 30 3a 43 3d 30 0d 03  16 10 20 20 c8 8e 20 69  |=0:C=0....  .. i|
00000650  63 6f 6e 25 20 ca 0d 03  20 14 20 20 20 20 c9 20  |con% ... .    . |
00000660  30 20 3a 41 24 3d 22 50  42 22 0d 03 2a 14 20 20  |0 :A$="PB"..*.  |
00000670  20 20 c9 20 31 20 3a 41  24 3d 22 50 49 22 0d 03  |  . 1 :A$="PI"..|
00000680  34 14 20 20 20 20 c9 20  32 20 3a 41 24 3d 22 50  |4.    . 2 :A$="P|
00000690  55 22 0d 03 3e 15 20 20  20 20 c9 20 33 20 3a 41  |U"..>.    . 3 :A|
000006a0  24 3d 22 50 46 47 22 0d  03 48 14 20 20 20 20 c9  |$="PFG"..H.    .|
000006b0  20 34 20 3a 41 24 3d 22  46 53 22 0d 03 52 14 20  | 4 :A$="FS"..R. |
000006c0  20 20 20 c9 20 35 20 3a  41 24 3d 22 42 44 22 0d  |   . 5 :A$="BD".|
000006d0  03 5c 13 20 20 20 20 c9  20 36 20 3a 41 24 3d 22  |.\.    . 6 :A$="|
000006e0  49 22 0d 03 66 14 20 20  20 20 c9 20 37 20 3a 41  |I"..f.    . 7 :A|
000006f0  24 3d 22 42 43 22 0d 03  70 15 20 20 20 20 c9 20  |$="BC"..p.    . |
00000700  38 20 3a 41 24 3d 22 42  44 49 22 0d 03 7a 13 20  |8 :A$="BDI"..z. |
00000710  20 20 20 c9 20 39 3a 41  24 3d 22 50 4f 22 0d 03  |   . 9:A$="PO"..|
00000720  84 14 20 20 20 20 c9 20  31 30 3a 41 24 3d 22 53  |..    . 10:A$="S|
00000730  43 22 0d 03 8e 15 20 20  20 20 c9 20 31 31 3a 41  |C"....    . 11:A|
00000740  24 3d 22 4c 41 52 22 0d  03 98 15 20 20 20 20 c9  |$="LAR"....    .|
00000750  20 31 32 3a 41 24 3d 22  4c 41 43 22 0d 03 a2 15  | 12:A$="LAC"....|
00000760  20 20 20 20 c9 20 31 33  3a 41 24 3d 22 4c 41 4c  |    . 13:A$="LAL|
00000770  22 0d 03 ac 07 20 20 cb  0d 03 b6 09 4c 3d a9 41  |"....  .....L=.A|
00000780  24 0d 03 c0 05 cd 0d 03  ca 05 e1 0d 03 d4 05 3a  |$..............:|
00000790  0d 03 de 11 dd 20 f2 4e  75 6c 6c 5f 45 76 65 6e  |..... .Null_Even|
000007a0  74 0d 03 e8 0c e7 20 43  3c 3e 4c 20 8c 0d 03 f2  |t..... C<>L ....|
000007b0  13 43 24 3d 28 c1 41 24  2c 43 2b 31 2c 31 29 29  |.C$=(.A$,C+1,1))|
000007c0  0d 03 fc 18 20 20 20 20  20 20 63 6f 64 65 25 3d  |....      code%=|
000007d0  97 28 43 24 29 2d 36 34  0d 04 06 1d c8 99 22 57  |.(C$)-64......"W|
000007e0  69 6d 70 5f 50 72 6f 63  65 73 73 4b 65 79 22 2c  |imp_ProcessKey",|
000007f0  63 6f 64 65 25 0d 04 10  08 43 2b 3d 31 0d 04 1a  |code%....C+=1...|
00000800  05 cd 0d 04 24 05 e1 0d  04 2e 05 3a 0d 04 38 25  |....$......:..8%|
00000810  dd 20 f2 55 73 65 72 5f  4d 6f 75 73 65 49 6e 66  |. .User_MouseInf|
00000820  6f 28 20 62 75 74 74 6f  6e 25 2c 69 63 6f 6e 25  |o( button%,icon%|
00000830  29 0d 04 42 05 e1 0d 04  4c 05 3a 0d 04 56 29 dd  |)..B....L.:..V).|
00000840  20 f2 45 76 65 6e 74 5f  4b 65 79 50 72 65 73 73  | .Event_KeyPress|
00000850  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 2c 6b  |(window%,icon%,k|
00000860  65 79 25 29 0d 04 60 10  c8 8e 20 77 69 6e 64 6f  |ey%)..`... windo|
00000870  77 25 20 ca 0d 04 6a 05  cb 0d 04 74 05 e1 0d 04  |w% ...j....t....|
00000880  7e 05 3a 0d 04 88 1e dd  20 f2 45 76 65 6e 74 5f  |~.:..... .Event_|
00000890  4d 65 6e 75 43 68 6f 69  63 65 28 6d 65 6e 75 25  |MenuChoice(menu%|
000008a0  29 0d 04 92 0e c8 8e 20  6d 65 6e 75 25 20 ca 0d  |)...... menu% ..|
000008b0  04 9c 2f 20 20 c9 20 42  61 72 5f 4d 65 6e 75 25  |../  . Bar_Menu%|
000008c0  20 20 20 20 20 20 20 20  20 20 3a f2 55 73 65 72  |          :.User|
000008d0  5f 4d 65 6e 75 43 68 6f  69 63 65 42 61 72 0d 04  |_MenuChoiceBar..|
000008e0  a6 05 cb 0d 04 b0 05 e1  0d 04 ba 05 3a 0d 04 c4  |............:...|
000008f0  19 dd 20 f2 55 73 65 72  5f 4d 65 6e 75 43 68 6f  |.. .User_MenuCho|
00000900  69 63 65 42 61 72 0d 04  ce 1c c8 8e 20 a4 57 69  |iceBar...... .Wi|
00000910  6d 70 5f 4d 65 6e 75 43  68 6f 69 63 65 28 30 29  |mp_MenuChoice(0)|
00000920  20 ca 0d 04 d8 0b 20 20  c9 20 31 20 3a 0d 04 e2  | .....  . 1 :...|
00000930  16 20 20 c9 20 32 20 3a  66 69 6e 69 73 68 65 64  |.  . 2 :finished|
00000940  25 3d b9 0d 04 ec 05 cb  0d 04 f6 05 e1 0d 05 00  |%=..............|
00000950  04 0d 05 0a 28 dd 20 f2  57 69 6d 70 5f 57 69 6e  |....(. .Wimp_Win|
00000960  64 6f 77 41 6c 65 72 74  28 74 69 74 6c 65 24 2c  |dowAlert(title$,|
00000970  6d 65 73 73 61 67 65 24  29 0d 05 14 2b f2 57 69  |message$)...+.Wi|
00000980  6d 70 5f 57 69 6e 64 6f  77 41 6c 65 72 74 42 6f  |mp_WindowAlertBo|
00000990  78 28 74 69 74 6c 65 24  2c 6d 65 73 73 61 67 65  |x(title$,message|
000009a0  24 2c 30 29 0d 05 1e 05  e1 0d 05 28 05 3a 0d 05  |$,0).......(.:..|
000009b0  32 33 dd 20 f2 57 69 6d  70 5f 57 69 6e 64 6f 77  |23. .Wimp_Window|
000009c0  41 6c 65 72 74 42 6f 78  28 74 69 74 6c 65 24 2c  |AlertBox(title$,|
000009d0  6d 65 73 73 61 67 65 24  2c 62 75 74 74 6f 6e 25  |message$,button%|
000009e0  29 0d 05 3c 0f ea 20 72  65 73 70 6f 6e 73 65 25  |)..<.. response%|
000009f0  0d 05 46 17 24 28 77 69  6d 70 25 2b 34 29 3d 6d  |..F.$(wimp%+4)=m|
00000a00  65 73 73 61 67 65 24 0d  05 50 10 c8 8e 20 62 75  |essage$..P... bu|
00000a10  74 74 6f 6e 25 20 ca 0d  05 5a 19 20 20 c9 20 32  |tton% ...Z.  . 2|
00000a20  20 20 20 20 3a 72 65 73  70 6f 6e 73 65 25 3d 31  |    :response%=1|
00000a30  0d 05 64 1a 20 20 c9 20  31 20 20 20 20 3a 72 65  |..d.  . 1    :re|
00000a40  73 70 6f 6e 73 65 25 3d  31 35 0d 05 6e 21 20 20  |sponse%=15..n!  |
00000a50  c9 20 33 20 20 20 20 3a  72 65 73 70 6f 6e 73 65  |. 3    :response|
00000a60  25 3d 28 31 3c 3c 35 29  2b 31 36 0d 05 78 21 20  |%=(1<<5)+16..x! |
00000a70  20 c9 20 34 20 20 20 20  3a 72 65 73 70 6f 6e 73  | . 4    :respons|
00000a80  65 25 3d 28 31 3c 3c 36  29 2b 31 36 0d 05 82 15  |e%=(1<<6)+16....|
00000a90  20 20 7f 20 3a 72 65 73  70 6f 6e 73 65 25 3d 31  |  . :response%=1|
00000aa0  36 0d 05 8c 05 cb 0d 05  96 3d c8 99 20 22 57 69  |6........=.. "Wi|
00000ab0  6d 70 5f 52 65 70 6f 72  74 45 72 72 6f 72 22 2c  |mp_ReportError",|
00000ac0  77 69 6d 70 25 2c 72 65  73 70 6f 6e 73 65 25 2c  |wimp%,response%,|
00000ad0  74 69 74 6c 65 24 20 b8  20 2c 72 65 73 70 6f 6e  |title$ . ,respon|
00000ae0  73 65 25 0d 05 a0 05 e1  0d 05 aa 05 3a 0d 05 b4  |se%.........:...|
00000af0  29 dd 20 a4 57 69 6d 70  5f 57 69 6e 64 6f 77 43  |). .Wimp_WindowC|
00000b00  61 6e 63 65 6c 28 74 69  74 6c 65 24 2c 6d 65 73  |ancel(title$,mes|
00000b10  73 61 67 65 24 29 0d 05  be 17 24 28 77 69 6d 70  |sage$)....$(wimp|
00000b20  25 2b 34 29 3d 6d 65 73  73 61 67 65 24 0d 05 c8  |%+4)=message$...|
00000b30  10 72 65 73 70 6f 6e 73  65 25 3d 32 33 0d 05 d2  |.response%=23...|
00000b40  3d c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |=.. "Wimp_Report|
00000b50  45 72 72 6f 72 22 2c 77  69 6d 70 25 2c 72 65 73  |Error",wimp%,res|
00000b60  70 6f 6e 73 65 25 2c 74  69 74 6c 65 24 20 b8 20  |ponse%,title$ . |
00000b70  2c 72 65 73 70 6f 6e 73  65 25 0d 05 dc 10 3d 72  |,response%....=r|
00000b80  65 73 70 6f 6e 73 65 25  2d 32 0d 05 e6 05 3a 0d  |esponse%-2....:.|
00000b90  05 f0 2b dd 20 f2 57 69  6d 70 5f 57 69 6e 64 6f  |..+. .Wimp_Windo|
00000ba0  77 45 72 72 6f 72 42 6f  78 28 74 69 74 6c 65 24  |wErrorBox(title$|
00000bb0  2c 6d 65 73 73 61 67 65  24 29 0d 05 fa 2b f2 57  |,message$)...+.W|
00000bc0  69 6d 70 5f 57 69 6e 64  6f 77 41 6c 65 72 74 42  |imp_WindowAlertB|
00000bd0  6f 78 28 74 69 74 6c 65  24 2c 6d 65 73 73 61 67  |ox(title$,messag|
00000be0  65 24 2c 32 29 0d 06 04  05 e1 0d 06 0e 05 3a 0d  |e$,2).........:.|
00000bf0  06 18 20 dd 20 a4 57 69  6d 70 5f 57 69 6e 64 6f  |.. . .Wimp_Windo|
00000c00  77 54 69 74 6c 65 28 77  69 6e 64 6f 77 25 29 0d  |wTitle(window%).|
00000c10  06 22 13 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |.".wimp%!0=windo|
00000c20  77 25 0d 06 2c 20 c8 99  20 22 57 69 6d 70 5f 47  |w%.., .. "Wimp_G|
00000c30  65 74 57 69 6e 64 49 6e  66 6f 22 2c 2c 77 69 6d  |etWindInfo",,wim|
00000c40  70 25 0d 06 36 36 e7 20  28 28 77 69 6d 70 25 21  |p%..66. ((wimp%!|
00000c50  36 30 29 80 26 31 30 30  29 3d 30 20 85 20 31 2c  |60).&100)=0 . 1,|
00000c60  22 54 69 74 6c 65 20 69  73 6e 27 74 20 69 6e 64  |"Title isn't ind|
00000c70  69 72 65 63 74 65 64 22  0d 06 40 10 3d 24 28 77  |irected"..@.=$(w|
00000c80  69 6d 70 25 21 37 36 29  0d 06 4a 05 3a 0d 06 54  |imp%!76)..J.:..T|
00000c90  1f dd 20 a4 57 69 6d 70  5f 57 69 6e 64 6f 77 4c  |.. .Wimp_WindowL|
00000ca0  6f 61 64 28 77 69 6e 64  6f 77 24 29 0d 06 5e 39  |oad(window$)..^9|
00000cb0  3d a4 57 69 6d 70 5f 57  69 6e 64 6f 77 4c 6f 61  |=.Wimp_WindowLoa|
00000cc0  64 46 72 6f 6d 28 77 69  6e 64 6f 77 24 2c 22 3c  |dFrom(window$,"<|
00000cd0  4f 62 65 79 24 44 69 72  3e 2e 54 65 6d 70 6c 61  |Obey$Dir>.Templa|
00000ce0  74 65 73 22 29 0d 06 68  05 3a 0d 06 72 2d dd 20  |tes")..h.:..r-. |
00000cf0  a4 57 69 6d 70 5f 57 69  6e 64 6f 77 4c 6f 61 64  |.Wimp_WindowLoad|
00000d00  46 72 6f 6d 28 77 69 6e  64 6f 77 24 2c 74 65 6d  |From(window$,tem|
00000d10  70 6c 61 74 65 24 29 0d  06 7c 1a ea 20 63 25 2c  |plate$)..|.. c%,|
00000d20  69 25 2c 6e 25 2c 6a 25  2c 73 70 24 2c 73 70 32  |i%,n%,j%,sp$,sp2|
00000d30  24 0d 06 86 25 c8 99 20  22 57 69 6d 70 5f 4f 70  |$...%.. "Wimp_Op|
00000d40  65 6e 54 65 6d 70 6c 61  74 65 22 2c 2c 74 65 6d  |enTemplate",,tem|
00000d50  70 6c 61 74 65 24 0d 06  90 4d c8 99 20 22 57 69  |plate$...M.. "Wi|
00000d60  6d 70 5f 4c 6f 61 64 54  65 6d 70 6c 61 74 65 22  |mp_LoadTemplate"|
00000d70  2c 2c 77 69 6d 70 25 2c  69 63 6f 6e 73 25 2c 69  |,,wimp%,icons%,i|
00000d80  63 6f 6e 5f 6d 65 6d 6f  72 79 25 2c 2d 31 2c 77  |con_memory%,-1,w|
00000d90  69 6e 64 6f 77 24 2c 30  20 b8 20 2c 2c 69 63 6f  |indow$,0 . ,,ico|
00000da0  6e 73 25 0d 06 9a 11 c8  8e 20 73 70 72 69 74 65  |ns%...... sprite|
00000db0  73 25 20 ca 0d 06 a4 1f  20 20 c9 20 31 20 20 20  |s% .....  . 1   |
00000dc0  20 3a 77 69 6d 70 25 21  36 34 3d 73 70 72 69 74  | :wimp%!64=sprit|
00000dd0  65 73 25 0d 06 ae 29 20  20 7f 20 3a 77 69 6d 70  |es%...)  . :wimp|
00000de0  25 21 36 34 3d a4 45 76  65 6e 74 5f 53 70 72 69  |%!64=.Event_Spri|
00000df0  74 65 73 28 77 69 6e 64  6f 77 25 29 0d 06 b8 05  |tes(window%)....|
00000e00  cb 0d 06 c2 26 c8 99 20  22 57 69 6d 70 5f 43 72  |....&.. "Wimp_Cr|
00000e10  65 61 74 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |eateWindow",,wim|
00000e20  70 25 20 b8 20 63 25 0d  06 cc 1b c8 99 20 22 57  |p% . c%...... "W|
00000e30  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00000e40  65 22 0d 06 d6 37 c8 99  20 22 57 69 6d 70 5f 57  |e"...7.. "Wimp_W|
00000e50  68 69 63 68 49 63 6f 6e  22 2c 63 25 2c 77 69 6d  |hichIcon",c%,wim|
00000e60  70 25 2b 34 30 2c 31 2b  32 2b 28 31 3c 3c 38 29  |p%+40,1+2+(1<<8)|
00000e70  2c 32 2b 28 31 3c 3c 38  29 0d 06 e0 11 c8 8e 20  |,2+(1<<8)...... |
00000e80  77 69 6d 70 25 21 34 30  20 ca 0d 06 ea 0e 20 20  |wimp%!40 .....  |
00000e90  c9 20 2d 31 20 20 20 3a  0d 06 f4 0e 20 20 7f 20  |. -1   :....  . |
00000ea0  3a 69 25 3d 34 30 0d 06  fe 07 20 20 f5 0d 07 08  |:i%=40....  ....|
00000eb0  24 20 20 20 20 77 69 6d  70 25 21 34 3d 77 69 6d  |$    wimp%!4=wim|
00000ec0  70 25 21 69 25 20 3a 77  69 6d 70 25 21 30 3d 63  |p%!i% :wimp%!0=c|
00000ed0  25 0d 07 12 25 20 20 20  20 c8 99 20 22 57 69 6d  |%...%    .. "Wim|
00000ee0  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00000ef0  2c 77 69 6d 70 25 0d 07  1c 2e 20 20 20 20 73 70  |,wimp%....    sp|
00000f00  24 3d a4 57 69 6d 70 5f  47 65 74 53 74 72 69 6e  |$=.Wimp_GetStrin|
00000f10  67 41 74 41 64 64 72 65  73 73 28 77 69 6d 70 25  |gAtAddress(wimp%|
00000f20  21 32 38 29 0d 07 26 23  20 20 20 20 c8 99 20 22  |!28)..&#    .. "|
00000f30  57 69 6d 70 5f 44 65 6c  65 74 65 49 63 6f 6e 22  |Wimp_DeleteIcon"|
00000f40  2c 2c 77 69 6d 70 25 0d  07 30 15 20 20 20 20 c8  |,,wimp%..0.    .|
00000f50  8e 20 73 70 72 69 74 65  73 25 20 ca 0d 07 3a 1c  |. sprites% ...:.|
00000f60  20 20 20 20 20 20 c9 20  31 20 20 20 20 3a 77 69  |      . 1    :wi|
00000f70  6d 70 25 21 33 32 3d 31  0d 07 44 0d 20 20 20 20  |mp%!32=1..D.    |
00000f80  20 20 7f 20 3a 0d 07 4e  30 20 20 20 20 20 20 c8  |  . :..N0      .|
00000f90  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000fa0  26 31 30 38 2c 73 70 72  69 74 65 73 25 20 b8 20  |&108,sprites% . |
00000fb0  2c 2c 2c 6e 25 0d 07 58  0e 20 20 20 20 20 20 6a  |,,,n%..X.      j|
00000fc0  25 3d 30 0d 07 62 12 20  20 20 20 20 20 f5 20 3a  |%=0..b.      . :|
00000fd0  6a 25 2b 3d 31 0d 07 6c  3f 20 20 20 20 20 20 20  |j%+=1..l?       |
00000fe0  20 c8 99 20 22 4f 53 5f  53 70 72 69 74 65 4f 70  | .. "OS_SpriteOp|
00000ff0  22 2c 26 31 30 44 2c 73  70 72 69 74 65 73 25 2c  |",&10D,sprites%,|
00001000  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 2c 32  |pointer_block%,2|
00001010  30 2c 6a 25 0d 07 76 39  20 20 20 20 20 20 20 20  |0,j%..v9        |
00001020  73 70 32 24 3d a4 57 69  6d 70 5f 47 65 74 53 74  |sp2$=.Wimp_GetSt|
00001030  72 69 6e 67 41 74 41 64  64 72 65 73 73 28 70 6f  |ringAtAddress(po|
00001040  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 29 0d 07 80  |inter_block%)...|
00001050  1c 20 20 20 20 20 20 fd  20 6a 25 3d 6e 25 20 84  |.      . j%=n% .|
00001060  20 73 70 24 3d 73 70 32  24 0d 07 8a 33 20 20 20  | sp$=sp2$...3   |
00001070  20 20 20 e7 20 73 70 24  3d 73 70 32 24 20 8c 77  |   . sp$=sp2$ .w|
00001080  69 6d 70 25 21 33 32 3d  73 70 72 69 74 65 73 25  |imp%!32=sprites%|
00001090  20 8b 77 69 6d 70 25 21  33 32 3d 31 0d 07 94 09  | .wimp%!32=1....|
000010a0  20 20 20 20 cb 0d 07 9e  12 20 20 20 20 77 69 6d  |    .....    wim|
000010b0  70 25 21 34 3d 63 25 0d  07 a8 2f 20 20 20 20 c8  |p%!4=c%.../    .|
000010c0  99 20 22 57 69 6d 70 5f  43 72 65 61 74 65 49 63  |. "Wimp_CreateIc|
000010d0  6f 6e 22 2c 2c 77 69 6d  70 25 2b 34 20 b8 20 68  |on",,wimp%+4 . h|
000010e0  61 6e 64 6c 65 25 0d 07  b2 0d 20 20 20 20 69 25  |andle%....    i%|
000010f0  2b 3d 34 0d 07 bc 15 20  20 fd 20 28 77 69 6d 70  |+=4....  . (wimp|
00001100  25 21 69 25 29 3d 2d 31  0d 07 c6 05 cb 0d 07 d0  |%!i%)=-1........|
00001110  07 3d 63 25 0d 07 da 05  3a 0d 07 e4 25 dd 20 f2  |.=c%....:...%. .|
00001120  57 69 6d 70 5f 57 69 6e  64 6f 77 42 72 69 6e 67  |Wimp_WindowBring|
00001130  54 6f 54 6f 70 28 77 69  6e 64 6f 77 25 29 0d 07  |ToTop(window%)..|
00001140  ee 12 21 77 69 6d 70 25  3d 77 69 6e 64 6f 77 25  |..!wimp%=window%|
00001150  0d 07 f8 23 c8 99 20 22  57 69 6d 70 5f 47 65 74  |...#.. "Wimp_Get|
00001160  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 77 69  |WindowState",,wi|
00001170  6d 70 25 0d 08 02 0f 77  69 6d 70 25 21 32 38 3d  |mp%....wimp%!28=|
00001180  2d 31 0d 08 0c 1f c8 99  20 22 57 69 6d 70 5f 4f  |-1...... "Wimp_O|
00001190  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |penWindow",,wimp|
000011a0  25 0d 08 16 05 e1 0d 08  20 05 3a 0d 08 2a 20 dd  |%....... .:..* .|
000011b0  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 43 6c 6f  | .Wimp_WindowClo|
000011c0  73 65 28 77 69 6e 64 6f  77 25 29 0d 08 34 12 21  |se(window%)..4.!|
000011d0  77 69 6d 70 25 3d 77 69  6e 64 6f 77 25 0d 08 3e  |wimp%=window%..>|
000011e0  20 c8 99 20 22 57 69 6d  70 5f 43 6c 6f 73 65 57  | .. "Wimp_CloseW|
000011f0  69 6e 64 6f 77 22 2c 2c  77 69 6d 70 25 0d 08 48  |indow",,wimp%..H|
00001200  05 e1 0d 08 52 05 3a 0d  08 5c 24 dd 20 f2 57 69  |....R.:..\$. .Wi|
00001210  6d 70 5f 57 69 6e 64 6f  77 46 6f 72 63 65 44 72  |mp_WindowForceDr|
00001220  61 77 28 77 69 6e 64 6f  77 25 29 0d 08 66 10 c8  |aw(window%)..f..|
00001230  8e 20 77 69 6e 64 6f 77  25 20 ca 0d 08 70 38 20  |. window% ...p8 |
00001240  20 c9 20 2d 31 20 20 20  3a c8 99 20 22 57 69 6d  | . -1   :.. "Wim|
00001250  70 5f 46 6f 72 63 65 52  65 64 72 61 77 22 2c 2d  |p_ForceRedraw",-|
00001260  31 2c 30 2c 30 2c 32 2a  31 32 38 30 2c 32 2a 31  |1,0,0,2*1280,2*1|
00001270  30 32 34 0d 08 7a 39 20  20 7f 20 3a c8 99 20 22  |024..z9  . :.. "|
00001280  57 69 6d 70 5f 46 6f 72  63 65 52 65 64 72 61 77  |Wimp_ForceRedraw|
00001290  22 2c 77 69 6e 64 6f 77  25 2c 30 2c 2d 32 2a 31  |",window%,0,-2*1|
000012a0  30 32 34 2c 32 2a 31 32  38 30 2c 30 0d 08 84 05  |024,2*1280,0....|
000012b0  cb 0d 08 8e 05 e1 0d 08  98 05 3a 0d 08 a2 1f dd  |..........:.....|
000012c0  20 f2 57 69 6d 70 5f 57  69 6e 64 6f 77 4f 70 65  | .Wimp_WindowOpe|
000012d0  6e 28 77 69 6e 64 6f 77  25 29 0d 08 ac 12 21 77  |n(window%)....!w|
000012e0  69 6d 70 25 3d 77 69 6e  64 6f 77 25 0d 08 b6 23  |imp%=window%...#|
000012f0  c8 99 20 22 57 69 6d 70  5f 47 65 74 57 69 6e 64  |.. "Wimp_GetWind|
00001300  6f 77 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |owState",,wimp%.|
00001310  08 c0 1f c8 99 20 22 57  69 6d 70 5f 4f 70 65 6e  |..... "Wimp_Open|
00001320  57 69 6e 64 6f 77 22 2c  2c 77 69 6d 70 25 0d 08  |Window",,wimp%..|
00001330  ca 05 e1 0d 08 d4 05 3a  0d 08 de 1c dd 20 a4 57  |.......:..... .W|
00001340  69 6d 70 5f 49 63 6f 6e  42 61 72 28 53 70 72 69  |imp_IconBar(Spri|
00001350  74 65 24 29 0d 08 e8 0b  ea 20 69 63 6f 6e 25 0d  |te$)..... icon%.|
00001360  08 f2 0e 77 69 6d 70 25  21 30 3d 2d 31 0d 08 fc  |...wimp%!0=-1...|
00001370  1c 77 69 6d 70 25 21 34  3d 30 20 20 20 20 20 3a  |.wimp%!4=0     :|
00001380  77 69 6d 70 25 21 38 3d  30 0d 09 06 1c 77 69 6d  |wimp%!8=0....wim|
00001390  70 25 21 31 32 3d 36 38  20 3a 77 69 6d 70 25 21  |p%!12=68 :wimp%!|
000013a0  31 36 3d 36 38 0d 09 10  12 77 69 6d 70 25 21 32  |16=68....wimp%!2|
000013b0  30 3d 26 33 30 30 32 0d  09 1a 17 24 28 77 69 6d  |0=&3002....$(wim|
000013c0  70 25 2b 32 34 29 3d 53  70 72 69 74 65 24 0d 09  |p%+24)=Sprite$..|
000013d0  24 18 69 63 6f 6e 73 74  72 69 6e 67 25 3d 77 69  |$.iconstring%=wi|
000013e0  6d 70 25 2b 32 34 0d 09  2e 27 c8 99 20 22 57 69  |mp%+24...'.. "Wi|
000013f0  6d 70 5f 43 72 65 61 74  65 49 63 6f 6e 22 2c 2c  |mp_CreateIcon",,|
00001400  77 69 6d 70 25 20 b8 20  69 63 6f 6e 25 0d 09 38  |wimp% . icon%..8|
00001410  0a 3d 69 63 6f 6e 25 0d  09 42 05 3a 0d 09 4c 2b  |.=icon%..B.:..L+|
00001420  dd 20 f2 57 69 6d 70 5f  49 63 6f 6e 43 61 72 65  |. .Wimp_IconCare|
00001430  74 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 2c  |t(window%,icon%,|
00001440  63 68 61 72 73 25 29 0d  09 56 38 c8 99 20 22 57  |chars%)..V8.. "W|
00001450  69 6d 70 5f 53 65 74 43  61 72 65 74 50 6f 73 69  |imp_SetCaretPosi|
00001460  74 69 6f 6e 22 2c 77 69  6e 64 6f 77 25 2c 69 63  |tion",window%,ic|
00001470  6f 6e 25 2c 2c 2c 2d 31  2c 63 68 61 72 73 25 0d  |on%,,,-1,chars%.|
00001480  09 60 05 e1 0d 09 6a 05  3a 0d 09 74 23 dd 20 a4  |.`....j.:..t#. .|
00001490  57 69 6d 70 5f 49 63 6f  6e 54 65 78 74 28 77 69  |Wimp_IconText(wi|
000014a0  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 09 7e 22  |ndow%,icon%)..~"|
000014b0  77 69 6d 70 25 21 30 3d  77 69 6e 64 6f 77 25 20  |wimp%!0=window% |
000014c0  3a 77 69 6d 70 25 21 34  3d 69 63 6f 6e 25 0d 09  |:wimp%!4=icon%..|
000014d0  88 21 c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  |.!.. "Wimp_GetIc|
000014e0  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
000014f0  09 92 37 e7 20 28 28 77  69 6d 70 25 21 32 34 29  |..7. ((wimp%!24)|
00001500  20 80 20 26 31 30 30 29  3d 30 20 85 20 31 2c 22  | . &100)=0 . 1,"|
00001510  49 63 6f 6e 20 69 73 6e  27 74 20 69 6e 64 69 72  |Icon isn't indir|
00001520  65 63 74 65 64 22 0d 09  9c 10 3d 24 28 77 69 6d  |ected"....=$(wim|
00001530  70 25 21 32 38 29 0d 09  a6 05 3a 0d 09 b0 29 dd  |p%!28)....:...).|
00001540  20 a4 57 69 6d 70 5f 49  63 6f 6e 56 61 6c 69 64  | .Wimp_IconValid|
00001550  61 74 69 6f 6e 28 77 69  6e 64 6f 77 25 2c 69 63  |ation(window%,ic|
00001560  6f 6e 25 29 0d 09 ba 22  77 69 6d 70 25 21 30 3d  |on%)..."wimp%!0=|
00001570  77 69 6e 64 6f 77 25 20  3a 77 69 6d 70 25 21 34  |window% :wimp%!4|
00001580  3d 69 63 6f 6e 25 0d 09  c4 21 c8 99 20 22 57 69  |=icon%...!.. "Wi|
00001590  6d 70 5f 47 65 74 49 63  6f 6e 53 74 61 74 65 22  |mp_GetIconState"|
000015a0  2c 2c 77 69 6d 70 25 0d  09 ce 37 e7 20 28 28 77  |,,wimp%...7. ((w|
000015b0  69 6d 70 25 21 32 34 29  20 80 20 26 31 30 30 29  |imp%!24) . &100)|
000015c0  3d 30 20 85 20 31 2c 22  49 63 6f 6e 20 69 73 6e  |=0 . 1,"Icon isn|
000015d0  27 74 20 69 6e 64 69 72  65 63 74 65 64 22 0d 09  |'t indirected"..|
000015e0  d8 10 3d 24 28 77 69 6d  70 25 21 33 32 29 0d 09  |..=$(wimp%!32)..|
000015f0  e2 05 3a 0d 09 ec 26 dd  20 f2 57 69 6d 70 5f 49  |..:...&. .Wimp_I|
00001600  63 6f 6e 44 69 73 61 62  6c 65 28 77 69 6e 64 6f  |conDisable(windo|
00001610  77 25 2c 69 63 6f 6e 25  29 0d 09 f6 22 77 69 6d  |w%,icon%)..."wim|
00001620  70 25 21 30 3d 77 69 6e  64 6f 77 25 20 3a 77 69  |p%!0=window% :wi|
00001630  6d 70 25 21 34 3d 69 63  6f 6e 25 0d 0a 00 23 77  |mp%!4=icon%...#w|
00001640  69 6d 70 25 21 38 3d 31  3c 3c 32 32 20 20 20 3a  |imp%!8=1<<22   :|
00001650  77 69 6d 70 25 21 31 32  3d 31 3c 3c 32 32 0d 0a  |wimp%!12=1<<22..|
00001660  0a 21 c8 99 20 22 57 69  6d 70 5f 53 65 74 49 63  |.!.. "Wimp_SetIc|
00001670  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
00001680  0a 14 05 e1 0d 0a 1e 05  3a 0d 0a 28 25 dd 20 f2  |........:..(%. .|
00001690  57 69 6d 70 5f 49 63 6f  6e 45 6e 61 62 6c 65 28  |Wimp_IconEnable(|
000016a0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 0a  |window%,icon%)..|
000016b0  32 22 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |2"wimp%!0=window|
000016c0  25 20 3a 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  |% :wimp%!4=icon%|
000016d0  0d 0a 3c 23 77 69 6d 70  25 21 38 3d 30 20 20 20  |..<#wimp%!8=0   |
000016e0  20 20 20 20 3a 77 69 6d  70 25 21 31 32 3d 31 3c  |    :wimp%!12=1<|
000016f0  3c 32 32 0d 0a 46 21 c8  99 20 22 57 69 6d 70 5f  |<22..F!.. "Wimp_|
00001700  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
00001710  69 6d 70 25 0d 0a 50 05  e1 0d 0a 5a 05 3a 0d 0a  |imp%..P....Z.:..|
00001720  64 30 dd 20 a4 57 69 6d  70 5f 49 63 6f 6e 50 75  |d0. .Wimp_IconPu|
00001730  74 53 70 72 69 74 65 28  77 69 6e 64 6f 77 25 2c  |tSprite(window%,|
00001740  69 63 6f 6e 25 2c 73 70  72 69 74 65 24 29 0d 0a  |icon%,sprite$)..|
00001750  6e 21 77 69 6d 70 25 21  30 3d 77 69 6e 64 6f 77  |n!wimp%!0=window|
00001760  25 3a 77 69 6d 70 25 21  34 3d 69 63 6f 6e 25 0d  |%:wimp%!4=icon%.|
00001770  0a 78 21 c8 99 20 22 57  69 6d 70 5f 47 65 74 49  |.x!.. "Wimp_GetI|
00001780  63 6f 6e 53 74 61 74 65  22 2c 2c 77 69 6d 70 25  |conState",,wimp%|
00001790  0d 0a 82 1f c8 99 20 22  57 69 6d 70 5f 44 65 6c  |...... "Wimp_Del|
000017a0  65 74 65 49 63 6f 6e 22  2c 2c 77 69 6d 70 25 0d  |eteIcon",,wimp%.|
000017b0  0a 8c 3b 77 69 6d 70 25  21 34 3d 77 69 6d 70 25  |..;wimp%!4=wimp%|
000017c0  21 38 20 20 20 3a 77 69  6d 70 25 21 38 3d 77 69  |!8   :wimp%!8=wi|
000017d0  6d 70 25 21 31 32 20 20  3a 77 69 6d 70 25 21 31  |mp%!12  :wimp%!1|
000017e0  32 3d 77 69 6d 70 25 21  31 36 0d 0a 96 3d 77 69  |2=wimp%!16...=wi|
000017f0  6d 70 25 21 31 36 3d 77  69 6d 70 25 21 32 30 20  |mp%!16=wimp%!20 |
00001800  3a 77 69 6d 70 25 21 32  30 3d 77 69 6d 70 25 21  |:wimp%!20=wimp%!|
00001810  32 34 20 3a 24 28 77 69  6d 70 25 2b 32 34 29 3d  |24 :$(wimp%+24)=|
00001820  73 70 72 69 74 65 24 0d  0a a0 27 c8 99 20 22 57  |sprite$...'.. "W|
00001830  69 6d 70 5f 43 72 65 61  74 65 49 63 6f 6e 22 2c  |imp_CreateIcon",|
00001840  2c 77 69 6d 70 25 20 b8  20 69 63 6f 6e 25 0d 0a  |,wimp% . icon%..|
00001850  aa 0a 3d 69 63 6f 6e 25  0d 0a b4 05 3a 0d 0a be  |..=icon%....:...|
00001860  2c dd 20 f2 57 69 6d 70  5f 49 63 6f 6e 50 75 74  |,. .Wimp_IconPut|
00001870  54 65 78 74 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |Text(window%,ico|
00001880  6e 25 2c 74 65 78 74 24  29 0d 0a c8 22 77 69 6d  |n%,text$)..."wim|
00001890  70 25 21 30 3d 77 69 6e  64 6f 77 25 20 3a 77 69  |p%!0=window% :wi|
000018a0  6d 70 25 21 34 3d 69 63  6f 6e 25 0d 0a d2 21 c8  |mp%!4=icon%...!.|
000018b0  99 20 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |. "Wimp_GetIconS|
000018c0  74 61 74 65 22 2c 2c 77  69 6d 70 25 0d 0a dc 37  |tate",,wimp%...7|
000018d0  e7 20 28 28 77 69 6d 70  25 21 32 34 29 20 80 20  |. ((wimp%!24) . |
000018e0  26 31 30 30 29 3d 30 20  85 20 31 2c 22 49 63 6f  |&100)=0 . 1,"Ico|
000018f0  6e 20 69 73 6e 27 74 20  69 6e 64 69 72 65 63 74  |n isn't indirect|
00001900  65 64 22 0d 0a e6 15 24  28 77 69 6d 70 25 21 32  |ed"....$(wimp%!2|
00001910  38 29 3d 74 65 78 74 24  0d 0a f0 22 77 69 6d 70  |8)=text$..."wimp|
00001920  25 21 30 3d 77 69 6e 64  6f 77 25 20 3a 77 69 6d  |%!0=window% :wim|
00001930  70 25 21 34 3d 69 63 6f  6e 25 0d 0a fa 19 77 69  |p%!4=icon%....wi|
00001940  6d 70 25 21 38 3d 30 20  3a 77 69 6d 70 25 21 31  |mp%!8=0 :wimp%!1|
00001950  32 3d 30 0d 0b 04 21 c8  99 20 22 57 69 6d 70 5f  |2=0...!.. "Wimp_|
00001960  53 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 77  |SetIconState",,w|
00001970  69 6d 70 25 0d 0b 0e 05  e1 0d 0b 18 05 3a 0d 0b  |imp%.........:..|
00001980  22 05 3a 0d 0b 2c 1f dd  20 f2 57 69 6d 70 5f 4d  |".:..,.. .Wimp_M|
00001990  65 6e 75 41 64 6a 75 73  74 4f 6e 28 6d 65 6e 75  |enuAdjustOn(menu|
000019a0  25 29 0d 0b 36 2c c8 99  20 22 57 69 6d 70 5f 47  |%)..6,.. "Wimp_G|
000019b0  65 74 50 6f 69 6e 74 65  72 49 6e 66 6f 22 2c 2c  |etPointerInfo",,|
000019c0  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 0d 0b  |pointer_block%..|
000019d0  40 5d e7 20 28 28 70 6f  69 6e 74 65 72 5f 62 6c  |@]. ((pointer_bl|
000019e0  6f 63 6b 25 21 38 29 80  31 29 3d 31 20 8c c8 99  |ock%!8).1)=1 ...|
000019f0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 4d 65 6e  | "Wimp_CreateMen|
00001a00  75 22 2c 2c 6d 65 6e 75  25 2c 70 6f 69 6e 74 65  |u",,menu%,pointe|
00001a10  72 5f 62 6c 6f 63 6b 25  21 30 2c 70 6f 69 6e 74  |r_block%!0,point|
00001a20  65 72 5f 62 6c 6f 63 6b  25 21 34 0d 0b 4a 05 e1  |er_block%!4..J..|
00001a30  0d 0b 54 05 3a 0d 0b 5e  1e dd 20 a4 57 69 6d 70  |..T.:..^.. .Wimp|
00001a40  5f 4d 65 6e 75 43 68 6f  69 63 65 28 6c 65 76 65  |_MenuChoice(leve|
00001a50  6c 25 29 0d 0b 68 19 3d  28 77 69 6d 70 25 21 28  |l%)..h.=(wimp%!(|
00001a60  34 2a 6c 65 76 65 6c 25  29 29 2b 31 0d 0b 72 05  |4*level%))+1..r.|
00001a70  3a 0d 0b 7c 1d dd 20 a4  57 69 6d 70 5f 4d 65 6e  |:..|.. .Wimp_Men|
00001a80  75 43 72 65 61 74 65 28  6d 65 6e 75 24 29 0d 0b  |uCreate(menu$)..|
00001a90  86 29 e7 20 6d 65 6e 75  24 3d 22 43 6f 6c 6f 75  |.). menu$="Colou|
00001aa0  72 73 22 20 8c 3d a4 57  69 6d 70 5f 4d 65 6e 75  |rs" .=.Wimp_Menu|
00001ab0  43 6f 6c 6f 75 72 73 0d  0b 90 27 ea 20 6d 65 6e  |Colours...'. men|
00001ac0  75 25 2c 69 6e 64 65 78  25 2c 77 69 64 74 68 25  |u%,index%,width%|
00001ad0  2c 6c 65 6e 67 74 68 25  2c 6b 25 2c 73 25 0d 0b  |,length%,k%,s%..|
00001ae0  9a 2e de 20 6d 65 6e 75  25 20 32 38 2b a4 57 69  |... menu% 28+.Wi|
00001af0  6d 70 5f 4d 65 6e 75 4e  6f 4f 66 45 6e 74 72 69  |mp_MenuNoOfEntri|
00001b00  65 73 28 6d 65 6e 75 24  29 2a 32 34 0d 0b a4 35  |es(menu$)*24...5|
00001b10  6d 65 6e 75 25 3f 31 32  3d 37 20 20 20 3a 6d 65  |menu%?12=7   :me|
00001b20  6e 75 25 3f 31 33 3d 32  20 20 3a 6d 65 6e 75 25  |nu%?13=2  :menu%|
00001b30  3f 31 34 3d 37 20 3a 6d  65 6e 75 25 3f 31 35 3d  |?14=7 :menu%?15=|
00001b40  30 0d 0b ae 29 6d 65 6e  75 25 21 31 36 3d 31 34  |0...)menu%!16=14|
00001b50  30 20 3a 6d 65 6e 75 25  21 32 30 3d 34 34 20 3a  |0 :menu%!20=44 :|
00001b60  6d 65 6e 75 25 21 32 34  3d 30 0d 0b b8 13 69 6e  |menu%!24=0....in|
00001b70  64 65 78 25 3d 6d 65 6e  75 25 2b 32 38 0d 0b c2  |dex%=menu%+28...|
00001b80  20 24 6d 65 6e 75 25 3d  c0 6d 65 6e 75 24 2c a7  | $menu%=.menu$,.|
00001b90  6d 65 6e 75 24 2c 22 5c  22 29 2d 31 29 0d 0b cc  |menu$,"\")-1)...|
00001ba0  23 77 69 64 74 68 25 3d  a9 28 c0 6d 65 6e 75 24  |#width%=.(.menu$|
00001bb0  2c a7 6d 65 6e 75 24 2c  22 5c 22 29 2d 31 29 29  |,.menu$,"\")-1))|
00001bc0  0d 0b d6 23 6d 65 6e 75  24 2b 3d 22 5c 22 20 3a  |...#menu$+="\" :|
00001bd0  4d 65 6e 75 5f 4e 6f 4f  66 45 6e 74 72 69 65 73  |Menu_NoOfEntries|
00001be0  25 3d 30 0d 0b e0 10 c8  95 20 6d 65 6e 75 24 3c  |%=0...... menu$<|
00001bf0  3e 22 22 0d 0b ea 21 20  20 6d 65 6e 75 24 3d c1  |>""...!  menu$=.|
00001c00  6d 65 6e 75 24 2c a7 6d  65 6e 75 24 2c 22 5c 22  |menu$,.menu$,"\"|
00001c10  29 2b 31 29 0d 0b f4 10  20 20 c8 8e 20 6d 65 6e  |)+1)....  .. men|
00001c20  75 24 20 ca 0d 0b fe 0c  20 20 20 20 c9 20 22 22  |u$ .....    . ""|
00001c30  0d 0c 08 0b 20 20 20 20  7f 20 3a 0d 0c 12 31 20  |....    . :...1 |
00001c40  20 20 20 21 69 6e 64 65  78 25 3d 30 20 3a 69 6e  |   !index%=0 :in|
00001c50  64 65 78 25 21 34 3d 2d  31 20 3a 69 6e 64 65 78  |dex%!4=-1 :index|
00001c60  25 21 38 3d 26 37 30 30  30 30 32 31 0d 0c 1c 1d  |%!8=&7000021....|
00001c70  20 20 20 20 6c 65 6e 67  74 68 25 3d a7 6d 65 6e  |    length%=.men|
00001c80  75 24 2c 22 5c 22 29 2d  31 0d 0c 26 20 20 20 20  |u$,"\")-1..&    |
00001c90  20 6b 25 3d a7 c0 6d 65  6e 75 24 2c 6c 65 6e 67  | k%=..menu$,leng|
00001ca0  74 68 25 29 2c 22 3e 22  29 0d 0c 30 0f 20 20 20  |th%),">")..0.   |
00001cb0  20 c8 8e 20 6b 25 20 ca  0d 0c 3a 0d 20 20 20 20  | .. k% ...:.    |
00001cc0  20 20 c9 20 30 0d 0c 44  0b 20 20 20 20 20 20 7f  |  . 0..D.      .|
00001cd0  0d 0c 4e 27 20 20 20 20  20 20 73 25 3d a0 28 c1  |..N'      s%=.(.|
00001ce0  6d 65 6e 75 24 2c 6b 25  2b 31 2c 6c 65 6e 67 74  |menu$,k%+1,lengt|
00001cf0  68 25 2d 6b 25 29 29 0d  0c 58 15 20 20 20 20 20  |h%-k%))..X.     |
00001d00  20 69 6e 64 65 78 25 21  34 3d 73 25 0d 0c 62 16  | index%!4=s%..b.|
00001d10  20 20 20 20 20 20 6c 65  6e 67 74 68 25 3d 6b 25  |      length%=k%|
00001d20  2d 31 0d 0c 6c 09 20 20  20 20 cb 0d 0c 76 24 20  |-1..l.    ...v$ |
00001d30  20 20 20 24 28 69 6e 64  65 78 25 2b 31 32 29 3d  |   $(index%+12)=|
00001d40  c0 6d 65 6e 75 24 2c 6c  65 6e 67 74 68 25 29 0d  |.menu$,length%).|
00001d50  0c 80 28 20 20 20 20 e7  20 6c 65 6e 67 74 68 25  |..(    . length%|
00001d60  3e 77 69 64 74 68 25 20  8c 77 69 64 74 68 25 3d  |>width% .width%=|
00001d70  6c 65 6e 67 74 68 25 0d  0c 8a 12 20 20 20 20 69  |length%....    i|
00001d80  6e 64 65 78 25 2b 3d 32  34 0d 0c 94 07 20 20 cb  |ndex%+=24....  .|
00001d90  0d 0c 9e 05 ce 0d 0c a8  1a 6d 65 6e 75 25 21 31  |.........menu%!1|
00001da0  36 3d 31 36 2a 28 77 69  64 74 68 25 2b 31 29 0d  |6=16*(width%+1).|
00001db0  0c b2 27 69 6e 64 65 78  25 21 2d 32 34 3d 69 6e  |..'index%!-24=in|
00001dc0  64 65 78 25 21 2d 32 34  20 84 20 26 38 30 20 3a  |dex%!-24 . &80 :|
00001dd0  3d 6d 65 6e 75 25 0d 0c  bc 05 3a 0d 0c c6 17 dd  |=menu%....:.....|
00001de0  20 a4 57 69 6d 70 5f 4d  65 6e 75 43 6f 6c 6f 75  | .Wimp_MenuColou|
00001df0  72 73 0d 0c d0 21 3d a4  57 69 6d 70 5f 4d 65 6e  |rs...!=.Wimp_Men|
00001e00  75 43 72 65 61 74 65 43  6f 6c 6f 75 72 73 28 22  |uCreateColours("|
00001e10  20 22 29 0d 0c da 05 3a  0d 0c e4 25 dd 20 a4 57  | ")....:...%. .W|
00001e20  69 6d 70 5f 4d 65 6e 75  43 72 65 61 74 65 43 6f  |imp_MenuCreateCo|
00001e30  6c 6f 75 72 73 28 74 69  74 6c 65 24 29 0d 0c ee  |lours(title$)...|
00001e40  13 ea 20 78 24 2c 6d 65  6e 25 2c 6a 25 2c 69 25  |.. x$,men%,j%,i%|
00001e50  0d 0c f8 36 78 24 3d 74  69 74 6c 65 24 2b 22 5c  |...6x$=title$+"\|
00001e60  30 5c 31 5c 32 5c 33 5c  34 5c 35 5c 36 5c 37 5c  |0\1\2\3\4\5\6\7\|
00001e70  38 5c 39 5c 31 30 5c 31  31 5c 31 32 5c 31 33 5c  |8\9\10\11\12\13\|
00001e80  31 34 5c 31 35 22 0d 0d  02 1d 6d 65 6e 25 3d a4  |14\15"....men%=.|
00001e90  57 69 6d 70 5f 4d 65 6e  75 43 72 65 61 74 65 28  |Wimp_MenuCreate(|
00001ea0  78 24 29 0d 0d 0c 0f e3  20 69 25 3d 30 20 b8 20  |x$)..... i%=0 . |
00001eb0  31 35 0d 0d 16 0c 20 20  c8 8e 20 b9 20 ca 0d 0d  |15....  .. . ...|
00001ec0  20 2b 20 20 20 20 c9 20  69 25 3c 34 2c 69 25 3d  | +    . i%<4,i%=|
00001ed0  39 2c 69 25 3d 31 32 2c  69 25 3d 31 34 2c 69 25  |9,i%=12,i%=14,i%|
00001ee0  3d 31 35 20 3a 6a 25 3d  37 0d 0d 2a 0f 20 20 20  |=15 :j%=7..*.   |
00001ef0  20 7f 20 3a 6a 25 3d 30  0d 0d 34 07 20 20 cb 0d  | . :j%=0..4.  ..|
00001f00  0d 3e 1e 20 20 6d 65 6e  25 3f 28 33 39 2b 69 25  |.>.  men%?(39+i%|
00001f10  2a 32 34 29 3d 69 25 2a  31 36 2b 6a 25 0d 0d 48  |*24)=i%*16+j%..H|
00001f20  21 20 20 f2 57 69 6d 70  5f 4d 65 6e 75 43 65 6e  |!  .Wimp_MenuCen|
00001f30  74 72 65 28 6d 65 6e 25  2c 69 25 2b 31 29 0d 0d  |tre(men%,i%+1)..|
00001f40  52 05 ed 0d 0d 5c 09 3d  6d 65 6e 25 0d 0d 66 05  |R....\.=men%..f.|
00001f50  3a 0d 0d 70 22 dd 20 a4  57 69 6d 70 5f 4d 65 6e  |:..p". .Wimp_Men|
00001f60  75 4e 6f 4f 66 45 6e 74  72 69 65 73 28 6d 65 6e  |uNoOfEntries(men|
00001f70  75 24 29 0d 0d 7a 18 ea  20 6e 25 20 2c 6a 25 20  |u$)..z.. n% ,j% |
00001f80  3a 6e 25 3d 30 20 3a 6a  25 3d 30 0d 0d 84 05 f5  |:n%=0 :j%=0.....|
00001f90  0d 0d 8e 19 20 20 6a 25  3d a7 6d 65 6e 75 24 2c  |....  j%=.menu$,|
00001fa0  22 5c 22 2c 6a 25 2b 31  29 0d 0d 98 14 20 20 e7  |"\",j%+1)....  .|
00001fb0  20 6a 25 3c 3e 30 20 8c  6e 25 2b 3d 31 0d 0d a2  | j%<>0 .n%+=1...|
00001fc0  0a fd 20 6a 25 3d 30 0d  0d ac 07 3d 6e 25 0d 0d  |.. j%=0....=n%..|
00001fd0  b6 05 3a 0d 0d c0 35 dd  20 f2 57 69 6d 70 5f 4d  |..:...5. .Wimp_M|
00001fe0  65 6e 75 42 61 63 6b 47  72 6f 75 6e 64 43 6f 6c  |enuBackGroundCol|
00001ff0  6f 75 72 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |our(menu%,item%,|
00002000  63 6f 6c 6f 75 72 25 29  0d 0d ca 0e ea 20 66 6f  |colour%)..... fo|
00002010  72 65 25 2c 69 25 0d 0d  d4 26 66 6f 72 65 25 3d  |re%,i%...&fore%=|
00002020  28 6d 65 6e 75 25 3f 28  33 39 2b 28 69 74 65 6d  |(menu%?(39+(item|
00002030  25 2d 31 29 2a 32 34 29  29 83 31 36 0d 0d de 28  |%-1)*24)).16...(|
00002040  69 25 3d 28 28 6d 65 6e  75 25 3f 28 33 39 2b 28  |i%=((menu%?(39+(|
00002050  69 74 65 6d 25 2d 31 29  2a 32 34 29 29 81 31 36  |item%-1)*24)).16|
00002060  29 83 31 36 0d 0d e8 2f  6d 65 6e 75 25 3f 28 33  |).16.../menu%?(3|
00002070  39 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |9+(item%-1)*24)=|
00002080  66 6f 72 65 25 2b 31 36  2a 63 6f 6c 6f 75 72 25  |fore%+16*colour%|
00002090  2b 69 25 0d 0d f2 05 e1  0d 0d fc 05 3a 0d 0e 06  |+i%.........:...|
000020a0  23 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 43 65 6e  |#. .Wimp_MenuCen|
000020b0  74 72 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 29  |tre(menu%,item%)|
000020c0  0d 0e 10 3a 6d 65 6e 75  25 21 28 33 36 2b 28 69  |...:menu%!(36+(i|
000020d0  74 65 6d 25 2d 31 29 2a  32 34 29 3d 6d 65 6e 75  |tem%-1)*24)=menu|
000020e0  25 21 28 33 36 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(36+(item%-1)*|
000020f0  32 34 29 84 28 31 3c 3c  33 29 0d 0e 1a 05 e1 0d  |24).(1<<3)......|
00002100  0e 24 05 3a 0d 0e 2e 15  dd 20 f2 57 69 6d 70 5f  |.$.:..... .Wimp_|
00002110  4d 65 6e 75 43 6c 6f 73  65 0d 0e 38 1b c8 99 20  |MenuClose..8... |
00002120  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00002130  22 2c 2d 31 0d 0e 42 05  e1 0d 0e 4c 05 3a 0d 0e  |",-1..B....L.:..|
00002140  56 24 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 44 69  |V$. .Wimp_MenuDi|
00002150  73 61 62 6c 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |sable(menu%,item|
00002160  25 29 0d 0e 60 3b 6d 65  6e 75 25 21 28 33 36 2b  |%)..`;menu%!(36+|
00002170  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 6d 65  |(item%-1)*24)=me|
00002180  6e 75 25 21 28 33 36 2b  28 69 74 65 6d 25 2d 31  |nu%!(36+(item%-1|
00002190  29 2a 32 34 29 84 28 31  3c 3c 32 32 29 0d 0e 6a  |)*24).(1<<22)..j|
000021a0  05 e1 0d 0e 74 05 3a 0d  0e 7e 27 dd 20 f2 57 69  |....t.:..~'. .Wi|
000021b0  6d 70 5f 4d 65 6e 75 44  6f 74 74 65 64 4c 69 6e  |mp_MenuDottedLin|
000021c0  65 28 6d 65 6e 75 25 2c  69 74 65 6d 25 29 0d 0e  |e(menu%,item%)..|
000021d0  88 37 6d 65 6e 75 25 21  28 32 38 2b 28 69 74 65  |.7menu%!(28+(ite|
000021e0  6d 25 2d 31 29 2a 32 34  29 3d 28 6d 65 6e 75 25  |m%-1)*24)=(menu%|
000021f0  21 28 32 38 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(28+(item%-1)*2|
00002200  34 29 29 84 32 0d 0e 92  05 e1 0d 0e 9c 05 3a 0d  |4)).2.........:.|
00002210  0e a6 23 dd 20 f2 57 69  6d 70 5f 4d 65 6e 75 45  |..#. .Wimp_MenuE|
00002220  6e 61 62 6c 65 28 6d 65  6e 75 25 2c 69 74 65 6d  |nable(menu%,item|
00002230  25 29 0d 0e b0 22 f2 57  69 6d 70 5f 4d 65 6e 75  |%)...".Wimp_Menu|
00002240  44 69 73 61 62 6c 65 28  6d 65 6e 75 25 2c 69 74  |Disable(menu%,it|
00002250  65 6d 25 29 0d 0e ba 3b  6d 65 6e 75 25 21 28 33  |em%)...;menu%!(3|
00002260  36 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 3d  |6+(item%-1)*24)=|
00002270  6d 65 6e 75 25 21 28 33  36 2b 28 69 74 65 6d 25  |menu%!(36+(item%|
00002280  2d 31 29 2a 32 34 29 82  28 31 3c 3c 32 32 29 0d  |-1)*24).(1<<22).|
00002290  0e c4 05 e1 0d 0e ce 05  3a 0d 0e d8 35 dd 20 f2  |........:...5. .|
000022a0  57 69 6d 70 5f 4d 65 6e  75 46 6f 72 65 67 72 6f  |Wimp_MenuForegro|
000022b0  75 6e 64 43 6f 6c 6f 75  72 28 6d 65 6e 75 25 2c  |undColour(menu%,|
000022c0  69 74 65 6d 25 2c 63 6f  6c 6f 75 72 25 29 0d 0e  |item%,colour%)..|
000022d0  e2 45 6d 65 6e 75 25 3f  28 33 39 2b 28 69 74 65  |.Emenu%?(39+(ite|
000022e0  6d 25 2d 31 29 2a 32 34  29 3d 63 6f 6c 6f 75 72  |m%-1)*24)=colour|
000022f0  25 2b 31 36 2a 28 28 6d  65 6e 75 25 3f 28 33 39  |%+16*((menu%?(39|
00002300  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 29 81  |+(item%-1)*24)).|
00002310  31 36 29 0d 0e ec 05 e1  0d 0e f6 05 3a 0d 0f 00  |16).........:...|
00002320  29 dd 20 f2 57 69 6d 70  5f 4d 65 6e 75 47 6c 75  |). .Wimp_MenuGlu|
00002330  65 28 6d 65 6e 75 31 25  2c 69 74 65 6d 25 2c 6d  |e(menu1%,item%,m|
00002340  65 6e 75 32 25 29 0d 0f  0a 1e 6d 65 6e 75 31 25  |enu2%)....menu1%|
00002350  21 28 38 2b 69 74 65 6d  25 2a 32 34 29 3d 6d 65  |!(8+item%*24)=me|
00002360  6e 75 32 25 0d 0f 14 05  e1 0d 0f 1e 05 3a 0d 0f  |nu2%.........:..|
00002370  28 27 dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 49 74  |('. .Wimp_MenuIt|
00002380  65 6d 28 6d 65 6e 75 25  2c 69 74 65 6d 25 2c 69  |em(menu%,item%,i|
00002390  74 65 6d 24 29 0d 0f 32  2c 24 28 6d 65 6e 75 25  |tem$)..2,$(menu%|
000023a0  2b 28 34 30 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |+(40+(item%-1)*2|
000023b0  34 29 29 3d c0 69 74 65  6d 24 2c 31 32 29 2b bd  |4))=.item$,12)+.|
000023c0  30 0d 0f 3c 05 e1 0d 0f  46 05 3a 0d 0f 50 24 dd  |0..<....F.:..P$.|
000023d0  20 f2 57 69 6d 70 5f 4d  65 6e 75 4d 65 73 73 61  | .Wimp_MenuMessa|
000023e0  67 65 28 6d 65 6e 75 25  2c 69 74 65 6d 25 29 0d  |ge(menu%,item%).|
000023f0  0f 5a 3c 6d 65 6e 75 25  21 28 32 38 2b 28 69 74  |.Z<menu%!(28+(it|
00002400  65 6d 25 2d 31 29 2a 32  34 29 3d 28 6d 65 6e 75  |em%-1)*24)=(menu|
00002410  25 21 28 32 38 2b 28 69  74 65 6d 25 2d 31 29 2a  |%!(28+(item%-1)*|
00002420  32 34 29 29 82 28 31 3c  3c 33 29 0d 0f 64 05 e1  |24)).(1<<3)..d..|
00002430  0d 0f 6e 05 3a 0d 0f 78  22 dd 20 f2 57 69 6d 70  |..n.:..x". .Wimp|
00002440  5f 4d 65 6e 75 50 6f 70  55 70 28 4d 65 6e 75 25  |_MenuPopUp(Menu%|
00002450  2c 78 25 2c 79 25 29 0d  0f 82 0f 6d 65 6e 75 25  |,x%,y%)....menu%|
00002460  3d 4d 65 6e 75 25 0d 0f  8c 2b c8 99 20 22 57 69  |=Menu%...+.. "Wi|
00002470  6d 70 5f 43 72 65 61 74  65 4d 65 6e 75 22 2c 2c  |mp_CreateMenu",,|
00002480  6d 65 6e 75 25 2c 78 25  2d 36 34 2c 79 25 2b 32  |menu%,x%-64,y%+2|
00002490  30 0d 0f 96 05 e1 0d 0f  a0 05 3a 0d 0f aa 1f dd  |0.........:.....|
000024a0  20 f2 57 69 6d 70 5f 4d  65 6e 75 50 6f 70 55 70  | .Wimp_MenuPopUp|
000024b0  42 61 72 28 78 25 2c 79  25 29 0d 0f b4 0e ea 20  |Bar(x%,y%)..... |
000024c0  6e 25 20 3a 6e 25 3d 30  0d 0f be 2b c8 95 20 28  |n% :n%=0...+.. (|
000024d0  28 42 61 72 5f 4d 65 6e  75 25 21 28 32 38 2b 6e  |(Bar_Menu%!(28+n|
000024e0  25 2a 32 34 29 29 80 25  31 30 30 30 30 30 30 30  |%*24)).%10000000|
000024f0  29 3d 30 0d 0f c8 0b 20  20 6e 25 2b 3d 31 0d 0f  |)=0....  n%+=1..|
00002500  d2 05 ce 0d 0f dc 36 c8  99 20 22 57 69 6d 70 5f  |......6.. "Wimp_|
00002510  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 42 61 72  |CreateMenu",,Bar|
00002520  5f 4d 65 6e 75 25 2c 78  25 2d 36 34 2c 39 36 2b  |_Menu%,x%-64,96+|
00002530  28 6e 25 2b 31 29 2a 34  34 0d 0f e6 13 6d 65 6e  |(n%+1)*44....men|
00002540  75 25 3d 42 61 72 5f 4d  65 6e 75 25 0d 0f f0 05  |u%=Bar_Menu%....|
00002550  e1 0d 0f fa 05 3a 0d 10  04 21 dd 20 f2 57 69 6d  |.....:...!. .Wim|
00002560  70 5f 4d 65 6e 75 54 69  63 6b 28 6d 65 6e 75 25  |p_MenuTick(menu%|
00002570  2c 69 74 65 6d 25 29 0d  10 0e 37 6d 65 6e 75 25  |,item%)...7menu%|
00002580  21 28 32 38 2b 28 69 74  65 6d 25 2d 31 29 2a 32  |!(28+(item%-1)*2|
00002590  34 29 3d 28 6d 65 6e 75  25 21 28 32 38 2b 28 69  |4)=(menu%!(28+(i|
000025a0  74 65 6d 25 2d 31 29 2a  32 34 29 29 82 31 0d 10  |tem%-1)*24)).1..|
000025b0  18 05 e1 0d 10 22 05 3a  0d 10 2c 23 dd 20 f2 57  |.....".:..,#. .W|
000025c0  69 6d 70 5f 4d 65 6e 75  54 69 74 6c 65 28 6d 65  |imp_MenuTitle(me|
000025d0  6e 75 25 2c 74 69 74 6c  65 24 29 0d 10 36 19 24  |nu%,title$)..6.$|
000025e0  6d 65 6e 75 25 3d c0 74  69 74 6c 65 24 2c 31 32  |menu%=.title$,12|
000025f0  29 2b bd 30 0d 10 40 05  e1 0d 10 4a 05 3a 0d 10  |)+.0..@....J.:..|
00002600  54 3d dd 20 f2 57 69 6d  70 5f 4d 65 6e 75 57 72  |T=. .Wimp_MenuWr|
00002610  69 74 65 28 6d 65 6e 75  25 2c 69 74 65 6d 25 2c  |ite(menu%,item%,|
00002620  62 75 66 66 65 72 25 2c  76 61 6c 25 2c 42 75 66  |buffer%,val%,Buf|
00002630  66 65 72 4c 65 6e 67 74  68 25 29 0d 10 5e 37 6d  |ferLength%)..^7m|
00002640  65 6e 75 25 21 28 32 38  2b 28 69 74 65 6d 25 2d  |enu%!(28+(item%-|
00002650  31 29 2a 32 34 29 3d 28  6d 65 6e 75 25 21 28 32  |1)*24)=(menu%!(2|
00002660  38 2b 28 69 74 65 6d 25  2d 31 29 2a 32 34 29 29  |8+(item%-1)*24))|
00002670  84 34 0d 10 68 38 6d 65  6e 75 25 21 28 33 36 2b  |.4..h8menu%!(36+|
00002680  28 69 74 65 6d 25 2d 31  29 2a 32 34 29 3d 6d 65  |(item%-1)*24)=me|
00002690  6e 75 25 21 28 33 36 2b  28 69 74 65 6d 25 2d 31  |nu%!(36+(item%-1|
000026a0  29 2a 32 34 29 84 26 31  30 30 0d 10 72 23 6d 65  |)*24).&100..r#me|
000026b0  6e 75 25 21 28 34 30 2b  28 69 74 65 6d 25 2d 31  |nu%!(40+(item%-1|
000026c0  29 2a 32 34 29 3d 62 75  66 66 65 72 25 0d 10 7c  |)*24)=buffer%..||
000026d0  20 6d 65 6e 75 25 21 28  34 34 2b 28 69 74 65 6d  | menu%!(44+(item|
000026e0  25 2d 31 29 2a 32 34 29  3d 76 61 6c 25 0d 10 86  |%-1)*24)=val%...|
000026f0  29 6d 65 6e 75 25 21 28  34 38 2b 28 69 74 65 6d  |)menu%!(48+(item|
00002700  25 2d 31 29 2a 32 34 29  3d 42 75 66 66 65 72 4c  |%-1)*24)=BufferL|
00002710  65 6e 67 74 68 25 0d 10  90 05 e1 0d 10 9a 05 3a  |ength%.........:|
00002720  0d 10 a4 05 3a 0d 10 ae  17 dd 20 f2 57 69 6d 70  |....:..... .Wimp|
00002730  5f 53 70 72 69 74 65 73  4c 6f 61 64 0d 10 b8 2f  |_SpritesLoad.../|
00002740  f2 57 69 6d 70 5f 53 70  72 69 74 65 73 50 61 74  |.Wimp_SpritesPat|
00002750  68 4c 6f 61 64 28 22 3c  4f 62 65 79 24 44 69 72  |hLoad("<Obey$Dir|
00002760  3e 2e 53 70 72 69 74 65  73 22 29 0d 10 c2 1c 64  |>.Sprites")....d|
00002770  69 72 65 63 74 5f 73 70  72 69 74 65 73 25 3d 73  |irect_sprites%=s|
00002780  70 72 69 74 65 73 25 0d  10 cc 05 e1 0d 10 d6 05  |prites%.........|
00002790  3a 0d 10 e0 26 dd 20 f2  57 69 6d 70 5f 53 70 72  |:...&. .Wimp_Spr|
000027a0  69 74 65 73 50 61 74 68  4c 6f 61 64 28 70 61 74  |itesPathLoad(pat|
000027b0  68 6e 61 6d 65 24 29 0d  10 ea 0a ea 53 25 2c 54  |hname$).....S%,T|
000027c0  25 0d 10 f4 2c 53 25 3d  8e 22 3c 4f 62 65 79 24  |%...,S%=."<Obey$|
000027d0  44 69 72 3e 2e 53 70 72  69 74 65 73 22 3a 54 25  |Dir>.Sprites":T%|
000027e0  3d a2 23 53 25 2b 31 36  3a d9 23 53 25 0d 10 fe  |=.#S%+16:.#S%...|
000027f0  19 de 73 70 72 69 74 65  73 25 54 25 2c 73 70 6e  |..sprites%T%,spn|
00002800  61 6d 65 25 31 32 0d 11  08 1d 21 73 70 72 69 74  |ame%12....!sprit|
00002810  65 73 25 3d 54 25 3a 73  70 72 69 74 65 73 25 21  |es%=T%:sprites%!|
00002820  38 3d 30 0d 11 12 21 c8  99 22 4f 53 5f 53 70 72  |8=0...!.."OS_Spr|
00002830  69 74 65 4f 70 22 2c 26  31 30 39 2c 73 70 72 69  |iteOp",&109,spri|
00002840  74 65 73 25 0d 11 1c 2b  c8 99 22 4f 53 5f 53 70  |tes%...+.."OS_Sp|
00002850  72 69 74 65 4f 70 22 2c  26 31 30 41 2c 73 70 72  |riteOp",&10A,spr|
00002860  69 74 65 73 25 2c 70 61  74 68 6e 61 6d 65 24 0d  |ites%,pathname$.|
00002870  11 26 05 e1 0d 11 30 05  3a 0d 11 3a 05 3a 0d 11  |.&....0.:..:.:..|
00002880  44 1b dd 20 a4 57 69 6d  70 5f 46 69 6c 65 54 79  |D.. .Wimp_FileTy|
00002890  70 65 28 74 79 70 65 25  29 0d 11 4e 0c c8 8e 74  |pe(type%)..N...t|
000028a0  79 70 65 25 ca 0d 11 58  13 20 20 c9 26 46 46 46  |ype%...X.  .&FFF|
000028b0  3a 3d 22 54 65 78 74 22  0d 11 62 13 20 20 c9 26  |:="Text"..b.  .&|
000028c0  46 46 44 3a 3d 22 44 61  74 61 22 0d 11 6c 14 20  |FFD:="Data"..l. |
000028d0  20 c9 26 46 46 42 3a 3d  22 42 61 73 69 63 22 0d  | .&FFB:="Basic".|
000028e0  11 76 15 20 20 c9 26 46  46 39 3a 3d 22 53 70 72  |.v.  .&FF9:="Spr|
000028f0  69 74 65 22 0d 11 80 16  20 20 c9 26 46 45 44 3a  |ite"....  .&FED:|
00002900  3d 22 50 61 6c 65 74 74  65 22 0d 11 8a 17 20 20  |="Palette"....  |
00002910  c9 26 46 45 43 3a 3d 22  54 65 6d 70 6c 61 74 65  |.&FEC:="Template|
00002920  22 0d 11 94 13 20 20 c9  26 41 46 46 3a 3d 22 44  |"....  .&AFF:="D|
00002930  72 61 77 22 0d 11 9e 16  20 20 c9 26 31 30 30 30  |raw"....  .&1000|
00002940  3a 3d 22 46 6f 6c 64 65  72 22 0d 11 a8 1b 20 20  |:="Folder"....  |
00002950  c9 26 32 30 30 30 3a 3d  22 41 70 70 6c 69 63 61  |.&2000:="Applica|
00002960  74 69 6f 6e 22 0d 11 b2  11 20 20 7f 3d c3 7e 28  |tion"....  .=.~(|
00002970  74 79 70 65 25 29 0d 11  bc 05 cb 0d 11 c6 05 3a  |type%).........:|
00002980  0d 11 d0 1b dd 20 a4 57  69 6d 70 5f 47 65 74 46  |..... .Wimp_GetF|
00002990  69 6c 65 50 61 74 68 4e  61 6d 65 0d 11 da 27 3d  |ilePathName...'=|
000029a0  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
000029b0  74 41 64 64 72 65 73 73  28 77 69 6d 70 25 2b 34  |tAddress(wimp%+4|
000029c0  34 29 0d 11 e4 05 3a 0d  11 ee 1f dd 20 a4 57 69  |4)....:..... .Wi|
000029d0  6d 70 5f 46 69 6c 65 4c  6f 61 64 28 70 61 74 68  |mp_FileLoad(path|
000029e0  6e 61 6d 65 24 29 0d 11  f8 10 ea 53 25 2c 54 25  |name$).....S%,T%|
000029f0  2c 66 69 6c 65 25 0d 12  02 11 53 25 3d 8e 70 61  |,file%....S%=.pa|
00002a00  74 68 6e 61 6d 65 24 0d  12 0c 0e 54 25 3d a2 23  |thname$....T%=.#|
00002a10  53 25 2b 31 36 0d 12 16  08 d9 23 53 25 0d 12 20  |S%+16.....#S%.. |
00002a20  0c de 66 69 6c 65 25 54  25 0d 12 2a 22 ff 28 22  |..file%T%..*".("|
00002a30  4c 4f 41 44 22 2b 70 61  74 68 6e 61 6d 65 24 2b  |LOAD"+pathname$+|
00002a40  22 22 2b c3 7e 66 69 6c  65 25 29 0d 12 34 0a 3d  |""+.~file%)..4.=|
00002a50  66 69 6c 65 25 0d 12 3e  05 3b 0d 12 48 26 dd 20  |file%..>.;..H&. |
00002a60  a4 57 69 6d 70 5f 47 65  74 53 74 72 69 6e 67 41  |.Wimp_GetStringA|
00002a70  74 41 64 64 72 65 73 73  28 61 72 72 61 79 25 29  |tAddress(array%)|
00002a80  0d 12 52 0d ea 73 24 3a  73 24 3d 22 22 0d 12 5c  |..R..s$:s$=""..\|
00002a90  3c c8 95 28 3f 61 72 72  61 79 25 3c 3e 31 33 29  |<..(?array%<>13)|
00002aa0  80 28 3f 61 72 72 61 79  25 3c 3e 30 29 3a 73 24  |.(?array%<>0):s$|
00002ab0  2b 3d bd 28 3f 61 72 72  61 79 25 29 3a 61 72 72  |+=.(?array%):arr|
00002ac0  61 79 25 2b 3d 31 3a ce  3a 0d 12 66 07 3d 73 24  |ay%+=1:.:..f.=s$|
00002ad0  0d 12 70 05 3a 0d 12 7a  23 dd 20 a4 57 69 6d 70  |..p.:..z#. .Wimp|
00002ae0  5f 47 65 74 46 69 6c 65  46 72 6f 6d 50 61 74 68  |_GetFileFromPath|
00002af0  6e 61 6d 65 28 66 24 29  0d 12 84 11 c8 8e 20 a7  |name(f$)...... .|
00002b00  66 24 2c 22 2e 22 29 20  ca 0d 12 8e 11 20 20 c9  |f$,".") .....  .|
00002b10  20 30 20 20 20 20 3a 3d  66 24 0d 12 98 38 20 20  | 0    :=f$...8  |
00002b20  7f 20 3a 3d a4 57 69 6d  70 5f 47 65 74 46 69 6c  |. :=.Wimp_GetFil|
00002b30  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 c2 66  |eFromPathname(.f|
00002b40  24 2c a9 28 66 24 29 2d  a7 66 24 2c 22 2e 22 29  |$,.(f$)-.f$,".")|
00002b50  29 29 0d 12 a2 05 cb 0d  12 ac 05 3a 0d 12 b6 1d  |)).........:....|
00002b60  dd 20 f2 57 69 6d 70 5f  53 65 6e 64 54 6f 45 64  |. .Wimp_SendToEd|
00002b70  69 74 28 66 69 6c 65 24  29 0d 12 c0 08 ea 20 6e  |it(file$)..... n|
00002b80  25 0d 12 ca 15 77 69 6d  70 25 21 34 3d 26 36 43  |%....wimp%!4=&6C|
00002b90  43 30 31 43 30 43 0d 12  d4 0e 77 69 6d 70 25 21  |C01C0C....wimp%!|
00002ba0  31 36 3d 35 0d 12 de 0e  77 69 6d 70 25 21 33 36  |16=5....wimp%!36|
00002bb0  3d 30 0d 12 e8 11 77 69  6d 70 25 21 34 30 3d 26  |=0....wimp%!40=&|
00002bc0  46 46 46 0d 12 f2 18 24  28 77 69 6d 70 25 2b 34  |FFF....$(wimp%+4|
00002bd0  34 29 3d 66 69 6c 65 24  2b bd 30 0d 12 fc 10 6e  |4)=file$+.0....n|
00002be0  25 3d a9 66 69 6c 65 24  2b 34 35 0d 13 06 2a e7  |%=.file$+45...*.|
00002bf0  20 6e 25 83 34 20 8c 21  77 69 6d 70 25 3d 34 2b  | n%.4 .!wimp%=4+|
00002c00  28 6e 25 3e 3e 32 29 3c  3c 32 20 8b 21 77 69 6d  |(n%>>2)<<2 .!wim|
00002c10  70 25 3d 6e 25 0d 13 10  24 c8 99 20 22 57 69 6d  |p%=n%...$.. "Wim|
00002c20  70 5f 53 65 6e 64 4d 65  73 73 61 67 65 22 2c 31  |p_SendMessage",1|
00002c30  37 2c 77 69 6d 70 25 2c  30 0d 13 1a 05 e1 0d 13  |7,wimp%,0.......|
00002c40  24 05 3a 0d 13 2e 05 3a  0d 13 38 2f dd 20 f2 57  |$.:....:..8/. .W|
00002c50  69 6d 70 5f 53 74 61 72  74 28 54 61 73 6b 4e 61  |imp_Start(TaskNa|
00002c60  6d 65 24 2c 77 69 6d 70  5f 6d 65 6d 6f 72 79 25  |me$,wimp_memory%|
00002c70  2c 69 63 6f 6e 25 29 0d  13 42 25 de 20 77 69 6d  |,icon%)..B%. wim|
00002c80  70 25 20 77 69 6d 70 5f  6d 65 6d 6f 72 79 25 2c  |p% wimp_memory%,|
00002c90  69 63 6f 6e 73 25 20 69  63 6f 6e 25 0d 13 4c 28  |icons% icon%..L(|
00002ca0  e7 20 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 3c 32  |. wimp_memory%<2|
00002cb0  35 36 20 8c 77 69 6d 70  5f 6d 65 6d 6f 72 79 25  |56 .wimp_memory%|
00002cc0  3d 32 35 36 0d 13 56 1d  69 63 6f 6e 5f 6d 65 6d  |=256..V.icon_mem|
00002cd0  6f 72 79 25 3d 69 63 6f  6e 73 25 2b 69 63 6f 6e  |ory%=icons%+icon|
00002ce0  25 0d 13 60 13 74 61 73  6b 24 3d 54 61 73 6b 4e  |%..`.task$=TaskN|
00002cf0  61 6d 65 24 0d 13 6a 2a  69 6e 64 69 72 65 63 74  |ame$..j*indirect|
00002d00  5f 73 70 72 69 74 65 73  25 3d 31 20 3a 64 69 72  |_sprites%=1 :dir|
00002d10  65 63 74 5f 73 70 72 69  74 65 73 25 3d 31 0d 13  |ect_sprites%=1..|
00002d20  74 1b f2 57 69 6d 70 5f  53 65 74 45 76 65 6e 74  |t..Wimp_SetEvent|
00002d30  56 61 72 69 61 62 6c 65  73 0d 13 7e 15 ee 20 85  |Variables..~.. .|
00002d40  20 f2 57 69 6d 70 5f 45  72 72 6f 72 3a e0 0d 13  | .Wimp_Error:...|
00002d50  88 40 c8 99 22 57 69 6d  70 5f 49 6e 69 74 69 61  |.@.."Wimp_Initia|
00002d60  6c 69 73 65 22 2c 32 30  30 2c 26 34 42 35 33 34  |lise",200,&4B534|
00002d70  31 35 34 2c 54 61 73 6b  4e 61 6d 65 24 20 b8 20  |154,TaskName$ . |
00002d80  76 65 72 73 69 6f 6e 25  2c 74 61 73 6b 25 0d 13  |version%,task%..|
00002d90  92 05 e1 0d 13 9c 05 3a  0d 13 a6 1b dd 20 a4 57  |.......:..... .W|
00002da0  69 6d 70 5f 42 41 53 49  43 50 61 72 61 6d 65 74  |imp_BASICParamet|
00002db0  65 72 73 0d 13 b0 14 ea  20 63 6f 6d 24 2c 70 61  |ers..... com$,pa|
00002dc0  72 61 6d 24 2c 49 25 0d  13 ba 19 c8 99 20 22 4f  |ram$,I%...... "O|
00002dd0  53 5f 47 65 74 45 6e 76  22 20 b8 20 63 6f 6d 24  |S_GetEnv" . com$|
00002de0  0d 13 c4 0e 70 61 72 61  6d 73 24 3d 22 22 0d 13  |....params$=""..|
00002df0  ce 17 49 25 3d a7 63 6f  6d 24 2c 22 20 2d 71 75  |..I%=.com$," -qu|
00002e00  69 74 20 22 29 0d 13 d8  33 e7 20 49 25 20 8c 70  |it ")...3. I% .p|
00002e10  61 72 61 6d 73 24 3d c1  63 6f 6d 24 2c a7 63 6f  |arams$=.com$,.co|
00002e20  6d 24 2c 22 20 22 2c 49  25 2b a9 22 20 2d 71 75  |m$," ",I%+." -qu|
00002e30  69 74 20 22 29 2b 31 29  0d 13 e2 0c 3d 70 61 72  |it ")+1)....=par|
00002e40  61 6d 73 24 0d 13 ec 05  3a 0d 13 f6 1d dd 20 f2  |ams$....:..... .|
00002e50  57 69 6d 70 5f 53 65 74  45 76 65 6e 74 56 61 72  |Wimp_SetEventVar|
00002e60  69 61 62 6c 65 73 0d 14  00 17 de 20 70 6f 69 6e  |iables..... poin|
00002e70  74 65 72 5f 62 6c 6f 63  6b 25 20 32 30 0d 14 0a  |ter_block% 20...|
00002e80  2c 6e 75 6c 6c 25 3d 31  20 20 3a 64 72 61 77 25  |,null%=1  :draw%|
00002e90  3d 32 20 3a 70 6f 69 6e  74 65 72 5f 6c 65 61 76  |=2 :pointer_leav|
00002ea0  69 6e 67 25 3d 31 3c 3c  34 0d 14 14 31 70 6f 69  |ing%=1<<4...1poi|
00002eb0  6e 74 65 72 5f 65 6e 74  65 72 69 6e 67 25 3d 31  |nter_entering%=1|
00002ec0  3c 3c 35 3a 6d 6f 75 73  65 25 3d 31 3c 3c 36 3a  |<<5:mouse%=1<<6:|
00002ed0  64 72 61 67 25 3d 31 3c  3c 37 0d 14 1e 26 6b 65  |drag%=1<<7...&ke|
00002ee0  79 25 3d 31 3c 3c 38 3a  6d 65 6e 75 25 3d 31 3c  |y%=1<<8:menu%=1<|
00002ef0  3c 39 3a 73 63 72 6f 6c  6c 25 3d 31 3c 3c 31 30  |<9:scroll%=1<<10|
00002f00  0d 14 28 40 6c 6f 73 65  5f 63 61 72 65 74 25 3d  |..(@lose_caret%=|
00002f10  31 3c 3c 31 31 3a 67 61  69 6e 5f 63 61 72 65 74  |1<<11:gain_caret|
00002f20  25 3d 31 3c 3c 31 32 3a  6d 65 73 73 61 67 65 25  |%=1<<12:message%|
00002f30  3d 28 31 3c 3c 31 37 29  2b 28 31 3c 3c 31 38 29  |=(1<<17)+(1<<18)|
00002f40  0d 14 32 30 72 65 63 6f  72 64 65 72 25 3d 31 3c  |..20recorder%=1<|
00002f50  3c 31 38 3a 61 63 6b 6e  6f 77 6c 65 64 67 65 25  |<18:acknowledge%|
00002f60  3d 31 3c 3c 31 39 3a 77  69 6e 64 6f 77 25 3d 30  |=1<<19:window%=0|
00002f70  0d 14 3c 21 73 70 72 69  74 65 73 25 3d 31 3a 76  |..<!sprites%=1:v|
00002f80  65 72 73 69 6f 6e 25 3d  30 3a 74 61 73 6b 25 3d  |ersion%=0:task%=|
00002f90  30 0d 14 46 2a 42 61 72  5f 57 69 6e 64 6f 77 25  |0..F*Bar_Window%|
00002fa0  3d 2d 32 3a 42 61 72 5f  49 63 6f 6e 25 3d 30 3a  |=-2:Bar_Icon%=0:|
00002fb0  42 61 72 5f 4d 65 6e 75  25 3d 30 0d 14 50 2a 78  |Bar_Menu%=0..P*x|
00002fc0  5f 6f 72 69 67 69 6e 25  3d 30 3a 79 5f 6f 72 69  |_origin%=0:y_ori|
00002fd0  67 69 6e 25 3d 30 3a 53  61 76 65 57 69 6e 64 6f  |gin%=0:SaveWindo|
00002fe0  77 25 3d 2d 33 0d 14 5a  33 6d 65 73 73 61 67 65  |w%=-3..Z3message|
00002ff0  5f 71 75 69 74 25 3d 30  3a 6d 65 73 73 61 67 65  |_quit%=0:message|
00003000  5f 73 61 76 65 25 3d 32  3a 6d 65 73 73 61 67 65  |_save%=2:message|
00003010  5f 6c 6f 61 64 25 3d 33  0d 14 64 21 6d 6f 75 73  |_load%=3..d!mous|
00003020  65 5f 62 75 74 74 6f 6e  25 3d 32 3a 73 61 76 65  |e_button%=2:save|
00003030  5f 65 76 65 6e 74 25 3d  30 0d 14 6e 1f 74 6f 70  |_event%=0..n.top|
00003040  5f 6c 69 6e 65 25 3d 30  20 3a 62 6f 74 74 6f 6d  |_line%=0 :bottom|
00003050  5f 6c 69 6e 65 25 3d 30  0d 14 78 05 e1 0d 14 82  |_line%=0..x.....|
00003060  05 3a 0d 14 8c 11 dd 20  f2 57 69 6d 70 5f 45 72  |.:..... .Wimp_Er|
00003070  72 6f 72 0d 14 96 0a ea  58 24 2c 78 25 0d 14 a0  |ror.....X$,x%...|
00003080  09 ee 20 85 20 87 0d 14  aa 08 78 25 3d 9e 0d 14  |.. . .....x%=...|
00003090  b4 1b 58 24 3d f6 24 2b  22 61 74 6c 69 6e 65 22  |..X$=.$+"atline"|
000030a0  2b c3 28 78 25 81 31 30  29 0d 14 be 10 de 45 72  |+.(x%.10).....Er|
000030b0  72 6f 72 4d 73 67 25 33  36 0d 14 c8 45 45 72 72  |rorMsg%36...EErr|
000030c0  6f 72 4d 73 67 25 21 30  3d 33 36 3a 45 72 72 6f  |orMsg%!0=36:Erro|
000030d0  72 4d 73 67 25 21 31 32  3d 30 3a 45 72 72 6f 72  |rMsg%!12=0:Error|
000030e0  4d 73 67 25 21 31 36 3d  26 38 31 30 38 30 3a 45  |Msg%!16=&81080:E|
000030f0  72 72 6f 72 4d 73 67 25  21 32 30 3d 78 25 0d 14  |rrorMsg%!20=x%..|
00003100  d2 1f 24 28 45 72 72 6f  72 4d 73 67 25 2b 32 34  |..$(ErrorMsg%+24|
00003110  29 3d 22 21 52 75 6e 49  6d 61 67 65 22 0d 14 dc  |)="!RunImage"...|
00003120  25 c8 99 22 57 69 6d 70  5f 53 65 6e 64 4d 65 73  |%.."Wimp_SendMes|
00003130  73 61 67 65 22 2c 31 37  2c 45 72 72 6f 72 4d 73  |sage",17,ErrorMs|
00003140  67 25 0d 14 e6 1f f2 57  69 6d 70 5f 57 69 6e 64  |g%.....Wimp_Wind|
00003150  6f 77 41 6c 65 72 74 28  74 61 73 6b 24 2c 58 24  |owAlert(task$,X$|
00003160  29 0d 14 f0 13 f2 57 69  6d 70 5f 43 6c 6f 73 65  |).....Wimp_Close|
00003170  44 6f 77 6e 0d 14 fa 05  e1 0d 15 04 05 3a 0d 15  |Down.........:..|
00003180  0e 15 dd 20 f2 57 69 6d  70 5f 43 6c 6f 73 65 44  |... .Wimp_CloseD|
00003190  6f 77 6e 0d 15 18 23 c8  99 22 57 69 6d 70 5f 43  |own...#.."Wimp_C|
000031a0  6c 6f 73 65 44 6f 77 6e  22 2c 74 61 73 6b 25 2c  |loseDown",task%,|
000031b0  22 54 41 53 4b 22 0d 15  22 05 e1 0d 15 2c 05 3a  |"TASK".."....,.:|
000031c0  0d 15 36 10 dd 20 f2 57  69 6d 70 5f 51 75 69 74  |..6.. .Wimp_Quit|
000031d0  0d 15 40 0f 66 69 6e 69  73 68 65 64 25 3d b9 0d  |..@.finished%=..|
000031e0  15 4a 05 e1 0d 15 54 05  3a 0d 15 5e 23 dd 20 a4  |.J....T.:..^#. .|
000031f0  57 69 6d 70 5f 52 65 61  64 56 61 72 69 61 62 6c  |Wimp_ReadVariabl|
00003200  65 28 56 61 72 69 61 62  6c 65 24 29 0d 15 68 1b  |e(Variable$)..h.|
00003210  ea 6c 65 6e 25 2c 72 65  73 75 6c 74 25 2c 76 61  |.len%,result%,va|
00003220  72 69 61 62 6c 65 25 0d  15 72 14 24 77 69 6d 70  |riable%..r.$wimp|
00003230  25 3d 56 61 72 69 61 62  6c 65 24 0d 15 7c 33 c8  |%=Variable$..|3.|
00003240  99 22 4f 53 5f 52 65 61  64 56 61 72 56 61 6c 22  |."OS_ReadVarVal"|
00003250  2c 77 69 6d 70 25 2c 77  69 6d 70 25 2b 32 35 35  |,wimp%,wimp%+255|
00003260  2c 32 35 35 2c 2c 33 b8  2c 2c 6c 65 6e 25 0d 15  |,255,,3.,,len%..|
00003270  86 17 77 69 6d 70 25 3f  28 6c 65 6e 25 2b 32 35  |..wimp%?(len%+25|
00003280  35 29 3d 31 33 0d 15 90  11 3d 24 28 77 69 6d 70  |5)=13....=$(wimp|
00003290  25 2b 32 35 35 29 0d 15  9a 05 3a 0d 15 a4 05 3a  |%+255)....:....:|
000032a0  0d 15 ae 05 3a 0d 15 b8  18 dd 20 f2 57 69 6d 70  |....:..... .Wimp|
000032b0  5f 57 61 69 74 46 6f 72  45 76 65 6e 74 0d 15 c2  |_WaitForEvent...|
000032c0  12 ea 20 6d 61 73 6b 25  2c 65 76 65 6e 74 25 0d  |.. mask%,event%.|
000032d0  15 cc 0f 66 69 6e 69 73  68 65 64 25 3d a3 0d 15  |...finished%=...|
000032e0  d6 17 6d 61 73 6b 25 3d  25 31 31 31 30 30 30 30  |..mask%=%1110000|
000032f0  31 31 30 30 30 0d 15 e0  05 f5 0d 15 ea 28 20 20  |11000........(  |
00003300  c8 99 22 57 69 6d 70 5f  50 6f 6c 6c 22 2c 6d 61  |.."Wimp_Poll",ma|
00003310  73 6b 25 2c 77 69 6d 70  25 20 b8 20 65 76 65 6e  |sk%,wimp% . even|
00003320  74 25 0d 15 f4 11 20 20  c8 8e 20 65 76 65 6e 74  |t%....  .. event|
00003330  25 20 ca 0d 15 fe 17 20  20 20 20 c9 30 20 3a f2  |% .....    .0 :.|
00003340  4e 75 6c 6c 5f 45 76 65  6e 74 0d 16 08 20 20 20  |Null_Event...   |
00003350  20 20 c9 31 20 3a f2 57  69 6d 70 5f 50 6f 6c 6c  |  .1 :.Wimp_Poll|
00003360  44 72 61 77 57 69 6e 64  6f 77 0d 16 12 27 20 20  |DrawWindow...'  |
00003370  20 20 c9 32 20 3a c8 99  20 22 57 69 6d 70 5f 4f  |  .2 :.. "Wimp_O|
00003380  70 65 6e 57 69 6e 64 6f  77 22 2c 2c 77 69 6d 70  |penWindow",,wimp|
00003390  25 0d 16 1c 21 20 20 20  20 c9 33 20 3a f2 57 69  |%...!    .3 :.Wi|
000033a0  6d 70 5f 50 6f 6c 6c 43  6c 6f 73 65 57 69 6e 64  |mp_PollCloseWind|
000033b0  6f 77 0d 16 26 0c 20 20  20 20 c9 34 20 3a 0d 16  |ow..&.    .4 :..|
000033c0  30 0c 20 20 20 20 c9 35  20 3a 0d 16 3a 20 20 20  |0.    .5 :..:   |
000033d0  20 20 c9 36 20 3a f2 57  69 6d 70 5f 50 6f 6c 6c  |  .6 :.Wimp_Poll|
000033e0  4d 6f 75 73 65 43 6c 69  63 6b 0d 16 44 21 20 20  |MouseClick..D!  |
000033f0  20 20 c9 37 20 3a f2 57  69 6d 70 5f 50 6f 6c 6c  |  .7 :.Wimp_Poll|
00003400  53 61 76 65 4d 65 73 73  61 67 65 0d 16 4e 1e 20  |SaveMessage..N. |
00003410  20 20 20 c9 38 20 3a f2  57 69 6d 70 5f 50 6f 6c  |   .8 :.Wimp_Pol|
00003420  6c 4b 65 79 50 72 65 73  73 0d 16 58 24 20 20 20  |lKeyPress..X$   |
00003430  20 c9 39 20 3a f2 45 76  65 6e 74 5f 4d 65 6e 75  | .9 :.Event_Menu|
00003440  43 68 6f 69 63 65 28 6d  65 6e 75 25 29 0d 16 62  |Choice(menu%)..b|
00003450  0c 20 20 20 20 c9 31 30  3a 0d 16 6c 0c 20 20 20  |.    .10:..l.   |
00003460  20 c9 31 31 3a 0d 16 76  0c 20 20 20 20 c9 31 32  | .11:..v.    .12|
00003470  3a 0d 16 80 21 20 20 20  20 c9 31 37 2c 31 38 3a  |:...!    .17,18:|
00003480  f2 57 69 6d 70 5f 50 6f  6c 6c 4d 65 73 73 61 67  |.Wimp_PollMessag|
00003490  65 73 0d 16 8a 0c 20 20  20 20 c9 31 39 3a 0d 16  |es....    .19:..|
000034a0  94 07 20 20 cb 0d 16 9e  15 e7 20 63 68 65 63 6b  |..  ...... check|
000034b0  6d 6f 75 73 65 25 3d b9  20 8c 0d 16 a8 05 f5 0d  |mouse%=. .......|
000034c0  16 b2 0f c8 97 20 78 25  2c 79 25 2c 62 25 0d 16  |..... x%,y%,b%..|
000034d0  bc 0a fd 20 62 25 3d 30  0d 16 c6 11 63 68 65 63  |... b%=0....chec|
000034e0  6b 6d 6f 75 73 65 25 3d  a3 0d 16 d0 05 cd 0d 16  |kmouse%=........|
000034f0  da 0f fd 20 66 69 6e 69  73 68 65 64 25 0d 16 e4  |... finished%...|
00003500  05 e1 0d 16 ee 05 3a 0d  16 f8 1a dd 20 f2 57 69  |......:..... .Wi|
00003510  6d 70 5f 50 6f 6c 6c 44  72 61 77 57 69 6e 64 6f  |mp_PollDrawWindo|
00003520  77 0d 17 02 0b ea 20 6d  6f 72 65 25 0d 17 0c 26  |w..... more%...&|
00003530  c8 99 22 57 69 6d 70 5f  52 65 64 72 61 77 57 69  |.."Wimp_RedrawWi|
00003540  6e 64 6f 77 22 2c 2c 77  69 6d 70 25 b8 6d 6f 72  |ndow",,wimp%.mor|
00003550  65 25 0d 17 16 13 77 69  6e 64 6f 77 25 3d 77 69  |e%....window%=wi|
00003560  6d 70 25 21 30 0d 17 20  41 78 5f 6f 72 69 67 69  |mp%!0.. Ax_origi|
00003570  6e 25 3d 31 36 2b 77 69  6d 70 25 21 34 2d 77 69  |n%=16+wimp%!4-wi|
00003580  6d 70 25 21 32 30 3a 79  5f 6f 72 69 67 69 6e 25  |mp%!20:y_origin%|
00003590  3d 2d 31 36 2b 77 69 6d  70 25 21 31 36 2d 77 69  |=-16+wimp%!16-wi|
000035a0  6d 70 25 21 32 34 0d 17  2a 0b c8 95 6d 6f 72 65  |mp%!24..*...more|
000035b0  25 0d 17 34 2e 20 20 f2  45 76 65 6e 74 5f 44 72  |%..4.  .Event_Dr|
000035c0  61 77 28 77 69 6e 64 6f  77 25 2c 78 5f 6f 72 69  |aw(window%,x_ori|
000035d0  67 69 6e 25 2c 79 5f 6f  72 69 67 69 6e 25 29 0d  |gin%,y_origin%).|
000035e0  17 3e 28 20 20 c8 99 22  57 69 6d 70 5f 47 65 74  |.>(  .."Wimp_Get|
000035f0  52 65 63 74 61 6e 67 6c  65 22 2c 2c 77 69 6d 70  |Rectangle",,wimp|
00003600  25 b8 6d 6f 72 65 25 0d  17 48 05 ce 0d 17 52 05  |%.more%..H....R.|
00003610  e1 0d 17 5c 05 3a 0d 17  66 1b dd 20 f2 57 69 6d  |...\.:..f.. .Wim|
00003620  70 5f 50 6f 6c 6c 43 6c  6f 73 65 57 69 6e 64 6f  |p_PollCloseWindo|
00003630  77 0d 17 70 23 c8 99 20  22 57 69 6d 70 5f 47 65  |w..p#.. "Wimp_Ge|
00003640  74 50 6f 69 6e 74 65 72  49 6e 66 6f 22 2c 2c 77  |tPointerInfo",,w|
00003650  69 6d 70 25 0d 17 7a 26  77 69 6e 64 6f 77 25 3d  |imp%..z&window%=|
00003660  77 69 6d 70 25 21 31 32  20 3a 62 75 74 74 6f 6e  |wimp%!12 :button|
00003670  73 25 3d 77 69 6d 70 25  21 38 0d 17 84 28 f2 45  |s%=wimp%!8...(.E|
00003680  76 65 6e 74 5f 57 69 6e  64 6f 77 43 6c 6f 73 65  |vent_WindowClose|
00003690  28 77 69 6e 64 6f 77 25  2c 62 75 74 74 6f 6e 73  |(window%,buttons|
000036a0  25 29 0d 17 8e 30 21 77  69 6d 70 25 3d 77 69 6e  |%)...0!wimp%=win|
000036b0  64 6f 77 25 20 3a c8 99  20 22 57 69 6d 70 5f 43  |dow% :.. "Wimp_C|
000036c0  6c 6f 73 65 57 69 6e 64  6f 77 22 2c 2c 77 69 6d  |loseWindow",,wim|
000036d0  70 25 0d 17 98 05 e1 0d  17 a2 05 3a 0d 17 ac 1a  |p%.........:....|
000036e0  dd 20 f2 57 69 6d 70 5f  50 6f 6c 6c 4d 6f 75 73  |. .Wimp_PollMous|
000036f0  65 43 6c 69 63 6b 0d 17  b6 49 62 75 74 74 6f 6e  |eClick...Ibutton|
00003700  25 3d 77 69 6d 70 25 21  38 3a 77 69 6e 64 6f 77  |%=wimp%!8:window|
00003710  25 3d 77 69 6d 70 25 21  31 32 3a 69 63 6f 6e 25  |%=wimp%!12:icon%|
00003720  3d 77 69 6d 70 25 21 31  36 3a 78 25 3d 77 69 6d  |=wimp%!16:x%=wim|
00003730  70 25 21 30 3a 79 25 3d  77 69 6d 70 25 21 34 0d  |p%!0:y%=wimp%!4.|
00003740  17 c0 10 c8 8e 20 62 75  74 74 6f 6e 25 20 ca 0d  |..... button% ..|
00003750  17 ca 20 20 20 c9 32 20  20 20 20 3a f2 57 69 6d  |..   .2    :.Wim|
00003760  70 5f 50 6f 6c 6c 4d 65  6e 75 50 6f 70 55 70 0d  |p_PollMenuPopUp.|
00003770  17 d4 21 20 20 7f 3a c8  8e 20 a4 45 76 65 6e 74  |..!  .:.. .Event|
00003780  5f 53 61 76 65 28 77 69  6e 64 6f 77 25 29 20 ca  |_Save(window%) .|
00003790  0d 17 de 20 20 20 20 20  c9 20 b9 20 3a f2 57 69  |...     . . :.Wi|
000037a0  6d 70 5f 50 6f 6c 6c 4d  6f 75 73 65 53 61 76 65  |mp_PollMouseSave|
000037b0  0d 17 e8 25 20 20 20 20  c9 20 a3 3a f2 57 69 6d  |...%    . .:.Wim|
000037c0  70 5f 50 6f 6c 6c 45 76  65 6e 74 4d 6f 75 73 65  |p_PollEventMouse|
000037d0  43 6c 69 63 6b 0d 17 f2  07 20 20 cb 0d 17 fc 05  |Click....  .....|
000037e0  cb 0d 18 06 05 e1 0d 18  10 05 3a 0d 18 1a 19 dd  |..........:.....|
000037f0  20 f2 57 69 6d 70 5f 50  6f 6c 6c 4d 65 6e 75 50  | .Wimp_PollMenuP|
00003800  6f 70 55 70 0d 18 24 1e  6d 65 6e 75 25 3d a4 45  |opUp..$.menu%=.E|
00003810  76 65 6e 74 5f 4d 65 6e  75 28 77 69 6e 64 6f 77  |vent_Menu(window|
00003820  25 29 0d 18 2e 0f c8 8e  20 6d 65 6e 75 25 20 20  |%)...... menu%  |
00003830  ca 0d 18 38 0a 20 20 c9  20 a3 3a 0d 18 42 09 20  |...8.  . .:..B. |
00003840  20 7f 20 3a 0d 18 4c 12  20 20 c8 8e 20 77 69 6e  | . :..L.  .. win|
00003850  64 6f 77 25 20 ca 0d 18  56 14 20 20 20 20 c9 20  |dow% ...V.    . |
00003860  2d 32 20 20 20 3a 6e 25  3d 30 0d 18 60 2f 20 20  |-2   :n%=0..`/  |
00003870  20 20 c8 95 20 28 28 42  61 72 5f 4d 65 6e 75 25  |  .. ((Bar_Menu%|
00003880  21 28 32 38 2b 6e 25 2a  32 34 29 29 80 25 31 30  |!(28+n%*24)).%10|
00003890  30 30 30 30 30 30 29 3d  30 0d 18 6a 0f 20 20 20  |000000)=0..j.   |
000038a0  20 20 20 6e 25 2b 3d 31  0d 18 74 09 20 20 20 20  |   n%+=1..t.    |
000038b0  ce 0d 18 7e 3a 20 20 20  20 c8 99 20 22 57 69 6d  |...~:    .. "Wim|
000038c0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 42  |p_CreateMenu",,B|
000038d0  61 72 5f 4d 65 6e 75 25  2c 78 25 2d 36 34 2c 39  |ar_Menu%,x%-64,9|
000038e0  36 2b 28 6e 25 2b 31 29  2a 34 34 0d 18 88 31 20  |6+(n%+1)*44...1 |
000038f0  20 20 20 7f 20 3a c8 99  22 57 69 6d 70 5f 43 72  |   . :.."Wimp_Cr|
00003900  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
00003910  2c 78 25 2d 36 34 2c 79  25 2b 32 30 0d 18 92 07  |,x%-64,y%+20....|
00003920  20 20 cb 0d 18 9c 05 cb  0d 18 a6 05 e1 0d 18 b0  |  ..............|
00003930  05 3a 0d 18 ba 19 dd 20  f2 57 69 6d 70 5f 50 6f  |.:..... .Wimp_Po|
00003940  6c 6c 4d 6f 75 73 65 53  61 76 65 0d 18 c4 0e c8  |llMouseSave.....|
00003950  8e 20 69 63 6f 6e 25 20  ca 0d 18 ce 36 20 20 c9  |. icon% ....6  .|
00003960  20 30 20 3a e7 20 62 75  74 74 6f 6e 25 20 80 20  | 0 :. button% . |
00003970  26 35 30 20 8c f2 57 69  6d 70 5f 50 6f 6c 6c 44  |&50 ..Wimp_PollD|
00003980  72 61 67 42 6f 78 28 77  69 6e 64 6f 77 25 29 0d  |ragBox(window%).|
00003990  18 d8 35 20 20 c9 20 32  20 3a e7 20 62 75 74 74  |..5  . 2 :. butt|
000039a0  6f 6e 25 20 80 20 35 20  8c f2 57 69 6d 70 5f 50  |on% . 5 ..Wimp_P|
000039b0  6f 6c 6c 53 61 76 65 46  69 6c 65 28 77 69 6e 64  |ollSaveFile(wind|
000039c0  6f 77 25 29 0d 18 e2 05  cb 0d 18 ec 05 e1 0d 18  |ow%)............|
000039d0  f6 05 3a 0d 19 00 1f dd  20 f2 57 69 6d 70 5f 50  |..:..... .Wimp_P|
000039e0  6f 6c 6c 45 76 65 6e 74  4d 6f 75 73 65 43 6c 69  |ollEventMouseCli|
000039f0  63 6b 0d 19 0a 32 f2 45  76 65 6e 74 5f 4d 6f 75  |ck...2.Event_Mou|
00003a00  73 65 43 6c 69 63 6b 28  77 69 6e 64 6f 77 25 2c  |seClick(window%,|
00003a10  69 63 6f 6e 25 2c 62 75  74 74 6f 6e 25 2c 78 25  |icon%,button%,x%|
00003a20  2c 79 25 29 0d 19 14 05  e1 0d 19 1e 05 3a 0d 19  |,y%).........:..|
00003a30  28 21 dd 20 f2 57 69 6d  70 5f 50 6f 6c 6c 53 61  |(!. .Wimp_PollSa|
00003a40  76 65 46 69 6c 65 28 77  69 6e 64 6f 77 25 29 0d  |veFile(window%).|
00003a50  19 32 0a ea 66 69 6c 65  24 0d 19 3c 3d 77 69 6d  |.2..file$..<=wim|
00003a60  70 25 21 30 3d 77 69 6e  64 6f 77 25 20 3a 77 69  |p%!0=window% :wi|
00003a70  6d 70 25 21 34 3d 31 20  3a c8 99 20 22 57 69 6d  |mp%!4=1 :.. "Wim|
00003a80  70 5f 47 65 74 49 63 6f  6e 53 74 61 74 65 22 2c  |p_GetIconState",|
00003a90  2c 77 69 6d 70 25 0d 19  46 15 66 69 6c 65 24 3d  |,wimp%..F.file$=|
00003aa0  24 28 77 69 6d 70 25 21  32 38 29 0d 19 50 14 c8  |$(wimp%!28)..P..|
00003ab0  8e 20 a7 66 69 6c 65 24  2c 22 2e 22 29 20 ca 0d  |. .file$,".") ..|
00003ac0  19 5a 0d 20 20 c9 20 30  20 20 20 3a 0d 19 64 3f  |.Z.  . 0   :..d?|
00003ad0  20 20 24 28 77 69 6d 70  25 2b 34 29 3d 22 54 6f  |  $(wimp%+4)="To|
00003ae0  20 73 61 76 65 2c 20 64  72 61 67 20 74 68 65 20  | save, drag the |
00003af0  69 63 6f 6e 20 74 6f 20  61 20 64 69 72 65 63 74  |icon to a direct|
00003b00  6f 72 79 20 77 69 6e 64  6f 77 22 0d 19 6e 2a 20  |ory window"..n* |
00003b10  20 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  | .. "Wimp_Report|
00003b20  45 72 72 6f 72 22 2c 77  69 6d 70 25 2c 31 36 2c  |Error",wimp%,16,|
00003b30  74 61 73 6b 24 0d 19 78  08 20 20 7f 3a 0d 19 82  |task$..x.  .:...|
00003b40  24 20 20 f2 45 76 65 6e  74 5f 53 61 76 65 46 69  |$  .Event_SaveFi|
00003b50  6c 65 28 66 69 6c 65 24  2c 77 69 6e 64 6f 77 25  |le(file$,window%|
00003b60  29 0d 19 8c 05 cb 0d 19  96 1a c8 99 22 57 69 6d  |)..........."Wim|
00003b70  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2d 31  |p_CreateMenu",-1|
00003b80  0d 19 a0 05 e1 0d 19 aa  05 3a 0d 19 b4 20 dd 20  |.........:... . |
00003b90  f2 57 69 6d 70 5f 50 6f  6c 6c 44 72 61 67 42 6f  |.Wimp_PollDragBo|
00003ba0  78 28 77 69 6e 64 6f 77  25 29 0d 19 be 0a ea 78  |x(window%).....x|
00003bb0  25 2c 79 25 0d 19 c8 11  73 61 76 65 25 3d 77 69  |%,y%....save%=wi|
00003bc0  6e 64 6f 77 25 0d 19 d2  12 21 77 69 6d 70 25 3d  |ndow%....!wimp%=|
00003bd0  77 69 6e 64 6f 77 25 0d  19 dc 22 c8 99 22 57 69  |window%...".."Wi|
00003be0  6d 70 5f 47 65 74 57 69  6e 64 6f 77 53 74 61 74  |mp_GetWindowStat|
00003bf0  65 22 2c 2c 77 69 6d 70  25 0d 19 e6 2c 78 25 3d  |e",,wimp%...,x%=|
00003c00  77 69 6d 70 25 21 34 2d  77 69 6d 70 25 21 32 30  |wimp%!4-wimp%!20|
00003c10  3a 79 25 3d 77 69 6d 70  25 21 31 36 2d 77 69 6d  |:y%=wimp%!16-wim|
00003c20  70 25 21 32 34 0d 19 f0  0d 77 69 6d 70 25 21 34  |p%!24....wimp%!4|
00003c30  3d 30 0d 19 fa 20 c8 99  22 57 69 6d 70 5f 47 65  |=0... .."Wimp_Ge|
00003c40  74 49 63 6f 6e 53 74 61  74 65 22 2c 2c 77 69 6d  |tIconState",,wim|
00003c50  70 25 0d 1a 04 12 21 77  69 6d 70 25 3d 77 69 6e  |p%....!wimp%=win|
00003c60  64 6f 77 25 0d 1a 0e 0d  77 69 6d 70 25 21 34 3d  |dow%....wimp%!4=|
00003c70  35 0d 1a 18 2b 77 69 6d  70 25 21 38 3d 78 25 2b  |5...+wimp%!8=x%+|
00003c80  77 69 6d 70 25 21 38 3a  77 69 6d 70 25 21 31 32  |wimp%!8:wimp%!12|
00003c90  3d 79 25 2b 77 69 6d 70  25 21 31 32 0d 1a 22 2d  |=y%+wimp%!12.."-|
00003ca0  77 69 6d 70 25 21 31 36  3d 78 25 2b 77 69 6d 70  |wimp%!16=x%+wimp|
00003cb0  25 21 31 36 3a 77 69 6d  70 25 21 32 30 3d 79 25  |%!16:wimp%!20=y%|
00003cc0  2b 77 69 6d 70 25 21 32  30 0d 1a 2c 19 77 69 6d  |+wimp%!20..,.wim|
00003cd0  70 25 21 32 34 3d 30 3a  77 69 6d 70 25 21 32 38  |p%!24=0:wimp%!28|
00003ce0  3d 30 0d 1a 36 29 77 69  6d 70 25 21 33 32 3d 26  |=0..6)wimp%!32=&|
00003cf0  37 46 46 46 46 46 46 46  3a 77 69 6d 70 25 21 33  |7FFFFFFF:wimp%!3|
00003d00  36 3d 26 37 46 46 46 46  46 46 46 0d 1a 40 1b c8  |6=&7FFFFFFF..@..|
00003d10  99 22 57 69 6d 70 5f 44  72 61 67 42 6f 78 22 2c  |."Wimp_DragBox",|
00003d20  2c 77 69 6d 70 25 0d 1a  4a 05 e1 0d 1a 54 05 3a  |,wimp%..J....T.:|
00003d30  0d 1a 5e 18 dd 20 f2 57  69 6d 70 5f 50 6f 6c 6c  |..^.. .Wimp_Poll|
00003d40  4b 65 79 50 72 65 73 73  0d 1a 68 2f 77 69 6e 64  |KeyPress..h/wind|
00003d50  6f 77 25 3d 77 69 6d 70  25 21 30 3a 69 63 6f 6e  |ow%=wimp%!0:icon|
00003d60  25 3d 77 69 6d 70 25 21  34 3a 6b 65 79 25 3d 77  |%=wimp%!4:key%=w|
00003d70  69 6d 70 25 21 32 34 0d  1a 72 1d c8 8e 20 a4 45  |imp%!24..r... .E|
00003d80  76 65 6e 74 5f 53 61 76  65 28 77 69 6e 64 6f 77  |vent_Save(window|
00003d90  25 29 20 ca 0d 1a 7c 26  20 20 c9 20 b9 20 3a f2  |%) ...|&  . . :.|
00003da0  57 69 6d 70 50 6f 6c 6c  5f 53 61 76 65 46 69 6c  |WimpPoll_SaveFil|
00003db0  65 28 77 69 6e 64 6f 77  25 29 0d 1a 86 2d 20 20  |e(window%)...-  |
00003dc0  c9 20 a3 3a f2 45 76 65  6e 74 5f 4b 65 79 50 72  |. .:.Event_KeyPr|
00003dd0  65 73 73 28 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |ess(window%,icon|
00003de0  25 2c 6b 65 79 25 29 0d  1a 90 05 cb 0d 1a 9a 05  |%,key%).........|
00003df0  e1 0d 1a a4 05 3a 0d 1a  ae 1b dd 20 f2 57 69 6d  |.....:..... .Wim|
00003e00  70 5f 50 6f 6c 6c 53 61  76 65 4d 65 73 73 61 67  |p_PollSaveMessag|
00003e10  65 0d 1a b8 1e ea 66 69  6c 65 24 2c 77 69 6e 64  |e.....file$,wind|
00003e20  6f 77 25 2c 69 63 6f 6e  25 2c 78 25 2c 79 25 0d  |ow%,icon%,x%,y%.|
00003e30  1a c2 22 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |..".."Wimp_GetPo|
00003e40  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 77 69 6d 70  |interInfo",,wimp|
00003e50  25 0d 1a cc 39 77 69 6e  64 6f 77 25 3d 77 69 6d  |%...9window%=wim|
00003e60  70 25 21 31 32 3a 69 63  6f 6e 25 3d 77 69 6d 70  |p%!12:icon%=wimp|
00003e70  25 21 31 36 3a 78 25 3d  77 69 6d 70 25 21 30 3a  |%!16:x%=wimp%!0:|
00003e80  79 25 3d 77 69 6d 70 25  21 34 0d 1a d6 3b 77 69  |y%=wimp%!4...;wi|
00003e90  6d 70 25 21 30 3d 73 61  76 65 25 20 3a 77 69 6d  |mp%!0=save% :wim|
00003ea0  70 25 21 34 3d 31 20 3a  c8 99 20 22 57 69 6d 70  |p%!4=1 :.. "Wimp|
00003eb0  5f 47 65 74 49 63 6f 6e  53 74 61 74 65 22 2c 2c  |_GetIconState",,|
00003ec0  77 69 6d 70 25 0d 1a e0  15 66 69 6c 65 24 3d 24  |wimp%....file$=$|
00003ed0  28 77 69 6d 70 25 21 32  38 29 0d 1a ea 2a 66 69  |(wimp%!28)...*fi|
00003ee0  6c 65 24 3d a4 57 69 6d  70 5f 47 65 74 46 69 6c  |le$=.Wimp_GetFil|
00003ef0  65 46 72 6f 6d 50 61 74  68 6e 61 6d 65 28 66 69  |eFromPathname(fi|
00003f00  6c 65 24 29 0d 1a f4 14  77 69 6d 70 25 21 32 30  |le$)....wimp%!20|
00003f10  3d 77 69 6e 64 6f 77 25  0d 1a fe 12 77 69 6d 70  |=window%....wimp|
00003f20  25 21 32 34 3d 69 63 6f  6e 25 0d 1b 08 1b 77 69  |%!24=icon%....wi|
00003f30  6d 70 25 21 32 38 3d 78  25 3a 77 69 6d 70 25 21  |mp%!28=x%:wimp%!|
00003f40  33 32 3d 79 25 0d 1b 12  14 77 69 6d 70 25 21 33  |32=y%....wimp%!3|
00003f50  36 3d 6c 65 6e 67 74 68  25 0d 1b 1c 0e 77 69 6d  |6=length%....wim|
00003f60  70 25 21 30 3d 36 34 0d  1b 26 0e 77 69 6d 70 25  |p%!0=64..&.wimp%|
00003f70  21 31 32 3d 30 0d 1b 30  0e 77 69 6d 70 25 21 31  |!12=0..0.wimp%!1|
00003f80  36 3d 31 0d 1b 3a 11 77  69 6d 70 25 21 34 30 3d  |6=1..:.wimp%!40=|
00003f90  26 46 46 46 0d 1b 44 15  24 28 77 69 6d 70 25 2b  |&FFF..D.$(wimp%+|
00003fa0  34 34 29 3d 66 69 6c 65  24 0d 1b 4e 33 c8 99 22  |44)=file$..N3.."|
00003fb0  57 69 6d 70 5f 53 65 6e  64 4d 65 73 73 61 67 65  |Wimp_SendMessage|
00003fc0  22 2c 31 37 2c 77 69 6d  70 25 2c 77 69 6d 70 25  |",17,wimp%,wimp%|
00003fd0  21 32 30 2c 77 69 6d 70  25 21 32 34 0d 1b 58 05  |!20,wimp%!24..X.|
00003fe0  e1 0d 1b 62 05 3a 0d 1b  6c 18 dd 20 f2 57 69 6d  |...b.:..l.. .Wim|
00003ff0  70 5f 50 6f 6c 6c 4d 65  73 73 61 67 65 73 0d 1b  |p_PollMessages..|
00004000  76 0b ea 20 66 69 6c 65  24 0d 1b 80 2c 66 69 6c  |v.. file$...,fil|
00004010  65 24 3d a4 57 69 6d 70  5f 47 65 74 53 74 72 69  |e$=.Wimp_GetStri|
00004020  6e 67 41 74 41 64 64 72  65 73 73 28 77 69 6d 70  |ngAtAddress(wimp|
00004030  25 2b 34 34 29 0d 1b 8a  11 c8 8e 20 77 69 6d 70  |%+44)...... wimp|
00004040  25 21 31 36 20 ca 0d 1b  94 16 20 20 c9 20 30 20  |%!16 .....  . 0 |
00004050  3a 66 69 6e 69 73 68 65  64 25 3d b9 0d 1b 9e 0b  |:finished%=.....|
00004060  20 20 c9 20 31 20 3a 0d  1b a8 0b 20 20 c9 20 32  |  . 1 :....  . 2|
00004070  20 3a 0d 1b b2 3d 20 20  77 69 6d 70 25 21 30 3d  | :...=  wimp%!0=|
00004080  73 61 76 65 25 20 3a 77  69 6d 70 25 21 34 3d 31  |save% :wimp%!4=1|
00004090  20 3a c8 99 20 22 57 69  6d 70 5f 47 65 74 49 63  | :.. "Wimp_GetIc|
000040a0  6f 6e 53 74 61 74 65 22  2c 2c 77 69 6d 70 25 0d  |onState",,wimp%.|
000040b0  1b bc 17 20 20 24 28 77  69 6d 70 25 21 32 38 29  |...  $(wimp%!28)|
000040c0  3d 66 69 6c 65 24 0d 1b  c6 35 20 20 77 69 6d 70  |=file$...5  wimp|
000040d0  25 21 30 3d 73 61 76 65  25 20 3a 77 69 6d 70 25  |%!0=save% :wimp%|
000040e0  21 34 3d 31 20 3a 77 69  6d 70 25 21 38 3d 30 20  |!4=1 :wimp%!8=0 |
000040f0  3a 77 69 6d 70 25 21 31  32 3d 30 0d 1b d0 23 20  |:wimp%!12=0...# |
00004100  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 49 63 6f  | .. "Wimp_SetIco|
00004110  6e 53 74 61 74 65 22 2c  2c 77 69 6d 70 25 0d 1b  |nState",,wimp%..|
00004120  da 34 20 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |.4  .. "Wimp_Set|
00004130  43 61 72 65 74 50 6f 73  69 74 69 6f 6e 22 2c 73  |CaretPosition",s|
00004140  61 76 65 25 2c 31 2c 2c  2c 2d 31 2c a9 66 69 6c  |ave%,1,,,-1,.fil|
00004150  65 24 0d 1b e4 22 20 20  f2 45 76 65 6e 74 5f 53  |e$..."  .Event_S|
00004160  61 76 65 46 69 6c 65 28  66 69 6c 65 24 2c 73 61  |aveFile(file$,sa|
00004170  76 65 25 29 0d 1b ee 09  20 20 c9 20 33 0d 1b f8  |ve%)....  . 3...|
00004180  42 20 20 74 79 70 65 24  3d a4 57 69 6d 70 5f 46  |B  type$=.Wimp_F|
00004190  69 6c 65 54 79 70 65 28  77 69 6d 70 25 21 34 30  |ileType(wimp%!40|
000041a0  29 20 3a f2 45 76 65 6e  74 5f 4c 6f 61 64 46 69  |) :.Event_LoadFi|
000041b0  6c 65 28 66 69 6c 65 24  2c 74 79 70 65 24 29 0d  |le(file$,type$).|
000041c0  1c 02 05 cb 0d 1c 0c 05  e1 0d 1c 16 05 3a 0d 1c  |.............:..|
000041d0  20 26 dd 20 a4 57 69 6d  70 5f 47 65 74 53 74 72  | &. .Wimp_GetStr|
000041e0  69 6e 67 41 74 41 64 64  72 65 73 73 28 61 72 72  |ingAtAddress(arr|
000041f0  61 79 25 29 0d 1c 2a 0d  ea 73 24 3a 73 24 3d 22  |ay%)..*..s$:s$="|
00004200  22 0d 1c 34 3c c8 95 28  3f 61 72 72 61 79 25 3c  |"..4<..(?array%<|
00004210  3e 31 33 29 80 28 3f 61  72 72 61 79 25 3c 3e 30  |>13).(?array%<>0|
00004220  29 3a 73 24 2b 3d bd 28  3f 61 72 72 61 79 25 29  |):s$+=.(?array%)|
00004230  3a 61 72 72 61 79 25 2b  3d 31 3a ce 3a 0d 1c 3e  |:array%+=1:.:..>|
00004240  07 3d 73 24 0d 1c 48 05  3a 0d 1c 52 23 dd 20 a4  |.=s$..H.:..R#. .|
00004250  57 69 6d 70 5f 47 65 74  46 69 6c 65 46 72 6f 6d  |Wimp_GetFileFrom|
00004260  50 61 74 68 6e 61 6d 65  28 66 24 29 0d 1c 5c 11  |Pathname(f$)..\.|
00004270  c8 8e 20 a7 66 24 2c 22  2e 22 29 20 ca 0d 1c 66  |.. .f$,".") ...f|
00004280  11 20 20 c9 20 30 20 20  20 20 3a 3d 66 24 0d 1c  |.  . 0    :=f$..|
00004290  70 38 20 20 7f 20 3a 3d  a4 57 69 6d 70 5f 47 65  |p8  . :=.Wimp_Ge|
000042a0  74 46 69 6c 65 46 72 6f  6d 50 61 74 68 6e 61 6d  |tFileFromPathnam|
000042b0  65 28 c2 66 24 2c a9 28  66 24 29 2d a7 66 24 2c  |e(.f$,.(f$)-.f$,|
000042c0  22 2e 22 29 29 29 0d 1c  7a 05 cb 0d 1c 84 05 3a  |".")))..z......:|
000042d0  0d 1c 8e 1b dd 20 a4 57  69 6d 70 5f 46 69 6c 65  |..... .Wimp_File|
000042e0  54 79 70 65 28 74 79 70  65 25 29 0d 1c 98 0c c8  |Type(type%).....|
000042f0  8e 74 79 70 65 25 ca 0d  1c a2 13 20 20 c9 26 46  |.type%.....  .&F|
00004300  46 46 3a 3d 22 54 65 78  74 22 0d 1c ac 13 20 20  |FF:="Text"....  |
00004310  c9 26 46 46 44 3a 3d 22  44 61 74 61 22 0d 1c b6  |.&FFD:="Data"...|
00004320  14 20 20 c9 26 46 46 42  3a 3d 22 42 61 73 69 63  |.  .&FFB:="Basic|
00004330  22 0d 1c c0 15 20 20 c9  26 46 46 39 3a 3d 22 53  |"....  .&FF9:="S|
00004340  70 72 69 74 65 22 0d 1c  ca 16 20 20 c9 26 46 45  |prite"....  .&FE|
00004350  44 3a 3d 22 50 61 6c 65  74 74 65 22 0d 1c d4 17  |D:="Palette"....|
00004360  20 20 c9 26 46 45 43 3a  3d 22 54 65 6d 70 6c 61  |  .&FEC:="Templa|
00004370  74 65 22 0d 1c de 13 20  20 c9 26 41 46 46 3a 3d  |te"....  .&AFF:=|
00004380  22 44 72 61 77 22 0d 1c  e8 16 20 20 c9 26 31 30  |"Draw"....  .&10|
00004390  30 30 3a 3d 22 46 6f 6c  64 65 72 22 0d 1c f2 1b  |00:="Folder"....|
000043a0  20 20 c9 26 32 30 30 30  3a 3d 22 41 70 70 6c 69  |  .&2000:="Appli|
000043b0  63 61 74 69 6f 6e 22 0d  1c fc 11 20 20 7f 3d c3  |cation"....  .=.|
000043c0  7e 28 74 79 70 65 25 29  0d 1d 06 05 cb 0d 1d 10  |~(type%)........|
000043d0  05 3a 0d 1d 1a 10 dd 20  f2 57 69 6d 70 5f 4f 70  |.:..... .Wimp_Op|
000043e0  65 6e 0d 1d 24 17 21 74  65 6d 70 31 3d 4d 61 69  |en..$.!temp1=Mai|
000043f0  6e 5f 57 69 6e 64 6f 77  25 0d 1d 2e 16 74 65 6d  |n_Window%....tem|
00004400  70 31 21 34 3d 77 69 6d  70 25 21 34 2d 38 30 0d  |p1!4=wimp%!4-80.|
00004410  1d 38 18 74 65 6d 70 31  21 38 3d 77 69 6d 70 25  |.8.temp1!8=wimp%|
00004420  21 31 36 2d 33 33 32 0d  1d 42 14 74 65 6d 70 31  |!16-332..B.temp1|
00004430  21 31 32 3d 77 69 6d 70  25 21 34 0d 1d 4c 15 74  |!12=wimp%!4..L.t|
00004440  65 6d 70 31 21 31 36 3d  77 69 6d 70 25 21 31 36  |emp1!16=wimp%!16|
00004450  0d 1d 56 0e 74 65 6d 70  31 21 32 30 3d 30 0d 1d  |..V.temp1!20=0..|
00004460  60 0e 74 65 6d 70 31 21  32 34 3d 30 0d 1d 6a 0f  |`.temp1!24=0..j.|
00004470  74 65 6d 70 31 21 32 38  3d 2d 31 0d 1d 74 1f c8  |temp1!28=-1..t..|
00004480  99 20 22 57 69 6d 70 5f  4f 70 65 6e 57 69 6e 64  |. "Wimp_OpenWind|
00004490  6f 77 22 2c 2c 74 65 6d  70 31 0d 1d 7e 05 e1 0d  |ow",,temp1..~...|
000044a0  1d 88 05 3a 0d 1d 92 05  3a 0d 1d 9c 13 dd 20 f2  |...:....:..... .|
000044b0  69 6e 73 74 61 6c 6c 5f  69 63 6f 6e 0d 1d a6 0f  |install_icon....|
000044c0  de 20 62 69 63 6f 6e 25  20 32 30 0d 1d b0 16 24  |. bicon% 20....$|
000044d0  62 69 63 6f 6e 25 3d 22  21 70 69 70 65 5f 75 70  |bicon%="!pipe_up|
000044e0  22 0d 1d ba 30 69 63 6f  6e 62 61 72 25 3d a4 69  |"...0iconbar%=.i|
000044f0  63 6f 6e 28 26 42 37 30  30 32 31 30 32 2c 62 69  |con(&B7002102,bi|
00004500  63 6f 6e 25 2c 73 70 72  69 74 65 73 25 2c 31 30  |con%,sprites%,10|
00004510  29 0d 1d c4 05 e1 0d 1d  ce 05 3a 0d 1d d8 1d dd  |).........:.....|
00004520  a4 69 63 6f 6e 28 66 6c  61 67 25 2c 62 31 25 2c  |.icon(flag%,b1%,|
00004530  62 32 25 2c 62 33 25 29  0d 1d e2 08 ea 20 49 25  |b2%,b3%)..... I%|
00004540  0d 1d ec 0f 62 6c 6f 63  6b 25 21 30 3d 2d 31 0d  |....block%!0=-1.|
00004550  1d f6 19 62 6c 6f 63 6b  25 21 34 3d 30 3a 62 6c  |...block%!4=0:bl|
00004560  6f 63 6b 25 21 38 3d 30  0d 1e 00 1d 62 6c 6f 63  |ock%!8=0....bloc|
00004570  6b 25 21 31 32 3d 37 36  3a 62 6c 6f 63 6b 25 21  |k%!12=76:block%!|
00004580  31 36 3d 36 38 0d 1e 0a  15 66 6c 61 67 25 3d 66  |16=68....flag%=f|
00004590  6c 61 67 25 20 84 20 32  5e 38 0d 1e 14 13 62 6c  |lag% . 2^8....bl|
000045a0  6f 63 6b 25 21 32 30 3d  66 6c 61 67 25 0d 1e 1e  |ock%!20=flag%...|
000045b0  2d 62 6c 6f 63 6b 25 21  32 34 3d 62 31 25 3a 62  |-block%!24=b1%:b|
000045c0  6c 6f 63 6b 25 21 32 38  3d 62 32 25 3a 62 6c 6f  |lock%!28=b2%:blo|
000045d0  63 6b 25 21 33 32 3d 62  33 25 0d 1e 28 25 c8 99  |ck%!32=b3%..(%..|
000045e0  20 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  | "Wimp_CreateIco|
000045f0  6e 22 2c 2c 62 6c 6f 63  6b 25 20 b8 20 49 25 0d  |n",,block% . I%.|
00004600  1e 32 07 3d 49 25 0d 1e  3c 05 3a 0d 1e 46 0e dd  |.2.=I%..<.:..F..|
00004610  20 f2 50 69 70 65 5f 55  70 0d 1e 50 16 24 62 69  | .Pipe_Up..P.$bi|
00004620  63 6f 6e 25 3d 22 21 70  69 70 65 5f 75 70 22 0d  |con%="!pipe_up".|
00004630  1e 5a 21 62 6c 6f 63 6b  25 21 30 3d 2d 31 3a 62  |.Z!block%!0=-1:b|
00004640  6c 6f 63 6b 25 21 34 3d  69 63 6f 6e 62 61 72 25  |lock%!4=iconbar%|
00004650  0d 1e 64 1a 62 6c 6f 63  6b 25 21 38 3d 30 3a 62  |..d.block%!8=0:b|
00004660  6c 6f 63 6b 25 21 31 32  3d 30 0d 1e 6e 22 c8 99  |lock%!12=0..n"..|
00004670  20 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  | "Wimp_SetIconSt|
00004680  61 74 65 22 2c 2c 62 6c  6f 63 6b 25 0d 1e 78 05  |ate",,block%..x.|
00004690  e1 0d 1e 82 05 3a 0d 1e  8c 10 dd 20 f2 50 69 70  |.....:..... .Pip|
000046a0  65 5f 44 6f 77 6e 0d 1e  96 18 24 62 69 63 6f 6e  |e_Down....$bicon|
000046b0  25 3d 22 21 70 69 70 65  5f 64 6f 77 6e 22 0d 1e  |%="!pipe_down"..|
000046c0  a0 21 62 6c 6f 63 6b 25  21 30 3d 2d 31 3a 62 6c  |.!block%!0=-1:bl|
000046d0  6f 63 6b 25 21 34 3d 69  63 6f 6e 62 61 72 25 0d  |ock%!4=iconbar%.|
000046e0  1e aa 1a 62 6c 6f 63 6b  25 21 38 3d 30 3a 62 6c  |...block%!8=0:bl|
000046f0  6f 63 6b 25 21 31 32 3d  30 0d 1e b4 22 c8 99 20  |ock%!12=0...".. |
00004700  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
00004710  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 1e be 05 e1  |te",,block%.....|
00004720  0d 1e c8 05 3a 0d 1e d2  12 dd 20 f2 50 69 70 65  |....:..... .Pipe|
00004730  5f 54 6f 67 67 6c 65 0d  1e dc 14 e7 20 62 75 74  |_Toggle..... but|
00004740  74 6f 6e 5f 75 70 25 3d  b9 20 8c 0d 1e e6 10 62  |ton_up%=. .....b|
00004750  75 74 74 6f 6e 5f 75 70  25 3d a3 0d 1e f0 0e f2  |utton_up%=......|
00004760  50 69 70 65 5f 44 6f 77  6e 0d 1e fa 22 f2 57 69  |Pipe_Down...".Wi|
00004770  6d 70 5f 57 69 6e 64 6f  77 4f 70 65 6e 28 4d 61  |mp_WindowOpen(Ma|
00004780  69 6e 5f 57 69 6e 64 6f  77 25 29 0d 1f 04 05 cc  |in_Window%).....|
00004790  0d 1f 0e 10 62 75 74 74  6f 6e 5f 75 70 25 3d b9  |....button_up%=.|
000047a0  0d 1f 18 0c f2 50 69 70  65 5f 55 70 0d 1f 22 23  |.....Pipe_Up.."#|
000047b0  f2 57 69 6d 70 5f 57 69  6e 64 6f 77 43 6c 6f 73  |.Wimp_WindowClos|
000047c0  65 28 4d 61 69 6e 5f 57  69 6e 64 6f 77 25 29 0d  |e(Main_Window%).|
000047d0  1f 2c 05 cd 0d 1f 36 11  63 68 65 63 6b 6d 6f 75  |.,....6.checkmou|
000047e0  73 65 25 3d b9 0d 1f 40  05 e1 0d ff              |se%=...@....|
000047ec