�T("Constant",12806,7144)
�V
�I
�e
�A(Main_Window%)
�B
�c
�D
	�

� �V
interface%=�
�"alphabet greek"

size=157
position=1
%file%=�("<Cooker$Dir>.Constants")
;� name$(size),symbol$(size),units$(size,2),value$(size)
� n=1�size
name$(n)=�#file%
symbol$(n)=�#file%
value$(n)=�#file%
units$(n,1)=�#file%
units$(n,2)=�#file%
�
�#file%
�
� �I
Info_Window%=�C("Info")
Search_Window%=�C("Search")
Main_Window%=�C("Main")
Index_Window%=�C("Index")
Bar_Icon%=�J("!constant")
 � n=40�157
!#�C(Index_Window%,n,name$(n-39))
"�
#�
$� �G(window%)=�
%� �H(window%)=sprites%
&� �e
'HBar_Menu%=�A("Constant\Info>Info_Window%\Show Window\Help ...\Quit")
(HSub_Menu%=�A("Subatomic\Electrons\Protons\Neutrons\Deuterons\Muons")
)hmenu$="Category\Fundamental\Length\Area\Volume\Mass\Time\Velocity\Accel.\Force\Pressure\Temperature"
*9menu$+="\Angle\Energy\E-magnetic\Subatomic>Sub_Menu%"
+Cat_Menu%=�A(menu$)
,PMain_Menu%=�A("Constant\Category>Cat_Menu%\Search>Search_Window%\Index ...")
-�
.� �N(window%)
/Ȏ window%�
0� Bar_Window%:=Bar_Menu%
1� Main_Window%:=Main_Menu%
2=�
3�
4� �J(window%,buttons%)
5Ȏ window%�
6�
7�
8%� �K(window%,x_origin%,y_origin%)
9Ȏ window%�
:� Info_Window%:�L
;� Main_Window%:�M
<�
=�
>� �L
?�
@� �M
A�
B%� �N(window%,icon%,button%,x%,y%)
CȎ window%�
D� Bar_Window%:�O
E$� Info_Window%:�P(button%,icon%)
F&� Search_Window%:�Q(button%,icon%)
G$� Main_Window%:�R(button%,icon%)
H%� Index_Window%:�S(button%,icon%)
I�
J�
K� �O
LȎ button%�
M�1:�A(Index_Window%)
N�4:�A(Main_Window%)
O�
P�B
Q�
R� �P(button%,icon%)
S�
T� �S(button%,icon%)
U� icon%>39�icon%<197�
Vposition=icon%-39
W�B
X�
Y�
Z� �Q(button%,icon%)
[� icon%=2�E
\�
]� �R(button%,icon%)
^
Ȏ icon%�
_�16:position-=1
`�1:position+=1
a�
b� position>157position=1
c� position<1position=157
d�B
e�
f� �B
g�A(Main_Window%)
h&�C(Main_Window%,3,name$(position))
i(�C(Main_Window%,4,symbol$(position))
j'�C(Main_Window%,5,value$(position))
k)�C(Main_Window%,6,units$(position,1))
l*�C(Main_Window%,17,units$(position,2))
m�
n� �U(window%,icon%,key%)
oȎ window%�
p� Search_Window%
q� key%=13�icon%=1�E
r�
s�
t� �E
u search$=�O(Search_Window%,1)
v4� search$=""�F("Constant","No search string!"):�
wn=0
x�
yn+=1
z#� n=size ��name$(n),search$)<>0
{#� n=size ��name$(n),search$)=0�
|(�F("Constant","Couldn't find that!")
}�
~position=n:�B
�W
��
��
�� �X(menu%)
�
Ȏ menu%�
�� Bar_Menu%:�Y
�� Main_Menu%:�Z
��
��
�� �Y
�
Ȏ �D(0)�
��1
��2:�A(Main_Window%)
��3:�a("<Cooker$Dir>.!Help")
��4:finished%=�
��
��
�� �Z
�
Ȏ �D(0)�
��1
�
Ȏ �D(1)�
��1:position=1
��2:position=30
��3:position=44
��4:position=45
��5:position=61
��6:position=73
��7:position=74
��8:position=76
��9:position=77
��10:position=80
��11:position=89
��12:position=92
��13:position=96
��14:position=107
��15
�
Ȏ �D(2)�
��1:position=119
��2:position=127
��3:position=136
��4:position=143
��5:position=145
��
��
��B
��2
��3:�A(Index_Window%)
��
��
�� �b(file$,type$)
��
�� �G(file$,window%)
��
�� �d(title$,message$)
��H(title$,message$,0)
��
�!� �H(title$,message$,button%)
�� response%
�$(wimp%+4)=message$
�Ȏ button%�
��2:response%=1
��1:response%=15
��3:response%=(1<<5)+16
��4:response%=(1<<6)+16
� response%=16
��
�.ș262367,wimp%,response%,title$�,response%
��
�� �Q(title$,message$)
�$(wimp%+4)=message$
�response%=23
�.ș262367,wimp%,response%,title$�,response%
�=response%-2
�� �F(title$,message$)
��H(title$,message$,2)
��
�� �C(window$)
�)=�I(window$,"<Cooker$Dir>.Templates")
�� �I(window$,template$)
�� c%,i%,n%,j%,sp$,sp2$
�ș262361,,template$
�=ș262363,,wimp%,icons%,icon_memory%,-1,window$,0�,,icons%
�Ȏ sprites%�
��1:wimp%!64=sprites%
� wimp%!64=�H(window%)
��
�ș262337,,wimp%�c%
�ș262362
�,ș262358,c%,wimp%+40,1+2+(1<<8),2+(1<<8)
�Ȏ wimp%!40�
��-1
� i%=40
��
�wimp%!4=wimp%!i%:wimp%!0=c%
�ș262350,,wimp%
�sp$=�B(wimp%!28)
�ș262340,,wimp%
�Ȏ sprites%�
��1:wimp%!32=1
�
�ș46,264,sprites%�,,,n%
�j%=0
��:j%+=1
�*ș46,269,sprites%,pointer_block%,20,j%
�sp2$=�B(pointer_block%)
�� j%=n%�sp$=sp2$
�-� sp$=sp2$� wimp%!32=sprites%� wimp%!32=1
��
�wimp%!4=c%
�ș262338,,wimp%+4�handle%
�	i%+=4
��(wimp%!i%)=-1
��
�=c%
�� �A(window%)
�!wimp%=window%
�ș262347,,wimp%
�wimp%!28=-1
�ș262341,,wimp%
��
��t
�ș530049,,wimp%
��
�� �J(Sprite$)
�� icon%
�wimp%!0=-1
�wimp%!4=0:wimp%!8=0
�wimp%!12=68:wimp%!16=68
�wimp%!20=12290

$(wimp%+24)=Sprite$


ș262338,,wimp%�icon%


=icon%

� �O(window%,icon%)

!wimp%!0=window%:wimp%!4=icon%

ș262350,,wimp%

1�((wimp%!24)�256)=0�1,"Icon isn't indirected"

=$(wimp%!28)

� �C(window%,icon%,text$)

	!wimp%!0=window%:wimp%!4=icon%


ș262350,,wimp%

1�((wimp%!24)�256)=0�1,"Icon isn't indirected"

$(wimp%!28)=text$


!wimp%!0=window%:wimp%!4=icon%

wimp%!8=0:wimp%!12=0

ș262349,,wimp%

�

� �D(level%)

=(wimp%!(4*level%))+1

� �A(menu$)

� menu$="Colours"�=�K

'� menu%,index%,width%,length%,k%,s%

� menu%28+�L(menu$)*24

/menu%?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$�

 �""

!

"+!index%=0:index%!4=-1:index%!8=&7000021

#length%=�menu$,"\")-1

$k%=��menu$,length%),">")

%
Ȏ k%�

&�0

'

(!s%=�(�menu$,k%+1,length%-k%))

)index%!4=s%

*length%=k%-1

+�

, $(index%+12)=�menu$,length%)

-$� length%>width%� width%=length%

.index%+=24

/�

0�

1menu%!16=16*(width%+1)

2$index%!-24=index%!-24�128:=menu%

3� �K

4=�M(" ")

5� �M(title$)

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

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

8men%=�A(x$)

9
� i%=0�15

:
Ȏ � �

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

<
 j%=0

=�

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

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

@�

A	=men%

B� �L(menu$)

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

D�

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

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

G
� j%=0

H=n%

I� �f(menu%,item%)

J:menu%!(36+(item%-1)*24)=menu%!(36+(item%-1)*24)�(1<<3)

K�

L� �W

Mș262356,-1

N�

O� �F(type%)

P
Ȏ type%�

Q�4095:="Text"

R�4093:="Data"

S�4091:="Basic"

T�4089:="Sprite"

U�4077:="Palette"

V�4076:="Template"

W�2815:="Draw"

X�4096:="Folder"

Y�8192:="Application"

Z=�~(type%)

[�

\� �P

]=�B(wimp%+44)

^� �B(array%)

_� s$:s$=""

`;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�

a=s$

b� �E(f$)

cȎ �f$,".")�

d
�0:=f$

e=�E(�f$,�(f$)-�f$,".")))

f�

g� �a(file$)

h� n%

iwimp%!4=&6CC01C0C

jwimp%!16=5

kwimp%!36=0

lwimp%!40=4095

m$(wimp%+44)=file$+�0

nn%=� file$+45

o(� n%�4�!wimp%=4+(n%>>2)<<2�!wimp%=n%

pș262375,17,wimp%,0

q�

r&� �T(TaskName$,wimp_memory%,icon%)

s#� wimp%wimp_memory%,icons%icon%

t(� wimp_memory%<256� wimp_memory%=256

uicon_memory%=icons%+icon%

vtask$=TaskName$

w)indirect_sprites%=1:direct_sprites%=1

x�g

y� � �h:�

z3ș262336,200,&4B534154,TaskName$�version%,task%

{�

|� �R

}� com$,param$,I%

~
ș16�com$

params$=""

�I%=�com$," -quit ")

�3� I%� params$=�com$,�com$," ",I%+�" -quit ")+1)

�=params$

�� �g

�� pointer_block%20

�interface%=�

�)null%=1:draw%=2:pointer_leaving%=1<<4

�1pointer_entering%=1<<5:mouse%=1<<6:drag%=1<<7

�&key%=1<<8:menu%=1<<9:scroll%=1<<10

�@lose_caret%=1<<11:gain_caret%=1<<12:message%=(1<<17)+(1<<18)

�0recorder%=1<<18:acknowledge%=1<<19:window%=0

�!sprites%=1:version%=0:task%=0

�*Bar_Window%=-2:Bar_Icon%=0:Bar_Menu%=0

�*x_origin%=0:y_origin%=0:SaveWindow%=-3

�3message_quit%=0:message_save%=2:message_load%=3

�!mouse_button%=2:save_event%=0

�top_line%=0:bottom_line%=0

��

�� �h

�� X$,x%

�	� � �

�x%=�

�X$=�$+"atline"+�(x%�10)

�� ErrorMsg%36

�EErrorMsg%!0=36:ErrorMsg%!12=0:ErrorMsg%!16=528512:ErrorMsg%!20=x%

�$(ErrorMsg%+24)="!RunImage"

�ș262375,17,ErrorMsg%

��d(task$,X$)

��D

��

�� �D

�ș262365,task%,"TASK"

��

�� �c

�� mask%,event%

�finished%=�

�mask%=3609

��

�ș262343,mask%,wimp%�event%

�Ȏ event%�

��0

�	�1:�i

��2:ș262341,,wimp%

�	�3:�j

��4

��5

�	�6:�k

�	�7:�l

�	�8:�m

��9:�X(menu%)

��10

��11

��12

�
�17,18:�n

��19

��

�� finished%

��

�� �i

�� more%

�ș262344,,wimp%�more%

�window%=wimp%!0

�Ax_origin%=16+wimp%!4-wimp%!20:y_origin%=-16+wimp%!16-wimp%!24

�ȕ more%

�!� interface%� ș530049,,wimp%

�#�K(window%,x_origin%,y_origin%)

�ș262346,,wimp%�more%

��

��

�� �j

�ș262351,,wimp%

�%window%=wimp%!12:buttons%=wimp%!8

��J(window%,buttons%)

�"!wimp%=window%:ș262342,,wimp%

��

�� �k

�Ibutton%=wimp%!8:window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4

�Ȏ button%�

�	�2:�o

� Ȏ �G(window%)�

�
� �:�p

�
� �:�q

��

��

��

�� �o

�menu%=�N(window%)

�
Ȏ menu%�

�� �

�

�Ȏ window%�

��-2:n%=0

�$ȕ((Bar_Menu%!(28+n%*24))�128)=0

�	n%+=1

��

�'ș262356,,Bar_Menu%,x%-64,140+n%*44

�! ș262356,,menu%,x%-64,y%+20

��

��

��

�� �p

�
Ȏ icon%�

� �0:� button%�80� �r(window%)

��2:� button%�5� �s(window%)

��

��

�� �q

�!� interface%� ș530048,,wimp%

�#�N(window%,icon%,button%,x%,y%)

�Ȏ interface%�

�� �

�#wimp%!0=x%:wimp%!4=y%:wimp%!8=0

�#wimp%!12=window%:wimp%!16=icon%

�ș530048,,wimp%

��

��

�� �s(window%)

�� file$

�-wimp%!0=window%:wimp%!4=1:ș262350,,wimp%

�file$=$(wimp%!28)

�Ȏ �file$,".")�

��0

�=$(wimp%+4)="To save, drag the icon to a directory window"

�ș262367,wimp%,16,task$

�

��G(file$,window%)

��

�ș262356,-1
�

� �r(window%)
� x%,y%
save%=window%
!wimp%=window%
ș262347,,wimp%
,x%=wimp%!4-wimp%!20:y%=wimp%!16-wimp%!24

