�>!RunImage
0�Produced by BasCompress v1.71 (19 Sep 1996)
.e%=�:�b:�w:�d:��F:�R:�e%=���("Spool"):��
�e%=��*Spool Spooled
�e%=����:��
JT=�:Appname$="SiteEdit"::Appdir$=�H(Appname$+"$Dir"):�h:J%=�:h%=�:��a
	�h%�
go$=�L:h%=�:�go$<>""�
	>ș&20049,"site/A,app,task/K,port/K",go$,E%,&400�;Q:�(Q�1)�

)p=�F(">Message",">BadParams",18):J%=�
?�:sitefile$=�S(E%!0):�E%!4<>0�siteapp$=�S(E%!4)�siteapp$=""
�E%!8<>0�d=�(�S(E%!8))�d=0

.�E%!&C<>0�siteport$=�S(E%!&C)�siteport$=""
(�T�k=�_("!SiteEdit",siteapp$,1)�k=-1
&�siteapp$=""�siteapp$="someone..."
�longname$="Sites for "+siteapp$:�E(infobox%,2,longname$):!E%=&FC:E%!&C=0:E%!16=&90282:$(E%+20)=�B(sitefile$):ș&400E7,17,E%,0
�
/�:p=�F(">Message",">NeedAFilename",18):J%=�
�
�:�J%��j:�P
(ȕJ%=�:�x:�:ș&400DD:�F:�e%=��*SPOOL
�
,��x:ș66�k%:ș&400E1,1,E%,k%+&F�m%:Ȏm%�
�2:ș&400C5,,E%
*�3:ș&400C6,,E%:�!E%=seditwin%��T�J%=�
�6:�u(E%!8,E%!&C,E%!16)
�8:�v(E%!0,E%!4,E%!24)
	�9:�D
�17,18:�q(E%!16)
�19:�L(E%!16)
�:�
 ��u(V,U,N):ȎU�
!�-2:ȎV�
"	�2:�t
#�1,4:�P
$�
%�infobox%:ȎN�
&	�1:�U
'2�3:�Q("http://users.essex.ac.uk/users/gerph/")
(M�4:�Q("http://users.essex.ac.uk/users/gerph/acorn/internet.html#netgame")
)�
*�seditwin%:�V=2�
+�T��G(D%,-1,-1)
,
�:ȎN�
-�2:F%+=1+(V=1)*2:�M
.�3:F%-=1+(V=1)*2:�M
/1�9:ș&46443,�M(seditwin%,7),"tcp"�K%:�K%=0��7
0�G(K%,-1,-1)
1�&A:�N:�V=4��J(seditwin%)
2�&B:�O:�V=4��J(seditwin%)
3�
4�
5�:�
6��N:�A%,Q%:�F%>0�
7$Q%=F%:A%=Z%:ȕA%<>0:Q%-=1:�Q%=0�
8k�A(A%!4):�A(A%!8):�A(A%!&C):A%!4=�Z(�M(seditwin%,1)):A%!8=�Z(�M(seditwin%,6)):A%!&C=�Z(�M(seditwin%,7))
9�:A%=!A%:�
:m�:A%=�A(16):!A%=Z%:Z%=A%:A%!4=�Z(�M(seditwin%,1)):A%!8=�Z(�M(seditwin%,6)):A%!&C=�Z(�M(seditwin%,7)):F%=1
;
�:�B:�M:�
<��O:�x%,A%,Q%,B%:�F%>0�
=0x%=0:A%=Z%:Q%=F%:ȕA%<>0:B%=!A%:Q%-=1:�Q%=0�
>:�A(A%!4):�A(A%!8):�A(A%!&C):�A(A%):�x%<>0�!x%=B%�Z%=B%
?	A%=x%
@�:x%=A%:A%=B%:�
A
�:�B:�M:�
BYݤI:�S%,A%:�H(b%):�r("Sites"):A%=Z%:ȕA%<>0:�V($(A%!4),"",0):A%=!A%:�:S%=�T:b%=�Y:=S%
Ci��K:�X%,B%,a$,b$,A%:ȕZ%<>0:B%=!Z%:�A(Z%!4):�A(Z%!8):�A(Z%!&C):�A(Z%):Z%=B%:�:X%=�(sitefile$):�X%<>0�
D'ȕ��#X%:a$=�#X%:�a$,1)<>"#"���#X%�
Emb$=�#X%:A%=�A(16):!A%=Z%:Z%=A%:A%!4=�Z(a$):A%!8=�Z(�b$,�b$+" "," ")-1)):A%!&C=�Z(�O(�b$,�b$+" "," ")+1)))
F�:�:�#X%
G�:�
H���B:�A%,B%:A%=Z%:Z%=0:ȕA%<>0:B%=!A%:!A%=Z%:Z%=A%:A%=B%:�:L%=�(sitefile$):A%=Z%:�#L%,"# Sites list, generated by SiteEdit for "+siteapp$:�#L%,"# Format 1 :":�#L%,"# <site name>":�#L%,"# <hostname> <port>":ȕA%<>0:�#L%,$(A%!4)
IH�#L%,$(A%!8)+" "+$(A%!&C):A%=!A%:�:�#L%:ș8,18,sitefile$,&FFF:�d<>0�
J0!E%=20:E%!&C=0:E%!16=&90281:ș&400E7,17,E%,d
K6�:A%=Z%:Z%=0:ȕA%<>0:B%=!A%:!A%=Z%:Z%=A%:A%=B%:�:�
L��v(U,N,Ay):�_:_=�:ȎU�
M�seditwin%:ȎAy�
N�414:F%-=1+(V=1)*2:�M:_=�
O�415:F%+=1+(V=1)*2:�M:_=�
P"�&A,&D:�N:�T��J(seditwin%):_=�
Q!�27:�T��J(seditwin%):_=��J%=�
R�
S�:�_�ș&400DC,Ay
T�
U,��D:ș&400CF,,M%:l%=M%!8:m$=�X(N%):ȎN%�
V�q%
W4�K%:�s(K%,0,-1):�e(K%,E%!0,1):�E(seditwin%,7,m$)
X
�D%:Ȏm$�
Y�"Sites...":�P
Z�"Quit":J%=�
[�
\�:�(l%�1)=1��Y�N%=-1
]�
^��q(m):Ȏm�
_�&400C0:ȎN%�
`:�D%:q%=�I:D%!(32+24*E%!32)=q%:ș&400E8,,q%,E%!24,E%!28
a�
b
�0:J%=�*2
c0�&90282:�B(sitefile$)=$(E%+20)�E%!4<>`�J%=�
d�&502:�I(E%!32,E%!36,E%!4)
e�:�
f��L(m):Ȏm�
g�:�
hU��M:�A%,Q%:A%=0:ȕA%=0�F%>0:A%=Z%:Q%=F%-1:ȕA%<>0�Q%>0:A%=!A%:Q%-=1:�:�A%=0�F%-=1
i�:�F%<1�
j`�E(seditwin%,4,"(New)"):�E(seditwin%,1,""):�E(seditwin%,6,""):�E(seditwin%,7,siteport$):F%=0
kj�:�E(seditwin%,4,"("+�F%+")"):�E(seditwin%,1,$(A%!4)):�E(seditwin%,6,$(A%!8)):�E(seditwin%,7,$(A%!&C))
l�:�
m���h:�`%256::�C(&502):�C(&90282):�C(&400C0):�C(0):ș&400C0,310,&4B534154,Appname$,`%�Jy,`:O%=&400:R%=&400:�E%&800,a%O%,S%R%,v%&800:N%=-1:�c:infobox%=�U("Info",1):seditwin%=�U("EditSite",1):�E(infobox%,1,Appname$):�E(infobox%,4,"1.00 (17 Jun 1997)")
n{�T�D%=�N(Appname$+"|Info]>infobox%|Sites...|Test sites]M>1|Quit")�D%=�N(Appname$+"|Info]>infobox%|Test sites]M>1|Quit")
ot%=z%:�
p&��j:F%=1:Z%=0:q%=0:b%=0:K%=-1:�K:�
q��I(U,N,X):�+1:�n(U,N,X):�
r� infobox%,">HInfobox"
s� 3,">HInfobox3"
t� 4,">HInfobox4"
u� -2,">HIconbar"
v� seditwin%,">HSEdit"
w� 1,">HSEditName"
x� 2,">HSEditUp"
y� 3,">HSEditDown"
z� 4,">HSEditNum"
{� 6,">HSEditHost"
|� 7,">HSEditPort"
}� 9,">HPortMenu"
~� 10,">HSEditUpdate"
� 11,">HSEditDelete"
�� -1,-1
�� -2,-2,-2,-2
���Q(f$):ș&6E381,0,f$+�0:�
�*��P:�M:�T(seditwin%):�X(seditwin%,1):�
ŋ��w:ș81�s:D=s:C=�:q=2:W=0:ș&400EC,-1,-1�v:ș&400EC,v+D,-1:ș29,0,C,,D:ș29,2,C,,4*q+4�,,Z:Z+=4:Z!-4=&434F4C52:�R=0�q*4-4�4:Z!R=-1:�:�
�&��y(�Wy,�Ny):ș29,1,C�,,,Ny:Wy=D:�
�4ݤW:�G,a:ș&600EC,v+D+s,-1�a;G:�(G�1)=1�a=v+D�=�
�D+=s:ș29,5,C,,s:=�
�-ݤA(Y):�A,h,G,z:G=�:�Y<0�z=�:Y=�(Y)+4�z=�
�4ș29,1,C�,,h:ȕY>h�G:G=�W:ș29,1,C�,,h:�:�G�=-1
�&ș&2001D,2,C,,Y�,,A;G:�(G�1)=1�=-1
��z�
�!A=&434F4C52:A+=4:�W=q�
�KZ=�J(Z,4*16):q+=16:�(Z�1)=0��z=W�q-1:Z!(z*4)=-1:�Z-=1:ș29,3,C,A-4:=-1
��:Z!(W*4)=A:W+=1
��:=A
���A(�A):�M:�A>0�
��A>C+D�
�
ș30,7,,A
��:�A!-4=&434F4C52�
�^M=0:ȕM<W�Z!(M*4)<>A:M+=1:�:�M=W��&802,"Attempt to release unknown relocatable heap block"
�(A-=4:W-=1:Z!(M*4)=Z!(W*4):Z!(W*4)=-1
��:ș29,3,C,A
�
�:A=-1
��:�
�]ݤJ(A,Y):�a,G,M:M=�:�A!-4<>&434F4C52��&802,"Attempt to extend non-relocatable heap block"
�/�:ș&2001D,4,C,A-4,Y�Fy,,a;G:�(G�1)=1�M=��W
��(G�1)=0�M:�M�
�	a=A-3
��:�A<>Z�
�KM=0:ȕM<W�Z!(M*4)<>A:M+=1:�:�M=W��&802,"Unknown relocatable heap block"
�Z!(M*4)=a+4
��
�
�:=a+4
�.ݤZ(a$)�A%:A%=�A(�(a$)+1):�A%<>-1�$(A%)=a$
�=A%
�(��b:�M%&400:g=-2:G%=-1:V%=-1:Gy=-2:�
���C(My)`%!0=My:�
�ݤU(n$,Fy%)�n%,f%,Zy%:ș&400D9,,Appdir$+".Templates":ș&400DB,,0,,,,n$,0�,,n%:�f%n%:ș&400DB,,v%,f%,f%+n%,-1,n$,0�,,,,,,Zy%:ș&400DA:�Zy%=0��&803,"Template file "+n$+" not found"
�!v%!64=Fy%:ș&400C1,,v%�f%:=f%
�:ݤL�com$,R,p$:ș16�com$:p$="":R=�com$," -quit "):�R>0�
�@p$=�com$,�com$," ",R+�" -quit ")+1):ȕ�p$,1)=" ":p$=�p$,2):�
�	�:=p$
�<ݤH(Var$)�Ey:ș&20023,Var$,M%,&FF,0,3�,,Ey:M%?Ey=&D:=$M%
�>��R:�:��:�F:�4:��0,�$+" at line "+Þ+" in error handler"
�mess$="Internal error : ("+Þ+") "+�$:�("Set Error$ "+mess$):�("Set Error$Task Not known"):M%!0=�:$(M%+4)=mess$+" whilst initialising"+�0:��:Appname$="uninitialised task"
�Ca$=Appname$:��:�F:�4:��0,�$+" at line "+Þ+" in error handler"
�ș&400DF,M%,9,Appname$:�
�I��a�t,mess$,_%:�:��:�F:�4:��0,�$+" at line "+Þ+" in error handler"
�ș6,&7C:�>&7FF��<&803�
�5t=�-&7FF:mess$=�$:�t=3�mess$+=" (Cancel to Quit)"
�*_%=�F(Appname$,mess$,t):�_%=2�t=3�J%=�
�]�:mess$="Internal error : ("+Þ+") "+�$+" Cancel to Quit":_%=�F(Appname$,mess$,3):�_%<>1�
�=J%=�:�("Set Error$ "+mess$):�("Set Error$Task "+Appname$)
�&�:�(-1)��(-2)��(-17)��("Spool"):�
��:�
�yݤF(title$,message$,Sy%)title$=�E(title$):message$=�E(message$):$(M%+4)=message$:!M%=0:ș&400DF,M%,Sy%,title$�,_%:=_%
�8��U:�:��:�=&803��E(infobox%,4,"Old template"):��
���E(infobox%,5,"Program"):�E(infobox%,1,�(�P-�)+" bytes, "+�((�P-�)�&400)+"K"):�E(infobox%,6,"Vars"):�E(infobox%,2,�(�-�)+" bytes, "+�((�-�)�&400)+"K"):�E(infobox%,7,"Free"):�E(infobox%,3,�(�-�)+" bytes, "+�((�-�)�&400)+"K"):�y(f,b)
�`�E(infobox%,8,"Heap"):�E(infobox%,4,�(f-b)+" bytes, "+�((f-b)�&400)+"K of "+�(f�&400)+"K"):�
��ݤN(A$):�l,e,j,I,w,O$,C$,o%,My%,U%,k$,S$:o%=a%:My%=O%:U%=�:l=S%:I=0:A$+="|":�W(�G(A$,C$)):�Z(&70207):e=S%:�Z(&80):�Z(44):�Z(0):z%=0:S$=A$:w=0:�:�U%=��U%=�*2
�K�:O$=�G(A$,C$):z%=z%+1:Q=�R(C$,j,s$,k$)+((-(A$=""))<<7):�U%=�*2�k$<>""�
�=O$+=�I+w-(�(O$)+�(k$))+1," "):�k$,1)="�"��k$,1,1)=�(&8B)

O$+=k$

#�:�k$<>""�U%=�:�w<�(k$)�w=�(k$)
E�:x=&7000021+((-(�(O$)>&B))<<8)+(1<<&E)*(Q�256):�(Q�4)<>0�x=x�256
,�Z(Q�&FF):�Z(j):�(O$)>I�U%<>�*2�I=�(O$)
a�Z(x):�g(O$,s$,(Q�4)):�A$="":�U%=�*2�I+=w+1��U%=��a%=o%:O%=My%:R%+=S%-e-&C:S%=e+&C:z%=0:A$=S$
�U%<>�:!e=I*16+16:=l
)��g(T$,s$,Py)�T$,1)="�"�T$=�(�T$,2))
�(T$)<&C�s$=""�Py=0�

�W(T$)
	�:�Z(�C(T$)):�s$<>""�

6S%!-8=S%!-8�&803:�K(s$),2)="sm"�S%!-8=S%!-8�&800
�Z(�C("S"+s$))
�:�Z(-1)

�:�Z(�(T$)+1)
�:�
KݤG(�A$,�C$):�B$:B$=�A$,�A$,"|")-1):A$=�A$,�(B$)+2):�B$,"]")<1�B$+="]"
1C$=�B$,�B$,"]")+1):B$=�B$,�B$,"]")-1):=�E(B$)
0��W(T$)�(T$)>&B��&803,"Menu entry too long"
C$S%=T$:S%+=&C:R%-=&C:�R%<=4��&803,"Not enough memory for menus"
�
I��Z(W%):!S%=W%:S%+=4:R%-=4:�R%<=4��&803,"Not enough memory for menus"
�
]ݤR(A$,�u,�s$,�k$):�B$,C$,B:u=-1:s$="":k$="":A$=A$+",":ȕA$<>"":B$=�A$,1):A$=�A$,2):ȎB$�
�"T":B=B�1
�"D":B=B�2
�"W":B=B�4
�"M":B=B�8
�"S":B=B�256
.�"K":k$=�A$,�A$,",")-1):A$=�A$,�A$,",")+1)
0�">":u=�(�A$,�A$,",")-1)):A$=�A$,�A$,",")+1)
2�"}":s$=�A$,�A$,",")-1)+" ":A$=�A$,�A$,",")+1)

�:�:=B
 FݤC(a$)�o:o=a%:�(a$)>O%-1��&803,"Not enough room for indirection"
