0�     >!Library  - Library for Wimp Programs
� By  Tim Howard
� For 32-bit machines
(� � AU March 1994
2::
<�
FH� (Responds to RISCOS3 Desktop Save Messages and Menu Help Messages)
P::
Z
��Init
d'� � �0,�$+" at line "+Þ:�"CLOSE":�
nJ� q% 255,text1% 255,temp% TotalWindowSpace%,ind% TotalIconSpace%,n% 11
xBpp%=4:qq%=4:open%=-1:me%=-1:running%=�:path$="<Wimp$ScrapDir>"
�6ș"Wimp_Initialise",200,&4B534154,Name$ � version%
�� version%>=300 �
�,me%=�OpenMessages("<Obey$Dir>.Messages")
�ș"Wimp_CloseDown"
�$� List% 200,windows 100,menus 40
�FList%!0=0:List%!4=2:List%!8=3:List%!12=10:List%!16=&502:List%!12=1
�Qș"Wimp_Initialise",300,&4B534154,�Message(me%,"Name"),List% � version%,task%
��
�
�DragInit
�
inside%=�
��
�
��Poll
��

ș"Wimp_Poll",0,q% � code%

Ȏ code% �

� 1:�DrawWindow

"8� 2:ș"Wimp_OpenWindow",,q%:�OpenWindowWarning(q%!0)

,:� 3:ș"Wimp_CloseWindow",,q%:�CloseWindowWarning(q%!0)

6� 4:inside%=�

@� 5:inside%=�

J*� 6:�Click(q%!0,q%!4,q%!8,q%!12,q%!16)

T� 7:�SaveFilePart1

^� 8:�KeyPressed(q%!24)

h� 9:�Menu(open%)

r� 17,18:�Message

|�

�� running%=�

�ș"Wimp_CloseDown"

�$� me%<>-1 � �Close_Messages(me%)

��

�::

�
��Message

�Ȏ q%!16 �

�� 0:running%=�

�� 1:�LoadFileFromApp

�� 2:�SaveFilePart3

�*� 3:�LoadFile(�GetString(q%+44),q%!40)

�k� 10:handle%=q%!20:ș"OS_ReadVarVal","Save$Dir",List%,40,0,3 � ,,l%:List%?l%=13:�#handle%,"Run "+$List%

�� &502:
q%!12=q%!8
q%!16=&503
q%!0=128
&"$(q%+20)=�Help(q%!32,q%!36)+�0
0#ș"Wimp_SendMessage",17,q%,q%!4
:�
D�
N::
XݤHelp(window%,icon%)
b-� version%<300 � =�OldHelp(window%,icon%)
l.� window%=-2 � =�HelpMessage(me%,"IBHelp")
vȎ inside% �
�� �:
�*t$=�GetWindowNumber(window%):i$=�icon%
�� �:
�� open%=-1 � =""
�t$=�GetMenuNumber(open%)
�i$=�GetMenuItem
��
�=�HelpMessage(me%,t$+i$)
�::
�ݤOldHelp(window%,icon%)
�Ȏ window% �
��
�!h$=�WindowHelp(window%,icon%)
� version%>=300 �
/ș"Wimp_GetMenuState",1,List%,window%,icon%
(� c%=� � h$=�MenuHelp(open%,List%!0)
 �
*=h$
4::
>$��SaveFilePart2(leaf$,filetype%)
Hș"Wimp_GetPointerInfo",,q%
Rwindow%=q%!12:icon%=q%!16
\x%=q%!0:y%=q%!4
fș"Wimp_CreateMenu",,-1
pq%!0=256
zq%!12=0:q%!16=1
�/q%!20=window%:q%!24=icon%:q%!28=x%:q%!32=y%
�q%!36=0:q%!40=filetype%
�$(q%+44)=leaf$+�0
�&ș"Wimp_SendMessage",17,q%,window%
��
�::
���SaveFilePart3
�name$=�GetString(q%+44)
�q%!12=q%!8
�q%!16=3:q%!0=256
��SaveFile(name$)
�*ș"Wimp_SendMessage",18,q%,q%!20,q%!24
��FillInIcon
�
::
&��StartDrag(window%,icon%,sprite$)
$� x%,y%,xx%,yy%
.q%!0=window%
8 ș "Wimp_GetWindowState",,q%
B"xx%=q%!4-q%!20:yy%=q%!16-q%!24
Lq%!4=icon%
Vș "Wimp_GetIconState",,q%
`!q%=window%
j
q%!4=5
t!q%!8=xx%+q%!8:q%!12=yy%+q%!12
~$q%!16=xx%+q%!16: q%!20=yy%+q%!20
�q%!24=0:q%!28=0
�#q%!32=&7FFFFFFF:q%!36=&7FFFFFFF
�� dragstart%<>-1 �
�2ș"DragASprite_Start",197,1,sprite$,q%+8,q%+24
��
�ș "Wimp_DragBox",,q%
��
�draggingwindow%=window%
�draggingicon%=icon%
��
�::
���LoadFileFromApp
q%!0=256:q%!12=q%!8:

q%!16=2:q%!36=-1
leaf$=�GetString(q%+44)
!$(q%+44)=path$+"."+leaf$+�(0)
(#ș"Wimp_SendMessage",17,q%,q%!4
2�
<::
FݤIconBar(side%,sprite$)
P� icon%
Zflags%=&3002
d$(q%+24)=sprite$
nq%!0=side%
x
q%!4=0
�q%!8=-5
�q%!12=60
�q%!16=60
�q%!20=flags%
�#ș"Wimp_CreateIcon",,q% � icon%
�
=icon%
�::
���SelectIcon(window%,icon%)
�q%!0=window%:q%!4=icon%
�ș"Wimp_GetIconState",,q%
�� flags%
�flags%=q%!24
�$� (flags% � (1<<21))=(1<<21) � �
6q%!0=window%:q%!4=icon%:q%!8=(1<<21):q%!12=(1<<21)
ș"Wimp_SetIconState",,q%
�
"::
,��ClearIcon(window%,icon%)
6q%!0=window%:q%!4=icon%
@ș"Wimp_GetIconState",,q%
J� flags%
Tflags%=q%!24
^� (flags% � (1<<21))=0 � �
h0q%!0=window%:q%!4=icon%:q%!8=0:q%!12=(1<<21)
rș"Wimp_SetIconState",,q%
|�
�::
�ݤIconState(window%,icon%)
�q%!0=window%:q%!4=icon%
�ș"Wimp_GetIconState",,q%
�� flags%
�flags%=q%!24
�Ȏ (flags% � (1<<21)) �
�� 0:out%=0
�� (1<<21):out%=1
��
�	=out%
�::
���ShadeIcon(window%,icon%)
q%!0=window%:q%!4=icon%
q%!8=1<<22:q%!12=1<<22
ș"Wimp_SetIconState",,q%
&�
0::
: ��UnShadeIcon(window%,icon%)
Dq%!0=window%:q%!4=icon%
Nq%!8=0:q%!12=1<<22
Xș"Wimp_SetIconState",,q%
b�
l::
v!��IconIn(window%,icon%,text$)
�q%!0=window%
�q%!4=icon%
�ș"Wimp_GetIconState",,q%
�$(q%!28)=text$
�*q%!0=window%:q%!4=icon%:q%!8=0:q%!12=0
�ș"Wimp_SetIconState",,q%
��
�::
�ݤIconOut(window%,icon%)
�q%!0=window%
�q%!4=icon%
�ș"Wimp_GetIconState",,q%
�
=$(q%!28)
::
?ݤWindowLoad(w$)=�WindowLoadFrom("<Obey$Dir>.Templates",w$)
::
 ݤWindowLoadFrom(p$,w$)
*ș"Wimp_OpenTemplate",,p$
4
$n%=w$
>Kș"Wimp_LoadTemplate",,temp%,ind%,ind%+TotalIconSpace%,-1,w$,0 � ,,ind%
H*ș"Wimp_CreateWindow",,temp% � window%
Rș"Wimp_CloseTemplate"
\windows!pp%=window%
f
pp%=pp%+4
p=window%
z::
���OpenWindow(window%)
�q%!0=window%
�ș"Wimp_GetWindowState",,q%
�ș"Wimp_OpenWindow",,q%
��OpenWindowWarning(window%)
��
�::
���CloseWindow(window%)
�q%!0=window%
�ș"Wimp_CloseWindow",,q%
� �CloseWindowWarning(window%)
��
�::
	&��MakeMenu(title$,� menu%,number%)
	� menu% 28+(24*number%)
	�
	$,�:�:� id$:� id$="MENU>":� t$:� t$=title$
	.$menu%=t$:menu%!12=&70207
	8*w%=(�(t$)-2)*16:menu%!20=44:menu%!24=0
	Bbase%=menu%+28
	L�:� item$,hand%,flag%
	Vbase%!0=flag%:base%!4=hand%
	`&base%!8=&7000021:$(base%+12)=item$
	j-� (�(item$)+1)*16>w% � w%=(�(item$)+1)*16
	tbase%=base%+24
	~� flag%=&80
	�menu%!16=w%
	�menus!qq%=menu%
	�
qq%=qq%+4
	��
	�::
	���OpenMenu(menu%,x%,y%)
	�'ș"Wimp_CreateMenu",,menu%,x%-64,y%
	�open%=menu%
	��
	�::
	�#��OpenMenuOverIcon(menu%,x%,n%)
	�/ș"Wimp_CreateMenu",,menu%,x%-64,96+(n%*44)
open%=menu%

�
::
��KeyPressed(key%)
(�Key(key%)
2ș"Wimp_ProcessKey",key%
<�
F::
P� �GetString(array%)
Z
�s$:s$=""
d<ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�:
n=s$
x::
���DragInit
�� flag%
�5ș &20039,,"DragASprite_Start" � dragstart%;flag%
�� (flag% � 1) �
�dragstart%=-1
��
�3ș &20039,,"DragASprite_Stop" � dragstop%;flag%
�� (flag% � 1) �
�dragstop%=-1
��
� ș"OS_Byte",161,28 � ,,flag%
�� (flag% � 2)=0 �
�dragstart%=-1
dragstop%=-1
�
�
"::
,ݤLookUp(str$)
6)� version%>=300 � =�Message(me%,str$)
@� help%
J"help%=�("<Save$Dir>.Messages")
T�
^line$=�#help%
h"command$=�line$,�line$,":")-1)
r� str$=command$ � �#help%
|�#help%
�%=�line$,(�(line$)-�(command$))-1)
�::
���MessageBox(top$,bottom$)
�!q%=255
�$(q%+4)=bottom$+�(0)
�'ș"Wimp_ReportError",q%,%10001,top$
��
�::
���Error(code$)
�!q%=255
�$(q%+4)=�LookUp(code$)+�0
�*ș"Wimp_ReportError",q%,%10001,"Error"
��
::
ݤStripPath(window%,icon%)
� b%,c$,c%
&c$=�IconOut(window%,icon%)
0�
:c%=�(c$)
Db%=�c$,".")
N� b%<>0 � c$=�c$,(c%-b%))
X
� b%=0
b=c$
l::
vݤOpenMessages(file$)
�� file%
�!ș"OS_Module",6,,,16 �,,file%
�+ș"MessageTrans_OpenFile",file%,file$,0
�
=file%
�::
�ݤMessage(file%,tag$)
�
� string$
�Dș"MessageTrans_Lookup",file%,tag$,0,0,0,0,0,0 � ,,string$;flag%
�=string$
�::
�ݤMessageA(file%,tag$,one$)
�
� string$
�Nș "MessageTrans_Lookup",file%,tag$,List%,256,one$,0,0,0 � ,,string$;flag%