wimp%!4=0
ș262350,,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
)wimp%!32=&7FFFFFFF:wimp%!36=&7FFFFFFF
ș262352,,wimp%
�
� �m
/window%=wimp%!0:icon%=wimp%!4:key%=wimp%!24
Ȏ �G(window%)�
� �:�u(window%)
� �:�U(window%,icon%,key%)
�
�
� �l
� file$,window%,icon%,x%,y%
ș262351,,wimp%
9window%=wimp%!12:icon%=wimp%!16:x%=wimp%!0:y%=wimp%!4
+wimp%!0=save%:wimp%!4=1:ș262350,,wimp%
file$=$(wimp%!28)
file$=�E(file$)
wimp%!20=window%
 wimp%!24=icon%
!wimp%!28=x%:wimp%!32=y%
"wimp%!36=length%
#wimp%!0=64
$wimp%!12=0
%wimp%!16=1
&wimp%!40=4095
'$(wimp%+44)=file$
('ș262375,17,wimp%,wimp%!20,wimp%!24
)�
*� �n
+� file$
,file$=�B(wimp%+44)
-Ȏ wimp%!16�
.�0:finished%=�
/�1
0�2
1+wimp%!0=save%:wimp%!4=1:ș262350,,wimp%
2$(wimp%!28)=file$
30wimp%!0=save%:wimp%!4=1:wimp%!8=0:wimp%!12=0
4ș262349,,wimp%
5!ș262354,save%,1,,,-1,� file$
6�G(file$,save%)
7�3
8&type$=�F(wimp%!40):�b(file$,type$)
9�
:�
;� �B(array%)
<� s$:s$=""
=;ȕ(?array%<>13)�(?array%<>0):s$+=�(?array%):array%+=1:�
>=s$
?� �E(f$)
@Ȏ �f$,".")�
A
�0:=f$
B=�E(�f$,�(f$)-�f$,".")))
C�
D� �F(type%)
E
Ȏ type%�
F�4095:="Text"
G�4093:="Data"
H�4091:="Basic"
I�4089:="Sprite"
J�4077:="Palette"
K�4076:="Template"
L�2815:="Draw"
M�4096:="Folder"
N�8192:="Application"
O=�~(type%)
P�
�

