�>!RunImageC
0�Produced by BasCompress v1.30 (11 Oct 1992)
<V%=�:�H:�Y:��C:�4:�:�" at line ";�:�V%=���("Spool"):��
�V%=��*Spool Spooled
�V%=����
�Appname$="TextScan":s$="1.01C (12 Sep 1995)":_$="TextScan":a$="Search for string in text files":N$=�X(Appname$+"$Dir"):�z:�y:D%=�:��R:�TG@
+ȕD%=�:�P(1):�:ș&400dd:�C:�V%=��*SPOOL
�
	#��P(Fy):ș&400c7,Fy,E%�v%:Ȏv%�

�2:ș&400c5,,E%
�3:ș&400c6,,E%
�6:�X(E%!8,E%!12,E%!16)

�8:�t(E%!0,E%!4,E%!24)
	�9:�w
�17,18:�K(E%!16)
�:�
��X(Iy,A,M):ȎA�

�-2:ȎIy�
	�2:�x
�1,4:�Q��D(mainwin%)
�
�mainwin%:ȎM�

�9:�Q��g
<�12:S=�Z(mainwin%,12):�F(mainwin%,6,S):�F(mainwin%,11,S)
�
�:�
��t(A,M,Cy):�r:r=�:ȎA�
�mainwin%:ȎM�
�4:�X(4,A,9):r=�
�
�:�r�ș&400dc,Cy
 �
!,��w:ș&400cf,,Z%:b%=Z%!8:A$=�L(P%):ȎA$�
"�"Quit":D%=�
#�"Stop scan":Q=�
$5�"Configure...":E$=�X("Alias$ConfigPlus"):�E$=""�
%%*Filer_Run <TextScan$Dir>.Options
&P�:ș&400de,"ConfigPlus -Load <TextScan$Dir>.Config+.TextScan -Open TextScan"
'�
(�:�(b%�1)=1��s�P%=-1
)�
*��K(Vy):ȎVy�
+
�0:D%=�*2
,&�3:q=E%!40:�q=4096�q=8192�q=12288�
-OE%!12=E%!8:E%!16=4:ș&400e7,17,E%,E%!4:�E%!20<0��D(mainwin%)��T(mainwin%,3)
.�A(mainwin%,2,�A(E%+44))
/�
0�1282:�O(E%!32,E%!36,E%!4)
1�10:�f(E%!20)
2�:�
35��f(m%):�:��E%!12=E%!8:ș&400e7,19,E%,E%!4:��:�
4�#m%,"Run "+N$:�
5���z:�f%256:r%=0:�W(1282):�W(10):�W(0):ș&400c0,310,&4b534154,Appname$,f%�Dy,u:R%=1024:L%=1024:�E%2048,w%R%,S%L%,d%2048:P%=-1:�V:j%=�a(N$+".Sprites"):mainwin%=�U("Main",1):infobox%=�U("Info",1):�A(infobox%,1,"!"+Appname$):�A(infobox%,2,a$)
6s�A(infobox%,4,s$):f=�q("!"+Appname$,_$,1):U%=�_(Appname$+"|Info]>infobox%|Stop scan|Configure...|Quit"):e%=K%:�
7���y:�O 5*4:�i 8192:ș8,255,"<TextScan$Dir>.ScanFile",i:g=O:p=O+4:k=O+8:n=O+12:c=O+16:Q=�:h=�:Wy=�:S=�:F=.25:�G(U%,1,1):K=�R("<TextScan$Dir>.Options"):�K�
8U�A(mainwin%,2,�M("Path")):�A(mainwin%,4,�M("Throwback")):F=�Y("Poll"):�F<0�F=-1/F
9��B(mainwin%,6,�J("ScanData")):�B(mainwin%,11,�J("ScanObey")):�B(mainwin%,12,�J("ScanAll")):S=�Z(mainwin%,12):�F(mainwin%,6,S):�F(mainwin%,11,S):�d
:�:�
; ��O(A,M,J):��T|@:�a(A,M,J):�
<� infobox%,">HInfobox"
=� 3,">HInfobox3"
>� -2,">HIconbar"
?� mainwin%,">HMain"
@� 2,">HMainDir"
A� 3,">HMainString"
B� 4,">HMainEditor"
C� 9,">HMainScan"
D� 12,">HMainAll"
E� 11,">HMainObey"
F� 6,">HMainData"
G� -1,-1
H� -2,-2,-2,-2
I'ݤI(M$,W):�D:�v(M$):R=�H(M$):�R=-1�
J�J("File not found"):=0
K�:N=�F(R+1):�N=-1�
LK�U:�J("Could not process due to lack of memory"):�J("I need "+�D(R)):=0
MH�:ș8,255,M$,N:!p=N:!k=N+R:?(N+R)=0:!g=W:!n=1:!c=N:�:A%=g:y=�(i):�y�
N�q(!n,��A(!c),60)):D+=1
O�:�y=0:�M(N):�U:=D
P[��v(M$):!E%=24+((�(M$)+3)�-4):E%!12=0:E%!16=&42585:$(E%+20)=M$+�0:ș&400e7,17,E%,Z:�S:�
Qk��J(M$):!E%=32+((�(M$)+3)�-4):E%!12=0:E%!16=&42586:E%!24=0:E%!20=0:$(E%+28)=M$+�0:ș&400e7,17,E%,Z:�S:�
Ro��q(Gy,M$):!E%=32+((�(M$)+3)�-4):E%!12=0:E%!16=&42586:E%!24=0:E%!20=Gy:$(E%+28)=M$+�0:ș&400e7,17,E%,Z:�S:�
S9��c:!E%=20:E%!12=0:E%!16=&42580:ș&400e7,17,E%,Z:�S:�
T9��e:!E%=20:E%!12=0:E%!16=&42584:ș&400e7,17,E%,Z:�S:�
U#��g:Z=�V(�S(mainwin%,4)):�Z=-1�
VHSy=�P("Message from "+Appname$,"Cannot find Throwback handler",17):�
W��:Q=�:�G(U%,1,0):x=0:�_(mainwin%):�A(-2,f,"Working"):�c:C$=�S(mainwin%,3):h=�Z(mainwin%,6):o=�Z(mainwin%,11):S=�Z(mainwin%,12):ȕ�C$,1)="*"��C$,1)="#":C$=�C$,2):�:ȕ�C$,1)="*"��C$)="#":C$=�C$):�:Y=�F(�(C$)+2):$(Y)=C$+"*":D=�G(�S(mainwin%,2),Y):�M(Y)
X+�e:Q=�:�A(-2,f,"TextScan"):�G(U%,1,1):�
Y�ݤG(K$,W):�T%,D:D=0:ș12,10,K$,E%,1,0,256,"*"�,,,,T%:ȕT%<>-1�Q=�:x%=E%!16:c%=E%!0:u%=E%!4:b=E%!8:Ly=E%!12:q$=�A(E%+20):M$=K$+"."+q$:�x%=2�x%=3�
ZD+=�G(M$,W)
[F�:Y%=(c%�&fff00)>>8:�Y%=4095�(Y%=4093�h)�(Y%=4075�o)�S�D+=�I(M$,Y)
\,�:ș12,10,K$,E%,1,T%,256,"*"�,,,,T%:�:=D
]
��S:�F<1�
^x+=F:�x>1�
_�B=1�2/F:�P(0):�:x=0
`�
a�:�B=1�F:�P(0):�
b�:�
c)ݤD(E):ș236,E,Z%,256�,Ay:?Ay=13:=$Z%
7(��H:�Z%1024:z=-2:F%=-1:G%=-1:Py=-2:�
8��W(Uy)f%!r%=Uy:�
9�ݤU(R$,Q%)�z%,O%,y%:ș&400d9,,N$+".Templates":ș&400db,,0,,,,R$,0�,,z%:�O%z%:ș&400db,,d%,O%,O%+z%,-1,R$,0�,,,,,,y%:ș&400da:�y%=0��2051,"Template file "+R$+" not found"
: d%!64=Q%:ș&400c1,,d%�O%:=O%
;&ݤa(z$)�J%,a%,Q%:a%=�(z$):�a%=0�=1
<FJ%=�#a%+16:�#a%:�Q%J%:!Q%=J%:Q%!8=0:ș46,265,Q%:ș46,266,Q%,z$:=Q%
=5ݤX(e$)�b:ș&20023,e$,Z%,255,0,3�,,b:Z%?b=13:=$Z%
>F��R�d,Q$,N%:�:��:�C:�4:��0,�$+" at line "+Þ+" in error handler"
?ș6,124:�>2047��<2051�
@/d=�-2047:Q$=�$:�d=3�Q$+=" (Cancel to Quit)"
A'N%=�P(Appname$,Q$,d):�N%=2�d=3�D%=�
BW�:Q$="Internal error : ("+Þ+") "+�$+" Cancel to Quit":N%=�P(Appname$,Q$,3):�N%<>1�
C:D%=�:�("Set Error$ "+Q$):�("Set Error$Task "+Appname$)
D&�:�(-1)��(-2)��(-17)��("Spool"):�
E�:�
FOݤP(G$,T$,n%)G$=�E(G$):T$=�E(T$):$(Z%+4)=T$:!Z%=0:ș&400df,Z%,n%,G$�,N%:=N%
G�ݤ_(S$):�m,`,Ey,I,Ty,X$,L$:m=S%:I=0:S$+="|":�N(�Q(S$,L$)):�E(&70207):`=S%:�E(128):�E(40):�E(0):K%=0:�:X$=�Q(S$,L$):K%=K%+1:X=�K(L$,Ey,C$)+((-(S$=""))<<7):s=&7000021+((-(�(X$)>11))<<8)+(1<<14)*(X�256):�(X�4)<>0�s=s�256
H%�E(X�255):�E(Ey):�(X$)>I�I=�(X$)
I.�E(s):�I(X$,C$,(X�4)):�S$="":!`=I*16+16:=m
J)��I(B$,C$,My)�B$,1)="�"�B$=�(�B$,2))
K�(B$)<12�C$=""�My=0�
L
�N(B$)
M�:�E(�C(B$)):�C$<>""�
N6S%!-8=S%!-8�2051:�O(C$),2)="sm"�S%!-8=S%!-8�2048
O�E(�C("S"+C$))
P�:�E(-1)
Q�:�E(�(B$))
R�:�
SKݤQ(�S$,�L$):�P$:P$=�S$,�S$,"|")-1):S$=�S$,�(P$)+2):�P$,"]")<1�P$+="]"
T1L$=�P$,�P$,"]")+1):P$=�P$,�P$,"]")-1):=�E(P$)
U0��N(B$)�(B$)>11��2051,"Menu entry too long"
VC$S%=B$:S%+=12:L%-=12:�L%<=4��2051,"Not enough memory for menus"
W�
XI��E(W%):!S%=W%:S%+=4:L%-=4:�L%<=4��2051,"Not enough memory for menus"
Y�
Z]ݤK(S$,�Zy,�C$):�P$,L$,C:Zy=-1:C$="":S$=S$+",":ȕS$<>"":P$=�S$,1):S$=�S$,2):�P$="T"�C=C�1
[�P$="D"�C=C�2
\�P$="W"�C=C�4
]�P$="S"�C=C�256
^�P$=">"�
_,Zy=�(�S$,�S$,",")-1)):S$=�S$,�S$,",")+1)
`�:�P$="}"�
a-C$=�S$,�S$,",")-1)+" ":S$=�S$,�S$,",")+1)
b
�:�:=C
cFݤC(E$)�j:j=w%:�(E$)>R%-1��2051,"Not enough room for indirection"
d%$w%=E$:w%+=�(E$)+1:R%-=�(E$)+1:=j
eQ��x:ș&400cf,,E%:P%=U%:t%=E%!0-64:h%=96+40*e%:ș&400d4,,U%,E%!0-64,96+40*e%:�
f��s:ș&400d4,,P%,t%,h%:�
g!��G(U,Xy,Hy)U+=Xy*24+36:ȎHy�
h�0:!U=!U��(1<<22)
i�-1,1:!U=!U�(1<<22)
j�2:!U=!U�(1<<22)
k�:�
lWݤL(S%)�I%,W:I%=S%:W=0:ȕ(E%!W>-1�I%<>z):I%=I%!(32+(E%!W)*24):W+=4:�:�I%=z�E%!W<>0�
m'ș&400a0,,z,E%+W,�255,�0),255�,,,A$
n(�:ș&400d5,,S%,E%,�255,�0),255�,,,A$
o	�:=A$
p!��_(M%):!E%=M%:ș&400c6,,E%:�
q7��D(M%):!E%=M%:ș&400cb,,E%:E%!28=-1:ș&400c5,,E%:�
rqݤq(w$,G$,Ny)�u:G$=�E(G$):E%!0=-�(Ny):E%!4=0:E%!8=-16:E%!12=12+16*�(G$):E%!16=88:�E%!12<12+16*4�E%!12=12+16*4
s�G$<>""�
tYE%!20=(1<<28)+(7<<24)+(3<<12)+(11)+(1<<8):E%!24=�C(G$):E%!28=�C("S"+w$):E%!32=�(G$)+1
u4�:E%!20=(1<<28)+(7<<24)+(3<<12)+(26):$(E%+24)=w$
v�:ș&400c2,,E%�u:=u
w;ݤZ(M%,C%):!E%=M%:E%!4=C%:ș&400ce,,E%:=(E%!24>>21�1)>0
x#��F(M%,C%,s%):�L(M%,C%,22,s%):�
y#��B(M%,C%,s%):�L(M%,C%,21,s%):�
z!��L(M%,C%,H%,s%):�q%,_%:Ȏs%�
{�0:q%=0<<H%:_%=1<<H%
|�-1,1:q%=1<<H%:_%=1<<H%
}�2:q%=1<<H%:_%=0<<H%
~5�:E%!0=M%:E%!4=C%:E%!8=q%:E%!12=_%:ș&400cd,,E%:�
Y��b(M%,C%):M%+=M%=-1:!E%=M%:E%!4=C%:ș&400ce,,E%:ș&400d1,M%,E%!8,E%!12,E%!16,E%!20:�
�GݤS(M%,C%):E%!0=M%:E%!4=C%:ș&400ce,,E%:�((E%!24)�256)=0�=�A(E%+28)
�=�A(E%!28)
�q��A(M%,C%,D$)D$=�E(D$):E%!0=M%:E%!4=C%:ș&400ce,,E%:�((E%!24)�256)=0��2051,"Icon isn't indirected (#"+�C%+")"
��A(E%!28)<>D$�
�F�(D$)<E%!36�$(E%!28)=D$��2051,"Text too long for icon (#"+�C%+")"
�
�b(M%,C%)
��:�
�E��a(A,M,J):�P,E,Z$,G,E$,A$,x$,I$:G=�:P=-1:�:�E,Z$:�E>(1<<16)�E<0�
�	�P=A�
�E=M:Z$="":x$=A$
��:P=E:A$=Z$
��
��:�E=M�P=A�
��M=-1�Z$=""�
��Z(�E(A$)+"|M",J)
�0�:A$=�E(A$):�A$,"|M")>0�A$=�A$,�A$,"|M")-1)
��Z(�E(A$)+"|M"+�E(Z$),J)
�	�:G=�
��:�Z$="-1"�G=�:�G�
�6!Z%=-1:Z%!4=-1:Z%!8=-1:ș&400f4,1,Z%,A,M:�!Z%<>-1�
�iș&400d5,,P%,Z%,�255," ")�,,,I$:A$=I$:ȕ�A$," ")>0:�A$,�A$," "),1)="_":�:Z$=�N("HM"+A$):�Z$<>"HM"+A$�
��Z(Z$,J)
�0�:�:�A$,E,Z$,Z$:��(A$)=P%�A$="-2":�A$<>"-2"�
�
�E>-1�
��Z(Z$,J):G=�
�$�:�:�P,A$,E,Z$:�(A$)=0�A$<>"0"�
��I$=A$��Z(Z$,J):G=�
� �:�P=Z%!0��(A$)=Z%!4�E=Z%!8�
��Z(Z$,J):G=�
��
��:�G=��P=-2�P>32768
��
��
��
��
��:�
�-��Z(Z$,J)Z$=�E(Z$):��Z$,2)<>"|M"�Z$+="|M"
�`�F$,J$:Z$=�B(Z$):ȕ�Z$,"|M")>0:F$=�Z$,�Z$,"|M")-1):Z$=�Z$,�(F$)+3):�"!.?",�F$,1))=0�F$+="."
�hJ$+=F$+"|M":�:E%!12=E%!8:E%!4=J:E%!16=1283:$(E%+20)=J$+�0:E%!0=20+(�(J$)+4)�-4:ș&400e7,17,E%,E%!4:�
�5��V�L,I:�F%<>-1��2051,"Message file already open"
�8ș&41500,,N$+".Messages"�L,,I:�(L�1)=1�G%=0�G%=�F(I)
�<�G%=-1��2051,"No room for secondary MessageTrans buffer"
�KF%=�F(16):�F%=-1��M(G%):�2051,"No room for primary MessageTrans buffer"
�#ș&41501,F%,N$+".Messages",G%:�
�$��C:�:��:�4:�:�" at ";�:Jy=�:�
��F%>-1�
�ș&61504,F%:�M(F%):�M(G%)
��:�
�8ݤN(W$)�Y$,O$,V$,E$,J%,L:�F%=-1�=W$�W$+="::::":E$=W$
��E$=�E$,�E$,":")+1):W$=�W$,�W$,":")-1):Y$=�E$,�E$,":")-1):E$=�E$,�(Y$)+2):O$=�E$,�E$,":")-1):E$=�E$,�(O$)+2):V$=�E$,�E$,":")-1):E$=�E$,�(V$)+2):ș&61502,F%,W$,Z%,256,Y$,O$,V$�,,,J%;L:�(L�1)=1�=W$�Z%?J%=13
�=�B($Z%)
�%ݤE(E$):�E$,1)=">"�E$=�N(�E$,2))
�=E$
�5ݤA(a)�E$:ȕ?a>31��(E$)<255:E$=E$+�?a:a=a+1:�:=E$
�JݤO(E$)�J$,F$,B:�B=1��(E$):J$=�E$,B,1):�J$>="A"�J$<="Z"�J$=�(�(J$)+32)
�F$+=J$:�:=F$
�JݤW(E$)�J$,F$,B:�B=1��(E$):J$=�E$,B,1):�J$>="a"�J$<="z"�J$=�(�(J$)-32)
�F$+=J$:�:=F$
�ݤB(E$):�F$,U$:�:��:=E$
�[ȕ�E$,"�")>0:F$=�E$,�E$,"�")+1):F$=�F$,�F$,"�")-1):U$=F$:��U$,1)<>"$"�U$="STR$("+U$+")"
�8E$=�E$,�E$,"�")-1)+�(U$)+�E$,�E$,"�")+�(F$)+2):�:=E$
�=ݤH(M$)�J%,l,L:ș&20008,5,M$�l,,,,J%;L:�l=0�(L�1)=1�J%=-1
�=J%
�-ݤT(M$)�H$:�M$,":")>0�M$=�M$,�M$,":")+1)
�Ȏ�M$,".")�
��0:H$=M$
�H$=�T(�M$,�(M$)-�M$,".")))
�	�:=H$
�6ݤF(g%):�X:�g%<1��2051,"Cannot claim negative RMA"
�)ș&2001e,6,,,g%�,,X%;X:�(X�1)>0�X%=-1
�=X%
�#��M(�X%):�X%>0�ș30,7,,X%:X%=-1
��
�iݤV(E$):�Z,V,W$:ș&42681,,Z%,16�V:ȕV<>-1:Z=!Z%:W$=�A(Z%!4):ș&42681,V,Z%,16�V:�W$=E$�V=-1��V=-1�Z=-1
��:=Z
�!��T(A,M):�r(A,M,�(�S(A,M))):�
�(��r(A,M,Qy):ș&400d2,A,M,0,0,-1,Qy:�
���d:�#B%:�
� ݤR(M$)�E$:B%=�(M$):�B%=0�=�
�*M$=�M("Program"):�M$<>Appname$��#B%:=�
�=�
�+��Q(�E$,�F$):��#B%�E$="*E*N*D*":F$="":�
�E�E$=�#B%:��E$,1)<>"#":F$=�E$,�E$,":")+1):E$=�W(�E$,�E$,":")-1)):�
�/ݤM(E$):�F$,J$:E$=�W(E$):�Q(F$,J$):�E$<>F$�
�3�#B%=0:F$="":ȕE$<>F$�F$<>"*E*N*D*":�Q(F$,J$):�
�	�:=J$
�+ݤY(E$)E$=�M(E$):�E$,1)="%"�=�(�E$,2))
�=0
�,ݤJ(E$)E$=�M(E$):�E$="%1"��W(E$)="ON"�=�
�=�
ڌ��Y:ș81�T:H=T:_=�:t=2:By=0:ș&400ec,-1,-1�v:ș&400ec,v+H,-1:ș29,0,_,,H:ș29,2,_,,4*t+4�,,e:e+=4:e!-4=&434f4c52:�B=0�t*4-4�4:e!B=-1:�:�
�E��U:�w,K:w=H-_!8:ȕw>T:ș&2001d,5,_,,-T�;K:�(K�1)=1�w=0�H-=T:w-=T
�ș&600ec,v+H,-1�;K:�:�
�

00000000  0d 00 01 10 f4 3e 21 52  75 6e 49 6d 61 67 65 43  |.....>!RunImageC|
00000010  0d 00 02 30 f4 50 72 6f  64 75 63 65 64 20 62 79  |...0.Produced by|
00000020  20 42 61 73 43 6f 6d 70  72 65 73 73 20 76 31 2e  | BasCompress v1.|
00000030  33 30 20 28 31 31 20 4f  63 74 20 31 39 39 32 29  |30 (11 Oct 1992)|
00000040  0d 00 03 3c 56 25 3d a3  3a f2 48 3a f2 59 3a ee  |...<V%=.:.H:.Y:.|
00000050  85 f2 43 3a ef 34 3a f6  3a f1 22 20 61 74 20 6c  |..C:.4:.:." at l|
00000060  69 6e 65 20 22 3b 9e 3a  e7 56 25 3d b9 8c ff 28  |ine ";.:.V%=...(|
00000070  22 53 70 6f 6f 6c 22 29  3a e0 8b e0 0d 00 04 18  |"Spool"):.......|
00000080  e7 56 25 3d b9 8c 2a 53  70 6f 6f 6c 20 53 70 6f  |.V%=..*Spool Spo|
00000090  6f 6c 65 64 0d 00 05 0c  e7 56 25 3d b9 8c fc ee  |oled.....V%=....|
000000a0  0d 00 06 90 41 70 70 6e  61 6d 65 24 3d 22 54 65  |....Appname$="Te|
000000b0  78 74 53 63 61 6e 22 3a  73 24 3d 22 31 2e 30 31  |xtScan":s$="1.01|
000000c0  43 20 28 31 32 20 53 65  70 20 31 39 39 35 29 22  |C (12 Sep 1995)"|
000000d0  3a 5f 24 3d 22 54 65 78  74 53 63 61 6e 22 3a 61  |:_$="TextScan":a|
000000e0  24 3d 22 53 65 61 72 63  68 20 66 6f 72 20 73 74  |$="Search for st|
000000f0  72 69 6e 67 20 69 6e 20  74 65 78 74 20 66 69 6c  |ring in text fil|
00000100  65 73 22 3a 4e 24 3d a4  58 28 41 70 70 6e 61 6d  |es":N$=.X(Appnam|
00000110  65 24 2b 22 24 44 69 72  22 29 3a f2 7a 3a f2 79  |e$+"$Dir"):.z:.y|
00000120  3a 44 25 3d a3 3a ee 85  f2 52 3a e5 8d 54 47 40  |:D%=.:...R:..TG@|
00000130  0d 00 07 2b c8 95 44 25  3d a3 3a f2 50 28 31 29  |...+..D%=.:.P(1)|
00000140  3a ce 3a c8 99 26 34 30  30 64 64 3a f2 43 3a e7  |:.:..&400dd:.C:.|
00000150  56 25 3d b9 8c 2a 53 50  4f 4f 4c 0d 00 08 05 e0  |V%=..*SPOOL.....|
00000160  0d 00 09 23 dd f2 50 28  46 79 29 3a c8 99 26 34  |...#..P(Fy):..&4|
00000170  30 30 63 37 2c 46 79 2c  45 25 b8 76 25 3a c8 8e  |00c7,Fy,E%.v%:..|
00000180  76 25 ca 0d 00 0a 13 c9  32 3a c8 99 26 34 30 30  |v%......2:..&400|
00000190  63 35 2c 2c 45 25 0d 00  0b 13 c9 33 3a c8 99 26  |c5,,E%.....3:..&|
000001a0  34 30 30 63 36 2c 2c 45  25 0d 00 0c 1b c9 36 3a  |400c6,,E%.....6:|
000001b0  f2 58 28 45 25 21 38 2c  45 25 21 31 32 2c 45 25  |.X(E%!8,E%!12,E%|
000001c0  21 31 36 29 0d 00 0d 1a  c9 38 3a f2 74 28 45 25  |!16).....8:.t(E%|
000001d0  21 30 2c 45 25 21 34 2c  45 25 21 32 34 29 0d 00  |!0,E%!4,E%!24)..|
000001e0  0e 09 c9 39 3a f2 77 0d  00 0f 14 c9 31 37 2c 31  |...9:.w.....17,1|
000001f0  38 3a f2 4b 28 45 25 21  31 36 29 0d 00 10 07 cb  |8:.K(E%!16).....|
00000200  3a e1 0d 00 11 14 dd f2  58 28 49 79 2c 41 2c 4d  |:.......X(Iy,A,M|
00000210  29 3a c8 8e 41 ca 0d 00  12 0d c9 2d 32 3a c8 8e  |):..A......-2:..|
00000220  49 79 ca 0d 00 13 09 c9  32 3a f2 78 0d 00 14 19  |Iy......2:.x....|
00000230  c9 31 2c 34 3a e7 ac 51  8c f2 44 28 6d 61 69 6e  |.1,4:..Q..D(main|
00000240  77 69 6e 25 29 0d 00 15  05 cb 0d 00 16 12 c9 6d  |win%)..........m|
00000250  61 69 6e 77 69 6e 25 3a  c8 8e 4d ca 0d 00 17 0d  |ainwin%:..M.....|
00000260  c9 39 3a e7 ac 51 8c f2  67 0d 00 18 3c c9 31 32  |.9:..Q..g...<.12|
00000270  3a 53 3d a4 5a 28 6d 61  69 6e 77 69 6e 25 2c 31  |:S=.Z(mainwin%,1|
00000280  32 29 3a f2 46 28 6d 61  69 6e 77 69 6e 25 2c 36  |2):.F(mainwin%,6|
00000290  2c 53 29 3a f2 46 28 6d  61 69 6e 77 69 6e 25 2c  |,S):.F(mainwin%,|
000002a0  31 31 2c 53 29 0d 00 19  05 cb 0d 00 1a 07 cb 3a  |11,S)..........:|
000002b0  e1 0d 00 1b 1b dd f2 74  28 41 2c 4d 2c 43 79 29  |.......t(A,M,Cy)|
000002c0  3a ea 72 3a 72 3d a3 3a  c8 8e 41 ca 0d 00 1c 12  |:.r:r=.:..A.....|
000002d0  c9 6d 61 69 6e 77 69 6e  25 3a c8 8e 4d ca 0d 00  |.mainwin%:..M...|
000002e0  1d 14 c9 34 3a f2 58 28  34 2c 41 2c 39 29 3a 72  |...4:.X(4,A,9):r|
000002f0  3d b9 0d 00 1e 05 cb 0d  00 1f 15 cb 3a e7 ac 72  |=...........:..r|
00000300  8c c8 99 26 34 30 30 64  63 2c 43 79 0d 00 20 05  |...&400dc,Cy.. .|
00000310  e1 0d 00 21 2c dd f2 77  3a c8 99 26 34 30 30 63  |...!,..w:..&400c|
00000320  66 2c 2c 5a 25 3a 62 25  3d 5a 25 21 38 3a 41 24  |f,,Z%:b%=Z%!8:A$|
00000330  3d a4 4c 28 50 25 29 3a  c8 8e 41 24 ca 0d 00 22  |=.L(P%):..A$..."|
00000340  10 c9 22 51 75 69 74 22  3a 44 25 3d b9 0d 00 23  |.."Quit":D%=...#|
00000350  14 c9 22 53 74 6f 70 20  73 63 61 6e 22 3a 51 3d  |.."Stop scan":Q=|
00000360  a3 0d 00 24 35 c9 22 43  6f 6e 66 69 67 75 72 65  |...$5."Configure|
00000370  2e 2e 2e 22 3a 45 24 3d  a4 58 28 22 41 6c 69 61  |...":E$=.X("Alia|
00000380  73 24 43 6f 6e 66 69 67  50 6c 75 73 22 29 3a e7  |s$ConfigPlus"):.|
00000390  45 24 3d 22 22 8c 0d 00  25 25 2a 46 69 6c 65 72  |E$=""...%%*Filer|
000003a0  5f 52 75 6e 20 3c 54 65  78 74 53 63 61 6e 24 44  |_Run <TextScan$D|
000003b0  69 72 3e 2e 4f 70 74 69  6f 6e 73 0d 00 26 50 cc  |ir>.Options..&P.|
000003c0  3a c8 99 26 34 30 30 64  65 2c 22 43 6f 6e 66 69  |:..&400de,"Confi|
000003d0  67 50 6c 75 73 20 2d 4c  6f 61 64 20 3c 54 65 78  |gPlus -Load <Tex|
000003e0  74 53 63 61 6e 24 44 69  72 3e 2e 43 6f 6e 66 69  |tScan$Dir>.Confi|
000003f0  67 2b 2e 54 65 78 74 53  63 61 6e 20 2d 4f 70 65  |g+.TextScan -Ope|
00000400  6e 20 54 65 78 74 53 63  61 6e 22 0d 00 27 05 cd  |n TextScan"..'..|
00000410  0d 00 28 18 cb 3a e7 28  62 25 80 31 29 3d 31 8c  |..(..:.(b%.1)=1.|
00000420  f2 73 8b 50 25 3d 2d 31  0d 00 29 05 e1 0d 00 2a  |.s.P%=-1..)....*|
00000430  11 dd f2 4b 28 56 79 29  3a c8 8e 56 79 ca 0d 00  |...K(Vy):..Vy...|
00000440  2b 0d c9 30 3a 44 25 3d  b9 2a 32 0d 00 2c 26 c9  |+..0:D%=.*2..,&.|
00000450  33 3a 71 3d 45 25 21 34  30 3a e7 71 3d 34 30 39  |3:q=E%!40:.q=409|
00000460  36 84 71 3d 38 31 39 32  84 71 3d 31 32 32 38 38  |6.q=8192.q=12288|
00000470  8c 0d 00 2d 4f 45 25 21  31 32 3d 45 25 21 38 3a  |...-OE%!12=E%!8:|
00000480  45 25 21 31 36 3d 34 3a  c8 99 26 34 30 30 65 37  |E%!16=4:..&400e7|
00000490  2c 31 37 2c 45 25 2c 45  25 21 34 3a e7 45 25 21  |,17,E%,E%!4:.E%!|
000004a0  32 30 3c 30 8c f2 44 28  6d 61 69 6e 77 69 6e 25  |20<0..D(mainwin%|
000004b0  29 8b f2 54 28 6d 61 69  6e 77 69 6e 25 2c 33 29  |)..T(mainwin%,3)|
000004c0  0d 00 2e 1c f2 41 28 6d  61 69 6e 77 69 6e 25 2c  |.....A(mainwin%,|
000004d0  32 2c a4 41 28 45 25 2b  34 34 29 29 0d 00 2f 05  |2,.A(E%+44))../.|
000004e0  cd 0d 00 30 1e c9 31 32  38 32 3a f2 4f 28 45 25  |...0..1282:.O(E%|
000004f0  21 33 32 2c 45 25 21 33  36 2c 45 25 21 34 29 0d  |!32,E%!36,E%!4).|
00000500  00 31 11 c9 31 30 3a f2  66 28 45 25 21 32 30 29  |.1..10:.f(E%!20)|
00000510  0d 00 32 07 cb 3a e1 0d  00 33 35 dd f2 66 28 6d  |..2..:...35..f(m|
00000520  25 29 3a ea 85 3a ee 85  ea 45 25 21 31 32 3d 45  |%):..:...E%!12=E|
00000530  25 21 38 3a c8 99 26 34  30 30 65 37 2c 31 39 2c  |%!8:..&400e7,19,|
00000540  45 25 2c 45 25 21 34 3a  f7 85 3a e1 0d 00 34 14  |E%,E%!4:..:...4.|
00000550  d5 23 6d 25 2c 22 52 75  6e 20 22 2b 4e 24 3a e1  |.#m%,"Run "+N$:.|
00000560  0d 00 35 f2 dd f2 7a 3a  de 66 25 32 35 36 3a 72  |..5...z:.f%256:r|
00000570  25 3d 30 3a f2 57 28 31  32 38 32 29 3a f2 57 28  |%=0:.W(1282):.W(|
00000580  31 30 29 3a f2 57 28 30  29 3a c8 99 26 34 30 30  |10):.W(0):..&400|
00000590  63 30 2c 33 31 30 2c 26  34 62 35 33 34 31 35 34  |c0,310,&4b534154|
000005a0  2c 41 70 70 6e 61 6d 65  24 2c 66 25 b8 44 79 2c  |,Appname$,f%.Dy,|
000005b0  75 3a 52 25 3d 31 30 32  34 3a 4c 25 3d 31 30 32  |u:R%=1024:L%=102|
000005c0  34 3a de 45 25 32 30 34  38 2c 77 25 52 25 2c 53  |4:.E%2048,w%R%,S|
000005d0  25 4c 25 2c 64 25 32 30  34 38 3a 50 25 3d 2d 31  |%L%,d%2048:P%=-1|
000005e0  3a f2 56 3a 6a 25 3d a4  61 28 4e 24 2b 22 2e 53  |:.V:j%=.a(N$+".S|
000005f0  70 72 69 74 65 73 22 29  3a 6d 61 69 6e 77 69 6e  |prites"):mainwin|
00000600  25 3d a4 55 28 22 4d 61  69 6e 22 2c 31 29 3a 69  |%=.U("Main",1):i|
00000610  6e 66 6f 62 6f 78 25 3d  a4 55 28 22 49 6e 66 6f  |nfobox%=.U("Info|
00000620  22 2c 31 29 3a f2 41 28  69 6e 66 6f 62 6f 78 25  |",1):.A(infobox%|
00000630  2c 31 2c 22 21 22 2b 41  70 70 6e 61 6d 65 24 29  |,1,"!"+Appname$)|
00000640  3a f2 41 28 69 6e 66 6f  62 6f 78 25 2c 32 2c 61  |:.A(infobox%,2,a|
00000650  24 29 0d 00 36 73 f2 41  28 69 6e 66 6f 62 6f 78  |$)..6s.A(infobox|
00000660  25 2c 34 2c 73 24 29 3a  66 3d a4 71 28 22 21 22  |%,4,s$):f=.q("!"|
00000670  2b 41 70 70 6e 61 6d 65  24 2c 5f 24 2c 31 29 3a  |+Appname$,_$,1):|
00000680  55 25 3d a4 5f 28 41 70  70 6e 61 6d 65 24 2b 22  |U%=._(Appname$+"|
00000690  7c 49 6e 66 6f 5d 3e 69  6e 66 6f 62 6f 78 25 7c  ||Info]>infobox%||
000006a0  53 74 6f 70 20 73 63 61  6e 7c 43 6f 6e 66 69 67  |Stop scan|Config|
000006b0  75 72 65 2e 2e 2e 7c 51  75 69 74 22 29 3a 65 25  |ure...|Quit"):e%|
000006c0  3d 4b 25 3a e1 0d 00 37  9d dd f2 79 3a de 4f 20  |=K%:...7...y:.O |
000006d0  35 2a 34 3a de 69 20 38  31 39 32 3a c8 99 38 2c  |5*4:.i 8192:..8,|
000006e0  32 35 35 2c 22 3c 54 65  78 74 53 63 61 6e 24 44  |255,"<TextScan$D|
000006f0  69 72 3e 2e 53 63 61 6e  46 69 6c 65 22 2c 69 3a  |ir>.ScanFile",i:|
00000700  67 3d 4f 3a 70 3d 4f 2b  34 3a 6b 3d 4f 2b 38 3a  |g=O:p=O+4:k=O+8:|
00000710  6e 3d 4f 2b 31 32 3a 63  3d 4f 2b 31 36 3a 51 3d  |n=O+12:c=O+16:Q=|
00000720  a3 3a 68 3d a3 3a 57 79  3d a3 3a 53 3d a3 3a 46  |.:h=.:Wy=.:S=.:F|
00000730  3d 2e 32 35 3a f2 47 28  55 25 2c 31 2c 31 29 3a  |=.25:.G(U%,1,1):|
00000740  4b 3d a4 52 28 22 3c 54  65 78 74 53 63 61 6e 24  |K=.R("<TextScan$|
00000750  44 69 72 3e 2e 4f 70 74  69 6f 6e 73 22 29 3a e7  |Dir>.Options"):.|
00000760  4b 8c 0d 00 38 55 f2 41  28 6d 61 69 6e 77 69 6e  |K...8U.A(mainwin|
00000770  25 2c 32 2c a4 4d 28 22  50 61 74 68 22 29 29 3a  |%,2,.M("Path")):|
00000780  f2 41 28 6d 61 69 6e 77  69 6e 25 2c 34 2c a4 4d  |.A(mainwin%,4,.M|
00000790  28 22 54 68 72 6f 77 62  61 63 6b 22 29 29 3a 46  |("Throwback")):F|
000007a0  3d a4 59 28 22 50 6f 6c  6c 22 29 3a e7 46 3c 30  |=.Y("Poll"):.F<0|
000007b0  8c 46 3d 2d 31 2f 46 0d  00 39 96 f2 42 28 6d 61  |.F=-1/F..9..B(ma|
000007c0  69 6e 77 69 6e 25 2c 36  2c a4 4a 28 22 53 63 61  |inwin%,6,.J("Sca|
000007d0  6e 44 61 74 61 22 29 29  3a f2 42 28 6d 61 69 6e  |nData")):.B(main|
000007e0  77 69 6e 25 2c 31 31 2c  a4 4a 28 22 53 63 61 6e  |win%,11,.J("Scan|
000007f0  4f 62 65 79 22 29 29 3a  f2 42 28 6d 61 69 6e 77  |Obey")):.B(mainw|
00000800  69 6e 25 2c 31 32 2c a4  4a 28 22 53 63 61 6e 41  |in%,12,.J("ScanA|
00000810  6c 6c 22 29 29 3a 53 3d  a4 5a 28 6d 61 69 6e 77  |ll")):S=.Z(mainw|
00000820  69 6e 25 2c 31 32 29 3a  f2 46 28 6d 61 69 6e 77  |in%,12):.F(mainw|
00000830  69 6e 25 2c 36 2c 53 29  3a f2 46 28 6d 61 69 6e  |in%,6,S):.F(main|
00000840  77 69 6e 25 2c 31 31 2c  53 29 3a f2 64 0d 00 3a  |win%,11,S):.d..:|
00000850  07 cd 3a e1 0d 00 3b 20  dd f2 4f 28 41 2c 4d 2c  |..:...; ..O(A,M,|
00000860  4a 29 3a f7 8d 54 7c 40  3a f2 61 28 41 2c 4d 2c  |J):..T|@:.a(A,M,|
00000870  4a 29 3a e1 0d 00 3c 1a  dc 20 69 6e 66 6f 62 6f  |J):...<.. infobo|
00000880  78 25 2c 22 3e 48 49 6e  66 6f 62 6f 78 22 0d 00  |x%,">HInfobox"..|
00000890  3d 14 dc 20 33 2c 22 3e  48 49 6e 66 6f 62 6f 78  |=.. 3,">HInfobox|
000008a0  33 22 0d 00 3e 14 dc 20  2d 32 2c 22 3e 48 49 63  |3"..>.. -2,">HIc|
000008b0  6f 6e 62 61 72 22 0d 00  3f 17 dc 20 6d 61 69 6e  |onbar"..?.. main|
000008c0  77 69 6e 25 2c 22 3e 48  4d 61 69 6e 22 0d 00 40  |win%,">HMain"..@|
000008d0  13 dc 20 32 2c 22 3e 48  4d 61 69 6e 44 69 72 22  |.. 2,">HMainDir"|
000008e0  0d 00 41 16 dc 20 33 2c  22 3e 48 4d 61 69 6e 53  |..A.. 3,">HMainS|
000008f0  74 72 69 6e 67 22 0d 00  42 16 dc 20 34 2c 22 3e  |tring"..B.. 4,">|
00000900  48 4d 61 69 6e 45 64 69  74 6f 72 22 0d 00 43 14  |HMainEditor"..C.|
00000910  dc 20 39 2c 22 3e 48 4d  61 69 6e 53 63 61 6e 22  |. 9,">HMainScan"|
00000920  0d 00 44 14 dc 20 31 32  2c 22 3e 48 4d 61 69 6e  |..D.. 12,">HMain|
00000930  41 6c 6c 22 0d 00 45 15  dc 20 31 31 2c 22 3e 48  |All"..E.. 11,">H|
00000940  4d 61 69 6e 4f 62 65 79  22 0d 00 46 14 dc 20 36  |MainObey"..F.. 6|
00000950  2c 22 3e 48 4d 61 69 6e  44 61 74 61 22 0d 00 47  |,">HMainData"..G|
00000960  0b dc 20 2d 31 2c 2d 31  0d 00 48 11 dc 20 2d 32  |.. -1,-1..H.. -2|
00000970  2c 2d 32 2c 2d 32 2c 2d  32 0d 00 49 27 dd a4 49  |,-2,-2,-2..I'..I|
00000980  28 4d 24 2c 57 29 3a ea  44 3a f2 76 28 4d 24 29  |(M$,W):.D:.v(M$)|
00000990  3a 52 3d a4 48 28 4d 24  29 3a e7 52 3d 2d 31 8c  |:R=.H(M$):.R=-1.|
000009a0  0d 00 4a 1b f2 4a 28 22  46 69 6c 65 20 6e 6f 74  |..J..J("File not|
000009b0  20 66 6f 75 6e 64 22 29  3a 3d 30 0d 00 4b 16 cd  | found"):=0..K..|
000009c0  3a 4e 3d a4 46 28 52 2b  31 29 3a e7 4e 3d 2d 31  |:N=.F(R+1):.N=-1|
000009d0  8c 0d 00 4c 4b f2 55 3a  f2 4a 28 22 43 6f 75 6c  |...LK.U:.J("Coul|
000009e0  64 20 6e 6f 74 20 70 72  6f 63 65 73 73 20 64 75  |d not process du|
000009f0  65 20 74 6f 20 6c 61 63  6b 20 6f 66 20 6d 65 6d  |e to lack of mem|
00000a00  6f 72 79 22 29 3a f2 4a  28 22 49 20 6e 65 65 64  |ory"):.J("I need|
00000a10  20 22 2b a4 44 28 52 29  29 3a 3d 30 0d 00 4d 48  | "+.D(R)):=0..MH|
00000a20  cd 3a c8 99 38 2c 32 35  35 2c 4d 24 2c 4e 3a 21  |.:..8,255,M$,N:!|
00000a30  70 3d 4e 3a 21 6b 3d 4e  2b 52 3a 3f 28 4e 2b 52  |p=N:!k=N+R:?(N+R|
00000a40  29 3d 30 3a 21 67 3d 57  3a 21 6e 3d 31 3a 21 63  |)=0:!g=W:!n=1:!c|
00000a50  3d 4e 3a f5 3a 41 25 3d  67 3a 79 3d ba 28 69 29  |=N:.:A%=g:y=.(i)|
00000a60  3a e7 79 8c 0d 00 4e 1b  f2 71 28 21 6e 2c c0 a4  |:.y...N..q(!n,..|
00000a70  41 28 21 63 29 2c 36 30  29 29 3a 44 2b 3d 31 0d  |A(!c),60)):D+=1.|
00000a80  00 4f 16 cd 3a fd 79 3d  30 3a f2 4d 28 4e 29 3a  |.O..:.y=0:.M(N):|
00000a90  f2 55 3a 3d 44 0d 00 50  5b dd f2 76 28 4d 24 29  |.U:=D..P[..v(M$)|
00000aa0  3a 21 45 25 3d 32 34 2b  28 28 a9 28 4d 24 29 2b  |:!E%=24+((.(M$)+|
00000ab0  33 29 80 2d 34 29 3a 45  25 21 31 32 3d 30 3a 45  |3).-4):E%!12=0:E|
00000ac0  25 21 31 36 3d 26 34 32  35 38 35 3a 24 28 45 25  |%!16=&42585:$(E%|
00000ad0  2b 32 30 29 3d 4d 24 2b  bd 30 3a c8 99 26 34 30  |+20)=M$+.0:..&40|
00000ae0  30 65 37 2c 31 37 2c 45  25 2c 5a 3a f2 53 3a e1  |0e7,17,E%,Z:.S:.|
00000af0  0d 00 51 6b dd f2 4a 28  4d 24 29 3a 21 45 25 3d  |..Qk..J(M$):!E%=|
00000b00  33 32 2b 28 28 a9 28 4d  24 29 2b 33 29 80 2d 34  |32+((.(M$)+3).-4|
00000b10  29 3a 45 25 21 31 32 3d  30 3a 45 25 21 31 36 3d  |):E%!12=0:E%!16=|
00000b20  26 34 32 35 38 36 3a 45  25 21 32 34 3d 30 3a 45  |&42586:E%!24=0:E|
00000b30  25 21 32 30 3d 30 3a 24  28 45 25 2b 32 38 29 3d  |%!20=0:$(E%+28)=|
00000b40  4d 24 2b bd 30 3a c8 99  26 34 30 30 65 37 2c 31  |M$+.0:..&400e7,1|
00000b50  37 2c 45 25 2c 5a 3a f2  53 3a e1 0d 00 52 6f dd  |7,E%,Z:.S:...Ro.|
00000b60  f2 71 28 47 79 2c 4d 24  29 3a 21 45 25 3d 33 32  |.q(Gy,M$):!E%=32|
00000b70  2b 28 28 a9 28 4d 24 29  2b 33 29 80 2d 34 29 3a  |+((.(M$)+3).-4):|
00000b80  45 25 21 31 32 3d 30 3a  45 25 21 31 36 3d 26 34  |E%!12=0:E%!16=&4|
00000b90  32 35 38 36 3a 45 25 21  32 34 3d 30 3a 45 25 21  |2586:E%!24=0:E%!|
00000ba0  32 30 3d 47 79 3a 24 28  45 25 2b 32 38 29 3d 4d  |20=Gy:$(E%+28)=M|
00000bb0  24 2b bd 30 3a c8 99 26  34 30 30 65 37 2c 31 37  |$+.0:..&400e7,17|
00000bc0  2c 45 25 2c 5a 3a f2 53  3a e1 0d 00 53 39 dd f2  |,E%,Z:.S:...S9..|
00000bd0  63 3a 21 45 25 3d 32 30  3a 45 25 21 31 32 3d 30  |c:!E%=20:E%!12=0|
00000be0  3a 45 25 21 31 36 3d 26  34 32 35 38 30 3a c8 99  |:E%!16=&42580:..|
00000bf0  26 34 30 30 65 37 2c 31  37 2c 45 25 2c 5a 3a f2  |&400e7,17,E%,Z:.|
00000c00  53 3a e1 0d 00 54 39 dd  f2 65 3a 21 45 25 3d 32  |S:...T9..e:!E%=2|
00000c10  30 3a 45 25 21 31 32 3d  30 3a 45 25 21 31 36 3d  |0:E%!12=0:E%!16=|
00000c20  26 34 32 35 38 34 3a c8  99 26 34 30 30 65 37 2c  |&42584:..&400e7,|
00000c30  31 37 2c 45 25 2c 5a 3a  f2 53 3a e1 0d 00 55 23  |17,E%,Z:.S:...U#|
00000c40  dd f2 67 3a 5a 3d a4 56  28 a4 53 28 6d 61 69 6e  |..g:Z=.V(.S(main|
00000c50  77 69 6e 25 2c 34 29 29  3a e7 5a 3d 2d 31 8c 0d  |win%,4)):.Z=-1..|
00000c60  00 56 48 53 79 3d a4 50  28 22 4d 65 73 73 61 67  |.VHSy=.P("Messag|
00000c70  65 20 66 72 6f 6d 20 22  2b 41 70 70 6e 61 6d 65  |e from "+Appname|
00000c80  24 2c 22 43 61 6e 6e 6f  74 20 66 69 6e 64 20 54  |$,"Cannot find T|
00000c90  68 72 6f 77 62 61 63 6b  20 68 61 6e 64 6c 65 72  |hrowback handler|
00000ca0  22 2c 31 37 29 3a e1 0d  00 57 fd cd 3a 51 3d b9  |",17):...W..:Q=.|
00000cb0  3a f2 47 28 55 25 2c 31  2c 30 29 3a 78 3d 30 3a  |:.G(U%,1,0):x=0:|
00000cc0  f2 5f 28 6d 61 69 6e 77  69 6e 25 29 3a f2 41 28  |._(mainwin%):.A(|
00000cd0  2d 32 2c 66 2c 22 57 6f  72 6b 69 6e 67 22 29 3a  |-2,f,"Working"):|
00000ce0  f2 63 3a 43 24 3d a4 53  28 6d 61 69 6e 77 69 6e  |.c:C$=.S(mainwin|
00000cf0  25 2c 33 29 3a 68 3d a4  5a 28 6d 61 69 6e 77 69  |%,3):h=.Z(mainwi|
00000d00  6e 25 2c 36 29 3a 6f 3d  a4 5a 28 6d 61 69 6e 77  |n%,6):o=.Z(mainw|
00000d10  69 6e 25 2c 31 31 29 3a  53 3d a4 5a 28 6d 61 69  |in%,11):S=.Z(mai|
00000d20  6e 77 69 6e 25 2c 31 32  29 3a c8 95 c0 43 24 2c  |nwin%,12):...C$,|
00000d30  31 29 3d 22 2a 22 84 c0  43 24 2c 31 29 3d 22 23  |1)="*"..C$,1)="#|
00000d40  22 3a 43 24 3d c1 43 24  2c 32 29 3a ce 3a c8 95  |":C$=.C$,2):.:..|
00000d50  c2 43 24 2c 31 29 3d 22  2a 22 84 c2 43 24 29 3d  |.C$,1)="*"..C$)=|
00000d60  22 23 22 3a 43 24 3d c0  43 24 29 3a ce 3a 59 3d  |"#":C$=.C$):.:Y=|
00000d70  a4 46 28 a9 28 43 24 29  2b 32 29 3a 24 28 59 29  |.F(.(C$)+2):$(Y)|
00000d80  3d 43 24 2b 22 2a 22 3a  44 3d a4 47 28 a4 53 28  |=C$+"*":D=.G(.S(|
00000d90  6d 61 69 6e 77 69 6e 25  2c 32 29 2c 59 29 3a f2  |mainwin%,2),Y):.|
00000da0  4d 28 59 29 0d 00 58 2b  f2 65 3a 51 3d a3 3a f2  |M(Y)..X+.e:Q=.:.|
00000db0  41 28 2d 32 2c 66 2c 22  54 65 78 74 53 63 61 6e  |A(-2,f,"TextScan|
00000dc0  22 29 3a f2 47 28 55 25  2c 31 2c 31 29 3a e1 0d  |"):.G(U%,1,1):..|
00000dd0  00 59 94 dd a4 47 28 4b  24 2c 57 29 3a ea 54 25  |.Y...G(K$,W):.T%|
00000de0  2c 44 3a 44 3d 30 3a c8  99 31 32 2c 31 30 2c 4b  |,D:D=0:..12,10,K|
00000df0  24 2c 45 25 2c 31 2c 30  2c 32 35 36 2c 22 2a 22  |$,E%,1,0,256,"*"|
00000e00  b8 2c 2c 2c 2c 54 25 3a  c8 95 54 25 3c 3e 2d 31  |.,,,,T%:..T%<>-1|
00000e10  80 51 3d b9 3a 78 25 3d  45 25 21 31 36 3a 63 25  |.Q=.:x%=E%!16:c%|
00000e20  3d 45 25 21 30 3a 75 25  3d 45 25 21 34 3a 62 3d  |=E%!0:u%=E%!4:b=|
00000e30  45 25 21 38 3a 4c 79 3d  45 25 21 31 32 3a 71 24  |E%!8:Ly=E%!12:q$|
00000e40  3d a4 41 28 45 25 2b 32  30 29 3a 4d 24 3d 4b 24  |=.A(E%+20):M$=K$|
00000e50  2b 22 2e 22 2b 71 24 3a  e7 78 25 3d 32 84 78 25  |+"."+q$:.x%=2.x%|
00000e60  3d 33 8c 0d 00 5a 0f 44  2b 3d a4 47 28 4d 24 2c  |=3...Z.D+=.G(M$,|
00000e70  57 29 0d 00 5b 46 cc 3a  59 25 3d 28 63 25 80 26  |W)..[F.:Y%=(c%.&|
00000e80  66 66 66 30 30 29 3e 3e  38 3a e7 59 25 3d 34 30  |fff00)>>8:.Y%=40|
00000e90  39 35 84 28 59 25 3d 34  30 39 33 80 68 29 84 28  |95.(Y%=4093.h).(|
00000ea0  59 25 3d 34 30 37 35 80  6f 29 84 53 8c 44 2b 3d  |Y%=4075.o).S.D+=|
00000eb0  a4 49 28 4d 24 2c 59 29  0d 00 5c 2c cd 3a c8 99  |.I(M$,Y)..\,.:..|
00000ec0  31 32 2c 31 30 2c 4b 24  2c 45 25 2c 31 2c 54 25  |12,10,K$,E%,1,T%|
00000ed0  2c 32 35 36 2c 22 2a 22  b8 2c 2c 2c 2c 54 25 3a  |,256,"*".,,,,T%:|
00000ee0  ce 3a 3d 44 0d 00 5d 0d  dd f2 53 3a e7 46 3c 31  |.:=D..]...S:.F<1|
00000ef0  8c 0d 00 5e 0e 78 2b 3d  46 3a e7 78 3e 31 8c 0d  |...^.x+=F:.x>1..|
00000f00  00 5f 18 e3 42 3d 31 b8  32 2f 46 3a f2 50 28 30  |._..B=1.2/F:.P(0|
00000f10  29 3a ed 3a 78 3d 30 0d  00 60 05 cd 0d 00 61 14  |):.:x=0..`....a.|
00000f20  cc 3a e3 42 3d 31 b8 46  3a f2 50 28 30 29 3a ed  |.:.B=1.F:.P(0):.|
00000f30  0d 00 62 07 cd 3a e1 0d  00 63 29 dd a4 44 28 45  |..b..:...c)..D(E|
00000f40  29 3a c8 99 32 33 36 2c  45 2c 5a 25 2c 32 35 36  |):..236,E,Z%,256|
00000f50  b8 2c 41 79 3a 3f 41 79  3d 31 33 3a 3d 24 5a 25  |.,Ay:?Ay=13:=$Z%|
00000f60  0d 0b 37 28 dd f2 48 3a  de 5a 25 31 30 32 34 3a  |..7(..H:.Z%1024:|
00000f70  7a 3d 2d 32 3a 46 25 3d  2d 31 3a 47 25 3d 2d 31  |z=-2:F%=-1:G%=-1|
00000f80  3a 50 79 3d 2d 32 3a e1  0d 0b 38 15 dd f2 57 28  |:Py=-2:...8...W(|
00000f90  55 79 29 66 25 21 72 25  3d 55 79 3a e1 0d 0b 39  |Uy)f%!r%=Uy:...9|
00000fa0  ad dd a4 55 28 52 24 2c  51 25 29 ea 7a 25 2c 4f  |...U(R$,Q%).z%,O|
00000fb0  25 2c 79 25 3a c8 99 26  34 30 30 64 39 2c 2c 4e  |%,y%:..&400d9,,N|
00000fc0  24 2b 22 2e 54 65 6d 70  6c 61 74 65 73 22 3a c8  |$+".Templates":.|
00000fd0  99 26 34 30 30 64 62 2c  2c 30 2c 2c 2c 2c 52 24  |.&400db,,0,,,,R$|
00000fe0  2c 30 b8 2c 2c 7a 25 3a  de 4f 25 7a 25 3a c8 99  |,0.,,z%:.O%z%:..|
00000ff0  26 34 30 30 64 62 2c 2c  64 25 2c 4f 25 2c 4f 25  |&400db,,d%,O%,O%|
00001000  2b 7a 25 2c 2d 31 2c 52  24 2c 30 b8 2c 2c 2c 2c  |+z%,-1,R$,0.,,,,|
00001010  2c 2c 79 25 3a c8 99 26  34 30 30 64 61 3a e7 79  |,,y%:..&400da:.y|
00001020  25 3d 30 8c 85 32 30 35  31 2c 22 54 65 6d 70 6c  |%=0..2051,"Templ|
00001030  61 74 65 20 66 69 6c 65  20 22 2b 52 24 2b 22 20  |ate file "+R$+" |
00001040  6e 6f 74 20 66 6f 75 6e  64 22 0d 0b 3a 20 64 25  |not found"..: d%|
00001050  21 36 34 3d 51 25 3a c8  99 26 34 30 30 63 31 2c  |!64=Q%:..&400c1,|
00001060  2c 64 25 b8 4f 25 3a 3d  4f 25 0d 0b 3b 26 dd a4  |,d%.O%:=O%..;&..|
00001070  61 28 7a 24 29 ea 4a 25  2c 61 25 2c 51 25 3a 61  |a(z$).J%,a%,Q%:a|
00001080  25 3d 8e 28 7a 24 29 3a  e7 61 25 3d 30 8c 3d 31  |%=.(z$):.a%=0.=1|
00001090  0d 0b 3c 46 4a 25 3d a2  23 61 25 2b 31 36 3a d9  |..<FJ%=.#a%+16:.|
000010a0  23 61 25 3a de 51 25 4a  25 3a 21 51 25 3d 4a 25  |#a%:.Q%J%:!Q%=J%|
000010b0  3a 51 25 21 38 3d 30 3a  c8 99 34 36 2c 32 36 35  |:Q%!8=0:..46,265|
000010c0  2c 51 25 3a c8 99 34 36  2c 32 36 36 2c 51 25 2c  |,Q%:..46,266,Q%,|
000010d0  7a 24 3a 3d 51 25 0d 0b  3d 35 dd a4 58 28 65 24  |z$:=Q%..=5..X(e$|
000010e0  29 ea 62 3a c8 99 26 32  30 30 32 33 2c 65 24 2c  |).b:..&20023,e$,|
000010f0  5a 25 2c 32 35 35 2c 30  2c 33 b8 2c 2c 62 3a 5a  |Z%,255,0,3.,,b:Z|
00001100  25 3f 62 3d 31 33 3a 3d  24 5a 25 0d 0b 3e 46 dd  |%?b=13:=$Z%..>F.|
00001110  f2 52 ea 64 2c 51 24 2c  4e 25 3a ea 85 3a ee 85  |.R.d,Q$,N%:..:..|
00001120  ea 3a f2 43 3a ef 34 3a  85 a2 30 2c f6 24 2b 22  |.:.C:.4:..0,.$+"|
00001130  20 61 74 20 6c 69 6e 65  20 22 2b c3 9e 2b 22 20  | at line "+..+" |
00001140  69 6e 20 65 72 72 6f 72  20 68 61 6e 64 6c 65 72  |in error handler|
00001150  22 0d 0b 3f 1b c8 99 36  2c 31 32 34 3a e7 9f 3e  |"..?...6,124:..>|
00001160  32 30 34 37 80 9f 3c 32  30 35 31 8c 0d 0b 40 2f  |2047..<2051...@/|
00001170  64 3d 9f 2d 32 30 34 37  3a 51 24 3d f6 24 3a e7  |d=.-2047:Q$=.$:.|
00001180  64 3d 33 8c 51 24 2b 3d  22 20 28 43 61 6e 63 65  |d=3.Q$+=" (Cance|
00001190  6c 20 74 6f 20 51 75 69  74 29 22 0d 0b 41 27 4e  |l to Quit)"..A'N|
000011a0  25 3d a4 50 28 41 70 70  6e 61 6d 65 24 2c 51 24  |%=.P(Appname$,Q$|
000011b0  2c 64 29 3a e7 4e 25 3d  32 80 64 3d 33 8c 44 25  |,d):.N%=2.d=3.D%|
000011c0  3d b9 0d 0b 42 57 cc 3a  51 24 3d 22 49 6e 74 65  |=...BW.:Q$="Inte|
000011d0  72 6e 61 6c 20 65 72 72  6f 72 20 3a 20 28 22 2b  |rnal error : ("+|
000011e0  c3 9e 2b 22 29 20 22 2b  f6 24 2b 22 20 43 61 6e  |..+") "+.$+" Can|
000011f0  63 65 6c 20 74 6f 20 51  75 69 74 22 3a 4e 25 3d  |cel to Quit":N%=|
00001200  a4 50 28 41 70 70 6e 61  6d 65 24 2c 51 24 2c 33  |.P(Appname$,Q$,3|
00001210  29 3a e7 4e 25 3c 3e 31  8c 0d 0b 43 3a 44 25 3d  |):.N%<>1...C:D%=|
00001220  b9 3a ff 28 22 53 65 74  20 45 72 72 6f 72 24 20  |.:.("Set Error$ |
00001230  22 2b 51 24 29 3a ff 28  22 53 65 74 20 45 72 72  |"+Q$):.("Set Err|
00001240  6f 72 24 54 61 73 6b 20  22 2b 41 70 70 6e 61 6d  |or$Task "+Appnam|
00001250  65 24 29 0d 0b 44 26 cd  3a e7 a6 28 2d 31 29 80  |e$)..D&.:..(-1).|
00001260  a6 28 2d 32 29 80 a6 28  2d 31 37 29 8c ff 28 22  |.(-2)..(-17)..("|
00001270  53 70 6f 6f 6c 22 29 3a  e0 0d 0b 45 07 cd 3a e1  |Spool"):...E..:.|
00001280  0d 0b 46 4f dd a4 50 28  47 24 2c 54 24 2c 6e 25  |..FO..P(G$,T$,n%|
00001290  29 47 24 3d a4 45 28 47  24 29 3a 54 24 3d a4 45  |)G$=.E(G$):T$=.E|
000012a0  28 54 24 29 3a 24 28 5a  25 2b 34 29 3d 54 24 3a  |(T$):$(Z%+4)=T$:|
000012b0  21 5a 25 3d 30 3a c8 99  26 34 30 30 64 66 2c 5a  |!Z%=0:..&400df,Z|
000012c0  25 2c 6e 25 2c 47 24 b8  2c 4e 25 3a 3d 4e 25 0d  |%,n%,G$.,N%:=N%.|
000012d0  0b 47 dd dd a4 5f 28 53  24 29 3a ea 6d 2c 60 2c  |.G..._(S$):.m,`,|
000012e0  45 79 2c 49 2c 54 79 2c  58 24 2c 4c 24 3a 6d 3d  |Ey,I,Ty,X$,L$:m=|
000012f0  53 25 3a 49 3d 30 3a 53  24 2b 3d 22 7c 22 3a f2  |S%:I=0:S$+="|":.|
00001300  4e 28 a4 51 28 53 24 2c  4c 24 29 29 3a f2 45 28  |N(.Q(S$,L$)):.E(|
00001310  26 37 30 32 30 37 29 3a  60 3d 53 25 3a f2 45 28  |&70207):`=S%:.E(|
00001320  31 32 38 29 3a f2 45 28  34 30 29 3a f2 45 28 30  |128):.E(40):.E(0|
00001330  29 3a 4b 25 3d 30 3a f5  3a 58 24 3d a4 51 28 53  |):K%=0:.:X$=.Q(S|
00001340  24 2c 4c 24 29 3a 4b 25  3d 4b 25 2b 31 3a 58 3d  |$,L$):K%=K%+1:X=|
00001350  a4 4b 28 4c 24 2c 45 79  2c 43 24 29 2b 28 28 2d  |.K(L$,Ey,C$)+((-|
00001360  28 53 24 3d 22 22 29 29  3c 3c 37 29 3a 73 3d 26  |(S$=""))<<7):s=&|
00001370  37 30 30 30 30 32 31 2b  28 28 2d 28 a9 28 58 24  |7000021+((-(.(X$|
00001380  29 3e 31 31 29 29 3c 3c  38 29 2b 28 31 3c 3c 31  |)>11))<<8)+(1<<1|
00001390  34 29 2a 28 58 80 32 35  36 29 3a e7 28 58 80 34  |4)*(X.256):.(X.4|
000013a0  29 3c 3e 30 8c 73 3d 73  84 32 35 36 0d 0b 48 25  |)<>0.s=s.256..H%|
000013b0  f2 45 28 58 80 32 35 35  29 3a f2 45 28 45 79 29  |.E(X.255):.E(Ey)|
000013c0  3a e7 a9 28 58 24 29 3e  49 8c 49 3d a9 28 58 24  |:..(X$)>I.I=.(X$|
000013d0  29 0d 0b 49 2e f2 45 28  73 29 3a f2 49 28 58 24  |)..I..E(s):.I(X$|
000013e0  2c 43 24 2c 28 58 80 34  29 29 3a fd 53 24 3d 22  |,C$,(X.4)):.S$="|
000013f0  22 3a 21 60 3d 49 2a 31  36 2b 31 36 3a 3d 6d 0d  |":!`=I*16+16:=m.|
00001400  0b 4a 29 dd f2 49 28 42  24 2c 43 24 2c 4d 79 29  |.J)..I(B$,C$,My)|
00001410  e7 c0 42 24 2c 31 29 3d  22 a4 22 8c 42 24 3d a0  |..B$,1)=".".B$=.|
00001420  28 c1 42 24 2c 32 29 29  0d 0b 4b 19 e7 a9 28 42  |(.B$,2))..K...(B|
00001430  24 29 3c 31 32 80 43 24  3d 22 22 80 4d 79 3d 30  |$)<12.C$="".My=0|
00001440  8c 0d 0b 4c 0a f2 4e 28  42 24 29 0d 0b 4d 19 cc  |...L..N(B$)..M..|
00001450  3a f2 45 28 a4 43 28 42  24 29 29 3a e7 43 24 3c  |:.E(.C(B$)):.C$<|
00001460  3e 22 22 8c 0d 0b 4e 36  53 25 21 2d 38 3d 53 25  |>""...N6S%!-8=S%|
00001470  21 2d 38 84 32 30 35 31  3a e7 c0 a4 4f 28 43 24  |!-8.2051:...O(C$|
00001480  29 2c 32 29 3d 22 73 6d  22 8c 53 25 21 2d 38 3d  |),2)="sm".S%!-8=|
00001490  53 25 21 2d 38 82 32 30  34 38 0d 0b 4f 12 f2 45  |S%!-8.2048..O..E|
000014a0  28 a4 43 28 22 53 22 2b  43 24 29 29 0d 0b 50 0c  |(.C("S"+C$))..P.|
000014b0  cc 3a f2 45 28 2d 31 29  0d 0b 51 0f cd 3a f2 45  |.:.E(-1)..Q..:.E|
000014c0  28 a9 28 42 24 29 29 0d  0b 52 07 cd 3a e1 0d 0b  |(.(B$))..R..:...|
000014d0  53 4b dd a4 51 28 f8 53  24 2c f8 4c 24 29 3a ea  |SK..Q(.S$,.L$):.|
000014e0  50 24 3a 50 24 3d c0 53  24 2c a7 53 24 2c 22 7c  |P$:P$=.S$,.S$,"||
000014f0  22 29 2d 31 29 3a 53 24  3d c1 53 24 2c a9 28 50  |")-1):S$=.S$,.(P|
00001500  24 29 2b 32 29 3a e7 a7  50 24 2c 22 5d 22 29 3c  |$)+2):..P$,"]")<|
00001510  31 8c 50 24 2b 3d 22 5d  22 0d 0b 54 31 4c 24 3d  |1.P$+="]"..T1L$=|
00001520  c1 50 24 2c a7 50 24 2c  22 5d 22 29 2b 31 29 3a  |.P$,.P$,"]")+1):|
00001530  50 24 3d c0 50 24 2c a7  50 24 2c 22 5d 22 29 2d  |P$=.P$,.P$,"]")-|
00001540  31 29 3a 3d a4 45 28 50  24 29 0d 0b 55 30 dd f2  |1):=.E(P$)..U0..|
00001550  4e 28 42 24 29 e7 a9 28  42 24 29 3e 31 31 8c 85  |N(B$)..(B$)>11..|
00001560  32 30 35 31 2c 22 4d 65  6e 75 20 65 6e 74 72 79  |2051,"Menu entry|
00001570  20 74 6f 6f 20 6c 6f 6e  67 22 0d 0b 56 43 24 53  | too long"..VC$S|
00001580  25 3d 42 24 3a 53 25 2b  3d 31 32 3a 4c 25 2d 3d  |%=B$:S%+=12:L%-=|
00001590  31 32 3a e7 4c 25 3c 3d  34 8c 85 32 30 35 31 2c  |12:.L%<=4..2051,|
000015a0  22 4e 6f 74 20 65 6e 6f  75 67 68 20 6d 65 6d 6f  |"Not enough memo|
000015b0  72 79 20 66 6f 72 20 6d  65 6e 75 73 22 0d 0b 57  |ry for menus"..W|
000015c0  05 e1 0d 0b 58 49 dd f2  45 28 57 25 29 3a 21 53  |....XI..E(W%):!S|
000015d0  25 3d 57 25 3a 53 25 2b  3d 34 3a 4c 25 2d 3d 34  |%=W%:S%+=4:L%-=4|
000015e0  3a e7 4c 25 3c 3d 34 8c  85 32 30 35 31 2c 22 4e  |:.L%<=4..2051,"N|
000015f0  6f 74 20 65 6e 6f 75 67  68 20 6d 65 6d 6f 72 79  |ot enough memory|
00001600  20 66 6f 72 20 6d 65 6e  75 73 22 0d 0b 59 05 e1  | for menus"..Y..|
00001610  0d 0b 5a 5d dd a4 4b 28  53 24 2c f8 5a 79 2c f8  |..Z]..K(S$,.Zy,.|
00001620  43 24 29 3a ea 50 24 2c  4c 24 2c 43 3a 5a 79 3d  |C$):.P$,L$,C:Zy=|
00001630  2d 31 3a 43 24 3d 22 22  3a 53 24 3d 53 24 2b 22  |-1:C$="":S$=S$+"|
00001640  2c 22 3a c8 95 53 24 3c  3e 22 22 3a 50 24 3d c0  |,":..S$<>"":P$=.|
00001650  53 24 2c 31 29 3a 53 24  3d c1 53 24 2c 32 29 3a  |S$,1):S$=.S$,2):|
00001660  e7 50 24 3d 22 54 22 8c  43 3d 43 84 31 0d 0b 5b  |.P$="T".C=C.1..[|
00001670  11 e7 50 24 3d 22 44 22  8c 43 3d 43 84 32 0d 0b  |..P$="D".C=C.2..|
00001680  5c 11 e7 50 24 3d 22 57  22 8c 43 3d 43 84 34 0d  |\..P$="W".C=C.4.|
00001690  0b 5d 13 e7 50 24 3d 22  53 22 8c 43 3d 43 84 32  |.]..P$="S".C=C.2|
000016a0  35 36 0d 0b 5e 0c e7 50  24 3d 22 3e 22 8c 0d 0b  |56..^..P$=">"...|
000016b0  5f 2c 5a 79 3d a0 28 c0  53 24 2c a7 53 24 2c 22  |_,Zy=.(.S$,.S$,"|
000016c0  2c 22 29 2d 31 29 29 3a  53 24 3d c1 53 24 2c a7  |,")-1)):S$=.S$,.|
000016d0  53 24 2c 22 2c 22 29 2b  31 29 0d 0b 60 0e cd 3a  |S$,",")+1)..`..:|
000016e0  e7 50 24 3d 22 7d 22 8c  0d 0b 61 2d 43 24 3d c0  |.P$="}"...a-C$=.|
000016f0  53 24 2c a7 53 24 2c 22  2c 22 29 2d 31 29 2b 22  |S$,.S$,",")-1)+"|
00001700  20 22 3a 53 24 3d c1 53  24 2c a7 53 24 2c 22 2c  | ":S$=.S$,.S$,",|
00001710  22 29 2b 31 29 0d 0b 62  0a cd 3a ce 3a 3d 43 0d  |")+1)..b..:.:=C.|
00001720  0b 63 46 dd a4 43 28 45  24 29 ea 6a 3a 6a 3d 77  |.cF..C(E$).j:j=w|
00001730  25 3a e7 a9 28 45 24 29  3e 52 25 2d 31 8c 85 32  |%:..(E$)>R%-1..2|
00001740  30 35 31 2c 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |051,"Not enough |
00001750  72 6f 6f 6d 20 66 6f 72  20 69 6e 64 69 72 65 63  |room for indirec|
00001760  74 69 6f 6e 22 0d 0b 64  25 24 77 25 3d 45 24 3a  |tion"..d%$w%=E$:|
00001770  77 25 2b 3d a9 28 45 24  29 2b 31 3a 52 25 2d 3d  |w%+=.(E$)+1:R%-=|
00001780  a9 28 45 24 29 2b 31 3a  3d 6a 0d 0b 65 51 dd f2  |.(E$)+1:=j..eQ..|
00001790  78 3a c8 99 26 34 30 30  63 66 2c 2c 45 25 3a 50  |x:..&400cf,,E%:P|
000017a0  25 3d 55 25 3a 74 25 3d  45 25 21 30 2d 36 34 3a  |%=U%:t%=E%!0-64:|
000017b0  68 25 3d 39 36 2b 34 30  2a 65 25 3a c8 99 26 34  |h%=96+40*e%:..&4|
000017c0  30 30 64 34 2c 2c 55 25  2c 45 25 21 30 2d 36 34  |00d4,,U%,E%!0-64|
000017d0  2c 39 36 2b 34 30 2a 65  25 3a e1 0d 0b 66 1c dd  |,96+40*e%:...f..|
000017e0  f2 73 3a c8 99 26 34 30  30 64 34 2c 2c 50 25 2c  |.s:..&400d4,,P%,|
000017f0  74 25 2c 68 25 3a e1 0d  0b 67 21 dd f2 47 28 55  |t%,h%:...g!..G(U|
00001800  2c 58 79 2c 48 79 29 55  2b 3d 58 79 2a 32 34 2b  |,Xy,Hy)U+=Xy*24+|
00001810  33 36 3a c8 8e 48 79 ca  0d 0b 68 15 c9 30 3a 21  |36:..Hy...h..0:!|
00001820  55 3d 21 55 80 ac 28 31  3c 3c 32 32 29 0d 0b 69  |U=!U..(1<<22)..i|
00001830  17 c9 2d 31 2c 31 3a 21  55 3d 21 55 84 28 31 3c  |..-1,1:!U=!U.(1<|
00001840  3c 32 32 29 0d 0b 6a 14  c9 32 3a 21 55 3d 21 55  |<22)..j..2:!U=!U|
00001850  82 28 31 3c 3c 32 32 29  0d 0b 6b 07 cb 3a e1 0d  |.(1<<22)..k..:..|
00001860  0b 6c 57 dd a4 4c 28 53  25 29 ea 49 25 2c 57 3a  |.lW..L(S%).I%,W:|
00001870  49 25 3d 53 25 3a 57 3d  30 3a c8 95 28 45 25 21  |I%=S%:W=0:..(E%!|
00001880  57 3e 2d 31 80 49 25 3c  3e 7a 29 3a 49 25 3d 49  |W>-1.I%<>z):I%=I|
00001890  25 21 28 33 32 2b 28 45  25 21 57 29 2a 32 34 29  |%!(32+(E%!W)*24)|
000018a0  3a 57 2b 3d 34 3a ce 3a  e7 49 25 3d 7a 80 45 25  |:W+=4:.:.I%=z.E%|
000018b0  21 57 3c 3e 30 8c 0d 0b  6d 27 c8 99 26 34 30 30  |!W<>0...m'..&400|
000018c0  61 30 2c 2c 7a 2c 45 25  2b 57 2c c4 32 35 35 2c  |a0,,z,E%+W,.255,|
000018d0  bd 30 29 2c 32 35 35 b8  2c 2c 2c 41 24 0d 0b 6e  |.0),255.,,,A$..n|
000018e0  28 cc 3a c8 99 26 34 30  30 64 35 2c 2c 53 25 2c  |(.:..&400d5,,S%,|
000018f0  45 25 2c c4 32 35 35 2c  bd 30 29 2c 32 35 35 b8  |E%,.255,.0),255.|
00001900  2c 2c 2c 41 24 0d 0b 6f  09 cd 3a 3d 41 24 0d 0b  |,,,A$..o..:=A$..|
00001910  70 21 dd f2 5f 28 4d 25  29 3a 21 45 25 3d 4d 25  |p!.._(M%):!E%=M%|
00001920  3a c8 99 26 34 30 30 63  36 2c 2c 45 25 3a e1 0d  |:..&400c6,,E%:..|
00001930  0b 71 37 dd f2 44 28 4d  25 29 3a 21 45 25 3d 4d  |.q7..D(M%):!E%=M|
00001940  25 3a c8 99 26 34 30 30  63 62 2c 2c 45 25 3a 45  |%:..&400cb,,E%:E|
00001950  25 21 32 38 3d 2d 31 3a  c8 99 26 34 30 30 63 35  |%!28=-1:..&400c5|
00001960  2c 2c 45 25 3a e1 0d 0b  72 71 dd a4 71 28 77 24  |,,E%:...rq..q(w$|
00001970  2c 47 24 2c 4e 79 29 ea  75 3a 47 24 3d a4 45 28  |,G$,Ny).u:G$=.E(|
00001980  47 24 29 3a 45 25 21 30  3d 2d 94 28 4e 79 29 3a  |G$):E%!0=-.(Ny):|
00001990  45 25 21 34 3d 30 3a 45  25 21 38 3d 2d 31 36 3a  |E%!4=0:E%!8=-16:|
000019a0  45 25 21 31 32 3d 31 32  2b 31 36 2a a9 28 47 24  |E%!12=12+16*.(G$|
000019b0  29 3a 45 25 21 31 36 3d  38 38 3a e7 45 25 21 31  |):E%!16=88:.E%!1|
000019c0  32 3c 31 32 2b 31 36 2a  34 8c 45 25 21 31 32 3d  |2<12+16*4.E%!12=|
000019d0  31 32 2b 31 36 2a 34 0d  0b 73 0c e7 47 24 3c 3e  |12+16*4..s..G$<>|
000019e0  22 22 8c 0d 0b 74 59 45  25 21 32 30 3d 28 31 3c  |""...tYE%!20=(1<|
000019f0  3c 32 38 29 2b 28 37 3c  3c 32 34 29 2b 28 33 3c  |<28)+(7<<24)+(3<|
00001a00  3c 31 32 29 2b 28 31 31  29 2b 28 31 3c 3c 38 29  |<12)+(11)+(1<<8)|
00001a10  3a 45 25 21 32 34 3d a4  43 28 47 24 29 3a 45 25  |:E%!24=.C(G$):E%|
00001a20  21 32 38 3d a4 43 28 22  53 22 2b 77 24 29 3a 45  |!28=.C("S"+w$):E|
00001a30  25 21 33 32 3d a9 28 47  24 29 2b 31 0d 0b 75 34  |%!32=.(G$)+1..u4|
00001a40  cc 3a 45 25 21 32 30 3d  28 31 3c 3c 32 38 29 2b  |.:E%!20=(1<<28)+|
00001a50  28 37 3c 3c 32 34 29 2b  28 33 3c 3c 31 32 29 2b  |(7<<24)+(3<<12)+|
00001a60  28 32 36 29 3a 24 28 45  25 2b 32 34 29 3d 77 24  |(26):$(E%+24)=w$|
00001a70  0d 0b 76 17 cd 3a c8 99  26 34 30 30 63 32 2c 2c  |..v..:..&400c2,,|
00001a80  45 25 b8 75 3a 3d 75 0d  0b 77 3b dd a4 5a 28 4d  |E%.u:=u..w;..Z(M|
00001a90  25 2c 43 25 29 3a 21 45  25 3d 4d 25 3a 45 25 21  |%,C%):!E%=M%:E%!|
00001aa0  34 3d 43 25 3a c8 99 26  34 30 30 63 65 2c 2c 45  |4=C%:..&400ce,,E|
00001ab0  25 3a 3d 28 45 25 21 32  34 3e 3e 32 31 80 31 29  |%:=(E%!24>>21.1)|
00001ac0  3e 30 0d 0b 78 23 dd f2  46 28 4d 25 2c 43 25 2c  |>0..x#..F(M%,C%,|
00001ad0  73 25 29 3a f2 4c 28 4d  25 2c 43 25 2c 32 32 2c  |s%):.L(M%,C%,22,|
00001ae0  73 25 29 3a e1 0d 0b 79  23 dd f2 42 28 4d 25 2c  |s%):...y#..B(M%,|
00001af0  43 25 2c 73 25 29 3a f2  4c 28 4d 25 2c 43 25 2c  |C%,s%):.L(M%,C%,|
00001b00  32 31 2c 73 25 29 3a e1  0d 0b 7a 21 dd f2 4c 28  |21,s%):...z!..L(|
00001b10  4d 25 2c 43 25 2c 48 25  2c 73 25 29 3a ea 71 25  |M%,C%,H%,s%):.q%|
00001b20  2c 5f 25 3a c8 8e 73 25  ca 0d 0b 7b 18 c9 30 3a  |,_%:..s%...{..0:|
00001b30  71 25 3d 30 3c 3c 48 25  3a 5f 25 3d 31 3c 3c 48  |q%=0<<H%:_%=1<<H|
00001b40  25 0d 0b 7c 1b c9 2d 31  2c 31 3a 71 25 3d 31 3c  |%..|..-1,1:q%=1<|
00001b50  3c 48 25 3a 5f 25 3d 31  3c 3c 48 25 0d 0b 7d 18  |<H%:_%=1<<H%..}.|
00001b60  c9 32 3a 71 25 3d 31 3c  3c 48 25 3a 5f 25 3d 30  |.2:q%=1<<H%:_%=0|
00001b70  3c 3c 48 25 0d 0b 7e 35  cb 3a 45 25 21 30 3d 4d  |<<H%..~5.:E%!0=M|
00001b80  25 3a 45 25 21 34 3d 43  25 3a 45 25 21 38 3d 71  |%:E%!4=C%:E%!8=q|
00001b90  25 3a 45 25 21 31 32 3d  5f 25 3a c8 99 26 34 30  |%:E%!12=_%:..&40|
00001ba0  30 63 64 2c 2c 45 25 3a  e1 0d 0b 7f 59 dd f2 62  |0cd,,E%:....Y..b|
00001bb0  28 4d 25 2c 43 25 29 3a  4d 25 2b 3d 4d 25 3d 2d  |(M%,C%):M%+=M%=-|
00001bc0  31 3a 21 45 25 3d 4d 25  3a 45 25 21 34 3d 43 25  |1:!E%=M%:E%!4=C%|
00001bd0  3a c8 99 26 34 30 30 63  65 2c 2c 45 25 3a c8 99  |:..&400ce,,E%:..|
00001be0  26 34 30 30 64 31 2c 4d  25 2c 45 25 21 38 2c 45  |&400d1,M%,E%!8,E|
00001bf0  25 21 31 32 2c 45 25 21  31 36 2c 45 25 21 32 30  |%!12,E%!16,E%!20|
00001c00  3a e1 0d 0b 80 47 dd a4  53 28 4d 25 2c 43 25 29  |:....G..S(M%,C%)|
00001c10  3a 45 25 21 30 3d 4d 25  3a 45 25 21 34 3d 43 25  |:E%!0=M%:E%!4=C%|
00001c20  3a c8 99 26 34 30 30 63  65 2c 2c 45 25 3a e7 28  |:..&400ce,,E%:.(|
00001c30  28 45 25 21 32 34 29 80  32 35 36 29 3d 30 8c 3d  |(E%!24).256)=0.=|
00001c40  a4 41 28 45 25 2b 32 38  29 0d 0b 81 0e 3d a4 41  |.A(E%+28)....=.A|
00001c50  28 45 25 21 32 38 29 0d  0b 82 71 dd f2 41 28 4d  |(E%!28)...q..A(M|
00001c60  25 2c 43 25 2c 44 24 29  44 24 3d a4 45 28 44 24  |%,C%,D$)D$=.E(D$|
00001c70  29 3a 45 25 21 30 3d 4d  25 3a 45 25 21 34 3d 43  |):E%!0=M%:E%!4=C|
00001c80  25 3a c8 99 26 34 30 30  63 65 2c 2c 45 25 3a e7  |%:..&400ce,,E%:.|
00001c90  28 28 45 25 21 32 34 29  80 32 35 36 29 3d 30 8c  |((E%!24).256)=0.|
00001ca0  85 32 30 35 31 2c 22 49  63 6f 6e 20 69 73 6e 27  |.2051,"Icon isn'|
00001cb0  74 20 69 6e 64 69 72 65  63 74 65 64 20 28 23 22  |t indirected (#"|
00001cc0  2b c3 43 25 2b 22 29 22  0d 0b 83 13 e7 a4 41 28  |+.C%+")"......A(|
00001cd0  45 25 21 32 38 29 3c 3e  44 24 8c 0d 0b 84 46 e7  |E%!28)<>D$....F.|
00001ce0  a9 28 44 24 29 3c 45 25  21 33 36 8c 24 28 45 25  |.(D$)<E%!36.$(E%|
00001cf0  21 32 38 29 3d 44 24 8b  85 32 30 35 31 2c 22 54  |!28)=D$..2051,"T|
00001d00  65 78 74 20 74 6f 6f 20  6c 6f 6e 67 20 66 6f 72  |ext too long for|
00001d10  20 69 63 6f 6e 20 28 23  22 2b c3 43 25 2b 22 29  | icon (#"+.C%+")|
00001d20  22 0d 0b 85 0d f2 62 28  4d 25 2c 43 25 29 0d 0b  |".....b(M%,C%)..|
00001d30  86 07 cd 3a e1 0d 0b 87  45 dd f2 61 28 41 2c 4d  |...:....E..a(A,M|
00001d40  2c 4a 29 3a ea 50 2c 45  2c 5a 24 2c 47 2c 45 24  |,J):.P,E,Z$,G,E$|
00001d50  2c 41 24 2c 78 24 2c 49  24 3a 47 3d a3 3a 50 3d  |,A$,x$,I$:G=.:P=|
00001d60  2d 31 3a f5 3a f3 45 2c  5a 24 3a e7 45 3e 28 31  |-1:.:.E,Z$:.E>(1|
00001d70  3c 3c 31 36 29 84 45 3c  30 8c 0d 0b 88 09 e7 50  |<<16).E<0......P|
00001d80  3d 41 8c 0d 0b 89 13 45  3d 4d 3a 5a 24 3d 22 22  |=A.....E=M:Z$=""|
00001d90  3a 78 24 3d 41 24 0d 0b  8a 0f cc 3a 50 3d 45 3a  |:x$=A$.....:P=E:|
00001da0  41 24 3d 5a 24 0d 0b 8b  05 cd 0d 0b 8c 0f cd 3a  |A$=Z$..........:|
00001db0  e7 45 3d 4d 80 50 3d 41  8c 0d 0b 8d 10 e7 4d 3d  |.E=M.P=A......M=|
00001dc0  2d 31 84 5a 24 3d 22 22  8c 0d 0b 8e 15 f2 5a 28  |-1.Z$=""......Z(|
00001dd0  a4 45 28 41 24 29 2b 22  7c 4d 22 2c 4a 29 0d 0b  |.E(A$)+"|M",J)..|
00001de0  8f 30 cc 3a 41 24 3d a4  45 28 41 24 29 3a e7 a7  |.0.:A$=.E(A$):..|
00001df0  41 24 2c 22 7c 4d 22 29  3e 30 8c 41 24 3d c0 41  |A$,"|M")>0.A$=.A|
00001e00  24 2c a7 41 24 2c 22 7c  4d 22 29 2d 31 29 0d 0b  |$,.A$,"|M")-1)..|
00001e10  90 1c f2 5a 28 a4 45 28  41 24 29 2b 22 7c 4d 22  |...Z(.E(A$)+"|M"|
00001e20  2b a4 45 28 5a 24 29 2c  4a 29 0d 0b 91 09 cd 3a  |+.E(Z$),J).....:|
00001e30  47 3d b9 0d 0b 92 17 cd  3a fd 5a 24 3d 22 2d 31  |G=......:.Z$="-1|
00001e40  22 84 47 3d b9 3a e7 ac  47 8c 0d 0b 93 36 21 5a  |".G=.:..G....6!Z|
00001e50  25 3d 2d 31 3a 5a 25 21  34 3d 2d 31 3a 5a 25 21  |%=-1:Z%!4=-1:Z%!|
00001e60  38 3d 2d 31 3a c8 99 26  34 30 30 66 34 2c 31 2c  |8=-1:..&400f4,1,|
00001e70  5a 25 2c 41 2c 4d 3a e7  21 5a 25 3c 3e 2d 31 8c  |Z%,A,M:.!Z%<>-1.|
00001e80  0d 0b 94 69 c8 99 26 34  30 30 64 35 2c 2c 50 25  |...i..&400d5,,P%|
00001e90  2c 5a 25 2c c4 32 35 35  2c 22 20 22 29 b8 2c 2c  |,Z%,.255," ").,,|
00001ea0  2c 49 24 3a 41 24 3d 49  24 3a c8 95 a7 41 24 2c  |,I$:A$=I$:...A$,|
00001eb0  22 20 22 29 3e 30 3a c1  41 24 2c a7 41 24 2c 22  |" ")>0:.A$,.A$,"|
00001ec0  20 22 29 2c 31 29 3d 22  5f 22 3a ce 3a 5a 24 3d  | "),1)="_":.:Z$=|
00001ed0  a4 4e 28 22 48 4d 22 2b  41 24 29 3a e7 5a 24 3c  |.N("HM"+A$):.Z$<|
00001ee0  3e 22 48 4d 22 2b 41 24  8c 0d 0b 95 0c f2 5a 28  |>"HM"+A$......Z(|
00001ef0  5a 24 2c 4a 29 0d 0b 96  30 cc 3a f5 3a f3 41 24  |Z$,J)...0.:.:.A$|
00001f00  2c 45 2c 5a 24 2c 5a 24  3a fd a0 28 41 24 29 3d  |,E,Z$,Z$:..(A$)=|
00001f10  50 25 84 41 24 3d 22 2d  32 22 3a e7 41 24 3c 3e  |P%.A$="-2":.A$<>|
00001f20  22 2d 32 22 8c 0d 0b 97  0a e7 45 3e 2d 31 8c 0d  |"-2"......E>-1..|
00001f30  0b 98 10 f2 5a 28 5a 24  2c 4a 29 3a 47 3d b9 0d  |....Z(Z$,J):G=..|
00001f40  0b 99 24 cc 3a f5 3a f3  50 2c 41 24 2c 45 2c 5a  |..$.:.:.P,A$,E,Z|
00001f50  24 3a e7 bb 28 41 24 29  3d 30 80 41 24 3c 3e 22  |$:..(A$)=0.A$<>"|
00001f60  30 22 8c 0d 0b 9a 17 e7  49 24 3d 41 24 8c f2 5a  |0"......I$=A$..Z|
00001f70  28 5a 24 2c 4a 29 3a 47  3d b9 0d 0b 9b 20 cc 3a  |(Z$,J):G=.... .:|
00001f80  e7 50 3d 5a 25 21 30 80  bb 28 41 24 29 3d 5a 25  |.P=Z%!0..(A$)=Z%|
00001f90  21 34 80 45 3d 5a 25 21  38 8c 0d 0b 9c 10 f2 5a  |!4.E=Z%!8......Z|
00001fa0  28 5a 24 2c 4a 29 3a 47  3d b9 0d 0b 9d 05 cd 0d  |(Z$,J):G=.......|
00001fb0  0b 9e 17 cd 3a fd 47 3d  b9 84 50 3d 2d 32 84 50  |....:.G=..P=-2.P|
00001fc0  3e 33 32 37 36 38 0d 0b  9f 05 cd 0d 0b a0 05 cd  |>32768..........|
00001fd0  0d 0b a1 05 cd 0d 0b a2  05 cd 0d 0b a3 07 cd 3a  |...............:|
00001fe0  e1 0d 0b a4 2d dd f2 5a  28 5a 24 2c 4a 29 5a 24  |....-..Z(Z$,J)Z$|
00001ff0  3d a4 45 28 5a 24 29 3a  e7 c2 5a 24 2c 32 29 3c  |=.E(Z$):..Z$,2)<|
00002000  3e 22 7c 4d 22 8c 5a 24  2b 3d 22 7c 4d 22 0d 0b  |>"|M".Z$+="|M"..|
00002010  a5 60 ea 46 24 2c 4a 24  3a 5a 24 3d a4 42 28 5a  |.`.F$,J$:Z$=.B(Z|
00002020  24 29 3a c8 95 a7 5a 24  2c 22 7c 4d 22 29 3e 30  |$):...Z$,"|M")>0|
00002030  3a 46 24 3d c0 5a 24 2c  a7 5a 24 2c 22 7c 4d 22  |:F$=.Z$,.Z$,"|M"|
00002040  29 2d 31 29 3a 5a 24 3d  c1 5a 24 2c a9 28 46 24  |)-1):Z$=.Z$,.(F$|
00002050  29 2b 33 29 3a e7 a7 22  21 2e 3f 22 2c c2 46 24  |)+3):.."!.?",.F$|
00002060  2c 31 29 29 3d 30 8c 46  24 2b 3d 22 2e 22 0d 0b  |,1))=0.F$+="."..|
00002070  a6 68 4a 24 2b 3d 46 24  2b 22 7c 4d 22 3a ce 3a  |.hJ$+=F$+"|M":.:|
00002080  45 25 21 31 32 3d 45 25  21 38 3a 45 25 21 34 3d  |E%!12=E%!8:E%!4=|
00002090  4a 3a 45 25 21 31 36 3d  31 32 38 33 3a 24 28 45  |J:E%!16=1283:$(E|
000020a0  25 2b 32 30 29 3d 4a 24  2b bd 30 3a 45 25 21 30  |%+20)=J$+.0:E%!0|
000020b0  3d 32 30 2b 28 a9 28 4a  24 29 2b 34 29 80 2d 34  |=20+(.(J$)+4).-4|
000020c0  3a c8 99 26 34 30 30 65  37 2c 31 37 2c 45 25 2c  |:..&400e7,17,E%,|
000020d0  45 25 21 34 3a e1 0d 0b  a7 35 dd f2 56 ea 4c 2c  |E%!4:....5..V.L,|
000020e0  49 3a e7 46 25 3c 3e 2d  31 8c 85 32 30 35 31 2c  |I:.F%<>-1..2051,|
000020f0  22 4d 65 73 73 61 67 65  20 66 69 6c 65 20 61 6c  |"Message file al|
00002100  72 65 61 64 79 20 6f 70  65 6e 22 0d 0b a8 38 c8  |ready open"...8.|
00002110  99 26 34 31 35 30 30 2c  2c 4e 24 2b 22 2e 4d 65  |.&41500,,N$+".Me|
00002120  73 73 61 67 65 73 22 b8  4c 2c 2c 49 3a e7 28 4c  |ssages".L,,I:.(L|
00002130  80 31 29 3d 31 8c 47 25  3d 30 8b 47 25 3d a4 46  |.1)=1.G%=0.G%=.F|
00002140  28 49 29 0d 0b a9 3c e7  47 25 3d 2d 31 8c 85 32  |(I)...<.G%=-1..2|
00002150  30 35 31 2c 22 4e 6f 20  72 6f 6f 6d 20 66 6f 72  |051,"No room for|
00002160  20 73 65 63 6f 6e 64 61  72 79 20 4d 65 73 73 61  | secondary Messa|
00002170  67 65 54 72 61 6e 73 20  62 75 66 66 65 72 22 0d  |geTrans buffer".|
00002180  0b aa 4b 46 25 3d a4 46  28 31 36 29 3a e7 46 25  |..KF%=.F(16):.F%|
00002190  3d 2d 31 8c f2 4d 28 47  25 29 3a 85 32 30 35 31  |=-1..M(G%):.2051|
000021a0  2c 22 4e 6f 20 72 6f 6f  6d 20 66 6f 72 20 70 72  |,"No room for pr|
000021b0  69 6d 61 72 79 20 4d 65  73 73 61 67 65 54 72 61  |imary MessageTra|
000021c0  6e 73 20 62 75 66 66 65  72 22 0d 0b ab 23 c8 99  |ns buffer"...#..|
000021d0  26 34 31 35 30 31 2c 46  25 2c 4e 24 2b 22 2e 4d  |&41501,F%,N$+".M|
000021e0  65 73 73 61 67 65 73 22  2c 47 25 3a e1 0d 0b ac  |essages",G%:....|
000021f0  24 dd f2 43 3a ea 85 3a  ee 85 ea 3a ef 34 3a f6  |$..C:..:...:.4:.|
00002200  3a f1 22 20 61 74 20 22  3b 9e 3a 4a 79 3d a5 3a  |:." at ";.:Jy=.:|
00002210  e1 0d 0b ad 0b e7 46 25  3e 2d 31 8c 0d 0b ae 1d  |......F%>-1.....|
00002220  c8 99 26 36 31 35 30 34  2c 46 25 3a f2 4d 28 46  |..&61504,F%:.M(F|
00002230  25 29 3a f2 4d 28 47 25  29 0d 0b af 07 cd 3a e1  |%):.M(G%).....:.|
00002240  0d 0b b0 38 dd a4 4e 28  57 24 29 ea 59 24 2c 4f  |...8..N(W$).Y$,O|
00002250  24 2c 56 24 2c 45 24 2c  4a 25 2c 4c 3a e7 46 25  |$,V$,E$,J%,L:.F%|
00002260  3d 2d 31 8c 3d 57 24 8b  57 24 2b 3d 22 3a 3a 3a  |=-1.=W$.W$+=":::|
00002270  3a 22 3a 45 24 3d 57 24  0d 0b b1 cf 45 24 3d c1  |:":E$=W$....E$=.|
00002280  45 24 2c a7 45 24 2c 22  3a 22 29 2b 31 29 3a 57  |E$,.E$,":")+1):W|
00002290  24 3d c0 57 24 2c a7 57  24 2c 22 3a 22 29 2d 31  |$=.W$,.W$,":")-1|
000022a0  29 3a 59 24 3d c0 45 24  2c a7 45 24 2c 22 3a 22  |):Y$=.E$,.E$,":"|
000022b0  29 2d 31 29 3a 45 24 3d  c1 45 24 2c a9 28 59 24  |)-1):E$=.E$,.(Y$|
000022c0  29 2b 32 29 3a 4f 24 3d  c0 45 24 2c a7 45 24 2c  |)+2):O$=.E$,.E$,|
000022d0  22 3a 22 29 2d 31 29 3a  45 24 3d c1 45 24 2c a9  |":")-1):E$=.E$,.|
000022e0  28 4f 24 29 2b 32 29 3a  56 24 3d c0 45 24 2c a7  |(O$)+2):V$=.E$,.|
000022f0  45 24 2c 22 3a 22 29 2d  31 29 3a 45 24 3d c1 45  |E$,":")-1):E$=.E|
00002300  24 2c a9 28 56 24 29 2b  32 29 3a c8 99 26 36 31  |$,.(V$)+2):..&61|
00002310  35 30 32 2c 46 25 2c 57  24 2c 5a 25 2c 32 35 36  |502,F%,W$,Z%,256|
00002320  2c 59 24 2c 4f 24 2c 56  24 b8 2c 2c 2c 4a 25 3b  |,Y$,O$,V$.,,,J%;|
00002330  4c 3a e7 28 4c 80 31 29  3d 31 8c 3d 57 24 8b 5a  |L:.(L.1)=1.=W$.Z|
00002340  25 3f 4a 25 3d 31 33 0d  0b b2 0c 3d a4 42 28 24  |%?J%=13....=.B($|
00002350  5a 25 29 0d 0b b3 25 dd  a4 45 28 45 24 29 3a e7  |Z%)...%..E(E$):.|
00002360  c0 45 24 2c 31 29 3d 22  3e 22 8c 45 24 3d a4 4e  |.E$,1)=">".E$=.N|
00002370  28 c1 45 24 2c 32 29 29  0d 0b b4 07 3d 45 24 0d  |(.E$,2))....=E$.|
00002380  0b b5 35 dd a4 41 28 61  29 ea 45 24 3a c8 95 3f  |..5..A(a).E$:..?|
00002390  61 3e 33 31 80 a9 28 45  24 29 3c 32 35 35 3a 45  |a>31..(E$)<255:E|
000023a0  24 3d 45 24 2b bd 3f 61  3a 61 3d 61 2b 31 3a ce  |$=E$+.?a:a=a+1:.|
000023b0  3a 3d 45 24 0d 0b b6 4a  dd a4 4f 28 45 24 29 ea  |:=E$...J..O(E$).|
000023c0  4a 24 2c 46 24 2c 42 3a  e3 42 3d 31 b8 a9 28 45  |J$,F$,B:.B=1..(E|
000023d0  24 29 3a 4a 24 3d c1 45  24 2c 42 2c 31 29 3a e7  |$):J$=.E$,B,1):.|
000023e0  4a 24 3e 3d 22 41 22 80  4a 24 3c 3d 22 5a 22 8c  |J$>="A".J$<="Z".|
000023f0  4a 24 3d bd 28 97 28 4a  24 29 2b 33 32 29 0d 0b  |J$=.(.(J$)+32)..|
00002400  b7 10 46 24 2b 3d 4a 24  3a ed 3a 3d 46 24 0d 0b  |..F$+=J$:.:=F$..|
00002410  b8 4a dd a4 57 28 45 24  29 ea 4a 24 2c 46 24 2c  |.J..W(E$).J$,F$,|
00002420  42 3a e3 42 3d 31 b8 a9  28 45 24 29 3a 4a 24 3d  |B:.B=1..(E$):J$=|
00002430  c1 45 24 2c 42 2c 31 29  3a e7 4a 24 3e 3d 22 61  |.E$,B,1):.J$>="a|
00002440  22 80 4a 24 3c 3d 22 7a  22 8c 4a 24 3d bd 28 97  |".J$<="z".J$=.(.|
00002450  28 4a 24 29 2d 33 32 29  0d 0b b9 10 46 24 2b 3d  |(J$)-32)....F$+=|
00002460  4a 24 3a ed 3a 3d 46 24  0d 0b ba 1d dd a4 42 28  |J$:.:=F$......B(|
00002470  45 24 29 3a ea 46 24 2c  55 24 3a ea 85 3a ee 85  |E$):.F$,U$:..:..|
00002480  ea 3a 3d 45 24 0d 0b bb  5b c8 95 a7 45 24 2c 22  |.:=E$...[...E$,"|
00002490  a4 22 29 3e 30 3a 46 24  3d c1 45 24 2c a7 45 24  |.")>0:F$=.E$,.E$|
000024a0  2c 22 a4 22 29 2b 31 29  3a 46 24 3d c0 46 24 2c  |,".")+1):F$=.F$,|
000024b0  a7 46 24 2c 22 a4 22 29  2d 31 29 3a 55 24 3d 46  |.F$,".")-1):U$=F|
000024c0  24 3a e7 c2 55 24 2c 31  29 3c 3e 22 24 22 8c 55  |$:..U$,1)<>"$".U|
000024d0  24 3d 22 53 54 52 24 28  22 2b 55 24 2b 22 29 22  |$="STR$("+U$+")"|
000024e0  0d 0b bc 38 45 24 3d c0  45 24 2c a7 45 24 2c 22  |...8E$=.E$,.E$,"|
000024f0  a4 22 29 2d 31 29 2b a0  28 55 24 29 2b c1 45 24  |.")-1)+.(U$)+.E$|
00002500  2c a7 45 24 2c 22 a4 22  29 2b a9 28 46 24 29 2b  |,.E$,".")+.(F$)+|
00002510  32 29 3a ce 3a 3d 45 24  0d 0b bd 3d dd a4 48 28  |2):.:=E$...=..H(|
00002520  4d 24 29 ea 4a 25 2c 6c  2c 4c 3a c8 99 26 32 30  |M$).J%,l,L:..&20|
00002530  30 30 38 2c 35 2c 4d 24  b8 6c 2c 2c 2c 2c 4a 25  |008,5,M$.l,,,,J%|
00002540  3b 4c 3a e7 6c 3d 30 84  28 4c 80 31 29 3d 31 8c  |;L:.l=0.(L.1)=1.|
00002550  4a 25 3d 2d 31 0d 0b be  07 3d 4a 25 0d 0b bf 2d  |J%=-1....=J%...-|
00002560  dd a4 54 28 4d 24 29 ea  48 24 3a e7 a7 4d 24 2c  |..T(M$).H$:..M$,|
00002570  22 3a 22 29 3e 30 8c 4d  24 3d c1 4d 24 2c a7 4d  |":")>0.M$=.M$,.M|
00002580  24 2c 22 3a 22 29 2b 31  29 0d 0b c0 0f c8 8e a7  |$,":")+1).......|
00002590  4d 24 2c 22 2e 22 29 ca  0d 0b c1 0c c9 30 3a 48  |M$,".")......0:H|
000025a0  24 3d 4d 24 0d 0b c2 1f  7f 48 24 3d a4 54 28 c2  |$=M$.....H$=.T(.|
000025b0  4d 24 2c a9 28 4d 24 29  2d a7 4d 24 2c 22 2e 22  |M$,.(M$)-.M$,"."|
000025c0  29 29 29 0d 0b c3 09 cb  3a 3d 48 24 0d 0b c4 36  |))).....:=H$...6|
000025d0  dd a4 46 28 67 25 29 3a  ea 58 3a e7 67 25 3c 31  |..F(g%):.X:.g%<1|
000025e0  8c 85 32 30 35 31 2c 22  43 61 6e 6e 6f 74 20 63  |..2051,"Cannot c|
000025f0  6c 61 69 6d 20 6e 65 67  61 74 69 76 65 20 52 4d  |laim negative RM|
00002600  41 22 0d 0b c5 29 c8 99  26 32 30 30 31 65 2c 36  |A"...)..&2001e,6|
00002610  2c 2c 2c 67 25 b8 2c 2c  58 25 3b 58 3a e7 28 58  |,,,g%.,,X%;X:.(X|
00002620  80 31 29 3e 30 8c 58 25  3d 2d 31 0d 0b c6 07 3d  |.1)>0.X%=-1....=|
00002630  58 25 0d 0b c7 23 dd f2  4d 28 f8 58 25 29 3a e7  |X%...#..M(.X%):.|
00002640  58 25 3e 30 8c c8 99 33  30 2c 37 2c 2c 58 25 3a  |X%>0...30,7,,X%:|
00002650  58 25 3d 2d 31 0d 0b c8  05 e1 0d 0b c9 69 dd a4  |X%=-1........i..|
00002660  56 28 45 24 29 3a ea 5a  2c 56 2c 57 24 3a c8 99  |V(E$):.Z,V,W$:..|
00002670  26 34 32 36 38 31 2c 2c  5a 25 2c 31 36 b8 56 3a  |&42681,,Z%,16.V:|
00002680  c8 95 56 3c 3e 2d 31 3a  5a 3d 21 5a 25 3a 57 24  |..V<>-1:Z=!Z%:W$|
00002690  3d a4 41 28 5a 25 21 34  29 3a c8 99 26 34 32 36  |=.A(Z%!4):..&426|
000026a0  38 31 2c 56 2c 5a 25 2c  31 36 b8 56 3a e7 57 24  |81,V,Z%,16.V:.W$|
000026b0  3d 45 24 8c 56 3d 2d 31  8b e7 56 3d 2d 31 8c 5a  |=E$.V=-1..V=-1.Z|
000026c0  3d 2d 31 0d 0b ca 08 ce  3a 3d 5a 0d 0b cb 21 dd  |=-1.....:=Z...!.|
000026d0  f2 54 28 41 2c 4d 29 3a  f2 72 28 41 2c 4d 2c a9  |.T(A,M):.r(A,M,.|
000026e0  28 a4 53 28 41 2c 4d 29  29 29 3a e1 0d 0b cc 28  |(.S(A,M))):....(|
000026f0  dd f2 72 28 41 2c 4d 2c  51 79 29 3a c8 99 26 34  |..r(A,M,Qy):..&4|
00002700  30 30 64 32 2c 41 2c 4d  2c 30 2c 30 2c 2d 31 2c  |00d2,A,M,0,0,-1,|
00002710  51 79 3a e1 0d 0b cd 0e  dd f2 64 3a d9 23 42 25  |Qy:.......d:.#B%|
00002720  3a e1 0d 0b ce 20 dd a4  52 28 4d 24 29 ea 45 24  |:.... ..R(M$).E$|
00002730  3a 42 25 3d 8e 28 4d 24  29 3a e7 42 25 3d 30 8c  |:B%=.(M$):.B%=0.|
00002740  3d a3 0d 0b cf 2a 4d 24  3d a4 4d 28 22 50 72 6f  |=....*M$=.M("Pro|
00002750  67 72 61 6d 22 29 3a e7  4d 24 3c 3e 41 70 70 6e  |gram"):.M$<>Appn|
00002760  61 6d 65 24 8c d9 23 42  25 3a 3d a3 0d 0b d0 06  |ame$..#B%:=.....|
00002770  3d b9 0d 0b d1 2b dd f2  51 28 f8 45 24 2c f8 46  |=....+..Q(.E$,.F|
00002780  24 29 3a e7 c5 23 42 25  8c 45 24 3d 22 2a 45 2a  |$):..#B%.E$="*E*|
00002790  4e 2a 44 2a 22 3a 46 24  3d 22 22 3a e1 0d 0b d2  |N*D*":F$="":....|
000027a0  45 f5 45 24 3d be 23 42  25 3a fd c0 45 24 2c 31  |E.E$=.#B%:..E$,1|
000027b0  29 3c 3e 22 23 22 3a 46  24 3d c1 45 24 2c a7 45  |)<>"#":F$=.E$,.E|
000027c0  24 2c 22 3a 22 29 2b 31  29 3a 45 24 3d a4 57 28  |$,":")+1):E$=.W(|
000027d0  c0 45 24 2c a7 45 24 2c  22 3a 22 29 2d 31 29 29  |.E$,.E$,":")-1))|
000027e0  3a e1 0d 0b d3 2f dd a4  4d 28 45 24 29 3a ea 46  |:..../..M(E$):.F|
000027f0  24 2c 4a 24 3a 45 24 3d  a4 57 28 45 24 29 3a f2  |$,J$:E$=.W(E$):.|
00002800  51 28 46 24 2c 4a 24 29  3a e7 45 24 3c 3e 46 24  |Q(F$,J$):.E$<>F$|
00002810  8c 0d 0b d4 33 cf 23 42  25 3d 30 3a 46 24 3d 22  |....3.#B%=0:F$="|
00002820  22 3a c8 95 45 24 3c 3e  46 24 80 46 24 3c 3e 22  |":..E$<>F$.F$<>"|
00002830  2a 45 2a 4e 2a 44 2a 22  3a f2 51 28 46 24 2c 4a  |*E*N*D*":.Q(F$,J|
00002840  24 29 3a ce 0d 0b d5 09  cd 3a 3d 4a 24 0d 0b d6  |$):......:=J$...|
00002850  2b dd a4 59 28 45 24 29  45 24 3d a4 4d 28 45 24  |+..Y(E$)E$=.M(E$|
00002860  29 3a e7 c0 45 24 2c 31  29 3d 22 25 22 8c 3d bb  |):..E$,1)="%".=.|
00002870  28 c1 45 24 2c 32 29 29  0d 0b d7 06 3d 30 0d 0b  |(.E$,2))....=0..|
00002880  d8 2c dd a4 4a 28 45 24  29 45 24 3d a4 4d 28 45  |.,..J(E$)E$=.M(E|
00002890  24 29 3a e7 45 24 3d 22  25 31 22 84 a4 57 28 45  |$):.E$="%1"..W(E|
000028a0  24 29 3d 22 4f 4e 22 8c  3d b9 0d 0b d9 06 3d a3  |$)="ON".=.....=.|
000028b0  0d 0b da 8c dd f2 59 3a  c8 99 38 31 b8 54 3a 48  |......Y:..81.T:H|
000028c0  3d 54 3a 5f 3d 93 3a 74  3d 32 3a 42 79 3d 30 3a  |=T:_=.:t=2:By=0:|
000028d0  c8 99 26 34 30 30 65 63  2c 2d 31 2c 2d 31 b8 76  |..&400ec,-1,-1.v|
000028e0  3a c8 99 26 34 30 30 65  63 2c 76 2b 48 2c 2d 31  |:..&400ec,v+H,-1|
000028f0  3a c8 99 32 39 2c 30 2c  5f 2c 2c 48 3a c8 99 32  |:..29,0,_,,H:..2|
00002900  39 2c 32 2c 5f 2c 2c 34  2a 74 2b 34 b8 2c 2c 65  |9,2,_,,4*t+4.,,e|
00002910  3a 65 2b 3d 34 3a 65 21  2d 34 3d 26 34 33 34 66  |:e+=4:e!-4=&434f|
00002920  34 63 35 32 3a e3 42 3d  30 b8 74 2a 34 2d 34 88  |4c52:.B=0.t*4-4.|
00002930  34 3a 65 21 42 3d 2d 31  3a ed 3a e1 0d 0b db 45  |4:e!B=-1:.:....E|
00002940  dd f2 55 3a ea 77 2c 4b  3a 77 3d 48 2d 5f 21 38  |..U:.w,K:w=H-_!8|
00002950  3a c8 95 77 3e 54 3a c8  99 26 32 30 30 31 64 2c  |:..w>T:..&2001d,|
00002960  35 2c 5f 2c 2c 2d 54 b8  3b 4b 3a e7 28 4b 80 31  |5,_,,-T.;K:.(K.1|
00002970  29 3d 31 8c 77 3d 30 8b  48 2d 3d 54 3a 77 2d 3d  |)=1.w=0.H-=T:w-=|
00002980  54 0d 0b dc 1a c8 99 26  36 30 30 65 63 2c 76 2b  |T......&600ec,v+|
00002990  48 2c 2d 31 b8 3b 4b 3a  ce 3a e1 0d ff           |H,-1.;K:.:...|
0000299d