!%$a%=a$:a%+=�(a$)+1:O%-=�(a$)+1:=o
"Q��t:ș&400CF,,E%:N%=D%:g%=E%!0-64:u%=96+44*t%:ș&400D4,,D%,E%!0-64,96+44*t%:�
#��G(S%,r,n):�r=-1�
$ș&400CF,,E%:r=E%!0:n=E%!4
%4�:N%=S%:g%=r-64:u%=n+20:ș&400D4,,S%,r-64,n+20:�
&��Y:ș&400D4,,N%,g%,u%:�
'P��s(J,y,i):J+=y*24+28:�:!J=!J�-2:y+=1:J+=24:�(i<>-1�y>i)�((J!-24)�&80)=&80:�
(!��e(J,Cy,Sy)J+=Cy*24+28:ȎSy�
)�0:!J=!J�-2
*�-1,1:!J=!J�1
+�2:!J=!J�1
,�:�
-]ݤX(S%)�w%,O,b$,c$:w%=S%:O=0:ȕ(E%!O>-1�w%<>g):w%=w%!(32+(E%!O)*24):O+=4:�:�w%=g�E%!O<>0�
.'ș&400A0,,g,E%+O,�&FF,�0),&FF�,,,m$
/��:ș&400D5,,S%,E%,�&FF,�0),&FF�,,,m$:b$="":�:c$=�m$,�m$+".",".")-1):m$=�m$,�(c$)+2):c$=�c$,�c$+" ^"," ^")-1):c$=�c$,�c$+" "+�&8B," "+�&8B)-1):Ȏ�c$,3)�
0b�"Esc","Del","Ins","End","Hom","Cpy","F10","F11","F12","F13","Prt","Tab","Ret":c$=�c$,�(c$)-4)
1?�:�c$,�(c$)-2,2)=" F"���c$)="0"��(�c$))<>0�c$=�c$,�(c$)-3)
2Bȕ�c$)=" ":c$=�c$):�:b$+=c$+".":�m$=""�m$=".":�m$="."�b$+=".."
3m$=�b$)
4	�:=m$
5!��J(I%):!E%=I%:ș&400C6,,E%:�
67��T(I%):!E%=I%:ș&400CB,,E%:E%!28=-1:ș&400C5,,E%:�
7�ݤ_(Spr$,title$,H%)�j%,c%,p%,Ey%:title$=�E(title$):E%!0=-(�(H%)�&FF):E%!4=0:E%!8=-16:E%!&C=&C+16*�(title$):E%!16=88:�E%!&C<&C+16*4�E%!&C=&C+16*4
8�title$<>""�
9cE%!20=(1<<28)+(7<<24)+(3<<&C)+(&B)+(1<<8):E%!24=�C(title$):E%!28=�C("S"+Spr$):E%!32=�(title$)+1
:6�:E%!20=(1<<28)+(7<<24)+(3<<&C)+(26):$(E%+24)=Spr$
;h�:ș&400E9,296,,�Spr$,�Spr$+",",","))�,,,c%,p%:ș&20035,p%,4�,,Ey%:c%=(c%+1)<<Ey%:�c%>E%!&C�E%!&C=c%
<A�(�(H%)�&FF)=3�(�(H%)�&FF)=4�H%=�(H%)>>8�H%=(�(H%)�&FF00)<<16
=ș&400C2,H%,E%�j%:=j%
>GݤM(I%,Y%):E%!0=I%:E%!4=Y%:ș&400CE,,E%:�((E%!24)�256)=0�=�S(E%+28)
?=�S(E%!28)
@���E(I%,Y%,text$)�X%:text$=�E(text$):ș&400D3,,E%:X%=(!E%=I%)�(Y%=E%!4):E%!0=I%:E%!4=Y%:ș&400CE,,E%:�((E%!24)�256)=0��&803,"Icon isn't indirected (#"+�Y%+")"
A�S(E%!28)<>text$�
BL�(text$)<E%!36�$(E%!28)=text$��&803,"Text too long for icon (#"+�Y%+")"
C_!E%=I%:E%!4=Y%:E%!8=0:E%!&C=0:ș&400CD,,E%:�X%�(E%!24�1)=1�ș&400D2,I%,Y%,-1,-1,-1,�(text$)
D�:�
EM��n(U,N,X):�L,P,help$,H,a$,m$,m2$,mh$:H=�:L=-1:�:�P,help$:�P>(1<<16)�P<0�
F	�L=U�
GP=N:help$="":m2$=m$
H�:L=P:m$=help$
I�
J�:�P=N�L=U�
K�N=-1�help$=""�
L�S(�E(m$)+"|M",X)
M0�:m$=�E(m$):�m$,"|M")>0�m$=�m$,�m$,"|M")-1)
N�S(�E(m$)+"|M"+�E(help$),X)
O	�:H=�
P�:�help$="-1"�H=�:�H�
Q6!M%=-1:M%!4=-1:M%!8=-1:ș&400F4,1,M%,U,N:�!M%<>-1�
RkP=E%:E%=M%:mh$=�X(N%):E%=P:m$=mh$:ȕ�m$," ")>0:�m$,�m$," "),1)="_":�:help$=�D("HM"+m$):�help$<>"HM"+m$�
S�S(help$,X)
T6�:�:�m$,P,help$,help$:��(m$)=N%�m$="-2":�m$<>"-2"�
U
�P>-1�
V�S(help$,X):H=�
W'�:�:�L,m$,P,help$:�(m$)=0�m$<>"0"�
X�mh$=m$��S(help$,X):H=�
Y �:�L=M%!0��(m$)=M%!4�P=M%!8�
Z�S(help$,X):H=�
[�
\�:�H=��L=-2�L>&8000
]�
^�
_�
`�
a�:�
b<��S(help$,X)help$=�E(help$):��help$,2)<>"|M"�help$+="|M"
cu�b$,c$:help$=�Q(help$):ȕ�help$,"|M")>0:b$=�help$,�help$,"|M")-1):help$=�help$,�(b$)+3):�"!.?",�b$,1))=0�b$+="."
dhc$+=b$+"|M":�:E%!&C=E%!8:E%!4=X:E%!16=&503:$(E%+20)=c$+�0:E%!0=20+(�(c$)+4)�-4:ș&400E7,17,E%,E%!4:�
e5��c�c,I:�G%<>-1��&803,"Message file already open"
f=ș&41500,,Appdir$+".Messages"�c,,I:�(c�1)=1�V%=0�V%=�A(I)
g<�V%=-1��&803,"No room for secondary MessageTrans buffer"
hKG%=�A(16):�G%=-1��A(V%):�&803,"No room for primary MessageTrans buffer"
i(ș&41501,G%,Appdir$+".Messages",V%:�
j$��F:�:��:�4:�:�" at ";�:By=�:�
k�G%>-1�
lș&61504,G%:�A(G%):�A(V%)
m�:�
n*ݤD(t$)�s1$,s2$,s3$,a$,i%,c:�G%=-1�=t$
oWa$=�t$,�t$+":",":")+1):t$=�t$,�t$+":",":")-1):s1$=�a$,�a$+":",":")-1):�s1$,1)="|"�
ps1$=�a$,2):s2$="":s3$=""
q_�:a$=�a$,�(s1$)+2):s2$=�a$,�a$+":",":")-1):�s2$,1)="|"�s2$=�a$,2):s3$=""�s3$=�a$,�(s2$)+2)
rE�:ș&61502,G%,t$,M%,256,s1$,s2$,s3$�,,,i%;c:�(c�1)=1�=t$�M%?i%=&D
s=�Q($M%)
t%ݤE(a$):�a$,1)=">"�a$=�D(�a$,2))
u=a$
vݤS(s%)�a$:�s%=0�=""
w/ȕ?s%>31��(a$)<&FF:a$=a$+�?s%:s%=s%+1:�:=a$
xJݤK(a$)�c$,b$,R:�R=1��(a$):c$=�a$,R,1):�c$>="A"�c$<="Z"�c$=�(�(c$)+32)
yb$+=c$:�:=b$
zSݤO(f$):ȕ�f$,1)=" "��f$,1)=�9:f$=�f$):�:ȕ�f$,1)=" "��f$,1)=�9:f$=�f$,2):�:=f$
{ݤQ(a$):�b$,d$:�:��:=a$
|[ȕ�a$,"�")>0:b$=�a$,�a$,"�")+1):b$=�b$,�b$,"�")-1):d$=b$:��d$,1)<>"$"�d$="STR$("+d$+")"
}8a$=�a$,�a$,"�")-1)+�(d$)+�a$,�a$,"�")+�(b$)+2):�:=a$
~-ݤV(f$)�r$:�f$,":")>0�f$=�f$,�f$,":")+1)
Ȏ�f$,".")�
��0:r$=f$
�r$=�V(�f$,�(f$)-�f$,".")))
�	�:=r$
�9ݤB(f$):ș&20029,37,f$,M%,,,256�,,f$;Q:�(Q�1)=1�f$=""
�=f$
�!��X(U,N):�f(U,N,�(�M(U,N))):�
�(��f(U,N,Zy):ș&400D2,U,N,0,0,-1,Zy:�
���d:F=0:K=0:E=0:S=0:�
���r(title$):�z:�_(title$):�
�I��z:�r%:ȕF<>0:r%=!F:�A(F):F=r%:�:ȕS<>0:r%=!S:�A(S):S=r%:�:K=0:E=0:�
����_(title$):�T%:T%=�A(8):!T%=S:T%!4=E:S=T%:E=�A(-36)+8:E!-4=28:$E=�title$,&B):E!&C=&70207:E!16=�(�title$,&B))*16+16:E!20=44:E!24=0:�
�ݤT:�y%,T%:�E!-4=28�
�ME=�J(E-8,24)+8:E!28=0:E!32=-1:E!36=&7400021:$(E+40)="None":E!-4=(E!-4)+24
�Y�:E!((E!-4)-24)=E!((E!-4)-24)�&80:E!-8=F:F=E-8:y%=E:E=S!4:T%=!S:�A(S):S=T%:�T%=0�K=y%
�=y%
�CݤP(item$):�d%:d%=�A(�(item$)+5):$(d%+4)=item$:!d%=F:F=d%:=d%+4
����V(item$,sprite$,Ay%):�C%:E=�J(E-8,24)+8:C%=E!-4:E!(C%)=Ay%�&F:E!(C%+4)=-1:E!(C%+8)=&7000121:�(Ay%�16)=16�E!(C%+8)=E!(C%+8)�(1<<22)
�:E!(C%+&C)=�P(item$):E!(C%+20)=�(item$)+1:�sprite$<>""�
�2E!(C%+16)=�P("S"+sprite$):E!(C%+8)=E!(C%+8)�50
��:E!(C%+16)=0
��:�(item$)+1>(E!16)/16�
�E!16=�(item$)*16+16
��:E!-4=(E!-4)+24:�
�EݤY:�P%:P%=�A(16):!P%=E:P%!4=K:P%!8=S:P%!&C=F:F=0:K=0:E=0:S=0:=P%
���H(P%):�P%<>0�
�&E=!P%:K=P%!4:S=P%!8:F=P%!&C:�A(P%)
��:�
�

00000000  0d 00 01 0f f4 3e 21 52  75 6e 49 6d 61 67 65 0d  |.....>!RunImage.|
00000010  00 02 30 f4 50 72 6f 64  75 63 65 64 20 62 79 20  |..0.Produced by |
00000020  42 61 73 43 6f 6d 70 72  65 73 73 20 76 31 2e 37  |BasCompress v1.7|
00000030  31 20 28 31 39 20 53 65  70 20 31 39 39 36 29 0d  |1 (19 Sep 1996).|
00000040  00 03 2e 65 25 3d a3 3a  f2 62 3a f2 77 3a f2 64  |...e%=.:.b:.w:.d|
00000050  3a ee 85 f2 46 3a f2 52  3a e7 65 25 3d b9 8c ff  |:...F:.R:.e%=...|
00000060  28 22 53 70 6f 6f 6c 22  29 3a e0 8b e0 0d 00 04  |("Spool"):......|
00000070  18 e7 65 25 3d b9 8c 2a  53 70 6f 6f 6c 20 53 70  |..e%=..*Spool Sp|
00000080  6f 6f 6c 65 64 0d 00 05  0f e7 65 25 3d b9 8c fc  |ooled.....e%=...|
00000090  ee 3a fc f2 0d 00 06 4a  54 3d a3 3a 41 70 70 6e  |.:.....JT=.:Appn|
000000a0  61 6d 65 24 3d 22 53 69  74 65 45 64 69 74 22 3a  |ame$="SiteEdit":|
000000b0  3a 41 70 70 64 69 72 24  3d a4 48 28 41 70 70 6e  |:Appdir$=.H(Appn|
000000c0  61 6d 65 24 2b 22 24 44  69 72 22 29 3a f2 68 3a  |ame$+"$Dir"):.h:|
000000d0  4a 25 3d a3 3a 68 25 3d  a3 3a ee 85 f2 61 0d 00  |J%=.:h%=.:...a..|
000000e0  07 09 e7 ac 68 25 8c 0d  00 08 19 67 6f 24 3d a4  |....h%.....go$=.|
000000f0  4c 3a 68 25 3d b9 3a e7  67 6f 24 3c 3e 22 22 8c  |L:h%=.:.go$<>"".|
00000100  0d 00 09 3e c8 99 26 32  30 30 34 39 2c 22 73 69  |...>..&20049,"si|
00000110  74 65 2f 41 2c 61 70 70  2c 74 61 73 6b 2f 4b 2c  |te/A,app,task/K,|
00000120  70 6f 72 74 2f 4b 22 2c  67 6f 24 2c 45 25 2c 26  |port/K",go$,E%,&|
00000130  34 30 30 b8 3b 51 3a e7  28 51 80 31 29 8c 0d 00  |400.;Q:.(Q.1)...|
00000140  0a 29 70 3d a4 46 28 22  3e 4d 65 73 73 61 67 65  |.)p=.F(">Message|
00000150  22 2c 22 3e 42 61 64 50  61 72 61 6d 73 22 2c 31  |",">BadParams",1|
00000160  38 29 3a 4a 25 3d b9 0d  00 0b 3f cc 3a 73 69 74  |8):J%=....?.:sit|
00000170  65 66 69 6c 65 24 3d a4  53 28 45 25 21 30 29 3a  |efile$=.S(E%!0):|
00000180  e7 45 25 21 34 3c 3e 30  8c 73 69 74 65 61 70 70  |.E%!4<>0.siteapp|
00000190  24 3d a4 53 28 45 25 21  34 29 8b 73 69 74 65 61  |$=.S(E%!4).sitea|
000001a0  70 70 24 3d 22 22 0d 00  0c 1e e7 45 25 21 38 3c  |pp$="".....E%!8<|
000001b0  3e 30 8c 64 3d a0 28 a4  53 28 45 25 21 38 29 29  |>0.d=.(.S(E%!8))|
000001c0  8b 64 3d 30 0d 00 0d 2e  e7 45 25 21 26 43 3c 3e  |.d=0.....E%!&C<>|
000001d0  30 8c 73 69 74 65 70 6f  72 74 24 3d a4 53 28 45  |0.siteport$=.S(E|
000001e0  25 21 26 43 29 8b 73 69  74 65 70 6f 72 74 24 3d  |%!&C).siteport$=|
000001f0  22 22 0d 00 0e 28 e7 54  8c 6b 3d a4 5f 28 22 21  |""...(.T.k=._("!|
00000200  53 69 74 65 45 64 69 74  22 2c 73 69 74 65 61 70  |SiteEdit",siteap|
00000210  70 24 2c 31 29 8b 6b 3d  2d 31 0d 00 0f 26 e7 73  |p$,1).k=-1...&.s|
00000220  69 74 65 61 70 70 24 3d  22 22 8c 73 69 74 65 61  |iteapp$="".sitea|
00000230  70 70 24 3d 22 73 6f 6d  65 6f 6e 65 2e 2e 2e 22  |pp$="someone..."|
00000240  0d 00 10 81 6c 6f 6e 67  6e 61 6d 65 24 3d 22 53  |....longname$="S|
00000250  69 74 65 73 20 66 6f 72  20 22 2b 73 69 74 65 61  |ites for "+sitea|
00000260  70 70 24 3a f2 45 28 69  6e 66 6f 62 6f 78 25 2c  |pp$:.E(infobox%,|
00000270  32 2c 6c 6f 6e 67 6e 61  6d 65 24 29 3a 21 45 25  |2,longname$):!E%|
00000280  3d 26 46 43 3a 45 25 21  26 43 3d 30 3a 45 25 21  |=&FC:E%!&C=0:E%!|
00000290  31 36 3d 26 39 30 32 38  32 3a 24 28 45 25 2b 32  |16=&90282:$(E%+2|
000002a0  30 29 3d a4 42 28 73 69  74 65 66 69 6c 65 24 29  |0)=.B(sitefile$)|
000002b0  3a c8 99 26 34 30 30 45  37 2c 31 37 2c 45 25 2c  |:..&400E7,17,E%,|
000002c0  30 0d 00 11 05 cd 0d 00  12 2f cc 3a 70 3d a4 46  |0......../.:p=.F|
000002d0  28 22 3e 4d 65 73 73 61  67 65 22 2c 22 3e 4e 65  |(">Message",">Ne|
000002e0  65 64 41 46 69 6c 65 6e  61 6d 65 22 2c 31 38 29  |edAFilename",18)|
000002f0  3a 4a 25 3d b9 0d 00 13  05 cd 0d 00 14 10 cd 3a  |:J%=...........:|
00000300  e7 ac 4a 25 8c f2 6a 3a  f2 50 0d 00 15 28 c8 95  |..J%..j:.P...(..|
00000310  4a 25 3d a3 3a f2 78 3a  ce 3a c8 99 26 34 30 30  |J%=.:.x:.:..&400|
00000320  44 44 3a f2 46 3a e7 65  25 3d b9 8c 2a 53 50 4f  |DD:.F:.e%=..*SPO|
00000330  4f 4c 0d 00 16 05 e0 0d  00 17 2c dd f2 78 3a c8  |OL........,..x:.|
00000340  99 36 36 b8 6b 25 3a c8  99 26 34 30 30 45 31 2c  |.66.k%:..&400E1,|
00000350  31 2c 45 25 2c 6b 25 2b  26 46 b8 6d 25 3a c8 8e  |1,E%,k%+&F.m%:..|
00000360  6d 25 ca 0d 00 18 13 c9  32 3a c8 99 26 34 30 30  |m%......2:..&400|
00000370  43 35 2c 2c 45 25 0d 00  19 2a c9 33 3a c8 99 26  |C5,,E%...*.3:..&|
00000380  34 30 30 43 36 2c 2c 45  25 3a e7 21 45 25 3d 73  |400C6,,E%:.!E%=s|
00000390  65 64 69 74 77 69 6e 25  80 ac 54 8c 4a 25 3d b9  |editwin%..T.J%=.|
000003a0  0d 00 1a 1b c9 36 3a f2  75 28 45 25 21 38 2c 45  |.....6:.u(E%!8,E|
000003b0  25 21 26 43 2c 45 25 21  31 36 29 0d 00 1b 1a c9  |%!&C,E%!16).....|
000003c0  38 3a f2 76 28 45 25 21  30 2c 45 25 21 34 2c 45  |8:.v(E%!0,E%!4,E|
000003d0  25 21 32 34 29 0d 00 1c  09 c9 39 3a f2 44 0d 00  |%!24).....9:.D..|
000003e0  1d 14 c9 31 37 2c 31 38  3a f2 71 28 45 25 21 31  |...17,18:.q(E%!1|
000003f0  36 29 0d 00 1e 11 c9 31  39 3a f2 4c 28 45 25 21  |6).....19:.L(E%!|
00000400  31 36 29 0d 00 1f 07 cb  3a e1 0d 00 20 13 dd f2  |16).....:... ...|
00000410  75 28 56 2c 55 2c 4e 29  3a c8 8e 55 ca 0d 00 21  |u(V,U,N):..U...!|
00000420  0c c9 2d 32 3a c8 8e 56  ca 0d 00 22 09 c9 32 3a  |..-2:..V..."..2:|
00000430  f2 74 0d 00 23 0b c9 31  2c 34 3a f2 50 0d 00 24  |.t..#..1,4:.P..$|
00000440  05 cb 0d 00 25 12 c9 69  6e 66 6f 62 6f 78 25 3a  |....%..infobox%:|
00000450  c8 8e 4e ca 0d 00 26 09  c9 31 3a f2 55 0d 00 27  |..N...&..1:.U..'|
00000460  32 c9 33 3a f2 51 28 22  68 74 74 70 3a 2f 2f 75  |2.3:.Q("http://u|
00000470  73 65 72 73 2e 65 73 73  65 78 2e 61 63 2e 75 6b  |sers.essex.ac.uk|
00000480  2f 75 73 65 72 73 2f 67  65 72 70 68 2f 22 29 0d  |/users/gerph/").|
00000490  00 28 4d c9 34 3a f2 51  28 22 68 74 74 70 3a 2f  |.(M.4:.Q("http:/|
000004a0  2f 75 73 65 72 73 2e 65  73 73 65 78 2e 61 63 2e  |/users.essex.ac.|
000004b0  75 6b 2f 75 73 65 72 73  2f 67 65 72 70 68 2f 61  |uk/users/gerph/a|
000004c0  63 6f 72 6e 2f 69 6e 74  65 72 6e 65 74 2e 68 74  |corn/internet.ht|
000004d0  6d 6c 23 6e 65 74 67 61  6d 65 22 29 0d 00 29 05  |ml#netgame")..).|
000004e0  cb 0d 00 2a 14 c9 73 65  64 69 74 77 69 6e 25 3a  |...*..seditwin%:|
000004f0  e7 56 3d 32 8c 0d 00 2b  14 e7 ac 54 8c f2 47 28  |.V=2...+...T..G(|
00000500  44 25 2c 2d 31 2c 2d 31  29 0d 00 2c 0a cc 3a c8  |D%,-1,-1)..,..:.|
00000510  8e 4e ca 0d 00 2d 17 c9  32 3a 46 25 2b 3d 31 2b  |.N...-..2:F%+=1+|
00000520  28 56 3d 31 29 2a 32 3a  f2 4d 0d 00 2e 17 c9 33  |(V=1)*2:.M.....3|
00000530  3a 46 25 2d 3d 31 2b 28  56 3d 31 29 2a 32 3a f2  |:F%-=1+(V=1)*2:.|
00000540  4d 0d 00 2f 31 c9 39 3a  c8 99 26 34 36 34 34 33  |M../1.9:..&46443|
00000550  2c a4 4d 28 73 65 64 69  74 77 69 6e 25 2c 37 29  |,.M(seditwin%,7)|
00000560  2c 22 74 63 70 22 b8 4b  25 3a e7 4b 25 3d 30 8c  |,"tcp".K%:.K%=0.|
00000570  ef 37 0d 00 30 10 f2 47  28 4b 25 2c 2d 31 2c 2d  |.7..0..G(K%,-1,-|
00000580  31 29 0d 00 31 1d c9 26  41 3a f2 4e 3a e7 56 3d  |1)..1..&A:.N:.V=|
00000590  34 8c f2 4a 28 73 65 64  69 74 77 69 6e 25 29 0d  |4..J(seditwin%).|
000005a0  00 32 1d c9 26 42 3a f2  4f 3a e7 56 3d 34 8c f2  |.2..&B:.O:.V=4..|
000005b0  4a 28 73 65 64 69 74 77  69 6e 25 29 0d 00 33 05  |J(seditwin%)..3.|
000005c0  cb 0d 00 34 05 cd 0d 00  35 07 cb 3a e1 0d 00 36  |...4....5..:...6|
000005d0  15 dd f2 4e 3a ea 41 25  2c 51 25 3a e7 46 25 3e  |...N:.A%,Q%:.F%>|
000005e0  30 8c 0d 00 37 24 51 25  3d 46 25 3a 41 25 3d 5a  |0...7$Q%=F%:A%=Z|
000005f0  25 3a c8 95 41 25 3c 3e  30 3a 51 25 2d 3d 31 3a  |%:..A%<>0:Q%-=1:|
00000600  e7 51 25 3d 30 8c 0d 00  38 6b f2 41 28 41 25 21  |.Q%=0...8k.A(A%!|
00000610  34 29 3a f2 41 28 41 25  21 38 29 3a f2 41 28 41  |4):.A(A%!8):.A(A|
00000620  25 21 26 43 29 3a 41 25  21 34 3d a4 5a 28 a4 4d  |%!&C):A%!4=.Z(.M|
00000630  28 73 65 64 69 74 77 69  6e 25 2c 31 29 29 3a 41  |(seditwin%,1)):A|
00000640  25 21 38 3d a4 5a 28 a4  4d 28 73 65 64 69 74 77  |%!8=.Z(.M(seditw|
00000650  69 6e 25 2c 36 29 29 3a  41 25 21 26 43 3d a4 5a  |in%,6)):A%!&C=.Z|
00000660  28 a4 4d 28 73 65 64 69  74 77 69 6e 25 2c 37 29  |(.M(seditwin%,7)|
00000670  29 0d 00 39 0e cd 3a 41  25 3d 21 41 25 3a ce 0d  |)..9..:A%=!A%:..|
00000680  00 3a 6d cc 3a 41 25 3d  a4 41 28 31 36 29 3a 21  |.:m.:A%=.A(16):!|
00000690  41 25 3d 5a 25 3a 5a 25  3d 41 25 3a 41 25 21 34  |A%=Z%:Z%=A%:A%!4|
000006a0  3d a4 5a 28 a4 4d 28 73  65 64 69 74 77 69 6e 25  |=.Z(.M(seditwin%|
000006b0  2c 31 29 29 3a 41 25 21  38 3d a4 5a 28 a4 4d 28  |,1)):A%!8=.Z(.M(|
000006c0  73 65 64 69 74 77 69 6e  25 2c 36 29 29 3a 41 25  |seditwin%,6)):A%|
000006d0  21 26 43 3d a4 5a 28 a4  4d 28 73 65 64 69 74 77  |!&C=.Z(.M(seditw|
000006e0  69 6e 25 2c 37 29 29 3a  46 25 3d 31 0d 00 3b 0d  |in%,7)):F%=1..;.|
000006f0  cd 3a f2 42 3a f2 4d 3a  e1 0d 00 3c 1b dd f2 4f  |.:.B:.M:...<...O|
00000700  3a ea 78 25 2c 41 25 2c  51 25 2c 42 25 3a e7 46  |:.x%,A%,Q%,B%:.F|
00000710  25 3e 30 8c 0d 00 3d 30  78 25 3d 30 3a 41 25 3d  |%>0...=0x%=0:A%=|
00000720  5a 25 3a 51 25 3d 46 25  3a c8 95 41 25 3c 3e 30  |Z%:Q%=F%:..A%<>0|
00000730  3a 42 25 3d 21 41 25 3a  51 25 2d 3d 31 3a e7 51  |:B%=!A%:Q%-=1:.Q|
00000740  25 3d 30 8c 0d 00 3e 3a  f2 41 28 41 25 21 34 29  |%=0...>:.A(A%!4)|
00000750  3a f2 41 28 41 25 21 38  29 3a f2 41 28 41 25 21  |:.A(A%!8):.A(A%!|
00000760  26 43 29 3a f2 41 28 41  25 29 3a e7 78 25 3c 3e  |&C):.A(A%):.x%<>|
00000770  30 8c 21 78 25 3d 42 25  8b 5a 25 3d 42 25 0d 00  |0.!x%=B%.Z%=B%..|
00000780  3f 09 41 25 3d 78 25 0d  00 40 13 cd 3a 78 25 3d  |?.A%=x%..@..:x%=|
00000790  41 25 3a 41 25 3d 42 25  3a ce 0d 00 41 0d cd 3a  |A%:A%=B%:...A..:|
000007a0  f2 42 3a f2 4d 3a e1 0d  00 42 59 dd a4 49 3a ea  |.B:.M:...BY..I:.|
000007b0  53 25 2c 41 25 3a f2 48  28 62 25 29 3a f2 72 28  |S%,A%:.H(b%):.r(|
000007c0  22 53 69 74 65 73 22 29  3a 41 25 3d 5a 25 3a c8  |"Sites"):A%=Z%:.|
000007d0  95 41 25 3c 3e 30 3a f2  56 28 24 28 41 25 21 34  |.A%<>0:.V($(A%!4|
000007e0  29 2c 22 22 2c 30 29 3a  41 25 3d 21 41 25 3a ce  |),"",0):A%=!A%:.|
000007f0  3a 53 25 3d a4 54 3a 62  25 3d a4 59 3a 3d 53 25  |:S%=.T:b%=.Y:=S%|
00000800  0d 00 43 69 dd f2 4b 3a  ea 58 25 2c 42 25 2c 61  |..Ci..K:.X%,B%,a|
00000810  24 2c 62 24 2c 41 25 3a  c8 95 5a 25 3c 3e 30 3a  |$,b$,A%:..Z%<>0:|
00000820  42 25 3d 21 5a 25 3a f2  41 28 5a 25 21 34 29 3a  |B%=!Z%:.A(Z%!4):|
00000830  f2 41 28 5a 25 21 38 29  3a f2 41 28 5a 25 21 26  |.A(Z%!8):.A(Z%!&|
00000840  43 29 3a f2 41 28 5a 25  29 3a 5a 25 3d 42 25 3a  |C):.A(Z%):Z%=B%:|
00000850  ce 3a 58 25 3d 8e 28 73  69 74 65 66 69 6c 65 24  |.:X%=.(sitefile$|
00000860  29 3a e7 58 25 3c 3e 30  8c 0d 00 44 27 c8 95 ac  |):.X%<>0...D'...|
00000870  c5 23 58 25 3a 61 24 3d  be 23 58 25 3a e7 c0 61  |.#X%:a$=.#X%:..a|
00000880  24 2c 31 29 3c 3e 22 23  22 80 ac c5 23 58 25 8c  |$,1)<>"#"...#X%.|
00000890  0d 00 45 6d 62 24 3d be  23 58 25 3a 41 25 3d a4  |..Emb$=.#X%:A%=.|
000008a0  41 28 31 36 29 3a 21 41  25 3d 5a 25 3a 5a 25 3d  |A(16):!A%=Z%:Z%=|
000008b0  41 25 3a 41 25 21 34 3d  a4 5a 28 61 24 29 3a 41  |A%:A%!4=.Z(a$):A|
000008c0  25 21 38 3d a4 5a 28 c0  62 24 2c a7 62 24 2b 22  |%!8=.Z(.b$,.b$+"|
000008d0  20 22 2c 22 20 22 29 2d  31 29 29 3a 41 25 21 26  | "," ")-1)):A%!&|
000008e0  43 3d a4 5a 28 a4 4f 28  c1 62 24 2c a7 62 24 2b  |C=.Z(.O(.b$,.b$+|
000008f0  22 20 22 2c 22 20 22 29  2b 31 29 29 29 0d 00 46  |" "," ")+1)))..F|
00000900  0c cd 3a ce 3a d9 23 58  25 0d 00 47 07 cd 3a e1  |..:.:.#X%..G..:.|
00000910  0d 00 48 e5 dd f2 42 3a  ea 41 25 2c 42 25 3a 41  |..H...B:.A%,B%:A|
00000920  25 3d 5a 25 3a 5a 25 3d  30 3a c8 95 41 25 3c 3e  |%=Z%:Z%=0:..A%<>|
00000930  30 3a 42 25 3d 21 41 25  3a 21 41 25 3d 5a 25 3a  |0:B%=!A%:!A%=Z%:|
00000940  5a 25 3d 41 25 3a 41 25  3d 42 25 3a ce 3a 4c 25  |Z%=A%:A%=B%:.:L%|
00000950  3d ae 28 73 69 74 65 66  69 6c 65 24 29 3a 41 25  |=.(sitefile$):A%|
00000960  3d 5a 25 3a d5 23 4c 25  2c 22 23 20 53 69 74 65  |=Z%:.#L%,"# Site|
00000970  73 20 6c 69 73 74 2c 20  67 65 6e 65 72 61 74 65  |s list, generate|
00000980  64 20 62 79 20 53 69 74  65 45 64 69 74 20 66 6f  |d by SiteEdit fo|
00000990  72 20 22 2b 73 69 74 65  61 70 70 24 3a d5 23 4c  |r "+siteapp$:.#L|
000009a0  25 2c 22 23 20 46 6f 72  6d 61 74 20 31 20 3a 22  |%,"# Format 1 :"|
000009b0  3a d5 23 4c 25 2c 22 23  20 3c 73 69 74 65 20 6e  |:.#L%,"# <site n|
000009c0  61 6d 65 3e 22 3a d5 23  4c 25 2c 22 23 20 3c 68  |ame>":.#L%,"# <h|
000009d0  6f 73 74 6e 61 6d 65 3e  20 3c 70 6f 72 74 3e 22  |ostname> <port>"|
000009e0  3a c8 95 41 25 3c 3e 30  3a d5 23 4c 25 2c 24 28  |:..A%<>0:.#L%,$(|
000009f0  41 25 21 34 29 0d 00 49  48 d5 23 4c 25 2c 24 28  |A%!4)..IH.#L%,$(|
00000a00  41 25 21 38 29 2b 22 20  22 2b 24 28 41 25 21 26  |A%!8)+" "+$(A%!&|
00000a10  43 29 3a 41 25 3d 21 41  25 3a ce 3a d9 23 4c 25  |C):A%=!A%:.:.#L%|
00000a20  3a c8 99 38 2c 31 38 2c  73 69 74 65 66 69 6c 65  |:..8,18,sitefile|
00000a30  24 2c 26 46 46 46 3a e7  64 3c 3e 30 8c 0d 00 4a  |$,&FFF:.d<>0...J|
00000a40  30 21 45 25 3d 32 30 3a  45 25 21 26 43 3d 30 3a  |0!E%=20:E%!&C=0:|
00000a50  45 25 21 31 36 3d 26 39  30 32 38 31 3a c8 99 26  |E%!16=&90281:..&|
00000a60  34 30 30 45 37 2c 31 37  2c 45 25 2c 64 0d 00 4b  |400E7,17,E%,d..K|
00000a70  36 cd 3a 41 25 3d 5a 25  3a 5a 25 3d 30 3a c8 95  |6.:A%=Z%:Z%=0:..|
00000a80  41 25 3c 3e 30 3a 42 25  3d 21 41 25 3a 21 41 25  |A%<>0:B%=!A%:!A%|
00000a90  3d 5a 25 3a 5a 25 3d 41  25 3a 41 25 3d 42 25 3a  |=Z%:Z%=A%:A%=B%:|
00000aa0  ce 3a e1 0d 00 4c 1b dd  f2 76 28 55 2c 4e 2c 41  |.:...L...v(U,N,A|
00000ab0  79 29 3a ea 5f 3a 5f 3d  a3 3a c8 8e 55 ca 0d 00  |y):._:_=.:..U...|
00000ac0  4d 14 c9 73 65 64 69 74  77 69 6e 25 3a c8 8e 41  |M..seditwin%:..A|
00000ad0  79 ca 0d 00 4e 1d c9 34  31 34 3a 46 25 2d 3d 31  |y...N..414:F%-=1|
00000ae0  2b 28 56 3d 31 29 2a 32  3a f2 4d 3a 5f 3d b9 0d  |+(V=1)*2:.M:_=..|
00000af0  00 4f 1d c9 34 31 35 3a  46 25 2b 3d 31 2b 28 56  |.O..415:F%+=1+(V|
00000b00  3d 31 29 2a 32 3a f2 4d  3a 5f 3d b9 0d 00 50 22  |=1)*2:.M:_=...P"|
00000b10  c9 26 41 2c 26 44 3a f2  4e 3a e7 54 8c f2 4a 28  |.&A,&D:.N:.T..J(|
00000b20  73 65 64 69 74 77 69 6e  25 29 3a 5f 3d b9 0d 00  |seditwin%):_=...|
00000b30  51 21 c9 32 37 3a e7 54  8c f2 4a 28 73 65 64 69  |Q!.27:.T..J(sedi|
00000b40  74 77 69 6e 25 29 3a 5f  3d a3 8b 4a 25 3d b9 0d  |twin%):_=..J%=..|
00000b50  00 52 05 cb 0d 00 53 15  cb 3a e7 ac 5f 8c c8 99  |.R....S..:.._...|
00000b60  26 34 30 30 44 43 2c 41  79 0d 00 54 05 e1 0d 00  |&400DC,Ay..T....|
00000b70  55 2c dd f2 44 3a c8 99  26 34 30 30 43 46 2c 2c  |U,..D:..&400CF,,|
00000b80  4d 25 3a 6c 25 3d 4d 25  21 38 3a 6d 24 3d a4 58  |M%:l%=M%!8:m$=.X|
00000b90  28 4e 25 29 3a c8 8e 4e  25 ca 0d 00 56 07 c9 71  |(N%):..N%...V..q|
00000ba0  25 0d 00 57 34 c9 4b 25  3a f2 73 28 4b 25 2c 30  |%..W4.K%:.s(K%,0|
00000bb0  2c 2d 31 29 3a f2 65 28  4b 25 2c 45 25 21 30 2c  |,-1):.e(K%,E%!0,|
00000bc0  31 29 3a f2 45 28 73 65  64 69 74 77 69 6e 25 2c  |1):.E(seditwin%,|
00000bd0  37 2c 6d 24 29 0d 00 58  0d c9 44 25 3a c8 8e 6d  |7,m$)..X..D%:..m|
00000be0  24 ca 0d 00 59 12 c9 22  53 69 74 65 73 2e 2e 2e  |$...Y.."Sites...|
00000bf0  22 3a f2 50 0d 00 5a 10  c9 22 51 75 69 74 22 3a  |":.P..Z.."Quit":|
00000c00  4a 25 3d b9 0d 00 5b 05  cb 0d 00 5c 18 cb 3a e7  |J%=...[....\..:.|
00000c10  28 6c 25 80 31 29 3d 31  8c f2 59 8b 4e 25 3d 2d  |(l%.1)=1..Y.N%=-|
00000c20  31 0d 00 5d 05 e1 0d 00  5e 0f dd f2 71 28 6d 29  |1..]....^...q(m)|
00000c30  3a c8 8e 6d ca 0d 00 5f  11 c9 26 34 30 30 43 30  |:..m..._..&400C0|
00000c40  3a c8 8e 4e 25 ca 0d 00  60 3a c9 44 25 3a 71 25  |:..N%...`:.D%:q%|
00000c50  3d a4 49 3a 44 25 21 28  33 32 2b 32 34 2a 45 25  |=.I:D%!(32+24*E%|
00000c60  21 33 32 29 3d 71 25 3a  c8 99 26 34 30 30 45 38  |!32)=q%:..&400E8|
00000c70  2c 2c 71 25 2c 45 25 21  32 34 2c 45 25 21 32 38  |,,q%,E%!24,E%!28|
00000c80  0d 00 61 05 cb 0d 00 62  0d c9 30 3a 4a 25 3d b9  |..a....b..0:J%=.|
00000c90  2a 32 0d 00 63 30 c9 26  39 30 32 38 32 3a e7 a4  |*2..c0.&90282:..|
00000ca0  42 28 73 69 74 65 66 69  6c 65 24 29 3d 24 28 45  |B(sitefile$)=$(E|
00000cb0  25 2b 32 30 29 80 45 25  21 34 3c 3e 60 8c 4a 25  |%+20).E%!4<>`.J%|
00000cc0  3d b9 0d 00 64 1e c9 26  35 30 32 3a f2 49 28 45  |=...d..&502:.I(E|
00000cd0  25 21 33 32 2c 45 25 21  33 36 2c 45 25 21 34 29  |%!32,E%!36,E%!4)|
00000ce0  0d 00 65 07 cb 3a e1 0d  00 66 0f dd f2 4c 28 6d  |..e..:...f...L(m|
00000cf0  29 3a c8 8e 6d ca 0d 00  67 07 cb 3a e1 0d 00 68  |):..m...g..:...h|
00000d00  55 dd f2 4d 3a ea 41 25  2c 51 25 3a 41 25 3d 30  |U..M:.A%,Q%:A%=0|
00000d10  3a c8 95 41 25 3d 30 80  46 25 3e 30 3a 41 25 3d  |:..A%=0.F%>0:A%=|
00000d20  5a 25 3a 51 25 3d 46 25  2d 31 3a c8 95 41 25 3c  |Z%:Q%=F%-1:..A%<|
00000d30  3e 30 80 51 25 3e 30 3a  41 25 3d 21 41 25 3a 51  |>0.Q%>0:A%=!A%:Q|
00000d40  25 2d 3d 31 3a ce 3a e7  41 25 3d 30 8c 46 25 2d  |%-=1:.:.A%=0.F%-|
00000d50  3d 31 0d 00 69 0c ce 3a  e7 46 25 3c 31 8c 0d 00  |=1..i..:.F%<1...|
00000d60  6a 60 f2 45 28 73 65 64  69 74 77 69 6e 25 2c 34  |j`.E(seditwin%,4|
00000d70  2c 22 28 4e 65 77 29 22  29 3a f2 45 28 73 65 64  |,"(New)"):.E(sed|
00000d80  69 74 77 69 6e 25 2c 31  2c 22 22 29 3a f2 45 28  |itwin%,1,""):.E(|
00000d90  73 65 64 69 74 77 69 6e  25 2c 36 2c 22 22 29 3a  |seditwin%,6,""):|
00000da0  f2 45 28 73 65 64 69 74  77 69 6e 25 2c 37 2c 73  |.E(seditwin%,7,s|
00000db0  69 74 65 70 6f 72 74 24  29 3a 46 25 3d 30 0d 00  |iteport$):F%=0..|
00000dc0  6b 6a cc 3a f2 45 28 73  65 64 69 74 77 69 6e 25  |kj.:.E(seditwin%|
00000dd0  2c 34 2c 22 28 22 2b c3  46 25 2b 22 29 22 29 3a  |,4,"("+.F%+")"):|
00000de0  f2 45 28 73 65 64 69 74  77 69 6e 25 2c 31 2c 24  |.E(seditwin%,1,$|
00000df0  28 41 25 21 34 29 29 3a  f2 45 28 73 65 64 69 74  |(A%!4)):.E(sedit|
00000e00  77 69 6e 25 2c 36 2c 24  28 41 25 21 38 29 29 3a  |win%,6,$(A%!8)):|
00000e10  f2 45 28 73 65 64 69 74  77 69 6e 25 2c 37 2c 24  |.E(seditwin%,7,$|
00000e20  28 41 25 21 26 43 29 29  0d 00 6c 07 cd 3a e1 0d  |(A%!&C))..l..:..|
00000e30  00 6d fb dd f2 68 3a de  60 25 32 35 36 3a 3a f2  |.m...h:.`%256::.|
00000e40  43 28 26 35 30 32 29 3a  f2 43 28 26 39 30 32 38  |C(&502):.C(&9028|
00000e50  32 29 3a f2 43 28 26 34  30 30 43 30 29 3a f2 43  |2):.C(&400C0):.C|
00000e60  28 30 29 3a c8 99 26 34  30 30 43 30 2c 33 31 30  |(0):..&400C0,310|
00000e70  2c 26 34 42 35 33 34 31  35 34 2c 41 70 70 6e 61  |,&4B534154,Appna|
00000e80  6d 65 24 2c 60 25 b8 4a  79 2c 60 3a 4f 25 3d 26  |me$,`%.Jy,`:O%=&|
00000e90  34 30 30 3a 52 25 3d 26  34 30 30 3a de 45 25 26  |400:R%=&400:.E%&|
00000ea0  38 30 30 2c 61 25 4f 25  2c 53 25 52 25 2c 76 25  |800,a%O%,S%R%,v%|
00000eb0  26 38 30 30 3a 4e 25 3d  2d 31 3a f2 63 3a 69 6e  |&800:N%=-1:.c:in|
00000ec0  66 6f 62 6f 78 25 3d a4  55 28 22 49 6e 66 6f 22  |fobox%=.U("Info"|
00000ed0  2c 31 29 3a 73 65 64 69  74 77 69 6e 25 3d a4 55  |,1):seditwin%=.U|
00000ee0  28 22 45 64 69 74 53 69  74 65 22 2c 31 29 3a f2  |("EditSite",1):.|
00000ef0  45 28 69 6e 66 6f 62 6f  78 25 2c 31 2c 41 70 70  |E(infobox%,1,App|
00000f00  6e 61 6d 65 24 29 3a f2  45 28 69 6e 66 6f 62 6f  |name$):.E(infobo|
00000f10  78 25 2c 34 2c 22 31 2e  30 30 20 28 31 37 20 4a  |x%,4,"1.00 (17 J|
00000f20  75 6e 20 31 39 39 37 29  22 29 0d 00 6e 7b e7 54  |un 1997)")..n{.T|
00000f30  8c 44 25 3d a4 4e 28 41  70 70 6e 61 6d 65 24 2b  |.D%=.N(Appname$+|
00000f40  22 7c 49 6e 66 6f 5d 3e  69 6e 66 6f 62 6f 78 25  |"|Info]>infobox%|
00000f50  7c 53 69 74 65 73 2e 2e  2e 7c 54 65 73 74 20 73  ||Sites...|Test s|
00000f60  69 74 65 73 5d 4d 3e 31  7c 51 75 69 74 22 29 8b  |ites]M>1|Quit").|
00000f70  44 25 3d a4 4e 28 41 70  70 6e 61 6d 65 24 2b 22  |D%=.N(Appname$+"|
00000f80  7c 49 6e 66 6f 5d 3e 69  6e 66 6f 62 6f 78 25 7c  ||Info]>infobox%||
00000f90  54 65 73 74 20 73 69 74  65 73 5d 4d 3e 31 7c 51  |Test sites]M>1|Q|
00000fa0  75 69 74 22 29 0d 00 6f  0b 74 25 3d 7a 25 3a e1  |uit")..o.t%=z%:.|
00000fb0  0d 00 70 26 dd f2 6a 3a  46 25 3d 31 3a 5a 25 3d  |..p&..j:F%=1:Z%=|
00000fc0  30 3a 71 25 3d 30 3a 62  25 3d 30 3a 4b 25 3d 2d  |0:q%=0:b%=0:K%=-|
00000fd0  31 3a f2 4b 3a e1 0d 00  71 1e dd f2 49 28 55 2c  |1:.K:...q...I(U,|
00000fe0  4e 2c 58 29 3a f7 2b 31  3a f2 6e 28 55 2c 4e 2c  |N,X):.+1:.n(U,N,|
00000ff0  58 29 3a e1 0d 00 72 1a  dc 20 69 6e 66 6f 62 6f  |X):...r.. infobo|
00001000  78 25 2c 22 3e 48 49 6e  66 6f 62 6f 78 22 0d 00  |x%,">HInfobox"..|
00001010  73 14 dc 20 33 2c 22 3e  48 49 6e 66 6f 62 6f 78  |s.. 3,">HInfobox|
00001020  33 22 0d 00 74 14 dc 20  34 2c 22 3e 48 49 6e 66  |3"..t.. 4,">HInf|
00001030  6f 62 6f 78 34 22 0d 00  75 14 dc 20 2d 32 2c 22  |obox4"..u.. -2,"|
00001040  3e 48 49 63 6f 6e 62 61  72 22 0d 00 76 19 dc 20  |>HIconbar"..v.. |
00001050  73 65 64 69 74 77 69 6e  25 2c 22 3e 48 53 45 64  |seditwin%,">HSEd|
00001060  69 74 22 0d 00 77 15 dc  20 31 2c 22 3e 48 53 45  |it"..w.. 1,">HSE|
00001070  64 69 74 4e 61 6d 65 22  0d 00 78 13 dc 20 32 2c  |ditName"..x.. 2,|
00001080  22 3e 48 53 45 64 69 74  55 70 22 0d 00 79 15 dc  |">HSEditUp"..y..|
00001090  20 33 2c 22 3e 48 53 45  64 69 74 44 6f 77 6e 22  | 3,">HSEditDown"|
000010a0  0d 00 7a 14 dc 20 34 2c  22 3e 48 53 45 64 69 74  |..z.. 4,">HSEdit|
000010b0  4e 75 6d 22 0d 00 7b 15  dc 20 36 2c 22 3e 48 53  |Num"..{.. 6,">HS|
000010c0  45 64 69 74 48 6f 73 74  22 0d 00 7c 15 dc 20 37  |EditHost"..|.. 7|
000010d0  2c 22 3e 48 53 45 64 69  74 50 6f 72 74 22 0d 00  |,">HSEditPort"..|
000010e0  7d 14 dc 20 39 2c 22 3e  48 50 6f 72 74 4d 65 6e  |}.. 9,">HPortMen|
000010f0  75 22 0d 00 7e 18 dc 20  31 30 2c 22 3e 48 53 45  |u"..~.. 10,">HSE|
00001100  64 69 74 55 70 64 61 74  65 22 0d 00 7f 18 dc 20  |ditUpdate"..... |
00001110  31 31 2c 22 3e 48 53 45  64 69 74 44 65 6c 65 74  |11,">HSEditDelet|
00001120  65 22 0d 00 80 0b dc 20  2d 31 2c 2d 31 0d 00 81  |e"..... -1,-1...|
00001130  11 dc 20 2d 32 2c 2d 32  2c 2d 32 2c 2d 32 0d 00  |.. -2,-2,-2,-2..|
00001140  82 1e dd f2 51 28 66 24  29 3a c8 99 26 36 45 33  |....Q(f$):..&6E3|
00001150  38 31 2c 30 2c 66 24 2b  bd 30 3a e1 0d 00 83 2a  |81,0,f$+.0:....*|
00001160  dd f2 50 3a f2 4d 3a f2  54 28 73 65 64 69 74 77  |..P:.M:.T(seditw|
00001170  69 6e 25 29 3a f2 58 28  73 65 64 69 74 77 69 6e  |in%):.X(seditwin|
00001180  25 2c 31 29 3a e1 0d 0e  c5 8b dd f2 77 3a c8 99  |%,1):.......w:..|
00001190  38 31 b8 73 3a 44 3d 73  3a 43 3d 93 3a 71 3d 32  |81.s:D=s:C=.:q=2|
000011a0  3a 57 3d 30 3a c8 99 26  34 30 30 45 43 2c 2d 31  |:W=0:..&400EC,-1|
000011b0  2c 2d 31 b8 76 3a c8 99  26 34 30 30 45 43 2c 76  |,-1.v:..&400EC,v|
000011c0  2b 44 2c 2d 31 3a c8 99  32 39 2c 30 2c 43 2c 2c  |+D,-1:..29,0,C,,|
000011d0  44 3a c8 99 32 39 2c 32  2c 43 2c 2c 34 2a 71 2b  |D:..29,2,C,,4*q+|
000011e0  34 b8 2c 2c 5a 3a 5a 2b  3d 34 3a 5a 21 2d 34 3d  |4.,,Z:Z+=4:Z!-4=|
000011f0  26 34 33 34 46 34 43 35  32 3a e3 52 3d 30 b8 71  |&434F4C52:.R=0.q|
00001200  2a 34 2d 34 88 34 3a 5a  21 52 3d 2d 31 3a ed 3a  |*4-4.4:Z!R=-1:.:|
00001210  e1 0d 0e c6 26 dd f2 79  28 f8 57 79 2c f8 4e 79  |....&..y(.Wy,.Ny|
00001220  29 3a c8 99 32 39 2c 31  2c 43 b8 2c 2c 2c 4e 79  |):..29,1,C.,,,Ny|
00001230  3a 57 79 3d 44 3a e1 0d  0e c7 34 dd a4 57 3a ea  |:Wy=D:....4..W:.|
00001240  47 2c 61 3a c8 99 26 36  30 30 45 43 2c 76 2b 44  |G,a:..&600EC,v+D|
00001250  2b 73 2c 2d 31 b8 61 3b  47 3a e7 28 47 80 31 29  |+s,-1.a;G:.(G.1)|
00001260  3d 31 84 61 3d 76 2b 44  8c 3d a3 0d 0e c8 17 44  |=1.a=v+D.=.....D|
00001270  2b 3d 73 3a c8 99 32 39  2c 35 2c 43 2c 2c 73 3a  |+=s:..29,5,C,,s:|
00001280  3d b9 0d 0e c9 2d dd a4  41 28 59 29 3a ea 41 2c  |=....-..A(Y):.A,|
00001290  68 2c 47 2c 7a 3a 47 3d  b9 3a e7 59 3c 30 8c 7a  |h,G,z:G=.:.Y<0.z|
000012a0  3d b9 3a 59 3d 94 28 59  29 2b 34 8b 7a 3d a3 0d  |=.:Y=.(Y)+4.z=..|
000012b0  0e ca 34 c8 99 32 39 2c  31 2c 43 b8 2c 2c 68 3a  |..4..29,1,C.,,h:|
000012c0  c8 95 59 3e 68 80 47 3a  47 3d a4 57 3a c8 99 32  |..Y>h.G:G=.W:..2|
000012d0  39 2c 31 2c 43 b8 2c 2c  68 3a ce 3a e7 ac 47 8c  |9,1,C.,,h:.:..G.|
000012e0  3d 2d 31 0d 0e cb 26 c8  99 26 32 30 30 31 44 2c  |=-1...&..&2001D,|
000012f0  32 2c 43 2c 2c 59 b8 2c  2c 41 3b 47 3a e7 28 47  |2,C,,Y.,,A;G:.(G|
00001300  80 31 29 3d 31 8c 3d 2d  31 0d 0e cc 07 e7 7a 8c  |.1)=1.=-1.....z.|
00001310  0d 0e cd 1b 21 41 3d 26  34 33 34 46 34 43 35 32  |....!A=&434F4C52|
00001320  3a 41 2b 3d 34 3a e7 57  3d 71 8c 0d 0e ce 4b 5a  |:A+=4:.W=q....KZ|
00001330  3d a4 4a 28 5a 2c 34 2a  31 36 29 3a 71 2b 3d 31  |=.J(Z,4*16):q+=1|
00001340  36 3a e7 28 5a 80 31 29  3d 30 8c e3 7a 3d 57 b8  |6:.(Z.1)=0..z=W.|
00001350  71 2d 31 3a 5a 21 28 7a  2a 34 29 3d 2d 31 3a ed  |q-1:Z!(z*4)=-1:.|
00001360  8b 5a 2d 3d 31 3a c8 99  32 39 2c 33 2c 43 2c 41  |.Z-=1:..29,3,C,A|
00001370  2d 34 3a 3d 2d 31 0d 0e  cf 14 cd 3a 5a 21 28 57  |-4:=-1.....:Z!(W|
00001380  2a 34 29 3d 41 3a 57 2b  3d 31 0d 0e d0 08 cd 3a  |*4)=A:W+=1.....:|
00001390  3d 41 0d 0e d1 14 dd f2  41 28 f8 41 29 3a ea 4d  |=A......A(.A):.M|
000013a0  3a e7 41 3e 30 8c 0d 0e  d2 0b e7 41 3e 43 2b 44  |:.A>0......A>C+D|
000013b0  8c 0d 0e d3 0d c8 99 33  30 2c 37 2c 2c 41 0d 0e  |.......30,7,,A..|
000013c0  d4 16 cc 3a e7 41 21 2d  34 3d 26 34 33 34 46 34  |...:.A!-4=&434F4|
000013d0  43 35 32 8c 0d 0e d5 5e  4d 3d 30 3a c8 95 4d 3c  |C52....^M=0:..M<|
000013e0  57 80 5a 21 28 4d 2a 34  29 3c 3e 41 3a 4d 2b 3d  |W.Z!(M*4)<>A:M+=|
000013f0  31 3a ce 3a e7 4d 3d 57  8c 85 26 38 30 32 2c 22  |1:.:.M=W..&802,"|
00001400  41 74 74 65 6d 70 74 20  74 6f 20 72 65 6c 65 61  |Attempt to relea|
00001410  73 65 20 75 6e 6b 6e 6f  77 6e 20 72 65 6c 6f 63  |se unknown reloc|
00001420  61 74 61 62 6c 65 20 68  65 61 70 20 62 6c 6f 63  |atable heap bloc|
00001430  6b 22 0d 0e d6 28 41 2d  3d 34 3a 57 2d 3d 31 3a  |k"...(A-=4:W-=1:|
00001440  5a 21 28 4d 2a 34 29 3d  5a 21 28 57 2a 34 29 3a  |Z!(M*4)=Z!(W*4):|
00001450  5a 21 28 57 2a 34 29 3d  2d 31 0d 0e d7 10 cd 3a  |Z!(W*4)=-1.....:|
00001460  c8 99 32 39 2c 33 2c 43  2c 41 0d 0e d8 0a cd 3a  |..29,3,C,A.....:|
00001470  41 3d 2d 31 0d 0e d9 07  cd 3a e1 0d 0e da 5d dd  |A=-1.....:....].|
00001480  a4 4a 28 41 2c 59 29 3a  ea 61 2c 47 2c 4d 3a 4d  |.J(A,Y):.a,G,M:M|
00001490  3d a3 3a e7 41 21 2d 34  3c 3e 26 34 33 34 46 34  |=.:.A!-4<>&434F4|
000014a0  43 35 32 8c 85 26 38 30  32 2c 22 41 74 74 65 6d  |C52..&802,"Attem|
000014b0  70 74 20 74 6f 20 65 78  74 65 6e 64 20 6e 6f 6e  |pt to extend non|
000014c0  2d 72 65 6c 6f 63 61 74  61 62 6c 65 20 68 65 61  |-relocatable hea|
000014d0  70 20 62 6c 6f 63 6b 22  0d 0e db 2f f5 3a c8 99  |p block".../.:..|
000014e0  26 32 30 30 31 44 2c 34  2c 43 2c 41 2d 34 2c 59  |&2001D,4,C,A-4,Y|
000014f0  b8 46 79 2c 2c 61 3b 47  3a e7 28 47 80 31 29 3d  |.Fy,,a;G:.(G.1)=|
00001500  31 8c 4d 3d ac a4 57 0d  0e dc 12 fd 28 47 80 31  |1.M=..W.....(G.1|
00001510  29 3d 30 84 4d 3a e7 4d  8c 0d 0e dd 09 61 3d 41  |)=0.M:.M.....a=A|
00001520  2d 33 0d 0e de 0c cc 3a  e7 41 3c 3e 5a 8c 0d 0e  |-3.....:.A<>Z...|
00001530  df 4b 4d 3d 30 3a c8 95  4d 3c 57 80 5a 21 28 4d  |.KM=0:..M<W.Z!(M|
00001540  2a 34 29 3c 3e 41 3a 4d  2b 3d 31 3a ce 3a e7 4d  |*4)<>A:M+=1:.:.M|
00001550  3d 57 8c 85 26 38 30 32  2c 22 55 6e 6b 6e 6f 77  |=W..&802,"Unknow|
00001560  6e 20 72 65 6c 6f 63 61  74 61 62 6c 65 20 68 65  |n relocatable he|
00001570  61 70 20 62 6c 6f 63 6b  22 0d 0e e0 0f 5a 21 28  |ap block"....Z!(|
00001580  4d 2a 34 29 3d 61 2b 34  0d 0e e1 05 cd 0d 0e e2  |M*4)=a+4........|
00001590  0a cd 3a 3d 61 2b 34 0d  0e e3 2e dd a4 5a 28 61  |..:=a+4......Z(a|
000015a0  24 29 ea 41 25 3a 41 25  3d a4 41 28 a9 28 61 24  |$).A%:A%=.A(.(a$|
000015b0  29 2b 31 29 3a e7 41 25  3c 3e 2d 31 8c 24 28 41  |)+1):.A%<>-1.$(A|
000015c0  25 29 3d 61 24 0d 0e e4  07 3d 41 25 0d 0e e5 28  |%)=a$....=A%...(|
000015d0  dd f2 62 3a de 4d 25 26  34 30 30 3a 67 3d 2d 32  |..b:.M%&400:g=-2|
000015e0  3a 47 25 3d 2d 31 3a 56  25 3d 2d 31 3a 47 79 3d  |:G%=-1:V%=-1:Gy=|
000015f0  2d 32 3a e1 0d 0e e6 14  dd f2 43 28 4d 79 29 60  |-2:.......C(My)`|
00001600  25 21 30 3d 4d 79 3a e1  0d 0e e7 b6 dd a4 55 28  |%!0=My:.......U(|
00001610  6e 24 2c 46 79 25 29 ea  6e 25 2c 66 25 2c 5a 79  |n$,Fy%).n%,f%,Zy|
00001620  25 3a c8 99 26 34 30 30  44 39 2c 2c 41 70 70 64  |%:..&400D9,,Appd|
00001630  69 72 24 2b 22 2e 54 65  6d 70 6c 61 74 65 73 22  |ir$+".Templates"|
00001640  3a c8 99 26 34 30 30 44  42 2c 2c 30 2c 2c 2c 2c  |:..&400DB,,0,,,,|
00001650  6e 24 2c 30 b8 2c 2c 6e  25 3a de 66 25 6e 25 3a  |n$,0.,,n%:.f%n%:|
00001660  c8 99 26 34 30 30 44 42  2c 2c 76 25 2c 66 25 2c  |..&400DB,,v%,f%,|
00001670  66 25 2b 6e 25 2c 2d 31  2c 6e 24 2c 30 b8 2c 2c  |f%+n%,-1,n$,0.,,|
00001680  2c 2c 2c 2c 5a 79 25 3a  c8 99 26 34 30 30 44 41  |,,,,Zy%:..&400DA|
00001690  3a e7 5a 79 25 3d 30 8c  85 26 38 30 33 2c 22 54  |:.Zy%=0..&803,"T|
000016a0  65 6d 70 6c 61 74 65 20  66 69 6c 65 20 22 2b 6e  |emplate file "+n|
000016b0  24 2b 22 20 6e 6f 74 20  66 6f 75 6e 64 22 0d 0e  |$+" not found"..|
000016c0  e8 21 76 25 21 36 34 3d  46 79 25 3a c8 99 26 34  |.!v%!64=Fy%:..&4|
000016d0  30 30 43 31 2c 2c 76 25  b8 66 25 3a 3d 66 25 0d  |00C1,,v%.f%:=f%.|
000016e0  0e e9 3a dd a4 4c ea 63  6f 6d 24 2c 52 2c 70 24  |..:..L.com$,R,p$|
000016f0  3a c8 99 31 36 b8 63 6f  6d 24 3a 70 24 3d 22 22  |:..16.com$:p$=""|
00001700  3a 52 3d a7 63 6f 6d 24  2c 22 20 2d 71 75 69 74  |:R=.com$," -quit|
00001710  20 22 29 3a e7 52 3e 30  8c 0d 0e ea 40 70 24 3d  | "):.R>0....@p$=|
00001720  c1 63 6f 6d 24 2c a7 63  6f 6d 24 2c 22 20 22 2c  |.com$,.com$," ",|
00001730  52 2b a9 22 20 2d 71 75  69 74 20 22 29 2b 31 29  |R+." -quit ")+1)|
00001740  3a c8 95 c0 70 24 2c 31  29 3d 22 20 22 3a 70 24  |:...p$,1)=" ":p$|
00001750  3d c1 70 24 2c 32 29 3a  ce 0d 0e eb 09 cd 3a 3d  |=.p$,2):......:=|
00001760  70 24 0d 0e ec 3c dd a4  48 28 56 61 72 24 29 ea  |p$...<..H(Var$).|
00001770  45 79 3a c8 99 26 32 30  30 32 33 2c 56 61 72 24  |Ey:..&20023,Var$|
00001780  2c 4d 25 2c 26 46 46 2c  30 2c 33 b8 2c 2c 45 79  |,M%,&FF,0,3.,,Ey|
00001790  3a 4d 25 3f 45 79 3d 26  44 3a 3d 24 4d 25 0d 0e  |:M%?Ey=&D:=$M%..|
000017a0  ed 3e dd f2 52 3a ea 85  3a ee 85 ea 3a f2 46 3a  |.>..R:..:...:.F:|
000017b0  ef 34 3a 85 a2 30 2c f6  24 2b 22 20 61 74 20 6c  |.4:..0,.$+" at l|
000017c0  69 6e 65 20 22 2b c3 9e  2b 22 20 69 6e 20 65 72  |ine "+..+" in er|
000017d0  72 6f 72 20 68 61 6e 64  6c 65 72 22 0d 0e ee af  |ror handler"....|
000017e0  6d 65 73 73 24 3d 22 49  6e 74 65 72 6e 61 6c 20  |mess$="Internal |
000017f0  65 72 72 6f 72 20 3a 20  28 22 2b c3 9e 2b 22 29  |error : ("+..+")|
00001800  20 22 2b f6 24 3a ff 28  22 53 65 74 20 45 72 72  | "+.$:.("Set Err|
00001810  6f 72 24 20 22 2b 6d 65  73 73 24 29 3a ff 28 22  |or$ "+mess$):.("|
00001820  53 65 74 20 45 72 72 6f  72 24 54 61 73 6b 20 4e  |Set Error$Task N|
00001830  6f 74 20 6b 6e 6f 77 6e  22 29 3a 4d 25 21 30 3d  |ot known"):M%!0=|
00001840  9f 3a 24 28 4d 25 2b 34  29 3d 6d 65 73 73 24 2b  |.:$(M%+4)=mess$+|
00001850  22 20 77 68 69 6c 73 74  20 69 6e 69 74 69 61 6c  |" whilst initial|
00001860  69 73 69 6e 67 22 2b bd  30 3a ee 85 ea 3a 41 70  |ising"+.0:...:Ap|
00001870  70 6e 61 6d 65 24 3d 22  75 6e 69 6e 69 74 69 61  |pname$="uninitia|
00001880  6c 69 73 65 64 20 74 61  73 6b 22 0d 0e ef 43 61  |lised task"...Ca|
00001890  24 3d 41 70 70 6e 61 6d  65 24 3a ee 85 ea 3a f2  |$=Appname$:...:.|
000018a0  46 3a ef 34 3a 85 a2 30  2c f6 24 2b 22 20 61 74  |F:.4:..0,.$+" at|
000018b0  20 6c 69 6e 65 20 22 2b  c3 9e 2b 22 20 69 6e 20  | line "+..+" in |
000018c0  65 72 72 6f 72 20 68 61  6e 64 6c 65 72 22 0d 0e  |error handler"..|
000018d0  f0 1c c8 99 26 34 30 30  44 46 2c 4d 25 2c 39 2c  |....&400DF,M%,9,|
000018e0  41 70 70 6e 61 6d 65 24  3a e1 0d 0e f1 49 dd f2  |Appname$:....I..|
000018f0  61 ea 74 2c 6d 65 73 73  24 2c 5f 25 3a ea 85 3a  |a.t,mess$,_%:..:|
00001900  ee 85 ea 3a f2 46 3a ef  34 3a 85 a2 30 2c f6 24  |...:.F:.4:..0,.$|
00001910  2b 22 20 61 74 20 6c 69  6e 65 20 22 2b c3 9e 2b  |+" at line "+..+|
00001920  22 20 69 6e 20 65 72 72  6f 72 20 68 61 6e 64 6c  |" in error handl|
00001930  65 72 22 0d 0e f2 1b c8  99 36 2c 26 37 43 3a e7  |er"......6,&7C:.|
00001940  9f 3e 26 37 46 46 80 9f  3c 26 38 30 33 8c 0d 0e  |.>&7FF..<&803...|
00001950  f3 35 74 3d 9f 2d 26 37  46 46 3a 6d 65 73 73 24  |.5t=.-&7FF:mess$|
00001960  3d f6 24 3a e7 74 3d 33  8c 6d 65 73 73 24 2b 3d  |=.$:.t=3.mess$+=|
00001970  22 20 28 43 61 6e 63 65  6c 20 74 6f 20 51 75 69  |" (Cancel to Qui|
00001980  74 29 22 0d 0e f4 2a 5f  25 3d a4 46 28 41 70 70  |t)"...*_%=.F(App|
00001990  6e 61 6d 65 24 2c 6d 65  73 73 24 2c 74 29 3a e7  |name$,mess$,t):.|
000019a0  5f 25 3d 32 80 74 3d 33  8c 4a 25 3d b9 0d 0e f5  |_%=2.t=3.J%=....|
000019b0  5d cc 3a 6d 65 73 73 24  3d 22 49 6e 74 65 72 6e  |].:mess$="Intern|
000019c0  61 6c 20 65 72 72 6f 72  20 3a 20 28 22 2b c3 9e  |al error : ("+..|
000019d0  2b 22 29 20 22 2b f6 24  2b 22 20 43 61 6e 63 65  |+") "+.$+" Cance|
000019e0  6c 20 74 6f 20 51 75 69  74 22 3a 5f 25 3d a4 46  |l to Quit":_%=.F|
000019f0  28 41 70 70 6e 61 6d 65  24 2c 6d 65 73 73 24 2c  |(Appname$,mess$,|
00001a00  33 29 3a e7 5f 25 3c 3e  31 8c 0d 0e f6 3d 4a 25  |3):._%<>1....=J%|
00001a10  3d b9 3a ff 28 22 53 65  74 20 45 72 72 6f 72 24  |=.:.("Set Error$|
00001a20  20 22 2b 6d 65 73 73 24  29 3a ff 28 22 53 65 74  | "+mess$):.("Set|
00001a30  20 45 72 72 6f 72 24 54  61 73 6b 20 22 2b 41 70  | Error$Task "+Ap|
00001a40  70 6e 61 6d 65 24 29 0d  0e f7 26 cd 3a e7 a6 28  |pname$)...&.:..(|
00001a50  2d 31 29 80 a6 28 2d 32  29 80 a6 28 2d 31 37 29  |-1)..(-2)..(-17)|
00001a60  8c ff 28 22 53 70 6f 6f  6c 22 29 3a e0 0d 0e f8  |..("Spool"):....|
00001a70  07 cd 3a e1 0d 0e f9 79  dd a4 46 28 74 69 74 6c  |..:....y..F(titl|
00001a80  65 24 2c 6d 65 73 73 61  67 65 24 2c 53 79 25 29  |e$,message$,Sy%)|
00001a90  74 69 74 6c 65 24 3d a4  45 28 74 69 74 6c 65 24  |title$=.E(title$|
00001aa0  29 3a 6d 65 73 73 61 67  65 24 3d a4 45 28 6d 65  |):message$=.E(me|
00001ab0  73 73 61 67 65 24 29 3a  24 28 4d 25 2b 34 29 3d  |ssage$):$(M%+4)=|
00001ac0  6d 65 73 73 61 67 65 24  3a 21 4d 25 3d 30 3a c8  |message$:!M%=0:.|
00001ad0  99 26 34 30 30 44 46 2c  4d 25 2c 53 79 25 2c 74  |.&400DF,M%,Sy%,t|
00001ae0  69 74 6c 65 24 b8 2c 5f  25 3a 3d 5f 25 0d 0e fa  |itle$.,_%:=_%...|
00001af0  38 dd f2 55 3a ea 85 3a  ee 85 ea 3a e7 9f 3d 26  |8..U:..:...:..=&|
00001b00  38 30 33 8c f2 45 28 69  6e 66 6f 62 6f 78 25 2c  |803..E(infobox%,|
00001b10  34 2c 22 4f 6c 64 20 74  65 6d 70 6c 61 74 65 22  |4,"Old template"|
00001b20  29 3a e1 8b e1 0d 0e fb  eb f2 45 28 69 6e 66 6f  |):........E(info|
00001b30  62 6f 78 25 2c 35 2c 22  50 72 6f 67 72 61 6d 22  |box%,5,"Program"|
00001b40  29 3a f2 45 28 69 6e 66  6f 62 6f 78 25 2c 31 2c  |):.E(infobox%,1,|
00001b50  c3 28 b8 50 2d 90 29 2b  22 20 62 79 74 65 73 2c  |.(.P-.)+" bytes,|
00001b60  20 22 2b c3 28 28 b8 50  2d 90 29 81 26 34 30 30  | "+.((.P-.).&400|
00001b70  29 2b 22 4b 22 29 3a f2  45 28 69 6e 66 6f 62 6f  |)+"K"):.E(infobo|
00001b80  78 25 2c 36 2c 22 56 61  72 73 22 29 3a f2 45 28  |x%,6,"Vars"):.E(|
00001b90  69 6e 66 6f 62 6f 78 25  2c 32 2c c3 28 e0 2d 92  |infobox%,2,.(.-.|
00001ba0  29 2b 22 20 62 79 74 65  73 2c 20 22 2b c3 28 28  |)+" bytes, "+.((|
00001bb0  e0 2d 92 29 81 26 34 30  30 29 2b 22 4b 22 29 3a  |.-.).&400)+"K"):|
00001bc0  f2 45 28 69 6e 66 6f 62  6f 78 25 2c 37 2c 22 46  |.E(infobox%,7,"F|
00001bd0  72 65 65 22 29 3a f2 45  28 69 6e 66 6f 62 6f 78  |ree"):.E(infobox|
00001be0  25 2c 33 2c c3 28 93 2d  e0 29 2b 22 20 62 79 74  |%,3,.(.-.)+" byt|
00001bf0  65 73 2c 20 22 2b c3 28  28 93 2d e0 29 81 26 34  |es, "+.((.-.).&4|
00001c00  30 30 29 2b 22 4b 22 29  3a f2 79 28 66 2c 62 29  |00)+"K"):.y(f,b)|
00001c10  0d 0e fc 60 f2 45 28 69  6e 66 6f 62 6f 78 25 2c  |...`.E(infobox%,|
00001c20  38 2c 22 48 65 61 70 22  29 3a f2 45 28 69 6e 66  |8,"Heap"):.E(inf|
00001c30  6f 62 6f 78 25 2c 34 2c  c3 28 66 2d 62 29 2b 22  |obox%,4,.(f-b)+"|
00001c40  20 62 79 74 65 73 2c 20  22 2b c3 28 28 66 2d 62  | bytes, "+.((f-b|
00001c50  29 81 26 34 30 30 29 2b  22 4b 20 6f 66 20 22 2b  |).&400)+"K of "+|
00001c60  c3 28 66 81 26 34 30 30  29 2b 22 4b 22 29 3a e1  |.(f.&400)+"K"):.|
00001c70  0d 0e fd a0 dd a4 4e 28  41 24 29 3a ea 6c 2c 65  |......N(A$):.l,e|
00001c80  2c 6a 2c 49 2c 77 2c 4f  24 2c 43 24 2c 6f 25 2c  |,j,I,w,O$,C$,o%,|
00001c90  4d 79 25 2c 55 25 2c 6b  24 2c 53 24 3a 6f 25 3d  |My%,U%,k$,S$:o%=|
00001ca0  61 25 3a 4d 79 25 3d 4f  25 3a 55 25 3d a3 3a 6c  |a%:My%=O%:U%=.:l|
00001cb0  3d 53 25 3a 49 3d 30 3a  41 24 2b 3d 22 7c 22 3a  |=S%:I=0:A$+="|":|
00001cc0  f2 57 28 a4 47 28 41 24  2c 43 24 29 29 3a f2 5a  |.W(.G(A$,C$)):.Z|
00001cd0  28 26 37 30 32 30 37 29  3a 65 3d 53 25 3a f2 5a  |(&70207):e=S%:.Z|
00001ce0  28 26 38 30 29 3a f2 5a  28 34 34 29 3a f2 5a 28  |(&80):.Z(44):.Z(|
00001cf0  30 29 3a 7a 25 3d 30 3a  53 24 3d 41 24 3a 77 3d  |0):z%=0:S$=A$:w=|
00001d00  30 3a f5 3a e7 55 25 3d  b9 8c 55 25 3d b9 2a 32  |0:.:.U%=..U%=.*2|
00001d10  0d 0e fe 4b f5 3a 4f 24  3d a4 47 28 41 24 2c 43  |...K.:O$=.G(A$,C|
00001d20  24 29 3a 7a 25 3d 7a 25  2b 31 3a 51 3d a4 52 28  |$):z%=z%+1:Q=.R(|
00001d30  43 24 2c 6a 2c 73 24 2c  6b 24 29 2b 28 28 2d 28  |C$,j,s$,k$)+((-(|
00001d40  41 24 3d 22 22 29 29 3c  3c 37 29 3a e7 55 25 3d  |A$=""))<<7):.U%=|
00001d50  b9 2a 32 80 6b 24 3c 3e  22 22 8c 0d 0e ff 3d 4f  |.*2.k$<>""....=O|
00001d60  24 2b 3d c4 49 2b 77 2d  28 a9 28 4f 24 29 2b a9  |$+=.I+w-(.(O$)+.|
00001d70  28 6b 24 29 29 2b 31 2c  22 20 22 29 3a e7 c0 6b  |(k$))+1," "):..k|
00001d80  24 2c 31 29 3d 22 a4 22  8c c1 6b 24 2c 31 2c 31  |$,1)="."..k$,1,1|
00001d90  29 3d bd 28 26 38 42 29  0d 0f 00 0a 4f 24 2b 3d  |)=.(&8B)....O$+=|
00001da0  6b 24 0d 0f 01 23 cc 3a  e7 6b 24 3c 3e 22 22 8c  |k$...#.:.k$<>"".|
00001db0  55 25 3d b9 3a e7 77 3c  a9 28 6b 24 29 8c 77 3d  |U%=.:.w<.(k$).w=|
00001dc0  a9 28 6b 24 29 0d 0f 02  45 cd 3a 78 3d 26 37 30  |.(k$)...E.:x=&70|
00001dd0  30 30 30 32 31 2b 28 28  2d 28 a9 28 4f 24 29 3e  |00021+((-(.(O$)>|
00001de0  26 42 29 29 3c 3c 38 29  2b 28 31 3c 3c 26 45 29  |&B))<<8)+(1<<&E)|
00001df0  2a 28 51 80 32 35 36 29  3a e7 28 51 80 34 29 3c  |*(Q.256):.(Q.4)<|
00001e00  3e 30 8c 78 3d 78 84 32  35 36 0d 0f 03 2c f2 5a  |>0.x=x.256...,.Z|
00001e10  28 51 80 26 46 46 29 3a  f2 5a 28 6a 29 3a e7 a9  |(Q.&FF):.Z(j):..|
00001e20  28 4f 24 29 3e 49 80 55  25 3c 3e b9 2a 32 8c 49  |(O$)>I.U%<>.*2.I|
00001e30  3d a9 28 4f 24 29 0d 0f  04 61 f2 5a 28 78 29 3a  |=.(O$)...a.Z(x):|
00001e40  f2 67 28 4f 24 2c 73 24  2c 28 51 80 34 29 29 3a  |.g(O$,s$,(Q.4)):|
00001e50  fd 41 24 3d 22 22 3a e7  55 25 3d b9 2a 32 8c 49  |.A$="":.U%=.*2.I|
00001e60  2b 3d 77 2b 31 8b e7 55  25 3d b9 8c 61 25 3d 6f  |+=w+1..U%=..a%=o|
00001e70  25 3a 4f 25 3d 4d 79 25  3a 52 25 2b 3d 53 25 2d  |%:O%=My%:R%+=S%-|
00001e80  65 2d 26 43 3a 53 25 3d  65 2b 26 43 3a 7a 25 3d  |e-&C:S%=e+&C:z%=|
00001e90  30 3a 41 24 3d 53 24 0d  0f 05 18 fd 55 25 3c 3e  |0:A$=S$.....U%<>|
00001ea0  b9 3a 21 65 3d 49 2a 31  36 2b 31 36 3a 3d 6c 0d  |.:!e=I*16+16:=l.|
00001eb0  0f 06 29 dd f2 67 28 54  24 2c 73 24 2c 50 79 29  |..)..g(T$,s$,Py)|
00001ec0  e7 c0 54 24 2c 31 29 3d  22 a4 22 8c 54 24 3d a0  |..T$,1)=".".T$=.|
00001ed0  28 c1 54 24 2c 32 29 29  0d 0f 07 19 e7 a9 28 54  |(.T$,2))......(T|
00001ee0  24 29 3c 26 43 80 73 24  3d 22 22 80 50 79 3d 30  |$)<&C.s$="".Py=0|
00001ef0  8c 0d 0f 08 0a f2 57 28  54 24 29 0d 0f 09 19 cc  |......W(T$).....|
00001f00  3a f2 5a 28 a4 43 28 54  24 29 29 3a e7 73 24 3c  |:.Z(.C(T$)):.s$<|
00001f10  3e 22 22 8c 0d 0f 0a 36  53 25 21 2d 38 3d 53 25  |>""....6S%!-8=S%|
00001f20  21 2d 38 84 26 38 30 33  3a e7 c0 a4 4b 28 73 24  |!-8.&803:...K(s$|
00001f30  29 2c 32 29 3d 22 73 6d  22 8c 53 25 21 2d 38 3d  |),2)="sm".S%!-8=|
00001f40  53 25 21 2d 38 82 26 38  30 30 0d 0f 0b 12 f2 5a  |S%!-8.&800.....Z|
00001f50  28 a4 43 28 22 53 22 2b  73 24 29 29 0d 0f 0c 0c  |(.C("S"+s$))....|
00001f60  cc 3a f2 5a 28 2d 31 29  0d 0f 0d 11 cd 3a f2 5a  |.:.Z(-1).....:.Z|
00001f70  28 a9 28 54 24 29 2b 31  29 0d 0f 0e 07 cd 3a e1  |(.(T$)+1).....:.|
00001f80  0d 0f 0f 4b dd a4 47 28  f8 41 24 2c f8 43 24 29  |...K..G(.A$,.C$)|
00001f90  3a ea 42 24 3a 42 24 3d  c0 41 24 2c a7 41 24 2c  |:.B$:B$=.A$,.A$,|
00001fa0  22 7c 22 29 2d 31 29 3a  41 24 3d c1 41 24 2c a9  |"|")-1):A$=.A$,.|
00001fb0  28 42 24 29 2b 32 29 3a  e7 a7 42 24 2c 22 5d 22  |(B$)+2):..B$,"]"|
00001fc0  29 3c 31 8c 42 24 2b 3d  22 5d 22 0d 0f 10 31 43  |)<1.B$+="]"...1C|
00001fd0  24 3d c1 42 24 2c a7 42  24 2c 22 5d 22 29 2b 31  |$=.B$,.B$,"]")+1|
00001fe0  29 3a 42 24 3d c0 42 24  2c a7 42 24 2c 22 5d 22  |):B$=.B$,.B$,"]"|
00001ff0  29 2d 31 29 3a 3d a4 45  28 42 24 29 0d 0f 11 30  |)-1):=.E(B$)...0|
00002000  dd f2 57 28 54 24 29 e7  a9 28 54 24 29 3e 26 42  |..W(T$)..(T$)>&B|
00002010  8c 85 26 38 30 33 2c 22  4d 65 6e 75 20 65 6e 74  |..&803,"Menu ent|
00002020  72 79 20 74 6f 6f 20 6c  6f 6e 67 22 0d 0f 12 43  |ry too long"...C|
00002030  24 53 25 3d 54 24 3a 53  25 2b 3d 26 43 3a 52 25  |$S%=T$:S%+=&C:R%|
00002040  2d 3d 26 43 3a e7 52 25  3c 3d 34 8c 85 26 38 30  |-=&C:.R%<=4..&80|
00002050  33 2c 22 4e 6f 74 20 65  6e 6f 75 67 68 20 6d 65  |3,"Not enough me|
00002060  6d 6f 72 79 20 66 6f 72  20 6d 65 6e 75 73 22 0d  |mory for menus".|
00002070  0f 13 05 e1 0d 0f 14 49  dd f2 5a 28 57 25 29 3a  |.......I..Z(W%):|
00002080  21 53 25 3d 57 25 3a 53  25 2b 3d 34 3a 52 25 2d  |!S%=W%:S%+=4:R%-|
00002090  3d 34 3a e7 52 25 3c 3d  34 8c 85 26 38 30 33 2c  |=4:.R%<=4..&803,|
000020a0  22 4e 6f 74 20 65 6e 6f  75 67 68 20 6d 65 6d 6f  |"Not enough memo|
000020b0  72 79 20 66 6f 72 20 6d  65 6e 75 73 22 0d 0f 15  |ry for menus"...|
000020c0  05 e1 0d 0f 16 5d dd a4  52 28 41 24 2c f8 75 2c  |.....]..R(A$,.u,|
000020d0  f8 73 24 2c f8 6b 24 29  3a ea 42 24 2c 43 24 2c  |.s$,.k$):.B$,C$,|
000020e0  42 3a 75 3d 2d 31 3a 73  24 3d 22 22 3a 6b 24 3d  |B:u=-1:s$="":k$=|
000020f0  22 22 3a 41 24 3d 41 24  2b 22 2c 22 3a c8 95 41  |"":A$=A$+",":..A|
00002100  24 3c 3e 22 22 3a 42 24  3d c0 41 24 2c 31 29 3a  |$<>"":B$=.A$,1):|
00002110  41 24 3d c1 41 24 2c 32  29 3a c8 8e 42 24 ca 0d  |A$=.A$,2):..B$..|
00002120  0f 17 0e c9 22 54 22 3a  42 3d 42 84 31 0d 0f 18  |...."T":B=B.1...|
00002130  0e c9 22 44 22 3a 42 3d  42 84 32 0d 0f 19 0e c9  |.."D":B=B.2.....|
00002140  22 57 22 3a 42 3d 42 84  34 0d 0f 1a 0e c9 22 4d  |"W":B=B.4....."M|
00002150  22 3a 42 3d 42 84 38 0d  0f 1b 10 c9 22 53 22 3a  |":B=B.8....."S":|
00002160  42 3d 42 84 32 35 36 0d  0f 1c 2e c9 22 4b 22 3a  |B=B.256....."K":|
00002170  6b 24 3d c0 41 24 2c a7  41 24 2c 22 2c 22 29 2d  |k$=.A$,.A$,",")-|
00002180  31 29 3a 41 24 3d c1 41  24 2c a7 41 24 2c 22 2c  |1):A$=.A$,.A$,",|
00002190  22 29 2b 31 29 0d 0f 1d  30 c9 22 3e 22 3a 75 3d  |")+1)...0.">":u=|
000021a0  a0 28 c0 41 24 2c a7 41  24 2c 22 2c 22 29 2d 31  |.(.A$,.A$,",")-1|
000021b0  29 29 3a 41 24 3d c1 41  24 2c a7 41 24 2c 22 2c  |)):A$=.A$,.A$,",|
000021c0  22 29 2b 31 29 0d 0f 1e  32 c9 22 7d 22 3a 73 24  |")+1)...2."}":s$|
000021d0  3d c0 41 24 2c a7 41 24  2c 22 2c 22 29 2d 31 29  |=.A$,.A$,",")-1)|
000021e0  2b 22 20 22 3a 41 24 3d  c1 41 24 2c a7 41 24 2c  |+" ":A$=.A$,.A$,|
000021f0  22 2c 22 29 2b 31 29 0d  0f 1f 0a cb 3a ce 3a 3d  |",")+1).....:.:=|
00002200  42 0d 0f 20 46 dd a4 43  28 61 24 29 ea 6f 3a 6f  |B.. F..C(a$).o:o|
00002210  3d 61 25 3a e7 a9 28 61  24 29 3e 4f 25 2d 31 8c  |=a%:..(a$)>O%-1.|
00002220  85 26 38 30 33 2c 22 4e  6f 74 20 65 6e 6f 75 67  |.&803,"Not enoug|
00002230  68 20 72 6f 6f 6d 20 66  6f 72 20 69 6e 64 69 72  |h room for indir|
00002240  65 63 74 69 6f 6e 22 0d  0f 21 25 24 61 25 3d 61  |ection"..!%$a%=a|
00002250  24 3a 61 25 2b 3d a9 28  61 24 29 2b 31 3a 4f 25  |$:a%+=.(a$)+1:O%|
00002260  2d 3d a9 28 61 24 29 2b  31 3a 3d 6f 0d 0f 22 51  |-=.(a$)+1:=o.."Q|
00002270  dd f2 74 3a c8 99 26 34  30 30 43 46 2c 2c 45 25  |..t:..&400CF,,E%|
00002280  3a 4e 25 3d 44 25 3a 67  25 3d 45 25 21 30 2d 36  |:N%=D%:g%=E%!0-6|
00002290  34 3a 75 25 3d 39 36 2b  34 34 2a 74 25 3a c8 99  |4:u%=96+44*t%:..|
000022a0  26 34 30 30 44 34 2c 2c  44 25 2c 45 25 21 30 2d  |&400D4,,D%,E%!0-|
000022b0  36 34 2c 39 36 2b 34 34  2a 74 25 3a e1 0d 0f 23  |64,96+44*t%:...#|
000022c0  16 dd f2 47 28 53 25 2c  72 2c 6e 29 3a e7 72 3d  |...G(S%,r,n):.r=|
000022d0  2d 31 8c 0d 0f 24 1e c8  99 26 34 30 30 43 46 2c  |-1...$...&400CF,|
000022e0  2c 45 25 3a 72 3d 45 25  21 30 3a 6e 3d 45 25 21  |,E%:r=E%!0:n=E%!|
000022f0  34 0d 0f 25 34 cd 3a 4e  25 3d 53 25 3a 67 25 3d  |4..%4.:N%=S%:g%=|
00002300  72 2d 36 34 3a 75 25 3d  6e 2b 32 30 3a c8 99 26  |r-64:u%=n+20:..&|
00002310  34 30 30 44 34 2c 2c 53  25 2c 72 2d 36 34 2c 6e  |400D4,,S%,r-64,n|
00002320  2b 32 30 3a e1 0d 0f 26  1c dd f2 59 3a c8 99 26  |+20:...&...Y:..&|
00002330  34 30 30 44 34 2c 2c 4e  25 2c 67 25 2c 75 25 3a  |400D4,,N%,g%,u%:|
00002340  e1 0d 0f 27 50 dd f2 73  28 4a 2c 79 2c 69 29 3a  |...'P..s(J,y,i):|
00002350  4a 2b 3d 79 2a 32 34 2b  32 38 3a f5 3a 21 4a 3d  |J+=y*24+28:.:!J=|
00002360  21 4a 80 2d 32 3a 79 2b  3d 31 3a 4a 2b 3d 32 34  |!J.-2:y+=1:J+=24|
00002370  3a fd 28 69 3c 3e 2d 31  80 79 3e 69 29 84 28 28  |:.(i<>-1.y>i).((|
00002380  4a 21 2d 32 34 29 80 26  38 30 29 3d 26 38 30 3a  |J!-24).&80)=&80:|
00002390  e1 0d 0f 28 21 dd f2 65  28 4a 2c 43 79 2c 53 79  |...(!..e(J,Cy,Sy|
000023a0  29 4a 2b 3d 43 79 2a 32  34 2b 32 38 3a c8 8e 53  |)J+=Cy*24+28:..S|
000023b0  79 ca 0d 0f 29 0f c9 30  3a 21 4a 3d 21 4a 80 2d  |y...)..0:!J=!J.-|
000023c0  32 0d 0f 2a 11 c9 2d 31  2c 31 3a 21 4a 3d 21 4a  |2..*..-1,1:!J=!J|
000023d0  84 31 0d 0f 2b 0e c9 32  3a 21 4a 3d 21 4a 82 31  |.1..+..2:!J=!J.1|
000023e0  0d 0f 2c 07 cb 3a e1 0d  0f 2d 5d dd a4 58 28 53  |..,..:...-]..X(S|
000023f0  25 29 ea 77 25 2c 4f 2c  62 24 2c 63 24 3a 77 25  |%).w%,O,b$,c$:w%|
00002400  3d 53 25 3a 4f 3d 30 3a  c8 95 28 45 25 21 4f 3e  |=S%:O=0:..(E%!O>|
00002410  2d 31 80 77 25 3c 3e 67  29 3a 77 25 3d 77 25 21  |-1.w%<>g):w%=w%!|
00002420  28 33 32 2b 28 45 25 21  4f 29 2a 32 34 29 3a 4f  |(32+(E%!O)*24):O|
00002430  2b 3d 34 3a ce 3a e7 77  25 3d 67 80 45 25 21 4f  |+=4:.:.w%=g.E%!O|
00002440  3c 3e 30 8c 0d 0f 2e 27  c8 99 26 34 30 30 41 30  |<>0....'..&400A0|
00002450  2c 2c 67 2c 45 25 2b 4f  2c c4 26 46 46 2c bd 30  |,,g,E%+O,.&FF,.0|
00002460  29 2c 26 46 46 b8 2c 2c  2c 6d 24 0d 0f 2f 9b cc  |),&FF.,,,m$../..|
00002470  3a c8 99 26 34 30 30 44  35 2c 2c 53 25 2c 45 25  |:..&400D5,,S%,E%|
00002480  2c c4 26 46 46 2c bd 30  29 2c 26 46 46 b8 2c 2c  |,.&FF,.0),&FF.,,|
00002490  2c 6d 24 3a 62 24 3d 22  22 3a f5 3a 63 24 3d c0  |,m$:b$="":.:c$=.|
000024a0  6d 24 2c a7 6d 24 2b 22  2e 22 2c 22 2e 22 29 2d  |m$,.m$+".",".")-|
000024b0  31 29 3a 6d 24 3d c1 6d  24 2c a9 28 63 24 29 2b  |1):m$=.m$,.(c$)+|
000024c0  32 29 3a 63 24 3d c0 63  24 2c a7 63 24 2b 22 20  |2):c$=.c$,.c$+" |
000024d0  5e 22 2c 22 20 5e 22 29  2d 31 29 3a 63 24 3d c0  |^"," ^")-1):c$=.|
000024e0  63 24 2c a7 63 24 2b 22  20 22 2b bd 26 38 42 2c  |c$,.c$+" "+.&8B,|
000024f0  22 20 22 2b bd 26 38 42  29 2d 31 29 3a c8 8e c2  |" "+.&8B)-1):...|
00002500  63 24 2c 33 29 ca 0d 0f  30 62 c9 22 45 73 63 22  |c$,3)...0b."Esc"|
00002510  2c 22 44 65 6c 22 2c 22  49 6e 73 22 2c 22 45 6e  |,"Del","Ins","En|
00002520  64 22 2c 22 48 6f 6d 22  2c 22 43 70 79 22 2c 22  |d","Hom","Cpy","|
00002530  46 31 30 22 2c 22 46 31  31 22 2c 22 46 31 32 22  |F10","F11","F12"|
00002540  2c 22 46 31 33 22 2c 22  50 72 74 22 2c 22 54 61  |,"F13","Prt","Ta|
00002550  62 22 2c 22 52 65 74 22  3a 63 24 3d c0 63 24 2c  |b","Ret":c$=.c$,|
00002560  a9 28 63 24 29 2d 34 29  0d 0f 31 3f cb 3a e7 c1  |.(c$)-4)..1?.:..|
00002570  63 24 2c a9 28 63 24 29  2d 32 2c 32 29 3d 22 20  |c$,.(c$)-2,2)=" |
00002580  46 22 8c e7 c2 63 24 29  3d 22 30 22 84 bb 28 c2  |F"...c$)="0"..(.|
00002590  63 24 29 29 3c 3e 30 8c  63 24 3d c0 63 24 2c a9  |c$))<>0.c$=.c$,.|
000025a0  28 63 24 29 2d 33 29 0d  0f 32 42 c8 95 c2 63 24  |(c$)-3)..2B...c$|
000025b0  29 3d 22 20 22 3a 63 24  3d c0 63 24 29 3a ce 3a  |)=" ":c$=.c$):.:|
000025c0  62 24 2b 3d 63 24 2b 22  2e 22 3a fd 6d 24 3d 22  |b$+=c$+".":.m$="|
000025d0  22 84 6d 24 3d 22 2e 22  3a e7 6d 24 3d 22 2e 22  |".m$=".":.m$="."|
000025e0  8c 62 24 2b 3d 22 2e 2e  22 0d 0f 33 0b 6d 24 3d  |.b$+=".."..3.m$=|
000025f0  c0 62 24 29 0d 0f 34 09  cd 3a 3d 6d 24 0d 0f 35  |.b$)..4..:=m$..5|
00002600  21 dd f2 4a 28 49 25 29  3a 21 45 25 3d 49 25 3a  |!..J(I%):!E%=I%:|
00002610  c8 99 26 34 30 30 43 36  2c 2c 45 25 3a e1 0d 0f  |..&400C6,,E%:...|
00002620  36 37 dd f2 54 28 49 25  29 3a 21 45 25 3d 49 25  |67..T(I%):!E%=I%|
00002630  3a c8 99 26 34 30 30 43  42 2c 2c 45 25 3a 45 25  |:..&400CB,,E%:E%|
00002640  21 32 38 3d 2d 31 3a c8  99 26 34 30 30 43 35 2c  |!28=-1:..&400C5,|
00002650  2c 45 25 3a e1 0d 0f 37  94 dd a4 5f 28 53 70 72  |,E%:...7..._(Spr|
00002660  24 2c 74 69 74 6c 65 24  2c 48 25 29 ea 6a 25 2c  |$,title$,H%).j%,|
00002670  63 25 2c 70 25 2c 45 79  25 3a 74 69 74 6c 65 24  |c%,p%,Ey%:title$|
00002680  3d a4 45 28 74 69 74 6c  65 24 29 3a 45 25 21 30  |=.E(title$):E%!0|
00002690  3d 2d 28 94 28 48 25 29  80 26 46 46 29 3a 45 25  |=-(.(H%).&FF):E%|
000026a0  21 34 3d 30 3a 45 25 21  38 3d 2d 31 36 3a 45 25  |!4=0:E%!8=-16:E%|
000026b0  21 26 43 3d 26 43 2b 31  36 2a a9 28 74 69 74 6c  |!&C=&C+16*.(titl|
000026c0  65 24 29 3a 45 25 21 31  36 3d 38 38 3a e7 45 25  |e$):E%!16=88:.E%|
000026d0  21 26 43 3c 26 43 2b 31  36 2a 34 8c 45 25 21 26  |!&C<&C+16*4.E%!&|
000026e0  43 3d 26 43 2b 31 36 2a  34 0d 0f 38 10 e7 74 69  |C=&C+16*4..8..ti|
000026f0  74 6c 65 24 3c 3e 22 22  8c 0d 0f 39 63 45 25 21  |tle$<>""...9cE%!|
00002700  32 30 3d 28 31 3c 3c 32  38 29 2b 28 37 3c 3c 32  |20=(1<<28)+(7<<2|
00002710  34 29 2b 28 33 3c 3c 26  43 29 2b 28 26 42 29 2b  |4)+(3<<&C)+(&B)+|
00002720  28 31 3c 3c 38 29 3a 45  25 21 32 34 3d a4 43 28  |(1<<8):E%!24=.C(|
00002730  74 69 74 6c 65 24 29 3a  45 25 21 32 38 3d a4 43  |title$):E%!28=.C|
00002740  28 22 53 22 2b 53 70 72  24 29 3a 45 25 21 33 32  |("S"+Spr$):E%!32|
00002750  3d a9 28 74 69 74 6c 65  24 29 2b 31 0d 0f 3a 36  |=.(title$)+1..:6|
00002760  cc 3a 45 25 21 32 30 3d  28 31 3c 3c 32 38 29 2b  |.:E%!20=(1<<28)+|
00002770  28 37 3c 3c 32 34 29 2b  28 33 3c 3c 26 43 29 2b  |(7<<24)+(3<<&C)+|
00002780  28 32 36 29 3a 24 28 45  25 2b 32 34 29 3d 53 70  |(26):$(E%+24)=Sp|
00002790  72 24 0d 0f 3b 68 cd 3a  c8 99 26 34 30 30 45 39  |r$..;h.:..&400E9|
000027a0  2c 32 39 36 2c 2c c0 53  70 72 24 2c a7 53 70 72  |,296,,.Spr$,.Spr|
000027b0  24 2b 22 2c 22 2c 22 2c  22 29 29 b8 2c 2c 2c 63  |$+",",",")).,,,c|
000027c0  25 2c 70 25 3a c8 99 26  32 30 30 33 35 2c 70 25  |%,p%:..&20035,p%|
000027d0  2c 34 b8 2c 2c 45 79 25  3a 63 25 3d 28 63 25 2b  |,4.,,Ey%:c%=(c%+|
000027e0  31 29 3c 3c 45 79 25 3a  e7 63 25 3e 45 25 21 26  |1)<<Ey%:.c%>E%!&|
000027f0  43 8c 45 25 21 26 43 3d  63 25 0d 0f 3c 41 e7 28  |C.E%!&C=c%..<A.(|
00002800  94 28 48 25 29 80 26 46  46 29 3d 33 84 28 94 28  |.(H%).&FF)=3.(.(|
00002810  48 25 29 80 26 46 46 29  3d 34 8c 48 25 3d 94 28  |H%).&FF)=4.H%=.(|
00002820  48 25 29 3e 3e 38 8b 48  25 3d 28 94 28 48 25 29  |H%)>>8.H%=(.(H%)|
00002830  80 26 46 46 30 30 29 3c  3c 31 36 0d 0f 3d 19 c8  |.&FF00)<<16..=..|
00002840  99 26 34 30 30 43 32 2c  48 25 2c 45 25 b8 6a 25  |.&400C2,H%,E%.j%|
00002850  3a 3d 6a 25 0d 0f 3e 47  dd a4 4d 28 49 25 2c 59  |:=j%..>G..M(I%,Y|
00002860  25 29 3a 45 25 21 30 3d  49 25 3a 45 25 21 34 3d  |%):E%!0=I%:E%!4=|
00002870  59 25 3a c8 99 26 34 30  30 43 45 2c 2c 45 25 3a  |Y%:..&400CE,,E%:|
00002880  e7 28 28 45 25 21 32 34  29 80 32 35 36 29 3d 30  |.((E%!24).256)=0|
00002890  8c 3d a4 53 28 45 25 2b  32 38 29 0d 0f 3f 0e 3d  |.=.S(E%+28)..?.=|
000028a0  a4 53 28 45 25 21 32 38  29 0d 0f 40 a1 dd f2 45  |.S(E%!28)..@...E|
000028b0  28 49 25 2c 59 25 2c 74  65 78 74 24 29 ea 58 25  |(I%,Y%,text$).X%|
000028c0  3a 74 65 78 74 24 3d a4  45 28 74 65 78 74 24 29  |:text$=.E(text$)|
000028d0  3a c8 99 26 34 30 30 44  33 2c 2c 45 25 3a 58 25  |:..&400D3,,E%:X%|
000028e0  3d 28 21 45 25 3d 49 25  29 80 28 59 25 3d 45 25  |=(!E%=I%).(Y%=E%|
000028f0  21 34 29 3a 45 25 21 30  3d 49 25 3a 45 25 21 34  |!4):E%!0=I%:E%!4|
00002900  3d 59 25 3a c8 99 26 34  30 30 43 45 2c 2c 45 25  |=Y%:..&400CE,,E%|
00002910  3a e7 28 28 45 25 21 32  34 29 80 32 35 36 29 3d  |:.((E%!24).256)=|
00002920  30 8c 85 26 38 30 33 2c  22 49 63 6f 6e 20 69 73  |0..&803,"Icon is|
00002930  6e 27 74 20 69 6e 64 69  72 65 63 74 65 64 20 28  |n't indirected (|
00002940  23 22 2b c3 59 25 2b 22  29 22 0d 0f 41 16 e7 a4  |#"+.Y%+")"..A...|
00002950  53 28 45 25 21 32 38 29  3c 3e 74 65 78 74 24 8c  |S(E%!28)<>text$.|
00002960  0d 0f 42 4c e7 a9 28 74  65 78 74 24 29 3c 45 25  |..BL..(text$)<E%|
00002970  21 33 36 8c 24 28 45 25  21 32 38 29 3d 74 65 78  |!36.$(E%!28)=tex|
00002980  74 24 8b 85 26 38 30 33  2c 22 54 65 78 74 20 74  |t$..&803,"Text t|
00002990  6f 6f 20 6c 6f 6e 67 20  66 6f 72 20 69 63 6f 6e  |oo long for icon|
000029a0  20 28 23 22 2b c3 59 25  2b 22 29 22 0d 0f 43 5f  | (#"+.Y%+")"..C_|
000029b0  21 45 25 3d 49 25 3a 45  25 21 34 3d 59 25 3a 45  |!E%=I%:E%!4=Y%:E|
000029c0  25 21 38 3d 30 3a 45 25  21 26 43 3d 30 3a c8 99  |%!8=0:E%!&C=0:..|
000029d0  26 34 30 30 43 44 2c 2c  45 25 3a e7 58 25 80 28  |&400CD,,E%:.X%.(|
000029e0  45 25 21 32 34 80 31 29  3d 31 8c c8 99 26 34 30  |E%!24.1)=1...&40|
000029f0  30 44 32 2c 49 25 2c 59  25 2c 2d 31 2c 2d 31 2c  |0D2,I%,Y%,-1,-1,|
00002a00  2d 31 2c a9 28 74 65 78  74 24 29 0d 0f 44 07 cd  |-1,.(text$)..D..|
00002a10  3a e1 0d 0f 45 4d dd f2  6e 28 55 2c 4e 2c 58 29  |:...EM..n(U,N,X)|
00002a20  3a ea 4c 2c 50 2c 68 65  6c 70 24 2c 48 2c 61 24  |:.L,P,help$,H,a$|
00002a30  2c 6d 24 2c 6d 32 24 2c  6d 68 24 3a 48 3d a3 3a  |,m$,m2$,mh$:H=.:|
00002a40  4c 3d 2d 31 3a f5 3a f3  50 2c 68 65 6c 70 24 3a  |L=-1:.:.P,help$:|
00002a50  e7 50 3e 28 31 3c 3c 31  36 29 84 50 3c 30 8c 0d  |.P>(1<<16).P<0..|
00002a60  0f 46 09 e7 4c 3d 55 8c  0d 0f 47 17 50 3d 4e 3a  |.F..L=U...G.P=N:|
00002a70  68 65 6c 70 24 3d 22 22  3a 6d 32 24 3d 6d 24 0d  |help$="":m2$=m$.|
00002a80  0f 48 12 cc 3a 4c 3d 50  3a 6d 24 3d 68 65 6c 70  |.H..:L=P:m$=help|
00002a90  24 0d 0f 49 05 cd 0d 0f  4a 0f cd 3a e7 50 3d 4e  |$..I....J..:.P=N|
00002aa0  80 4c 3d 55 8c 0d 0f 4b  13 e7 4e 3d 2d 31 84 68  |.L=U...K..N=-1.h|
00002ab0  65 6c 70 24 3d 22 22 8c  0d 0f 4c 15 f2 53 28 a4  |elp$=""...L..S(.|
00002ac0  45 28 6d 24 29 2b 22 7c  4d 22 2c 58 29 0d 0f 4d  |E(m$)+"|M",X)..M|
00002ad0  30 cc 3a 6d 24 3d a4 45  28 6d 24 29 3a e7 a7 6d  |0.:m$=.E(m$):..m|
00002ae0  24 2c 22 7c 4d 22 29 3e  30 8c 6d 24 3d c0 6d 24  |$,"|M")>0.m$=.m$|
00002af0  2c a7 6d 24 2c 22 7c 4d  22 29 2d 31 29 0d 0f 4e  |,.m$,"|M")-1)..N|
00002b00  1f f2 53 28 a4 45 28 6d  24 29 2b 22 7c 4d 22 2b  |..S(.E(m$)+"|M"+|
00002b10  a4 45 28 68 65 6c 70 24  29 2c 58 29 0d 0f 4f 09  |.E(help$),X)..O.|
00002b20  cd 3a 48 3d b9 0d 0f 50  1a cd 3a fd 68 65 6c 70  |.:H=...P..:.help|
00002b30  24 3d 22 2d 31 22 84 48  3d b9 3a e7 ac 48 8c 0d  |$="-1".H=.:..H..|
00002b40  0f 51 36 21 4d 25 3d 2d  31 3a 4d 25 21 34 3d 2d  |.Q6!M%=-1:M%!4=-|
00002b50  31 3a 4d 25 21 38 3d 2d  31 3a c8 99 26 34 30 30  |1:M%!8=-1:..&400|
00002b60  46 34 2c 31 2c 4d 25 2c  55 2c 4e 3a e7 21 4d 25  |F4,1,M%,U,N:.!M%|
00002b70  3c 3e 2d 31 8c 0d 0f 52  6b 50 3d 45 25 3a 45 25  |<>-1...RkP=E%:E%|
00002b80  3d 4d 25 3a 6d 68 24 3d  a4 58 28 4e 25 29 3a 45  |=M%:mh$=.X(N%):E|
00002b90  25 3d 50 3a 6d 24 3d 6d  68 24 3a c8 95 a7 6d 24  |%=P:m$=mh$:...m$|
00002ba0  2c 22 20 22 29 3e 30 3a  c1 6d 24 2c a7 6d 24 2c  |," ")>0:.m$,.m$,|
00002bb0  22 20 22 29 2c 31 29 3d  22 5f 22 3a ce 3a 68 65  |" "),1)="_":.:he|
00002bc0  6c 70 24 3d a4 44 28 22  48 4d 22 2b 6d 24 29 3a  |lp$=.D("HM"+m$):|
00002bd0  e7 68 65 6c 70 24 3c 3e  22 48 4d 22 2b 6d 24 8c  |.help$<>"HM"+m$.|
00002be0  0d 0f 53 0f f2 53 28 68  65 6c 70 24 2c 58 29 0d  |..S..S(help$,X).|
00002bf0  0f 54 36 cc 3a f5 3a f3  6d 24 2c 50 2c 68 65 6c  |.T6.:.:.m$,P,hel|
00002c00  70 24 2c 68 65 6c 70 24  3a fd a0 28 6d 24 29 3d  |p$,help$:..(m$)=|
00002c10  4e 25 84 6d 24 3d 22 2d  32 22 3a e7 6d 24 3c 3e  |N%.m$="-2":.m$<>|
00002c20  22 2d 32 22 8c 0d 0f 55  0a e7 50 3e 2d 31 8c 0d  |"-2"...U..P>-1..|
00002c30  0f 56 13 f2 53 28 68 65  6c 70 24 2c 58 29 3a 48  |.V..S(help$,X):H|
00002c40  3d b9 0d 0f 57 27 cc 3a  f5 3a f3 4c 2c 6d 24 2c  |=...W'.:.:.L,m$,|
00002c50  50 2c 68 65 6c 70 24 3a  e7 bb 28 6d 24 29 3d 30  |P,help$:..(m$)=0|
00002c60  80 6d 24 3c 3e 22 30 22  8c 0d 0f 58 1b e7 6d 68  |.m$<>"0"...X..mh|
00002c70  24 3d 6d 24 8c f2 53 28  68 65 6c 70 24 2c 58 29  |$=m$..S(help$,X)|
00002c80  3a 48 3d b9 0d 0f 59 20  cc 3a e7 4c 3d 4d 25 21  |:H=...Y .:.L=M%!|
00002c90  30 80 bb 28 6d 24 29 3d  4d 25 21 34 80 50 3d 4d  |0..(m$)=M%!4.P=M|
00002ca0  25 21 38 8c 0d 0f 5a 13  f2 53 28 68 65 6c 70 24  |%!8...Z..S(help$|
00002cb0  2c 58 29 3a 48 3d b9 0d  0f 5b 05 cd 0d 0f 5c 17  |,X):H=...[....\.|
00002cc0  cd 3a fd 48 3d b9 84 4c  3d 2d 32 84 4c 3e 26 38  |.:.H=..L=-2.L>&8|
00002cd0  30 30 30 0d 0f 5d 05 cd  0d 0f 5e 05 cd 0d 0f 5f  |000..]....^...._|
00002ce0  05 cd 0d 0f 60 05 cd 0d  0f 61 07 cd 3a e1 0d 0f  |....`....a..:...|
00002cf0  62 3c dd f2 53 28 68 65  6c 70 24 2c 58 29 68 65  |b<..S(help$,X)he|
00002d00  6c 70 24 3d a4 45 28 68  65 6c 70 24 29 3a e7 c2  |lp$=.E(help$):..|
00002d10  68 65 6c 70 24 2c 32 29  3c 3e 22 7c 4d 22 8c 68  |help$,2)<>"|M".h|
00002d20  65 6c 70 24 2b 3d 22 7c  4d 22 0d 0f 63 75 ea 62  |elp$+="|M"..cu.b|
00002d30  24 2c 63 24 3a 68 65 6c  70 24 3d a4 51 28 68 65  |$,c$:help$=.Q(he|
00002d40  6c 70 24 29 3a c8 95 a7  68 65 6c 70 24 2c 22 7c  |lp$):...help$,"||
00002d50  4d 22 29 3e 30 3a 62 24  3d c0 68 65 6c 70 24 2c  |M")>0:b$=.help$,|
00002d60  a7 68 65 6c 70 24 2c 22  7c 4d 22 29 2d 31 29 3a  |.help$,"|M")-1):|
00002d70  68 65 6c 70 24 3d c1 68  65 6c 70 24 2c a9 28 62  |help$=.help$,.(b|
00002d80  24 29 2b 33 29 3a e7 a7  22 21 2e 3f 22 2c c2 62  |$)+3):.."!.?",.b|
00002d90  24 2c 31 29 29 3d 30 8c  62 24 2b 3d 22 2e 22 0d  |$,1))=0.b$+=".".|
00002da0  0f 64 68 63 24 2b 3d 62  24 2b 22 7c 4d 22 3a ce  |.dhc$+=b$+"|M":.|
00002db0  3a 45 25 21 26 43 3d 45  25 21 38 3a 45 25 21 34  |:E%!&C=E%!8:E%!4|
00002dc0  3d 58 3a 45 25 21 31 36  3d 26 35 30 33 3a 24 28  |=X:E%!16=&503:$(|
00002dd0  45 25 2b 32 30 29 3d 63  24 2b bd 30 3a 45 25 21  |E%+20)=c$+.0:E%!|
00002de0  30 3d 32 30 2b 28 a9 28  63 24 29 2b 34 29 80 2d  |0=20+(.(c$)+4).-|
00002df0  34 3a c8 99 26 34 30 30  45 37 2c 31 37 2c 45 25  |4:..&400E7,17,E%|
00002e00  2c 45 25 21 34 3a e1 0d  0f 65 35 dd f2 63 ea 63  |,E%!4:...e5..c.c|
00002e10  2c 49 3a e7 47 25 3c 3e  2d 31 8c 85 26 38 30 33  |,I:.G%<>-1..&803|
00002e20  2c 22 4d 65 73 73 61 67  65 20 66 69 6c 65 20 61  |,"Message file a|
00002e30  6c 72 65 61 64 79 20 6f  70 65 6e 22 0d 0f 66 3d  |lready open"..f=|
00002e40  c8 99 26 34 31 35 30 30  2c 2c 41 70 70 64 69 72  |..&41500,,Appdir|
00002e50  24 2b 22 2e 4d 65 73 73  61 67 65 73 22 b8 63 2c  |$+".Messages".c,|
00002e60  2c 49 3a e7 28 63 80 31  29 3d 31 8c 56 25 3d 30  |,I:.(c.1)=1.V%=0|
00002e70  8b 56 25 3d a4 41 28 49  29 0d 0f 67 3c e7 56 25  |.V%=.A(I)..g<.V%|
00002e80  3d 2d 31 8c 85 26 38 30  33 2c 22 4e 6f 20 72 6f  |=-1..&803,"No ro|
00002e90  6f 6d 20 66 6f 72 20 73  65 63 6f 6e 64 61 72 79  |om for secondary|
00002ea0  20 4d 65 73 73 61 67 65  54 72 61 6e 73 20 62 75  | MessageTrans bu|
00002eb0  66 66 65 72 22 0d 0f 68  4b 47 25 3d a4 41 28 31  |ffer"..hKG%=.A(1|
00002ec0  36 29 3a e7 47 25 3d 2d  31 8c f2 41 28 56 25 29  |6):.G%=-1..A(V%)|
00002ed0  3a 85 26 38 30 33 2c 22  4e 6f 20 72 6f 6f 6d 20  |:.&803,"No room |
00002ee0  66 6f 72 20 70 72 69 6d  61 72 79 20 4d 65 73 73  |for primary Mess|
00002ef0  61 67 65 54 72 61 6e 73  20 62 75 66 66 65 72 22  |ageTrans buffer"|
00002f00  0d 0f 69 28 c8 99 26 34  31 35 30 31 2c 47 25 2c  |..i(..&41501,G%,|
00002f10  41 70 70 64 69 72 24 2b  22 2e 4d 65 73 73 61 67  |Appdir$+".Messag|
00002f20  65 73 22 2c 56 25 3a e1  0d 0f 6a 24 dd f2 46 3a  |es",V%:...j$..F:|
00002f30  ea 85 3a ee 85 ea 3a ef  34 3a f6 3a f1 22 20 61  |..:...:.4:.:." a|
00002f40  74 20 22 3b 9e 3a 42 79  3d a5 3a e1 0d 0f 6b 0b  |t ";.:By=.:...k.|
00002f50  e7 47 25 3e 2d 31 8c 0d  0f 6c 1d c8 99 26 36 31  |.G%>-1...l...&61|
00002f60  35 30 34 2c 47 25 3a f2  41 28 47 25 29 3a f2 41  |504,G%:.A(G%):.A|
00002f70  28 56 25 29 0d 0f 6d 07  cd 3a e1 0d 0f 6e 2a dd  |(V%)..m..:...n*.|
00002f80  a4 44 28 74 24 29 ea 73  31 24 2c 73 32 24 2c 73  |.D(t$).s1$,s2$,s|
00002f90  33 24 2c 61 24 2c 69 25  2c 63 3a e7 47 25 3d 2d  |3$,a$,i%,c:.G%=-|
00002fa0  31 8c 3d 74 24 0d 0f 6f  57 61 24 3d c1 74 24 2c  |1.=t$..oWa$=.t$,|
00002fb0  a7 74 24 2b 22 3a 22 2c  22 3a 22 29 2b 31 29 3a  |.t$+":",":")+1):|
00002fc0  74 24 3d c0 74 24 2c a7  74 24 2b 22 3a 22 2c 22  |t$=.t$,.t$+":","|
00002fd0  3a 22 29 2d 31 29 3a 73  31 24 3d c0 61 24 2c a7  |:")-1):s1$=.a$,.|
00002fe0  61 24 2b 22 3a 22 2c 22  3a 22 29 2d 31 29 3a e7  |a$+":",":")-1):.|
00002ff0  c0 73 31 24 2c 31 29 3d  22 7c 22 8c 0d 0f 70 1c  |.s1$,1)="|"...p.|
00003000  73 31 24 3d c1 61 24 2c  32 29 3a 73 32 24 3d 22  |s1$=.a$,2):s2$="|
00003010  22 3a 73 33 24 3d 22 22  0d 0f 71 5f cc 3a 61 24  |":s3$=""..q_.:a$|
00003020  3d c1 61 24 2c a9 28 73  31 24 29 2b 32 29 3a 73  |=.a$,.(s1$)+2):s|
00003030  32 24 3d c0 61 24 2c a7  61 24 2b 22 3a 22 2c 22  |2$=.a$,.a$+":","|
00003040  3a 22 29 2d 31 29 3a e7  c0 73 32 24 2c 31 29 3d  |:")-1):..s2$,1)=|
00003050  22 7c 22 8c 73 32 24 3d  c1 61 24 2c 32 29 3a 73  |"|".s2$=.a$,2):s|
00003060  33 24 3d 22 22 8b 73 33  24 3d c1 61 24 2c a9 28  |3$="".s3$=.a$,.(|
00003070  73 32 24 29 2b 32 29 0d  0f 72 45 cd 3a c8 99 26  |s2$)+2)..rE.:..&|
00003080  36 31 35 30 32 2c 47 25  2c 74 24 2c 4d 25 2c 32  |61502,G%,t$,M%,2|
00003090  35 36 2c 73 31 24 2c 73  32 24 2c 73 33 24 b8 2c  |56,s1$,s2$,s3$.,|
000030a0  2c 2c 69 25 3b 63 3a e7  28 63 80 31 29 3d 31 8c  |,,i%;c:.(c.1)=1.|
000030b0  3d 74 24 8b 4d 25 3f 69  25 3d 26 44 0d 0f 73 0c  |=t$.M%?i%=&D..s.|
000030c0  3d a4 51 28 24 4d 25 29  0d 0f 74 25 dd a4 45 28  |=.Q($M%)..t%..E(|
000030d0  61 24 29 3a e7 c0 61 24  2c 31 29 3d 22 3e 22 8c  |a$):..a$,1)=">".|
000030e0  61 24 3d a4 44 28 c1 61  24 2c 32 29 29 0d 0f 75  |a$=.D(.a$,2))..u|
000030f0  07 3d 61 24 0d 0f 76 18  dd a4 53 28 73 25 29 ea  |.=a$..v...S(s%).|
00003100  61 24 3a e7 73 25 3d 30  8c 3d 22 22 0d 0f 77 2f  |a$:.s%=0.=""..w/|
00003110  c8 95 3f 73 25 3e 33 31  80 a9 28 61 24 29 3c 26  |..?s%>31..(a$)<&|
00003120  46 46 3a 61 24 3d 61 24  2b bd 3f 73 25 3a 73 25  |FF:a$=a$+.?s%:s%|
00003130  3d 73 25 2b 31 3a ce 3a  3d 61 24 0d 0f 78 4a dd  |=s%+1:.:=a$..xJ.|
00003140  a4 4b 28 61 24 29 ea 63  24 2c 62 24 2c 52 3a e3  |.K(a$).c$,b$,R:.|
00003150  52 3d 31 b8 a9 28 61 24  29 3a 63 24 3d c1 61 24  |R=1..(a$):c$=.a$|
00003160  2c 52 2c 31 29 3a e7 63  24 3e 3d 22 41 22 80 63  |,R,1):.c$>="A".c|
00003170  24 3c 3d 22 5a 22 8c 63  24 3d bd 28 97 28 63 24  |$<="Z".c$=.(.(c$|
00003180  29 2b 33 32 29 0d 0f 79  10 62 24 2b 3d 63 24 3a  |)+32)..y.b$+=c$:|
00003190  ed 3a 3d 62 24 0d 0f 7a  53 dd a4 4f 28 66 24 29  |.:=b$..zS..O(f$)|
000031a0  3a c8 95 c2 66 24 2c 31  29 3d 22 20 22 84 c2 66  |:...f$,1)=" "..f|
000031b0  24 2c 31 29 3d bd 39 3a  66 24 3d c0 66 24 29 3a  |$,1)=.9:f$=.f$):|
000031c0  ce 3a c8 95 c0 66 24 2c  31 29 3d 22 20 22 84 c0  |.:...f$,1)=" "..|
000031d0  66 24 2c 31 29 3d bd 39  3a 66 24 3d c1 66 24 2c  |f$,1)=.9:f$=.f$,|
000031e0  32 29 3a ce 3a 3d 66 24  0d 0f 7b 1d dd a4 51 28  |2):.:=f$..{...Q(|
000031f0  61 24 29 3a ea 62 24 2c  64 24 3a ea 85 3a ee 85  |a$):.b$,d$:..:..|
00003200  ea 3a 3d 61 24 0d 0f 7c  5b c8 95 a7 61 24 2c 22  |.:=a$..|[...a$,"|
00003210  a4 22 29 3e 30 3a 62 24  3d c1 61 24 2c a7 61 24  |.")>0:b$=.a$,.a$|
00003220  2c 22 a4 22 29 2b 31 29  3a 62 24 3d c0 62 24 2c  |,".")+1):b$=.b$,|
00003230  a7 62 24 2c 22 a4 22 29  2d 31 29 3a 64 24 3d 62  |.b$,".")-1):d$=b|
00003240  24 3a e7 c2 64 24 2c 31  29 3c 3e 22 24 22 8c 64  |$:..d$,1)<>"$".d|
00003250  24 3d 22 53 54 52 24 28  22 2b 64 24 2b 22 29 22  |$="STR$("+d$+")"|
00003260  0d 0f 7d 38 61 24 3d c0  61 24 2c a7 61 24 2c 22  |..}8a$=.a$,.a$,"|
00003270  a4 22 29 2d 31 29 2b a0  28 64 24 29 2b c1 61 24  |.")-1)+.(d$)+.a$|
00003280  2c a7 61 24 2c 22 a4 22  29 2b a9 28 62 24 29 2b  |,.a$,".")+.(b$)+|
00003290  32 29 3a ce 3a 3d 61 24  0d 0f 7e 2d dd a4 56 28  |2):.:=a$..~-..V(|
000032a0  66 24 29 ea 72 24 3a e7  a7 66 24 2c 22 3a 22 29  |f$).r$:..f$,":")|
000032b0  3e 30 8c 66 24 3d c1 66  24 2c a7 66 24 2c 22 3a  |>0.f$=.f$,.f$,":|
000032c0  22 29 2b 31 29 0d 0f 7f  0f c8 8e a7 66 24 2c 22  |")+1).......f$,"|
000032d0  2e 22 29 ca 0d 0f 80 0c  c9 30 3a 72 24 3d 66 24  |.")......0:r$=f$|
000032e0  0d 0f 81 1f 7f 72 24 3d  a4 56 28 c2 66 24 2c a9  |.....r$=.V(.f$,.|
000032f0  28 66 24 29 2d a7 66 24  2c 22 2e 22 29 29 29 0d  |(f$)-.f$,"."))).|
00003300  0f 82 09 cb 3a 3d 72 24  0d 0f 83 39 dd a4 42 28  |....:=r$...9..B(|
00003310  66 24 29 3a c8 99 26 32  30 30 32 39 2c 33 37 2c  |f$):..&20029,37,|
00003320  66 24 2c 4d 25 2c 2c 2c  32 35 36 b8 2c 2c 66 24  |f$,M%,,,256.,,f$|
00003330  3b 51 3a e7 28 51 80 31  29 3d 31 8c 66 24 3d 22  |;Q:.(Q.1)=1.f$="|
00003340  22 0d 0f 84 07 3d 66 24  0d 0f 85 21 dd f2 58 28  |"....=f$...!..X(|
00003350  55 2c 4e 29 3a f2 66 28  55 2c 4e 2c a9 28 a4 4d  |U,N):.f(U,N,.(.M|
00003360  28 55 2c 4e 29 29 29 3a  e1 0d 0f 86 28 dd f2 66  |(U,N))):....(..f|
00003370  28 55 2c 4e 2c 5a 79 29  3a c8 99 26 34 30 30 44  |(U,N,Zy):..&400D|
00003380  32 2c 55 2c 4e 2c 30 2c  30 2c 2d 31 2c 5a 79 3a  |2,U,N,0,0,-1,Zy:|
00003390  e1 0d 0f 87 19 dd f2 64  3a 46 3d 30 3a 4b 3d 30  |.......d:F=0:K=0|
000033a0  3a 45 3d 30 3a 53 3d 30  3a e1 0d 0f 88 1f dd f2  |:E=0:S=0:.......|
000033b0  72 28 74 69 74 6c 65 24  29 3a f2 7a 3a f2 5f 28  |r(title$):.z:._(|
000033c0  74 69 74 6c 65 24 29 3a  e1 0d 0f 89 49 dd f2 7a  |title$):....I..z|
000033d0  3a ea 72 25 3a c8 95 46  3c 3e 30 3a 72 25 3d 21  |:.r%:..F<>0:r%=!|
000033e0  46 3a f2 41 28 46 29 3a  46 3d 72 25 3a ce 3a c8  |F:.A(F):F=r%:.:.|
000033f0  95 53 3c 3e 30 3a 72 25  3d 21 53 3a f2 41 28 53  |.S<>0:r%=!S:.A(S|
00003400  29 3a 53 3d 72 25 3a ce  3a 4b 3d 30 3a 45 3d 30  |):S=r%:.:K=0:E=0|
00003410  3a e1 0d 0f 8a 88 dd f2  5f 28 74 69 74 6c 65 24  |:......._(title$|
00003420  29 3a ea 54 25 3a 54 25  3d a4 41 28 38 29 3a 21  |):.T%:T%=.A(8):!|
00003430  54 25 3d 53 3a 54 25 21  34 3d 45 3a 53 3d 54 25  |T%=S:T%!4=E:S=T%|
00003440  3a 45 3d a4 41 28 2d 33  36 29 2b 38 3a 45 21 2d  |:E=.A(-36)+8:E!-|
00003450  34 3d 32 38 3a 24 45 3d  c0 74 69 74 6c 65 24 2c  |4=28:$E=.title$,|
00003460  26 42 29 3a 45 21 26 43  3d 26 37 30 32 30 37 3a  |&B):E!&C=&70207:|
00003470  45 21 31 36 3d a9 28 c0  74 69 74 6c 65 24 2c 26  |E!16=.(.title$,&|
00003480  42 29 29 2a 31 36 2b 31  36 3a 45 21 32 30 3d 34  |B))*16+16:E!20=4|
00003490  34 3a 45 21 32 34 3d 30  3a e1 0d 0f 8b 18 dd a4  |4:E!24=0:.......|
000034a0  54 3a ea 79 25 2c 54 25  3a e7 45 21 2d 34 3d 32  |T:.y%,T%:.E!-4=2|
000034b0  38 8c 0d 0f 8c 4d 45 3d  a4 4a 28 45 2d 38 2c 32  |8....ME=.J(E-8,2|
000034c0  34 29 2b 38 3a 45 21 32  38 3d 30 3a 45 21 33 32  |4)+8:E!28=0:E!32|
000034d0  3d 2d 31 3a 45 21 33 36  3d 26 37 34 30 30 30 32  |=-1:E!36=&740002|
000034e0  31 3a 24 28 45 2b 34 30  29 3d 22 4e 6f 6e 65 22  |1:$(E+40)="None"|
000034f0  3a 45 21 2d 34 3d 28 45  21 2d 34 29 2b 32 34 0d  |:E!-4=(E!-4)+24.|
00003500  0f 8d 59 cd 3a 45 21 28  28 45 21 2d 34 29 2d 32  |..Y.:E!((E!-4)-2|
00003510  34 29 3d 45 21 28 28 45  21 2d 34 29 2d 32 34 29  |4)=E!((E!-4)-24)|
00003520  84 26 38 30 3a 45 21 2d  38 3d 46 3a 46 3d 45 2d  |.&80:E!-8=F:F=E-|
00003530  38 3a 79 25 3d 45 3a 45  3d 53 21 34 3a 54 25 3d  |8:y%=E:E=S!4:T%=|
00003540  21 53 3a f2 41 28 53 29  3a 53 3d 54 25 3a e7 54  |!S:.A(S):S=T%:.T|
00003550  25 3d 30 8c 4b 3d 79 25  0d 0f 8e 07 3d 79 25 0d  |%=0.K=y%....=y%.|
00003560  0f 8f 43 dd a4 50 28 69  74 65 6d 24 29 3a ea 64  |..C..P(item$):.d|
00003570  25 3a 64 25 3d a4 41 28  a9 28 69 74 65 6d 24 29  |%:d%=.A(.(item$)|
00003580  2b 35 29 3a 24 28 64 25  2b 34 29 3d 69 74 65 6d  |+5):$(d%+4)=item|
00003590  24 3a 21 64 25 3d 46 3a  46 3d 64 25 3a 3d 64 25  |$:!d%=F:F=d%:=d%|
000035a0  2b 34 0d 0f 90 88 dd f2  56 28 69 74 65 6d 24 2c  |+4......V(item$,|
000035b0  73 70 72 69 74 65 24 2c  41 79 25 29 3a ea 43 25  |sprite$,Ay%):.C%|
000035c0  3a 45 3d a4 4a 28 45 2d  38 2c 32 34 29 2b 38 3a  |:E=.J(E-8,24)+8:|
000035d0  43 25 3d 45 21 2d 34 3a  45 21 28 43 25 29 3d 41  |C%=E!-4:E!(C%)=A|
000035e0  79 25 80 26 46 3a 45 21  28 43 25 2b 34 29 3d 2d  |y%.&F:E!(C%+4)=-|
000035f0  31 3a 45 21 28 43 25 2b  38 29 3d 26 37 30 30 30  |1:E!(C%+8)=&7000|
00003600  31 32 31 3a e7 28 41 79  25 80 31 36 29 3d 31 36  |121:.(Ay%.16)=16|
00003610  8c 45 21 28 43 25 2b 38  29 3d 45 21 28 43 25 2b  |.E!(C%+8)=E!(C%+|
00003620  38 29 84 28 31 3c 3c 32  32 29 0d 0f 91 3a 45 21  |8).(1<<22)...:E!|
00003630  28 43 25 2b 26 43 29 3d  a4 50 28 69 74 65 6d 24  |(C%+&C)=.P(item$|
00003640  29 3a 45 21 28 43 25 2b  32 30 29 3d a9 28 69 74  |):E!(C%+20)=.(it|
00003650  65 6d 24 29 2b 31 3a e7  73 70 72 69 74 65 24 3c  |em$)+1:.sprite$<|
00003660  3e 22 22 8c 0d 0f 92 32  45 21 28 43 25 2b 31 36  |>""....2E!(C%+16|
00003670  29 3d a4 50 28 22 53 22  2b 73 70 72 69 74 65 24  |)=.P("S"+sprite$|
00003680  29 3a 45 21 28 43 25 2b  38 29 3d 45 21 28 43 25  |):E!(C%+8)=E!(C%|
00003690  2b 38 29 84 35 30 0d 0f  93 11 cc 3a 45 21 28 43  |+8).50.....:E!(C|
000036a0  25 2b 31 36 29 3d 30 0d  0f 94 1c cd 3a e7 a9 28  |%+16)=0.....:..(|
000036b0  69 74 65 6d 24 29 2b 31  3e 28 45 21 31 36 29 2f  |item$)+1>(E!16)/|
000036c0  31 36 8c 0d 0f 95 17 45  21 31 36 3d a9 28 69 74  |16.....E!16=.(it|
000036d0  65 6d 24 29 2a 31 36 2b  31 36 0d 0f 96 16 cd 3a  |em$)*16+16.....:|
000036e0  45 21 2d 34 3d 28 45 21  2d 34 29 2b 32 34 3a e1  |E!-4=(E!-4)+24:.|
000036f0  0d 0f 97 45 dd a4 59 3a  ea 50 25 3a 50 25 3d a4  |...E..Y:.P%:P%=.|
00003700  41 28 31 36 29 3a 21 50  25 3d 45 3a 50 25 21 34  |A(16):!P%=E:P%!4|
00003710  3d 4b 3a 50 25 21 38 3d  53 3a 50 25 21 26 43 3d  |=K:P%!8=S:P%!&C=|
00003720  46 3a 46 3d 30 3a 4b 3d  30 3a 45 3d 30 3a 53 3d  |F:F=0:K=0:E=0:S=|
00003730  30 3a 3d 50 25 0d 0f 98  13 dd f2 48 28 50 25 29  |0:=P%......H(P%)|
00003740  3a e7 50 25 3c 3e 30 8c  0d 0f 99 26 45 3d 21 50  |:.P%<>0....&E=!P|
00003750  25 3a 4b 3d 50 25 21 34  3a 53 3d 50 25 21 38 3a  |%:K=P%!4:S=P%!8:|
00003760  46 3d 50 25 21 26 43 3a  f2 41 28 50 25 29 0d 0f  |F=P%!&C:.A(P%)..|
00003770  9a 07 cd 3a e1 0d ff                              |...:...|
00003777