00000000  0d 00 01 1d f2 54 28 22  43 6f 6e 73 74 61 6e 74  |.....T("Constant|
00000010  22 2c 31 32 38 30 36 2c  37 31 34 34 29 0d 00 02  |",12806,7144)...|
00000020  06 f2 56 0d 00 03 06 f2  49 0d 00 04 06 f2 65 0d  |..V.....I.....e.|
00000030  00 05 14 f2 41 28 4d 61  69 6e 5f 57 69 6e 64 6f  |....A(Main_Windo|
00000040  77 25 29 0d 00 06 06 f2  42 0d 00 07 06 f2 63 0d  |w%).....B.....c.|
00000050  00 08 06 f2 44 0d 00 09  05 e0 0d 00 0a 08 dd 20  |....D.......... |
00000060  f2 56 0d 00 0b 10 69 6e  74 65 72 66 61 63 65 25  |.V....interface%|
00000070  3d b9 0d 00 0c 15 ff 22  61 6c 70 68 61 62 65 74  |=......"alphabet|
00000080  20 67 72 65 65 6b 22 0d  00 0d 0c 73 69 7a 65 3d  | greek"....size=|
00000090  31 35 37 0d 00 0e 0e 70  6f 73 69 74 69 6f 6e 3d  |157....position=|
000000a0  31 0d 00 0f 25 66 69 6c  65 25 3d 8e 28 22 3c 43  |1...%file%=.("<C|
000000b0  6f 6f 6b 65 72 24 44 69  72 3e 2e 43 6f 6e 73 74  |ooker$Dir>.Const|
000000c0  61 6e 74 73 22 29 0d 00  10 3b de 20 6e 61 6d 65  |ants")...;. name|
000000d0  24 28 73 69 7a 65 29 2c  73 79 6d 62 6f 6c 24 28  |$(size),symbol$(|
000000e0  73 69 7a 65 29 2c 75 6e  69 74 73 24 28 73 69 7a  |size),units$(siz|
000000f0  65 2c 32 29 2c 76 61 6c  75 65 24 28 73 69 7a 65  |e,2),value$(size|
00000100  29 0d 00 11 0e e3 20 6e  3d 31 b8 73 69 7a 65 0d  |)..... n=1.size.|
00000110  00 12 14 6e 61 6d 65 24  28 6e 29 3d be 23 66 69  |...name$(n)=.#fi|
00000120  6c 65 25 0d 00 13 16 73  79 6d 62 6f 6c 24 28 6e  |le%....symbol$(n|
00000130  29 3d be 23 66 69 6c 65  25 0d 00 14 15 76 61 6c  |)=.#file%....val|
00000140  75 65 24 28 6e 29 3d be  23 66 69 6c 65 25 0d 00  |ue$(n)=.#file%..|
00000150  15 17 75 6e 69 74 73 24  28 6e 2c 31 29 3d be 23  |..units$(n,1)=.#|
00000160  66 69 6c 65 25 0d 00 16  17 75 6e 69 74 73 24 28  |file%....units$(|
00000170  6e 2c 32 29 3d be 23 66  69 6c 65 25 0d 00 17 05  |n,2)=.#file%....|
00000180  ed 0d 00 18 0b d9 23 66  69 6c 65 25 0d 00 19 05  |......#file%....|
00000190  e1 0d 00 1a 08 dd 20 f2  49 0d 00 1b 1b 49 6e 66  |...... .I....Inf|
000001a0  6f 5f 57 69 6e 64 6f 77  25 3d a4 43 28 22 49 6e  |o_Window%=.C("In|
000001b0  66 6f 22 29 0d 00 1c 1f  53 65 61 72 63 68 5f 57  |fo")....Search_W|
000001c0  69 6e 64 6f 77 25 3d a4  43 28 22 53 65 61 72 63  |indow%=.C("Searc|
000001d0  68 22 29 0d 00 1d 1b 4d  61 69 6e 5f 57 69 6e 64  |h")....Main_Wind|
000001e0  6f 77 25 3d a4 43 28 22  4d 61 69 6e 22 29 0d 00  |ow%=.C("Main")..|
000001f0  1e 1d 49 6e 64 65 78 5f  57 69 6e 64 6f 77 25 3d  |..Index_Window%=|
00000200  a4 43 28 22 49 6e 64 65  78 22 29 0d 00 1f 1d 42  |.C("Index")....B|
00000210  61 72 5f 49 63 6f 6e 25  3d a4 4a 28 22 21 63 6f  |ar_Icon%=.J("!co|
00000220  6e 73 74 61 6e 74 22 29  0d 00 20 0e e3 20 6e 3d  |nstant").. .. n=|
00000230  34 30 b8 31 35 37 0d 00  21 23 f2 43 28 49 6e 64  |40.157..!#.C(Ind|
00000240  65 78 5f 57 69 6e 64 6f  77 25 2c 6e 2c 6e 61 6d  |ex_Window%,n,nam|
00000250  65 24 28 6e 2d 33 39 29  29 0d 00 22 05 ed 0d 00  |e$(n-39)).."....|
00000260  23 05 e1 0d 00 24 13 dd  20 a4 47 28 77 69 6e 64  |#....$.. .G(wind|
00000270  6f 77 25 29 3d a3 0d 00  25 1a dd 20 a4 48 28 77  |ow%)=...%.. .H(w|
00000280  69 6e 64 6f 77 25 29 3d  73 70 72 69 74 65 73 25  |indow%)=sprites%|
00000290  0d 00 26 08 dd 20 f2 65  0d 00 27 48 42 61 72 5f  |..&.. .e..'HBar_|
000002a0  4d 65 6e 75 25 3d a4 41  28 22 43 6f 6e 73 74 61  |Menu%=.A("Consta|
000002b0  6e 74 5c 49 6e 66 6f 3e  49 6e 66 6f 5f 57 69 6e  |nt\Info>Info_Win|
000002c0  64 6f 77 25 5c 53 68 6f  77 20 57 69 6e 64 6f 77  |dow%\Show Window|
000002d0  5c 48 65 6c 70 20 2e 2e  2e 5c 51 75 69 74 22 29  |\Help ...\Quit")|
000002e0  0d 00 28 48 53 75 62 5f  4d 65 6e 75 25 3d a4 41  |..(HSub_Menu%=.A|
000002f0  28 22 53 75 62 61 74 6f  6d 69 63 5c 45 6c 65 63  |("Subatomic\Elec|
00000300  74 72 6f 6e 73 5c 50 72  6f 74 6f 6e 73 5c 4e 65  |trons\Protons\Ne|
00000310  75 74 72 6f 6e 73 5c 44  65 75 74 65 72 6f 6e 73  |utrons\Deuterons|
00000320  5c 4d 75 6f 6e 73 22 29  0d 00 29 68 6d 65 6e 75  |\Muons")..)hmenu|
00000330  24 3d 22 43 61 74 65 67  6f 72 79 5c 46 75 6e 64  |$="Category\Fund|
00000340  61 6d 65 6e 74 61 6c 5c  4c 65 6e 67 74 68 5c 41  |amental\Length\A|
00000350  72 65 61 5c 56 6f 6c 75  6d 65 5c 4d 61 73 73 5c  |rea\Volume\Mass\|
00000360  54 69 6d 65 5c 56 65 6c  6f 63 69 74 79 5c 41 63  |Time\Velocity\Ac|
00000370  63 65 6c 2e 5c 46 6f 72  63 65 5c 50 72 65 73 73  |cel.\Force\Press|
00000380  75 72 65 5c 54 65 6d 70  65 72 61 74 75 72 65 22  |ure\Temperature"|
00000390  0d 00 2a 39 6d 65 6e 75  24 2b 3d 22 5c 41 6e 67  |..*9menu$+="\Ang|
000003a0  6c 65 5c 45 6e 65 72 67  79 5c 45 2d 6d 61 67 6e  |le\Energy\E-magn|
000003b0  65 74 69 63 5c 53 75 62  61 74 6f 6d 69 63 3e 53  |etic\Subatomic>S|
000003c0  75 62 5f 4d 65 6e 75 25  22 0d 00 2b 17 43 61 74  |ub_Menu%"..+.Cat|
000003d0  5f 4d 65 6e 75 25 3d a4  41 28 6d 65 6e 75 24 29  |_Menu%=.A(menu$)|
000003e0  0d 00 2c 50 4d 61 69 6e  5f 4d 65 6e 75 25 3d a4  |..,PMain_Menu%=.|
000003f0  41 28 22 43 6f 6e 73 74  61 6e 74 5c 43 61 74 65  |A("Constant\Cate|
00000400  67 6f 72 79 3e 43 61 74  5f 4d 65 6e 75 25 5c 53  |gory>Cat_Menu%\S|
00000410  65 61 72 63 68 3e 53 65  61 72 63 68 5f 57 69 6e  |earch>Search_Win|
00000420  64 6f 77 25 5c 49 6e 64  65 78 20 2e 2e 2e 22 29  |dow%\Index ...")|
00000430  0d 00 2d 05 e1 0d 00 2e  11 dd 20 a4 4e 28 77 69  |..-....... .N(wi|
00000440  6e 64 6f 77 25 29 0d 00  2f 0f c8 8e 20 77 69 6e  |ndow%)../... win|
00000450  64 6f 77 25 ca 0d 00 30  1c c9 20 42 61 72 5f 57  |dow%...0.. Bar_W|
00000460  69 6e 64 6f 77 25 3a 3d  42 61 72 5f 4d 65 6e 75  |indow%:=Bar_Menu|
00000470  25 0d 00 31 1e c9 20 4d  61 69 6e 5f 57 69 6e 64  |%..1.. Main_Wind|
00000480  6f 77 25 3a 3d 4d 61 69  6e 5f 4d 65 6e 75 25 0d  |ow%:=Main_Menu%.|
00000490  00 32 07 7f 3d a3 0d 00  33 05 cb 0d 00 34 1a dd  |.2..=...3....4..|
000004a0  20 f2 4a 28 77 69 6e 64  6f 77 25 2c 62 75 74 74  | .J(window%,butt|
000004b0  6f 6e 73 25 29 0d 00 35  0f c8 8e 20 77 69 6e 64  |ons%)..5... wind|
000004c0  6f 77 25 ca 0d 00 36 05  cb 0d 00 37 05 e1 0d 00  |ow%...6....7....|
000004d0  38 25 dd 20 f2 4b 28 77  69 6e 64 6f 77 25 2c 78  |8%. .K(window%,x|
000004e0  5f 6f 72 69 67 69 6e 25  2c 79 5f 6f 72 69 67 69  |_origin%,y_origi|
000004f0  6e 25 29 0d 00 39 0f c8  8e 20 77 69 6e 64 6f 77  |n%)..9... window|
00000500  25 ca 0d 00 3a 15 c9 20  49 6e 66 6f 5f 57 69 6e  |%...:.. Info_Win|
00000510  64 6f 77 25 3a f2 4c 0d  00 3b 15 c9 20 4d 61 69  |dow%:.L..;.. Mai|
00000520  6e 5f 57 69 6e 64 6f 77  25 3a f2 4d 0d 00 3c 05  |n_Window%:.M..<.|
00000530  cb 0d 00 3d 05 e1 0d 00  3e 08 dd 20 f2 4c 0d 00  |...=....>.. .L..|
00000540  3f 05 e1 0d 00 40 08 dd  20 f2 4d 0d 00 41 05 e1  |?....@.. .M..A..|
00000550  0d 00 42 25 dd 20 f2 4e  28 77 69 6e 64 6f 77 25  |..B%. .N(window%|
00000560  2c 69 63 6f 6e 25 2c 62  75 74 74 6f 6e 25 2c 78  |,icon%,button%,x|
00000570  25 2c 79 25 29 0d 00 43  0f c8 8e 20 77 69 6e 64  |%,y%)..C... wind|
00000580  6f 77 25 ca 0d 00 44 14  c9 20 42 61 72 5f 57 69  |ow%...D.. Bar_Wi|
00000590  6e 64 6f 77 25 3a f2 4f  0d 00 45 24 c9 20 49 6e  |ndow%:.O..E$. In|
000005a0  66 6f 5f 57 69 6e 64 6f  77 25 3a f2 50 28 62 75  |fo_Window%:.P(bu|
000005b0  74 74 6f 6e 25 2c 69 63  6f 6e 25 29 0d 00 46 26  |tton%,icon%)..F&|
000005c0  c9 20 53 65 61 72 63 68  5f 57 69 6e 64 6f 77 25  |. Search_Window%|
000005d0  3a f2 51 28 62 75 74 74  6f 6e 25 2c 69 63 6f 6e  |:.Q(button%,icon|
000005e0  25 29 0d 00 47 24 c9 20  4d 61 69 6e 5f 57 69 6e  |%)..G$. Main_Win|
000005f0  64 6f 77 25 3a f2 52 28  62 75 74 74 6f 6e 25 2c  |dow%:.R(button%,|
00000600  69 63 6f 6e 25 29 0d 00  48 25 c9 20 49 6e 64 65  |icon%)..H%. Inde|
00000610  78 5f 57 69 6e 64 6f 77  25 3a f2 53 28 62 75 74  |x_Window%:.S(but|
00000620  74 6f 6e 25 2c 69 63 6f  6e 25 29 0d 00 49 05 cb  |ton%,icon%)..I..|
00000630  0d 00 4a 05 e1 0d 00 4b  08 dd 20 f2 4f 0d 00 4c  |..J....K.. .O..L|
00000640  0f c8 8e 20 62 75 74 74  6f 6e 25 ca 0d 00 4d 18  |... button%...M.|
00000650  c9 31 3a f2 41 28 49 6e  64 65 78 5f 57 69 6e 64  |.1:.A(Index_Wind|
00000660  6f 77 25 29 0d 00 4e 17  c9 34 3a f2 41 28 4d 61  |ow%)..N..4:.A(Ma|
00000670  69 6e 5f 57 69 6e 64 6f  77 25 29 0d 00 4f 05 cb  |in_Window%)..O..|
00000680  0d 00 50 06 f2 42 0d 00  51 05 e1 0d 00 52 17 dd  |..P..B..Q....R..|
00000690  20 f2 50 28 62 75 74 74  6f 6e 25 2c 69 63 6f 6e  | .P(button%,icon|
000006a0  25 29 0d 00 53 05 e1 0d  00 54 17 dd 20 f2 53 28  |%)..S....T.. .S(|
000006b0  62 75 74 74 6f 6e 25 2c  69 63 6f 6e 25 29 0d 00  |button%,icon%)..|
000006c0  55 19 e7 20 69 63 6f 6e  25 3e 33 39 80 69 63 6f  |U.. icon%>39.ico|
000006d0  6e 25 3c 31 39 37 8c 0d  00 56 15 70 6f 73 69 74  |n%<197...V.posit|
000006e0  69 6f 6e 3d 69 63 6f 6e  25 2d 33 39 0d 00 57 06  |ion=icon%-39..W.|
000006f0  f2 42 0d 00 58 05 cd 0d  00 59 05 e1 0d 00 5a 17  |.B..X....Y....Z.|
00000700  dd 20 f2 51 28 62 75 74  74 6f 6e 25 2c 69 63 6f  |. .Q(button%,ico|
00000710  6e 25 29 0d 00 5b 0f e7  20 69 63 6f 6e 25 3d 32  |n%)..[.. icon%=2|
00000720  f2 45 0d 00 5c 05 e1 0d  00 5d 17 dd 20 f2 52 28  |.E..\....].. .R(|
00000730  62 75 74 74 6f 6e 25 2c  69 63 6f 6e 25 29 0d 00  |button%,icon%)..|
00000740  5e 0d c8 8e 20 69 63 6f  6e 25 ca 0d 00 5f 13 c9  |^... icon%..._..|
00000750  31 36 3a 70 6f 73 69 74  69 6f 6e 2d 3d 31 0d 00  |16:position-=1..|
00000760  60 12 c9 31 3a 70 6f 73  69 74 69 6f 6e 2b 3d 31  |`..1:position+=1|
00000770  0d 00 61 05 cb 0d 00 62  1c e7 20 70 6f 73 69 74  |..a....b.. posit|
00000780  69 6f 6e 3e 31 35 37 70  6f 73 69 74 69 6f 6e 3d  |ion>157position=|
00000790  31 0d 00 63 1c e7 20 70  6f 73 69 74 69 6f 6e 3c  |1..c.. position<|
000007a0  31 70 6f 73 69 74 69 6f  6e 3d 31 35 37 0d 00 64  |1position=157..d|
000007b0  06 f2 42 0d 00 65 05 e1  0d 00 66 08 dd 20 f2 42  |..B..e....f.. .B|
000007c0  0d 00 67 14 f2 41 28 4d  61 69 6e 5f 57 69 6e 64  |..g..A(Main_Wind|
000007d0  6f 77 25 29 0d 00 68 26  f2 43 28 4d 61 69 6e 5f  |ow%)..h&.C(Main_|
000007e0  57 69 6e 64 6f 77 25 2c  33 2c 6e 61 6d 65 24 28  |Window%,3,name$(|
000007f0  70 6f 73 69 74 69 6f 6e  29 29 0d 00 69 28 f2 43  |position))..i(.C|
00000800  28 4d 61 69 6e 5f 57 69  6e 64 6f 77 25 2c 34 2c  |(Main_Window%,4,|
00000810  73 79 6d 62 6f 6c 24 28  70 6f 73 69 74 69 6f 6e  |symbol$(position|
00000820  29 29 0d 00 6a 27 f2 43  28 4d 61 69 6e 5f 57 69  |))..j'.C(Main_Wi|
00000830  6e 64 6f 77 25 2c 35 2c  76 61 6c 75 65 24 28 70  |ndow%,5,value$(p|
00000840  6f 73 69 74 69 6f 6e 29  29 0d 00 6b 29 f2 43 28  |osition))..k).C(|
00000850  4d 61 69 6e 5f 57 69 6e  64 6f 77 25 2c 36 2c 75  |Main_Window%,6,u|
00000860  6e 69 74 73 24 28 70 6f  73 69 74 69 6f 6e 2c 31  |nits$(position,1|
00000870  29 29 0d 00 6c 2a f2 43  28 4d 61 69 6e 5f 57 69  |))..l*.C(Main_Wi|
00000880  6e 64 6f 77 25 2c 31 37  2c 75 6e 69 74 73 24 28  |ndow%,17,units$(|
00000890  70 6f 73 69 74 69 6f 6e  2c 32 29 29 0d 00 6d 05  |position,2))..m.|
000008a0  e1 0d 00 6e 1c dd 20 f2  55 28 77 69 6e 64 6f 77  |...n.. .U(window|
000008b0  25 2c 69 63 6f 6e 25 2c  6b 65 79 25 29 0d 00 6f  |%,icon%,key%)..o|
000008c0  0f c8 8e 20 77 69 6e 64  6f 77 25 ca 0d 00 70 14  |... window%...p.|
000008d0  c9 20 53 65 61 72 63 68  5f 57 69 6e 64 6f 77 25  |. Search_Window%|
000008e0  0d 00 71 17 e7 20 6b 65  79 25 3d 31 33 80 69 63  |..q.. key%=13.ic|
000008f0  6f 6e 25 3d 31 f2 45 0d  00 72 05 cb 0d 00 73 05  |on%=1.E..r....s.|
00000900  e1 0d 00 74 08 dd 20 f2  45 0d 00 75 20 73 65 61  |...t.. .E..u sea|
00000910  72 63 68 24 3d a4 4f 28  53 65 61 72 63 68 5f 57  |rch$=.O(Search_W|
00000920  69 6e 64 6f 77 25 2c 31  29 0d 00 76 34 e7 20 73  |indow%,1)..v4. s|
00000930  65 61 72 63 68 24 3d 22  22 f2 46 28 22 43 6f 6e  |earch$="".F("Con|
00000940  73 74 61 6e 74 22 2c 22  4e 6f 20 73 65 61 72 63  |stant","No searc|
00000950  68 20 73 74 72 69 6e 67  21 22 29 3a e1 0d 00 77  |h string!"):...w|
00000960  07 6e 3d 30 0d 00 78 05  f5 0d 00 79 08 6e 2b 3d  |.n=0..x....y.n+=|
00000970  31 0d 00 7a 23 fd 20 6e  3d 73 69 7a 65 20 84 a7  |1..z#. n=size ..|
00000980  6e 61 6d 65 24 28 6e 29  2c 73 65 61 72 63 68 24  |name$(n),search$|
00000990  29 3c 3e 30 0d 00 7b 23  e7 20 6e 3d 73 69 7a 65  |)<>0..{#. n=size|
000009a0  20 80 a7 6e 61 6d 65 24  28 6e 29 2c 73 65 61 72  | ..name$(n),sear|
000009b0  63 68 24 29 3d 30 8c 0d  00 7c 28 f2 46 28 22 43  |ch$)=0...|(.F("C|
000009c0  6f 6e 73 74 61 6e 74 22  2c 22 43 6f 75 6c 64 6e  |onstant","Couldn|
000009d0  27 74 20 66 69 6e 64 20  74 68 61 74 21 22 29 0d  |'t find that!").|
000009e0  00 7d 05 cc 0d 00 7e 11  70 6f 73 69 74 69 6f 6e  |.}....~.position|
000009f0  3d 6e 3a f2 42 0d 00 7f  06 f2 57 0d 00 80 05 cd  |=n:.B.....W.....|
00000a00  0d 00 81 05 e1 0d 00 82  0f dd 20 f2 58 28 6d 65  |.......... .X(me|
00000a10  6e 75 25 29 0d 00 83 0d  c8 8e 20 6d 65 6e 75 25  |nu%)...... menu%|
00000a20  ca 0d 00 84 12 c9 20 42  61 72 5f 4d 65 6e 75 25  |...... Bar_Menu%|
00000a30  3a f2 59 0d 00 85 13 c9  20 4d 61 69 6e 5f 4d 65  |:.Y..... Main_Me|
00000a40  6e 75 25 3a f2 5a 0d 00  86 05 cb 0d 00 87 05 e1  |nu%:.Z..........|
00000a50  0d 00 88 08 dd 20 f2 59  0d 00 89 0d c8 8e 20 a4  |..... .Y...... .|
00000a60  44 28 30 29 ca 0d 00 8a  06 c9 31 0d 00 8b 17 c9  |D(0)......1.....|
00000a70  32 3a f2 41 28 4d 61 69  6e 5f 57 69 6e 64 6f 77  |2:.A(Main_Window|
00000a80  25 29 0d 00 8c 1f c9 33  3a f2 61 28 22 3c 43 6f  |%).....3:.a("<Co|
00000a90  6f 6b 65 72 24 44 69 72  3e 2e 21 48 65 6c 70 22  |oker$Dir>.!Help"|
00000aa0  29 0d 00 8d 12 c9 34 3a  66 69 6e 69 73 68 65 64  |).....4:finished|
00000ab0  25 3d b9 0d 00 8e 05 cb  0d 00 8f 05 e1 0d 00 90  |%=..............|
00000ac0  08 dd 20 f2 5a 0d 00 91  0d c8 8e 20 a4 44 28 30  |.. .Z...... .D(0|
00000ad0  29 ca 0d 00 92 06 c9 31  0d 00 93 0d c8 8e 20 a4  |)......1...... .|
00000ae0  44 28 31 29 ca 0d 00 94  11 c9 31 3a 70 6f 73 69  |D(1)......1:posi|
00000af0  74 69 6f 6e 3d 31 0d 00  95 12 c9 32 3a 70 6f 73  |tion=1.....2:pos|
00000b00  69 74 69 6f 6e 3d 33 30  0d 00 96 12 c9 33 3a 70  |ition=30.....3:p|
00000b10  6f 73 69 74 69 6f 6e 3d  34 34 0d 00 97 12 c9 34  |osition=44.....4|
00000b20  3a 70 6f 73 69 74 69 6f  6e 3d 34 35 0d 00 98 12  |:position=45....|
00000b30  c9 35 3a 70 6f 73 69 74  69 6f 6e 3d 36 31 0d 00  |.5:position=61..|
00000b40  99 12 c9 36 3a 70 6f 73  69 74 69 6f 6e 3d 37 33  |...6:position=73|
00000b50  0d 00 9a 12 c9 37 3a 70  6f 73 69 74 69 6f 6e 3d  |.....7:position=|
00000b60  37 34 0d 00 9b 12 c9 38  3a 70 6f 73 69 74 69 6f  |74.....8:positio|
00000b70  6e 3d 37 36 0d 00 9c 12  c9 39 3a 70 6f 73 69 74  |n=76.....9:posit|
00000b80  69 6f 6e 3d 37 37 0d 00  9d 13 c9 31 30 3a 70 6f  |ion=77.....10:po|
00000b90  73 69 74 69 6f 6e 3d 38  30 0d 00 9e 13 c9 31 31  |sition=80.....11|
00000ba0  3a 70 6f 73 69 74 69 6f  6e 3d 38 39 0d 00 9f 13  |:position=89....|
00000bb0  c9 31 32 3a 70 6f 73 69  74 69 6f 6e 3d 39 32 0d  |.12:position=92.|
00000bc0  00 a0 13 c9 31 33 3a 70  6f 73 69 74 69 6f 6e 3d  |....13:position=|
00000bd0  39 36 0d 00 a1 14 c9 31  34 3a 70 6f 73 69 74 69  |96.....14:positi|
00000be0  6f 6e 3d 31 30 37 0d 00  a2 07 c9 31 35 0d 00 a3  |on=107.....15...|
00000bf0  0d c8 8e 20 a4 44 28 32  29 ca 0d 00 a4 13 c9 31  |... .D(2)......1|
00000c00  3a 70 6f 73 69 74 69 6f  6e 3d 31 31 39 0d 00 a5  |:position=119...|
00000c10  13 c9 32 3a 70 6f 73 69  74 69 6f 6e 3d 31 32 37  |..2:position=127|
00000c20  0d 00 a6 13 c9 33 3a 70  6f 73 69 74 69 6f 6e 3d  |.....3:position=|
00000c30  31 33 36 0d 00 a7 13 c9  34 3a 70 6f 73 69 74 69  |136.....4:positi|
00000c40  6f 6e 3d 31 34 33 0d 00  a8 13 c9 35 3a 70 6f 73  |on=143.....5:pos|
00000c50  69 74 69 6f 6e 3d 31 34  35 0d 00 a9 05 cb 0d 00  |ition=145.......|
00000c60  aa 05 cb 0d 00 ab 06 f2  42 0d 00 ac 06 c9 32 0d  |........B.....2.|
00000c70  00 ad 18 c9 33 3a f2 41  28 49 6e 64 65 78 5f 57  |....3:.A(Index_W|
00000c80  69 6e 64 6f 77 25 29 0d  00 ae 05 cb 0d 00 af 05  |indow%).........|
00000c90  e1 0d 00 b0 15 dd 20 f2  62 28 66 69 6c 65 24 2c  |...... .b(file$,|
00000ca0  74 79 70 65 24 29 0d 00  b1 05 e1 0d 00 b2 17 dd  |type$)..........|
00000cb0  20 f2 47 28 66 69 6c 65  24 2c 77 69 6e 64 6f 77  | .G(file$,window|
00000cc0  25 29 0d 00 b3 05 e1 0d  00 b4 19 dd 20 f2 64 28  |%).......... .d(|
00000cd0  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
00000ce0  0d 00 b5 19 f2 48 28 74  69 74 6c 65 24 2c 6d 65  |.....H(title$,me|
00000cf0  73 73 61 67 65 24 2c 30  29 0d 00 b6 05 e1 0d 00  |ssage$,0).......|
00000d00  b7 21 dd 20 f2 48 28 74  69 74 6c 65 24 2c 6d 65  |.!. .H(title$,me|
00000d10  73 73 61 67 65 24 2c 62  75 74 74 6f 6e 25 29 0d  |ssage$,button%).|
00000d20  00 b8 0f ea 20 72 65 73  70 6f 6e 73 65 25 0d 00  |.... response%..|
00000d30  b9 17 24 28 77 69 6d 70  25 2b 34 29 3d 6d 65 73  |..$(wimp%+4)=mes|
00000d40  73 61 67 65 24 0d 00 ba  0f c8 8e 20 62 75 74 74  |sage$...... butt|
00000d50  6f 6e 25 ca 0d 00 bb 12  c9 32 3a 72 65 73 70 6f  |on%......2:respo|
00000d60  6e 73 65 25 3d 31 0d 00  bc 13 c9 31 3a 72 65 73  |nse%=1.....1:res|
00000d70  70 6f 6e 73 65 25 3d 31  35 0d 00 bd 1a c9 33 3a  |ponse%=15.....3:|
00000d80  72 65 73 70 6f 6e 73 65  25 3d 28 31 3c 3c 35 29  |response%=(1<<5)|
00000d90  2b 31 36 0d 00 be 1a c9  34 3a 72 65 73 70 6f 6e  |+16.....4:respon|
00000da0  73 65 25 3d 28 31 3c 3c  36 29 2b 31 36 0d 00 bf  |se%=(1<<6)+16...|
00000db0  12 7f 20 72 65 73 70 6f  6e 73 65 25 3d 31 36 0d  |.. response%=16.|
00000dc0  00 c0 05 cb 0d 00 c1 2e  c8 99 32 36 32 33 36 37  |..........262367|
00000dd0  2c 77 69 6d 70 25 2c 72  65 73 70 6f 6e 73 65 25  |,wimp%,response%|
00000de0  2c 74 69 74 6c 65 24 b8  2c 72 65 73 70 6f 6e 73  |,title$.,respons|
00000df0  65 25 0d 00 c2 05 e1 0d  00 c3 19 dd 20 a4 51 28  |e%.......... .Q(|
00000e00  74 69 74 6c 65 24 2c 6d  65 73 73 61 67 65 24 29  |title$,message$)|
00000e10  0d 00 c4 17 24 28 77 69  6d 70 25 2b 34 29 3d 6d  |....$(wimp%+4)=m|
00000e20  65 73 73 61 67 65 24 0d  00 c5 10 72 65 73 70 6f  |essage$....respo|
00000e30  6e 73 65 25 3d 32 33 0d  00 c6 2e c8 99 32 36 32  |nse%=23......262|
00000e40  33 36 37 2c 77 69 6d 70  25 2c 72 65 73 70 6f 6e  |367,wimp%,respon|
00000e50  73 65 25 2c 74 69 74 6c  65 24 b8 2c 72 65 73 70  |se%,title$.,resp|
00000e60  6f 6e 73 65 25 0d 00 c7  10 3d 72 65 73 70 6f 6e  |onse%....=respon|
00000e70  73 65 25 2d 32 0d 00 c8  19 dd 20 f2 46 28 74 69  |se%-2..... .F(ti|
00000e80  74 6c 65 24 2c 6d 65 73  73 61 67 65 24 29 0d 00  |tle$,message$)..|
00000e90  c9 19 f2 48 28 74 69 74  6c 65 24 2c 6d 65 73 73  |...H(title$,mess|
00000ea0  61 67 65 24 2c 32 29 0d  00 ca 05 e1 0d 00 cb 11  |age$,2).........|
00000eb0  dd 20 a4 43 28 77 69 6e  64 6f 77 24 29 0d 00 cc  |. .C(window$)...|
00000ec0  29 3d a4 49 28 77 69 6e  64 6f 77 24 2c 22 3c 43  |)=.I(window$,"<C|
00000ed0  6f 6f 6b 65 72 24 44 69  72 3e 2e 54 65 6d 70 6c  |ooker$Dir>.Templ|
00000ee0  61 74 65 73 22 29 0d 00  cd 1b dd 20 a4 49 28 77  |ates")..... .I(w|
00000ef0  69 6e 64 6f 77 24 2c 74  65 6d 70 6c 61 74 65 24  |indow$,template$|
00000f00  29 0d 00 ce 1a ea 20 63  25 2c 69 25 2c 6e 25 2c  |)..... c%,i%,n%,|
00000f10  6a 25 2c 73 70 24 2c 73  70 32 24 0d 00 cf 17 c8  |j%,sp$,sp2$.....|
00000f20  99 32 36 32 33 36 31 2c  2c 74 65 6d 70 6c 61 74  |.262361,,templat|
00000f30  65 24 0d 00 d0 3d c8 99  32 36 32 33 36 33 2c 2c  |e$...=..262363,,|
00000f40  77 69 6d 70 25 2c 69 63  6f 6e 73 25 2c 69 63 6f  |wimp%,icons%,ico|
00000f50  6e 5f 6d 65 6d 6f 72 79  25 2c 2d 31 2c 77 69 6e  |n_memory%,-1,win|
00000f60  64 6f 77 24 2c 30 b8 2c  2c 69 63 6f 6e 73 25 0d  |dow$,0.,,icons%.|
00000f70  00 d1 10 c8 8e 20 73 70  72 69 74 65 73 25 ca 0d  |..... sprites%..|
00000f80  00 d2 18 c9 31 3a 77 69  6d 70 25 21 36 34 3d 73  |....1:wimp%!64=s|
00000f90  70 72 69 74 65 73 25 0d  00 d3 1a 7f 20 77 69 6d  |prites%..... wim|
00000fa0  70 25 21 36 34 3d a4 48  28 77 69 6e 64 6f 77 25  |p%!64=.H(window%|
00000fb0  29 0d 00 d4 05 cb 0d 00  d5 16 c8 99 32 36 32 33  |)...........2623|
00000fc0  33 37 2c 2c 77 69 6d 70  25 b8 63 25 0d 00 d6 0c  |37,,wimp%.c%....|
00000fd0  c8 99 32 36 32 33 36 32  0d 00 d7 2c c8 99 32 36  |..262362...,..26|
00000fe0  32 33 35 38 2c 63 25 2c  77 69 6d 70 25 2b 34 30  |2358,c%,wimp%+40|
00000ff0  2c 31 2b 32 2b 28 31 3c  3c 38 29 2c 32 2b 28 31  |,1+2+(1<<8),2+(1|
00001000  3c 3c 38 29 0d 00 d8 10  c8 8e 20 77 69 6d 70 25  |<<8)...... wimp%|
00001010  21 34 30 ca 0d 00 d9 07  c9 2d 31 0d 00 da 0b 7f  |!40......-1.....|
00001020  20 69 25 3d 34 30 0d 00  db 05 f5 0d 00 dc 1f 77  | i%=40.........w|
00001030  69 6d 70 25 21 34 3d 77  69 6d 70 25 21 69 25 3a  |imp%!4=wimp%!i%:|
00001040  77 69 6d 70 25 21 30 3d  63 25 0d 00 dd 13 c8 99  |wimp%!0=c%......|
00001050  32 36 32 33 35 30 2c 2c  77 69 6d 70 25 0d 00 de  |262350,,wimp%...|
00001060  14 73 70 24 3d a4 42 28  77 69 6d 70 25 21 32 38  |.sp$=.B(wimp%!28|
00001070  29 0d 00 df 13 c8 99 32  36 32 33 34 30 2c 2c 77  |)......262340,,w|
00001080  69 6d 70 25 0d 00 e0 10  c8 8e 20 73 70 72 69 74  |imp%...... sprit|
00001090  65 73 25 ca 0d 00 e1 11  c9 31 3a 77 69 6d 70 25  |es%......1:wimp%|
000010a0  21 33 32 3d 31 0d 00 e2  05 7f 0d 00 e3 1b c8 99  |!32=1...........|
000010b0  34 36 2c 32 36 34 2c 73  70 72 69 74 65 73 25 b8  |46,264,sprites%.|
000010c0  2c 2c 2c 6e 25 0d 00 e4  08 6a 25 3d 30 0d 00 e5  |,,,n%....j%=0...|
000010d0  0b f5 3a 6a 25 2b 3d 31  0d 00 e6 2a c8 99 34 36  |..:j%+=1...*..46|
000010e0  2c 32 36 39 2c 73 70 72  69 74 65 73 25 2c 70 6f  |,269,sprites%,po|
000010f0  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 2c 32 30 2c  |inter_block%,20,|
00001100  6a 25 0d 00 e7 1b 73 70  32 24 3d a4 42 28 70 6f  |j%....sp2$=.B(po|
00001110  69 6e 74 65 72 5f 62 6c  6f 63 6b 25 29 0d 00 e8  |inter_block%)...|
00001120  14 fd 20 6a 25 3d 6e 25  84 73 70 24 3d 73 70 32  |.. j%=n%.sp$=sp2|
00001130  24 0d 00 e9 2d e7 20 73  70 24 3d 73 70 32 24 8c  |$...-. sp$=sp2$.|
00001140  20 77 69 6d 70 25 21 33  32 3d 73 70 72 69 74 65  | wimp%!32=sprite|
00001150  73 25 8b 20 77 69 6d 70  25 21 33 32 3d 31 0d 00  |s%. wimp%!32=1..|
00001160  ea 05 cb 0d 00 eb 0e 77  69 6d 70 25 21 34 3d 63  |.......wimp%!4=c|
00001170  25 0d 00 ec 1d c8 99 32  36 32 33 33 38 2c 2c 77  |%......262338,,w|
00001180  69 6d 70 25 2b 34 b8 68  61 6e 64 6c 65 25 0d 00  |imp%+4.handle%..|
00001190  ed 09 69 25 2b 3d 34 0d  00 ee 12 fd 28 77 69 6d  |..i%+=4.....(wim|
000011a0  70 25 21 69 25 29 3d 2d  31 0d 00 ef 05 cb 0d 00  |p%!i%)=-1.......|
000011b0  f0 07 3d 63 25 0d 00 f1  11 dd 20 f2 41 28 77 69  |..=c%..... .A(wi|
000011c0  6e 64 6f 77 25 29 0d 00  f2 12 21 77 69 6d 70 25  |ndow%)....!wimp%|
000011d0  3d 77 69 6e 64 6f 77 25  0d 00 f3 13 c8 99 32 36  |=window%......26|
000011e0  32 33 34 37 2c 2c 77 69  6d 70 25 0d 00 f4 0f 77  |2347,,wimp%....w|
000011f0  69 6d 70 25 21 32 38 3d  2d 31 0d 00 f5 13 c8 99  |imp%!28=-1......|
00001200  32 36 32 33 34 31 2c 2c  77 69 6d 70 25 0d 00 f6  |262341,,wimp%...|
00001210  05 e1 0d 00 f7 06 f2 74  0d 00 f8 13 c8 99 35 33  |.......t......53|
00001220  30 30 34 39 2c 2c 77 69  6d 70 25 0d 00 f9 05 e1  |0049,,wimp%.....|
00001230  0d 00 fa 11 dd 20 a4 4a  28 53 70 72 69 74 65 24  |..... .J(Sprite$|
00001240  29 0d 00 fb 0b ea 20 69  63 6f 6e 25 0d 00 fc 0e  |)..... icon%....|
00001250  77 69 6d 70 25 21 30 3d  2d 31 0d 00 fd 17 77 69  |wimp%!0=-1....wi|
00001260  6d 70 25 21 34 3d 30 3a  77 69 6d 70 25 21 38 3d  |mp%!4=0:wimp%!8=|
00001270  30 0d 00 fe 1b 77 69 6d  70 25 21 31 32 3d 36 38  |0....wimp%!12=68|
00001280  3a 77 69 6d 70 25 21 31  36 3d 36 38 0d 00 ff 12  |:wimp%!16=68....|
00001290  77 69 6d 70 25 21 32 30  3d 31 32 32 39 30 0d 01  |wimp%!20=12290..|
000012a0  00 17 24 28 77 69 6d 70  25 2b 32 34 29 3d 53 70  |..$(wimp%+24)=Sp|
000012b0  72 69 74 65 24 0d 01 01  19 c8 99 32 36 32 33 33  |rite$......26233|
000012c0  38 2c 2c 77 69 6d 70 25  b8 69 63 6f 6e 25 0d 01  |8,,wimp%.icon%..|
000012d0  02 0a 3d 69 63 6f 6e 25  0d 01 03 17 dd 20 a4 4f  |..=icon%..... .O|
000012e0  28 77 69 6e 64 6f 77 25  2c 69 63 6f 6e 25 29 0d  |(window%,icon%).|
000012f0  01 04 21 77 69 6d 70 25  21 30 3d 77 69 6e 64 6f  |..!wimp%!0=windo|
00001300  77 25 3a 77 69 6d 70 25  21 34 3d 69 63 6f 6e 25  |w%:wimp%!4=icon%|
00001310  0d 01 05 13 c8 99 32 36  32 33 35 30 2c 2c 77 69  |......262350,,wi|
00001320  6d 70 25 0d 01 06 31 e7  28 28 77 69 6d 70 25 21  |mp%...1.((wimp%!|
00001330  32 34 29 80 32 35 36 29  3d 30 85 31 2c 22 49 63  |24).256)=0.1,"Ic|
00001340  6f 6e 20 69 73 6e 27 74  20 69 6e 64 69 72 65 63  |on isn't indirec|
00001350  74 65 64 22 0d 01 07 10  3d 24 28 77 69 6d 70 25  |ted"....=$(wimp%|
00001360  21 32 38 29 0d 01 08 1d  dd 20 f2 43 28 77 69 6e  |!28)..... .C(win|
00001370  64 6f 77 25 2c 69 63 6f  6e 25 2c 74 65 78 74 24  |dow%,icon%,text$|
00001380  29 0d 01 09 21 77 69 6d  70 25 21 30 3d 77 69 6e  |)...!wimp%!0=win|
00001390  64 6f 77 25 3a 77 69 6d  70 25 21 34 3d 69 63 6f  |dow%:wimp%!4=ico|
000013a0  6e 25 0d 01 0a 13 c8 99  32 36 32 33 35 30 2c 2c  |n%......262350,,|
000013b0  77 69 6d 70 25 0d 01 0b  31 e7 28 28 77 69 6d 70  |wimp%...1.((wimp|
000013c0  25 21 32 34 29 80 32 35  36 29 3d 30 85 31 2c 22  |%!24).256)=0.1,"|
000013d0  49 63 6f 6e 20 69 73 6e  27 74 20 69 6e 64 69 72  |Icon isn't indir|
000013e0  65 63 74 65 64 22 0d 01  0c 15 24 28 77 69 6d 70  |ected"....$(wimp|
000013f0  25 21 32 38 29 3d 74 65  78 74 24 0d 01 0d 21 77  |%!28)=text$...!w|
00001400  69 6d 70 25 21 30 3d 77  69 6e 64 6f 77 25 3a 77  |imp%!0=window%:w|
00001410  69 6d 70 25 21 34 3d 69  63 6f 6e 25 0d 01 0e 18  |imp%!4=icon%....|
00001420  77 69 6d 70 25 21 38 3d  30 3a 77 69 6d 70 25 21  |wimp%!8=0:wimp%!|
00001430  31 32 3d 30 0d 01 0f 13  c8 99 32 36 32 33 34 39  |12=0......262349|
00001440  2c 2c 77 69 6d 70 25 0d  01 10 05 e1 0d 01 11 10  |,,wimp%.........|
00001450  dd 20 a4 44 28 6c 65 76  65 6c 25 29 0d 01 12 19  |. .D(level%)....|
00001460  3d 28 77 69 6d 70 25 21  28 34 2a 6c 65 76 65 6c  |=(wimp%!(4*level|
00001470  25 29 29 2b 31 0d 01 13  0f dd 20 a4 41 28 6d 65  |%))+1..... .A(me|
00001480  6e 75 24 29 0d 01 14 19  e7 20 6d 65 6e 75 24 3d  |nu$)..... menu$=|
00001490  22 43 6f 6c 6f 75 72 73  22 8c 3d a4 4b 0d 01 15  |"Colours".=.K...|
000014a0  27 ea 20 6d 65 6e 75 25  2c 69 6e 64 65 78 25 2c  |'. menu%,index%,|
000014b0  77 69 64 74 68 25 2c 6c  65 6e 67 74 68 25 2c 6b  |width%,length%,k|
000014c0  25 2c 73 25 0d 01 16 1a  de 20 6d 65 6e 75 25 32  |%,s%..... menu%2|
000014d0  38 2b a4 4c 28 6d 65 6e  75 24 29 2a 32 34 0d 01  |8+.L(menu$)*24..|
000014e0  17 2f 6d 65 6e 75 25 3f  31 32 3d 37 3a 6d 65 6e  |./menu%?12=7:men|
000014f0  75 25 3f 31 33 3d 32 3a  6d 65 6e 75 25 3f 31 34  |u%?13=2:menu%?14|
00001500  3d 37 3a 6d 65 6e 75 25  3f 31 35 3d 30 0d 01 18  |=7:menu%?15=0...|
00001510  27 6d 65 6e 75 25 21 31  36 3d 31 34 30 3a 6d 65  |'menu%!16=140:me|
00001520  6e 75 25 21 32 30 3d 34  34 3a 6d 65 6e 75 25 21  |nu%!20=44:menu%!|
00001530  32 34 3d 30 0d 01 19 13  69 6e 64 65 78 25 3d 6d  |24=0....index%=m|
00001540  65 6e 75 25 2b 32 38 0d  01 1a 20 24 6d 65 6e 75  |enu%+28... $menu|
00001550  25 3d c0 6d 65 6e 75 24  2c a7 6d 65 6e 75 24 2c  |%=.menu$,.menu$,|
00001560  22 5c 22 29 2d 31 29 0d  01 1b 23 77 69 64 74 68  |"\")-1)...#width|
00001570  25 3d a9 28 c0 6d 65 6e  75 24 2c a7 6d 65 6e 75  |%=.(.menu$,.menu|
00001580  24 2c 22 5c 22 29 2d 31  29 29 0d 01 1c 22 6d 65  |$,"\")-1))..."me|
00001590  6e 75 24 2b 3d 22 5c 22  3a 4d 65 6e 75 5f 4e 6f  |nu$+="\":Menu_No|
000015a0  4f 66 45 6e 74 72 69 65  73 25 3d 30 0d 01 1d 10  |OfEntries%=0....|
000015b0  c8 95 20 6d 65 6e 75 24  3c 3e 22 22 0d 01 1e 1f  |.. menu$<>""....|
000015c0  6d 65 6e 75 24 3d c1 6d  65 6e 75 24 2c a7 6d 65  |menu$=.menu$,.me|
000015d0  6e 75 24 2c 22 5c 22 29  2b 31 29 0d 01 1f 0d c8  |nu$,"\")+1).....|
000015e0  8e 20 6d 65 6e 75 24 ca  0d 01 20 07 c9 22 22 0d  |. menu$... .."".|
000015f0  01 21 05 7f 0d 01 22 2b  21 69 6e 64 65 78 25 3d  |.!...."+!index%=|
00001600  30 3a 69 6e 64 65 78 25  21 34 3d 2d 31 3a 69 6e  |0:index%!4=-1:in|
00001610  64 65 78 25 21 38 3d 26  37 30 30 30 30 32 31 0d  |dex%!8=&7000021.|
00001620  01 23 19 6c 65 6e 67 74  68 25 3d a7 6d 65 6e 75  |.#.length%=.menu|
00001630  24 2c 22 5c 22 29 2d 31  0d 01 24 1c 6b 25 3d a7  |$,"\")-1..$.k%=.|
00001640  c0 6d 65 6e 75 24 2c 6c  65 6e 67 74 68 25 29 2c  |.menu$,length%),|
00001650  22 3e 22 29 0d 01 25 0a  c8 8e 20 6b 25 ca 0d 01  |">")..%... k%...|
00001660  26 06 c9 30 0d 01 27 05  7f 0d 01 28 21 73 25 3d  |&..0..'....(!s%=|
00001670  a0 28 c1 6d 65 6e 75 24  2c 6b 25 2b 31 2c 6c 65  |.(.menu$,k%+1,le|
00001680  6e 67 74 68 25 2d 6b 25  29 29 0d 01 29 0f 69 6e  |ngth%-k%))..).in|
00001690  64 65 78 25 21 34 3d 73  25 0d 01 2a 10 6c 65 6e  |dex%!4=s%..*.len|
000016a0  67 74 68 25 3d 6b 25 2d  31 0d 01 2b 05 cb 0d 01  |gth%=k%-1..+....|
000016b0  2c 20 24 28 69 6e 64 65  78 25 2b 31 32 29 3d c0  |, $(index%+12)=.|
000016c0  6d 65 6e 75 24 2c 6c 65  6e 67 74 68 25 29 0d 01  |menu$,length%)..|
000016d0  2d 24 e7 20 6c 65 6e 67  74 68 25 3e 77 69 64 74  |-$. length%>widt|
000016e0  68 25 8c 20 77 69 64 74  68 25 3d 6c 65 6e 67 74  |h%. width%=lengt|
000016f0  68 25 0d 01 2e 0e 69 6e  64 65 78 25 2b 3d 32 34  |h%....index%+=24|
00001700  0d 01 2f 05 cb 0d 01 30  05 ce 0d 01 31 1a 6d 65  |../....0....1.me|
00001710  6e 75 25 21 31 36 3d 31  36 2a 28 77 69 64 74 68  |nu%!16=16*(width|
00001720  25 2b 31 29 0d 01 32 24  69 6e 64 65 78 25 21 2d  |%+1)..2$index%!-|
00001730  32 34 3d 69 6e 64 65 78  25 21 2d 32 34 84 31 32  |24=index%!-24.12|
00001740  38 3a 3d 6d 65 6e 75 25  0d 01 33 08 dd 20 a4 4b  |8:=menu%..3.. .K|
00001750  0d 01 34 0c 3d a4 4d 28  22 20 22 29 0d 01 35 10  |..4.=.M(" ")..5.|
00001760  dd 20 a4 4d 28 74 69 74  6c 65 24 29 0d 01 36 13  |. .M(title$)..6.|
00001770  ea 20 78 24 2c 6d 65 6e  25 2c 6a 25 2c 69 25 0d  |. x$,men%,j%,i%.|
00001780  01 37 36 78 24 3d 74 69  74 6c 65 24 2b 22 5c 30  |.76x$=title$+"\0|
00001790  5c 31 5c 32 5c 33 5c 34  5c 35 5c 36 5c 37 5c 38  |\1\2\3\4\5\6\7\8|
000017a0  5c 39 5c 31 30 5c 31 31  5c 31 32 5c 31 33 5c 31  |\9\10\11\12\13\1|
000017b0  34 5c 31 35 22 0d 01 38  0f 6d 65 6e 25 3d a4 41  |4\15"..8.men%=.A|
000017c0  28 78 24 29 0d 01 39 0d  e3 20 69 25 3d 30 b8 31  |(x$)..9.. i%=0.1|
000017d0  35 0d 01 3a 0a c8 8e 20  b9 20 ca 0d 01 3b 26 c9  |5..:... . ...;&.|
000017e0  20 69 25 3c 34 2c 69 25  3d 39 2c 69 25 3d 31 32  | i%<4,i%=9,i%=12|
000017f0  2c 69 25 3d 31 34 2c 69  25 3d 31 35 3a 6a 25 3d  |,i%=14,i%=15:j%=|
00001800  37 0d 01 3c 0a 7f 20 6a  25 3d 30 0d 01 3d 05 cb  |7..<.. j%=0..=..|
00001810  0d 01 3e 1c 6d 65 6e 25  3f 28 33 39 2b 69 25 2a  |..>.men%?(39+i%*|
00001820  32 34 29 3d 69 25 2a 31  36 2b 6a 25 0d 01 3f 11  |24)=i%*16+j%..?.|
00001830  f2 66 28 6d 65 6e 25 2c  69 25 2b 31 29 0d 01 40  |.f(men%,i%+1)..@|
00001840  05 ed 0d 01 41 09 3d 6d  65 6e 25 0d 01 42 0f dd  |....A.=men%..B..|
00001850  20 a4 4c 28 6d 65 6e 75  24 29 0d 01 43 15 ea 20  | .L(menu$)..C.. |
00001860  6e 25 2c 6a 25 3a 6e 25  3d 30 3a 6a 25 3d 30 0d  |n%,j%:n%=0:j%=0.|
00001870  01 44 05 f5 0d 01 45 17  6a 25 3d a7 6d 65 6e 75  |.D....E.j%=.menu|
00001880  24 2c 22 5c 22 2c 6a 25  2b 31 29 0d 01 46 12 e7  |$,"\",j%+1)..F..|
00001890  20 6a 25 3c 3e 30 8c 20  6e 25 2b 3d 31 0d 01 47  | j%<>0. n%+=1..G|
000018a0  0a fd 20 6a 25 3d 30 0d  01 48 07 3d 6e 25 0d 01  |.. j%=0..H.=n%..|
000018b0  49 15 dd 20 f2 66 28 6d  65 6e 75 25 2c 69 74 65  |I.. .f(menu%,ite|
000018c0  6d 25 29 0d 01 4a 3a 6d  65 6e 75 25 21 28 33 36  |m%)..J:menu%!(36|
000018d0  2b 28 69 74 65 6d 25 2d  31 29 2a 32 34 29 3d 6d  |+(item%-1)*24)=m|
000018e0  65 6e 75 25 21 28 33 36  2b 28 69 74 65 6d 25 2d  |enu%!(36+(item%-|
000018f0  31 29 2a 32 34 29 84 28  31 3c 3c 33 29 0d 01 4b  |1)*24).(1<<3)..K|
00001900  05 e1 0d 01 4c 08 dd 20  f2 57 0d 01 4d 0f c8 99  |....L.. .W..M...|
00001910  32 36 32 33 35 36 2c 2d  31 0d 01 4e 05 e1 0d 01  |262356,-1..N....|
00001920  4f 0f dd 20 a4 46 28 74  79 70 65 25 29 0d 01 50  |O.. .F(type%)..P|
00001930  0d c8 8e 20 74 79 70 65  25 ca 0d 01 51 11 c9 34  |... type%...Q..4|
00001940  30 39 35 3a 3d 22 54 65  78 74 22 0d 01 52 11 c9  |095:="Text"..R..|
00001950  34 30 39 33 3a 3d 22 44  61 74 61 22 0d 01 53 12  |4093:="Data"..S.|
00001960  c9 34 30 39 31 3a 3d 22  42 61 73 69 63 22 0d 01  |.4091:="Basic"..|
00001970  54 13 c9 34 30 38 39 3a  3d 22 53 70 72 69 74 65  |T..4089:="Sprite|
00001980  22 0d 01 55 14 c9 34 30  37 37 3a 3d 22 50 61 6c  |"..U..4077:="Pal|
00001990  65 74 74 65 22 0d 01 56  15 c9 34 30 37 36 3a 3d  |ette"..V..4076:=|
000019a0  22 54 65 6d 70 6c 61 74  65 22 0d 01 57 11 c9 32  |"Template"..W..2|
000019b0  38 31 35 3a 3d 22 44 72  61 77 22 0d 01 58 13 c9  |815:="Draw"..X..|
000019c0  34 30 39 36 3a 3d 22 46  6f 6c 64 65 72 22 0d 01  |4096:="Folder"..|
000019d0  59 18 c9 38 31 39 32 3a  3d 22 41 70 70 6c 69 63  |Y..8192:="Applic|
000019e0  61 74 69 6f 6e 22 0d 01  5a 0f 7f 3d c3 7e 28 74  |ation"..Z..=.~(t|
000019f0  79 70 65 25 29 0d 01 5b  05 cb 0d 01 5c 08 dd 20  |ype%)..[....\.. |
00001a00  a4 50 0d 01 5d 11 3d a4  42 28 77 69 6d 70 25 2b  |.P..].=.B(wimp%+|
00001a10  34 34 29 0d 01 5e 10 dd  20 a4 42 28 61 72 72 61  |44)..^.. .B(arra|
00001a20  79 25 29 0d 01 5f 0e ea  20 73 24 3a 73 24 3d 22  |y%).._.. s$:s$="|
00001a30  22 0d 01 60 3b c8 95 28  3f 61 72 72 61 79 25 3c  |"..`;..(?array%<|
00001a40  3e 31 33 29 80 28 3f 61  72 72 61 79 25 3c 3e 30  |>13).(?array%<>0|
00001a50  29 3a 73 24 2b 3d bd 28  3f 61 72 72 61 79 25 29  |):s$+=.(?array%)|
00001a60  3a 61 72 72 61 79 25 2b  3d 31 3a ce 0d 01 61 07  |:array%+=1:...a.|
00001a70  3d 73 24 0d 01 62 0c dd  20 a4 45 28 66 24 29 0d  |=s$..b.. .E(f$).|
00001a80  01 63 10 c8 8e 20 a7 66  24 2c 22 2e 22 29 ca 0d  |.c... .f$,".")..|
00001a90  01 64 0a c9 30 3a 3d 66  24 0d 01 65 1d 7f 3d a4  |.d..0:=f$..e..=.|
00001aa0  45 28 c2 66 24 2c a9 28  66 24 29 2d a7 66 24 2c  |E(.f$,.(f$)-.f$,|
00001ab0  22 2e 22 29 29 29 0d 01  66 05 cb 0d 01 67 0f dd  |".")))..f....g..|
00001ac0  20 f2 61 28 66 69 6c 65  24 29 0d 01 68 08 ea 20  | .a(file$)..h.. |
00001ad0  6e 25 0d 01 69 15 77 69  6d 70 25 21 34 3d 26 36  |n%..i.wimp%!4=&6|
00001ae0  43 43 30 31 43 30 43 0d  01 6a 0e 77 69 6d 70 25  |CC01C0C..j.wimp%|
00001af0  21 31 36 3d 35 0d 01 6b  0e 77 69 6d 70 25 21 33  |!16=5..k.wimp%!3|
00001b00  36 3d 30 0d 01 6c 11 77  69 6d 70 25 21 34 30 3d  |6=0..l.wimp%!40=|
00001b10  34 30 39 35 0d 01 6d 18  24 28 77 69 6d 70 25 2b  |4095..m.$(wimp%+|
00001b20  34 34 29 3d 66 69 6c 65  24 2b bd 30 0d 01 6e 11  |44)=file$+.0..n.|
00001b30  6e 25 3d a9 20 66 69 6c  65 24 2b 34 35 0d 01 6f  |n%=. file$+45..o|
00001b40  28 e7 20 6e 25 83 34 8c  21 77 69 6d 70 25 3d 34  |(. n%.4.!wimp%=4|
00001b50  2b 28 6e 25 3e 3e 32 29  3c 3c 32 8b 21 77 69 6d  |+(n%>>2)<<2.!wim|
00001b60  70 25 3d 6e 25 0d 01 70  17 c8 99 32 36 32 33 37  |p%=n%..p...26237|
00001b70  35 2c 31 37 2c 77 69 6d  70 25 2c 30 0d 01 71 05  |5,17,wimp%,0..q.|
00001b80  e1 0d 01 72 26 dd 20 f2  54 28 54 61 73 6b 4e 61  |...r&. .T(TaskNa|
00001b90  6d 65 24 2c 77 69 6d 70  5f 6d 65 6d 6f 72 79 25  |me$,wimp_memory%|
00001ba0  2c 69 63 6f 6e 25 29 0d  01 73 23 de 20 77 69 6d  |,icon%)..s#. wim|
00001bb0  70 25 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 2c 69  |p%wimp_memory%,i|
00001bc0  63 6f 6e 73 25 69 63 6f  6e 25 0d 01 74 28 e7 20  |cons%icon%..t(. |
00001bd0  77 69 6d 70 5f 6d 65 6d  6f 72 79 25 3c 32 35 36  |wimp_memory%<256|
00001be0  8c 20 77 69 6d 70 5f 6d  65 6d 6f 72 79 25 3d 32  |. wimp_memory%=2|
00001bf0  35 36 0d 01 75 1d 69 63  6f 6e 5f 6d 65 6d 6f 72  |56..u.icon_memor|
00001c00  79 25 3d 69 63 6f 6e 73  25 2b 69 63 6f 6e 25 0d  |y%=icons%+icon%.|
00001c10  01 76 13 74 61 73 6b 24  3d 54 61 73 6b 4e 61 6d  |.v.task$=TaskNam|
00001c20  65 24 0d 01 77 29 69 6e  64 69 72 65 63 74 5f 73  |e$..w)indirect_s|
00001c30  70 72 69 74 65 73 25 3d  31 3a 64 69 72 65 63 74  |prites%=1:direct|
00001c40  5f 73 70 72 69 74 65 73  25 3d 31 0d 01 78 06 f2  |_sprites%=1..x..|
00001c50  67 0d 01 79 0c ee 20 85  20 f2 68 3a e0 0d 01 7a  |g..y.. . .h:...z|
00001c60  33 c8 99 32 36 32 33 33  36 2c 32 30 30 2c 26 34  |3..262336,200,&4|
00001c70  42 35 33 34 31 35 34 2c  54 61 73 6b 4e 61 6d 65  |B534154,TaskName|
00001c80  24 b8 76 65 72 73 69 6f  6e 25 2c 74 61 73 6b 25  |$.version%,task%|
00001c90  0d 01 7b 05 e1 0d 01 7c  08 dd 20 a4 52 0d 01 7d  |..{....|.. .R..}|
00001ca0  14 ea 20 63 6f 6d 24 2c  70 61 72 61 6d 24 2c 49  |.. com$,param$,I|
00001cb0  25 0d 01 7e 0d c8 99 31  36 b8 63 6f 6d 24 0d 01  |%..~...16.com$..|
00001cc0  7f 0e 70 61 72 61 6d 73  24 3d 22 22 0d 01 80 17  |..params$=""....|
00001cd0  49 25 3d a7 63 6f 6d 24  2c 22 20 2d 71 75 69 74  |I%=.com$," -quit|
00001ce0  20 22 29 0d 01 81 33 e7  20 49 25 8c 20 70 61 72  | ")...3. I%. par|
00001cf0  61 6d 73 24 3d c1 63 6f  6d 24 2c a7 63 6f 6d 24  |ams$=.com$,.com$|
00001d00  2c 22 20 22 2c 49 25 2b  a9 22 20 2d 71 75 69 74  |," ",I%+." -quit|
00001d10  20 22 29 2b 31 29 0d 01  82 0c 3d 70 61 72 61 6d  | ")+1)....=param|
00001d20  73 24 0d 01 83 08 dd 20  f2 67 0d 01 84 16 de 20  |s$..... .g..... |
00001d30  70 6f 69 6e 74 65 72 5f  62 6c 6f 63 6b 25 32 30  |pointer_block%20|
00001d40  0d 01 85 10 69 6e 74 65  72 66 61 63 65 25 3d a3  |....interface%=.|
00001d50  0d 01 86 29 6e 75 6c 6c  25 3d 31 3a 64 72 61 77  |...)null%=1:draw|
00001d60  25 3d 32 3a 70 6f 69 6e  74 65 72 5f 6c 65 61 76  |%=2:pointer_leav|
00001d70  69 6e 67 25 3d 31 3c 3c  34 0d 01 87 31 70 6f 69  |ing%=1<<4...1poi|
00001d80  6e 74 65 72 5f 65 6e 74  65 72 69 6e 67 25 3d 31  |nter_entering%=1|
00001d90  3c 3c 35 3a 6d 6f 75 73  65 25 3d 31 3c 3c 36 3a  |<<5:mouse%=1<<6:|
00001da0  64 72 61 67 25 3d 31 3c  3c 37 0d 01 88 26 6b 65  |drag%=1<<7...&ke|
00001db0  79 25 3d 31 3c 3c 38 3a  6d 65 6e 75 25 3d 31 3c  |y%=1<<8:menu%=1<|
00001dc0  3c 39 3a 73 63 72 6f 6c  6c 25 3d 31 3c 3c 31 30  |<9:scroll%=1<<10|
00001dd0  0d 01 89 40 6c 6f 73 65  5f 63 61 72 65 74 25 3d  |...@lose_caret%=|
00001de0  31 3c 3c 31 31 3a 67 61  69 6e 5f 63 61 72 65 74  |1<<11:gain_caret|
00001df0  25 3d 31 3c 3c 31 32 3a  6d 65 73 73 61 67 65 25  |%=1<<12:message%|
00001e00  3d 28 31 3c 3c 31 37 29  2b 28 31 3c 3c 31 38 29  |=(1<<17)+(1<<18)|
00001e10  0d 01 8a 30 72 65 63 6f  72 64 65 72 25 3d 31 3c  |...0recorder%=1<|
00001e20  3c 31 38 3a 61 63 6b 6e  6f 77 6c 65 64 67 65 25  |<18:acknowledge%|
00001e30  3d 31 3c 3c 31 39 3a 77  69 6e 64 6f 77 25 3d 30  |=1<<19:window%=0|
00001e40  0d 01 8b 21 73 70 72 69  74 65 73 25 3d 31 3a 76  |...!sprites%=1:v|
00001e50  65 72 73 69 6f 6e 25 3d  30 3a 74 61 73 6b 25 3d  |ersion%=0:task%=|
00001e60  30 0d 01 8c 2a 42 61 72  5f 57 69 6e 64 6f 77 25  |0...*Bar_Window%|
00001e70  3d 2d 32 3a 42 61 72 5f  49 63 6f 6e 25 3d 30 3a  |=-2:Bar_Icon%=0:|
00001e80  42 61 72 5f 4d 65 6e 75  25 3d 30 0d 01 8d 2a 78  |Bar_Menu%=0...*x|
00001e90  5f 6f 72 69 67 69 6e 25  3d 30 3a 79 5f 6f 72 69  |_origin%=0:y_ori|
00001ea0  67 69 6e 25 3d 30 3a 53  61 76 65 57 69 6e 64 6f  |gin%=0:SaveWindo|
00001eb0  77 25 3d 2d 33 0d 01 8e  33 6d 65 73 73 61 67 65  |w%=-3...3message|
00001ec0  5f 71 75 69 74 25 3d 30  3a 6d 65 73 73 61 67 65  |_quit%=0:message|
00001ed0  5f 73 61 76 65 25 3d 32  3a 6d 65 73 73 61 67 65  |_save%=2:message|
00001ee0  5f 6c 6f 61 64 25 3d 33  0d 01 8f 21 6d 6f 75 73  |_load%=3...!mous|
00001ef0  65 5f 62 75 74 74 6f 6e  25 3d 32 3a 73 61 76 65  |e_button%=2:save|
00001f00  5f 65 76 65 6e 74 25 3d  30 0d 01 90 1e 74 6f 70  |_event%=0....top|
00001f10  5f 6c 69 6e 65 25 3d 30  3a 62 6f 74 74 6f 6d 5f  |_line%=0:bottom_|
00001f20  6c 69 6e 65 25 3d 30 0d  01 91 05 e1 0d 01 92 08  |line%=0.........|
00001f30  dd 20 f2 68 0d 01 93 0b  ea 20 58 24 2c 78 25 0d  |. .h..... X$,x%.|
00001f40  01 94 09 ee 20 85 20 87  0d 01 95 08 78 25 3d 9e  |.... . .....x%=.|
00001f50  0d 01 96 1b 58 24 3d f6  24 2b 22 61 74 6c 69 6e  |....X$=.$+"atlin|
00001f60  65 22 2b c3 28 78 25 81  31 30 29 0d 01 97 11 de  |e"+.(x%.10).....|
00001f70  20 45 72 72 6f 72 4d 73  67 25 33 36 0d 01 98 45  | ErrorMsg%36...E|
00001f80  45 72 72 6f 72 4d 73 67  25 21 30 3d 33 36 3a 45  |ErrorMsg%!0=36:E|
00001f90  72 72 6f 72 4d 73 67 25  21 31 32 3d 30 3a 45 72  |rrorMsg%!12=0:Er|
00001fa0  72 6f 72 4d 73 67 25 21  31 36 3d 35 32 38 35 31  |rorMsg%!16=52851|
00001fb0  32 3a 45 72 72 6f 72 4d  73 67 25 21 32 30 3d 78  |2:ErrorMsg%!20=x|
00001fc0  25 0d 01 99 1f 24 28 45  72 72 6f 72 4d 73 67 25  |%....$(ErrorMsg%|
00001fd0  2b 32 34 29 3d 22 21 52  75 6e 49 6d 61 67 65 22  |+24)="!RunImage"|
00001fe0  0d 01 9a 19 c8 99 32 36  32 33 37 35 2c 31 37 2c  |......262375,17,|
00001ff0  45 72 72 6f 72 4d 73 67  25 0d 01 9b 10 f2 64 28  |ErrorMsg%.....d(|
00002000  74 61 73 6b 24 2c 58 24  29 0d 01 9c 06 f2 44 0d  |task$,X$).....D.|
00002010  01 9d 05 e1 0d 01 9e 08  dd 20 f2 44 0d 01 9f 19  |......... .D....|
00002020  c8 99 32 36 32 33 36 35  2c 74 61 73 6b 25 2c 22  |..262365,task%,"|
00002030  54 41 53 4b 22 0d 01 a0  05 e1 0d 01 a1 08 dd 20  |TASK".......... |
00002040  f2 63 0d 01 a2 12 ea 20  6d 61 73 6b 25 2c 65 76  |.c..... mask%,ev|
00002050  65 6e 74 25 0d 01 a3 0f  66 69 6e 69 73 68 65 64  |ent%....finished|
00002060  25 3d a3 0d 01 a4 0e 6d  61 73 6b 25 3d 33 36 30  |%=.....mask%=360|
00002070  39 0d 01 a5 05 f5 0d 01  a6 1f c8 99 32 36 32 33  |9...........2623|
00002080  34 33 2c 6d 61 73 6b 25  2c 77 69 6d 70 25 b8 65  |43,mask%,wimp%.e|
00002090  76 65 6e 74 25 0d 01 a7  0e c8 8e 20 65 76 65 6e  |vent%...... even|
000020a0  74 25 ca 0d 01 a8 06 c9  30 0d 01 a9 09 c9 31 3a  |t%......0.....1:|
000020b0  f2 69 0d 01 aa 16 c9 32  3a c8 99 32 36 32 33 34  |.i.....2:..26234|
000020c0  31 2c 2c 77 69 6d 70 25  0d 01 ab 09 c9 33 3a f2  |1,,wimp%.....3:.|
000020d0  6a 0d 01 ac 06 c9 34 0d  01 ad 06 c9 35 0d 01 ae  |j.....4.....5...|
000020e0  09 c9 36 3a f2 6b 0d 01  af 09 c9 37 3a f2 6c 0d  |..6:.k.....7:.l.|
000020f0  01 b0 09 c9 38 3a f2 6d  0d 01 b1 10 c9 39 3a f2  |....8:.m.....9:.|
00002100  58 28 6d 65 6e 75 25 29  0d 01 b2 07 c9 31 30 0d  |X(menu%).....10.|
00002110  01 b3 07 c9 31 31 0d 01  b4 07 c9 31 32 0d 01 b5  |....11.....12...|
00002120  0d c9 31 37 2c 31 38 3a  f2 6e 0d 01 b6 07 c9 31  |..17,18:.n.....1|
00002130  39 0d 01 b7 05 cb 0d 01  b8 0f fd 20 66 69 6e 69  |9.......... fini|
00002140  73 68 65 64 25 0d 01 b9  05 e1 0d 01 ba 08 dd 20  |shed%.......... |
00002150  f2 69 0d 01 bb 0b ea 20  6d 6f 72 65 25 0d 01 bc  |.i..... more%...|
00002160  19 c8 99 32 36 32 33 34  34 2c 2c 77 69 6d 70 25  |...262344,,wimp%|
00002170  b8 6d 6f 72 65 25 0d 01  bd 13 77 69 6e 64 6f 77  |.more%....window|
00002180  25 3d 77 69 6d 70 25 21  30 0d 01 be 41 78 5f 6f  |%=wimp%!0...Ax_o|
00002190  72 69 67 69 6e 25 3d 31  36 2b 77 69 6d 70 25 21  |rigin%=16+wimp%!|
000021a0  34 2d 77 69 6d 70 25 21  32 30 3a 79 5f 6f 72 69  |4-wimp%!20:y_ori|
000021b0  67 69 6e 25 3d 2d 31 36  2b 77 69 6d 70 25 21 31  |gin%=-16+wimp%!1|
000021c0  36 2d 77 69 6d 70 25 21  32 34 0d 01 bf 0c c8 95  |6-wimp%!24......|
000021d0  20 6d 6f 72 65 25 0d 01  c0 21 e7 20 69 6e 74 65  | more%...!. inte|
000021e0  72 66 61 63 65 25 8c 20  c8 99 35 33 30 30 34 39  |rface%. ..530049|
000021f0  2c 2c 77 69 6d 70 25 0d  01 c1 23 f2 4b 28 77 69  |,,wimp%...#.K(wi|
00002200  6e 64 6f 77 25 2c 78 5f  6f 72 69 67 69 6e 25 2c  |ndow%,x_origin%,|
00002210  79 5f 6f 72 69 67 69 6e  25 29 0d 01 c2 19 c8 99  |y_origin%)......|
00002220  32 36 32 33 34 36 2c 2c  77 69 6d 70 25 b8 6d 6f  |262346,,wimp%.mo|
00002230  72 65 25 0d 01 c3 05 ce  0d 01 c4 05 e1 0d 01 c5  |re%.............|
00002240  08 dd 20 f2 6a 0d 01 c6  13 c8 99 32 36 32 33 35  |.. .j......26235|
00002250  31 2c 2c 77 69 6d 70 25  0d 01 c7 25 77 69 6e 64  |1,,wimp%...%wind|
00002260  6f 77 25 3d 77 69 6d 70  25 21 31 32 3a 62 75 74  |ow%=wimp%!12:but|
00002270  74 6f 6e 73 25 3d 77 69  6d 70 25 21 38 0d 01 c8  |tons%=wimp%!8...|
00002280  18 f2 4a 28 77 69 6e 64  6f 77 25 2c 62 75 74 74  |..J(window%,butt|
00002290  6f 6e 73 25 29 0d 01 c9  22 21 77 69 6d 70 25 3d  |ons%)..."!wimp%=|
000022a0  77 69 6e 64 6f 77 25 3a  c8 99 32 36 32 33 34 32  |window%:..262342|
000022b0  2c 2c 77 69 6d 70 25 0d  01 ca 05 e1 0d 01 cb 08  |,,wimp%.........|
000022c0  dd 20 f2 6b 0d 01 cc 49  62 75 74 74 6f 6e 25 3d  |. .k...Ibutton%=|
000022d0  77 69 6d 70 25 21 38 3a  77 69 6e 64 6f 77 25 3d  |wimp%!8:window%=|
000022e0  77 69 6d 70 25 21 31 32  3a 69 63 6f 6e 25 3d 77  |wimp%!12:icon%=w|
000022f0  69 6d 70 25 21 31 36 3a  78 25 3d 77 69 6d 70 25  |imp%!16:x%=wimp%|
00002300  21 30 3a 79 25 3d 77 69  6d 70 25 21 34 0d 01 cd  |!0:y%=wimp%!4...|
00002310  0f c8 8e 20 62 75 74 74  6f 6e 25 ca 0d 01 ce 09  |... button%.....|
00002320  c9 32 3a f2 6f 0d 01 cf  15 7f 20 c8 8e 20 a4 47  |.2:.o..... .. .G|
00002330  28 77 69 6e 64 6f 77 25  29 ca 0d 01 d0 0a c9 20  |(window%)...... |
00002340  b9 3a f2 70 0d 01 d1 0a  c9 20 a3 3a f2 71 0d 01  |.:.p..... .:.q..|
00002350  d2 05 cb 0d 01 d3 05 cb  0d 01 d4 05 e1 0d 01 d5  |................|
00002360  08 dd 20 f2 6f 0d 01 d6  15 6d 65 6e 75 25 3d a4  |.. .o....menu%=.|
00002370  4e 28 77 69 6e 64 6f 77  25 29 0d 01 d7 0d c8 8e  |N(window%)......|
00002380  20 6d 65 6e 75 25 ca 0d  01 d8 07 c9 20 a3 0d 01  | menu%...... ...|
00002390  d9 05 7f 0d 01 da 0f c8  8e 20 77 69 6e 64 6f 77  |......... window|
000023a0  25 ca 0d 01 db 0c c9 2d  32 3a 6e 25 3d 30 0d 01  |%......-2:n%=0..|
000023b0  dc 24 c8 95 28 28 42 61  72 5f 4d 65 6e 75 25 21  |.$..((Bar_Menu%!|
000023c0  28 32 38 2b 6e 25 2a 32  34 29 29 80 31 32 38 29  |(28+n%*24)).128)|
000023d0  3d 30 0d 01 dd 09 6e 25  2b 3d 31 0d 01 de 05 ce  |=0....n%+=1.....|
000023e0  0d 01 df 27 c8 99 32 36  32 33 35 36 2c 2c 42 61  |...'..262356,,Ba|
000023f0  72 5f 4d 65 6e 75 25 2c  78 25 2d 36 34 2c 31 34  |r_Menu%,x%-64,14|
00002400  30 2b 6e 25 2a 34 34 0d  01 e0 21 7f 20 c8 99 32  |0+n%*44...!. ..2|
00002410  36 32 33 35 36 2c 2c 6d  65 6e 75 25 2c 78 25 2d  |62356,,menu%,x%-|
00002420  36 34 2c 79 25 2b 32 30  0d 01 e1 05 cb 0d 01 e2  |64,y%+20........|
00002430  05 cb 0d 01 e3 05 e1 0d  01 e4 08 dd 20 f2 70 0d  |............ .p.|
00002440  01 e5 0d c8 8e 20 69 63  6f 6e 25 ca 0d 01 e6 20  |..... icon%.... |
00002450  c9 30 3a e7 20 62 75 74  74 6f 6e 25 80 38 30 8c  |.0:. button%.80.|
00002460  20 f2 72 28 77 69 6e 64  6f 77 25 29 0d 01 e7 1f  | .r(window%)....|
00002470  c9 32 3a e7 20 62 75 74  74 6f 6e 25 80 35 8c 20  |.2:. button%.5. |
00002480  f2 73 28 77 69 6e 64 6f  77 25 29 0d 01 e8 05 cb  |.s(window%).....|
00002490  0d 01 e9 05 e1 0d 01 ea  08 dd 20 f2 71 0d 01 eb  |.......... .q...|
000024a0  21 e7 20 69 6e 74 65 72  66 61 63 65 25 8c 20 c8  |!. interface%. .|
000024b0  99 35 33 30 30 34 38 2c  2c 77 69 6d 70 25 0d 01  |.530048,,wimp%..|
000024c0  ec 23 f2 4e 28 77 69 6e  64 6f 77 25 2c 69 63 6f  |.#.N(window%,ico|
000024d0  6e 25 2c 62 75 74 74 6f  6e 25 2c 78 25 2c 79 25  |n%,button%,x%,y%|
000024e0  29 0d 01 ed 12 c8 8e 20  69 6e 74 65 72 66 61 63  |)...... interfac|
000024f0  65 25 ca 0d 01 ee 07 c9  20 b9 0d 01 ef 23 77 69  |e%...... ....#wi|
00002500  6d 70 25 21 30 3d 78 25  3a 77 69 6d 70 25 21 34  |mp%!0=x%:wimp%!4|
00002510  3d 79 25 3a 77 69 6d 70  25 21 38 3d 30 0d 01 f0  |=y%:wimp%!8=0...|
00002520  23 77 69 6d 70 25 21 31  32 3d 77 69 6e 64 6f 77  |#wimp%!12=window|
00002530  25 3a 77 69 6d 70 25 21  31 36 3d 69 63 6f 6e 25  |%:wimp%!16=icon%|
00002540  0d 01 f1 13 c8 99 35 33  30 30 34 38 2c 2c 77 69  |......530048,,wi|
00002550  6d 70 25 0d 01 f2 05 cb  0d 01 f3 05 e1 0d 01 f4  |mp%.............|
00002560  11 dd 20 f2 73 28 77 69  6e 64 6f 77 25 29 0d 01  |.. .s(window%)..|
00002570  f5 0b ea 20 66 69 6c 65  24 0d 01 f6 2d 77 69 6d  |... file$...-wim|
00002580  70 25 21 30 3d 77 69 6e  64 6f 77 25 3a 77 69 6d  |p%!0=window%:wim|
00002590  70 25 21 34 3d 31 3a c8  99 32 36 32 33 35 30 2c  |p%!4=1:..262350,|
000025a0  2c 77 69 6d 70 25 0d 01  f7 15 66 69 6c 65 24 3d  |,wimp%....file$=|
000025b0  24 28 77 69 6d 70 25 21  32 38 29 0d 01 f8 13 c8  |$(wimp%!28).....|
000025c0  8e 20 a7 66 69 6c 65 24  2c 22 2e 22 29 ca 0d 01  |. .file$,".")...|
000025d0  f9 06 c9 30 0d 01 fa 3d  24 28 77 69 6d 70 25 2b  |...0...=$(wimp%+|
000025e0  34 29 3d 22 54 6f 20 73  61 76 65 2c 20 64 72 61  |4)="To save, dra|
000025f0  67 20 74 68 65 20 69 63  6f 6e 20 74 6f 20 61 20  |g the icon to a |
00002600  64 69 72 65 63 74 6f 72  79 20 77 69 6e 64 6f 77  |directory window|
00002610  22 0d 01 fb 1b c8 99 32  36 32 33 36 37 2c 77 69  |"......262367,wi|
00002620  6d 70 25 2c 31 36 2c 74  61 73 6b 24 0d 01 fc 05  |mp%,16,task$....|
00002630  7f 0d 01 fd 15 f2 47 28  66 69 6c 65 24 2c 77 69  |......G(file$,wi|
00002640  6e 64 6f 77 25 29 0d 01  fe 05 cb 0d 01 ff 0f c8  |ndow%)..........|
00002650  99 32 36 32 33 35 36 2c  2d 31 0d 02 00 05 e1 0d  |.262356,-1......|
00002660  02 01 11 dd 20 f2 72 28  77 69 6e 64 6f 77 25 29  |.... .r(window%)|
00002670  0d 02 02 0b ea 20 78 25  2c 79 25 0d 02 03 11 73  |..... x%,y%....s|
00002680  61 76 65 25 3d 77 69 6e  64 6f 77 25 0d 02 04 12  |ave%=window%....|
00002690  21 77 69 6d 70 25 3d 77  69 6e 64 6f 77 25 0d 02  |!wimp%=window%..|
000026a0  05 13 c8 99 32 36 32 33  34 37 2c 2c 77 69 6d 70  |....262347,,wimp|
000026b0  25 0d 02 06 2c 78 25 3d  77 69 6d 70 25 21 34 2d  |%...,x%=wimp%!4-|
000026c0  77 69 6d 70 25 21 32 30  3a 79 25 3d 77 69 6d 70  |wimp%!20:y%=wimp|
000026d0  25 21 31 36 2d 77 69 6d  70 25 21 32 34 0d 02 07  |%!16-wimp%!24...|
000026e0  0d 77 69 6d 70 25 21 34  3d 30 0d 02 08 13 c8 99  |.wimp%!4=0......|
000026f0  32 36 32 33 35 30 2c 2c  77 69 6d 70 25 0d 02 09  |262350,,wimp%...|
00002700  12 21 77 69 6d 70 25 3d  77 69 6e 64 6f 77 25 0d  |.!wimp%=window%.|
00002710  02 0a 0d 77 69 6d 70 25  21 34 3d 35 0d 02 0b 2b  |...wimp%!4=5...+|
00002720  77 69 6d 70 25 21 38 3d  78 25 2b 77 69 6d 70 25  |wimp%!8=x%+wimp%|
00002730  21 38 3a 77 69 6d 70 25  21 31 32 3d 79 25 2b 77  |!8:wimp%!12=y%+w|
00002740  69 6d 70 25 21 31 32 0d  02 0c 2d 77 69 6d 70 25  |imp%!12...-wimp%|
00002750  21 31 36 3d 78 25 2b 77  69 6d 70 25 21 31 36 3a  |!16=x%+wimp%!16:|
00002760  77 69 6d 70 25 21 32 30  3d 79 25 2b 77 69 6d 70  |wimp%!20=y%+wimp|
00002770  25 21 32 30 0d 02 0d 19  77 69 6d 70 25 21 32 34  |%!20....wimp%!24|
00002780  3d 30 3a 77 69 6d 70 25  21 32 38 3d 30 0d 02 0e  |=0:wimp%!28=0...|
00002790  29 77 69 6d 70 25 21 33  32 3d 26 37 46 46 46 46  |)wimp%!32=&7FFFF|
000027a0  46 46 46 3a 77 69 6d 70  25 21 33 36 3d 26 37 46  |FFF:wimp%!36=&7F|
000027b0  46 46 46 46 46 46 0d 02  0f 13 c8 99 32 36 32 33  |FFFFFF......2623|
000027c0  35 32 2c 2c 77 69 6d 70  25 0d 02 10 05 e1 0d 02  |52,,wimp%.......|
000027d0  11 08 dd 20 f2 6d 0d 02  12 2f 77 69 6e 64 6f 77  |... .m.../window|
000027e0  25 3d 77 69 6d 70 25 21  30 3a 69 63 6f 6e 25 3d  |%=wimp%!0:icon%=|
000027f0  77 69 6d 70 25 21 34 3a  6b 65 79 25 3d 77 69 6d  |wimp%!4:key%=wim|
00002800  70 25 21 32 34 0d 02 13  13 c8 8e 20 a4 47 28 77  |p%!24...... .G(w|
00002810  69 6e 64 6f 77 25 29 ca  0d 02 14 13 c9 20 b9 3a  |indow%)...... .:|
00002820  f2 75 28 77 69 6e 64 6f  77 25 29 0d 02 15 1e c9  |.u(window%).....|
00002830  20 a3 3a f2 55 28 77 69  6e 64 6f 77 25 2c 69 63  | .:.U(window%,ic|
00002840  6f 6e 25 2c 6b 65 79 25  29 0d 02 16 05 cb 0d 02  |on%,key%).......|
00002850  17 05 e1 0d 02 18 08 dd  20 f2 6c 0d 02 19 1f ea  |........ .l.....|
00002860  20 66 69 6c 65 24 2c 77  69 6e 64 6f 77 25 2c 69  | file$,window%,i|
00002870  63 6f 6e 25 2c 78 25 2c  79 25 0d 02 1a 13 c8 99  |con%,x%,y%......|
00002880  32 36 32 33 35 31 2c 2c  77 69 6d 70 25 0d 02 1b  |262351,,wimp%...|
00002890  39 77 69 6e 64 6f 77 25  3d 77 69 6d 70 25 21 31  |9window%=wimp%!1|
000028a0  32 3a 69 63 6f 6e 25 3d  77 69 6d 70 25 21 31 36  |2:icon%=wimp%!16|
000028b0  3a 78 25 3d 77 69 6d 70  25 21 30 3a 79 25 3d 77  |:x%=wimp%!0:y%=w|
000028c0  69 6d 70 25 21 34 0d 02  1c 2b 77 69 6d 70 25 21  |imp%!4...+wimp%!|
000028d0  30 3d 73 61 76 65 25 3a  77 69 6d 70 25 21 34 3d  |0=save%:wimp%!4=|
000028e0  31 3a c8 99 32 36 32 33  35 30 2c 2c 77 69 6d 70  |1:..262350,,wimp|
000028f0  25 0d 02 1d 15 66 69 6c  65 24 3d 24 28 77 69 6d  |%....file$=$(wim|
00002900  70 25 21 32 38 29 0d 02  1e 13 66 69 6c 65 24 3d  |p%!28)....file$=|
00002910  a4 45 28 66 69 6c 65 24  29 0d 02 1f 14 77 69 6d  |.E(file$)....wim|
00002920  70 25 21 32 30 3d 77 69  6e 64 6f 77 25 0d 02 20  |p%!20=window%.. |
00002930  12 77 69 6d 70 25 21 32  34 3d 69 63 6f 6e 25 0d  |.wimp%!24=icon%.|
00002940  02 21 1b 77 69 6d 70 25  21 32 38 3d 78 25 3a 77  |.!.wimp%!28=x%:w|
00002950  69 6d 70 25 21 33 32 3d  79 25 0d 02 22 14 77 69  |imp%!32=y%..".wi|
00002960  6d 70 25 21 33 36 3d 6c  65 6e 67 74 68 25 0d 02  |mp%!36=length%..|
00002970  23 0e 77 69 6d 70 25 21  30 3d 36 34 0d 02 24 0e  |#.wimp%!0=64..$.|
00002980  77 69 6d 70 25 21 31 32  3d 30 0d 02 25 0e 77 69  |wimp%!12=0..%.wi|
00002990  6d 70 25 21 31 36 3d 31  0d 02 26 11 77 69 6d 70  |mp%!16=1..&.wimp|
000029a0  25 21 34 30 3d 34 30 39  35 0d 02 27 15 24 28 77  |%!40=4095..'.$(w|
000029b0  69 6d 70 25 2b 34 34 29  3d 66 69 6c 65 24 0d 02  |imp%+44)=file$..|
000029c0  28 27 c8 99 32 36 32 33  37 35 2c 31 37 2c 77 69  |('..262375,17,wi|
000029d0  6d 70 25 2c 77 69 6d 70  25 21 32 30 2c 77 69 6d  |mp%,wimp%!20,wim|
000029e0  70 25 21 32 34 0d 02 29  05 e1 0d 02 2a 08 dd 20  |p%!24..)....*.. |
000029f0  f2 6e 0d 02 2b 0b ea 20  66 69 6c 65 24 0d 02 2c  |.n..+.. file$..,|
00002a00  16 66 69 6c 65 24 3d a4  42 28 77 69 6d 70 25 2b  |.file$=.B(wimp%+|
00002a10  34 34 29 0d 02 2d 10 c8  8e 20 77 69 6d 70 25 21  |44)..-... wimp%!|
00002a20  31 36 ca 0d 02 2e 12 c9  30 3a 66 69 6e 69 73 68  |16......0:finish|
00002a30  65 64 25 3d b9 0d 02 2f  06 c9 31 0d 02 30 06 c9  |ed%=.../..1..0..|
00002a40  32 0d 02 31 2b 77 69 6d  70 25 21 30 3d 73 61 76  |2..1+wimp%!0=sav|
00002a50  65 25 3a 77 69 6d 70 25  21 34 3d 31 3a c8 99 32  |e%:wimp%!4=1:..2|
00002a60  36 32 33 35 30 2c 2c 77  69 6d 70 25 0d 02 32 15  |62350,,wimp%..2.|
00002a70  24 28 77 69 6d 70 25 21  32 38 29 3d 66 69 6c 65  |$(wimp%!28)=file|
00002a80  24 0d 02 33 30 77 69 6d  70 25 21 30 3d 73 61 76  |$..30wimp%!0=sav|
00002a90  65 25 3a 77 69 6d 70 25  21 34 3d 31 3a 77 69 6d  |e%:wimp%!4=1:wim|
00002aa0  70 25 21 38 3d 30 3a 77  69 6d 70 25 21 31 32 3d  |p%!8=0:wimp%!12=|
00002ab0  30 0d 02 34 13 c8 99 32  36 32 33 34 39 2c 2c 77  |0..4...262349,,w|
00002ac0  69 6d 70 25 0d 02 35 21  c8 99 32 36 32 33 35 34  |imp%..5!..262354|
00002ad0  2c 73 61 76 65 25 2c 31  2c 2c 2c 2d 31 2c a9 20  |,save%,1,,,-1,. |
00002ae0  66 69 6c 65 24 0d 02 36  13 f2 47 28 66 69 6c 65  |file$..6..G(file|
00002af0  24 2c 73 61 76 65 25 29  0d 02 37 06 c9 33 0d 02  |$,save%)..7..3..|
00002b00  38 26 74 79 70 65 24 3d  a4 46 28 77 69 6d 70 25  |8&type$=.F(wimp%|
00002b10  21 34 30 29 3a f2 62 28  66 69 6c 65 24 2c 74 79  |!40):.b(file$,ty|
00002b20  70 65 24 29 0d 02 39 05  cb 0d 02 3a 05 e1 0d 02  |pe$)..9....:....|
00002b30  3b 10 dd 20 a4 42 28 61  72 72 61 79 25 29 0d 02  |;.. .B(array%)..|
00002b40  3c 0e ea 20 73 24 3a 73  24 3d 22 22 0d 02 3d 3b  |<.. s$:s$=""..=;|
00002b50  c8 95 28 3f 61 72 72 61  79 25 3c 3e 31 33 29 80  |..(?array%<>13).|
00002b60  28 3f 61 72 72 61 79 25  3c 3e 30 29 3a 73 24 2b  |(?array%<>0):s$+|
00002b70  3d bd 28 3f 61 72 72 61  79 25 29 3a 61 72 72 61  |=.(?array%):arra|
00002b80  79 25 2b 3d 31 3a ce 0d  02 3e 07 3d 73 24 0d 02  |y%+=1:...>.=s$..|
00002b90  3f 0c dd 20 a4 45 28 66  24 29 0d 02 40 10 c8 8e  |?.. .E(f$)..@...|
00002ba0  20 a7 66 24 2c 22 2e 22  29 ca 0d 02 41 0a c9 30  | .f$,".")...A..0|
00002bb0  3a 3d 66 24 0d 02 42 1d  7f 3d a4 45 28 c2 66 24  |:=f$..B..=.E(.f$|
00002bc0  2c a9 28 66 24 29 2d a7  66 24 2c 22 2e 22 29 29  |,.(f$)-.f$,"."))|
00002bd0  29 0d 02 43 05 cb 0d 02  44 0f dd 20 a4 46 28 74  |)..C....D.. .F(t|
00002be0  79 70 65 25 29 0d 02 45  0d c8 8e 20 74 79 70 65  |ype%)..E... type|
00002bf0  25 ca 0d 02 46 11 c9 34  30 39 35 3a 3d 22 54 65  |%...F..4095:="Te|
00002c00  78 74 22 0d 02 47 11 c9  34 30 39 33 3a 3d 22 44  |xt"..G..4093:="D|
00002c10  61 74 61 22 0d 02 48 12  c9 34 30 39 31 3a 3d 22  |ata"..H..4091:="|
00002c20  42 61 73 69 63 22 0d 02  49 13 c9 34 30 38 39 3a  |Basic"..I..4089:|
00002c30  3d 22 53 70 72 69 74 65  22 0d 02 4a 14 c9 34 30  |="Sprite"..J..40|
00002c40  37 37 3a 3d 22 50 61 6c  65 74 74 65 22 0d 02 4b  |77:="Palette"..K|
00002c50  15 c9 34 30 37 36 3a 3d  22 54 65 6d 70 6c 61 74  |..4076:="Templat|
00002c60  65 22 0d 02 4c 11 c9 32  38 31 35 3a 3d 22 44 72  |e"..L..2815:="Dr|
00002c70  61 77 22 0d 02 4d 13 c9  34 30 39 36 3a 3d 22 46  |aw"..M..4096:="F|
00002c80  6f 6c 64 65 72 22 0d 02  4e 18 c9 38 31 39 32 3a  |older"..N..8192:|
00002c90  3d 22 41 70 70 6c 69 63  61 74 69 6f 6e 22 0d 02  |="Application"..|
00002ca0  4f 0f 7f 3d c3 7e 28 74  79 70 65 25 29 0d 02 50  |O..=.~(type%)..P|
00002cb0  05 cb 0d ff                                       |....|
00002cb4