=string$

::

� �Close_Messages(file%)

 %ș "MessageTrans_CloseFile",file%

*ș "OS_Module", 7,,file%

4�

>::

HݤGetWindowNumber(window%)

R� w%,y%

\	y%=-1

f� w%=4 � pp%

p � windows!w%=window% � y%=w%

z�

�
y%=y% � 4

�=�y%+"^"

�::

�ݤGetMenuNumber(a%)

�� w%,y%

�	y%=-1

�� w%=4 � qq%

�� menus!w%=a% � y%=w%

��

�
y%=y% � 4

�=�y%+"&"

�::

�ݤGetMenuItem
/ș"Wimp_GetMenuState",1,List%,window%,icon%

=�List%!0
::
$ݤHelpMessage(file%,tag$)
.Eș"XMessageTrans_Lookup",file%,tag$,0,0,0,0,0,0 � ,,string$;flag%
8"� (flag% � 1) � ="" � =string$
B::
L��PlacePane(window%,pw%,s%)
V!� x%,y%,panew%,paneh%,xx%,yy%
`q%!0=window%
jș"Wimp_GetWindowState",,q%
t'x%=q%!4:y%=q%!8:xx%=q%!12:yy%=q%!16
~::
�q%!0=pw%
�ș"Wimp_GetWindowState",,q%
�'panew%=q%!12-q%!4:paneh%=q%!16-q%!8
�::
�Ȏ s% �
�J� 1:q%!4=x%-panew%:q%!8=yy%-paneh%:q%!12=q%!4+panew%:q%!16=q%!8+paneh%
�D� 2:q%!4=x%:q%!8=y%-paneh%-2:q%!12=q%!4+panew%:q%!16=q%!8+paneh%
��
�::
�q%!28=-1
�ș"Wimp_OpenWindow",,q%
��
::

��DrawWindow
"ș"Wimp_RedrawWindow",,q% � f%
	ȕ f%
(�UpdateWindow(q%!0)
2"ș"Wimp_GetRectangle",,q% � f%
<�
F�
�

00000000  0d 00 0a 30 f4 20 20 20  20 20 3e 21 4c 69 62 72  |...0.     >!Libr|
00000010  61 72 79 20 20 2d 20 4c  69 62 72 61 72 79 20 66  |ary  - Library f|
00000020  6f 72 20 57 69 6d 70 20  50 72 6f 67 72 61 6d 73  |or Wimp Programs|
00000030  0d 00 14 14 f4 20 42 79  20 20 54 69 6d 20 48 6f  |..... By  Tim Ho|
00000040  77 61 72 64 0d 00 1e 19  f4 20 46 6f 72 20 33 32  |ward..... For 32|
00000050  2d 62 69 74 20 6d 61 63  68 69 6e 65 73 0d 00 28  |-bit machines..(|
00000060  15 f4 20 a9 20 41 55 20  4d 61 72 63 68 20 31 39  |.. . AU March 19|
00000070  39 34 0d 00 32 06 3a 3a  0d 00 3c 05 e0 0d 00 46  |94..2.::..<....F|
00000080  48 f4 20 28 52 65 73 70  6f 6e 64 73 20 74 6f 20  |H. (Responds to |
00000090  52 49 53 43 4f 53 33 20  44 65 73 6b 74 6f 70 20  |RISCOS3 Desktop |
000000a0  53 61 76 65 20 4d 65 73  73 61 67 65 73 20 61 6e  |Save Messages an|
000000b0  64 20 4d 65 6e 75 20 48  65 6c 70 20 4d 65 73 73  |d Menu Help Mess|
000000c0  61 67 65 73 29 0d 00 50  06 3a 3a 0d 00 5a 0a dd  |ages)..P.::..Z..|
000000d0  f2 49 6e 69 74 0d 00 64  27 ee 20 85 20 85 30 2c  |.Init..d'. . .0,|
000000e0  f6 24 2b 22 20 61 74 20  6c 69 6e 65 20 22 2b c3  |.$+" at line "+.|
000000f0  9e 3a ff 22 43 4c 4f 53  45 22 3a e0 0d 00 6e 4a  |.:."CLOSE":...nJ|
00000100  de 20 71 25 20 32 35 35  2c 74 65 78 74 31 25 20  |. q% 255,text1% |
00000110  32 35 35 2c 74 65 6d 70  25 20 54 6f 74 61 6c 57  |255,temp% TotalW|
00000120  69 6e 64 6f 77 53 70 61  63 65 25 2c 69 6e 64 25  |indowSpace%,ind%|
00000130  20 54 6f 74 61 6c 49 63  6f 6e 53 70 61 63 65 25  | TotalIconSpace%|
00000140  2c 6e 25 20 31 31 0d 00  78 42 70 70 25 3d 34 3a  |,n% 11..xBpp%=4:|
00000150  71 71 25 3d 34 3a 6f 70  65 6e 25 3d 2d 31 3a 6d  |qq%=4:open%=-1:m|
00000160  65 25 3d 2d 31 3a 72 75  6e 6e 69 6e 67 25 3d b9  |e%=-1:running%=.|
00000170  3a 70 61 74 68 24 3d 22  3c 57 69 6d 70 24 53 63  |:path$="<Wimp$Sc|
00000180  72 61 70 44 69 72 3e 22  0d 00 82 36 c8 99 22 57  |rapDir>"...6.."W|
00000190  69 6d 70 5f 49 6e 69 74  69 61 6c 69 73 65 22 2c  |imp_Initialise",|
000001a0  32 30 30 2c 26 34 42 35  33 34 31 35 34 2c 4e 61  |200,&4B534154,Na|
000001b0  6d 65 24 20 b8 20 76 65  72 73 69 6f 6e 25 0d 00  |me$ . version%..|
000001c0  8c 15 e7 20 76 65 72 73  69 6f 6e 25 3e 3d 33 30  |... version%>=30|
000001d0  30 20 8c 0d 00 96 2c 6d  65 25 3d a4 4f 70 65 6e  |0 ....,me%=.Open|
000001e0  4d 65 73 73 61 67 65 73  28 22 3c 4f 62 65 79 24  |Messages("<Obey$|
000001f0  44 69 72 3e 2e 4d 65 73  73 61 67 65 73 22 29 0d  |Dir>.Messages").|
00000200  00 a0 16 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |....."Wimp_Close|
00000210  44 6f 77 6e 22 0d 00 aa  24 de 20 4c 69 73 74 25  |Down"...$. List%|
00000220  20 32 30 30 2c 77 69 6e  64 6f 77 73 20 31 30 30  | 200,windows 100|
00000230  2c 6d 65 6e 75 73 20 34  30 0d 00 b4 46 4c 69 73  |,menus 40...FLis|
00000240  74 25 21 30 3d 30 3a 4c  69 73 74 25 21 34 3d 32  |t%!0=0:List%!4=2|
00000250  3a 4c 69 73 74 25 21 38  3d 33 3a 4c 69 73 74 25  |:List%!8=3:List%|
00000260  21 31 32 3d 31 30 3a 4c  69 73 74 25 21 31 36 3d  |!12=10:List%!16=|
00000270  26 35 30 32 3a 4c 69 73  74 25 21 31 32 3d 31 0d  |&502:List%!12=1.|
00000280  00 be 51 c8 99 22 57 69  6d 70 5f 49 6e 69 74 69  |..Q.."Wimp_Initi|
00000290  61 6c 69 73 65 22 2c 33  30 30 2c 26 34 42 35 33  |alise",300,&4B53|
000002a0  34 31 35 34 2c a4 4d 65  73 73 61 67 65 28 6d 65  |4154,.Message(me|
000002b0  25 2c 22 4e 61 6d 65 22  29 2c 4c 69 73 74 25 20  |%,"Name"),List% |
000002c0  b8 20 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |. version%,task%|
000002d0  0d 00 c8 05 cd 0d 00 d2  0d f2 44 72 61 67 49 6e  |..........DragIn|
000002e0  69 74 0d 00 dc 0d 69 6e  73 69 64 65 25 3d a3 0d  |it....inside%=..|
000002f0  00 e6 05 e1 0d 00 f0 0a  dd f2 50 6f 6c 6c 0d 00  |..........Poll..|
00000300  fa 05 f5 0d 01 04 1e c8  99 22 57 69 6d 70 5f 50  |........."Wimp_P|
00000310  6f 6c 6c 22 2c 30 2c 71  25 20 b8 20 63 6f 64 65  |oll",0,q% . code|
00000320  25 0d 01 0e 0e c8 8e 20  63 6f 64 65 25 20 ca 0d  |%...... code% ..|
00000330  01 18 13 c9 20 31 3a f2  44 72 61 77 57 69 6e 64  |.... 1:.DrawWind|
00000340  6f 77 0d 01 22 38 c9 20  32 3a c8 99 22 57 69 6d  |ow.."8. 2:.."Wim|
00000350  70 5f 4f 70 65 6e 57 69  6e 64 6f 77 22 2c 2c 71  |p_OpenWindow",,q|
00000360  25 3a f2 4f 70 65 6e 57  69 6e 64 6f 77 57 61 72  |%:.OpenWindowWar|
00000370  6e 69 6e 67 28 71 25 21  30 29 0d 01 2c 3a c9 20  |ning(q%!0)..,:. |
00000380  33 3a c8 99 22 57 69 6d  70 5f 43 6c 6f 73 65 57  |3:.."Wimp_CloseW|
00000390  69 6e 64 6f 77 22 2c 2c  71 25 3a f2 43 6c 6f 73  |indow",,q%:.Clos|
000003a0  65 57 69 6e 64 6f 77 57  61 72 6e 69 6e 67 28 71  |eWindowWarning(q|
000003b0  25 21 30 29 0d 01 36 11  c9 20 34 3a 69 6e 73 69  |%!0)..6.. 4:insi|
000003c0  64 65 25 3d a3 0d 01 40  11 c9 20 35 3a 69 6e 73  |de%=...@.. 5:ins|
000003d0  69 64 65 25 3d b9 0d 01  4a 2a c9 20 36 3a f2 43  |ide%=...J*. 6:.C|
000003e0  6c 69 63 6b 28 71 25 21  30 2c 71 25 21 34 2c 71  |lick(q%!0,q%!4,q|
000003f0  25 21 38 2c 71 25 21 31  32 2c 71 25 21 31 36 29  |%!8,q%!12,q%!16)|
00000400  0d 01 54 16 c9 20 37 3a  f2 53 61 76 65 46 69 6c  |..T.. 7:.SaveFil|
00000410  65 50 61 72 74 31 0d 01  5e 1a c9 20 38 3a f2 4b  |ePart1..^.. 8:.K|
00000420  65 79 50 72 65 73 73 65  64 28 71 25 21 32 34 29  |eyPressed(q%!24)|
00000430  0d 01 68 14 c9 20 39 3a  f2 4d 65 6e 75 28 6f 70  |..h.. 9:.Menu(op|
00000440  65 6e 25 29 0d 01 72 14  c9 20 31 37 2c 31 38 3a  |en%)..r.. 17,18:|
00000450  f2 4d 65 73 73 61 67 65  0d 01 7c 05 cb 0d 01 86  |.Message..|.....|
00000460  10 fd 20 72 75 6e 6e 69  6e 67 25 3d a3 0d 01 90  |.. running%=....|
00000470  16 c8 99 22 57 69 6d 70  5f 43 6c 6f 73 65 44 6f  |..."Wimp_CloseDo|
00000480  77 6e 22 0d 01 9a 24 e7  20 6d 65 25 3c 3e 2d 31  |wn"...$. me%<>-1|
00000490  20 8c 20 f2 43 6c 6f 73  65 5f 4d 65 73 73 61 67  | . .Close_Messag|
000004a0  65 73 28 6d 65 25 29 0d  01 a4 05 e1 0d 01 ae 06  |es(me%).........|
000004b0  3a 3a 0d 01 b8 0d dd f2  4d 65 73 73 61 67 65 0d  |::......Message.|
000004c0  01 c2 0e c8 8e 20 71 25  21 31 36 20 ca 0d 01 cc  |..... q%!16 ....|
000004d0  12 c9 20 30 3a 72 75 6e  6e 69 6e 67 25 3d a3 0d  |.. 0:running%=..|
000004e0  01 d6 18 c9 20 31 3a f2  4c 6f 61 64 46 69 6c 65  |.... 1:.LoadFile|
000004f0  46 72 6f 6d 41 70 70 0d  01 e0 16 c9 20 32 3a f2  |FromApp..... 2:.|
00000500  53 61 76 65 46 69 6c 65  50 61 72 74 33 0d 01 ea  |SaveFilePart3...|
00000510  2a c9 20 33 3a f2 4c 6f  61 64 46 69 6c 65 28 a4  |*. 3:.LoadFile(.|
00000520  47 65 74 53 74 72 69 6e  67 28 71 25 2b 34 34 29  |GetString(q%+44)|
00000530  2c 71 25 21 34 30 29 0d  01 f4 6b c9 20 31 30 3a  |,q%!40)...k. 10:|
00000540  68 61 6e 64 6c 65 25 3d  71 25 21 32 30 3a c8 99  |handle%=q%!20:..|
00000550  22 4f 53 5f 52 65 61 64  56 61 72 56 61 6c 22 2c  |"OS_ReadVarVal",|
00000560  22 53 61 76 65 24 44 69  72 22 2c 4c 69 73 74 25  |"Save$Dir",List%|
00000570  2c 34 30 2c 30 2c 33 20  b8 20 2c 2c 6c 25 3a 4c  |,40,0,3 . ,,l%:L|
00000580  69 73 74 25 3f 6c 25 3d  31 33 3a d5 23 68 61 6e  |ist%?l%=13:.#han|
00000590  64 6c 65 25 2c 22 52 75  6e 20 22 2b 24 4c 69 73  |dle%,"Run "+$Lis|
000005a0  74 25 0d 01 fe 0b c9 20  26 35 30 32 3a 0d 02 08  |t%..... &502:...|
000005b0  0e 71 25 21 31 32 3d 71  25 21 38 0d 02 12 0e 71  |.q%!12=q%!8....q|
000005c0  25 21 31 36 3d 26 35 30  33 0d 02 1c 0c 71 25 21  |%!16=&503....q%!|
000005d0  30 3d 31 32 38 0d 02 26  22 24 28 71 25 2b 32 30  |0=128..&"$(q%+20|
000005e0  29 3d a4 48 65 6c 70 28  71 25 21 33 32 2c 71 25  |)=.Help(q%!32,q%|
000005f0  21 33 36 29 2b bd 30 0d  02 30 23 c8 99 22 57 69  |!36)+.0..0#.."Wi|
00000600  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00000610  31 37 2c 71 25 2c 71 25  21 34 0d 02 3a 05 cb 0d  |17,q%,q%!4..:...|
00000620  02 44 05 e1 0d 02 4e 06  3a 3a 0d 02 58 19 dd a4  |.D....N.::..X...|
00000630  48 65 6c 70 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |Help(window%,ico|
00000640  6e 25 29 0d 02 62 2d e7  20 76 65 72 73 69 6f 6e  |n%)..b-. version|
00000650  25 3c 33 30 30 20 8c 20  3d a4 4f 6c 64 48 65 6c  |%<300 . =.OldHel|
00000660  70 28 77 69 6e 64 6f 77  25 2c 69 63 6f 6e 25 29  |p(window%,icon%)|
00000670  0d 02 6c 2e e7 20 77 69  6e 64 6f 77 25 3d 2d 32  |..l.. window%=-2|
00000680  20 8c 20 3d a4 48 65 6c  70 4d 65 73 73 61 67 65  | . =.HelpMessage|
00000690  28 6d 65 25 2c 22 49 42  48 65 6c 70 22 29 0d 02  |(me%,"IBHelp")..|
000006a0  76 10 c8 8e 20 69 6e 73  69 64 65 25 20 ca 0d 02  |v... inside% ...|
000006b0  80 08 c9 20 b9 3a 0d 02  8a 2a 74 24 3d a4 47 65  |... .:...*t$=.Ge|
000006c0  74 57 69 6e 64 6f 77 4e  75 6d 62 65 72 28 77 69  |tWindowNumber(wi|
000006d0  6e 64 6f 77 25 29 3a 69  24 3d c3 69 63 6f 6e 25  |ndow%):i$=.icon%|
000006e0  0d 02 94 08 c9 20 a3 3a  0d 02 9e 14 e7 20 6f 70  |..... .:..... op|
000006f0  65 6e 25 3d 2d 31 20 8c  20 3d 22 22 0d 02 a8 1c  |en%=-1 . =""....|
00000700  74 24 3d a4 47 65 74 4d  65 6e 75 4e 75 6d 62 65  |t$=.GetMenuNumbe|
00000710  72 28 6f 70 65 6e 25 29  0d 02 b2 13 69 24 3d a4  |r(open%)....i$=.|
00000720  47 65 74 4d 65 6e 75 49  74 65 6d 0d 02 bc 05 cb  |GetMenuItem.....|
00000730  0d 02 c6 1c 3d a4 48 65  6c 70 4d 65 73 73 61 67  |....=.HelpMessag|
00000740  65 28 6d 65 25 2c 74 24  2b 69 24 29 0d 02 d0 06  |e(me%,t$+i$)....|
00000750  3a 3a 0d 02 da 1c dd a4  4f 6c 64 48 65 6c 70 28  |::......OldHelp(|
00000760  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 02  |window%,icon%)..|
00000770  e4 10 c8 8e 20 77 69 6e  64 6f 77 25 20 ca 0d 02  |.... window% ...|
00000780  ee 05 cb 0d 02 f8 21 68  24 3d a4 57 69 6e 64 6f  |......!h$=.Windo|
00000790  77 48 65 6c 70 28 77 69  6e 64 6f 77 25 2c 69 63  |wHelp(window%,ic|
000007a0  6f 6e 25 29 0d 03 02 15  e7 20 76 65 72 73 69 6f  |on%)..... versio|
000007b0  6e 25 3e 3d 33 30 30 20  8c 0d 03 0c 2f c8 99 22  |n%>=300 ..../.."|
000007c0  57 69 6d 70 5f 47 65 74  4d 65 6e 75 53 74 61 74  |Wimp_GetMenuStat|
000007d0  65 22 2c 31 2c 4c 69 73  74 25 2c 77 69 6e 64 6f  |e",1,List%,windo|
000007e0  77 25 2c 69 63 6f 6e 25  0d 03 16 28 e7 20 63 25  |w%,icon%...(. c%|
000007f0  3d a3 20 8c 20 68 24 3d  a4 4d 65 6e 75 48 65 6c  |=. . h$=.MenuHel|
00000800  70 28 6f 70 65 6e 25 2c  4c 69 73 74 25 21 30 29  |p(open%,List%!0)|
00000810  0d 03 20 05 cd 0d 03 2a  07 3d 68 24 0d 03 34 06  |.. ....*.=h$..4.|
00000820  3a 3a 0d 03 3e 24 dd f2  53 61 76 65 46 69 6c 65  |::..>$..SaveFile|
00000830  50 61 72 74 32 28 6c 65  61 66 24 2c 66 69 6c 65  |Part2(leaf$,file|
00000840  74 79 70 65 25 29 0d 03  48 1f c8 99 22 57 69 6d  |type%)..H..."Wim|
00000850  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00000860  22 2c 2c 71 25 0d 03 52  1d 77 69 6e 64 6f 77 25  |",,q%..R.window%|
00000870  3d 71 25 21 31 32 3a 69  63 6f 6e 25 3d 71 25 21  |=q%!12:icon%=q%!|
00000880  31 36 0d 03 5c 13 78 25  3d 71 25 21 30 3a 79 25  |16..\.x%=q%!0:y%|
00000890  3d 71 25 21 34 0d 03 66  1b c8 99 22 57 69 6d 70  |=q%!4..f..."Wimp|
000008a0  5f 43 72 65 61 74 65 4d  65 6e 75 22 2c 2c 2d 31  |_CreateMenu",,-1|
000008b0  0d 03 70 0c 71 25 21 30  3d 32 35 36 0d 03 7a 13  |..p.q%!0=256..z.|
000008c0  71 25 21 31 32 3d 30 3a  71 25 21 31 36 3d 31 0d  |q%!12=0:q%!16=1.|
000008d0  03 84 2f 71 25 21 32 30  3d 77 69 6e 64 6f 77 25  |../q%!20=window%|
000008e0  3a 71 25 21 32 34 3d 69  63 6f 6e 25 3a 71 25 21  |:q%!24=icon%:q%!|
000008f0  32 38 3d 78 25 3a 71 25  21 33 32 3d 79 25 0d 03  |28=x%:q%!32=y%..|
00000900  8e 1b 71 25 21 33 36 3d  30 3a 71 25 21 34 30 3d  |..q%!36=0:q%!40=|
00000910  66 69 6c 65 74 79 70 65  25 0d 03 98 15 24 28 71  |filetype%....$(q|
00000920  25 2b 34 34 29 3d 6c 65  61 66 24 2b bd 30 0d 03  |%+44)=leaf$+.0..|
00000930  a2 26 c8 99 22 57 69 6d  70 5f 53 65 6e 64 4d 65  |.&.."Wimp_SendMe|
00000940  73 73 61 67 65 22 2c 31  37 2c 71 25 2c 77 69 6e  |ssage",17,q%,win|
00000950  64 6f 77 25 0d 03 ac 05  e1 0d 03 b6 06 3a 3a 0d  |dow%.........::.|
00000960  03 c0 13 dd f2 53 61 76  65 46 69 6c 65 50 61 72  |.....SaveFilePar|
00000970  74 33 0d 03 ca 1b 6e 61  6d 65 24 3d a4 47 65 74  |t3....name$=.Get|
00000980  53 74 72 69 6e 67 28 71  25 2b 34 34 29 0d 03 d4  |String(q%+44)...|
00000990  0e 71 25 21 31 32 3d 71  25 21 38 0d 03 de 14 71  |.q%!12=q%!8....q|
000009a0  25 21 31 36 3d 33 3a 71  25 21 30 3d 32 35 36 0d  |%!16=3:q%!0=256.|
000009b0  03 e8 14 f2 53 61 76 65  46 69 6c 65 28 6e 61 6d  |....SaveFile(nam|
000009c0  65 24 29 0d 03 f2 2a c8  99 22 57 69 6d 70 5f 53  |e$)...*.."Wimp_S|
000009d0  65 6e 64 4d 65 73 73 61  67 65 22 2c 31 38 2c 71  |endMessage",18,q|
000009e0  25 2c 71 25 21 32 30 2c  71 25 21 32 34 0d 03 fc  |%,q%!20,q%!24...|
000009f0  0f f2 46 69 6c 6c 49 6e  49 63 6f 6e 0d 04 06 05  |..FillInIcon....|
00000a00  e1 0d 04 10 06 3a 3a 0d  04 1a 26 dd f2 53 74 61  |.....::...&..Sta|
00000a10  72 74 44 72 61 67 28 77  69 6e 64 6f 77 25 2c 69  |rtDrag(window%,i|
00000a20  63 6f 6e 25 2c 73 70 72  69 74 65 24 29 0d 04 24  |con%,sprite$)..$|
00000a30  13 ea 20 78 25 2c 79 25  2c 78 78 25 2c 79 79 25  |.. x%,y%,xx%,yy%|
00000a40  0d 04 2e 10 71 25 21 30  3d 77 69 6e 64 6f 77 25  |....q%!0=window%|
00000a50  0d 04 38 20 c8 99 20 22  57 69 6d 70 5f 47 65 74  |..8 .. "Wimp_Get|
00000a60  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
00000a70  0d 04 42 22 78 78 25 3d  71 25 21 34 2d 71 25 21  |..B"xx%=q%!4-q%!|
00000a80  32 30 3a 79 79 25 3d 71  25 21 31 36 2d 71 25 21  |20:yy%=q%!16-q%!|
00000a90  32 34 0d 04 4c 0e 71 25  21 34 3d 69 63 6f 6e 25  |24..L.q%!4=icon%|
00000aa0  0d 04 56 1e c8 99 20 22  57 69 6d 70 5f 47 65 74  |..V... "Wimp_Get|
00000ab0  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 04  |IconState",,q%..|
00000ac0  60 0f 21 71 25 3d 77 69  6e 64 6f 77 25 0d 04 6a  |`.!q%=window%..j|
00000ad0  0a 71 25 21 34 3d 35 0d  04 74 21 71 25 21 38 3d  |.q%!4=5..t!q%!8=|
00000ae0  78 78 25 2b 71 25 21 38  3a 71 25 21 31 32 3d 79  |xx%+q%!8:q%!12=y|
00000af0  79 25 2b 71 25 21 31 32  0d 04 7e 24 71 25 21 31  |y%+q%!12..~$q%!1|
00000b00  36 3d 78 78 25 2b 71 25  21 31 36 3a 20 71 25 21  |6=xx%+q%!16: q%!|
00000b10  32 30 3d 79 79 25 2b 71  25 21 32 30 0d 04 88 13  |20=yy%+q%!20....|
00000b20  71 25 21 32 34 3d 30 3a  71 25 21 32 38 3d 30 0d  |q%!24=0:q%!28=0.|
00000b30  04 92 23 71 25 21 33 32  3d 26 37 46 46 46 46 46  |..#q%!32=&7FFFFF|
00000b40  46 46 3a 71 25 21 33 36  3d 26 37 46 46 46 46 46  |FF:q%!36=&7FFFFF|
00000b50  46 46 0d 04 9c 16 e7 20  64 72 61 67 73 74 61 72  |FF..... dragstar|
00000b60  74 25 3c 3e 2d 31 20 8c  0d 04 a6 32 c8 99 22 44  |t%<>-1 ....2.."D|
00000b70  72 61 67 41 53 70 72 69  74 65 5f 53 74 61 72 74  |ragASprite_Start|
00000b80  22 2c 31 39 37 2c 31 2c  73 70 72 69 74 65 24 2c  |",197,1,sprite$,|
00000b90  71 25 2b 38 2c 71 25 2b  32 34 0d 04 b0 05 cc 0d  |q%+8,q%+24......|
00000ba0  04 ba 19 c8 99 20 22 57  69 6d 70 5f 44 72 61 67  |..... "Wimp_Drag|
00000bb0  42 6f 78 22 2c 2c 71 25  0d 04 c4 05 cd 0d 04 ce  |Box",,q%........|
00000bc0  1b 64 72 61 67 67 69 6e  67 77 69 6e 64 6f 77 25  |.draggingwindow%|
00000bd0  3d 77 69 6e 64 6f 77 25  0d 04 d8 17 64 72 61 67  |=window%....drag|
00000be0  67 69 6e 67 69 63 6f 6e  25 3d 69 63 6f 6e 25 0d  |gingicon%=icon%.|
00000bf0  04 e2 05 e1 0d 04 ec 06  3a 3a 0d 04 f6 15 dd f2  |........::......|
00000c00  4c 6f 61 64 46 69 6c 65  46 72 6f 6d 41 70 70 0d  |LoadFileFromApp.|
00000c10  05 00 18 71 25 21 30 3d  32 35 36 3a 71 25 21 31  |...q%!0=256:q%!1|
00000c20  32 3d 71 25 21 38 3a 0d  05 0a 14 71 25 21 31 36  |2=q%!8:....q%!16|
00000c30  3d 32 3a 71 25 21 33 36  3d 2d 31 0d 05 14 1b 6c  |=2:q%!36=-1....l|
00000c40  65 61 66 24 3d a4 47 65  74 53 74 72 69 6e 67 28  |eaf$=.GetString(|
00000c50  71 25 2b 34 34 29 0d 05  1e 21 24 28 71 25 2b 34  |q%+44)...!$(q%+4|
00000c60  34 29 3d 70 61 74 68 24  2b 22 2e 22 2b 6c 65 61  |4)=path$+"."+lea|
00000c70  66 24 2b bd 28 30 29 0d  05 28 23 c8 99 22 57 69  |f$+.(0)..(#.."Wi|
00000c80  6d 70 5f 53 65 6e 64 4d  65 73 73 61 67 65 22 2c  |mp_SendMessage",|
00000c90  31 37 2c 71 25 2c 71 25  21 34 0d 05 32 05 e1 0d  |17,q%,q%!4..2...|
00000ca0  05 3c 06 3a 3a 0d 05 46  1c dd a4 49 63 6f 6e 42  |.<.::..F...IconB|
00000cb0  61 72 28 73 69 64 65 25  2c 73 70 72 69 74 65 24  |ar(side%,sprite$|
00000cc0  29 0d 05 50 0b ea 20 69  63 6f 6e 25 0d 05 5a 10  |)..P.. icon%..Z.|
00000cd0  66 6c 61 67 73 25 3d 26  33 30 30 32 0d 05 64 14  |flags%=&3002..d.|
00000ce0  24 28 71 25 2b 32 34 29  3d 73 70 72 69 74 65 24  |$(q%+24)=sprite$|
00000cf0  0d 05 6e 0e 71 25 21 30  3d 73 69 64 65 25 0d 05  |..n.q%!0=side%..|
00000d00  78 0a 71 25 21 34 3d 30  0d 05 82 0b 71 25 21 38  |x.q%!4=0....q%!8|
00000d10  3d 2d 35 0d 05 8c 0c 71  25 21 31 32 3d 36 30 0d  |=-5....q%!12=60.|
00000d20  05 96 0c 71 25 21 31 36  3d 36 30 0d 05 a0 10 71  |...q%!16=60....q|
00000d30  25 21 32 30 3d 66 6c 61  67 73 25 0d 05 aa 23 c8  |%!20=flags%...#.|
00000d40  99 22 57 69 6d 70 5f 43  72 65 61 74 65 49 63 6f  |."Wimp_CreateIco|
00000d50  6e 22 2c 2c 71 25 20 b8  20 69 63 6f 6e 25 0d 05  |n",,q% . icon%..|
00000d60  b4 0a 3d 69 63 6f 6e 25  0d 05 be 06 3a 3a 0d 05  |..=icon%....::..|
00000d70  c8 1f dd f2 53 65 6c 65  63 74 49 63 6f 6e 28 77  |....SelectIcon(w|
00000d80  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 29 0d 05 d2  |indow%,icon%)...|
00000d90  1b 71 25 21 30 3d 77 69  6e 64 6f 77 25 3a 71 25  |.q%!0=window%:q%|
00000da0  21 34 3d 69 63 6f 6e 25  0d 05 dc 1d c8 99 22 57  |!4=icon%......"W|
00000db0  69 6d 70 5f 47 65 74 49  63 6f 6e 53 74 61 74 65  |imp_GetIconState|
00000dc0  22 2c 2c 71 25 0d 05 e6  0c ea 20 66 6c 61 67 73  |",,q%..... flags|
00000dd0  25 0d 05 f0 10 66 6c 61  67 73 25 3d 71 25 21 32  |%....flags%=q%!2|
00000de0  34 0d 05 fa 24 e7 20 28  66 6c 61 67 73 25 20 80  |4...$. (flags% .|
00000df0  20 28 31 3c 3c 32 31 29  29 3d 28 31 3c 3c 32 31  | (1<<21))=(1<<21|
00000e00  29 20 8c 20 e1 0d 06 04  36 71 25 21 30 3d 77 69  |) . ....6q%!0=wi|
00000e10  6e 64 6f 77 25 3a 71 25  21 34 3d 69 63 6f 6e 25  |ndow%:q%!4=icon%|
00000e20  3a 71 25 21 38 3d 28 31  3c 3c 32 31 29 3a 71 25  |:q%!8=(1<<21):q%|
00000e30  21 31 32 3d 28 31 3c 3c  32 31 29 0d 06 0e 1d c8  |!12=(1<<21).....|
00000e40  99 22 57 69 6d 70 5f 53  65 74 49 63 6f 6e 53 74  |."Wimp_SetIconSt|
00000e50  61 74 65 22 2c 2c 71 25  0d 06 18 05 e1 0d 06 22  |ate",,q%......."|
00000e60  06 3a 3a 0d 06 2c 1e dd  f2 43 6c 65 61 72 49 63  |.::..,...ClearIc|
00000e70  6f 6e 28 77 69 6e 64 6f  77 25 2c 69 63 6f 6e 25  |on(window%,icon%|
00000e80  29 0d 06 36 1b 71 25 21  30 3d 77 69 6e 64 6f 77  |)..6.q%!0=window|
00000e90  25 3a 71 25 21 34 3d 69  63 6f 6e 25 0d 06 40 1d  |%:q%!4=icon%..@.|
00000ea0  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00000eb0  74 61 74 65 22 2c 2c 71  25 0d 06 4a 0c ea 20 66  |tate",,q%..J.. f|
00000ec0  6c 61 67 73 25 0d 06 54  10 66 6c 61 67 73 25 3d  |lags%..T.flags%=|
00000ed0  71 25 21 32 34 0d 06 5e  1e e7 20 28 66 6c 61 67  |q%!24..^.. (flag|
00000ee0  73 25 20 80 20 28 31 3c  3c 32 31 29 29 3d 30 20  |s% . (1<<21))=0 |
00000ef0  8c 20 e1 0d 06 68 30 71  25 21 30 3d 77 69 6e 64  |. ...h0q%!0=wind|
00000f00  6f 77 25 3a 71 25 21 34  3d 69 63 6f 6e 25 3a 71  |ow%:q%!4=icon%:q|
00000f10  25 21 38 3d 30 3a 71 25  21 31 32 3d 28 31 3c 3c  |%!8=0:q%!12=(1<<|
00000f20  32 31 29 0d 06 72 1d c8  99 22 57 69 6d 70 5f 53  |21)..r..."Wimp_S|
00000f30  65 74 49 63 6f 6e 53 74  61 74 65 22 2c 2c 71 25  |etIconState",,q%|
00000f40  0d 06 7c 05 e1 0d 06 86  06 3a 3a 0d 06 90 1e dd  |..|......::.....|
00000f50  a4 49 63 6f 6e 53 74 61  74 65 28 77 69 6e 64 6f  |.IconState(windo|
00000f60  77 25 2c 69 63 6f 6e 25  29 0d 06 9a 1b 71 25 21  |w%,icon%)....q%!|
00000f70  30 3d 77 69 6e 64 6f 77  25 3a 71 25 21 34 3d 69  |0=window%:q%!4=i|
00000f80  63 6f 6e 25 0d 06 a4 1d  c8 99 22 57 69 6d 70 5f  |con%......"Wimp_|
00000f90  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00000fa0  25 0d 06 ae 0c ea 20 66  6c 61 67 73 25 0d 06 b8  |%..... flags%...|
00000fb0  10 66 6c 61 67 73 25 3d  71 25 21 32 34 0d 06 c2  |.flags%=q%!24...|
00000fc0  1b c8 8e 20 28 66 6c 61  67 73 25 20 80 20 28 31  |... (flags% . (1|
00000fd0  3c 3c 32 31 29 29 20 ca  0d 06 cc 0e c9 20 30 3a  |<<21)) ...... 0:|
00000fe0  6f 75 74 25 3d 30 0d 06  d6 14 c9 20 28 31 3c 3c  |out%=0..... (1<<|
00000ff0  32 31 29 3a 6f 75 74 25  3d 31 0d 06 e0 05 cb 0d  |21):out%=1......|
00001000  06 ea 09 3d 6f 75 74 25  0d 06 f4 06 3a 3a 0d 06  |...=out%....::..|
00001010  fe 1e dd f2 53 68 61 64  65 49 63 6f 6e 28 77 69  |....ShadeIcon(wi|
00001020  6e 64 6f 77 25 2c 69 63  6f 6e 25 29 0d 07 08 1b  |ndow%,icon%)....|
00001030  71 25 21 30 3d 77 69 6e  64 6f 77 25 3a 71 25 21  |q%!0=window%:q%!|
00001040  34 3d 69 63 6f 6e 25 0d  07 12 1a 71 25 21 38 3d  |4=icon%....q%!8=|
00001050  31 3c 3c 32 32 3a 71 25  21 31 32 3d 31 3c 3c 32  |1<<22:q%!12=1<<2|
00001060  32 0d 07 1c 1d c8 99 22  57 69 6d 70 5f 53 65 74  |2......"Wimp_Set|
00001070  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 07  |IconState",,q%..|
00001080  26 05 e1 0d 07 30 06 3a  3a 0d 07 3a 20 dd f2 55  |&....0.::..: ..U|
00001090  6e 53 68 61 64 65 49 63  6f 6e 28 77 69 6e 64 6f  |nShadeIcon(windo|
000010a0  77 25 2c 69 63 6f 6e 25  29 0d 07 44 1b 71 25 21  |w%,icon%)..D.q%!|
000010b0  30 3d 77 69 6e 64 6f 77  25 3a 71 25 21 34 3d 69  |0=window%:q%!4=i|
000010c0  63 6f 6e 25 0d 07 4e 16  71 25 21 38 3d 30 3a 71  |con%..N.q%!8=0:q|
000010d0  25 21 31 32 3d 31 3c 3c  32 32 0d 07 58 1d c8 99  |%!12=1<<22..X...|
000010e0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000010f0  74 65 22 2c 2c 71 25 0d  07 62 05 e1 0d 07 6c 06  |te",,q%..b....l.|
00001100  3a 3a 0d 07 76 21 dd f2  49 63 6f 6e 49 6e 28 77  |::..v!..IconIn(w|
00001110  69 6e 64 6f 77 25 2c 69  63 6f 6e 25 2c 74 65 78  |indow%,icon%,tex|
00001120  74 24 29 0d 07 80 10 71  25 21 30 3d 77 69 6e 64  |t$)....q%!0=wind|
00001130  6f 77 25 0d 07 8a 0e 71  25 21 34 3d 69 63 6f 6e  |ow%....q%!4=icon|
00001140  25 0d 07 94 1d c8 99 22  57 69 6d 70 5f 47 65 74  |%......"Wimp_Get|
00001150  49 63 6f 6e 53 74 61 74  65 22 2c 2c 71 25 0d 07  |IconState",,q%..|
00001160  9e 12 24 28 71 25 21 32  38 29 3d 74 65 78 74 24  |..$(q%!28)=text$|
00001170  0d 07 a8 2a 71 25 21 30  3d 77 69 6e 64 6f 77 25  |...*q%!0=window%|
00001180  3a 71 25 21 34 3d 69 63  6f 6e 25 3a 71 25 21 38  |:q%!4=icon%:q%!8|
00001190  3d 30 3a 71 25 21 31 32  3d 30 0d 07 b2 1d c8 99  |=0:q%!12=0......|
000011a0  22 57 69 6d 70 5f 53 65  74 49 63 6f 6e 53 74 61  |"Wimp_SetIconSta|
000011b0  74 65 22 2c 2c 71 25 0d  07 bc 05 e1 0d 07 c6 06  |te",,q%.........|
000011c0  3a 3a 0d 07 d0 1c dd a4  49 63 6f 6e 4f 75 74 28  |::......IconOut(|
000011d0  77 69 6e 64 6f 77 25 2c  69 63 6f 6e 25 29 0d 07  |window%,icon%)..|
000011e0  da 10 71 25 21 30 3d 77  69 6e 64 6f 77 25 0d 07  |..q%!0=window%..|
000011f0  e4 0e 71 25 21 34 3d 69  63 6f 6e 25 0d 07 ee 1d  |..q%!4=icon%....|
00001200  c8 99 22 57 69 6d 70 5f  47 65 74 49 63 6f 6e 53  |.."Wimp_GetIconS|
00001210  74 61 74 65 22 2c 2c 71  25 0d 07 f8 0d 3d 24 28  |tate",,q%....=$(|
00001220  71 25 21 32 38 29 0d 08  02 06 3a 3a 0d 08 0c 3f  |q%!28)....::...?|
00001230  dd a4 57 69 6e 64 6f 77  4c 6f 61 64 28 77 24 29  |..WindowLoad(w$)|
00001240  3d a4 57 69 6e 64 6f 77  4c 6f 61 64 46 72 6f 6d  |=.WindowLoadFrom|
00001250  28 22 3c 4f 62 65 79 24  44 69 72 3e 2e 54 65 6d  |("<Obey$Dir>.Tem|
00001260  70 6c 61 74 65 73 22 2c  77 24 29 0d 08 16 06 3a  |plates",w$)....:|
00001270  3a 0d 08 20 1b dd a4 57  69 6e 64 6f 77 4c 6f 61  |:.. ...WindowLoa|
00001280  64 46 72 6f 6d 28 70 24  2c 77 24 29 0d 08 2a 1d  |dFrom(p$,w$)..*.|
00001290  c8 99 22 57 69 6d 70 5f  4f 70 65 6e 54 65 6d 70  |.."Wimp_OpenTemp|
000012a0  6c 61 74 65 22 2c 2c 70  24 0d 08 34 0a 24 6e 25  |late",,p$..4.$n%|
000012b0  3d 77 24 0d 08 3e 4b c8  99 22 57 69 6d 70 5f 4c  |=w$..>K.."Wimp_L|
000012c0  6f 61 64 54 65 6d 70 6c  61 74 65 22 2c 2c 74 65  |oadTemplate",,te|
000012d0  6d 70 25 2c 69 6e 64 25  2c 69 6e 64 25 2b 54 6f  |mp%,ind%,ind%+To|
000012e0  74 61 6c 49 63 6f 6e 53  70 61 63 65 25 2c 2d 31  |talIconSpace%,-1|
000012f0  2c 77 24 2c 30 20 b8 20  2c 2c 69 6e 64 25 0d 08  |,w$,0 . ,,ind%..|
00001300  48 2a c8 99 22 57 69 6d  70 5f 43 72 65 61 74 65  |H*.."Wimp_Create|
00001310  57 69 6e 64 6f 77 22 2c  2c 74 65 6d 70 25 20 b8  |Window",,temp% .|
00001320  20 77 69 6e 64 6f 77 25  0d 08 52 1a c8 99 22 57  | window%..R..."W|
00001330  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
00001340  65 22 0d 08 5c 17 77 69  6e 64 6f 77 73 21 70 70  |e"..\.windows!pp|
00001350  25 3d 77 69 6e 64 6f 77  25 0d 08 66 0d 70 70 25  |%=window%..f.pp%|
00001360  3d 70 70 25 2b 34 0d 08  70 0c 3d 77 69 6e 64 6f  |=pp%+4..p.=windo|
00001370  77 25 0d 08 7a 06 3a 3a  0d 08 84 19 dd f2 4f 70  |w%..z.::......Op|
00001380  65 6e 57 69 6e 64 6f 77  28 77 69 6e 64 6f 77 25  |enWindow(window%|
00001390  29 0d 08 8e 10 71 25 21  30 3d 77 69 6e 64 6f 77  |)....q%!0=window|
000013a0  25 0d 08 98 1f c8 99 22  57 69 6d 70 5f 47 65 74  |%......"Wimp_Get|
000013b0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 71 25  |WindowState",,q%|
000013c0  0d 08 a2 1b c8 99 22 57  69 6d 70 5f 4f 70 65 6e  |......"Wimp_Open|
000013d0  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 08 ac 1f f2  |Window",,q%.....|
000013e0  4f 70 65 6e 57 69 6e 64  6f 77 57 61 72 6e 69 6e  |OpenWindowWarnin|
000013f0  67 28 77 69 6e 64 6f 77  25 29 0d 08 b6 05 e1 0d  |g(window%)......|
00001400  08 c0 06 3a 3a 0d 08 ca  1a dd f2 43 6c 6f 73 65  |...::......Close|
00001410  57 69 6e 64 6f 77 28 77  69 6e 64 6f 77 25 29 0d  |Window(window%).|
00001420  08 d4 10 71 25 21 30 3d  77 69 6e 64 6f 77 25 0d  |...q%!0=window%.|
00001430  08 de 1c c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |....."Wimp_Close|
00001440  57 69 6e 64 6f 77 22 2c  2c 71 25 0d 08 e8 20 f2  |Window",,q%... .|
00001450  43 6c 6f 73 65 57 69 6e  64 6f 77 57 61 72 6e 69  |CloseWindowWarni|
00001460  6e 67 28 77 69 6e 64 6f  77 25 29 0d 08 f2 05 e1  |ng(window%).....|
00001470  0d 08 fc 06 3a 3a 0d 09  06 26 dd f2 4d 61 6b 65  |....::...&..Make|
00001480  4d 65 6e 75 28 74 69 74  6c 65 24 2c f8 20 6d 65  |Menu(title$,. me|
00001490  6e 75 25 2c 6e 75 6d 62  65 72 25 29 0d 09 10 1b  |nu%,number%)....|
000014a0  de 20 6d 65 6e 75 25 20  32 38 2b 28 32 34 2a 6e  |. menu% 28+(24*n|
000014b0  75 6d 62 65 72 25 29 0d  09 1a 05 f7 0d 09 24 2c  |umber%).......$,|
000014c0  f5 3a f5 3a f3 20 69 64  24 3a fd 20 69 64 24 3d  |.:.:. id$:. id$=|
000014d0  22 4d 45 4e 55 3e 22 3a  f3 20 74 24 3a fd 20 74  |"MENU>":. t$:. t|
000014e0  24 3d 74 69 74 6c 65 24  0d 09 2e 1d 24 6d 65 6e  |$=title$....$men|
000014f0  75 25 3d 74 24 3a 6d 65  6e 75 25 21 31 32 3d 26  |u%=t$:menu%!12=&|
00001500  37 30 32 30 37 0d 09 38  2a 77 25 3d 28 a9 28 74  |70207..8*w%=(.(t|
00001510  24 29 2d 32 29 2a 31 36  3a 6d 65 6e 75 25 21 32  |$)-2)*16:menu%!2|
00001520  30 3d 34 34 3a 6d 65 6e  75 25 21 32 34 3d 30 0d  |0=44:menu%!24=0.|
00001530  09 42 12 62 61 73 65 25  3d 6d 65 6e 75 25 2b 32  |.B.base%=menu%+2|
00001540  38 0d 09 4c 19 f5 3a f3  20 69 74 65 6d 24 2c 68  |8..L..:. item$,h|
00001550  61 6e 64 25 2c 66 6c 61  67 25 0d 09 56 1f 62 61  |and%,flag%..V.ba|
00001560  73 65 25 21 30 3d 66 6c  61 67 25 3a 62 61 73 65  |se%!0=flag%:base|
00001570  25 21 34 3d 68 61 6e 64  25 0d 09 60 26 62 61 73  |%!4=hand%..`&bas|
00001580  65 25 21 38 3d 26 37 30  30 30 30 32 31 3a 24 28  |e%!8=&7000021:$(|
00001590  62 61 73 65 25 2b 31 32  29 3d 69 74 65 6d 24 0d  |base%+12)=item$.|
000015a0  09 6a 2d e7 20 28 a9 28  69 74 65 6d 24 29 2b 31  |.j-. (.(item$)+1|
000015b0  29 2a 31 36 3e 77 25 20  8c 20 77 25 3d 28 a9 28  |)*16>w% . w%=(.(|
000015c0  69 74 65 6d 24 29 2b 31  29 2a 31 36 0d 09 74 12  |item$)+1)*16..t.|
000015d0  62 61 73 65 25 3d 62 61  73 65 25 2b 32 34 0d 09  |base%=base%+24..|
000015e0  7e 0f fd 20 66 6c 61 67  25 3d 26 38 30 0d 09 88  |~.. flag%=&80...|
000015f0  0f 6d 65 6e 75 25 21 31  36 3d 77 25 0d 09 92 13  |.menu%!16=w%....|
00001600  6d 65 6e 75 73 21 71 71  25 3d 6d 65 6e 75 25 0d  |menus!qq%=menu%.|
00001610  09 9c 0d 71 71 25 3d 71  71 25 2b 34 0d 09 a6 05  |...qq%=qq%+4....|
00001620  e1 0d 09 b0 06 3a 3a 0d  09 ba 1b dd f2 4f 70 65  |.....::......Ope|
00001630  6e 4d 65 6e 75 28 6d 65  6e 75 25 2c 78 25 2c 79  |nMenu(menu%,x%,y|
00001640  25 29 0d 09 c4 27 c8 99  22 57 69 6d 70 5f 43 72  |%)...'.."Wimp_Cr|
00001650  65 61 74 65 4d 65 6e 75  22 2c 2c 6d 65 6e 75 25  |eateMenu",,menu%|
00001660  2c 78 25 2d 36 34 2c 79  25 0d 09 ce 0f 6f 70 65  |,x%-64,y%....ope|
00001670  6e 25 3d 6d 65 6e 75 25  0d 09 d8 05 e1 0d 09 e2  |n%=menu%........|
00001680  06 3a 3a 0d 09 ec 23 dd  f2 4f 70 65 6e 4d 65 6e  |.::...#..OpenMen|
00001690  75 4f 76 65 72 49 63 6f  6e 28 6d 65 6e 75 25 2c  |uOverIcon(menu%,|
000016a0  78 25 2c 6e 25 29 0d 09  f6 2f c8 99 22 57 69 6d  |x%,n%).../.."Wim|
000016b0  70 5f 43 72 65 61 74 65  4d 65 6e 75 22 2c 2c 6d  |p_CreateMenu",,m|
000016c0  65 6e 75 25 2c 78 25 2d  36 34 2c 39 36 2b 28 6e  |enu%,x%-64,96+(n|
000016d0  25 2a 34 34 29 0d 0a 00  0f 6f 70 65 6e 25 3d 6d  |%*44)....open%=m|
000016e0  65 6e 75 25 0d 0a 0a 05  e1 0d 0a 14 06 3a 3a 0d  |enu%.........::.|
000016f0  0a 1e 16 dd f2 4b 65 79  50 72 65 73 73 65 64 28  |.....KeyPressed(|
00001700  6b 65 79 25 29 0d 0a 28  0e f2 4b 65 79 28 6b 65  |key%)..(..Key(ke|
00001710  79 25 29 0d 0a 32 1c c8  99 22 57 69 6d 70 5f 50  |y%)..2..."Wimp_P|
00001720  72 6f 63 65 73 73 4b 65  79 22 2c 6b 65 79 25 0d  |rocessKey",key%.|
00001730  0a 3c 05 e1 0d 0a 46 06  3a 3a 0d 0a 50 18 dd 20  |.<....F.::..P.. |
00001740  a4 47 65 74 53 74 72 69  6e 67 28 61 72 72 61 79  |.GetString(array|
00001750  25 29 0d 0a 5a 0d ea 73  24 3a 73 24 3d 22 22 0d  |%)..Z..s$:s$="".|
00001760  0a 64 3c c8 95 28 3f 61  72 72 61 79 25 3c 3e 31  |.d<..(?array%<>1|
00001770  33 29 80 28 3f 61 72 72  61 79 25 3c 3e 30 29 3a  |3).(?array%<>0):|
00001780  73 24 2b 3d bd 28 3f 61  72 72 61 79 25 29 3a 61  |s$+=.(?array%):a|
00001790  72 72 61 79 25 2b 3d 31  3a ce 3a 0d 0a 6e 07 3d  |rray%+=1:.:..n.=|
000017a0  73 24 0d 0a 78 06 3a 3a  0d 0a 82 0e dd f2 44 72  |s$..x.::......Dr|
000017b0  61 67 49 6e 69 74 0d 0a  8c 0b ea 20 66 6c 61 67  |agInit..... flag|
000017c0  25 0d 0a 96 35 c8 99 20  26 32 30 30 33 39 2c 2c  |%...5.. &20039,,|
000017d0  22 44 72 61 67 41 53 70  72 69 74 65 5f 53 74 61  |"DragASprite_Sta|
000017e0  72 74 22 20 b8 20 64 72  61 67 73 74 61 72 74 25  |rt" . dragstart%|
000017f0  3b 66 6c 61 67 25 0d 0a  a0 13 e7 20 28 66 6c 61  |;flag%..... (fla|
00001800  67 25 20 80 20 31 29 20  8c 0d 0a aa 11 64 72 61  |g% . 1) .....dra|
00001810  67 73 74 61 72 74 25 3d  2d 31 0d 0a b4 05 cd 0d  |gstart%=-1......|
00001820  0a be 33 c8 99 20 26 32  30 30 33 39 2c 2c 22 44  |..3.. &20039,,"D|
00001830  72 61 67 41 53 70 72 69  74 65 5f 53 74 6f 70 22  |ragASprite_Stop"|
00001840  20 b8 20 64 72 61 67 73  74 6f 70 25 3b 66 6c 61  | . dragstop%;fla|
00001850  67 25 0d 0a c8 13 e7 20  28 66 6c 61 67 25 20 80  |g%..... (flag% .|
00001860  20 31 29 20 8c 0d 0a d2  10 64 72 61 67 73 74 6f  | 1) .....dragsto|
00001870  70 25 3d 2d 31 0d 0a dc  05 cd 0d 0a e6 20 c8 99  |p%=-1........ ..|
00001880  22 4f 53 5f 42 79 74 65  22 2c 31 36 31 2c 32 38  |"OS_Byte",161,28|
00001890  20 b8 20 2c 2c 66 6c 61  67 25 0d 0a f0 15 e7 20  | . ,,flag%..... |
000018a0  28 66 6c 61 67 25 20 80  20 32 29 3d 30 20 8c 0d  |(flag% . 2)=0 ..|
000018b0  0a fa 11 64 72 61 67 73  74 61 72 74 25 3d 2d 31  |...dragstart%=-1|
000018c0  0d 0b 04 10 64 72 61 67  73 74 6f 70 25 3d 2d 31  |....dragstop%=-1|
000018d0  0d 0b 0e 05 cd 0d 0b 18  05 e1 0d 0b 22 06 3a 3a  |............".::|
000018e0  0d 0b 2c 12 dd a4 4c 6f  6f 6b 55 70 28 73 74 72  |..,...LookUp(str|
000018f0  24 29 0d 0b 36 29 e7 20  76 65 72 73 69 6f 6e 25  |$)..6). version%|
00001900  3e 3d 33 30 30 20 8c 20  3d a4 4d 65 73 73 61 67  |>=300 . =.Messag|
00001910  65 28 6d 65 25 2c 73 74  72 24 29 0d 0b 40 0b ea  |e(me%,str$)..@..|
00001920  20 68 65 6c 70 25 0d 0b  4a 22 68 65 6c 70 25 3d  | help%..J"help%=|
00001930  8e 28 22 3c 53 61 76 65  24 44 69 72 3e 2e 4d 65  |.("<Save$Dir>.Me|
00001940  73 73 61 67 65 73 22 29  0d 0b 54 05 f5 0d 0b 5e  |ssages")..T....^|
00001950  11 6c 69 6e 65 24 3d be  23 68 65 6c 70 25 0d 0b  |.line$=.#help%..|
00001960  68 22 63 6f 6d 6d 61 6e  64 24 3d c0 6c 69 6e 65  |h"command$=.line|
00001970  24 2c a7 6c 69 6e 65 24  2c 22 3a 22 29 2d 31 29  |$,.line$,":")-1)|
00001980  0d 0b 72 1d fd 20 73 74  72 24 3d 63 6f 6d 6d 61  |..r.. str$=comma|
00001990  6e 64 24 20 84 20 c5 23  68 65 6c 70 25 0d 0b 7c  |nd$ . .#help%..||
000019a0  0b d9 23 68 65 6c 70 25  0d 0b 86 25 3d c2 6c 69  |..#help%...%=.li|
000019b0  6e 65 24 2c 28 a9 28 6c  69 6e 65 24 29 2d a9 28  |ne$,(.(line$)-.(|
000019c0  63 6f 6d 6d 61 6e 64 24  29 29 2d 31 29 0d 0b 90  |command$))-1)...|
000019d0  06 3a 3a 0d 0b 9a 1e dd  f2 4d 65 73 73 61 67 65  |.::......Message|
000019e0  42 6f 78 28 74 6f 70 24  2c 62 6f 74 74 6f 6d 24  |Box(top$,bottom$|
000019f0  29 0d 0b a4 0b 21 71 25  3d 32 35 35 0d 0b ae 18  |)....!q%=255....|
00001a00  24 28 71 25 2b 34 29 3d  62 6f 74 74 6f 6d 24 2b  |$(q%+4)=bottom$+|
00001a10  bd 28 30 29 0d 0b b8 27  c8 99 22 57 69 6d 70 5f  |.(0)...'.."Wimp_|
00001a20  52 65 70 6f 72 74 45 72  72 6f 72 22 2c 71 25 2c  |ReportError",q%,|
00001a30  25 31 30 30 30 31 2c 74  6f 70 24 0d 0b c2 05 e1  |%10001,top$.....|
00001a40  0d 0b cc 06 3a 3a 0d 0b  d6 12 dd f2 45 72 72 6f  |....::......Erro|
00001a50  72 28 63 6f 64 65 24 29  0d 0b e0 0b 21 71 25 3d  |r(code$)....!q%=|
00001a60  32 35 35 0d 0b ea 1d 24  28 71 25 2b 34 29 3d a4  |255....$(q%+4)=.|
00001a70  4c 6f 6f 6b 55 70 28 63  6f 64 65 24 29 2b bd 30  |LookUp(code$)+.0|
00001a80  0d 0b f4 2a c8 99 22 57  69 6d 70 5f 52 65 70 6f  |...*.."Wimp_Repo|
00001a90  72 74 45 72 72 6f 72 22  2c 71 25 2c 25 31 30 30  |rtError",q%,%100|
00001aa0  30 31 2c 22 45 72 72 6f  72 22 0d 0b fe 05 e1 0d  |01,"Error"......|
00001ab0  0c 08 06 3a 3a 0d 0c 12  1e dd a4 53 74 72 69 70  |...::......Strip|
00001ac0  50 61 74 68 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |Path(window%,ico|
00001ad0  6e 25 29 0d 0c 1c 0e ea  20 62 25 2c 63 24 2c 63  |n%)..... b%,c$,c|
00001ae0  25 0d 0c 26 1e 63 24 3d  a4 49 63 6f 6e 4f 75 74  |%..&.c$=.IconOut|
00001af0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
00001b00  0c 30 05 f5 0d 0c 3a 0c  63 25 3d a9 28 63 24 29  |.0....:.c%=.(c$)|
00001b10  0d 0c 44 0f 62 25 3d a7  63 24 2c 22 2e 22 29 0d  |..D.b%=.c$,".").|
00001b20  0c 4e 1d e7 20 62 25 3c  3e 30 20 8c 20 63 24 3d  |.N.. b%<>0 . c$=|
00001b30  c2 63 24 2c 28 63 25 2d  62 25 29 29 0d 0c 58 0a  |.c$,(c%-b%))..X.|
00001b40  fd 20 62 25 3d 30 0d 0c  62 07 3d 63 24 0d 0c 6c  |. b%=0..b.=c$..l|
00001b50  06 3a 3a 0d 0c 76 19 dd  a4 4f 70 65 6e 4d 65 73  |.::..v...OpenMes|
00001b60  73 61 67 65 73 28 66 69  6c 65 24 29 0d 0c 80 0b  |sages(file$)....|
00001b70  ea 20 66 69 6c 65 25 0d  0c 8a 21 c8 99 22 4f 53  |. file%...!.."OS|
00001b80  5f 4d 6f 64 75 6c 65 22  2c 36 2c 2c 2c 31 36 20  |_Module",6,,,16 |
00001b90  b8 2c 2c 66 69 6c 65 25  0d 0c 94 2b c8 99 22 4d  |.,,file%...+.."M|
00001ba0  65 73 73 61 67 65 54 72  61 6e 73 5f 4f 70 65 6e  |essageTrans_Open|
00001bb0  46 69 6c 65 22 2c 66 69  6c 65 25 2c 66 69 6c 65  |File",file%,file|
00001bc0  24 2c 30 0d 0c 9e 0a 3d  66 69 6c 65 25 0d 0c a8  |$,0....=file%...|
00001bd0  06 3a 3a 0d 0c b2 19 dd  a4 4d 65 73 73 61 67 65  |.::......Message|
00001be0  28 66 69 6c 65 25 2c 74  61 67 24 29 0d 0c bc 0d  |(file%,tag$)....|
00001bf0  ea 20 73 74 72 69 6e 67  24 0d 0c c6 44 c8 99 22  |. string$...D.."|
00001c00  4d 65 73 73 61 67 65 54  72 61 6e 73 5f 4c 6f 6f  |MessageTrans_Loo|
00001c10  6b 75 70 22 2c 66 69 6c  65 25 2c 74 61 67 24 2c  |kup",file%,tag$,|
00001c20  30 2c 30 2c 30 2c 30 2c  30 2c 30 20 b8 20 2c 2c  |0,0,0,0,0,0 . ,,|
00001c30  73 74 72 69 6e 67 24 3b  66 6c 61 67 25 0d 0c d0  |string$;flag%...|
00001c40  0c 3d 73 74 72 69 6e 67  24 0d 0c da 06 3a 3a 0d  |.=string$....::.|
00001c50  0c e4 1f dd a4 4d 65 73  73 61 67 65 41 28 66 69  |.....MessageA(fi|
00001c60  6c 65 25 2c 74 61 67 24  2c 6f 6e 65 24 29 0d 0c  |le%,tag$,one$)..|
00001c70  ee 0d ea 20 73 74 72 69  6e 67 24 0d 0c f8 4e c8  |... string$...N.|
00001c80  99 20 22 4d 65 73 73 61  67 65 54 72 61 6e 73 5f  |. "MessageTrans_|
00001c90  4c 6f 6f 6b 75 70 22 2c  66 69 6c 65 25 2c 74 61  |Lookup",file%,ta|
00001ca0  67 24 2c 4c 69 73 74 25  2c 32 35 36 2c 6f 6e 65  |g$,List%,256,one|
00001cb0  24 2c 30 2c 30 2c 30 20  b8 20 2c 2c 73 74 72 69  |$,0,0,0 . ,,stri|
00001cc0  6e 67 24 3b 66 6c 61 67  25 0d 0d 02 0c 3d 73 74  |ng$;flag%....=st|
00001cd0  72 69 6e 67 24 0d 0d 0c  06 3a 3a 0d 0d 16 1c dd  |ring$....::.....|
00001ce0  20 f2 43 6c 6f 73 65 5f  4d 65 73 73 61 67 65 73  | .Close_Messages|
00001cf0  28 66 69 6c 65 25 29 0d  0d 20 25 c8 99 20 22 4d  |(file%).. %.. "M|
00001d00  65 73 73 61 67 65 54 72  61 6e 73 5f 43 6c 6f 73  |essageTrans_Clos|
00001d10  65 46 69 6c 65 22 2c 66  69 6c 65 25 0d 0d 2a 1c  |eFile",file%..*.|
00001d20  c8 99 20 22 4f 53 5f 4d  6f 64 75 6c 65 22 2c 20  |.. "OS_Module", |
00001d30  37 2c 2c 66 69 6c 65 25  0d 0d 34 05 e1 0d 0d 3e  |7,,file%..4....>|
00001d40  06 3a 3a 0d 0d 48 1e dd  a4 47 65 74 57 69 6e 64  |.::..H...GetWind|
00001d50  6f 77 4e 75 6d 62 65 72  28 77 69 6e 64 6f 77 25  |owNumber(window%|
00001d60  29 0d 0d 52 0b ea 20 77  25 2c 79 25 0d 0d 5c 09  |)..R.. w%,y%..\.|
00001d70  79 25 3d 2d 31 0d 0d 66  10 e3 20 77 25 3d 34 20  |y%=-1..f.. w%=4 |
00001d80  b8 20 70 70 25 0d 0d 70  20 e7 20 77 69 6e 64 6f  |. pp%..p . windo|
00001d90  77 73 21 77 25 3d 77 69  6e 64 6f 77 25 20 8c 20  |ws!w%=window% . |
00001da0  79 25 3d 77 25 0d 0d 7a  05 ed 0d 0d 84 0d 79 25  |y%=w%..z......y%|
00001db0  3d 79 25 20 81 20 34 0d  0d 8e 0c 3d c3 79 25 2b  |=y% . 4....=.y%+|
00001dc0  22 5e 22 0d 0d 98 06 3a  3a 0d 0d a2 17 dd a4 47  |"^"....::......G|
00001dd0  65 74 4d 65 6e 75 4e 75  6d 62 65 72 28 61 25 29  |etMenuNumber(a%)|
00001de0  0d 0d ac 0b ea 20 77 25  2c 79 25 0d 0d b6 09 79  |..... w%,y%....y|
00001df0  25 3d 2d 31 0d 0d c0 10  e3 20 77 25 3d 34 20 b8  |%=-1..... w%=4 .|
00001e00  20 71 71 25 0d 0d ca 19  e7 20 6d 65 6e 75 73 21  | qq%..... menus!|
00001e10  77 25 3d 61 25 20 8c 20  79 25 3d 77 25 0d 0d d4  |w%=a% . y%=w%...|
00001e20  05 ed 0d 0d de 0d 79 25  3d 79 25 20 81 20 34 0d  |......y%=y% . 4.|
00001e30  0d e8 0c 3d c3 79 25 2b  22 26 22 0d 0d f2 06 3a  |...=.y%+"&"....:|
00001e40  3a 0d 0d fc 11 dd a4 47  65 74 4d 65 6e 75 49 74  |:......GetMenuIt|
00001e50  65 6d 0d 0e 06 2f c8 99  22 57 69 6d 70 5f 47 65  |em.../.."Wimp_Ge|
00001e60  74 4d 65 6e 75 53 74 61  74 65 22 2c 31 2c 4c 69  |tMenuState",1,Li|
00001e70  73 74 25 2c 77 69 6e 64  6f 77 25 2c 69 63 6f 6e  |st%,window%,icon|
00001e80  25 0d 0e 10 0d 3d c3 4c  69 73 74 25 21 30 0d 0e  |%....=.List%!0..|
00001e90  1a 06 3a 3a 0d 0e 24 1d  dd a4 48 65 6c 70 4d 65  |..::..$...HelpMe|
00001ea0  73 73 61 67 65 28 66 69  6c 65 25 2c 74 61 67 24  |ssage(file%,tag$|
00001eb0  29 0d 0e 2e 45 c8 99 22  58 4d 65 73 73 61 67 65  |)...E.."XMessage|
00001ec0  54 72 61 6e 73 5f 4c 6f  6f 6b 75 70 22 2c 66 69  |Trans_Lookup",fi|
00001ed0  6c 65 25 2c 74 61 67 24  2c 30 2c 30 2c 30 2c 30  |le%,tag$,0,0,0,0|
00001ee0  2c 30 2c 30 20 b8 20 2c  2c 73 74 72 69 6e 67 24  |,0,0 . ,,string$|
00001ef0  3b 66 6c 61 67 25 0d 0e  38 22 e7 20 28 66 6c 61  |;flag%..8". (fla|
00001f00  67 25 20 80 20 31 29 20  8c 20 3d 22 22 20 8b 20  |g% . 1) . ="" . |
00001f10  3d 73 74 72 69 6e 67 24  0d 0e 42 06 3a 3a 0d 0e  |=string$..B.::..|
00001f20  4c 1f dd f2 50 6c 61 63  65 50 61 6e 65 28 77 69  |L...PlacePane(wi|
00001f30  6e 64 6f 77 25 2c 70 77  25 2c 73 25 29 0d 0e 56  |ndow%,pw%,s%)..V|
00001f40  21 ea 20 78 25 2c 79 25  2c 70 61 6e 65 77 25 2c  |!. x%,y%,panew%,|
00001f50  70 61 6e 65 68 25 2c 78  78 25 2c 79 79 25 0d 0e  |paneh%,xx%,yy%..|
00001f60  60 10 71 25 21 30 3d 77  69 6e 64 6f 77 25 0d 0e  |`.q%!0=window%..|
00001f70  6a 1f c8 99 22 57 69 6d  70 5f 47 65 74 57 69 6e  |j..."Wimp_GetWin|
00001f80  64 6f 77 53 74 61 74 65  22 2c 2c 71 25 0d 0e 74  |dowState",,q%..t|
00001f90  27 78 25 3d 71 25 21 34  3a 79 25 3d 71 25 21 38  |'x%=q%!4:y%=q%!8|
00001fa0  3a 78 78 25 3d 71 25 21  31 32 3a 79 79 25 3d 71  |:xx%=q%!12:yy%=q|
00001fb0  25 21 31 36 0d 0e 7e 06  3a 3a 0d 0e 88 0c 71 25  |%!16..~.::....q%|
00001fc0  21 30 3d 70 77 25 0d 0e  92 1f c8 99 22 57 69 6d  |!0=pw%......"Wim|
00001fd0  70 5f 47 65 74 57 69 6e  64 6f 77 53 74 61 74 65  |p_GetWindowState|
00001fe0  22 2c 2c 71 25 0d 0e 9c  27 70 61 6e 65 77 25 3d  |",,q%...'panew%=|
00001ff0  71 25 21 31 32 2d 71 25  21 34 3a 70 61 6e 65 68  |q%!12-q%!4:paneh|
00002000  25 3d 71 25 21 31 36 2d  71 25 21 38 0d 0e a6 06  |%=q%!16-q%!8....|
00002010  3a 3a 0d 0e b0 0b c8 8e  20 73 25 20 ca 0d 0e ba  |::...... s% ....|
00002020  4a c9 20 31 3a 71 25 21  34 3d 78 25 2d 70 61 6e  |J. 1:q%!4=x%-pan|
00002030  65 77 25 3a 71 25 21 38  3d 79 79 25 2d 70 61 6e  |ew%:q%!8=yy%-pan|
00002040  65 68 25 3a 71 25 21 31  32 3d 71 25 21 34 2b 70  |eh%:q%!12=q%!4+p|
00002050  61 6e 65 77 25 3a 71 25  21 31 36 3d 71 25 21 38  |anew%:q%!16=q%!8|
00002060  2b 70 61 6e 65 68 25 0d  0e c4 44 c9 20 32 3a 71  |+paneh%...D. 2:q|
00002070  25 21 34 3d 78 25 3a 71  25 21 38 3d 79 25 2d 70  |%!4=x%:q%!8=y%-p|
00002080  61 6e 65 68 25 2d 32 3a  71 25 21 31 32 3d 71 25  |aneh%-2:q%!12=q%|
00002090  21 34 2b 70 61 6e 65 77  25 3a 71 25 21 31 36 3d  |!4+panew%:q%!16=|
000020a0  71 25 21 38 2b 70 61 6e  65 68 25 0d 0e ce 05 cb  |q%!8+paneh%.....|
000020b0  0d 0e d8 06 3a 3a 0d 0e  e2 0c 71 25 21 32 38 3d  |....::....q%!28=|
000020c0  2d 31 0d 0e ec 1b c8 99  22 57 69 6d 70 5f 4f 70  |-1......"Wimp_Op|
000020d0  65 6e 57 69 6e 64 6f 77  22 2c 2c 71 25 0d 0e f6  |enWindow",,q%...|
000020e0  05 e1 0d 0f 00 06 3a 3a  0d 0f 0a 10 dd f2 44 72  |......::......Dr|
000020f0  61 77 57 69 6e 64 6f 77  0d 0f 14 22 c8 99 22 57  |awWindow...".."W|
00002100  69 6d 70 5f 52 65 64 72  61 77 57 69 6e 64 6f 77  |imp_RedrawWindow|
00002110  22 2c 2c 71 25 20 b8 20  66 25 0d 0f 1e 09 c8 95  |",,q% . f%......|
00002120  20 66 25 0d 0f 28 17 f2  55 70 64 61 74 65 57 69  | f%..(..UpdateWi|
00002130  6e 64 6f 77 28 71 25 21  30 29 0d 0f 32 22 c8 99  |ndow(q%!0)..2"..|
00002140  22 57 69 6d 70 5f 47 65  74 52 65 63 74 61 6e 67  |"Wimp_GetRectang|
00002150  6c 65 22 2c 2c 71 25 20  b8 20 66 25 0d 0f 3c 05  |le",,q% . f%..<.|
00002160  ce 0d 0f 46 05 e1 0d ff                           |...F....|
00002168