x��0,15)�$;" at line ";�:�
�;UV$="DataBase":UW$="1.9 (October 1994)":�UX:��UY:UZ%=�
��UZ%=� �
�/Ua$=�Ub(1):�Ua$<>""�Uc(Ua$)�Ua$="DBaseFile"
��:�UZ%=� �
��=20 ��=204 ��=67785 UZ%=�
��=67782�#Ud%:UZ%=�
�G�:�:�Ue(�Ue(0)):�UZ%:ș&400DD:�j%=0 �2:�Uf%(j%)<>-1ș&40082,Uf%(j%)

"�:�

h���UX:�Ug% &2000,Uh% &1000,Ui% 64:�Uj% &2000,Uk% 15,Ul% 15,Um%(36):�Un% &600,Uo% &600,Up% &600:�Uq% &600,Ur% &600:�Us% &400:Ut%=Us%:ș&41500,,"<DataBase$Dir>.Resources.Messages" �,,Uu%:�Uv% 15:Uw%=�:Ux%=�-&8000:ș&400EC,Ux%+Uu%,-1 �Uy%:�Uy%>=Ux%+Uu% �

�8ș&41501,Uv%,"<DataBase$Dir>.Resources.Messages",Uw%

�$�UZ%=�:�&200,"Not enough memory"

�v�:Uz%=500:VU%=18:�R$(Uz%,VU%),F%(Uz%):VV%=18:�F$(VV%,9):VW%=1:VX%=0:VY%=�::VZ%=�:�A%(12):�i%=1 �12:�A%(i%):�:Va%=�
0� 0,31,59,90,120,151,181,212,243,273,304,334
'�Vb%(12):�i%=1 �12:�Vb%(i%):�:Vc%=�
)� 31,28,31,30,31,30,31,31,30,31,30,31
&��Vd%(18):�j%=1 �18:Vd%(j%)=�:�:Ve%=0:�Vf$(18),Vg$(18):Vh%=�:Vi%=5:Vj%=�:�Uf%(2),Vk% 1200:�j%=0 �2:Uf%(j%)=-1:�:Vl%=12:ș&40081,,"Homerton.Medium",Vl%*16,Vl%*16 �Uf%(0):ș&40081,,"Homerton.Medium.Oblique",Vl%*16,Vl%*16 �Uf%(1)
Xmș&40081,,"Homerton.Bold",Vl%*16,Vl%*16 �Uf%(2):Vm%=�Vn(UV$):Vo%=�Vp(72,Vq%):Vr%=�(-256):Vs%=0:�Vr%<165 �
�-ș&6,&87 �,,Vt%:�Vt%=20 �Vt%=21 �Vt%=27 �
�-�Vu("<DataBase$Dir>.Resources.Sprites22")
�,��Vu("<DataBase$Dir>.Resources.Sprites")
��
�.��Vu("<DataBase$Dir>.Resources.Sprites22")
���:Vv$="card":�Vw(Vv$):A%=1:B%=0:�Vx:�Vy:�Vz(WU%,7,UW$):WV%=150:�WW% WV%:WX%=�:WY%=�:�j%=0 �WV%:WW%?j%=&00:�:WW%?1=&FF:WW%?4=&FF:WW%?11=&FF:WW%?12=&FF:WW%?18=&FF:WW%?32=&FF:Ua$="DBaseFile":WZ%=0:Wa%=0:Wb%=1:WW%?2=&FF
�Wc$="DBaseCSV":X%=1:Y%=0:Wd%=0:We%=�:WW%?23=&FF:Wf$=Ua$:S%=1:T%=0:Wg%=�:Wh%=�:Wi%=&12D:Wi$="DataBase "+�~(Wi%):Wj$="":Wk$="":N%=1:U%=0:Wl%=0:Wm%=1:Wn%=1:Wo%=1:Wp%=�:Wq%=�:Wr%=�:P%=1:Ws%=1:Wt%=150:�Wu:�Wv:�Vz(Ww%,6,"1"):Wx%=0:�
R���Vx:ș&400D9,,"<DataBase$Dir>.Resources.Templates":Wy%=�Wz("main"):WU%=�Wz("info"):XU%=�Wz("fileinfo"):XV%=�Wz("save"):XW%=�Wz("wfield"):XX%=�Wz("search"):XY%=�Wz("printinfo"):XZ%=�Wz("local"):Xa%=�Wz("dialog"):Xb%=�Wz("print")
��Ww%=�Wz("toolbox"):Xc%=�Wz("mfield"):Xd%=�Wz("sort"):Xe%=�Wz("cfield"):Xf%=�Wz("savetext"):Xg%=�Wz("delete"):Xh%=�Wz("wautosave"):Xi%=�Wz("toolfield"):Xj%=�Wz("toolsearch"):Xk%=�Wz("short"):Xl%=�Wz("message"):ș&400DA:�
���Vy:Xm%=�Xn("DataBase,Info,Help$,Create,Clear$,Quit"):�Xo(Xm%,1,WU%):Xp%=�Xn("DataBase,Search   F4,Sort     F5,Delete   F6$,Print    F7$,File info,Save     F3"):�Xo(Xp%,5,XU%):Xq%=�Xn("Save as:,Data,CSV$,Autosave"):�Xo(Xp%,6,Xq%):�Xo(Xq%,1,XV%)
8��Xo(Xq%,2,Xf%):�Xo(Xq%,3,Xh%):Xr%=�Xn("Paper type,Fanfold 80 col 11""#,Fanfold 80 col 12"",Fanfold 136 col 11"",Fanfold 136 col 12"",A4 single sheet"):Xs%=�Xn("Comparator,=,<>,>,>=,<=,<,Contains#,Not contains,Starts,Ends")
`MXt%=�Xn("Comparator,=,<>,>,>=,<=,<,Contains#,Not contains,Starts,Ends"):�
���Ue(Xu%):�a$,f%,a%:ȎXu% �
��0:�Wq%>0 ��(-113) �
�@ș&406C1:Wr%=�:�Xv(XY%):Xa$="Print aborted. Confirm?":�Xa(4)
��:�Wq%>0 �Wr%=� �
Ja$="Printing record "+�(P%)+" of "+�(Wa%):�P%<>Xw%�Vz(XY%,1,a$):Xw%=P%
�:�Wr%=� �WX%=� �
(�WY%=� �
20a$="Change sheet please":�Vz(XY%,1,a$):WY%=�
Fh�:�Xx(XY%,2,&11000139,&FF00FFFF):�Xx(XY%,3,&11000139,&FF00FFFF):�Xx(XY%,4,&17003139,&FF00FFFF):WX%=�
n�:�Wp%=� �Wr%=� �Wq%>0�Xb
��(-113)�Xv(XV%)
��(-116) �
��Xy%=��Xz(XV%,�):�YU(XV%,1)
��:�(-21) �
��U%�Xz(XX%,�):�YU(XX%,17)
��:�(-117) �
��U%�Xz(Xd%,�)
��:�(-118) �
��U%�YV:�Xz(Xg%,�)
��:�(-23) �
	�U% �
$�Xv(Wy%):�Xv(Ww%):�YW:�Xz(Xb%,�)
,�
6�:�Vh% �
J�>Vj%+(Vi%*6000) �
T�Xy%=��YX(Ug%!0)�Vj%=�
^�
h�:�VZ% �
|�Va%=� �
��7:�Xz(Xl%,�):Va%=�:Vc%=�
��:�>Vc%+700 �
��Xv(Xl%):VZ%=�:Va%=�
��
��
��:�(-42) ��(-1) �Wh% �
��N%=U% �U%=0 �
�	�U% �
�&XZ$="This is the last record.":�XZ
�%�XZ$="No records in archive.":�XZ
��
�N%+=1:�YY:�YZ
�
�:�(-42) ��(-2) �Wh% �
0�N%=U% �U%=0 �
:	�U% �
D&XZ$="This is the last record.":�XZ
N%�XZ$="No records in archive.":�XZ
X�
b�N%=U%:�YY:�YZ
l�
v�:�(-58) ��(-1) �Wh% �
��N%=1 �U%=0 �
�	�U% �
�'XZ$="This is the first record.":�XZ
�%�XZ$="No records in archive.":�XZ
��
��N%-=1:�YY:�YZ
��
��:�(-58) ��(-2) �Wh% �
��N%=1 �U%=0 �
�	�U% �
�'XZ$="This is the first record.":�XZ
%�XZ$="No records in archive.":�XZ
�
�N%=1:�YY:�YZ
 �
*�
4�1:�Ya(Ug%!0)
>�2:�Xz(Ug%!0,�)
H$�3:�Xv(Ug%!0):�Ug%!0=XW%�Xv(Xi%)
\�Ug%!0=Wy%�Xv(Ww%):Wh%=�
f�Ug%!0=XX%�Xv(Xj%)
p�Ug%!0=Xd%�Xv(Xc%)
z�Ug%!0=Xb%�Xv(Xe%)
��4:�Ug%!0=WU%�Xv(WU%)
��Ug%!0=XU%�Xv(XU%)
��6:�Yb(Ug%)
�
�7:�Yc
��8:�Yd(Ug%)
�
�9:�Ye
��17,18:�Xl(Ug%)
��:�
�=��Yf(Yg%):�a$:Ug%=Yg%:Ug%!12=Yg%!8:Ug%!16=&503:ȎUg%!32 �
	5�-2:�U%=0 a$=�Yh("IB1")�a$+=�Yh("IB1")+�Yh("IB2")
	$�Xi%:ȎUg%!36 �
	8.�1,2,7,8:a$=�Yh("SEM")+�Yh("WF"+�(Ug%!36))
	B�4,6:a$=�Yh("WF"+�(Ug%!36))
	L�
	V�XW%:ȎUg%!36 �
	jF�9,11,12,13,15,17,19,27,30,32,34:a$=�Yh("SEM")+�Yh("WF"+�(Ug%!36))
	~$�23,25,37:a$=�Yh("WF"+�(Ug%!36))
	��
	��Ww%:ȎUg%!36 �
	�0�1,2,3,4,9:a$=�Yh("SEM")+�Yh("TO"+�(Ug%!36))
	��6,8:a$=�Yh("TO"+�(Ug%!36))
	��
	��Wy%:ȎUg%!36 �
	�O�2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36:a$=�Yh("SEM")+�Yh("MA1")
	�a$=�Yh("MA0")
	��
�Xj%:ȎUg%!36 �
*�1,2:a$=�Yh("SEM")+�Yh("SE"+�(Ug%!36))
�4,6:a$=�Yh("SE"+�(Ug%!36))
(�
2�XX%:ȎUg%!36 �
FI�8,10,12,14,15,16,17,22,24,26,28,29:a$=�Yh("SEM")+�Yh("SE"+�(Ug%!36))
Z&�9,11,23,25:a$=�Yh("SE"+�(Ug%!36))
d�
n�XV%:ȎUg%!36 �
�!�1,2,3:a$=�Yh("SA"+�(Ug%!36))
�3�6,8,20,21,23:a$=�Yh("SEM")+�Yh("SA"+�(Ug%!36))
��
��Xf%:ȎUg%!36 �
�!�1,2,3:a$=�Yh("SA"+�(Ug%!36))
��
��WU%:a$=�Yh("INF")
��XU%:a$=�Yh("FIL")
��Xa%:a$=�Yh("DIA")
��XZ%:a$=�Yh("LOC")
��Xk%:ȎUg%!36 �
(�2:a$=�Yh("SEM")+�Yh("SH"+�(Ug%!36))
�
�XY%:ȎUg%!36 �
,.�1,2,3,4:a$=�Yh("SEM")+�Yh("PI"+�(Ug%!36))
6�
@�Xg%:ȎUg%!36 �
T2�2,4,6,10,13:a$=�Yh("SEM")+�Yh("DE"+�(Ug%!36))
^#�8:�Wl%a$=�Yh("SEM")+�Yh("DE8")
h3�11,12:�Wd%=3 a$=�Yh("SEM")+�Yh("DE"+�(Ug%!36))
|�
��Xd%:ȎUg%!36 �
�0�5,6,18,19:a$=�Yh("SEM")+�Yh("SO"+�(Ug%!36))
��
��Xb%:ȎUg%!36 �
�4�1,2,3,7,23,24:a$=�Yh("SEM")+�Yh("PR"+�(Ug%!36))
�#�5:�Wl%a$=�Yh("SEM")+�Yh("PR5")
�(�8,9,11,15,26:a$=�Yh("PR"+�(Ug%!36))
�3�19,21:�WZ%=3 a$=�Yh("SEM")+�Yh("PR"+�(Ug%!36))
��
��Xh%:ȎUg%!36 �
#�3:�Vh%a$=�Yh("SEM")+�Yh("AS3")
�9:a$=�Yh("SEM")+�Yh("AS9")
&�
0�Xc%:ȎUg%!36 �
DI�0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17:a$=�Yh("SEM")+�Yh("MFI")
X�
b�Xe%:ȎUg%!36 �
vI�0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17:a$=�Yh("SEM")+�Yh("CFI")
��
�V�:$(Ug%+20)=a$:Ug%!0=(((20+�(a$)+1)�4)*4)+4:$(Ug%+21+�(a$))=�(0):ș&400E7,17,Ug%:�
�cݤYh(a$):�j%,Yi$,Yj%,Uu%:ș&41502,Uv%,a$,0 �,,Yj%,Uu%:Yi$="":�j%=0 �Uu%-1:Yi$+=�(Yj%?j%):�:=Yi$

d��Yb(Ug%):Yk%=Ug%!8:Yg%=Ug%!12:Um%=Ug%!16:ș&400CF,,Ug%:Yl%=!Ug%:Ym%=Ug%!4:�Yk% �2�Yn(Yg%,Um%):�

4�Yg%=-2 �Um%=Vo% �

>�Yk%=Yo% �VY%=� �

H�Xz(Wy%,�)

R�:�

f&�:Ug%!0=Yg%:ș&400CC,0,Ug%:ȎYg% �

��XW%:�Yp(Um%,Yk%)

��Xi%:�Yk%=Yo%�Yq(Um%)

��Xc%:�Yk%=Yo%�Yr(Um%)

��Xe%:�Yk%=Yo%�Ys(Um%)

��Ww%:�Yk%=Yo%�Yt(Um%)

��XX%:�Yk%=Yo%�Yu(Um%)

��Xj%:�Yk%=Yo%�Yv(Um%)

��XV%:�Yk%=Yo%�Yw(Yg%,Um%)

��Xf%:�Yk%=Yo%�Yx(Yg%,Um%)

��XZ%:�Yk%=Yo%�Yy(Um%)

��Xa%:�Yk%=Yo%�Yz(Um%)

��Xb%:�Yk%=Yo%�ZU(Um%)

��XY%:�Yk%=Yo%�ZV(Um%)
�Xd%:�Yk%=Yo%�ZW(Um%)
�Xg%:�Yk%=Yo%�ZX(Um%)
�Xh%:�Yk%=Yo%�ZY(Yg%,Um%)
.�:�
LV��Yd(Ug%):�o$:Yg%=Ug%!0:Um%=Ug%!4:ZZ%=Ug%!24:�Xx(Yg%,Um%,0,0):�Za(Yg%,Um%):ȎYg% �
~�XW%:�Zb(Yg%,Um%,ZZ%)
��Xk%:�Zc(Yg%,Um%,ZZ%)
��XV%:�Um%=1 �
�A�Za(Yg%,Um%):$Ug%!28=Zd$:�Xx(Yg%,Um%,0,0):Ua$=Zd$:�Vs%=0 ��Wv
��ZZ%=13�XV(Ua$)
��
��:�Um%=6 �
��Vz(Yg%,Um%,Zd$):�ZZ%=13 �
/�(Zd$)>0 ��(Zd$)<=U% �(T%>0 ��(Zd$)<=T%) �

S%=�(Zd$):�YU(Yg%,8)
�XZ$="Incorrect value.":�XZ
�
(�
2�:�Um%=8 �
F�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
Z'�(Zd$)>0 ��(Zd$)<=U% ��(Zd$)>=S% �
dT%=�(Zd$):�YU(Yg%,1)
n�XZ$="Incorrect value.":�XZ
x�
��
��
��Xf%:�Um%=1 �
�Y�Za(Yg%,Um%):$Ug%!28=Zd$:�Xx(Yg%,Um%,0,0):Wc$=Zd$:�Wv:�ZZ%=13 �Ze%=Vs%:Vs%=3:�XV(Wc$)
��
��
��Xh%:�Um%=3 �
�(o$=�(Vi%):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
�Zd$<>"" ��(Zd$)>0 �
Vi%=�(Zd$):ș&400D2,-1
"1�XZ$="Invalid time step.":�XZ:�Vz(Yg%,Um%,o$)
6�
@�
J�
T�XX%:ȎUm% �
h"�17:�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
|	�U% �
��Zd$<>"" �
�Wj$=Zd$:�YU(Yg%,28)
�%�XZ$="Invalid search string.":�XZ
��
�@�XZ$="No records to search.":�XZ:�Vz(Yg%,Um%,""):ș&400D2,-1
��
��
�"�28:�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
�	�U% �
��Zd$<>"" �(Zd$="" �Wn%=1) �
�Wk$=Zd$:ș&400D2,-1:�XX
%�XZ$="Invalid search string.":�XZ
�
@�XZ$="No records to search.":�XZ:�Vz(Yg%,Um%,""):ș&400D2,-1
0�
:�
D�
N�Wy%:�Zf(Yg%,Um%,ZZ%)
X�Xb%:ȎUm% �
l"�19:�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
�/�(Zd$)>0 ��(Zd$)<=U% �(A%>0 ��(Zd$)<=B%) �
�A%=�(Zd$):�YU(Yg%,21)
��XZ$="Incorrect value.":�XZ
��
��
�"�21:�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
�'�(Zd$)>0 ��(Zd$)<=U% ��(Zd$)>=A% �
�2B%=�(Zd$):ș&400D2,-1:�Vz(Yg%,26,�((B%-A%)+1))
��XZ$="Incorrect value.":�XZ
��
��
�
�Xg%:ȎUm% �
 "�11:�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
4/�(Zd$)>0 ��(Zd$)<=U% �(X%>0 ��(Zd$)<=Y%) �
>X%=�(Zd$):�YU(Yg%,12)
H�XZ$="Incorrect value.":�XZ
R�
\�
f"�12:�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
z'�(Zd$)>0 ��(Zd$)<=U% ��(Zd$)>=X% �
�Y%=�(Zd$):ș&400D2,-1
��XZ$="Incorrect value.":�XZ
��
��
��
��:�
���Yn(h%,Um%):Ȏh% �
�
�-2:�U% �
��Zg(Xm%,3,�):�Zg(Xm%,4,�)
��Zg(Xm%,3,�):�Zg(Xm%,4,�)
$�:�Zh(Xm%,Yl%-96,364)
8�Wy%:�U%=0 �
LD�Zg(Xp%,1,�):�Zg(Xp%,2,�):�Zg(Xp%,3,�):�Zg(Xp%,4,�):�Zg(Xq%,2,�)
~E��Zg(Xp%,1,�):�Zg(Xp%,2,�):�Zg(Xp%,3,�):�Zg(Xp%,4,�):�Zg(Xq%,2,�)
��:�VX%=0 �
��Zg(Xp%,6,�)
���Zg(Xp%,6,�)
�#�:�Ua$,".")<>0 ��Ua$,":")<>0 �
��Zg(Xq%,3,�)
���Zg(Xq%,3,�)
�:�Zh(Xp%,Yl%-96,Ym%)
�Xb%:�Um%=2 �
(�Zi:ȎWb% �
<�1:�Zj(Xr%,1,�)
F�2:�Zj(Xr%,2,�)
P�3:�Zj(Xr%,3,�)
Z�4:�Zj(Xr%,4,�)
d�5:�Zj(Xr%,5,�)
n�:�Zh(Xr%,Yl%+40,Ym%+96)
��
�'�XX%:�Um%=15�Zh(Xs%,Yl%+40,Ym%+112)
�"�Um%=26�Zh(Xt%,Yl%+40,Ym%+112)
��:�
�'��Zi:�j%:�j%=1 �5:�Zj(Xr%,j%,�):�:�
�(��Zk:�j%:�j%=1 �10:�Zj(Xs%,j%,�):�:�
,(��Zl:�j%:�j%=1 �10:�Zj(Xt%,j%,�):�:�
^,��Ye:�Zm%,Zn$,a$:Zm%=�Zo:Zn$=�Zp:ȎZq% �
��Xm%:Ȏ�VU(Zn$,".") �
�+�"Help":ș&400DE,"<DataBase$Dir>.!Help"
��"Create":�Xz(XW%,�)
�F�"Clear":Xa$="Delete all data of the edited file. Confirm?":�Xa(5)
��"Quit":�Xy%=� �
�@Xa$="File has been modified. Do you want to save it?":�Xa(1)
�
�UZ%=�
��
��
�Xp%:Ȏ�VU(Zn$,".") �
)�"Search   F4":�Xz(XX%,�):�YU(XX%,17)
0�"Sort     F5":�Xz(Xd%,�)
:!�"Delete   F6":�YV:�Xz(Xg%,�)
NE�"Print    F7":�Xv(Wy%):�Xv(Ww%):�Xv(XX%):�Xv(Xj%):�YW:�Xz(Xb%,�)
v9�"Save     F3":Ua$=Wf$:Ze%=Vs%:Vs%=0:�XV(Ua$):Vs%=Ze%
��
��Xr%:�Zi:Ȏ�VU(Zn$,".") �
�N�"Fanfold 80 col 11""":Wb%=1:Wt%=150:�Zj(Xr%,1,�):a$="Fanfold 80 col 11"""
�N�"Fanfold 80 col 12""":Wb%=2:Wt%=150:�Zj(Xr%,2,�):a$="Fanfold 80 col 12"""
�P�"Fanfold 136 col 11""":Wb%=3:Wt%=250:�Zj(Xr%,3,�):a$="Fanfold 136 col 11"""
�P�"Fanfold 136 col 12""":Wb%=4:Wt%=250:�Zj(Xr%,4,�):a$="Fanfold 136 col 12"""
F�"A4 single sheet":Wb%=5:Wt%=150:�Zj(Xr%,5,�):a$="A4 single sheet"
 =�:�Vz(Xb%,11,a$):�Vz(Xb%,15,�(Wt%)):�Vz(Xb%,8,�(Wt%-Wx%))
>�Xs%:�Zk:Ȏ�VU(Zn$,".") �
\+�"=":Zr%=0:�Vz(XX%,11,"="):�Zj(Xs%,1,�)
p-�"<>":Zr%=9:�Vz(XX%,11,"<>"):�Zj(Xs%,2,�)
�+�">":Zr%=1:�Vz(XX%,11,">"):�Zj(Xs%,3,�)
�-�">=":Zr%=2:�Vz(XX%,11,">="):�Zj(Xs%,4,�)
�-�"<=":Zr%=3:�Vz(XX%,11,"<="):�Zj(Xs%,5,�)
�+�"<":Zr%=4:�Vz(XX%,11,"<"):�Zj(Xs%,6,�)
�9�"Contains":Zr%=5:�Vz(XX%,11,"Contains"):�Zj(Xs%,7,�)
�A�"Not contains":Zr%=6:�Vz(XX%,11,"Not contains"):�Zj(Xs%,8,�)
�5�"Starts":Zr%=7:�Vz(XX%,11,"Starts"):�Zj(Xs%,9,�)
2�"Ends":Zr%=8:�Vz(XX%,11,"Ends"):�Zj(Xs%,10,�)
$�
.�Xt%:�Zl:Ȏ�VU(Zn$,".") �
L+�"=":Zs%=0:�Vz(XX%,25,"="):�Zj(Xt%,1,�)
`-�"<>":Zs%=9:�Vz(XX%,25,"<>"):�Zj(Xt%,2,�)
t+�">":Zs%=1:�Vz(XX%,25,">"):�Zj(Xt%,3,�)
�-�">=":Zs%=2:�Vz(XX%,25,">="):�Zj(Xt%,4,�)
�-�"<=":Zs%=3:�Vz(XX%,25,"<="):�Zj(Xt%,5,�)
�+�"<":Zs%=4:�Vz(XX%,25,"<"):�Zj(Xt%,6,�)
�9�"Contains":Zs%=5:�Vz(XX%,25,"Contains"):�Zj(Xt%,7,�)
�A�"Not contains":Zs%=6:�Vz(XX%,25,"Not contains"):�Zj(Xt%,8,�)
�5�"Starts":Zs%=7:�Vz(XX%,25,"Starts"):�Zj(Xt%,9,�)
2�"Ends":Zs%=8:�Vz(XX%,25,"Ends"):�Zj(Xt%,10,�)
�
�:�(Zm% � �UZ%) ��Zt
2�
n���Zu:�j%,i%:�j%=1 �VX%:�i%=0 �9:F$(j%,i%)="":�:F$(j%,0)="0":F$(j%,5)="7":F$(j%,6)="0":F$(j%,7)="1":F$(j%,8)="7":�:�j%=1 �U%:�i%=0 �VX%:R$(j%,i%)="":�:�:�Xv(Wy%):�Xv(Ww%):�j%=0 �VX%*2:�Zv(Wy%,j%):�:N%=1:U%=0:�j%=0 �VX%-1:�Zv(Xc%,j%):�:Wo%=1:Ve%=0
��WW%?18=�Zw(Xd%,18):WW%?19=�Zx(Xd%,19):�j%=0 �VX%-1:�Zv(Xe%,j%):�:A%=1:B%=0:WY%=�:WZ%=0:Wa%=0:Wb%=1:Wt%=150:Wx%=0:�j%=11 �17�2:WW%?j%=�Zx(XW%,j%):�:WW%?11=�Zw(XW%,11):�j%=30 �34�2:WW%?j%=�Zx(XW%,j%):�:WW%?32=�Zw(XW%,32):VW%=1:VX%=0:VY%=�
^��Xv(XX%):�Xv(Xj%):�Zk:�Zl:Wl%=0:Wm%=1:Wn%=1:�j%=1 �18:Vd%(j%)=�:�:�Zi:�Zy:WW%?12=�Zw(XX%,12):�Zj(Xr%,1,�):�Zj(Xs%,7,�):�Zj(Xt%,7,�):Wj$="":�Vz(XX%,17,Wj$):Wk$="":�Vz(XX%,28,Wk$):Zz%=1:�Vz(XX%,9,�aU(F$(Zz%,2))):aV%=1:�Vz(XX%,23,�aU(F$(aV%,2)))
��Zr%=5:�Vz(XX%,11,"Contains"):Zs%=5:�Vz(XX%,25,"Contains"):aW%=�:WW%?31=�aX(XX%,31):�Wv:�Vz(Ww%,6,�(VW%)):�Vz(Ww%,8,�(VX%)):Vh%=�:Vi%=5:Vj%=�:�Vz(Xh%,3,�(Vi%)):WW%?9=�aX(Xh%,9):�Xx(Xh%,3,&0200013D,&FFFFFFFF):X%=1:Y%=0:Wd%=0
:;�j%=4 �10�2:WW%?j%=�Zx(Xg%,j%):�:WW%?4=�Zw(Xg%,4):�YV:�
���Yv(Um%):ȎUm% �
�
�1:�Wl% �
��Wm%=Wl% �
�,XZ$="This is the last found record.":�XZ
�"�Wm%+=1:N%=F%(Wm%):�YY:�aY:�YZ
��
� �XZ$="No records found.":�XZ
��
�
�2:�Wl% �
�Wm%=1 �
-XZ$="This is the first found record.":�XZ
"�Wm%-=1:N%=F%(Wm%):�YY:�aY:�YZ
 �
* �XZ$="No records found.":�XZ
4�
>�:�
\��Yu(Um%):ȎUm% �
p�12:�WW%?12=&00 �
� �Zy:WW%?12=�Zw(XX%,12):Wn%=1
��
��14:�WW%?14=&00 �
� �Zy:WW%?14=�Zw(XX%,14):Wn%=2
��
��16:�WW%?16=&00 �
� �Zy:WW%?16=�Zw(XX%,16):Wn%=3
��
��8:�Zz%<VX% �
�$Zz%+=1:�Vz(XX%,9,�aU(F$(Zz%,2)))
�
�10:�Zz%>1 �
$$Zz%-=1:�Vz(XX%,9,�aU(F$(Zz%,2)))
.�
8�22:�aV%<VX% �
L%aV%+=1:�Vz(XX%,23,�aU(F$(aV%,2)))
V�
`�24:�aV%>1 �
t%aV%-=1:�Vz(XX%,23,�aU(F$(aV%,2)))
~�
��15,26:�Yn(XX%,Um%)
��29:�WW%?29=&00 �
�WW%?29=�aZ(XX%,29):aW%=�
��WW%?29=�aX(XX%,29):aW%=�
��
��:�
�C��Zy:WW%?12=�Zx(XX%,12):WW%?14=�Zx(XX%,14):WW%?16=�Zx(XX%,16):�
.��aY:�Vz(Xj%,4,�(Wm%)):�Vz(Xj%,6,�(Wl%)):�
F:��XX:�a%,b%,p%,a$,b$,c$,aa%,ab%:ș&406C0:Wl%=0:ȎWn% �
x@�1:�a%=1 �U%:p%=(a%/U%)*100:ș&406C4,p%:aa%=�:ab%=�:�aW%=� �
�"a$=�ac(R$(a%,Zz%)):b$=�ac(Wj$)
��a$=R$(a%,Zz%):b$=Wj$
�
�:ȎZr% �
�&�0:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
��a$=b$aa%=�
���(a$)=�(b$)aa%=�
��
&�1:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
�a$>b$aa%=�
"��(a$)>�(b$)aa%=�
,�
6&�2:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
J�a$>=b$aa%=�
T��(a$)>=�(b$)aa%=�
^�
h&�3:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
|�a$<=b$aa%=�
���(a$)<=�(b$)aa%=�
��
�&�4:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
��a$<b$aa%=�
���(a$)<�(b$)aa%=�
��
��5:�a$,b$)<>0 aa%=�
��6:�a$,b$)=0 aa%=�
��7:�a$,�(b$))=b$aa%=�
��8:��a$,�(b$))=b$aa%=�
�&�9:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
 �a$<>b$aa%=�
 ��(a$)<>�(b$)aa%=�
 �
 &�:�Wk$<>"" �
 :�aW%=� �
 D"a$=�ac(R$(a%,aV%)):c$=�ac(Wk$)
 N�a$=R$(a%,aV%):c$=Wk$
 X
�:ȎZs% �
 l&�0:�F$(aV%,0)="0" �F$(aV%,0)="3" �
 ��a$=c$ab%=�
 ���(a$)=�(c$)ab%=�
 ��
 �&�1:�F$(aV%,0)="0" �F$(aV%,0)="3" �
 ��a$>c$ab%=�
 ���(a$)>�(c$)ab%=�
 ��
 �&�2:�F$(aV%,0)="0" �F$(aV%,0)="3" �
 ��a$>=c$ab%=�
 ���(a$)>=�(c$)ab%=�
 ��
!&�3:�F$(aV%,0)="0" �F$(aV%,0)="3" �
!�a$<=c$ab%=�
! ��(a$)<=�(c$)ab%=�
!*�
!4&�4:�F$(aV%,0)="0" �F$(aV%,0)="3" �
!H�a$<c$ab%=�
!R��(a$)<�(c$)ab%=�
!\�
!f�5:�a$,c$)<>0 ab%=�
!p�6:�a$,c$)=0 ab%=�
!z�7:�a$,�(c$))=c$ab%=�
!��8:��a$,�(c$))=c$ab%=�
!�&�9:�F$(aV%,0)="0" �F$(aV%,0)="3" �
!��a$<>c$ab%=�
!���(a$)<>�(c$)ab%=�
!��
!��
!��:�Wk$<>"" �
!��aa% �ab%Wl%+=1:F%(Wl%)=a%
!���aa%Wl%+=1:F%(Wl%)=a%
!��:�
"@�2:�a%=1 �U%:p%=(a%/U%)*100:ș&406C4,p%:aa%=�:ab%=�:�aW%=� �
"B"a$=�ac(R$(a%,Zz%)):b$=�ac(Wj$)
"L�a$=R$(a%,Zz%):b$=Wj$
"V
�:ȎZr% �
"j&�0:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
"~�a$=b$aa%=�
"���(a$)=�(b$)aa%=�
"��
"�&�1:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
"��a$>b$aa%=�
"���(a$)>�(b$)aa%=�
"��
"�&�2:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
"��a$>=b$aa%=�
"���(a$)>=�(b$)aa%=�
"��
#&�3:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
#�a$<=b$aa%=�
#��(a$)<=�(b$)aa%=�
#(�
#2&�4:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
#F�a$<b$aa%=�
#P��(a$)<�(b$)aa%=�
#Z�
#d�5:�a$,b$)<>0 aa%=�
#n�6:�a$,b$)=0 aa%=�
#x�7:�a$,�(b$))=b$aa%=�
#��8:��a$,�(b$))=b$aa%=�
#�&�9:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
#��a$<>b$aa%=�
#���(a$)<>�(b$)aa%=�
#��
#��:�aW%=� �
#�"a$=�ac(R$(a%,aV%)):c$=�ac(Wk$)
#��a$=R$(a%,aV%):c$=Wk$
#�
�:ȎZs% �
#�&�0:�F$(aV%,0)="0" �F$(aV%,0)="3" �
$�a$=c$ab%=�
$��(a$)=�(c$)ab%=�
$"�
$,&�1:�F$(aV%,0)="0" �F$(aV%,0)="3" �
$@�a$>c$ab%=�
$J��(a$)>�(c$)ab%=�
$T�
$^&�2:�F$(aV%,0)="0" �F$(aV%,0)="3" �
$r�a$>=c$ab%=�
$|��(a$)>=�(c$)ab%=�
$��
$�&�3:�F$(aV%,0)="0" �F$(aV%,0)="3" �
$��a$<=c$ab%=�
$���(a$)<=�(c$)ab%=�
$��
$�&�4:�F$(aV%,0)="0" �F$(aV%,0)="3" �
$��a$<c$ab%=�
$���(a$)<�(c$)ab%=�
$��
$��5:�a$,c$)<>0 ab%=�
$��6:�a$,c$)=0 ab%=�
%�7:�a$,�(c$))=c$ab%=�
%�8:��a$,�(c$))=c$ab%=�
%&�9:�F$(aV%,0)="0" �F$(aV%,0)="3" �
%0�a$<>c$ab%=�
%:��(a$)<>�(c$)ab%=�
%D�
%N �:�aa% �ab%Wl%+=1:F%(Wl%)=a%
%b�
%v@�3:�a%=1 �U%:p%=(a%/U%)*100:ș&406C4,p%:aa%=�:ab%=�:�aW%=� �
%�"a$=�ac(R$(a%,Zz%)):b$=�ac(Wj$)
%��a$=R$(a%,Zz%):b$=Wj$
%�
�:ȎZr% �
%�&�0:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
%��a$=b$aa%=�
%���(a$)=�(b$)aa%=�
%��
&&�1:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
&�a$>b$aa%=�
& ��(a$)>�(b$)aa%=�
&*�
&4&�2:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
&H�a$>=b$aa%=�
&R��(a$)>=�(b$)aa%=�
&\�
&f&�3:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
&z�a$<=b$aa%=�
&���(a$)<=�(b$)aa%=�
&��
&�&�4:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
&��a$<b$aa%=�
&���(a$)<�(b$)aa%=�
&��
&��5:�a$,b$)<>0 aa%=�
&��6:�a$,b$)=0 aa%=�
&��7:�a$,�(b$))=b$aa%=�
&��8:��a$,�(b$))=b$aa%=�
&�&�9:�F$(Zz%,0)="0" �F$(Zz%,0)="3" �
'�a$<>b$aa%=�
'��(a$)<>�(b$)aa%=�
'�
'$�:�aW%=� �
'8"a$=�ac(R$(a%,aV%)):c$=�ac(Wk$)
'B�a$=R$(a%,aV%):c$=Wk$
'L
�:ȎZs% �
'`&�0:�F$(aV%,0)="0" �F$(aV%,0)="3" �
't�a$=c$ab%=�
'~��(a$)=�(c$)ab%=�
'��
'�&�1:�F$(aV%,0)="0" �F$(aV%,0)="3" �
'��a$>c$ab%=�
'���(a$)>�(c$)ab%=�
'��
'�&�2:�F$(aV%,0)="0" �F$(aV%,0)="3" �
'��a$>=c$ab%=�
'���(a$)>=�(c$)ab%=�
'��
'�&�3:�F$(aV%,0)="0" �F$(aV%,0)="3" �
(
�a$<=c$ab%=�
(��(a$)<=�(c$)ab%=�
(�
((&�4:�F$(aV%,0)="0" �F$(aV%,0)="3" �
(<�a$<c$ab%=�
(F��(a$)<�(c$)ab%=�
(P�
(Z�5:�a$,c$)<>0 ab%=�
(d�6:�a$,c$)=0 ab%=�
(n�7:�a$,�(c$))=c$ab%=�
(x�8:��a$,�(c$))=c$ab%=�
(�&�9:�F$(aV%,0)="0" �F$(aV%,0)="3" �
(��a$<>c$ab%=�
(���(a$)<>�(c$)ab%=�
(��
(�"�:�aa% � �ab%Wl%+=1:F%(Wl%)=a%
(��
(�)�:ș&406C1:�Vz(Xj%,6,�(Wl%)):�Wl%=0 �
(�F�Vz(Xj%,4,"0"):XZ$="No records found.":�XZ:�ad(Ug%,XV%,21,"radio")
)F�Wm%=1:�Vz(Xj%,4,�(Wm%)):N%=F%(Wm%):�YY:�ad(Ug%,XV%,21,"radiooff")
)"�:�
)hC��ae(Yg%,Wm%):�af%,ag%,ah%,ai%,l%,h%,UW%:UW%=�(-256):�UW%>164 �
)��aj(ak%,al%)
)���:m%=�:ș&39,,"XOS_ReadModeVariable" �am%:ș&39,,"XOS_CheckModeValid" �an%:ao%=�ap(m%,4):aq%=�ap(m%,5):ak%=�ap(m%,11)<<ao%:al%=�ap(m%,12)<<aq%
)��:�Wm% �
)�!Ug%=Yg%:ș&400CC,,Ug%:ar%=Ug%!4:as%=Ug%!16:af%=Ug%!44:ag%=Ug%!48:ah%=Ug%!52:ai%=Ug%!56:l%=ah%-af%:h%=ai%-ag%:ȗȓar%,as%-h%,l%,h%:ȗ �ar%+600,as%-80
*�ȗȓ0,0,ak%,al%
*�:�
*:���aj(�at%,�au%):�av%,aw%,x%,y%:ș&35,-1,11 �,,x%:x%+=1:ș&35,-1,12 �,,y%:y%+=1:ș&35,-1,4 �,,av%:ș&35,-1,5 �,,aw%:at%=x%<<av%:au%=y%<<aw%:�
*�ݤap(m%,n%):�r%:�ax(m%) �
*�șam%,m%,n% �,,r%
*�	�r%=0
*�	�:=r%
*�%ݤax(m%):�v%:m%=m% �&FF:�m%=� �=�
+șan%,m% �v%:=(v%<>-1)
+*=��Xa(t%):�Xz(Xa%,�):�Vz(Xa%,1,Xa$):�7:�ae(Xa%,�):ay%=t%:�
+\��Yz(Um%):�j%,i%,n%:Ȏay% �
+��1:ȎUm% �
+��3:�az:UZ%=�
+��4:�az:�Xz(XV%,�)
+��
+��2:ȎUm% �
+�
�3:�az
+��4:�U%=1 �
+�d�bU(Xa%,Um%,1):U%=0:N%=1:�Vz(Ww%,8,�(U%)):�j%=1 �VX%:R$(N%,j%)="":�:�YY:Xy%=�:�Wv:�bU(Xa%,Um%,0)
,$���bU(Xa%,Um%,1):R$(N%,Wo%)=Ļ(F$(Wo%,1)),"~"):�Xd:�j%=1 �VX%:R$(U%,j%)="":�:Xy%=�:�Wv:U%-=1:�Vz(Ww%,8,�(U%)):N%-=1:�N%<1 N%=1
,V��YY:�Xv(XX%):�Xv(Xj%):Wl%=0:Wm%=1:�Vz(Xj%,4,�(Wl%)):�Vz(Xj%,6,�(Wl%)):Wj$="":�Vz(XX%,17,Wj$):Wk$="":�Vz(XX%,28,Wk$):�bU(Xa%,Um%,0)
,��:�az:�Xv(Xg%)
,��
,��3:ȎUm% �
,�
�3:�az
,�8�4:�bU(Xa%,Um%,1):�XV(bV$):�Vs%<3 ��bW(XV%)��bW(Xf%)
,��Vs%<3 �
-�Vs%=0 �Ua$=bV$�Ua$=Wf$
-
�Wc$=bV$
-�:�bU(Xa%,Um%,0):�az
-(�
-<�4:ȎUm% �
-P$�3:�az:Wr%=�:�Xz(XY%,�):ș&406C0
-d!�4:Wq%=0:Wr%=�:�az:�Xz(Wy%,�)
-x�
-��5:ȎUm% �
-�
�3:�az
-�,�4:�bU(Xa%,Um%,1):�Zu:�bU(Xa%,Um%,0):�az
-��
-��6:ȎUm% �
-�
�3:�az
-��4:�bU(Xa%,Um%,1):�j%=1 �U%:�i%=1 �VX%:R$(j%,i%)="":�:�:Xy%=�:�Wv:U%=0:�Vz(Ww%,8,�(U%)):N%=1:X%=1:Y%=0:�YY:�Xv(XX%):�Xv(Xj%):Wl%=0:Wm%=1:�Vz(Xj%,4,�(Wl%)):�Vz(Xj%,6,�(Wl%)):Wj$="":�Vz(XX%,17,Wj$):Wk$="":�Vz(XX%,28,Wk$):�bU(Xa%,Um%,0):�az:�Xv(Xg%)
.|�
.��7:ȎUm% �
.�
�3:�az
.���4:�bU(Xa%,Um%,1):n%=0:�j%=1 �Wl%:R$(F%(j%),Wo%)=Ļ(F$(Wo%,1)),"~"):n%+=1:�:Xy%=�:�Wv:�Xd:U%-=n%:�Vz(Ww%,8,�(U%)):N%-=1:�N%<1 N%=1
.��YY:�Xv(XX%):�Xv(Xj%):Wl%=0:Wm%=1:�Vz(Xj%,4,�(Wl%)):�Vz(Xj%,6,�(Wl%)):Wj$="":�Vz(XX%,17,Wj$):Wk$="":�Vz(XX%,28,Wk$):�bU(Xa%,Um%,0):�az:�Xv(Xg%)
/D�
/X�8:ȎUm% �
/l
�3:�az
/v��4:�bU(Xa%,Um%,1):n%=0:�j%=X% �Y%:R$(j%,Wo%)=Ļ(F$(Wo%,1)),"~"):n%+=1:�:Xy%=�:�Wv:�Xd:U%-=n%:�Vz(Ww%,8,�(U%)):N%-=1:�N%<1 N%=1
/���YY:�Xv(XX%):�Xv(Xj%):Wl%=0:Wm%=1:�Vz(Xj%,4,�(Wl%)):�Vz(Xj%,6,�(Wl%)):Wj$="":�Vz(XX%,17,Wj$):Wk$="":�Vz(XX%,28,Wk$):�bU(Xa%,Um%,0):�az:�Xv(Xg%)
0�
0 �9:ȎUm% �
04
�3:�az
0>O�4:�bU(Xa%,Um%,1):Ua$=Wf$:Ze%=Vs%:Vs%=0:�XV(Ua$):Vs%=Ze%:�bU(Xa%,Um%,0):�az
0\�
0f�:�
0���az:�Xv(Xa%):�ae(Xa%,�):�
0�2��XZ:�Xz(XZ%,�):�Vz(XZ%,1,XZ$):�7:�ae(XZ%,�):�
0���Yy(Um%):ȎUm% �
0��3:�Xv(XZ%):�ae(XZ%,�)
0��:�
1B�ݤVn(bX$):�Vm%:ș&400C0,200,&4B534154,bX$ �UW%,Vm%:UZ%=�:bY%=2:Yo%=4:bZ%=1:ba%=Uh%:Zq%=-1:Yl%=0:Ym%=0:Vq%=-1:XZ$="":bb$="NO":bc$="0":bd$="":Xy%=�:=Vm%
1��ݤVp(Ux%,be%):�Um%:!Ug%=be%:Ug%!4=0:Ug%!8=0:Ug%!12=Ux%:Ug%!16=68:Ug%!20=&3102:Zd$="!"+UV$:�Ug%!24 (�Zd$+1):$(Ug%!24)=Zd$:Ug%!28=1:Ug%!32=�Zd$+1:ș&400C2,,Ug% �Um%:=Um%
1�/��Vw(bf$):ș&400ED,256,bf%,bf$,,,,Uk%,Ul%:�
2=ݤUb(bg%):�i%,bh$,a$:ș&10 �bh$:i%=�bh$,�34):�i%=0 �a$=""
2F�i%<>0 �
2PVi%=�bh$,�34,i%+1):bh$=�bh$,i%+2):ȕbg%>0:i%=�bh$,�32):bg%-=1:�bg%>0 bh$=�bh$,i%+1)
2x�i%=0 �bg%>0 �a$=""
2�"�:�i%<>0 �bg%=0 �a$=�bh$,i%-1)
2�	�:=a$
2���Xl(Yg%):�Yg%!4=Vm% ��
2�ȎYg%!16 �
2��0:UZ%=�
2�:�2:Yg%!12=Yg%!8:Yg%!16=3:ș&400E7,17,Yg%,Yg%!20:�bi% �
30bi%=�:bV$=�bj(Yg%+44):ș&8,&11,bV$ �a%:�a% �
3"NXa$="A file of that name already exists. Do you want to overwrite?":�Xa(3)
36 �:�XV(bV$):�bW(Yg%):�Vs%<3 �
3T�Vs%=0 �Ua$=bV$�Ua$=Wf$
3^�Wc$=bV$
3h�
3r�
3|�
3��3:�Yg%!40=Wi% �
3�*�Yg%!20=Wy% �(Yg%!20=-2 �Yg%!24=Vo%) �
3�Ua$=�bj(Yg%+44):�Uc(Ua$)
3��
3��
3��5:�Yg%!40=Wi% �
3�IUa$=�bj(Yg%+44):Yg%!12=Yg%!8:Yg%!16=4:ș&400E7,19,Ug%,Yg%!20:�Uc(Ua$)
3��
4�&502:�Yf(Yg%)
4�&400C1:�Vw(Vv$)
4�:�
4:5ݤUe(bk%):�Xu%:Ug%!0=bk%:ș&400C7,0,Ug% �Xu%:=Xu%
4����UY:Wp%=�:�6,3:ș&406C2:ș&400D0,,-1:!Ug%=�:UY$=�$+" (internal error code "+�(�)+") at line "+�(�):$(Ug%+4)=UY$+�(0):ș&400DF,Ug%,1,UV$:�
5qݤWz(Wz$):�c%,bl%:bl%=Uj%+&1000:ș&400DB,,Ug%,Uj%,bl%,Vk%,Wz$,0 �,,Uj%,,,,c%:Ug%!64=bf%:ș&400C1,,Ug% �c%:=c%
5RS��Xz(Yg%,bm%):�bn%,bo%,bp%,bq%,br%,bs%:Ug%!0=Yg%:� �bm%ș&400CB,0,Ug%:Ug%!28=-1
5zș&400C5,0,Ug%:�Yg%=XW% �
5��bn%=Ug%!4:bo%=Ug%!8:bp%=Ug%!16:bq%=Ug%!28:!Ug%=Xi%:ș&400CB,,Ug%:br%=Ug%!12-Ug%!4:bs%=Ug%!16-Ug%!8:Ug%!4=bn%-br%-2:Ug%!8=bo%-bs%:Ug%!12=bn%+br%:Ug%!16=bo%+(bp%-bo%):Ug%!28=bq%:ș&400E7,2,Ug%,!Ug%
5��:�Yg%=Wy% �
5޸bn%=Ug%!4:bo%=Ug%!8:bq%=Ug%!28:!Ug%=Ww%:ș&400CB,,Ug%:br%=Ug%!12-Ug%!4:bs%=Ug%!16-Ug%!8:Ug%!4=bn%:Ug%!8=bo%-bs%-42:Ug%!12=bn%+br%:Ug%!16=bo%-42:Ug%!28=bq%:ș&400E7,2,Ug%,!Ug%:Wh%=�
6�:�Yg%=XX% �
6.�bn%=Ug%!4:bo%=Ug%!8:bp%=Ug%!16:bq%=Ug%!28:!Ug%=Xj%:ș&400CB,,Ug%:br%=Ug%!12-Ug%!4:bs%=Ug%!16-Ug%!8:Ug%!4=bn%-br%-2:Ug%!8=bo%-bs%:Ug%!12=bn%+br%:Ug%!16=bo%+(bp%-bo%):Ug%!28=bq%:ș&400E7,2,Ug%,!Ug%
6j�:�Yg%=Xd% ��bt
6~�Yg%=Xb% ��bu
6��
6����bt:Ug%!40=Xc%:ș&400CB,,Ug%+40:Ug%!68=Ug%!28:Ug%!44=Ug%!4+18:Ug%!48=Ug%!16-(64+238):Ug%!52=Ug%!4+(18+298):Ug%!56=Ug%!16-64:ș&400C5,,Ug%+40:Ug%!28=Xc%:�
6���bu:Ug%!40=Xe%:ș&400CB,,Ug%+40:Ug%!68=Ug%!28:Ug%!44=Ug%!4+222+2:Ug%!48=Ug%!16-(148+232):Ug%!52=Ug%!4+(222+350+4):Ug%!56=Ug%!16-136:ș&400C5,,Ug%+40:Ug%!28=Xe%:�
7<\��Ya(Yg%):�bv%:Ug%!0=Yg%:ș&400C8,0,Ug% �bv%:ȕbv%:ș&81681,,Ug%:ș&400CA,0,Ug% �bv%:�:�
7�(��Xv(Yg%):Ug%!0=Yg%:ș&400C6,0,Ug%:�
7�W��bw(Wz%,bx$):!Ug%=Wz%:ș&400CC,,Ug%:�((Ug%!60) �&100)=0�1,"Title isn't indirected"
7�+$(Ug%!76)=bx$:�((Ug%!32) �(1<<16))<>0 �
7�-ș&400D1,-1,Ug%!4,Ug%!16,Ug%!12,Ug%!16+44
8�:�
8"d��by(Wz%,!Ug%,Ug%!4,Ug%!8,Ug%!12):ș&400D7,Wz%,Ug%:!Ug%=Wz%:ș&400CB,,Ug%:�(Ug%!32)�(1<<16)<>0 �
8T7ș&400C5,,Ug%:ș&400D1,-1,Ug%!4,Ug%!8,Ug%!12,Ug%!16
8h�:�
8��ݤbz(Wz%,cU%,cV%,cW%,cX%,Wm%,Yi$,cY%,cZ%,ca%):�Yg%:Ug%!0=Wz%:Ug%!4=cU%:Ug%!8=cV%:Ug%!12=cU%+cW%:Ug%!16=cV%+cX%:Ug%!20=Wm%:�cY%=0 �
8�$(Ug%+24)=Yi$
8�%�Ug%!24=cY%:Ug%!28=cZ%:Ug%!32=ca%
8��:ș&400C2,,Ug% �Yg%:=Yg%
9;��Vz(h%,i%,Yi$):�Za(h%,i%):$Ug%!28=Yi$:�Xx(h%,i%,0,0):�
9DJ��YU(Yg%,Um%):�cb%:�Za(Yg%,Um%):cb%=�(Zd$):ș&400D2,Yg%,Um%,,,-1,cb%:�
9�z��Za(Yg%,Um%):Ug%!0=Yg%:Ug%!4=Um%:ș&400CE,,Ug%:cc%=Ug%!8:cd%=Ug%!12:ce%=Ug%!16:cf%=Ug%!20:cg%=Ug%!24:�(cg% �&100)>0 �
9�Zd$=$Ug%!28
9��Zd$=$(Ug%+28)
9��:�
9�Q��Xx(Yg%,Um%,ch%,bk%):!Ug%=Yg%:Ug%!4=Um%:Ug%!8=ch%:Ug%!12=bk%:ș&400CD,,Ug%:�
:K��Zv(Yg%,Um%):�Za(Yg%,Um%):ș&400C4,,Ug%:ș&400D1,Yg%,cc%,cd%,ce%,cf%:�
:H8ݤZw(Yg%,Um%):ci%=�cj(Ug%,Yg%,Um%,"radioon",-1):=&FF
:p9ݤZx(Yg%,Um%):ci%=�cj(Ug%,Yg%,Um%,"radiooff",-1):=&00
:�6ݤaZ(Yg%,Um%):ci%=�cj(Ug%,Yg%,Um%,"opton",-1):=&FF
:�7ݤaX(Yg%,Um%):ci%=�cj(Ug%,Yg%,Um%,"optoff",-1):=&00
:�ݤcj(Ug%,Yg%,Um%,Uy$,ck%):Ug%!0=Yg%:Ug%!4=Um%:ș&400CE,,Ug%:ș&400C4,,Ug%:Ug%!4=Ug%!8:Ug%!8=Ug%!12:Ug%!12=Ug%!16:Ug%!16=Ug%!20:Ug%!20=Ug%!24:$(Ug%+24)=Uy$:ș&400C2,,Ug% �Um:�ck% �
;8,ș&400D1,Ug%!0,Ug%!4,Ug%!8,Ug%!12,Ug%!16
;B
�:=Um%
;`���ad(Ug%,Yg%,Um%,Uy$):!Ug%=Yg%:Ug%!4=Um%:ș&400CE,,Ug%:ș&400C4,,Ug%:Ug%!4=Ug%!8:Ug%!8=Ug%!12:Ug%!12=Ug%!16:Ug%!16=Ug%!20:Ug%!20=Ug%!24:$(Ug%+24)=Uy$:ș&400C2,,Ug% �Um%:�
;��ݤcl(Yi%,cm%,cn%,co%,cp%,cq%,cr%,ck%,cs%,ct%,cu%,cv%,Yk%,cw%,cx%,cy%,cz%,dU%,dV%,Uf%):�Wm%:Wm%=Yi%+(cm%<<1)+(cn%<<2)+(co%<<3)+(cp%<<4)+(cq%<<5)+(cr%<<6)+(ck%<<7)+(cs%<<8)+(ct%<<9)+(cu%<<10)+(cv%<<11)+(Yk%<<12)+(cw%<<16)+(cx%<<21)+(cy%<<22)+(cz%<<23)
;��cr%=0 �
;�Wm%+=(dU%<<24)+(dV%<<28)
;��:Wm%+=(Uf%<<24)
;�
�:=Wm%
<_��dW(Wz%,Um%,dX%):Ug%!0=Wz%:Ug%!4=Um%:Ug%!8=0:Ug%!12=0:Ug%?11=dX%:Ug%?15=15:ș&400CD,,Ug%:�
<Fc��dY(Wz%,Um%,dZ%):Ug%!0=Wz%:Ug%!4=Um%:Ug%!8=0:Ug%!12=0:Ug%?11=dZ%<<4:Ug%?15=240:ș&400CD,,Ug%:�
<xE��bU(Yg%,Um%,Yk%):Ug%!8=Yk%:Ug%!12=Yg%:Ug%!16=Um%:ș&81680,,Ug%:�
<�@ݤXn(Yn$):�da%,db%,bx$:da%=ba%:bx$=�VU(Yn$,","):�(bx$)>12 �
=$(da%)=�bx$,12):db%=12
=�$(da%)=bx$:db%=�(bx$)
=��:da%?12=7:da%?13=2:da%?14=7:da%?15=0:da%!20=44:da%!24=0:dc%=da%+4:ȕYn$<>"":dc%+=24:dd$=�VU(Yn$,","):!dc%=0:dc%!4=-1:dc%!8=&07000021:ȕ�"#$%^",�dd$))>0:Ȏ�dd$) �
=��"#":?dc%=?dc% �%00000001
=��"$":?dc%=?dc% �%00000010
=�!�"%":dc%?10=dc%?10 �%01000000
=��"^":?dc%=?dc% �%00000100
=��:dd$=�dd$):�:�(dd$)>12 �
=�Vdc%!8=dc%!8 �&100:$(Ut%)=dd$+�(0):dc%!12=Ut%:dc%!16=-1:dc%!20=�(dd$):Ut%+=�(dd$)+1
>&�:$(dc%+12)=dd$+�(0)
>:�:�(dd$)>db% �db%=�(dd$)
>N=�:?dc%=?dc% �%10000000:da%!16=(db%*8+6)*2:ba%=dc%+24:=da%
>�PݤVU(�Yn$,de$):�df$:df$=�Yn$,�Yn$+de$,de$)-1):Yn$=�Yn$,�(Yn$)-�(df$)-1):=df$
>�1��Xo(Yn%,be%,dg%):Yn%!(28+24*(be%-1)+4)=dg%:�
>�?��Zh(Yn%,x%,y%):Zq%=Yn%:Yl%=x%:Ym%=y%:ș&400D4,,Yn%,x%,y%:�
? ��Zt:�Zh(Zq%,Yl%,Ym%):�
?H6ݤZp:�Zn$:ș&400D5,,Zq%,Ug%,�200," ") �,,,Zn$:=Zn$
?z"ݤZo:ș&400CF,,Ui%:=(Ui%!8 �1)
?���Zg(Yn%,be%,dh%):�dh% �
?�6Yn%?(38+24*(be%-1))=Yn%?(38+24*(be%-1)) �%01000000
?�8�:Yn%?(38+24*(be%-1))=Yn%?(38+24*(be%-1)) �%10111111
?��:�
?���Zj(Yn%,be%,di%):�di% �
@6Yn%?(28+24*(be%-1))=Yn%?(28+24*(be%-1)) �%00000001
@8�:Yn%?(28+24*(be%-1))=Yn%?(28+24*(be%-1)) �%11111110
@$�:�
@B��dj:ș&400D4,,-1:�
@~D��XV(dk$):�a%,b%,Ud%,Uc%,dl%,p%,u$:�(�dk$,".")=0 ��dk$,":")=0) �
@�=XZ$="To save, drag the icon to a directory viewer.":�XZ:�
@��:�VX%=0 �U%=0 �
@�#XZ$="No records to save.":�XZ:�
@�1�:ș&406C0:�Xy%=� �(((Uc%>>20)�&FFF)<>&FFF) �
@�+Ug%?0=3:ș&7,14,Ug%:Uc%=Ug%?4:dl%=Ug%!0
@�\�:Uc%=(Uc% �&FF) �(&FFF<<20) �(Wi%<<8):ș&8,7,dk$,Uc%,dl%,0,0:ș&D,204,dk$ �Ud%:�Vs%<3 �
A(+u$=�(VX%):�(u$)<2 �u$=�2-�(u$),"0")+u$
A2X�#Ud%,u$:�a%=1 �VX%:p%=(a%/VX%)*100:ș&406C4,p%:�b%=0 �9:�#Ud%,F$(a%,b%):�:�:ȎVs% �
An�0:u$=�(U%)
Ax�1:u$=�((T%-S%)+1)
A��2:u$=�(Wl%)
A�#�:�(u$)<3 �u$=�3-�(u$),"0")+u$
A��#Ud%,u$
A�
�:ȎVs% �
A��0:�U% �
A�G�a%=1 �U%:p%=(a%/U%)*100:ș&406C4,p%:�b%=1 �VX%:�#Ud%,R$(a%,b%):�:�
A��
B�1:�(T%-S%)+1 �
BQ�a%=S% �T%:p%=(a%/((T%-S%)+1))*100:ș&406C4,p%:�b%=1 �VX%:�#Ud%,R$(a%,b%):�:�
B@�
BJ
�2:�Wl% �
B^M�a%=1 �Wl%:p%=(a%/Wl%)*100:ș&406C4,p%:�b%=1 �VX%:�#Ud%,R$(F%(a%),b%):�:�
B��
B�
�3:�dm
B�-�:�#Ud%:�Xy%=� �(((Uc%>>20)�&FFF)=&FFF) �
B�"ș&8,2,dk$,Uc%:ș&8,3,dk$,,dl%
B��:�Vs%<3 �
B��Vs%=0 �
B�La%=�dn(dk$,"DataBase",&12D):do$=dk$:Vj%=�:�Xv(XV%):Ua$=dk$:Xy%=�:Wf$=Ua$
C��Xv(XV%):Ua$=Wf$
C�
C&;�"SETTYPE "+dk$+" DFE":Wc$="DBaseCSV":�Xv(Xf%):Vs%=Ze%
C:�:�Wv:ș&406C1:�dj:�
Cb��Yc:�bi% �
Cv�Vs%<3 �bV$=Ua$�bV$=Wc$
C��ș&400CF,,Ug%:Ug%!32=Ug%!4:Ug%!28=!Ug%:Ug%!24=Ug%!16:Ug%!20=Ug%!12:Ug%!16=1:Ug%!12=0:Ug%!36=0:Ug%!40=Wi%:$(Ug%+44)=�dp(bV$):!Ug%=60:ș&400E7,17,Ug%,Ug%!20
C��:�
C����dq(Ug%,Wz%,Um%):�x%,y%,Ux%:x%=Ug%!4:y%=Ug%!8:Ux%=Ug%!16-y%:�Za(Wz%,Um%):Ug%!8=cc%+x%:Ug%!12=cd%+y%+Ux%:Ug%!16=ce%+x%:Ug%!20=cf%+y%+Ux%:Ug%!24=0:Ug%!28=0:Ug%!32=1298:Ug%!36=1024:!Ug%=0:Ug%!4=5:bi%=�:�UW%<300 �
D ș&400D0,,Ug%
D*�:�Wz%=XV% �
D>#ș&42400,&C5,1,"file_12d",Ug%+8
DH$�ș&42400,&C5,1,"file_dfe",Ug%+8
DR�
D\�:�
Dz���bW(Yg%):bi%=�:ș&400CF,,Ug%:Ug%!20=Ug%!12:Ug%!24=Ug%!16:Ug%!28=Ug%!0:Ug%!32=Ug%!4:Ug%!0=44:Ug%!12=Yg%!8:Ug%!16=3:Ug%!40=Wi%:ș&400E7,17,Ug%:�
D�R��Yw(Yg%,Um%):�Za(Yg%,1):Ua$=Zd$:!Ug%=Yg%:ș&400CC,,Ug%:�Um%=3 ��dq(Ug%,Yg%,3)
D��Um%=2 ��XV(Ua$)
D�
�Um%=20 �
E�WW%?20=&00 �
E/WW%?20=�Zw(Yg%,20):�Wl% �WW%?21=�Zx(Yg%,21)
E$eWW%?23=�Zx(Yg%,23):Vs%=1:�Xx(Yg%,6,&0700F13D,&FF00FFFF):�Xx(Yg%,8,&0700F13D,&FF00FFFF):�YU(Yg%,6)
EB�
EL�:�Um%=21 �Wl% �
Ej�WW%?21=&00 �
Et�WW%?20=�Zx(Yg%,20):WW%?21=�Zw(Yg%,21):WW%?23=�Zx(Yg%,23):Vs%=2:�Xx(Yg%,6,&0200013D,&FF00FFFF):�Xx(Yg%,8,&0200013D,&FF00FFFF):�YU(Yg%,1)
E��
E��:�Um%=23 �
E��WW%?23=&00 �
E�/WW%?20=�Zx(Yg%,20):�Wl% �WW%?21=�Zx(Yg%,21)
E�eWW%?23=�Zw(Yg%,23):Vs%=0:�Xx(Yg%,6,&0200013D,&FF00FFFF):�Xx(Yg%,8,&0200013D,&FF00FFFF):�YU(Yg%,1)
F
�
F�:�
F2J��Yx(Yg%,Um%):�Za(Yg%,1):Wc$=Zd$:Vs%=1:!Ug%=Yg%:ș&400CC,,Ug%:�Um%=3 �
FZ Ze%=Vs%:Vs%=3:�dq(Ug%,Xf%,3)
Fd$�:�Um%=2 �Ze%=Vs%:Vs%=3:�XV(Wc$)
Fx�
F���YX(Yg%):�Wg%=� �
F�FXa$="File has been modified. Do you want to save it?":Vj%=�:�Xa(9)
F�7�Ua$=Wf$:Ze%=Vs%:Vs%=0:�XV(Ua$):VZ%=�:Va%=�:Vs%=Ze%
F��:�
F���ZY(Yg%,Um%):�Um%=2 �
F��WW%?2=&00 �
GWW%?2=�aZ(Yg%,2):Wg%=�
G�WW%?2=�aX(Yg%,2):Wg%=�
G�
G"�:�Um%=9 �
G6�WW%?9=&00 �
G@!�Ua$,".")<>0 ��Ua$,":")<>0 �
GJJWW%?9=�aZ(Yg%,9):Vh%=�:Vj%=�:�Xx(Yg%,3,&0700F13D,&FFFFFFFF):�YU(Yg%,3)
Gh�
GrF�WW%?9=�aX(Yg%,9):Vh%=�:�Xx(Yg%,3,&0200013D,&FFFFFFFF):ș&400D2,-1
G��
G��:�
G�P��Uc(dk$):�a%,b%,Ud%,p%,u$:Ud%=�dk$:a%=�dn(dk$,"DataBase",&12D):�a%=��#Ud%:�
H�Wi$<>"DataBase 12D"�#Ud%:�
H��Zu:ș&406C0:u$="":�j%=1 �2:u$+=�(�#Ud%):�:VX%=�(u$):�:c%=�#Ud%:�c%=13 �c%=10:�a%=1 �VX%:p%=(a%/VX%)*100:ș&406C4,p%:�b%=0 �9:u$="":�:c%=�#Ud%:u$+=�(c%):�c%=13 �c%=10:F$(a%,b%)=�u$,�(u$)-1):�:�:u$="":�j%=1 �3:u$+=�(�#Ud%):�:U%=�(u$):�U%>0 �
H���:c%=�#Ud%:�c%=13 �c%=10:�a%=1 �U%:p%=(a%/U%)*100:ș&406C4,p%:�b%=1 �VX%:u$="":�:c%=�#Ud%:u$+=�(c%):�c%=13 �c%=10:R$(a%,b%)=�u$,�(u$)-1):�:�
H��:�#Ud%:N%=1:Xy%=�:bb$="NO":�Wv:do$=dk$:�dr:�Xz(Ww%,�):�YY:�Vz(Ww%,8,�(U%)):A%=1:B%=U%:X%=1:Y%=U%:S%=1:T%=U%:�Vz(Xg%,12,�(U%)):�Vz(XV%,6,�(S%)):�Vz(XV%,8,�(T%)):Wf$=dk$:ș&406C1:�
I>s��Vu(ds$):�Ud%,Ux%:Ud%=�ds$:Ux%=� #Ud%+16:�#Ud%:�bf% Ux%:!bf%=Ux%:bf%!4=0:bf%!8=16:bf%!12=0:ș&2E,266,bf%,ds$:�
I����Wu:�dt,Uc%,dl%,Wu$:Ug%?0=3:ș&7,14,Ug%:Uc%=Ug%?4:dl%=Ug%!0:Uc%=(Uc% �&FF) �(&FFF<<20) �(Wi%<<8):dt=Ug%:dt?4=Uc% �&FF:dt?3=dl%>>24 �&FF:dt?2=dl%>>16 �&FF:dt?1=dl%>>8 �&FF:dt?0=dl% �&FF:ș&C0,dt,Ug%,28:Wu$=$Ug%:bd$=�Wu$,20):�
J?ݤdp(du$):�a%,a$,b$:�((�du$,".")=0) �(�du$,":")=0)) �b$=du$
J$Wa%=�(du$):�:a$=�du$,a%,1):a%-=1:�(a%<0 �a$="." �a$=":"):�a%>0 �b$=�du$,�(du$)-a%-1)
JV=b$
JjNݤdn(du$,dv$,dw%):�t%,Uc%,dl%,Uu%,a%,b%,c%,dt,dw$,Wu$,Wm%:Wm%=�:�du$<>"" �
J�"ș&8,5,du$ �t%,,Uc%,dl%,Uu%,a%
J�/�:�(du$="") �((t%=1) �(a% �1) �(Uu%>8))=0 �
J�7Ua$="DBaseFile":bb$="NO":bc$="":Wi$="":bd$="":Wm%=�
J��:�Wm% �
J�!bc$=�(Uu%):�(Uc%>>>20)=&FFF �
J��(&FFF �Uc%>>>8)=dw% �
J�Wi$=dv$+" "
K��:ș&29,18,,(&FFF �Uc%>>>8) �,,b%,c%:dw$=�(b% �&FF)+�((b%>>8) �&FF)+�((b%>>16) �&FF)+�((b%>>24)�&FF):dw$+=�(c% �&FF)+�((c%>>8) �&FF)+�((c%>>16) �&FF)+�((c%>>24)�&FF):Wi$=dw$
K2��:Wi$+=�~(&FFF �Uc%>>>8):dt=Ug%:dt?4=Uc% �&FF:dt?3=dl%>>24 �&FF:dt?2=dl%>>16 �&FF:dt?1=dl%>>8 �&FF:dt?0=dl% �&FF:ș&C0,dt,Ug%,28:Wu$=$Ug%:bd$=�Wu$,20)
K��
K�
�:=Wm%
K�+ݤbj(s%):�a$:ȕ?s%:a$+=�?s%:s%+=1:�:=a$
L, ��Yq(Um%):�h%:h%=Xi%:ȎUm% �
LJ�1:�VW%=VX% �VX%=0 �
L^
�VX% �
Lh%XZ$="This is the last field.":�XZ
Lr�XZ$="No fields.":�XZ
L|�
L��VW%+=1:�dx:�YZ
L��
L��2:�VW%=1 �VX%=0 �
L�
�VX% �
L�&XZ$="This is the first field.":�XZ
L��XZ$="No fields.":�XZ
L��
L��VW%-=1:�dx:�YZ
L��
L��7:�VX%=VV% �
L� XZ$="At most 18 fields.":�XZ
M�:�VX%=0 �F$(VW%,1)<>"" �
M�VX%+=1:�Vz(Xi%,6,�(VX%)):VW%=VX%:�j%=0 �9:F$(VW%,j%)="":�:F$(VW%,0)="0":F$(VW%,7)="1":F$(VW%,5)="7":F$(VW%,6)="0":F$(VW%,8)="7":�dx:�YU(XW%,9):�YZ
MD3�XZ$="Put in the current field data first.":�XZ
MN�
MX�
Mb�8:�VX%>0 �
Mva�Xv(XW%):�Xv(Xi%):Vs%=0:Ua$="DBaseFile":Wc$="DBaseCSV":bb$="YES":bc$="0":bd$="":Xy%=�:�Wv:�dr
M�)�XZ$="No data to create archive.":�XZ
M��
M��:�
M�*��Yp(Um%,Yk%):�h%,j%,f%:h%=XW%:ȎUm% �
M��11:�Yk%=Yo% �
N�F$(VW%,1)<>"" �
N�WW%?11=&00 �
N1�dy:WW%?11=�Zw(h%,11):F$(VW%,0)="0":Xy%=�:�Wv
N*�
N4+�XZ$="Put in the other data first.":�XZ
N>�
NH�
NR�13:�Yk%=Yo% �
Nf�F$(VW%,1)<>"" �
Np�WW%?13=&00 �
Nz1�dy:WW%?13=�Zw(h%,13):F$(VW%,0)="1":Xy%=�:�Wv
N��
N�+�XZ$="Put in the other data first.":�XZ
N��
N��
N��15:�Yk%=Yo% �
N��F$(VW%,1)<>"" �
N��WW%?15=&00 �
N�1�dy:WW%?15=�Zw(h%,15):F$(VW%,0)="2":Xy%=�:�Wv
N��
N�+�XZ$="Put in the other data first.":�XZ
O�
O�
O�17:�Yk%=Yo% �
O.�F$(VW%,1)<>"" �
O8�WW%?17=&00 �
OBT�dy:WW%?17=�Zw(h%,17):F$(VW%,0)="3":F$(VW%,1)="8":�Vz(h%,19,F$(VW%,1)):Xy%=�:�Wv
O`�
Oj+�XZ$="Put in the other data first.":�XZ
Ot�
O~�
O��23:�Yk%=Yo% �
O��F$(VW%,1)<>"" �
O�%f%=�(F$(VW%,5)):f%+=1:�f%>15 f%=0
O�3�dY(h%,Um%,f%):F$(VW%,5)=�(f%):Xy%=�:�Wv:Ȏf% �
O�%�0,1,2,3,9,12,14,15:�dW(h%,Um%,7)
O�%�4,5,6,7,8,10,11,13:�dW(h%,Um%,0)
O��:�Vz(h%,Um%,�(f%))
O�+�XZ$="Put in the other data first.":�XZ
P�
P
�:�Yk%=bZ% �
P�F$(VW%,1)<>"" �
P(%f%=�(F$(VW%,5)):f%-=1:�f%<0 f%=15
P23�dY(h%,Um%,f%):F$(VW%,5)=�(f%):Xy%=�:�Wv:Ȏf% �
PP%�0,1,2,3,9,12,14,15:�dW(h%,Um%,7)
PZ%�4,5,6,7,8,10,11,13:�dW(h%,Um%,0)
Pd�:�Vz(h%,Um%,�(f%))
Px+�XZ$="Put in the other data first.":�XZ
P��
P��
P��25:�Yk%=Yo% �
P��F$(VW%,1)<>"" �
P�%f%=�(F$(VW%,6)):f%+=1:�f%>15 f%=0
P�3�dY(h%,Um%,f%):F$(VW%,6)=�(f%):Xy%=�:�Wv:Ȏf% �
P�%�0,1,2,3,9,12,14,15:�dW(h%,Um%,7)
P�%�4,5,6,7,8,10,11,13:�dW(h%,Um%,0)
P��:�Vz(h%,Um%,�(f%))
Q+�XZ$="Put in the other data first.":�XZ
Q�
Q�:�Yk%=bZ% �
Q,�F$(VW%,1)<>"" �
Q6%f%=�(F$(VW%,6)):f%-=1:�f%<0 f%=15
Q@3�dY(h%,Um%,f%):F$(VW%,6)=�(f%):Xy%=�:�Wv:Ȏf% �
Q^%�0,1,2,3,9,12,14,15:�dW(h%,Um%,7)
Qh%�4,5,6,7,8,10,11,13:�dW(h%,Um%,0)
Qr�:�Vz(h%,Um%,�(f%))
Q�+�XZ$="Put in the other data first.":�XZ
Q��
Q��
Q��30:�Yk%=Yo% �
Q��F$(VW%,1)<>"" �
Q��WW%?30=&00 �
Q�1�dz:WW%?30=�Zw(h%,30):F$(VW%,7)="0":Xy%=�:�Wv
Q��
Q�+�XZ$="Put in the other data first.":�XZ
Q��
Q��
R�32:�Yk%=Yo% �
R�F$(VW%,1)<>"" �
R&�WW%?32=&00 �
R01�dz:WW%?32=�Zw(h%,32):F$(VW%,7)="1":Xy%=�:�Wv
RD�
RN+�XZ$="Put in the other data first.":�XZ
RX�
Rb�
Rl�34:�Yk%=Yo% �
R��F$(VW%,1)<>"" �
R��WW%?34=&00 �
R�1�dz:WW%?34=�Zw(h%,34):F$(VW%,7)="2":Xy%=�:�Wv
R��
R�+�XZ$="Put in the other data first.":�XZ
R��
R��
R��37:�Yk%=Yo% �
R��F$(VW%,1)<>"" �
R�%f%=�(F$(VW%,8)):f%+=1:�f%>15 f%=0
R�3�dY(h%,Um%,f%):F$(VW%,8)=�(f%):Xy%=�:�Wv:Ȏf% �
S%�0,1,2,3,9,12,14,15:�dW(h%,Um%,7)
S %�4,5,6,7,8,10,11,13:�dW(h%,Um%,0)
S*�:�Vz(h%,Um%,�(f%))
S>+�XZ$="Put in the other data first.":�XZ
SH�
SR�:�Yk%=bZ% �
Sf�F$(VW%,1)<>"" �
Sp%f%=�(F$(VW%,8)):f%-=1:�f%<0 f%=15
Sz3�dY(h%,Um%,f%):F$(VW%,8)=�(f%):Xy%=�:�Wv:Ȏf% �
S�%�0,1,2,3,9,12,14,15:�dW(h%,Um%,7)
S�%�4,5,6,7,8,10,11,13:�dW(h%,Um%,0)
S��:�Vz(h%,Um%,�(f%))
S�+�XZ$="Put in the other data first.":�XZ
S��
S��
S��:�
S�L��dx:�h%,f%:h%=XW%:�Vz(Xi%,4,�(VW%)):�Vz(Xi%,6,�(VX%)):�dy:ȎF$(VW%,0) �
T.�"0":WW%?11=�Zw(h%,11)
T8�"1":WW%?13=�Zw(h%,13)
TB�"2":WW%?15=�Zw(h%,15)
TL�"3":WW%?17=�Zw(h%,17)
TVh�:�Vz(h%,9,F$(VW%,2)):�Vz(h%,12,F$(VW%,4)):�Vz(h%,19,F$(VW%,1)):f%=�(F$(VW%,5)):�dY(h%,23,f%):Ȏf% �
T�$�0,1,2,3,9,12,14,15:�dW(h%,23,7)
T�$�4,5,6,7,8,10,11,13:�dW(h%,23,0)
T�;�:�Vz(h%,23,�(f%)):f%=�(F$(VW%,6)):�dY(h%,25,f%):Ȏf% �
T�$�0,1,2,3,9,12,14,15:�dW(h%,25,7)
T�$�4,5,6,7,8,10,11,13:�dW(h%,25,0)
T�=�:�Vz(h%,25,�(f%)):�Vz(h%,27,F$(VW%,3)):�dz:ȎF$(VW%,7) �
U�"0":WW%?30=�Zw(h%,30)
U
�"1":WW%?32=�Zw(h%,32)
U�"2":WW%?34=�Zw(h%,34)
U*�:f%=�(F$(VW%,8)):�dY(h%,37,f%):Ȏf% �
U<$�0,1,2,3,9,12,14,15:�dW(h%,37,7)
UF$�4,5,6,7,8,10,11,13:�dW(h%,37,0)
UP-�:�Vz(h%,37,�(f%)):�Vz(Xk%,2,F$(VW%,9)):�
Ux0��dy:�j%:�j%=11 �17�2:WW%?j%=�Zx(XW%,j%):�:�
U�0��dz:�j%:�j%=30 �34�2:WW%?j%=�Zx(XW%,j%):�:�
U�"��Zc(Yg%,Um%,ZZ%):�o$:�Um%=2 �
U�+o$=F$(VW%,9):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �
V�(Zd$)<=�(F$(VW%,1)) �
V5F$(VW%,9)=Zd$:ș&400D2,-1:�F$(VW%,9)<>o$Xy%=�:�Wv
V,�Xv(Xk%)
V6,�XZ$="Incorrect short title lenght.":�XZ
V@�
VJ�
VT�:�
Vr$��Zb(Yg%,Um%,ZZ%):�l%,o$:ȎUm% �
V�@�9:o$=F$(VW%,2):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �ZZ%=398 �ZZ%=399 �
V�
�VX% �
V�)F$(VW%,2)=Zd$:�F$(VW%,2)<>o$Xy%=�:�Wv
V�3�(�aU(F$(VW%,2)))>�(F$(VW%,1)) �F$(VW%,9)="" �
V�.�F$(VW%,9)="" ��(F$(VW%,9))>�(F$(VW%,1)) �
V��F$(VW%,1)<>""�7:�Xz(Xk%,�)
V��
V��:�ZZ%=13 �
W�F$(VW%,4)="" �
W�YU(Yg%,12)
W&�:�ZZ%=398 �
W:�YU(Yg%,12)
WD�ș&400D2,-1
WN�
WX�
Wb��YU(Yg%,12)
Wl�
Wv[�XZ$="To put in the data click on icon with plus sign.":�XZ:�Vz(Yg%,Um%,""):ș&400D2,-1
W��
W��
W�A�12:o$=F$(VW%,4):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �ZZ%=398 �ZZ%=399 �
W�
�VX% �
W�l%=�(Zd$):�l%>36 �l%<1 �
W�$XZ$="Incorrect icon lenght.":�XZ
W�+�:F$(VW%,4)=Zd$:�F$(VW%,4)<>o$Xy%=�:�Wv
X
�ZZ%=13 �
X�F$(VW%,1)="" �
X �YU(Yg%,19)
X*�ș&400D2,-1
X4�
X>�:�ZZ%=398 �
XR�YU(Yg%,19)
X\��YU(Yg%,9)
Xf�
Xp�
Xz�
X�[�XZ$="To put in the data click on icon with plus sign.":�XZ:�Vz(Yg%,Um%,""):ș&400D2,-1
X��
X��
X�A�19:o$=F$(VW%,1):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �ZZ%=398 �ZZ%=399 �
X�
�VX% �
X�El%=�(Zd$):�l%>36 �l%<1 �l%<�(F$(VW%,3)) �(F$(VW%,0)="3" �l%<>8) �
X�?XZ$="Incorrect field lenght.":�XZ:�(F$(VW%,0)="3" �l%<>8) �
Y(Zd$="8":�Vz(Yg%,Um%,Zd$):ș&400D2,-1
Y�
Y$+�:F$(VW%,1)=Zd$:�F$(VW%,1)<>o$Xy%=�:�Wv
YB%�(�aU(F$(VW%,2)))>�(F$(VW%,1)) �
YL.�F$(VW%,9)="" ��(F$(VW%,9))>�(F$(VW%,1)) �
YV�7:�Xz(Xk%,�)
Y`�
Yj�:�ZZ%=13 �
Y~�F$(VW%,3)="" �
Y��YU(Yg%,27)
Y��ș&400D2,-1
Y��
Y��:�ZZ%=398 �
Y��YU(Yg%,27)
Y���YU(Yg%,12)
Y��
Y��
Y��
Y�[�XZ$="To put in the data click on icon with plus sign.":�XZ:�Vz(Yg%,Um%,""):ș&400D2,-1
Z�
Z
�
ZA�27:o$=F$(VW%,3):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �ZZ%=398 �ZZ%=399 �
Z<�(Zd$)>�(F$(VW%,1)) �
ZF9XZ$="String too long. Max "+F$(VW%,1)+" letters.":�XZ
ZP+�:F$(VW%,3)=Zd$:�F$(VW%,3)<>o$Xy%=�:�Wv
Zn
�ZZ%=13 �
Zxș&400D2,-1
Z��:�ZZ%=398 �
Z�ș&400D2,-1
Z���YU(Yg%,19)
Z��
Z��
Z��
Z��
Z��:�
Z�A��dr:�j%,y%,w%,eU%,i%,eV%,eW%,l%,Wm%,l%,a$,eX%,eY%,eZ%:�VX% �
[��Xv(Wy%):�Xv(Ww%):�j%=0 �VX%*2:�Zv(Wy%,j%):�:�j%=0 �VX%-1:�Zv(Xc%,j%):�:�j%=0 �VX%-1:�Zv(Xe%,j%):�:eV%=0:�j%=1 �VX%:y%=(�(F$(j%,2))*16)+16:�y%>eV%eV%=y%
[J;�:eW%=0:�j%=1 �VX%:y%=(�(F$(j%,4))*16)+16:�y%>eW%eW%=y%
[h��:ea%=eV%+16:y%=-72:eU%=0:i%=0:Yi%=Un%:eb%=Uo%:Uu%=Up%:ec%=Uq%:ed%=Ur%:Wm%=&17006119:$eb%="x0;-1":$ec%=""+�(0):ed%=1:eX%=(72*VX%)+8:eZ%=-(eX%+8):eY%=eV%+eW%+24:Um%(i%)=�bz(Wy%,8,eZ%,eY%,eX%,Wm%,"",ec%,eb%,ed%)
[��i%+=1:ec%+=�($ec%)+1:ed%+=�($ec%)+1:eb%+=�($eb%)+1:�j%=1 �VX%:dU%=�(F$(j%,8)):dV%=1:$ec%=F$(j%,2)+�(0):ed%=eV%+1:Wm%=�cl(1,0,0,0,1,1,0,0,1,1,0,0,0,0,0,0,0,dU%,dV%,0):Um%(i%)=�bz(Wy%,8,y%,eV%,48,Wm%,F$(j%,2),ec%,-1,ed%):ec%+=�(F$(j%,2))+1:ed%+=eV%+1
[�-w%=(�(F$(j%,4))*16)+18:i%+=1:ȎF$(j%,0) �
\ �"0":$eb%="x3;-1;pptr_write"
\&%�"1":$eb%="x3;a0-9;-1;pptr_write"
\0&�"2":$eb%="x3;a0-9.;-1;pptr_write"
\:&�"3":$eb%="x3;a0-9/;-1;pptr_write"
\D�:ȎF$(j%,7) �
\X�"0":co%=1:ct%=0
\b�"1":co%=0:ct%=0
\l�"2":co%=0:ct%=1
\v��:dU%=�(F$(j%,5)):dV%=�(F$(j%,6)):Wm%=�cl(1,0,1,co%,1,1,0,0,1,ct%,0,0,15,0,0,0,0,dU%,dV%,0):Uu%=�(F$(j%,1))+1:$Yi%=F$(j%,3)+�(0):Um%(i%)=�bz(Wy%,ea%,y%,w%,48,Wm%,F$(j%,3),Yi%,eb%,Uu%):y%-=72:eU%-=72:i%+=1:Yi%+=�(F$(j%,1))+1
\��eb%+=�($eb%)+1:Uu%+=�(F$(j%,1))+1:�:�by(Wy%,0,eU%-24,eV%+eW%+40,0):ee%=-eU%+24:�Xv(Wy%):�Xz(Wy%,�):eV%=0:�j%=1 �VX%:a$="  "+F$(j%,2):��a$,1)=":"a$=�a$,�(a$)-1)
]"y%=(�(a$)*16)+16:�y%>eV%eV%=y%
]L�:y%=-48:eU%=0:i%=0:�j%=1 �VX%:�j%<>Wo%a$="  "+F$(j%,2)�a$="� "+F$(j%,2)
]4��a$,1)=":"a$=�a$,�(a$)-1)
]>�Wm%=&07003131:$Yi%=a$+�(0):Uu%=eV%+1:Um%(i%)=�bz(Xc%,0,y%,eV%,48,Wm%,a$,Yi%,-1,Uu%):Yi%+=�(a$)+1:Uu%+=eV%+1:y%-=48:eU%-=48:i%+=1:�:�(eU%)<240 �eU%=-240
]zc�by(Xc%,0,eU%-4,296,0):�Xv(Xc%):eV%=0:�j%=1 �VX%:a$=�ef(j%,"� "):y%=(�(a$)*16)+16:�y%>eV%eV%=y%
]���:y%=-48:eU%=0:i%=0:�j%=1 �VX%:a$=�ef(j%,"� "):Wm%=&07003131:$Yi%=a$+�(0):Uu%=eV%+1:Um%(i%)=�bz(Xe%,0,y%,eV%,48,Wm%,a$,Yi%,-1,Uu%):Yi%+=�(a$)+1:Uu%+=eV%+1:y%-=48:eU%-=48:i%+=1:�:�(eU%)<240 �eU%=-240
^8�by(Xe%,0,eU%-4,342,0):�Xv(Xe%):�Xz(Ww%,�):VY%=�:�eg
^.��:Zz%=1:�Vz(XX%,9,�aU(F$(Zz%,2))):aV%=1:�Vz(XX%,23,�aU(F$(aV%,2))):Zr%=5:�Vz(XX%,11,"Contains"):Zs%=5:�Vz(XX%,25,"Contains"):aW%=�:�
^t^ݤef(n%,a$):�b$,c$,d$,l%:b$=a$+F$(n%,2):b$=�aU(b$):l%=�(b$):c$=F$(n%,1):�(c$)<2 c$=" "+c$
^�d$=�18-l%," "):=b$+d$+c$
^�$��Zf(Yg%,Um%,ZZ%):�o$,n%:ȎUm% �
_y�2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36:n%=Um%/2:o$=R$(N%,n%):�Vz(Yg%,Um%,Zd$):�ZZ%=13 �ZZ%=398 �ZZ%=399 �
_	�U% �
_(�(Zd$<>"" �Um%=2) �Um%>2 �
_2�F$(n%,0)<>"3" �
_<)R$(N%,n%)=Zd$:�R$(N%,n%)<>o$Xy%=�:�Wv
_P�ZZ%=13 �ZZ%=398 �
_Z�Um%<VX%*2 �
_d�YU(Yg%,Um%+2)
_n�ș&400D2,-1:We%=�
_x�
_��:�ZZ%=399 �
_��Um%>2 �
_��YU(Yg%,Um%-2)
_��ș&400D2,-1:We%=�
_��
_��
_��:�eh(Zd$)=� �
_�.R$(N%,n%)=�Wu(Zd$):�R$(N%,n%)<>o$Xy%=�:�Wv
_��ZZ%=13 �ZZ%=398 �
_��Um%<VX%*2 �
`�YU(Yg%,Um%+2)
`�ș&400D2,-1:We%=�
`�
`"�:�ZZ%=399 �
`6�Um%>2 �
`@�YU(Yg%,Um%-2)
`J�ș&400D2,-1:We%=�
`T�
`^�
`h$�:XZ$="Invalid data format.":�XZ
`|�
`��
`�7�:ș&400D2,-1:U%-=1:�Vz(Ww%,8,�(U%)):N%=1:�YY:We%=�
`��
`�[�XZ$="To put in the data click on icon with plus sign.":�XZ:�Vz(Yg%,Um%,""):ș&400D2,-1
`��
`��
`��:�
a(ݤeh(a$):�f%,g%,m%,a%:f%=�:�a$<>"" �
a0�(a$)>0 ��(a$)<8 f%=�
a:�f%=� �
aD%�a$,3,1)<>"/" ��a$,6,1)<>"/"f%=�
aN%m%=�(�a$,4,2)):�m%<1 �m%>12 �f%=�
aX#g%=�(�a$,2)):�g%<1 �g%>31 �f%=�
ab�f%=� �
al�g%>Vb%(m%)f%=�
av
�:�m%=2 �
a�1a%=�(�a$,2)):�(a% �400=0 �a% �4=0)l%=29�l%=28
a��g%>l%f%=�
a��
a��
a�	�:=f%
a�,ݤei(a$):=�a$,2)+"/"+�a$,3,2)+"/"+�a$,2)
a�$ݤWu(a$):=�a$,2)+�a$,4,2)+�a$,2)
b)��Yt(Um%):�j%,h%,n%,i%:h%=Ww%:ȎUm% �
b*�1:�N%=U% �U%=0 �
b>	�U% �
bH&XZ$="This is the last record.":�XZ
bR%�XZ$="No records in archive.":�XZ
b\�
bf�N%+=1:�YY:�YZ
bp�
bz�2:�N%=U% �U%=0 �
b�	�U% �
b�&XZ$="This is the last record.":�XZ
b�%�XZ$="No records in archive.":�XZ
b��
b��N%=U%:�YY:�YZ
b��
b��3:�N%=1 �U%=0 �
b�	�U% �
b�'XZ$="This is the first record.":�XZ
b�%�XZ$="No records in archive.":�XZ
b��
c�N%=1:�YY:�YZ
c�
c�4:�N%=1 �U%=0 �
c.	�U% �
c8'XZ$="This is the first record.":�XZ
cB%�XZ$="No records in archive.":�XZ
cL�
cV�N%-=1:�YY:�YZ
c`�
cj�9:�U%=500 �
c~XZ$="Archive full.":�XZ
c�$�:�(U%=0 �R$(N%,1)<>"") �We%=� �
c�xU%+=1:�Vz(h%,8,�(U%)):N%=U%:We%=�:�Vz(h%,6,�(N%)):�j%=1 �VX%:R$(N%,j%)="":�i%=1 �VX%:�F$(i%,3)<>""R$(N%,i%)=F$(i%,3)
c� �:�:�YY:B%=U%:�YU(Wy%,2):�YZ
c�5�:XZ$="Put in the current record data first.":�XZ
d
�
d�
d�:�
d<3��YY:�j%,i%,a$:i%=2:�j%=1 �VX%:�F$(j%,0)<>"3" �
dda$=R$(N%,j%)
dn$�a$=�ei(R$(N%,j%)):�a$="//"a$=""
dx/�:�Vz(Wy%,i%,a$):i%+=2:�:�Vz(Ww%,6,�(N%)):�
d���YW:�h%:h%=Xb%:ȎWb% �
d�'�1:�Vz(h%,11,"Fanfold 80 col 11""")
e'�2:�Vz(h%,11,"Fanfold 80 col 12""")
e(�3:�Vz(h%,11,"Fanfold 136 col 11""")
e(�4:�Vz(h%,11,"Fanfold 136 col 12""")
e"#�5:�Vz(h%,11,"A4 single sheet")
e,g�:�Vz(h%,15,�(Wt%)):�Vz(h%,9,�(Wx%)):�Vz(h%,8,�(Wt%-Wx%)):�Vz(h%,19,�(A%)):�Vz(h%,21,�(B%)):ȎWZ% �
e^
�0:Wa%=U%
eh�1:Wa%=1
er�2:Wa%=Wl%
e|�3:Wa%=(B%-A%)+1
e��:�Vz(h%,26,�(Wa%)):�Wl% �
e��WW%?5=&00 �
e��ad(Ug%,h%,5,"radiooff")
e���ad(Ug%,h%,5,"radioon")
e��
e���ad(Ug%,h%,5,"radio")
e��:�
e� ��ZU(Um%):�h%:h%=Xb%:ȎUm% �
f�2:�Yn(h%,Um%)
f�1:�WW%?1=&00 �
f0z�ej:WW%?1=�Zw(h%,1):WZ%=0:�Xx(Xb%,19,&0200013D,&FF00FFFF):�Xx(Xb%,21,&0200013D,&FF00FFFF):ș&400D2,-1:�Vz(h%,26,�(U%))
fX�
fb�3:�WW%?3=&00 �
fvx�ej:WW%?3=�Zw(h%,3):WZ%=1:�Xx(Xb%,19,&0200013D,&FF00FFFF):�Xx(Xb%,21,&0200013D,&FF00FFFF):ș&400D2,-1:�Vz(h%,26,"1")
f��
f�
�5:�Wl% �
f��WW%?5=&00 �
f�{�ej:WW%?5=�Zw(h%,5):WZ%=2:�Xx(Xb%,19,&0200013D,&FF00FFFF):�Xx(Xb%,21,&0200013D,&FF00FFFF):ș&400D2,-1:�Vz(h%,26,�(Wl%))
f��
f��
g�7:�WW%?7=&00 �
g��ej:WW%?7=�Zw(h%,7):WZ%=3:�Xx(Xb%,19,&0700F13D,&FF00FFFF):�Xx(Xb%,21,&0700F13D,&FF00FFFF):�YU(Xb%,19):�Vz(h%,26,�((B%-A%)+1))
g>�
gH�23:�bU(Xb%,Um%,1):�ek=� �
gf�el
gpN�XZ$="Printer unconnected or offline. ":XZ$+="Reconnect and click OK.":�XZ
g��:�bU(Xb%,Um%,0)
g�#�24:�Xv(Xe%):�Xv(h%):�Xz(Wy%,�)
g��:�
g�1��ej:WW%?1=�Zx(Xb%,1):WW%?3=�Zx(Xb%,3):�Wl% �
g�WW%?5=�Zx(Xb%,5)
g���ad(Ug%,Xb%,5,"radio")
g��:WW%?7=�Zx(Xb%,7):�
h$��el:�j%,g%,a%,b%:ȎWZ% �
hB�0:Wq%=1:Wa%=U%
hL�1:Wq%=N%:Wa%=N%
hV�2:Wq%=1:Wa%=Wl%
h`�3:Wq%=A%:Wa%=B%
hj�:�Wa%>0 �Wx%<=Wt% �
h�1em%=0:�j%=1 �VX%:�Vd%(j%)=�em%+=�(F$(j%,1))+1
h��:�Wt%=150 g%=5�g%=11
h�Len%=�((Wt%-em%)/2)+g%:eo$="":ep$=�em%,"-"):eq%=1:�j%=1 �VX%:�Vd%(j%)=� �
h�/a%=�(�aU(F$(j%,2))):b%=�(F$(j%,1)):�a%>b% �
i
*eo$+=F$(j%,9)+�(b%-�(F$(j%,9)))+1," ")
i'�eo$+=�aU(F$(j%,2))+�(b%-a%)+1," ")
i�
i(�:�:ȎWb% �
iP�1,3:er%=73
iZ�2,4,5:er%=78
idB�:�Xv(Xb%):�Xz(XY%,�):P%=Wq%:Ws%=1:Xw%=0:ș&406C0:�2,21:�:�6,3
i��Wq%=0:�Wa%=0 �
i�"XZ$="No records to print.":�XZ
i�%�XZ$="Printing row too long.":�XZ
i��
i��:�
i�[��Xb:�es%,u$:Wp%=�:ș&5D,18:ș&5D,15:ș&5D,27:ș&5D,77:ș&5D,27:ș&5D,48:�2,21:�Ws%=1 �
j�eo:Ws%+=1
j"(�:�WZ%=2 u$=�en(F%(Wq%))�u$=�en(Wq%)
j65�en%)u$:ș&6,&81,,1 �&50,1 �&50 �,es%:�Wq%=Wa% �
jJ.Wq%=-1:�(12):ș&406C1:�Xv(XY%):�Xz(Wy%,�)
j^$�:Wq%+=1:P%+=1:Ws%+=1:�Ws%>er% �
j| �(12):Ws%=1:eq%+=1:�Wb%=5 �
j�Wr%=�:ș&406C1:WX%=�:WY%=�
j��
j��
j�?�:Wp%=�:�6,3:ș&5D,27:ș&5D,50:ș&5D,27:ș&5D,80:ș&5D,18:�
j�p��eo:�a$,b$,c$,d$,e$,f$,g$,et$,eu$:f$=�dp(do$):a$="Database: "+f$:b$=" Pag. "+�(eq%):�WZ%=0 d$="All records"
k �WZ%=1 d$="Record n. "+�(N%)
k&�WZ%=2 �
k0ȎWn% �
k:�1:g$=" OR "
kD�2:g$=" AND "
kN�3:g$=" AND NOT "
kX
�:ȎZr% �
kl�0:et$=" = "
kv�1:et$=" > "
k��2:et$=" >= "
k��3:et$=" <= "
k��4:et$=" < "
k��5:et$=" contains "
k��6:et$=" not contains "
k��7:et$=" starts "
k��8:et$=" ends "
k��9:et$=" <> "
k�
�:ȎZs% �
k��0:eu$=" = "
k��1:eu$=" > "
k��2:eu$=" >= "
l�3:eu$=" <= "
l�4:eu$=" < "
l�5:eu$=" contains "
l �6:eu$=" not contains "
l*�7:eu$=" starts "
l4�8:eu$=" ends "
l>�9:eu$=" <> "
lHg�:e$="<"+�aU(F$(Zz%,2))+">"+et$+"<"+Wj$+">":�Wk$<>""e$=e$+g$+"<"+�aU(F$(aV%,2))+">"+eu$+"<"+Wk$+">"
lfd$="Search list: "+e$
lp�:�WZ%=3 �
l�1d$="From record: "+�(A%)+" to record: "+�(B%)
l�Z�:c$=a$+�em%-(�(a$)+�(b$))," ")+b$:�en%)c$:�en%)d$:�en%)ep$:�en%)eo$:�en%)ep$:�:�
l�7ݤen(n%):�j%,u$,l%,w%:u$="":�j%=1 �VX%:�Vd%(j%)=� �
l��F$(j%,0)<>"3" �
m@l%=�(R$(n%,j%)):w%=�(F$(j%,1)):u$+=R$(n%,j%)+�(w%-l%)+1," ")
m8��ei(R$(n%,j%))<>"//"u$+=�ei(R$(n%,j%))+" "�u$+=" "
m$�
m.�:�:=u$
mV��ZV(Um%):ȎUm% �
mj�2:�Wr%=� �
m~@ș&406C1:Wr%=�:�Xv(XY%):Xa$="Print aborted. Confirm?":�Xa(4)
m��
m��3:�Wr%=� �
m�uWr%=�:ș&406C1:WX%=�:�Xx(XY%,2,&11000139,&FF00FFFF):�Xx(XY%,3,&11000139,&FF00FFFF):�Xx(XY%,4,&17003139,&FF00FFFF)
m��
m��4:�Wr%=� �
m�oWr%=�:ș&406C0:�Xx(XY%,2,&17003139,&FF00FFFF):�Xx(XY%,3,&17003139,&FF00FFFF):�Xx(XY%,4,&11000139,&FF00FFFF)
n�
n(�:�
nF:��Ys(Um%):�s%:s%=Um%+1:�Vd%(s%)=� �Vd%(s%)=��Vd%(s%)=�
nd�eg:�Vz(Xb%,8,�(Wt%-Wx%)):�
n�Q��eg:�l%,j%,a$,b$,c$,h%:h%=Xe%:Wx%=0:�j%=1 �VX%:l%=�(F$(j%,1))+1:�Vd%(j%)=� �
n�+a$=�ef(j%,"� "):�Vz(h%,j%-1,a$):Wx%+=l%
n�$�a$=�ef(j%,"  "):�Vz(h%,j%-1,a$)
n��:�:�Vz(Xb%,9,�(Wx%)):�
o"#��Xd:�f%,a%,b%,x%,y%,z%:�U%>1 �
o@ȎF$(Wo%,0) �
oJ�"0","3":�Ve%=0 �
o^,ș&406C0:f%=�:b%=U%:�:b%=�(b%/2):�b%>0 �
o�Ea%=U%-b%:�x%=1 �a%:y%=x%:ȕy%>0:z%=y%+b%:�R$(y%,Wo%)>R$(z%,Wo%) �
o�/�j%=1 �VX%:ȔR$(y%,j%),R$(z%,j%):�:y%=y%-b%
o�
�y%=-1
o�	�:�:�
o�	�f%=�
o��:�f%:ș&406C1:�YY
p.�:ș&406C0:f%=�:b%=U%:�:b%=�(b%/2):�b%>0 �
pNEa%=U%-b%:�x%=1 �a%:y%=x%:ȕy%>0:z%=y%+b%:�R$(y%,Wo%)<R$(z%,Wo%) �
p�/�j%=1 �VX%:ȔR$(y%,j%),R$(z%,j%):�:y%=y%-b%
p�
�y%=-1
p�	�:�:�
p�	�f%=�
p��:�f%:ș&406C1:�YY
p��
p��"1","2":�Ve%=0 �
q,ș&406C0:f%=�:b%=U%:�:b%=�(b%/2):�b%>0 �
q*Ka%=U%-b%:�x%=1 �a%:y%=x%:ȕy%>0:z%=y%+b%:�(R$(y%,Wo%))>�(R$(z%,Wo%)) �
qf/�j%=1 �VX%:ȔR$(y%,j%),R$(z%,j%):�:y%=y%-b%
qp
�y%=-1
qz	�:�:�
q�	�f%=�
q��:�f%:ș&406C1:�YY
q�.�:ș&406C0:f%=�:b%=U%:�:b%=�(b%/2):�b%>0 �
q�Ka%=U%-b%:�x%=1 �a%:y%=x%:ȕy%>0:z%=y%+b%:�(R$(y%,Wo%))<�(R$(z%,Wo%)) �
r./�j%=1 �VX%:ȔR$(y%,j%),R$(z%,j%):�:y%=y%-b%
r8
�y%=-1
rB	�:�:�
r`	�f%=�
rj�:�f%:ș&406C1:�YY
r��
r��
r��:�
r�.��Yr(Um%):�s%:s%=Um%+1:Wo%=s%:�Wo%=0 Wo%=1
r�	�ev:�
r�/��ev:�j%,h%,a$:h%=Xc%:�j%=1 �VX%:�Wo%<>j% �
s/a$="  "+F$(j%,2):��a$,1)=":"a$=�a$,�(a$)-1)
s(�Vz(h%,j%-1,a$)
s21�:a$="� "+F$(j%,2):��a$,1)=":"a$=�a$,�(a$)-1)
sF�Vz(h%,j%-1,a$)
sP	�:�:�
sx��ZW(Um%):ȎUm% �
s��18:�WW%?18=&00 �
s�/WW%?18=�Zw(Xd%,18):WW%?19=�Zx(Xd%,19):Ve%=0
s��
s��19:�WW%?19=&00 �
s�/WW%?18=�Zx(Xd%,18):WW%?19=�Zw(Xd%,19):Ve%=1
s��
s�(�5:�bU(Xd%,Um%,1):�Xd:�bU(Xd%,Um%,0)
t�6:�Xv(Xc%):�Xv(Xd%)
t�:�
tT ��ZX(Um%):�h%:h%=Xg%:ȎUm% �
tr�2:�Xv(Xg%)
t|�4:�WW%?4=&00 �
t�g�ew:WW%?4=�Zw(h%,4):Wd%=0:�Xx(h%,11,&0200013D,&FF00FFFF):�Xx(h%,12,&0200013D,&FF00FFFF):ș&400D2,-1
t��
t��6:�WW%?6=&00 �
t�g�ew:WW%?6=�Zw(h%,6):Wd%=1:�Xx(h%,11,&0200013D,&FF00FFFF):�Xx(h%,12,&0200013D,&FF00FFFF):ș&400D2,-1
t��
u�8:�WW%?8=&00 �Wl% �
ug�ew:WW%?8=�Zw(h%,8):Wd%=2:�Xx(h%,11,&0200013D,&FF00FFFF):�Xx(h%,12,&0200013D,&FF00FFFF):ș&400D2,-1
uD�
uN�10:�WW%?10=&00 �Y% �
ubi�ew:WW%?10=�Zw(h%,10):Wd%=3:�Xx(h%,11,&0700F13D,&FF00FFFF):�Xx(h%,12,&0700F13D,&FF00FFFF):�YU(Xg%,11)
u��
u��13:ȎWd% �
u�3�0:Xa$="Delete current record. Confirm?":�Xa(2)
u�0�1:Xa$="Delete all records. Confirm?":�Xa(6)
u�0�2:Xa$="Delete search list. Confirm?":�Xa(7)
u�H�3:Xa$="Delete records from "+�(X%)+" to "+�(Y%)+". Confirm?":�Xa(8)
v�
v�:�
v*1��ew:WW%?4=�Zx(Xg%,4):WW%?6=�Zx(Xg%,6):�Wl% �
vHWW%?8=�Zx(Xg%,8)
vR��ad(Ug%,Xg%,8,"radio")
v\�:WW%?10=�Zx(Xg%,10):�
v���YV:�Wl% �
v��WW%?8=&00 �
v��ad(Ug%,Xg%,8,"radiooff")
v���ad(Ug%,Xg%,8,"radioon")
v��
v���ad(Ug%,Xg%,8,"radio")
v��:�
w&��Wv:�du$:�Xy% �bb$="NO"�bb$="YES"
w.��Vz(XU%,2,bb$):�Vz(XU%,4,Wi$):�Vz(XU%,6,Ua$):�Vz(XU%,8,bc$):�Vz(XU%,10,bd$):�Vz(XV%,1,Ua$):�Vz(Xf%,1,Wc$):du$=UV$+": "+�dp(Ua$):�Xy%=� �du$+=" *"
wj;�bw(Wy%,du$):du$="Card layout":�Xy%=� �VY%=� �du$+=" *"
w~�bw(XW%,du$):�
w�Mݤac(ex$):�a%,b%,a$:�a%=1 ��(ex$):b%=�(�ex$,a%,1)):�b%>96 �b%<123 �b%-=32
w�a$+=�(b%):�:=a$
w�Iݤek:�a%,b%,j%:a%=�(-4):�j%=1 �10:ș&5D,0:�:j%=�(5):b%=�(-4):=(a%=b%)
x<3ݤaU(a$):�b$:��a$,1)=":" �b$=�a$,�(a$)-1)�b$=a$
xZ=b$
xn��YZ:�=0:���>30:�
x�N��dm:�a%,b%,j%,p%,a$:�j%=1 �VX%-1:a$=F$(j%,2):��a$,1)=":" �a$=�a$,�(a$)-1)
x�9�ey(a$,0):�:a$=F$(VX%,2):��a$,1)=":" �a$=�a$,�(a$)-1)
x�W�ey(a$,1):�ey(" ",1):�a%=1 �U%:p%=(a%/U%)*100:ș&406C4,p%:�b%=1 �VX%-1:ȎF$(b%,0) �
y,�"0":�R$(a%,b%)<>"" �a$=R$(a%,b%)�a$=" "
y"
�ey(a$,0)
y,0�"1","2":�R$(a%,b%)<>"" �a$=R$(a%,b%)�a$=" "
y@
�ez(a$,0)
yJ9�"3":�R$(a%,b%)<>"" �a$=�(�fU(�Wu(R$(a%,b%))))�a$=" "
y^
�ez(a$,0)
yh�:�:ȎF$(VX%,0) �
y�.�"0":�R$(a%,VX%)<>"" �a$=R$(a%,VX%)�a$=" "
y�
�ey(a$,1)
y�2�"1","2":�R$(a%,VX%)<>"" �a$=R$(a%,VX%)�a$=" "
y�
�ez(a$,1)
y�;�"3":�R$(a%,VX%)<>"" �a$=�(�fU(�Wu(R$(a%,VX%))))�a$=" "
y�
�ez(a$,1)
y�	�:�:�
zv��ey(a$,fV%):�c$,i%:�#Ud%,34:�i%=1 ��(a$):c$=�a$,i%,1):�#Ud%,�(c$):�:�#Ud%,34:�fV% ��#Ud%,13:�#Ud%,10��#Ud%,�(",")
zX�
zld��ez(a$,fV%):�c$,i%:�i%=1 ��(a$):c$=�a$,i%,1):�#Ud%,�(c$):�:�fV% ��#Ud%,13:�#Ud%,10��#Ud%,�(",")
z��
z�YݤfU(a$):�b$:a$=�a$,4)+"19"+�a$,2):b$=�a$,6,1):b$=�(�(b$)-1):=�fW(a$,"31121"+b$+"99")
z�%ݤfW(a$,b$):=�(�fX(a$)-�fX(b$))+1
{ZݤfX(a$):�b%,c%,d%:b%=�(�a$,1,2)):c%=�(�a$,3,2)):d%=�(�a$,5)):�c%>2 �c%-=3�c%+=9:d%-=1
{>>=146097*(d%�100)�4+1461*(d%�100)�4+(153*c%+2)�5+b%+1721119
�

00000000  0d 00 78 1f ee 85 f1 8a  30 2c 31 35 29 f6 24 3b  |..x.....0,15).$;|
00000010  22 20 61 74 20 6c 69 6e  65 20 22 3b 9e 3a e0 0d  |" at line ";.:..|
00000020  00 82 3b 55 56 24 3d 22  44 61 74 61 42 61 73 65  |..;UV$="DataBase|
00000030  22 3a 55 57 24 3d 22 31  2e 39 20 28 4f 63 74 6f  |":UW$="1.9 (Octo|
00000040  62 65 72 20 31 39 39 34  29 22 3a f2 55 58 3a ee  |ber 1994)":.UX:.|
00000050  85 f2 55 59 3a 55 5a 25  3d b9 0d 00 96 0c e7 55  |..UY:UZ%=......U|
00000060  5a 25 3d a3 20 8c 0d 00  a0 2f 55 61 24 3d a4 55  |Z%=. ..../Ua$=.U|
00000070  62 28 31 29 3a e7 55 61  24 3c 3e 22 22 f2 55 63  |b(1):.Ua$<>"".Uc|
00000080  28 55 61 24 29 8b 55 61  24 3d 22 44 42 61 73 65  |(Ua$).Ua$="DBase|
00000090  46 69 6c 65 22 0d 00 b4  0e cd 3a e7 55 5a 25 3d  |File".....:.UZ%=|
000000a0  b9 20 8c 0d 00 c8 1f e7  9f 3d 32 30 20 84 9f 3d  |. .......=20 ..=|
000000b0  32 30 34 20 84 9f 3d 36  37 37 38 35 20 55 5a 25  |204 ..=67785 UZ%|
000000c0  3d a3 0d 00 d2 17 e7 9f  3d 36 37 37 38 32 d9 23  |=.......=67782.#|
000000d0  55 64 25 3a 55 5a 25 3d  a3 0d 00 dc 47 cd 3a f5  |Ud%:UZ%=....G.:.|
000000e0  3a f2 55 65 28 a4 55 65  28 30 29 29 3a fd 55 5a  |:.Ue(.Ue(0)):.UZ|
000000f0  25 3a c8 99 26 34 30 30  44 44 3a e3 6a 25 3d 30  |%:..&400DD:.j%=0|
00000100  20 b8 32 3a e7 55 66 25  28 6a 25 29 3c 3e 2d 31  | .2:.Uf%(j%)<>-1|
00000110  c8 99 26 34 30 30 38 32  2c 55 66 25 28 6a 25 29  |..&40082,Uf%(j%)|
00000120  0d 01 22 07 ed 3a e0 0d  01 68 fe dd f2 55 58 3a  |.."..:...h...UX:|
00000130  de 55 67 25 20 26 32 30  30 30 2c 55 68 25 20 26  |.Ug% &2000,Uh% &|
00000140  31 30 30 30 2c 55 69 25  20 36 34 3a de 55 6a 25  |1000,Ui% 64:.Uj%|
00000150  20 26 32 30 30 30 2c 55  6b 25 20 31 35 2c 55 6c  | &2000,Uk% 15,Ul|
00000160  25 20 31 35 2c 55 6d 25  28 33 36 29 3a de 55 6e  |% 15,Um%(36):.Un|
00000170  25 20 26 36 30 30 2c 55  6f 25 20 26 36 30 30 2c  |% &600,Uo% &600,|
00000180  55 70 25 20 26 36 30 30  3a de 55 71 25 20 26 36  |Up% &600:.Uq% &6|
00000190  30 30 2c 55 72 25 20 26  36 30 30 3a de 55 73 25  |00,Ur% &600:.Us%|
000001a0  20 26 34 30 30 3a 55 74  25 3d 55 73 25 3a c8 99  | &400:Ut%=Us%:..|
000001b0  26 34 31 35 30 30 2c 2c  22 3c 44 61 74 61 42 61  |&41500,,"<DataBa|
000001c0  73 65 24 44 69 72 3e 2e  52 65 73 6f 75 72 63 65  |se$Dir>.Resource|
000001d0  73 2e 4d 65 73 73 61 67  65 73 22 20 b8 2c 2c 55  |s.Messages" .,,U|
000001e0  75 25 3a de 55 76 25 20  31 35 3a 55 77 25 3d 93  |u%:.Uv% 15:Uw%=.|
000001f0  3a 55 78 25 3d 93 2d 26  38 30 30 30 3a c8 99 26  |:Ux%=.-&8000:..&|
00000200  34 30 30 45 43 2c 55 78  25 2b 55 75 25 2c 2d 31  |400EC,Ux%+Uu%,-1|
00000210  20 b8 55 79 25 3a e7 55  79 25 3e 3d 55 78 25 2b  | .Uy%:.Uy%>=Ux%+|
00000220  55 75 25 20 8c 0d 01 cc  38 c8 99 26 34 31 35 30  |Uu% ....8..&4150|
00000230  31 2c 55 76 25 2c 22 3c  44 61 74 61 42 61 73 65  |1,Uv%,"<DataBase|
00000240  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
00000250  4d 65 73 73 61 67 65 73  22 2c 55 77 25 0d 01 d6  |Messages",Uw%...|
00000260  24 cc 55 5a 25 3d b9 3a  85 26 32 30 30 2c 22 4e  |$.UZ%=.:.&200,"N|
00000270  6f 74 20 65 6e 6f 75 67  68 20 6d 65 6d 6f 72 79  |ot enough memory|
00000280  22 0d 01 e0 76 cd 3a 55  7a 25 3d 35 30 30 3a 56  |"...v.:Uz%=500:V|
00000290  55 25 3d 31 38 3a de 52  24 28 55 7a 25 2c 56 55  |U%=18:.R$(Uz%,VU|
000002a0  25 29 2c 46 25 28 55 7a  25 29 3a 56 56 25 3d 31  |%),F%(Uz%):VV%=1|
000002b0  38 3a de 46 24 28 56 56  25 2c 39 29 3a 56 57 25  |8:.F$(VV%,9):VW%|
000002c0  3d 31 3a 56 58 25 3d 30  3a 56 59 25 3d a3 3a 3a  |=1:VX%=0:VY%=.::|
000002d0  56 5a 25 3d a3 3a de 41  25 28 31 32 29 3a e3 69  |VZ%=.:.A%(12):.i|
000002e0  25 3d 31 20 b8 31 32 3a  f3 41 25 28 69 25 29 3a  |%=1 .12:.A%(i%):|
000002f0  ed 3a 56 61 25 3d a3 0d  02 08 30 dc 20 30 2c 33  |.:Va%=....0. 0,3|
00000300  31 2c 35 39 2c 39 30 2c  31 32 30 2c 31 35 31 2c  |1,59,90,120,151,|
00000310  31 38 31 2c 32 31 32 2c  32 34 33 2c 32 37 33 2c  |181,212,243,273,|
00000320  33 30 34 2c 33 33 34 0d  02 12 27 de 56 62 25 28  |304,334...'.Vb%(|
00000330  31 32 29 3a e3 69 25 3d  31 20 b8 31 32 3a f3 56  |12):.i%=1 .12:.V|
00000340  62 25 28 69 25 29 3a ed  3a 56 63 25 3d 91 0d 02  |b%(i%):.:Vc%=...|
00000350  1c 29 dc 20 33 31 2c 32  38 2c 33 31 2c 33 30 2c  |.). 31,28,31,30,|
00000360  33 31 2c 33 30 2c 33 31  2c 33 31 2c 33 30 2c 33  |31,30,31,31,30,3|
00000370  31 2c 33 30 2c 33 31 0d  02 26 e5 de 56 64 25 28  |1,30,31..&..Vd%(|
00000380  31 38 29 3a e3 6a 25 3d  31 20 b8 31 38 3a 56 64  |18):.j%=1 .18:Vd|
00000390  25 28 6a 25 29 3d b9 3a  ed 3a 56 65 25 3d 30 3a  |%(j%)=.:.:Ve%=0:|
000003a0  de 56 66 24 28 31 38 29  2c 56 67 24 28 31 38 29  |.Vf$(18),Vg$(18)|
000003b0  3a 56 68 25 3d a3 3a 56  69 25 3d 35 3a 56 6a 25  |:Vh%=.:Vi%=5:Vj%|
000003c0  3d 91 3a de 55 66 25 28  32 29 2c 56 6b 25 20 31  |=.:.Uf%(2),Vk% 1|
000003d0  32 30 30 3a e3 6a 25 3d  30 20 b8 32 3a 55 66 25  |200:.j%=0 .2:Uf%|
000003e0  28 6a 25 29 3d 2d 31 3a  ed 3a 56 6c 25 3d 31 32  |(j%)=-1:.:Vl%=12|
000003f0  3a c8 99 26 34 30 30 38  31 2c 2c 22 48 6f 6d 65  |:..&40081,,"Home|
00000400  72 74 6f 6e 2e 4d 65 64  69 75 6d 22 2c 56 6c 25  |rton.Medium",Vl%|
00000410  2a 31 36 2c 56 6c 25 2a  31 36 20 b8 55 66 25 28  |*16,Vl%*16 .Uf%(|
00000420  30 29 3a c8 99 26 34 30  30 38 31 2c 2c 22 48 6f  |0):..&40081,,"Ho|
00000430  6d 65 72 74 6f 6e 2e 4d  65 64 69 75 6d 2e 4f 62  |merton.Medium.Ob|
00000440  6c 69 71 75 65 22 2c 56  6c 25 2a 31 36 2c 56 6c  |lique",Vl%*16,Vl|
00000450  25 2a 31 36 20 b8 55 66  25 28 31 29 0d 02 58 6d  |%*16 .Uf%(1)..Xm|
00000460  c8 99 26 34 30 30 38 31  2c 2c 22 48 6f 6d 65 72  |..&40081,,"Homer|
00000470  74 6f 6e 2e 42 6f 6c 64  22 2c 56 6c 25 2a 31 36  |ton.Bold",Vl%*16|
00000480  2c 56 6c 25 2a 31 36 20  b8 55 66 25 28 32 29 3a  |,Vl%*16 .Uf%(2):|
00000490  56 6d 25 3d a4 56 6e 28  55 56 24 29 3a 56 6f 25  |Vm%=.Vn(UV$):Vo%|
000004a0  3d a4 56 70 28 37 32 2c  56 71 25 29 3a 56 72 25  |=.Vp(72,Vq%):Vr%|
000004b0  3d a6 28 2d 32 35 36 29  3a 56 73 25 3d 30 3a e7  |=.(-256):Vs%=0:.|
000004c0  56 72 25 3c 31 36 35 20  8c 0d 02 80 2d c8 99 26  |Vr%<165 ....-..&|
000004d0  36 2c 26 38 37 20 b8 2c  2c 56 74 25 3a e7 56 74  |6,&87 .,,Vt%:.Vt|
000004e0  25 3d 32 30 20 84 56 74  25 3d 32 31 20 84 56 74  |%=20 .Vt%=21 .Vt|
000004f0  25 3d 32 37 20 8c 0d 02  94 2d f2 56 75 28 22 3c  |%=27 ....-.Vu("<|
00000500  44 61 74 61 42 61 73 65  24 44 69 72 3e 2e 52 65  |DataBase$Dir>.Re|
00000510  73 6f 75 72 63 65 73 2e  53 70 72 69 74 65 73 32  |sources.Sprites2|
00000520  32 22 29 0d 02 9e 2c cc  f2 56 75 28 22 3c 44 61  |2")...,..Vu("<Da|
00000530  74 61 42 61 73 65 24 44  69 72 3e 2e 52 65 73 6f  |taBase$Dir>.Reso|
00000540  75 72 63 65 73 2e 53 70  72 69 74 65 73 22 29 0d  |urces.Sprites").|
00000550  02 a8 05 cd 0d 02 b2 2e  cc f2 56 75 28 22 3c 44  |..........Vu("<D|
00000560  61 74 61 42 61 73 65 24  44 69 72 3e 2e 52 65 73  |ataBase$Dir>.Res|
00000570  6f 75 72 63 65 73 2e 53  70 72 69 74 65 73 32 32  |ources.Sprites22|
00000580  22 29 0d 02 bc db cd 3a  56 76 24 3d 22 63 61 72  |").....:Vv$="car|
00000590  64 22 3a f2 56 77 28 56  76 24 29 3a 41 25 3d 31  |d":.Vw(Vv$):A%=1|
000005a0  3a 42 25 3d 30 3a f2 56  78 3a f2 56 79 3a f2 56  |:B%=0:.Vx:.Vy:.V|
000005b0  7a 28 57 55 25 2c 37 2c  55 57 24 29 3a 57 56 25  |z(WU%,7,UW$):WV%|
000005c0  3d 31 35 30 3a de 57 57  25 20 57 56 25 3a 57 58  |=150:.WW% WV%:WX|
000005d0  25 3d a3 3a 57 59 25 3d  a3 3a e3 6a 25 3d 30 20  |%=.:WY%=.:.j%=0 |
000005e0  b8 57 56 25 3a 57 57 25  3f 6a 25 3d 26 30 30 3a  |.WV%:WW%?j%=&00:|
000005f0  ed 3a 57 57 25 3f 31 3d  26 46 46 3a 57 57 25 3f  |.:WW%?1=&FF:WW%?|
00000600  34 3d 26 46 46 3a 57 57  25 3f 31 31 3d 26 46 46  |4=&FF:WW%?11=&FF|
00000610  3a 57 57 25 3f 31 32 3d  26 46 46 3a 57 57 25 3f  |:WW%?12=&FF:WW%?|
00000620  31 38 3d 26 46 46 3a 57  57 25 3f 33 32 3d 26 46  |18=&FF:WW%?32=&F|
00000630  46 3a 55 61 24 3d 22 44  42 61 73 65 46 69 6c 65  |F:Ua$="DBaseFile|
00000640  22 3a 57 5a 25 3d 30 3a  57 61 25 3d 30 3a 57 62  |":WZ%=0:Wa%=0:Wb|
00000650  25 3d 31 3a 57 57 25 3f  32 3d 26 46 46 0d 03 02  |%=1:WW%?2=&FF...|
00000660  e6 57 63 24 3d 22 44 42  61 73 65 43 53 56 22 3a  |.Wc$="DBaseCSV":|
00000670  58 25 3d 31 3a 59 25 3d  30 3a 57 64 25 3d 30 3a  |X%=1:Y%=0:Wd%=0:|
00000680  57 65 25 3d a3 3a 57 57  25 3f 32 33 3d 26 46 46  |We%=.:WW%?23=&FF|
00000690  3a 57 66 24 3d 55 61 24  3a 53 25 3d 31 3a 54 25  |:Wf$=Ua$:S%=1:T%|
000006a0  3d 30 3a 57 67 25 3d b9  3a 57 68 25 3d a3 3a 57  |=0:Wg%=.:Wh%=.:W|
000006b0  69 25 3d 26 31 32 44 3a  57 69 24 3d 22 44 61 74  |i%=&12D:Wi$="Dat|
000006c0  61 42 61 73 65 20 22 2b  c3 7e 28 57 69 25 29 3a  |aBase "+.~(Wi%):|
000006d0  57 6a 24 3d 22 22 3a 57  6b 24 3d 22 22 3a 4e 25  |Wj$="":Wk$="":N%|
000006e0  3d 31 3a 55 25 3d 30 3a  57 6c 25 3d 30 3a 57 6d  |=1:U%=0:Wl%=0:Wm|
000006f0  25 3d 31 3a 57 6e 25 3d  31 3a 57 6f 25 3d 31 3a  |%=1:Wn%=1:Wo%=1:|
00000700  57 70 25 3d a3 3a 57 71  25 3d a3 3a 57 72 25 3d  |Wp%=.:Wq%=.:Wr%=|
00000710  a3 3a 50 25 3d 31 3a 57  73 25 3d 31 3a 57 74 25  |.:P%=1:Ws%=1:Wt%|
00000720  3d 31 35 30 3a f2 57 75  3a f2 57 76 3a f2 56 7a  |=150:.Wu:.Wv:.Vz|
00000730  28 57 77 25 2c 36 2c 22  31 22 29 3a 57 78 25 3d  |(Ww%,6,"1"):Wx%=|
00000740  30 3a e1 0d 03 52 e8 dd  f2 56 78 3a c8 99 26 34  |0:...R...Vx:..&4|
00000750  30 30 44 39 2c 2c 22 3c  44 61 74 61 42 61 73 65  |00D9,,"<DataBase|
00000760  24 44 69 72 3e 2e 52 65  73 6f 75 72 63 65 73 2e  |$Dir>.Resources.|
00000770  54 65 6d 70 6c 61 74 65  73 22 3a 57 79 25 3d a4  |Templates":Wy%=.|
00000780  57 7a 28 22 6d 61 69 6e  22 29 3a 57 55 25 3d a4  |Wz("main"):WU%=.|
00000790  57 7a 28 22 69 6e 66 6f  22 29 3a 58 55 25 3d a4  |Wz("info"):XU%=.|
000007a0  57 7a 28 22 66 69 6c 65  69 6e 66 6f 22 29 3a 58  |Wz("fileinfo"):X|
000007b0  56 25 3d a4 57 7a 28 22  73 61 76 65 22 29 3a 58  |V%=.Wz("save"):X|
000007c0  57 25 3d a4 57 7a 28 22  77 66 69 65 6c 64 22 29  |W%=.Wz("wfield")|
000007d0  3a 58 58 25 3d a4 57 7a  28 22 73 65 61 72 63 68  |:XX%=.Wz("search|
000007e0  22 29 3a 58 59 25 3d a4  57 7a 28 22 70 72 69 6e  |"):XY%=.Wz("prin|
000007f0  74 69 6e 66 6f 22 29 3a  58 5a 25 3d a4 57 7a 28  |tinfo"):XZ%=.Wz(|
00000800  22 6c 6f 63 61 6c 22 29  3a 58 61 25 3d a4 57 7a  |"local"):Xa%=.Wz|
00000810  28 22 64 69 61 6c 6f 67  22 29 3a 58 62 25 3d a4  |("dialog"):Xb%=.|
00000820  57 7a 28 22 70 72 69 6e  74 22 29 0d 03 98 df 57  |Wz("print")....W|
00000830  77 25 3d a4 57 7a 28 22  74 6f 6f 6c 62 6f 78 22  |w%=.Wz("toolbox"|
00000840  29 3a 58 63 25 3d a4 57  7a 28 22 6d 66 69 65 6c  |):Xc%=.Wz("mfiel|
00000850  64 22 29 3a 58 64 25 3d  a4 57 7a 28 22 73 6f 72  |d"):Xd%=.Wz("sor|
00000860  74 22 29 3a 58 65 25 3d  a4 57 7a 28 22 63 66 69  |t"):Xe%=.Wz("cfi|
00000870  65 6c 64 22 29 3a 58 66  25 3d a4 57 7a 28 22 73  |eld"):Xf%=.Wz("s|
00000880  61 76 65 74 65 78 74 22  29 3a 58 67 25 3d a4 57  |avetext"):Xg%=.W|
00000890  7a 28 22 64 65 6c 65 74  65 22 29 3a 58 68 25 3d  |z("delete"):Xh%=|
000008a0  a4 57 7a 28 22 77 61 75  74 6f 73 61 76 65 22 29  |.Wz("wautosave")|
000008b0  3a 58 69 25 3d a4 57 7a  28 22 74 6f 6f 6c 66 69  |:Xi%=.Wz("toolfi|
000008c0  65 6c 64 22 29 3a 58 6a  25 3d a4 57 7a 28 22 74  |eld"):Xj%=.Wz("t|
000008d0  6f 6f 6c 73 65 61 72 63  68 22 29 3a 58 6b 25 3d  |oolsearch"):Xk%=|
000008e0  a4 57 7a 28 22 73 68 6f  72 74 22 29 3a 58 6c 25  |.Wz("short"):Xl%|
000008f0  3d a4 57 7a 28 22 6d 65  73 73 61 67 65 22 29 3a  |=.Wz("message"):|
00000900  c8 99 26 34 30 30 44 41  3a e1 0d 03 e8 f9 dd f2  |..&400DA:.......|
00000910  56 79 3a 58 6d 25 3d a4  58 6e 28 22 44 61 74 61  |Vy:Xm%=.Xn("Data|
00000920  42 61 73 65 2c 49 6e 66  6f 2c 48 65 6c 70 24 2c  |Base,Info,Help$,|
00000930  43 72 65 61 74 65 2c 43  6c 65 61 72 24 2c 51 75  |Create,Clear$,Qu|
00000940  69 74 22 29 3a f2 58 6f  28 58 6d 25 2c 31 2c 57  |it"):.Xo(Xm%,1,W|
00000950  55 25 29 3a 58 70 25 3d  a4 58 6e 28 22 44 61 74  |U%):Xp%=.Xn("Dat|
00000960  61 42 61 73 65 2c 53 65  61 72 63 68 20 20 20 46  |aBase,Search   F|
00000970  34 2c 53 6f 72 74 20 20  20 20 20 46 35 2c 44 65  |4,Sort     F5,De|
00000980  6c 65 74 65 20 20 20 46  36 24 2c 50 72 69 6e 74  |lete   F6$,Print|
00000990  20 20 20 20 46 37 24 2c  46 69 6c 65 20 69 6e 66  |    F7$,File inf|
000009a0  6f 2c 53 61 76 65 20 20  20 20 20 46 33 22 29 3a  |o,Save     F3"):|
000009b0  f2 58 6f 28 58 70 25 2c  35 2c 58 55 25 29 3a 58  |.Xo(Xp%,5,XU%):X|
000009c0  71 25 3d a4 58 6e 28 22  53 61 76 65 20 61 73 3a  |q%=.Xn("Save as:|
000009d0  2c 44 61 74 61 2c 43 53  56 24 2c 41 75 74 6f 73  |,Data,CSV$,Autos|
000009e0  61 76 65 22 29 3a f2 58  6f 28 58 70 25 2c 36 2c  |ave"):.Xo(Xp%,6,|
000009f0  58 71 25 29 3a f2 58 6f  28 58 71 25 2c 31 2c 58  |Xq%):.Xo(Xq%,1,X|
00000a00  56 25 29 0d 04 38 e2 f2  58 6f 28 58 71 25 2c 32  |V%)..8..Xo(Xq%,2|
00000a10  2c 58 66 25 29 3a f2 58  6f 28 58 71 25 2c 33 2c  |,Xf%):.Xo(Xq%,3,|
00000a20  58 68 25 29 3a 58 72 25  3d a4 58 6e 28 22 50 61  |Xh%):Xr%=.Xn("Pa|
00000a30  70 65 72 20 74 79 70 65  2c 46 61 6e 66 6f 6c 64  |per type,Fanfold|
00000a40  20 38 30 20 63 6f 6c 20  31 31 22 22 23 2c 46 61  | 80 col 11""#,Fa|
00000a50  6e 66 6f 6c 64 20 38 30  20 63 6f 6c 20 31 32 22  |nfold 80 col 12"|
00000a60  22 2c 46 61 6e 66 6f 6c  64 20 31 33 36 20 63 6f  |",Fanfold 136 co|
00000a70  6c 20 31 31 22 22 2c 46  61 6e 66 6f 6c 64 20 31  |l 11"",Fanfold 1|
00000a80  33 36 20 63 6f 6c 20 31  32 22 22 2c 41 34 20 73  |36 col 12"",A4 s|
00000a90  69 6e 67 6c 65 20 73 68  65 65 74 22 29 3a 58 73  |ingle sheet"):Xs|
00000aa0  25 3d a4 58 6e 28 22 43  6f 6d 70 61 72 61 74 6f  |%=.Xn("Comparato|
00000ab0  72 2c 3d 2c 3c 3e 2c 3e  2c 3e 3d 2c 3c 3d 2c 3c  |r,=,<>,>,>=,<=,<|
00000ac0  2c 43 6f 6e 74 61 69 6e  73 23 2c 4e 6f 74 20 63  |,Contains#,Not c|
00000ad0  6f 6e 74 61 69 6e 73 2c  53 74 61 72 74 73 2c 45  |ontains,Starts,E|
00000ae0  6e 64 73 22 29 0d 04 60  4d 58 74 25 3d a4 58 6e  |nds")..`MXt%=.Xn|
00000af0  28 22 43 6f 6d 70 61 72  61 74 6f 72 2c 3d 2c 3c  |("Comparator,=,<|
00000b00  3e 2c 3e 2c 3e 3d 2c 3c  3d 2c 3c 2c 43 6f 6e 74  |>,>,>=,<=,<,Cont|
00000b10  61 69 6e 73 23 2c 4e 6f  74 20 63 6f 6e 74 61 69  |ains#,Not contai|
00000b20  6e 73 2c 53 74 61 72 74  73 2c 45 6e 64 73 22 29  |ns,Starts,Ends")|
00000b30  3a e1 0d 04 a6 1f dd f2  55 65 28 58 75 25 29 3a  |:.......Ue(Xu%):|
00000b40  ea 61 24 2c 66 25 2c 61  25 3a c8 8e 58 75 25 20  |.a$,f%,a%:..Xu% |
00000b50  ca 0d 04 c4 18 c9 30 3a  e7 57 71 25 3e 30 20 80  |......0:.Wq%>0 .|
00000b60  a6 28 2d 31 31 33 29 20  8c 0d 04 d8 40 c8 99 26  |.(-113) ....@..&|
00000b70  34 30 36 43 31 3a 57 72  25 3d b9 3a f2 58 76 28  |406C1:Wr%=.:.Xv(|
00000b80  58 59 25 29 3a 58 61 24  3d 22 50 72 69 6e 74 20  |XY%):Xa$="Print |
00000b90  61 62 6f 72 74 65 64 2e  20 43 6f 6e 66 69 72 6d  |aborted. Confirm|
00000ba0  3f 22 3a f2 58 61 28 34  29 0d 04 ec 15 cd 3a e7  |?":.Xa(4).....:.|
00000bb0  57 71 25 3e 30 20 80 57  72 25 3d a3 20 8c 0d 05  |Wq%>0 .Wr%=. ...|
00000bc0  00 4a 61 24 3d 22 50 72  69 6e 74 69 6e 67 20 72  |.Ja$="Printing r|
00000bd0  65 63 6f 72 64 20 22 2b  c3 28 50 25 29 2b 22 20  |ecord "+.(P%)+" |
00000be0  6f 66 20 22 2b c3 28 57  61 25 29 3a e7 50 25 3c  |of "+.(Wa%):.P%<|
00000bf0  3e 58 77 25 f2 56 7a 28  58 59 25 2c 31 2c 61 24  |>Xw%.Vz(XY%,1,a$|
00000c00  29 3a 58 77 25 3d 50 25  0d 05 14 15 cd 3a e7 57  |):Xw%=P%.....:.W|
00000c10  72 25 3d b9 20 80 57 58  25 3d b9 20 8c 0d 05 28  |r%=. .WX%=. ...(|
00000c20  0c e7 57 59 25 3d b9 20  8c 0d 05 32 30 61 24 3d  |..WY%=. ...20a$=|
00000c30  22 43 68 61 6e 67 65 20  73 68 65 65 74 20 70 6c  |"Change sheet pl|
00000c40  65 61 73 65 22 3a f2 56  7a 28 58 59 25 2c 31 2c  |ease":.Vz(XY%,1,|
00000c50  61 24 29 3a 57 59 25 3d  a3 0d 05 46 68 cd 3a f2  |a$):WY%=...Fh.:.|
00000c60  58 78 28 58 59 25 2c 32  2c 26 31 31 30 30 30 31  |Xx(XY%,2,&110001|
00000c70  33 39 2c 26 46 46 30 30  46 46 46 46 29 3a f2 58  |39,&FF00FFFF):.X|
00000c80  78 28 58 59 25 2c 33 2c  26 31 31 30 30 30 31 33  |x(XY%,3,&1100013|
00000c90  39 2c 26 46 46 30 30 46  46 46 46 29 3a f2 58 78  |9,&FF00FFFF):.Xx|
00000ca0  28 58 59 25 2c 34 2c 26  31 37 30 30 33 31 33 39  |(XY%,4,&17003139|
00000cb0  2c 26 46 46 30 30 46 46  46 46 29 3a 57 58 25 3d  |,&FF00FFFF):WX%=|
00000cc0  a3 0d 05 6e 1d cd 3a e7  57 70 25 3d a3 20 80 57  |...n..:.Wp%=. .W|
00000cd0  72 25 3d a3 20 80 57 71  25 3e 30 f2 58 62 0d 05  |r%=. .Wq%>0.Xb..|
00000ce0  82 14 e7 a6 28 2d 31 31  33 29 f2 58 76 28 58 56  |....(-113).Xv(XV|
00000cf0  25 29 0d 05 8c 0e e7 a6  28 2d 31 31 36 29 20 8c  |%)......(-116) .|
00000d00  0d 05 96 1f e7 58 79 25  3d a3 f2 58 7a 28 58 56  |.....Xy%=..Xz(XV|
00000d10  25 2c a3 29 3a f2 59 55  28 58 56 25 2c 31 29 0d  |%,.):.YU(XV%,1).|
00000d20  05 a0 0f cd 3a e7 a6 28  2d 32 31 29 20 8c 0d 05  |....:..(-21) ...|
00000d30  b4 1d e7 55 25 f2 58 7a  28 58 58 25 2c a3 29 3a  |...U%.Xz(XX%,.):|
00000d40  f2 59 55 28 58 58 25 2c  31 37 29 0d 05 be 10 cd  |.YU(XX%,17).....|
00000d50  3a e7 a6 28 2d 31 31 37  29 20 8c 0d 05 d2 11 e7  |:..(-117) ......|
00000d60  55 25 f2 58 7a 28 58 64  25 2c a3 29 0d 05 dc 10  |U%.Xz(Xd%,.)....|
00000d70  cd 3a e7 a6 28 2d 31 31  38 29 20 8c 0d 05 f0 15  |.:..(-118) .....|
00000d80  e7 55 25 f2 59 56 3a f2  58 7a 28 58 67 25 2c a3  |.U%.YV:.Xz(Xg%,.|
00000d90  29 0d 05 fa 0f cd 3a e7  a6 28 2d 32 33 29 20 8c  |).....:..(-23) .|
00000da0  0d 06 0e 09 e7 55 25 20  8c 0d 06 18 24 f2 58 76  |.....U% ....$.Xv|
00000db0  28 57 79 25 29 3a f2 58  76 28 57 77 25 29 3a f2  |(Wy%):.Xv(Ww%):.|
00000dc0  59 57 3a f2 58 7a 28 58  62 25 2c a3 29 0d 06 2c  |YW:.Xz(Xb%,.)..,|
00000dd0  05 cd 0d 06 36 0c cd 3a  e7 56 68 25 20 8c 0d 06  |....6..:.Vh% ...|
00000de0  4a 17 e7 91 3e 56 6a 25  2b 28 56 69 25 2a 36 30  |J...>Vj%+(Vi%*60|
00000df0  30 30 29 20 8c 0d 06 54  1a e7 58 79 25 3d a3 f2  |00) ...T..Xy%=..|
00000e00  59 58 28 55 67 25 21 30  29 8b 56 6a 25 3d 91 0d  |YX(Ug%!0).Vj%=..|
00000e10  06 5e 05 cd 0d 06 68 0c  cd 3a e7 56 5a 25 20 8c  |.^....h..:.VZ% .|
00000e20  0d 06 7c 0c e7 56 61 25  3d a3 20 8c 0d 06 86 1d  |..|..Va%=. .....|
00000e30  ef 37 3a f2 58 7a 28 58  6c 25 2c a3 29 3a 56 61  |.7:.Xz(Xl%,.):Va|
00000e40  25 3d b9 3a 56 63 25 3d  91 0d 06 90 12 cc 3a e7  |%=.:Vc%=......:.|
00000e50  91 3e 56 63 25 2b 37 30  30 20 8c 0d 06 a4 18 f2  |.>Vc%+700 ......|
00000e60  58 76 28 58 6c 25 29 3a  56 5a 25 3d a3 3a 56 61  |Xv(Xl%):VZ%=.:Va|
00000e70  25 3d a3 0d 06 ae 05 cd  0d 06 b8 05 cd 0d 06 c2  |%=..............|
00000e80  1b cd 3a e7 a6 28 2d 34  32 29 20 80 a6 28 2d 31  |..:..(-42) ..(-1|
00000e90  29 20 80 57 68 25 20 8c  0d 06 d6 12 e7 4e 25 3d  |) .Wh% ......N%=|
00000ea0  55 25 20 84 55 25 3d 30  20 8c 0d 06 e0 09 e7 55  |U% .U%=0 ......U|
00000eb0  25 20 8c 0d 06 ea 26 58  5a 24 3d 22 54 68 69 73  |% ....&XZ$="This|
00000ec0  20 69 73 20 74 68 65 20  6c 61 73 74 20 72 65 63  | is the last rec|
00000ed0  6f 72 64 2e 22 3a f2 58  5a 0d 06 f4 25 cc 58 5a  |ord.":.XZ...%.XZ|
00000ee0  24 3d 22 4e 6f 20 72 65  63 6f 72 64 73 20 69 6e  |$="No records in|
00000ef0  20 61 72 63 68 69 76 65  2e 22 3a f2 58 5a 0d 06  | archive.":.XZ..|
00000f00  fe 05 cd 0d 07 08 12 cc  4e 25 2b 3d 31 3a f2 59  |........N%+=1:.Y|
00000f10  59 3a f2 59 5a 0d 07 12  05 cd 0d 07 1c 1b cd 3a  |Y:.YZ..........:|
00000f20  e7 a6 28 2d 34 32 29 20  80 a6 28 2d 32 29 20 80  |..(-42) ..(-2) .|
00000f30  57 68 25 20 8c 0d 07 30  12 e7 4e 25 3d 55 25 20  |Wh% ...0..N%=U% |
00000f40  84 55 25 3d 30 20 8c 0d  07 3a 09 e7 55 25 20 8c  |.U%=0 ...:..U% .|
00000f50  0d 07 44 26 58 5a 24 3d  22 54 68 69 73 20 69 73  |..D&XZ$="This is|
00000f60  20 74 68 65 20 6c 61 73  74 20 72 65 63 6f 72 64  | the last record|
00000f70  2e 22 3a f2 58 5a 0d 07  4e 25 cc 58 5a 24 3d 22  |.":.XZ..N%.XZ$="|
00000f80  4e 6f 20 72 65 63 6f 72  64 73 20 69 6e 20 61 72  |No records in ar|
00000f90  63 68 69 76 65 2e 22 3a  f2 58 5a 0d 07 58 05 cd  |chive.":.XZ..X..|
00000fa0  0d 07 62 12 cc 4e 25 3d  55 25 3a f2 59 59 3a f2  |..b..N%=U%:.YY:.|
00000fb0  59 5a 0d 07 6c 05 cd 0d  07 76 1b cd 3a e7 a6 28  |YZ..l....v..:..(|
00000fc0  2d 35 38 29 20 80 a6 28  2d 31 29 20 80 57 68 25  |-58) ..(-1) .Wh%|
00000fd0  20 8c 0d 07 8a 11 e7 4e  25 3d 31 20 84 55 25 3d  | ......N%=1 .U%=|
00000fe0  30 20 8c 0d 07 94 09 e7  55 25 20 8c 0d 07 9e 27  |0 ......U% ....'|
00000ff0  58 5a 24 3d 22 54 68 69  73 20 69 73 20 74 68 65  |XZ$="This is the|
00001000  20 66 69 72 73 74 20 72  65 63 6f 72 64 2e 22 3a  | first record.":|
00001010  f2 58 5a 0d 07 a8 25 cc  58 5a 24 3d 22 4e 6f 20  |.XZ...%.XZ$="No |
00001020  72 65 63 6f 72 64 73 20  69 6e 20 61 72 63 68 69  |records in archi|
00001030  76 65 2e 22 3a f2 58 5a  0d 07 b2 05 cd 0d 07 bc  |ve.":.XZ........|
00001040  12 cc 4e 25 2d 3d 31 3a  f2 59 59 3a f2 59 5a 0d  |..N%-=1:.YY:.YZ.|
00001050  07 c6 05 cd 0d 07 d0 1b  cd 3a e7 a6 28 2d 35 38  |.........:..(-58|
00001060  29 20 80 a6 28 2d 32 29  20 80 57 68 25 20 8c 0d  |) ..(-2) .Wh% ..|
00001070  07 e4 11 e7 4e 25 3d 31  20 84 55 25 3d 30 20 8c  |....N%=1 .U%=0 .|
00001080  0d 07 ee 09 e7 55 25 20  8c 0d 07 f8 27 58 5a 24  |.....U% ....'XZ$|
00001090  3d 22 54 68 69 73 20 69  73 20 74 68 65 20 66 69  |="This is the fi|
000010a0  72 73 74 20 72 65 63 6f  72 64 2e 22 3a f2 58 5a  |rst record.":.XZ|
000010b0  0d 08 02 25 cc 58 5a 24  3d 22 4e 6f 20 72 65 63  |...%.XZ$="No rec|
000010c0  6f 72 64 73 20 69 6e 20  61 72 63 68 69 76 65 2e  |ords in archive.|
000010d0  22 3a f2 58 5a 0d 08 0c  05 cd 0d 08 16 11 cc 4e  |":.XZ..........N|
000010e0  25 3d 31 3a f2 59 59 3a  f2 59 5a 0d 08 20 05 cd  |%=1:.YY:.YZ.. ..|
000010f0  0d 08 2a 05 cd 0d 08 34  11 c9 31 3a f2 59 61 28  |..*....4..1:.Ya(|
00001100  55 67 25 21 30 29 0d 08  3e 13 c9 32 3a f2 58 7a  |Ug%!0)..>..2:.Xz|
00001110  28 55 67 25 21 30 2c b9  29 0d 08 48 24 c9 33 3a  |(Ug%!0,.)..H$.3:|
00001120  f2 58 76 28 55 67 25 21  30 29 3a e7 55 67 25 21  |.Xv(Ug%!0):.Ug%!|
00001130  30 3d 58 57 25 f2 58 76  28 58 69 25 29 0d 08 5c  |0=XW%.Xv(Xi%)..\|
00001140  1c e7 55 67 25 21 30 3d  57 79 25 f2 58 76 28 57  |..Ug%!0=Wy%.Xv(W|
00001150  77 25 29 3a 57 68 25 3d  a3 0d 08 66 16 e7 55 67  |w%):Wh%=...f..Ug|
00001160  25 21 30 3d 58 58 25 f2  58 76 28 58 6a 25 29 0d  |%!0=XX%.Xv(Xj%).|
00001170  08 70 16 e7 55 67 25 21  30 3d 58 64 25 f2 58 76  |.p..Ug%!0=Xd%.Xv|
00001180  28 58 63 25 29 0d 08 7a  16 e7 55 67 25 21 30 3d  |(Xc%)..z..Ug%!0=|
00001190  58 62 25 f2 58 76 28 58  65 25 29 0d 08 84 19 c9  |Xb%.Xv(Xe%).....|
000011a0  34 3a e7 55 67 25 21 30  3d 57 55 25 f2 58 76 28  |4:.Ug%!0=WU%.Xv(|
000011b0  57 55 25 29 0d 08 8e 16  e7 55 67 25 21 30 3d 58  |WU%).....Ug%!0=X|
000011c0  55 25 f2 58 76 28 58 55  25 29 0d 08 98 0f c9 36  |U%.Xv(XU%).....6|
000011d0  3a f2 59 62 28 55 67 25  29 0d 08 a2 0a c9 37 3a  |:.Yb(Ug%).....7:|
000011e0  f2 59 63 0d 08 ac 0f c9  38 3a f2 59 64 28 55 67  |.Yc.....8:.Yd(Ug|
000011f0  25 29 0d 08 b6 0a c9 39  3a f2 59 65 0d 08 c0 13  |%).....9:.Ye....|
00001200  c9 31 37 2c 31 38 3a f2  58 6c 28 55 67 25 29 0d  |.17,18:.Xl(Ug%).|
00001210  08 ca 07 cb 3a e1 0d 08  e8 3d dd f2 59 66 28 59  |....:....=..Yf(Y|
00001220  67 25 29 3a ea 61 24 3a  55 67 25 3d 59 67 25 3a  |g%):.a$:Ug%=Yg%:|
00001230  55 67 25 21 31 32 3d 59  67 25 21 38 3a 55 67 25  |Ug%!12=Yg%!8:Ug%|
00001240  21 31 36 3d 26 35 30 33  3a c8 8e 55 67 25 21 33  |!16=&503:..Ug%!3|
00001250  32 20 ca 0d 09 10 35 c9  2d 32 3a e7 55 25 3d 30  |2 ....5.-2:.U%=0|
00001260  20 61 24 3d a4 59 68 28  22 49 42 31 22 29 8b 61  | a$=.Yh("IB1").a|
00001270  24 2b 3d a4 59 68 28 22  49 42 31 22 29 2b a4 59  |$+=.Yh("IB1")+.Y|
00001280  68 28 22 49 42 32 22 29  0d 09 24 13 c9 58 69 25  |h("IB2")..$..Xi%|
00001290  3a c8 8e 55 67 25 21 33  36 20 ca 0d 09 38 2e c9  |:..Ug%!36 ...8..|
000012a0  31 2c 32 2c 37 2c 38 3a  61 24 3d a4 59 68 28 22  |1,2,7,8:a$=.Yh("|
000012b0  53 45 4d 22 29 2b a4 59  68 28 22 57 46 22 2b c3  |SEM")+.Yh("WF"+.|
000012c0  28 55 67 25 21 33 36 29  29 0d 09 42 1f c9 34 2c  |(Ug%!36))..B..4,|
000012d0  36 3a 61 24 3d a4 59 68  28 22 57 46 22 2b c3 28  |6:a$=.Yh("WF"+.(|
000012e0  55 67 25 21 33 36 29 29  0d 09 4c 05 cb 0d 09 56  |Ug%!36))..L....V|
000012f0  13 c9 58 57 25 3a c8 8e  55 67 25 21 33 36 20 ca  |..XW%:..Ug%!36 .|
00001300  0d 09 6a 46 c9 39 2c 31  31 2c 31 32 2c 31 33 2c  |..jF.9,11,12,13,|
00001310  31 35 2c 31 37 2c 31 39  2c 32 37 2c 33 30 2c 33  |15,17,19,27,30,3|
00001320  32 2c 33 34 3a 61 24 3d  a4 59 68 28 22 53 45 4d  |2,34:a$=.Yh("SEM|
00001330  22 29 2b a4 59 68 28 22  57 46 22 2b c3 28 55 67  |")+.Yh("WF"+.(Ug|
00001340  25 21 33 36 29 29 0d 09  7e 24 c9 32 33 2c 32 35  |%!36))..~$.23,25|
00001350  2c 33 37 3a 61 24 3d a4  59 68 28 22 57 46 22 2b  |,37:a$=.Yh("WF"+|
00001360  c3 28 55 67 25 21 33 36  29 29 0d 09 88 05 cb 0d  |.(Ug%!36))......|
00001370  09 92 13 c9 57 77 25 3a  c8 8e 55 67 25 21 33 36  |....Ww%:..Ug%!36|
00001380  20 ca 0d 09 a6 30 c9 31  2c 32 2c 33 2c 34 2c 39  | ....0.1,2,3,4,9|
00001390  3a 61 24 3d a4 59 68 28  22 53 45 4d 22 29 2b a4  |:a$=.Yh("SEM")+.|
000013a0  59 68 28 22 54 4f 22 2b  c3 28 55 67 25 21 33 36  |Yh("TO"+.(Ug%!36|
000013b0  29 29 0d 09 b0 1f c9 36  2c 38 3a 61 24 3d a4 59  |)).....6,8:a$=.Y|
000013c0  68 28 22 54 4f 22 2b c3  28 55 67 25 21 33 36 29  |h("TO"+.(Ug%!36)|
000013d0  29 0d 09 ba 05 cb 0d 09  c4 13 c9 57 79 25 3a c8  |)..........Wy%:.|
000013e0  8e 55 67 25 21 33 36 20  ca 0d 09 d8 4f c9 32 2c  |.Ug%!36 ....O.2,|
000013f0  34 2c 36 2c 38 2c 31 30  2c 31 32 2c 31 34 2c 31  |4,6,8,10,12,14,1|
00001400  36 2c 31 38 2c 32 30 2c  32 32 2c 32 34 2c 32 36  |6,18,20,22,24,26|
00001410  2c 32 38 2c 33 30 2c 33  32 2c 33 34 2c 33 36 3a  |,28,30,32,34,36:|
00001420  61 24 3d a4 59 68 28 22  53 45 4d 22 29 2b a4 59  |a$=.Yh("SEM")+.Y|
00001430  68 28 22 4d 41 31 22 29  0d 09 ec 12 7f 61 24 3d  |h("MA1").....a$=|
00001440  a4 59 68 28 22 4d 41 30  22 29 0d 09 f6 05 cb 0d  |.Yh("MA0")......|
00001450  0a 00 13 c9 58 6a 25 3a  c8 8e 55 67 25 21 33 36  |....Xj%:..Ug%!36|
00001460  20 ca 0d 0a 14 2a c9 31  2c 32 3a 61 24 3d a4 59  | ....*.1,2:a$=.Y|
00001470  68 28 22 53 45 4d 22 29  2b a4 59 68 28 22 53 45  |h("SEM")+.Yh("SE|
00001480  22 2b c3 28 55 67 25 21  33 36 29 29 0d 0a 1e 1f  |"+.(Ug%!36))....|
00001490  c9 34 2c 36 3a 61 24 3d  a4 59 68 28 22 53 45 22  |.4,6:a$=.Yh("SE"|
000014a0  2b c3 28 55 67 25 21 33  36 29 29 0d 0a 28 05 cb  |+.(Ug%!36))..(..|
000014b0  0d 0a 32 13 c9 58 58 25  3a c8 8e 55 67 25 21 33  |..2..XX%:..Ug%!3|
000014c0  36 20 ca 0d 0a 46 49 c9  38 2c 31 30 2c 31 32 2c  |6 ...FI.8,10,12,|
000014d0  31 34 2c 31 35 2c 31 36  2c 31 37 2c 32 32 2c 32  |14,15,16,17,22,2|
000014e0  34 2c 32 36 2c 32 38 2c  32 39 3a 61 24 3d a4 59  |4,26,28,29:a$=.Y|
000014f0  68 28 22 53 45 4d 22 29  2b a4 59 68 28 22 53 45  |h("SEM")+.Yh("SE|
00001500  22 2b c3 28 55 67 25 21  33 36 29 29 0d 0a 5a 26  |"+.(Ug%!36))..Z&|
00001510  c9 39 2c 31 31 2c 32 33  2c 32 35 3a 61 24 3d a4  |.9,11,23,25:a$=.|
00001520  59 68 28 22 53 45 22 2b  c3 28 55 67 25 21 33 36  |Yh("SE"+.(Ug%!36|
00001530  29 29 0d 0a 64 05 cb 0d  0a 6e 13 c9 58 56 25 3a  |))..d....n..XV%:|
00001540  c8 8e 55 67 25 21 33 36  20 ca 0d 0a 82 21 c9 31  |..Ug%!36 ....!.1|
00001550  2c 32 2c 33 3a 61 24 3d  a4 59 68 28 22 53 41 22  |,2,3:a$=.Yh("SA"|
00001560  2b c3 28 55 67 25 21 33  36 29 29 0d 0a 8c 33 c9  |+.(Ug%!36))...3.|
00001570  36 2c 38 2c 32 30 2c 32  31 2c 32 33 3a 61 24 3d  |6,8,20,21,23:a$=|
00001580  a4 59 68 28 22 53 45 4d  22 29 2b a4 59 68 28 22  |.Yh("SEM")+.Yh("|
00001590  53 41 22 2b c3 28 55 67  25 21 33 36 29 29 0d 0a  |SA"+.(Ug%!36))..|
000015a0  96 05 cb 0d 0a a0 13 c9  58 66 25 3a c8 8e 55 67  |........Xf%:..Ug|
000015b0  25 21 33 36 20 ca 0d 0a  b4 21 c9 31 2c 32 2c 33  |%!36 ....!.1,2,3|
000015c0  3a 61 24 3d a4 59 68 28  22 53 41 22 2b c3 28 55  |:a$=.Yh("SA"+.(U|
000015d0  67 25 21 33 36 29 29 0d  0a be 05 cb 0d 0a c8 16  |g%!36)).........|
000015e0  c9 57 55 25 3a 61 24 3d  a4 59 68 28 22 49 4e 46  |.WU%:a$=.Yh("INF|
000015f0  22 29 0d 0a d2 16 c9 58  55 25 3a 61 24 3d a4 59  |").....XU%:a$=.Y|
00001600  68 28 22 46 49 4c 22 29  0d 0a dc 16 c9 58 61 25  |h("FIL").....Xa%|
00001610  3a 61 24 3d a4 59 68 28  22 44 49 41 22 29 0d 0a  |:a$=.Yh("DIA")..|
00001620  e6 16 c9 58 5a 25 3a 61  24 3d a4 59 68 28 22 4c  |...XZ%:a$=.Yh("L|
00001630  4f 43 22 29 0d 0a f0 13  c9 58 6b 25 3a c8 8e 55  |OC").....Xk%:..U|
00001640  67 25 21 33 36 20 ca 0d  0b 04 28 c9 32 3a 61 24  |g%!36 ....(.2:a$|
00001650  3d a4 59 68 28 22 53 45  4d 22 29 2b a4 59 68 28  |=.Yh("SEM")+.Yh(|
00001660  22 53 48 22 2b c3 28 55  67 25 21 33 36 29 29 0d  |"SH"+.(Ug%!36)).|
00001670  0b 0e 05 cb 0d 0b 18 13  c9 58 59 25 3a c8 8e 55  |.........XY%:..U|
00001680  67 25 21 33 36 20 ca 0d  0b 2c 2e c9 31 2c 32 2c  |g%!36 ...,..1,2,|
00001690  33 2c 34 3a 61 24 3d a4  59 68 28 22 53 45 4d 22  |3,4:a$=.Yh("SEM"|
000016a0  29 2b a4 59 68 28 22 50  49 22 2b c3 28 55 67 25  |)+.Yh("PI"+.(Ug%|
000016b0  21 33 36 29 29 0d 0b 36  05 cb 0d 0b 40 13 c9 58  |!36))..6....@..X|
000016c0  67 25 3a c8 8e 55 67 25  21 33 36 20 ca 0d 0b 54  |g%:..Ug%!36 ...T|
000016d0  32 c9 32 2c 34 2c 36 2c  31 30 2c 31 33 3a 61 24  |2.2,4,6,10,13:a$|
000016e0  3d a4 59 68 28 22 53 45  4d 22 29 2b a4 59 68 28  |=.Yh("SEM")+.Yh(|
000016f0  22 44 45 22 2b c3 28 55  67 25 21 33 36 29 29 0d  |"DE"+.(Ug%!36)).|
00001700  0b 5e 23 c9 38 3a e7 57  6c 25 61 24 3d a4 59 68  |.^#.8:.Wl%a$=.Yh|
00001710  28 22 53 45 4d 22 29 2b  a4 59 68 28 22 44 45 38  |("SEM")+.Yh("DE8|
00001720  22 29 0d 0b 68 33 c9 31  31 2c 31 32 3a e7 57 64  |")..h3.11,12:.Wd|
00001730  25 3d 33 20 61 24 3d a4  59 68 28 22 53 45 4d 22  |%=3 a$=.Yh("SEM"|
00001740  29 2b a4 59 68 28 22 44  45 22 2b c3 28 55 67 25  |)+.Yh("DE"+.(Ug%|
00001750  21 33 36 29 29 0d 0b 7c  05 cb 0d 0b 86 13 c9 58  |!36))..|.......X|
00001760  64 25 3a c8 8e 55 67 25  21 33 36 20 ca 0d 0b 9a  |d%:..Ug%!36 ....|
00001770  30 c9 35 2c 36 2c 31 38  2c 31 39 3a 61 24 3d a4  |0.5,6,18,19:a$=.|
00001780  59 68 28 22 53 45 4d 22  29 2b a4 59 68 28 22 53  |Yh("SEM")+.Yh("S|
00001790  4f 22 2b c3 28 55 67 25  21 33 36 29 29 0d 0b a4  |O"+.(Ug%!36))...|
000017a0  05 cb 0d 0b ae 13 c9 58  62 25 3a c8 8e 55 67 25  |.......Xb%:..Ug%|
000017b0  21 33 36 20 ca 0d 0b c2  34 c9 31 2c 32 2c 33 2c  |!36 ....4.1,2,3,|
000017c0  37 2c 32 33 2c 32 34 3a  61 24 3d a4 59 68 28 22  |7,23,24:a$=.Yh("|
000017d0  53 45 4d 22 29 2b a4 59  68 28 22 50 52 22 2b c3  |SEM")+.Yh("PR"+.|
000017e0  28 55 67 25 21 33 36 29  29 0d 0b cc 23 c9 35 3a  |(Ug%!36))...#.5:|
000017f0  e7 57 6c 25 61 24 3d a4  59 68 28 22 53 45 4d 22  |.Wl%a$=.Yh("SEM"|
00001800  29 2b a4 59 68 28 22 50  52 35 22 29 0d 0b d6 28  |)+.Yh("PR5")...(|
00001810  c9 38 2c 39 2c 31 31 2c  31 35 2c 32 36 3a 61 24  |.8,9,11,15,26:a$|
00001820  3d a4 59 68 28 22 50 52  22 2b c3 28 55 67 25 21  |=.Yh("PR"+.(Ug%!|
00001830  33 36 29 29 0d 0b e0 33  c9 31 39 2c 32 31 3a e7  |36))...3.19,21:.|
00001840  57 5a 25 3d 33 20 61 24  3d a4 59 68 28 22 53 45  |WZ%=3 a$=.Yh("SE|
00001850  4d 22 29 2b a4 59 68 28  22 50 52 22 2b c3 28 55  |M")+.Yh("PR"+.(U|
00001860  67 25 21 33 36 29 29 0d  0b f4 05 cb 0d 0b fe 13  |g%!36)).........|
00001870  c9 58 68 25 3a c8 8e 55  67 25 21 33 36 20 ca 0d  |.Xh%:..Ug%!36 ..|
00001880  0c 12 23 c9 33 3a e7 56  68 25 61 24 3d a4 59 68  |..#.3:.Vh%a$=.Yh|
00001890  28 22 53 45 4d 22 29 2b  a4 59 68 28 22 41 53 33  |("SEM")+.Yh("AS3|
000018a0  22 29 0d 0c 1c 1f c9 39  3a 61 24 3d a4 59 68 28  |").....9:a$=.Yh(|
000018b0  22 53 45 4d 22 29 2b a4  59 68 28 22 41 53 39 22  |"SEM")+.Yh("AS9"|
000018c0  29 0d 0c 26 05 cb 0d 0c  30 13 c9 58 63 25 3a c8  |)..&....0..Xc%:.|
000018d0  8e 55 67 25 21 33 36 20  ca 0d 0c 44 49 c9 30 2c  |.Ug%!36 ...DI.0,|
000018e0  31 2c 32 2c 33 2c 34 2c  35 2c 36 2c 37 2c 38 2c  |1,2,3,4,5,6,7,8,|
000018f0  39 2c 31 30 2c 31 31 2c  31 32 2c 31 33 2c 31 34  |9,10,11,12,13,14|
00001900  2c 31 35 2c 31 36 2c 31  37 3a 61 24 3d a4 59 68  |,15,16,17:a$=.Yh|
00001910  28 22 53 45 4d 22 29 2b  a4 59 68 28 22 4d 46 49  |("SEM")+.Yh("MFI|
00001920  22 29 0d 0c 58 05 cb 0d  0c 62 13 c9 58 65 25 3a  |")..X....b..Xe%:|
00001930  c8 8e 55 67 25 21 33 36  20 ca 0d 0c 76 49 c9 30  |..Ug%!36 ...vI.0|
00001940  2c 31 2c 32 2c 33 2c 34  2c 35 2c 36 2c 37 2c 38  |,1,2,3,4,5,6,7,8|
00001950  2c 39 2c 31 30 2c 31 31  2c 31 32 2c 31 33 2c 31  |,9,10,11,12,13,1|
00001960  34 2c 31 35 2c 31 36 2c  31 37 3a 61 24 3d a4 59  |4,15,16,17:a$=.Y|
00001970  68 28 22 53 45 4d 22 29  2b a4 59 68 28 22 43 46  |h("SEM")+.Yh("CF|
00001980  49 22 29 0d 0c 8a 05 cb  0d 0c 94 56 cb 3a 24 28  |I")........V.:$(|
00001990  55 67 25 2b 32 30 29 3d  61 24 3a 55 67 25 21 30  |Ug%+20)=a$:Ug%!0|
000019a0  3d 28 28 28 32 30 2b a9  28 61 24 29 2b 31 29 81  |=(((20+.(a$)+1).|
000019b0  34 29 2a 34 29 2b 34 3a  24 28 55 67 25 2b 32 31  |4)*4)+4:$(Ug%+21|
000019c0  2b a9 28 61 24 29 29 3d  bd 28 30 29 3a c8 99 26  |+.(a$))=.(0):..&|
000019d0  34 30 30 45 37 2c 31 37  2c 55 67 25 3a e1 0d 0c  |400E7,17,Ug%:...|
000019e0  c6 63 dd a4 59 68 28 61  24 29 3a ea 6a 25 2c 59  |.c..Yh(a$):.j%,Y|
000019f0  69 24 2c 59 6a 25 2c 55  75 25 3a c8 99 26 34 31  |i$,Yj%,Uu%:..&41|
00001a00  35 30 32 2c 55 76 25 2c  61 24 2c 30 20 b8 2c 2c  |502,Uv%,a$,0 .,,|
00001a10  59 6a 25 2c 55 75 25 3a  59 69 24 3d 22 22 3a e3  |Yj%,Uu%:Yi$="":.|
00001a20  6a 25 3d 30 20 b8 55 75  25 2d 31 3a 59 69 24 2b  |j%=0 .Uu%-1:Yi$+|
00001a30  3d bd 28 59 6a 25 3f 6a  25 29 3a ed 3a 3d 59 69  |=.(Yj%?j%):.:=Yi|
00001a40  24 0d 0d 02 64 dd f2 59  62 28 55 67 25 29 3a 59  |$...d..Yb(Ug%):Y|
00001a50  6b 25 3d 55 67 25 21 38  3a 59 67 25 3d 55 67 25  |k%=Ug%!8:Yg%=Ug%|
00001a60  21 31 32 3a 55 6d 25 3d  55 67 25 21 31 36 3a c8  |!12:Um%=Ug%!16:.|
00001a70  99 26 34 30 30 43 46 2c  2c 55 67 25 3a 59 6c 25  |.&400CF,,Ug%:Yl%|
00001a80  3d 21 55 67 25 3a 59 6d  25 3d 55 67 25 21 34 3a  |=!Ug%:Ym%=Ug%!4:|
00001a90  e7 59 6b 25 20 80 32 f2  59 6e 28 59 67 25 2c 55  |.Yk% .2.Yn(Yg%,U|
00001aa0  6d 25 29 3a e1 0d 0d 34  16 e7 59 67 25 3d 2d 32  |m%):...4..Yg%=-2|
00001ab0  20 80 55 6d 25 3d 56 6f  25 20 8c 0d 0d 3e 15 e7  | .Um%=Vo% ...>..|
00001ac0  59 6b 25 3d 59 6f 25 20  80 56 59 25 3d b9 20 8c  |Yk%=Yo% .VY%=. .|
00001ad0  0d 0d 48 0e f2 58 7a 28  57 79 25 2c a3 29 0d 0d  |..H..Xz(Wy%,.)..|
00001ae0  52 07 cd 3a e1 0d 0d 66  26 cd 3a 55 67 25 21 30  |R..:...f&.:Ug%!0|
00001af0  3d 59 67 25 3a c8 99 26  34 30 30 43 43 2c 30 2c  |=Yg%:..&400CC,0,|
00001b00  55 67 25 3a c8 8e 59 67  25 20 ca 0d 0d 84 15 c9  |Ug%:..Yg% ......|
00001b10  58 57 25 3a f2 59 70 28  55 6d 25 2c 59 6b 25 29  |XW%:.Yp(Um%,Yk%)|
00001b20  0d 0d 8e 19 c9 58 69 25  3a e7 59 6b 25 3d 59 6f  |.....Xi%:.Yk%=Yo|
00001b30  25 f2 59 71 28 55 6d 25  29 0d 0d 98 19 c9 58 63  |%.Yq(Um%).....Xc|
00001b40  25 3a e7 59 6b 25 3d 59  6f 25 f2 59 72 28 55 6d  |%:.Yk%=Yo%.Yr(Um|
00001b50  25 29 0d 0d a2 19 c9 58  65 25 3a e7 59 6b 25 3d  |%).....Xe%:.Yk%=|
00001b60  59 6f 25 f2 59 73 28 55  6d 25 29 0d 0d ac 19 c9  |Yo%.Ys(Um%).....|
00001b70  57 77 25 3a e7 59 6b 25  3d 59 6f 25 f2 59 74 28  |Ww%:.Yk%=Yo%.Yt(|
00001b80  55 6d 25 29 0d 0d b6 19  c9 58 58 25 3a e7 59 6b  |Um%).....XX%:.Yk|
00001b90  25 3d 59 6f 25 f2 59 75  28 55 6d 25 29 0d 0d c0  |%=Yo%.Yu(Um%)...|
00001ba0  19 c9 58 6a 25 3a e7 59  6b 25 3d 59 6f 25 f2 59  |..Xj%:.Yk%=Yo%.Y|
00001bb0  76 28 55 6d 25 29 0d 0d  ca 1d c9 58 56 25 3a e7  |v(Um%).....XV%:.|
00001bc0  59 6b 25 3d 59 6f 25 f2  59 77 28 59 67 25 2c 55  |Yk%=Yo%.Yw(Yg%,U|
00001bd0  6d 25 29 0d 0d d4 1d c9  58 66 25 3a e7 59 6b 25  |m%).....Xf%:.Yk%|
00001be0  3d 59 6f 25 f2 59 78 28  59 67 25 2c 55 6d 25 29  |=Yo%.Yx(Yg%,Um%)|
00001bf0  0d 0d de 19 c9 58 5a 25  3a e7 59 6b 25 3d 59 6f  |.....XZ%:.Yk%=Yo|
00001c00  25 f2 59 79 28 55 6d 25  29 0d 0d e8 19 c9 58 61  |%.Yy(Um%).....Xa|
00001c10  25 3a e7 59 6b 25 3d 59  6f 25 f2 59 7a 28 55 6d  |%:.Yk%=Yo%.Yz(Um|
00001c20  25 29 0d 0d f2 19 c9 58  62 25 3a e7 59 6b 25 3d  |%).....Xb%:.Yk%=|
00001c30  59 6f 25 f2 5a 55 28 55  6d 25 29 0d 0d fc 19 c9  |Yo%.ZU(Um%).....|
00001c40  58 59 25 3a e7 59 6b 25  3d 59 6f 25 f2 5a 56 28  |XY%:.Yk%=Yo%.ZV(|
00001c50  55 6d 25 29 0d 0e 06 19  c9 58 64 25 3a e7 59 6b  |Um%).....Xd%:.Yk|
00001c60  25 3d 59 6f 25 f2 5a 57  28 55 6d 25 29 0d 0e 10  |%=Yo%.ZW(Um%)...|
00001c70  19 c9 58 67 25 3a e7 59  6b 25 3d 59 6f 25 f2 5a  |..Xg%:.Yk%=Yo%.Z|
00001c80  58 28 55 6d 25 29 0d 0e  1a 1d c9 58 68 25 3a e7  |X(Um%).....Xh%:.|
00001c90  59 6b 25 3d 59 6f 25 f2  5a 59 28 59 67 25 2c 55  |Yk%=Yo%.ZY(Yg%,U|
00001ca0  6d 25 29 0d 0e 2e 07 cb  3a e1 0d 0e 4c 56 dd f2  |m%).....:...LV..|
00001cb0  59 64 28 55 67 25 29 3a  ea 6f 24 3a 59 67 25 3d  |Yd(Ug%):.o$:Yg%=|
00001cc0  55 67 25 21 30 3a 55 6d  25 3d 55 67 25 21 34 3a  |Ug%!0:Um%=Ug%!4:|
00001cd0  5a 5a 25 3d 55 67 25 21  32 34 3a f2 58 78 28 59  |ZZ%=Ug%!24:.Xx(Y|
00001ce0  67 25 2c 55 6d 25 2c 30  2c 30 29 3a f2 5a 61 28  |g%,Um%,0,0):.Za(|
00001cf0  59 67 25 2c 55 6d 25 29  3a c8 8e 59 67 25 20 ca  |Yg%,Um%):..Yg% .|
00001d00  0d 0e 7e 19 c9 58 57 25  3a f2 5a 62 28 59 67 25  |..~..XW%:.Zb(Yg%|
00001d10  2c 55 6d 25 2c 5a 5a 25  29 0d 0e 88 19 c9 58 6b  |,Um%,ZZ%).....Xk|
00001d20  25 3a f2 5a 63 28 59 67  25 2c 55 6d 25 2c 5a 5a  |%:.Zc(Yg%,Um%,ZZ|
00001d30  25 29 0d 0e 92 11 c9 58  56 25 3a e7 55 6d 25 3d  |%).....XV%:.Um%=|
00001d40  31 20 8c 0d 0e a6 41 f2  5a 61 28 59 67 25 2c 55  |1 ....A.Za(Yg%,U|
00001d50  6d 25 29 3a 24 55 67 25  21 32 38 3d 5a 64 24 3a  |m%):$Ug%!28=Zd$:|
00001d60  f2 58 78 28 59 67 25 2c  55 6d 25 2c 30 2c 30 29  |.Xx(Yg%,Um%,0,0)|
00001d70  3a 55 61 24 3d 5a 64 24  3a e7 56 73 25 3d 30 20  |:Ua$=Zd$:.Vs%=0 |
00001d80  8c f2 57 76 0d 0e c4 13  e7 5a 5a 25 3d 31 33 f2  |..Wv.....ZZ%=13.|
00001d90  58 56 28 55 61 24 29 0d  0e ce 05 e1 0d 0e d8 0e  |XV(Ua$).........|
00001da0  cd 3a e7 55 6d 25 3d 36  20 8c 0d 0e ec 1e f2 56  |.:.Um%=6 ......V|
00001db0  7a 28 59 67 25 2c 55 6d  25 2c 5a 64 24 29 3a e7  |z(Yg%,Um%,Zd$):.|
00001dc0  5a 5a 25 3d 31 33 20 8c  0d 0f 00 2f e7 bb 28 5a  |ZZ%=13 ..../..(Z|
00001dd0  64 24 29 3e 30 20 80 bb  28 5a 64 24 29 3c 3d 55  |d$)>0 ..(Zd$)<=U|
00001de0  25 20 80 28 54 25 3e 30  20 80 bb 28 5a 64 24 29  |% .(T%>0 ..(Zd$)|
00001df0  3c 3d 54 25 29 20 8c 0d  0f 0a 18 53 25 3d bb 28  |<=T%) .....S%=.(|
00001e00  5a 64 24 29 3a f2 59 55  28 59 67 25 2c 38 29 0d  |Zd$):.YU(Yg%,8).|
00001e10  0f 14 1f cc 58 5a 24 3d  22 49 6e 63 6f 72 72 65  |....XZ$="Incorre|
00001e20  63 74 20 76 61 6c 75 65  2e 22 3a f2 58 5a 0d 0f  |ct value.":.XZ..|
00001e30  1e 05 cd 0d 0f 28 05 cd  0d 0f 32 0e cd 3a e7 55  |.....(....2..:.U|
00001e40  6d 25 3d 38 20 8c 0d 0f  46 1e f2 56 7a 28 59 67  |m%=8 ...F..Vz(Yg|
00001e50  25 2c 55 6d 25 2c 5a 64  24 29 3a e7 5a 5a 25 3d  |%,Um%,Zd$):.ZZ%=|
00001e60  31 33 20 8c 0d 0f 5a 27  e7 bb 28 5a 64 24 29 3e  |13 ...Z'..(Zd$)>|
00001e70  30 20 80 bb 28 5a 64 24  29 3c 3d 55 25 20 80 bb  |0 ..(Zd$)<=U% ..|
00001e80  28 5a 64 24 29 3e 3d 53  25 20 8c 0d 0f 64 18 54  |(Zd$)>=S% ...d.T|
00001e90  25 3d bb 28 5a 64 24 29  3a f2 59 55 28 59 67 25  |%=.(Zd$):.YU(Yg%|
00001ea0  2c 31 29 0d 0f 6e 1f cc  58 5a 24 3d 22 49 6e 63  |,1)..n..XZ$="Inc|
00001eb0  6f 72 72 65 63 74 20 76  61 6c 75 65 2e 22 3a f2  |orrect value.":.|
00001ec0  58 5a 0d 0f 78 05 cd 0d  0f 82 05 cd 0d 0f 8c 05  |XZ..x...........|
00001ed0  cd 0d 0f 96 11 c9 58 66  25 3a e7 55 6d 25 3d 31  |......Xf%:.Um%=1|
00001ee0  20 8c 0d 0f aa 59 f2 5a  61 28 59 67 25 2c 55 6d  | ....Y.Za(Yg%,Um|
00001ef0  25 29 3a 24 55 67 25 21  32 38 3d 5a 64 24 3a f2  |%):$Ug%!28=Zd$:.|
00001f00  58 78 28 59 67 25 2c 55  6d 25 2c 30 2c 30 29 3a  |Xx(Yg%,Um%,0,0):|
00001f10  57 63 24 3d 5a 64 24 3a  f2 57 76 3a e7 5a 5a 25  |Wc$=Zd$:.Wv:.ZZ%|
00001f20  3d 31 33 20 8c 5a 65 25  3d 56 73 25 3a 56 73 25  |=13 .Ze%=Vs%:Vs%|
00001f30  3d 33 3a f2 58 56 28 57  63 24 29 0d 0f d2 05 e1  |=3:.XV(Wc$).....|
00001f40  0d 0f dc 05 cd 0d 0f e6  11 c9 58 68 25 3a e7 55  |..........Xh%:.U|
00001f50  6d 25 3d 33 20 8c 0d 0f  fa 28 6f 24 3d c3 28 56  |m%=3 ....(o$=.(V|
00001f60  69 25 29 3a f2 56 7a 28  59 67 25 2c 55 6d 25 2c  |i%):.Vz(Yg%,Um%,|
00001f70  5a 64 24 29 3a e7 5a 5a  25 3d 31 33 20 8c 0d 10  |Zd$):.ZZ%=13 ...|
00001f80  0e 18 e7 5a 64 24 3c 3e  22 22 20 80 bb 28 5a 64  |...Zd$<>"" ..(Zd|
00001f90  24 29 3e 30 20 8c 0d 10  18 1a 56 69 25 3d bb 28  |$)>0 .....Vi%=.(|
00001fa0  5a 64 24 29 3a c8 99 26  34 30 30 44 32 2c 2d 31  |Zd$):..&400D2,-1|
00001fb0  0d 10 22 31 cc 58 5a 24  3d 22 49 6e 76 61 6c 69  |.."1.XZ$="Invali|
00001fc0  64 20 74 69 6d 65 20 73  74 65 70 2e 22 3a f2 58  |d time step.":.X|
00001fd0  5a 3a f2 56 7a 28 59 67  25 2c 55 6d 25 2c 6f 24  |Z:.Vz(Yg%,Um%,o$|
00001fe0  29 0d 10 36 05 cd 0d 10  40 05 cd 0d 10 4a 05 cd  |)..6....@....J..|
00001ff0  0d 10 54 10 c9 58 58 25  3a c8 8e 55 6d 25 20 ca  |..T..XX%:..Um% .|
00002000  0d 10 68 22 c9 31 37 3a  f2 56 7a 28 59 67 25 2c  |..h".17:.Vz(Yg%,|
00002010  55 6d 25 2c 5a 64 24 29  3a e7 5a 5a 25 3d 31 33  |Um%,Zd$):.ZZ%=13|
00002020  20 8c 0d 10 7c 09 e7 55  25 20 8c 0d 10 86 0e e7  | ...|..U% ......|
00002030  5a 64 24 3c 3e 22 22 20  8c 0d 10 90 17 57 6a 24  |Zd$<>"" .....Wj$|
00002040  3d 5a 64 24 3a f2 59 55  28 59 67 25 2c 32 38 29  |=Zd$:.YU(Yg%,28)|
00002050  0d 10 9a 25 cc 58 5a 24  3d 22 49 6e 76 61 6c 69  |...%.XZ$="Invali|
00002060  64 20 73 65 61 72 63 68  20 73 74 72 69 6e 67 2e  |d search string.|
00002070  22 3a f2 58 5a 0d 10 a4  05 cd 0d 10 ae 40 cc 58  |":.XZ........@.X|
00002080  5a 24 3d 22 4e 6f 20 72  65 63 6f 72 64 73 20 74  |Z$="No records t|
00002090  6f 20 73 65 61 72 63 68  2e 22 3a f2 58 5a 3a f2  |o search.":.XZ:.|
000020a0  56 7a 28 59 67 25 2c 55  6d 25 2c 22 22 29 3a c8  |Vz(Yg%,Um%,""):.|
000020b0  99 26 34 30 30 44 32 2c  2d 31 0d 10 c2 05 cd 0d  |.&400D2,-1......|
000020c0  10 cc 05 cd 0d 10 d6 22  c9 32 38 3a f2 56 7a 28  |.......".28:.Vz(|
000020d0  59 67 25 2c 55 6d 25 2c  5a 64 24 29 3a e7 5a 5a  |Yg%,Um%,Zd$):.ZZ|
000020e0  25 3d 31 33 20 8c 0d 10  ea 09 e7 55 25 20 8c 0d  |%=13 ......U% ..|
000020f0  10 f4 1f e7 5a 64 24 3c  3e 22 22 20 84 28 5a 64  |....Zd$<>"" .(Zd|
00002100  24 3d 22 22 20 80 57 6e  25 3d 31 29 20 8c 0d 10  |$="" .Wn%=1) ...|
00002110  fe 1b 57 6b 24 3d 5a 64  24 3a c8 99 26 34 30 30  |..Wk$=Zd$:..&400|
00002120  44 32 2c 2d 31 3a f2 58  58 0d 11 08 25 cc 58 5a  |D2,-1:.XX...%.XZ|
00002130  24 3d 22 49 6e 76 61 6c  69 64 20 73 65 61 72 63  |$="Invalid searc|
00002140  68 20 73 74 72 69 6e 67  2e 22 3a f2 58 5a 0d 11  |h string.":.XZ..|
00002150  12 05 cd 0d 11 1c 40 cc  58 5a 24 3d 22 4e 6f 20  |......@.XZ$="No |
00002160  72 65 63 6f 72 64 73 20  74 6f 20 73 65 61 72 63  |records to searc|
00002170  68 2e 22 3a f2 58 5a 3a  f2 56 7a 28 59 67 25 2c  |h.":.XZ:.Vz(Yg%,|
00002180  55 6d 25 2c 22 22 29 3a  c8 99 26 34 30 30 44 32  |Um%,""):..&400D2|
00002190  2c 2d 31 0d 11 30 05 cd  0d 11 3a 05 cd 0d 11 44  |,-1..0....:....D|
000021a0  05 cb 0d 11 4e 19 c9 57  79 25 3a f2 5a 66 28 59  |....N..Wy%:.Zf(Y|
000021b0  67 25 2c 55 6d 25 2c 5a  5a 25 29 0d 11 58 10 c9  |g%,Um%,ZZ%)..X..|
000021c0  58 62 25 3a c8 8e 55 6d  25 20 ca 0d 11 6c 22 c9  |Xb%:..Um% ...l".|
000021d0  31 39 3a f2 56 7a 28 59  67 25 2c 55 6d 25 2c 5a  |19:.Vz(Yg%,Um%,Z|
000021e0  64 24 29 3a e7 5a 5a 25  3d 31 33 20 8c 0d 11 80  |d$):.ZZ%=13 ....|
000021f0  2f e7 bb 28 5a 64 24 29  3e 30 20 80 bb 28 5a 64  |/..(Zd$)>0 ..(Zd|
00002200  24 29 3c 3d 55 25 20 80  28 41 25 3e 30 20 80 bb  |$)<=U% .(A%>0 ..|
00002210  28 5a 64 24 29 3c 3d 42  25 29 20 8c 0d 11 8a 19  |(Zd$)<=B%) .....|
00002220  41 25 3d bb 28 5a 64 24  29 3a f2 59 55 28 59 67  |A%=.(Zd$):.YU(Yg|
00002230  25 2c 32 31 29 0d 11 94  1f cc 58 5a 24 3d 22 49  |%,21).....XZ$="I|
00002240  6e 63 6f 72 72 65 63 74  20 76 61 6c 75 65 2e 22  |ncorrect value."|
00002250  3a f2 58 5a 0d 11 9e 05  cd 0d 11 a8 05 cd 0d 11  |:.XZ............|
00002260  b2 22 c9 32 31 3a f2 56  7a 28 59 67 25 2c 55 6d  |.".21:.Vz(Yg%,Um|
00002270  25 2c 5a 64 24 29 3a e7  5a 5a 25 3d 31 33 20 8c  |%,Zd$):.ZZ%=13 .|
00002280  0d 11 c6 27 e7 bb 28 5a  64 24 29 3e 30 20 80 bb  |...'..(Zd$)>0 ..|
00002290  28 5a 64 24 29 3c 3d 55  25 20 80 bb 28 5a 64 24  |(Zd$)<=U% ..(Zd$|
000022a0  29 3e 3d 41 25 20 8c 0d  11 d0 32 42 25 3d bb 28  |)>=A% ....2B%=.(|
000022b0  5a 64 24 29 3a c8 99 26  34 30 30 44 32 2c 2d 31  |Zd$):..&400D2,-1|
000022c0  3a f2 56 7a 28 59 67 25  2c 32 36 2c c3 28 28 42  |:.Vz(Yg%,26,.((B|
000022d0  25 2d 41 25 29 2b 31 29  29 0d 11 e4 1f cc 58 5a  |%-A%)+1)).....XZ|
000022e0  24 3d 22 49 6e 63 6f 72  72 65 63 74 20 76 61 6c  |$="Incorrect val|
000022f0  75 65 2e 22 3a f2 58 5a  0d 11 ee 05 cd 0d 11 f8  |ue.":.XZ........|
00002300  05 cd 0d 12 02 05 cb 0d  12 0c 10 c9 58 67 25 3a  |............Xg%:|
00002310  c8 8e 55 6d 25 20 ca 0d  12 20 22 c9 31 31 3a f2  |..Um% ... ".11:.|
00002320  56 7a 28 59 67 25 2c 55  6d 25 2c 5a 64 24 29 3a  |Vz(Yg%,Um%,Zd$):|
00002330  e7 5a 5a 25 3d 31 33 20  8c 0d 12 34 2f e7 bb 28  |.ZZ%=13 ...4/..(|
00002340  5a 64 24 29 3e 30 20 80  bb 28 5a 64 24 29 3c 3d  |Zd$)>0 ..(Zd$)<=|
00002350  55 25 20 80 28 58 25 3e  30 20 80 bb 28 5a 64 24  |U% .(X%>0 ..(Zd$|
00002360  29 3c 3d 59 25 29 20 8c  0d 12 3e 19 58 25 3d bb  |)<=Y%) ...>.X%=.|
00002370  28 5a 64 24 29 3a f2 59  55 28 59 67 25 2c 31 32  |(Zd$):.YU(Yg%,12|
00002380  29 0d 12 48 1f cc 58 5a  24 3d 22 49 6e 63 6f 72  |)..H..XZ$="Incor|
00002390  72 65 63 74 20 76 61 6c  75 65 2e 22 3a f2 58 5a  |rect value.":.XZ|
000023a0  0d 12 52 05 cd 0d 12 5c  05 cd 0d 12 66 22 c9 31  |..R....\....f".1|
000023b0  32 3a f2 56 7a 28 59 67  25 2c 55 6d 25 2c 5a 64  |2:.Vz(Yg%,Um%,Zd|
000023c0  24 29 3a e7 5a 5a 25 3d  31 33 20 8c 0d 12 7a 27  |$):.ZZ%=13 ...z'|
000023d0  e7 bb 28 5a 64 24 29 3e  30 20 80 bb 28 5a 64 24  |..(Zd$)>0 ..(Zd$|
000023e0  29 3c 3d 55 25 20 80 bb  28 5a 64 24 29 3e 3d 58  |)<=U% ..(Zd$)>=X|
000023f0  25 20 8c 0d 12 84 19 59  25 3d bb 28 5a 64 24 29  |% .....Y%=.(Zd$)|
00002400  3a c8 99 26 34 30 30 44  32 2c 2d 31 0d 12 8e 1f  |:..&400D2,-1....|
00002410  cc 58 5a 24 3d 22 49 6e  63 6f 72 72 65 63 74 20  |.XZ$="Incorrect |
00002420  76 61 6c 75 65 2e 22 3a  f2 58 5a 0d 12 98 05 cd  |value.":.XZ.....|
00002430  0d 12 a2 05 cd 0d 12 ac  05 cb 0d 12 b6 07 cb 3a  |...............:|
00002440  e1 0d 12 d4 17 dd f2 59  6e 28 68 25 2c 55 6d 25  |.......Yn(h%,Um%|
00002450  29 3a c8 8e 68 25 20 ca  0d 12 e8 0d c9 2d 32 3a  |):..h% ......-2:|
00002460  e7 55 25 20 8c 0d 12 fc  1d f2 5a 67 28 58 6d 25  |.U% ......Zg(Xm%|
00002470  2c 33 2c b9 29 3a f2 5a  67 28 58 6d 25 2c 34 2c  |,3,.):.Zg(Xm%,4,|
00002480  a3 29 0d 13 10 1e cc f2  5a 67 28 58 6d 25 2c 33  |.)......Zg(Xm%,3|
00002490  2c a3 29 3a f2 5a 67 28  58 6d 25 2c 34 2c b9 29  |,.):.Zg(Xm%,4,.)|
000024a0  0d 13 24 19 cd 3a f2 5a  68 28 58 6d 25 2c 59 6c  |..$..:.Zh(Xm%,Yl|
000024b0  25 2d 39 36 2c 33 36 34  29 0d 13 38 10 c9 57 79  |%-96,364)..8..Wy|
000024c0  25 3a e7 55 25 3d 30 20  8c 0d 13 4c 44 f2 5a 67  |%:.U%=0 ...LD.Zg|
000024d0  28 58 70 25 2c 31 2c b9  29 3a f2 5a 67 28 58 70  |(Xp%,1,.):.Zg(Xp|
000024e0  25 2c 32 2c b9 29 3a f2  5a 67 28 58 70 25 2c 33  |%,2,.):.Zg(Xp%,3|
000024f0  2c b9 29 3a f2 5a 67 28  58 70 25 2c 34 2c b9 29  |,.):.Zg(Xp%,4,.)|
00002500  3a f2 5a 67 28 58 71 25  2c 32 2c b9 29 0d 13 7e  |:.Zg(Xq%,2,.)..~|
00002510  45 cc f2 5a 67 28 58 70  25 2c 31 2c a3 29 3a f2  |E..Zg(Xp%,1,.):.|
00002520  5a 67 28 58 70 25 2c 32  2c a3 29 3a f2 5a 67 28  |Zg(Xp%,2,.):.Zg(|
00002530  58 70 25 2c 33 2c a3 29  3a f2 5a 67 28 58 70 25  |Xp%,3,.):.Zg(Xp%|
00002540  2c 34 2c a3 29 3a f2 5a  67 28 58 71 25 2c 32 2c  |,4,.):.Zg(Xq%,2,|
00002550  a3 29 0d 13 b0 0e cd 3a  e7 56 58 25 3d 30 20 8c  |.).....:.VX%=0 .|
00002560  0d 13 c4 10 f2 5a 67 28  58 70 25 2c 36 2c b9 29  |.....Zg(Xp%,6,.)|
00002570  0d 13 ce 11 cc f2 5a 67  28 58 70 25 2c 36 2c a3  |......Zg(Xp%,6,.|
00002580  29 0d 13 d8 23 cd 3a e7  a7 55 61 24 2c 22 2e 22  |)...#.:..Ua$,"."|
00002590  29 3c 3e 30 20 80 a7 55  61 24 2c 22 3a 22 29 3c  |)<>0 ..Ua$,":")<|
000025a0  3e 30 20 8c 0d 13 ec 10  f2 5a 67 28 58 71 25 2c  |>0 ......Zg(Xq%,|
000025b0  33 2c a3 29 0d 13 f6 11  cc f2 5a 67 28 58 71 25  |3,.)......Zg(Xq%|
000025c0  2c 33 2c b9 29 0d 14 00  19 cd 3a f2 5a 68 28 58  |,3,.).....:.Zh(X|
000025d0  70 25 2c 59 6c 25 2d 39  36 2c 59 6d 25 29 0d 14  |p%,Yl%-96,Ym%)..|
000025e0  14 11 c9 58 62 25 3a e7  55 6d 25 3d 32 20 8c 0d  |...Xb%:.Um%=2 ..|
000025f0  14 28 0f f2 5a 69 3a c8  8e 57 62 25 20 ca 0d 14  |.(..Zi:..Wb% ...|
00002600  3c 13 c9 31 3a f2 5a 6a  28 58 72 25 2c 31 2c b9  |<..1:.Zj(Xr%,1,.|
00002610  29 0d 14 46 13 c9 32 3a  f2 5a 6a 28 58 72 25 2c  |)..F..2:.Zj(Xr%,|
00002620  32 2c b9 29 0d 14 50 13  c9 33 3a f2 5a 6a 28 58  |2,.)..P..3:.Zj(X|
00002630  72 25 2c 33 2c b9 29 0d  14 5a 13 c9 34 3a f2 5a  |r%,3,.)..Z..4:.Z|
00002640  6a 28 58 72 25 2c 34 2c  b9 29 0d 14 64 13 c9 35  |j(Xr%,4,.)..d..5|
00002650  3a f2 5a 6a 28 58 72 25  2c 35 2c b9 29 0d 14 6e  |:.Zj(Xr%,5,.)..n|
00002660  1c cb 3a f2 5a 68 28 58  72 25 2c 59 6c 25 2b 34  |..:.Zh(Xr%,Yl%+4|
00002670  30 2c 59 6d 25 2b 39 36  29 0d 14 82 05 cd 0d 14  |0,Ym%+96).......|
00002680  8c 27 c9 58 58 25 3a e7  55 6d 25 3d 31 35 f2 5a  |.'.XX%:.Um%=15.Z|
00002690  68 28 58 73 25 2c 59 6c  25 2b 34 30 2c 59 6d 25  |h(Xs%,Yl%+40,Ym%|
000026a0  2b 31 31 32 29 0d 14 a0  22 e7 55 6d 25 3d 32 36  |+112)...".Um%=26|
000026b0  f2 5a 68 28 58 74 25 2c  59 6c 25 2b 34 30 2c 59  |.Zh(Xt%,Yl%+40,Y|
000026c0  6d 25 2b 31 31 32 29 0d  14 aa 07 cb 3a e1 0d 14  |m%+112).....:...|
000026d0  c8 27 dd f2 5a 69 3a ea  6a 25 3a e3 6a 25 3d 31  |.'..Zi:.j%:.j%=1|
000026e0  20 b8 35 3a f2 5a 6a 28  58 72 25 2c 6a 25 2c a3  | .5:.Zj(Xr%,j%,.|
000026f0  29 3a ed 3a e1 0d 14 fa  28 dd f2 5a 6b 3a ea 6a  |):.:....(..Zk:.j|
00002700  25 3a e3 6a 25 3d 31 20  b8 31 30 3a f2 5a 6a 28  |%:.j%=1 .10:.Zj(|
00002710  58 73 25 2c 6a 25 2c a3  29 3a ed 3a e1 0d 15 2c  |Xs%,j%,.):.:...,|
00002720  28 dd f2 5a 6c 3a ea 6a  25 3a e3 6a 25 3d 31 20  |(..Zl:.j%:.j%=1 |
00002730  b8 31 30 3a f2 5a 6a 28  58 74 25 2c 6a 25 2c a3  |.10:.Zj(Xt%,j%,.|
00002740  29 3a ed 3a e1 0d 15 5e  2c dd f2 59 65 3a ea 5a  |):.:...^,..Ye:.Z|
00002750  6d 25 2c 5a 6e 24 2c 61  24 3a 5a 6d 25 3d a4 5a  |m%,Zn$,a$:Zm%=.Z|
00002760  6f 3a 5a 6e 24 3d a4 5a  70 3a c8 8e 5a 71 25 20  |o:Zn$=.Zp:..Zq% |
00002770  ca 0d 15 86 19 c9 58 6d  25 3a c8 8e a4 56 55 28  |......Xm%:...VU(|
00002780  5a 6e 24 2c 22 2e 22 29  20 ca 0d 15 9a 2b c9 22  |Zn$,".") ....+."|
00002790  48 65 6c 70 22 3a c8 99  26 34 30 30 44 45 2c 22  |Help":..&400DE,"|
000027a0  3c 44 61 74 61 42 61 73  65 24 44 69 72 3e 2e 21  |<DataBase$Dir>.!|
000027b0  48 65 6c 70 22 0d 15 a4  18 c9 22 43 72 65 61 74  |Help"....."Creat|
000027c0  65 22 3a f2 58 7a 28 58  57 25 2c a3 29 0d 15 ae  |e":.Xz(XW%,.)...|
000027d0  46 c9 22 43 6c 65 61 72  22 3a 58 61 24 3d 22 44  |F."Clear":Xa$="D|
000027e0  65 6c 65 74 65 20 61 6c  6c 20 64 61 74 61 20 6f  |elete all data o|
000027f0  66 20 74 68 65 20 65 64  69 74 65 64 20 66 69 6c  |f the edited fil|
00002800  65 2e 20 43 6f 6e 66 69  72 6d 3f 22 3a f2 58 61  |e. Confirm?":.Xa|
00002810  28 35 29 0d 15 c2 14 c9  22 51 75 69 74 22 3a e7  |(5)....."Quit":.|
00002820  58 79 25 3d a3 20 8c 0d  15 d6 40 58 61 24 3d 22  |Xy%=. ....@Xa$="|
00002830  46 69 6c 65 20 68 61 73  20 62 65 65 6e 20 6d 6f  |File has been mo|
00002840  64 69 66 69 65 64 2e 20  44 6f 20 79 6f 75 20 77  |dified. Do you w|
00002850  61 6e 74 20 74 6f 20 73  61 76 65 20 69 74 3f 22  |ant to save it?"|
00002860  3a f2 58 61 28 31 29 0d  15 ea 0a cc 55 5a 25 3d  |:.Xa(1).....UZ%=|
00002870  b9 0d 15 f4 05 cd 0d 15  fe 05 cb 0d 16 08 19 c9  |................|
00002880  58 70 25 3a c8 8e a4 56  55 28 5a 6e 24 2c 22 2e  |Xp%:...VU(Zn$,".|
00002890  22 29 20 ca 0d 16 1c 29  c9 22 53 65 61 72 63 68  |") ....)."Search|
000028a0  20 20 20 46 34 22 3a f2  58 7a 28 58 58 25 2c a3  |   F4":.Xz(XX%,.|
000028b0  29 3a f2 59 55 28 58 58  25 2c 31 37 29 0d 16 30  |):.YU(XX%,17)..0|
000028c0  1d c9 22 53 6f 72 74 20  20 20 20 20 46 35 22 3a  |.."Sort     F5":|
000028d0  f2 58 7a 28 58 64 25 2c  a3 29 0d 16 3a 21 c9 22  |.Xz(Xd%,.)..:!."|
000028e0  44 65 6c 65 74 65 20 20  20 46 36 22 3a f2 59 56  |Delete   F6":.YV|
000028f0  3a f2 58 7a 28 58 67 25  2c a3 29 0d 16 4e 45 c9  |:.Xz(Xg%,.)..NE.|
00002900  22 50 72 69 6e 74 20 20  20 20 46 37 22 3a f2 58  |"Print    F7":.X|
00002910  76 28 57 79 25 29 3a f2  58 76 28 57 77 25 29 3a  |v(Wy%):.Xv(Ww%):|
00002920  f2 58 76 28 58 58 25 29  3a f2 58 76 28 58 6a 25  |.Xv(XX%):.Xv(Xj%|
00002930  29 3a f2 59 57 3a f2 58  7a 28 58 62 25 2c a3 29  |):.YW:.Xz(Xb%,.)|
00002940  0d 16 76 39 c9 22 53 61  76 65 20 20 20 20 20 46  |..v9."Save     F|
00002950  33 22 3a 55 61 24 3d 57  66 24 3a 5a 65 25 3d 56  |3":Ua$=Wf$:Ze%=V|
00002960  73 25 3a 56 73 25 3d 30  3a f2 58 56 28 55 61 24  |s%:Vs%=0:.XV(Ua$|
00002970  29 3a 56 73 25 3d 5a 65  25 0d 16 94 05 cb 0d 16  |):Vs%=Ze%.......|
00002980  9e 1d c9 58 72 25 3a f2  5a 69 3a c8 8e a4 56 55  |...Xr%:.Zi:...VU|
00002990  28 5a 6e 24 2c 22 2e 22  29 20 ca 0d 16 bc 4e c9  |(Zn$,".") ....N.|
000029a0  22 46 61 6e 66 6f 6c 64  20 38 30 20 63 6f 6c 20  |"Fanfold 80 col |
000029b0  31 31 22 22 22 3a 57 62  25 3d 31 3a 57 74 25 3d  |11""":Wb%=1:Wt%=|
000029c0  31 35 30 3a f2 5a 6a 28  58 72 25 2c 31 2c b9 29  |150:.Zj(Xr%,1,.)|
000029d0  3a 61 24 3d 22 46 61 6e  66 6f 6c 64 20 38 30 20  |:a$="Fanfold 80 |
000029e0  63 6f 6c 20 31 31 22 22  22 0d 16 d0 4e c9 22 46  |col 11"""...N."F|
000029f0  61 6e 66 6f 6c 64 20 38  30 20 63 6f 6c 20 31 32  |anfold 80 col 12|
00002a00  22 22 22 3a 57 62 25 3d  32 3a 57 74 25 3d 31 35  |""":Wb%=2:Wt%=15|
00002a10  30 3a f2 5a 6a 28 58 72  25 2c 32 2c b9 29 3a 61  |0:.Zj(Xr%,2,.):a|
00002a20  24 3d 22 46 61 6e 66 6f  6c 64 20 38 30 20 63 6f  |$="Fanfold 80 co|
00002a30  6c 20 31 32 22 22 22 0d  16 e4 50 c9 22 46 61 6e  |l 12"""...P."Fan|
00002a40  66 6f 6c 64 20 31 33 36  20 63 6f 6c 20 31 31 22  |fold 136 col 11"|
00002a50  22 22 3a 57 62 25 3d 33  3a 57 74 25 3d 32 35 30  |"":Wb%=3:Wt%=250|
00002a60  3a f2 5a 6a 28 58 72 25  2c 33 2c b9 29 3a 61 24  |:.Zj(Xr%,3,.):a$|
00002a70  3d 22 46 61 6e 66 6f 6c  64 20 31 33 36 20 63 6f  |="Fanfold 136 co|
00002a80  6c 20 31 31 22 22 22 0d  16 f8 50 c9 22 46 61 6e  |l 11"""...P."Fan|
00002a90  66 6f 6c 64 20 31 33 36  20 63 6f 6c 20 31 32 22  |fold 136 col 12"|
00002aa0  22 22 3a 57 62 25 3d 34  3a 57 74 25 3d 32 35 30  |"":Wb%=4:Wt%=250|
00002ab0  3a f2 5a 6a 28 58 72 25  2c 34 2c b9 29 3a 61 24  |:.Zj(Xr%,4,.):a$|
00002ac0  3d 22 46 61 6e 66 6f 6c  64 20 31 33 36 20 63 6f  |="Fanfold 136 co|
00002ad0  6c 20 31 32 22 22 22 0d  17 0c 46 c9 22 41 34 20  |l 12"""...F."A4 |
00002ae0  73 69 6e 67 6c 65 20 73  68 65 65 74 22 3a 57 62  |single sheet":Wb|
00002af0  25 3d 35 3a 57 74 25 3d  31 35 30 3a f2 5a 6a 28  |%=5:Wt%=150:.Zj(|
00002b00  58 72 25 2c 35 2c b9 29  3a 61 24 3d 22 41 34 20  |Xr%,5,.):a$="A4 |
00002b10  73 69 6e 67 6c 65 20 73  68 65 65 74 22 0d 17 20  |single sheet".. |
00002b20  3d cb 3a f2 56 7a 28 58  62 25 2c 31 31 2c 61 24  |=.:.Vz(Xb%,11,a$|
00002b30  29 3a f2 56 7a 28 58 62  25 2c 31 35 2c c3 28 57  |):.Vz(Xb%,15,.(W|
00002b40  74 25 29 29 3a f2 56 7a  28 58 62 25 2c 38 2c c3  |t%)):.Vz(Xb%,8,.|
00002b50  28 57 74 25 2d 57 78 25  29 29 0d 17 3e 1d c9 58  |(Wt%-Wx%))..>..X|
00002b60  73 25 3a f2 5a 6b 3a c8  8e a4 56 55 28 5a 6e 24  |s%:.Zk:...VU(Zn$|
00002b70  2c 22 2e 22 29 20 ca 0d  17 5c 2b c9 22 3d 22 3a  |,".") ...\+."=":|
00002b80  5a 72 25 3d 30 3a f2 56  7a 28 58 58 25 2c 31 31  |Zr%=0:.Vz(XX%,11|
00002b90  2c 22 3d 22 29 3a f2 5a  6a 28 58 73 25 2c 31 2c  |,"="):.Zj(Xs%,1,|
00002ba0  b9 29 0d 17 70 2d c9 22  3c 3e 22 3a 5a 72 25 3d  |.)..p-."<>":Zr%=|
00002bb0  39 3a f2 56 7a 28 58 58  25 2c 31 31 2c 22 3c 3e  |9:.Vz(XX%,11,"<>|
00002bc0  22 29 3a f2 5a 6a 28 58  73 25 2c 32 2c b9 29 0d  |"):.Zj(Xs%,2,.).|
00002bd0  17 84 2b c9 22 3e 22 3a  5a 72 25 3d 31 3a f2 56  |..+.">":Zr%=1:.V|
00002be0  7a 28 58 58 25 2c 31 31  2c 22 3e 22 29 3a f2 5a  |z(XX%,11,">"):.Z|
00002bf0  6a 28 58 73 25 2c 33 2c  b9 29 0d 17 98 2d c9 22  |j(Xs%,3,.)...-."|
00002c00  3e 3d 22 3a 5a 72 25 3d  32 3a f2 56 7a 28 58 58  |>=":Zr%=2:.Vz(XX|
00002c10  25 2c 31 31 2c 22 3e 3d  22 29 3a f2 5a 6a 28 58  |%,11,">="):.Zj(X|
00002c20  73 25 2c 34 2c b9 29 0d  17 ac 2d c9 22 3c 3d 22  |s%,4,.)...-."<="|
00002c30  3a 5a 72 25 3d 33 3a f2  56 7a 28 58 58 25 2c 31  |:Zr%=3:.Vz(XX%,1|
00002c40  31 2c 22 3c 3d 22 29 3a  f2 5a 6a 28 58 73 25 2c  |1,"<="):.Zj(Xs%,|
00002c50  35 2c b9 29 0d 17 c0 2b  c9 22 3c 22 3a 5a 72 25  |5,.)...+."<":Zr%|
00002c60  3d 34 3a f2 56 7a 28 58  58 25 2c 31 31 2c 22 3c  |=4:.Vz(XX%,11,"<|
00002c70  22 29 3a f2 5a 6a 28 58  73 25 2c 36 2c b9 29 0d  |"):.Zj(Xs%,6,.).|
00002c80  17 d4 39 c9 22 43 6f 6e  74 61 69 6e 73 22 3a 5a  |..9."Contains":Z|
00002c90  72 25 3d 35 3a f2 56 7a  28 58 58 25 2c 31 31 2c  |r%=5:.Vz(XX%,11,|
00002ca0  22 43 6f 6e 74 61 69 6e  73 22 29 3a f2 5a 6a 28  |"Contains"):.Zj(|
00002cb0  58 73 25 2c 37 2c b9 29  0d 17 e8 41 c9 22 4e 6f  |Xs%,7,.)...A."No|
00002cc0  74 20 63 6f 6e 74 61 69  6e 73 22 3a 5a 72 25 3d  |t contains":Zr%=|
00002cd0  36 3a f2 56 7a 28 58 58  25 2c 31 31 2c 22 4e 6f  |6:.Vz(XX%,11,"No|
00002ce0  74 20 63 6f 6e 74 61 69  6e 73 22 29 3a f2 5a 6a  |t contains"):.Zj|
00002cf0  28 58 73 25 2c 38 2c b9  29 0d 17 fc 35 c9 22 53  |(Xs%,8,.)...5."S|
00002d00  74 61 72 74 73 22 3a 5a  72 25 3d 37 3a f2 56 7a  |tarts":Zr%=7:.Vz|
00002d10  28 58 58 25 2c 31 31 2c  22 53 74 61 72 74 73 22  |(XX%,11,"Starts"|
00002d20  29 3a f2 5a 6a 28 58 73  25 2c 39 2c b9 29 0d 18  |):.Zj(Xs%,9,.)..|
00002d30  10 32 c9 22 45 6e 64 73  22 3a 5a 72 25 3d 38 3a  |.2."Ends":Zr%=8:|
00002d40  f2 56 7a 28 58 58 25 2c  31 31 2c 22 45 6e 64 73  |.Vz(XX%,11,"Ends|
00002d50  22 29 3a f2 5a 6a 28 58  73 25 2c 31 30 2c b9 29  |"):.Zj(Xs%,10,.)|
00002d60  0d 18 24 05 cb 0d 18 2e  1d c9 58 74 25 3a f2 5a  |..$.......Xt%:.Z|
00002d70  6c 3a c8 8e a4 56 55 28  5a 6e 24 2c 22 2e 22 29  |l:...VU(Zn$,".")|
00002d80  20 ca 0d 18 4c 2b c9 22  3d 22 3a 5a 73 25 3d 30  | ...L+."=":Zs%=0|
00002d90  3a f2 56 7a 28 58 58 25  2c 32 35 2c 22 3d 22 29  |:.Vz(XX%,25,"=")|
00002da0  3a f2 5a 6a 28 58 74 25  2c 31 2c b9 29 0d 18 60  |:.Zj(Xt%,1,.)..`|
00002db0  2d c9 22 3c 3e 22 3a 5a  73 25 3d 39 3a f2 56 7a  |-."<>":Zs%=9:.Vz|
00002dc0  28 58 58 25 2c 32 35 2c  22 3c 3e 22 29 3a f2 5a  |(XX%,25,"<>"):.Z|
00002dd0  6a 28 58 74 25 2c 32 2c  b9 29 0d 18 74 2b c9 22  |j(Xt%,2,.)..t+."|
00002de0  3e 22 3a 5a 73 25 3d 31  3a f2 56 7a 28 58 58 25  |>":Zs%=1:.Vz(XX%|
00002df0  2c 32 35 2c 22 3e 22 29  3a f2 5a 6a 28 58 74 25  |,25,">"):.Zj(Xt%|
00002e00  2c 33 2c b9 29 0d 18 88  2d c9 22 3e 3d 22 3a 5a  |,3,.)...-.">=":Z|
00002e10  73 25 3d 32 3a f2 56 7a  28 58 58 25 2c 32 35 2c  |s%=2:.Vz(XX%,25,|
00002e20  22 3e 3d 22 29 3a f2 5a  6a 28 58 74 25 2c 34 2c  |">="):.Zj(Xt%,4,|
00002e30  b9 29 0d 18 9c 2d c9 22  3c 3d 22 3a 5a 73 25 3d  |.)...-."<=":Zs%=|
00002e40  33 3a f2 56 7a 28 58 58  25 2c 32 35 2c 22 3c 3d  |3:.Vz(XX%,25,"<=|
00002e50  22 29 3a f2 5a 6a 28 58  74 25 2c 35 2c b9 29 0d  |"):.Zj(Xt%,5,.).|
00002e60  18 b0 2b c9 22 3c 22 3a  5a 73 25 3d 34 3a f2 56  |..+."<":Zs%=4:.V|
00002e70  7a 28 58 58 25 2c 32 35  2c 22 3c 22 29 3a f2 5a  |z(XX%,25,"<"):.Z|
00002e80  6a 28 58 74 25 2c 36 2c  b9 29 0d 18 c4 39 c9 22  |j(Xt%,6,.)...9."|
00002e90  43 6f 6e 74 61 69 6e 73  22 3a 5a 73 25 3d 35 3a  |Contains":Zs%=5:|
00002ea0  f2 56 7a 28 58 58 25 2c  32 35 2c 22 43 6f 6e 74  |.Vz(XX%,25,"Cont|
00002eb0  61 69 6e 73 22 29 3a f2  5a 6a 28 58 74 25 2c 37  |ains"):.Zj(Xt%,7|
00002ec0  2c b9 29 0d 18 d8 41 c9  22 4e 6f 74 20 63 6f 6e  |,.)...A."Not con|
00002ed0  74 61 69 6e 73 22 3a 5a  73 25 3d 36 3a f2 56 7a  |tains":Zs%=6:.Vz|
00002ee0  28 58 58 25 2c 32 35 2c  22 4e 6f 74 20 63 6f 6e  |(XX%,25,"Not con|
00002ef0  74 61 69 6e 73 22 29 3a  f2 5a 6a 28 58 74 25 2c  |tains"):.Zj(Xt%,|
00002f00  38 2c b9 29 0d 18 ec 35  c9 22 53 74 61 72 74 73  |8,.)...5."Starts|
00002f10  22 3a 5a 73 25 3d 37 3a  f2 56 7a 28 58 58 25 2c  |":Zs%=7:.Vz(XX%,|
00002f20  32 35 2c 22 53 74 61 72  74 73 22 29 3a f2 5a 6a  |25,"Starts"):.Zj|
00002f30  28 58 74 25 2c 39 2c b9  29 0d 19 00 32 c9 22 45  |(Xt%,9,.)...2."E|
00002f40  6e 64 73 22 3a 5a 73 25  3d 38 3a f2 56 7a 28 58  |nds":Zs%=8:.Vz(X|
00002f50  58 25 2c 32 35 2c 22 45  6e 64 73 22 29 3a f2 5a  |X%,25,"Ends"):.Z|
00002f60  6a 28 58 74 25 2c 31 30  2c b9 29 0d 19 14 05 cb  |j(Xt%,10,.).....|
00002f70  0d 19 1e 18 cb 3a e7 28  5a 6d 25 20 80 20 ac 55  |.....:.(Zm% . .U|
00002f80  5a 25 29 20 8c f2 5a 74  0d 19 32 05 e1 0d 19 6e  |Z%) ..Zt..2....n|
00002f90  f9 dd f2 5a 75 3a ea 6a  25 2c 69 25 3a e3 6a 25  |...Zu:.j%,i%:.j%|
00002fa0  3d 31 20 b8 56 58 25 3a  e3 69 25 3d 30 20 b8 39  |=1 .VX%:.i%=0 .9|
00002fb0  3a 46 24 28 6a 25 2c 69  25 29 3d 22 22 3a ed 3a  |:F$(j%,i%)="":.:|
00002fc0  46 24 28 6a 25 2c 30 29  3d 22 30 22 3a 46 24 28  |F$(j%,0)="0":F$(|
00002fd0  6a 25 2c 35 29 3d 22 37  22 3a 46 24 28 6a 25 2c  |j%,5)="7":F$(j%,|
00002fe0  36 29 3d 22 30 22 3a 46  24 28 6a 25 2c 37 29 3d  |6)="0":F$(j%,7)=|
00002ff0  22 31 22 3a 46 24 28 6a  25 2c 38 29 3d 22 37 22  |"1":F$(j%,8)="7"|
00003000  3a ed 3a e3 6a 25 3d 31  20 b8 55 25 3a e3 69 25  |:.:.j%=1 .U%:.i%|
00003010  3d 30 20 b8 56 58 25 3a  52 24 28 6a 25 2c 69 25  |=0 .VX%:R$(j%,i%|
00003020  29 3d 22 22 3a ed 3a ed  3a f2 58 76 28 57 79 25  |)="":.:.:.Xv(Wy%|
00003030  29 3a f2 58 76 28 57 77  25 29 3a e3 6a 25 3d 30  |):.Xv(Ww%):.j%=0|
00003040  20 b8 56 58 25 2a 32 3a  f2 5a 76 28 57 79 25 2c  | .VX%*2:.Zv(Wy%,|
00003050  6a 25 29 3a ed 3a 4e 25  3d 31 3a 55 25 3d 30 3a  |j%):.:N%=1:U%=0:|
00003060  e3 6a 25 3d 30 20 b8 56  58 25 2d 31 3a f2 5a 76  |.j%=0 .VX%-1:.Zv|
00003070  28 58 63 25 2c 6a 25 29  3a ed 3a 57 6f 25 3d 31  |(Xc%,j%):.:Wo%=1|
00003080  3a 56 65 25 3d 30 0d 19  fa f0 57 57 25 3f 31 38  |:Ve%=0....WW%?18|
00003090  3d a4 5a 77 28 58 64 25  2c 31 38 29 3a 57 57 25  |=.Zw(Xd%,18):WW%|
000030a0  3f 31 39 3d a4 5a 78 28  58 64 25 2c 31 39 29 3a  |?19=.Zx(Xd%,19):|
000030b0  e3 6a 25 3d 30 20 b8 56  58 25 2d 31 3a f2 5a 76  |.j%=0 .VX%-1:.Zv|
000030c0  28 58 65 25 2c 6a 25 29  3a ed 3a 41 25 3d 31 3a  |(Xe%,j%):.:A%=1:|
000030d0  42 25 3d 30 3a 57 59 25  3d a3 3a 57 5a 25 3d 30  |B%=0:WY%=.:WZ%=0|
000030e0  3a 57 61 25 3d 30 3a 57  62 25 3d 31 3a 57 74 25  |:Wa%=0:Wb%=1:Wt%|
000030f0  3d 31 35 30 3a 57 78 25  3d 30 3a e3 6a 25 3d 31  |=150:Wx%=0:.j%=1|
00003100  31 20 b8 31 37 88 32 3a  57 57 25 3f 6a 25 3d a4  |1 .17.2:WW%?j%=.|
00003110  5a 78 28 58 57 25 2c 6a  25 29 3a ed 3a 57 57 25  |Zx(XW%,j%):.:WW%|
00003120  3f 31 31 3d a4 5a 77 28  58 57 25 2c 31 31 29 3a  |?11=.Zw(XW%,11):|
00003130  e3 6a 25 3d 33 30 20 b8  33 34 88 32 3a 57 57 25  |.j%=30 .34.2:WW%|
00003140  3f 6a 25 3d a4 5a 78 28  58 57 25 2c 6a 25 29 3a  |?j%=.Zx(XW%,j%):|
00003150  ed 3a 57 57 25 3f 33 32  3d a4 5a 77 28 58 57 25  |.:WW%?32=.Zw(XW%|
00003160  2c 33 32 29 3a 56 57 25  3d 31 3a 56 58 25 3d 30  |,32):VW%=1:VX%=0|
00003170  3a 56 59 25 3d a3 0d 1a  5e f6 f2 58 76 28 58 58  |:VY%=...^..Xv(XX|
00003180  25 29 3a f2 58 76 28 58  6a 25 29 3a f2 5a 6b 3a  |%):.Xv(Xj%):.Zk:|
00003190  f2 5a 6c 3a 57 6c 25 3d  30 3a 57 6d 25 3d 31 3a  |.Zl:Wl%=0:Wm%=1:|
000031a0  57 6e 25 3d 31 3a e3 6a  25 3d 31 20 b8 31 38 3a  |Wn%=1:.j%=1 .18:|
000031b0  56 64 25 28 6a 25 29 3d  b9 3a ed 3a f2 5a 69 3a  |Vd%(j%)=.:.:.Zi:|
000031c0  f2 5a 79 3a 57 57 25 3f  31 32 3d a4 5a 77 28 58  |.Zy:WW%?12=.Zw(X|
000031d0  58 25 2c 31 32 29 3a f2  5a 6a 28 58 72 25 2c 31  |X%,12):.Zj(Xr%,1|
000031e0  2c b9 29 3a f2 5a 6a 28  58 73 25 2c 37 2c b9 29  |,.):.Zj(Xs%,7,.)|
000031f0  3a f2 5a 6a 28 58 74 25  2c 37 2c b9 29 3a 57 6a  |:.Zj(Xt%,7,.):Wj|
00003200  24 3d 22 22 3a f2 56 7a  28 58 58 25 2c 31 37 2c  |$="":.Vz(XX%,17,|
00003210  57 6a 24 29 3a 57 6b 24  3d 22 22 3a f2 56 7a 28  |Wj$):Wk$="":.Vz(|
00003220  58 58 25 2c 32 38 2c 57  6b 24 29 3a 5a 7a 25 3d  |XX%,28,Wk$):Zz%=|
00003230  31 3a f2 56 7a 28 58 58  25 2c 39 2c a4 61 55 28  |1:.Vz(XX%,9,.aU(|
00003240  46 24 28 5a 7a 25 2c 32  29 29 29 3a 61 56 25 3d  |F$(Zz%,2))):aV%=|
00003250  31 3a f2 56 7a 28 58 58  25 2c 32 33 2c a4 61 55  |1:.Vz(XX%,23,.aU|
00003260  28 46 24 28 61 56 25 2c  32 29 29 29 0d 1a c2 e2  |(F$(aV%,2)))....|
00003270  5a 72 25 3d 35 3a f2 56  7a 28 58 58 25 2c 31 31  |Zr%=5:.Vz(XX%,11|
00003280  2c 22 43 6f 6e 74 61 69  6e 73 22 29 3a 5a 73 25  |,"Contains"):Zs%|
00003290  3d 35 3a f2 56 7a 28 58  58 25 2c 32 35 2c 22 43  |=5:.Vz(XX%,25,"C|
000032a0  6f 6e 74 61 69 6e 73 22  29 3a 61 57 25 3d a3 3a  |ontains"):aW%=.:|
000032b0  57 57 25 3f 33 31 3d a4  61 58 28 58 58 25 2c 33  |WW%?31=.aX(XX%,3|
000032c0  31 29 3a f2 57 76 3a f2  56 7a 28 57 77 25 2c 36  |1):.Wv:.Vz(Ww%,6|
000032d0  2c c3 28 56 57 25 29 29  3a f2 56 7a 28 57 77 25  |,.(VW%)):.Vz(Ww%|
000032e0  2c 38 2c c3 28 56 58 25  29 29 3a 56 68 25 3d a3  |,8,.(VX%)):Vh%=.|
000032f0  3a 56 69 25 3d 35 3a 56  6a 25 3d 91 3a f2 56 7a  |:Vi%=5:Vj%=.:.Vz|
00003300  28 58 68 25 2c 33 2c c3  28 56 69 25 29 29 3a 57  |(Xh%,3,.(Vi%)):W|
00003310  57 25 3f 39 3d a4 61 58  28 58 68 25 2c 39 29 3a  |W%?9=.aX(Xh%,9):|
00003320  f2 58 78 28 58 68 25 2c  33 2c 26 30 32 30 30 30  |.Xx(Xh%,3,&02000|
00003330  31 33 44 2c 26 46 46 46  46 46 46 46 46 29 3a 58  |13D,&FFFFFFFF):X|
00003340  25 3d 31 3a 59 25 3d 30  3a 57 64 25 3d 30 0d 1b  |%=1:Y%=0:Wd%=0..|
00003350  3a 3b e3 6a 25 3d 34 20  b8 31 30 88 32 3a 57 57  |:;.j%=4 .10.2:WW|
00003360  25 3f 6a 25 3d a4 5a 78  28 58 67 25 2c 6a 25 29  |%?j%=.Zx(Xg%,j%)|
00003370  3a ed 3a 57 57 25 3f 34  3d a4 5a 77 28 58 67 25  |:.:WW%?4=.Zw(Xg%|
00003380  2c 34 29 3a f2 59 56 3a  e1 0d 1b 8a 15 dd f2 59  |,4):.YV:.......Y|
00003390  76 28 55 6d 25 29 3a c8  8e 55 6d 25 20 ca 0d 1b  |v(Um%):..Um% ...|
000033a0  9e 0d c9 31 3a e7 57 6c  25 20 8c 0d 1b b2 0e e7  |...1:.Wl% ......|
000033b0  57 6d 25 3d 57 6c 25 20  8c 0d 1b bc 2c 58 5a 24  |Wm%=Wl% ....,XZ$|
000033c0  3d 22 54 68 69 73 20 69  73 20 74 68 65 20 6c 61  |="This is the la|
000033d0  73 74 20 66 6f 75 6e 64  20 72 65 63 6f 72 64 2e  |st found record.|
000033e0  22 3a f2 58 5a 0d 1b c6  22 cc 57 6d 25 2b 3d 31  |":.XZ...".Wm%+=1|
000033f0  3a 4e 25 3d 46 25 28 57  6d 25 29 3a f2 59 59 3a  |:N%=F%(Wm%):.YY:|
00003400  f2 61 59 3a f2 59 5a 0d  1b d0 05 cd 0d 1b da 20  |.aY:.YZ........ |
00003410  cc 58 5a 24 3d 22 4e 6f  20 72 65 63 6f 72 64 73  |.XZ$="No records|
00003420  20 66 6f 75 6e 64 2e 22  3a f2 58 5a 0d 1b e4 05  | found.":.XZ....|
00003430  cd 0d 1b ee 0d c9 32 3a  e7 57 6c 25 20 8c 0d 1c  |......2:.Wl% ...|
00003440  02 0c e7 57 6d 25 3d 31  20 8c 0d 1c 0c 2d 58 5a  |...Wm%=1 ....-XZ|
00003450  24 3d 22 54 68 69 73 20  69 73 20 74 68 65 20 66  |$="This is the f|
00003460  69 72 73 74 20 66 6f 75  6e 64 20 72 65 63 6f 72  |irst found recor|
00003470  64 2e 22 3a f2 58 5a 0d  1c 16 22 cc 57 6d 25 2d  |d.":.XZ...".Wm%-|
00003480  3d 31 3a 4e 25 3d 46 25  28 57 6d 25 29 3a f2 59  |=1:N%=F%(Wm%):.Y|
00003490  59 3a f2 61 59 3a f2 59  5a 0d 1c 20 05 cd 0d 1c  |Y:.aY:.YZ.. ....|
000034a0  2a 20 cc 58 5a 24 3d 22  4e 6f 20 72 65 63 6f 72  |* .XZ$="No recor|
000034b0  64 73 20 66 6f 75 6e 64  2e 22 3a f2 58 5a 0d 1c  |ds found.":.XZ..|
000034c0  34 05 cd 0d 1c 3e 07 cb  3a e1 0d 1c 5c 15 dd f2  |4....>..:...\...|
000034d0  59 75 28 55 6d 25 29 3a  c8 8e 55 6d 25 20 ca 0d  |Yu(Um%):..Um% ..|
000034e0  1c 70 15 c9 31 32 3a e7  57 57 25 3f 31 32 3d 26  |.p..12:.WW%?12=&|
000034f0  30 30 20 8c 0d 1c 84 20  f2 5a 79 3a 57 57 25 3f  |00 .... .Zy:WW%?|
00003500  31 32 3d a4 5a 77 28 58  58 25 2c 31 32 29 3a 57  |12=.Zw(XX%,12):W|
00003510  6e 25 3d 31 0d 1c 8e 05  cd 0d 1c 98 15 c9 31 34  |n%=1..........14|
00003520  3a e7 57 57 25 3f 31 34  3d 26 30 30 20 8c 0d 1c  |:.WW%?14=&00 ...|
00003530  ac 20 f2 5a 79 3a 57 57  25 3f 31 34 3d a4 5a 77  |. .Zy:WW%?14=.Zw|
00003540  28 58 58 25 2c 31 34 29  3a 57 6e 25 3d 32 0d 1c  |(XX%,14):Wn%=2..|
00003550  b6 05 cd 0d 1c c0 15 c9  31 36 3a e7 57 57 25 3f  |........16:.WW%?|
00003560  31 36 3d 26 30 30 20 8c  0d 1c d4 20 f2 5a 79 3a  |16=&00 .... .Zy:|
00003570  57 57 25 3f 31 36 3d a4  5a 77 28 58 58 25 2c 31  |WW%?16=.Zw(XX%,1|
00003580  36 29 3a 57 6e 25 3d 33  0d 1c de 05 cd 0d 1c e8  |6):Wn%=3........|
00003590  11 c9 38 3a e7 5a 7a 25  3c 56 58 25 20 8c 0d 1c  |..8:.Zz%<VX% ...|
000035a0  fc 24 5a 7a 25 2b 3d 31  3a f2 56 7a 28 58 58 25  |.$Zz%+=1:.Vz(XX%|
000035b0  2c 39 2c a4 61 55 28 46  24 28 5a 7a 25 2c 32 29  |,9,.aU(F$(Zz%,2)|
000035c0  29 29 0d 1d 06 05 cd 0d  1d 10 10 c9 31 30 3a e7  |))..........10:.|
000035d0  5a 7a 25 3e 31 20 8c 0d  1d 24 24 5a 7a 25 2d 3d  |Zz%>1 ...$$Zz%-=|
000035e0  31 3a f2 56 7a 28 58 58  25 2c 39 2c a4 61 55 28  |1:.Vz(XX%,9,.aU(|
000035f0  46 24 28 5a 7a 25 2c 32  29 29 29 0d 1d 2e 05 cd  |F$(Zz%,2))).....|
00003600  0d 1d 38 12 c9 32 32 3a  e7 61 56 25 3c 56 58 25  |..8..22:.aV%<VX%|
00003610  20 8c 0d 1d 4c 25 61 56  25 2b 3d 31 3a f2 56 7a  | ...L%aV%+=1:.Vz|
00003620  28 58 58 25 2c 32 33 2c  a4 61 55 28 46 24 28 61  |(XX%,23,.aU(F$(a|
00003630  56 25 2c 32 29 29 29 0d  1d 56 05 cd 0d 1d 60 10  |V%,2)))..V....`.|
00003640  c9 32 34 3a e7 61 56 25  3e 31 20 8c 0d 1d 74 25  |.24:.aV%>1 ...t%|
00003650  61 56 25 2d 3d 31 3a f2  56 7a 28 58 58 25 2c 32  |aV%-=1:.Vz(XX%,2|
00003660  33 2c a4 61 55 28 46 24  28 61 56 25 2c 32 29 29  |3,.aU(F$(aV%,2))|
00003670  29 0d 1d 7e 05 cd 0d 1d  88 17 c9 31 35 2c 32 36  |)..~.......15,26|
00003680  3a f2 59 6e 28 58 58 25  2c 55 6d 25 29 0d 1d 92  |:.Yn(XX%,Um%)...|
00003690  15 c9 32 39 3a e7 57 57  25 3f 32 39 3d 26 30 30  |..29:.WW%?29=&00|
000036a0  20 8c 0d 1d a6 1c 57 57  25 3f 32 39 3d a4 61 5a  | .....WW%?29=.aZ|
000036b0  28 58 58 25 2c 32 39 29  3a 61 57 25 3d b9 0d 1d  |(XX%,29):aW%=...|
000036c0  b0 1d cc 57 57 25 3f 32  39 3d a4 61 58 28 58 58  |...WW%?29=.aX(XX|
000036d0  25 2c 32 39 29 3a 61 57  25 3d a3 0d 1d ba 05 cd  |%,29):aW%=......|
000036e0  0d 1d c4 07 cb 3a e1 0d  1d e2 43 dd f2 5a 79 3a  |.....:....C..Zy:|
000036f0  57 57 25 3f 31 32 3d a4  5a 78 28 58 58 25 2c 31  |WW%?12=.Zx(XX%,1|
00003700  32 29 3a 57 57 25 3f 31  34 3d a4 5a 78 28 58 58  |2):WW%?14=.Zx(XX|
00003710  25 2c 31 34 29 3a 57 57  25 3f 31 36 3d a4 5a 78  |%,14):WW%?16=.Zx|
00003720  28 58 58 25 2c 31 36 29  3a e1 0d 1e 14 2e dd f2  |(XX%,16):.......|
00003730  61 59 3a f2 56 7a 28 58  6a 25 2c 34 2c c3 28 57  |aY:.Vz(Xj%,4,.(W|
00003740  6d 25 29 29 3a f2 56 7a  28 58 6a 25 2c 36 2c c3  |m%)):.Vz(Xj%,6,.|
00003750  28 57 6c 25 29 29 3a e1  0d 1e 46 3a dd f2 58 58  |(Wl%)):...F:..XX|
00003760  3a ea 61 25 2c 62 25 2c  70 25 2c 61 24 2c 62 24  |:.a%,b%,p%,a$,b$|
00003770  2c 63 24 2c 61 61 25 2c  61 62 25 3a c8 99 26 34  |,c$,aa%,ab%:..&4|
00003780  30 36 43 30 3a 57 6c 25  3d 30 3a c8 8e 57 6e 25  |06C0:Wl%=0:..Wn%|
00003790  20 ca 0d 1e 78 40 c9 31  3a e3 61 25 3d 31 20 b8  | ...x@.1:.a%=1 .|
000037a0  55 25 3a 70 25 3d 28 61  25 2f 55 25 29 2a 31 30  |U%:p%=(a%/U%)*10|
000037b0  30 3a c8 99 26 34 30 36  43 34 2c 70 25 3a 61 61  |0:..&406C4,p%:aa|
000037c0  25 3d a3 3a 61 62 25 3d  a3 3a e7 61 57 25 3d a3  |%=.:ab%=.:.aW%=.|
000037d0  20 8c 0d 1e aa 22 61 24  3d a4 61 63 28 52 24 28  | ...."a$=.ac(R$(|
000037e0  61 25 2c 5a 7a 25 29 29  3a 62 24 3d a4 61 63 28  |a%,Zz%)):b$=.ac(|
000037f0  57 6a 24 29 0d 1e b4 19  cc 61 24 3d 52 24 28 61  |Wj$).....a$=R$(a|
00003800  25 2c 5a 7a 25 29 3a 62  24 3d 57 6a 24 0d 1e be  |%,Zz%):b$=Wj$...|
00003810  0d cd 3a c8 8e 5a 72 25  20 ca 0d 1e d2 26 c9 30  |..:..Zr% ....&.0|
00003820  3a e7 46 24 28 5a 7a 25  2c 30 29 3d 22 30 22 20  |:.F$(Zz%,0)="0" |
00003830  84 46 24 28 5a 7a 25 2c  30 29 3d 22 33 22 20 8c  |.F$(Zz%,0)="3" .|
00003840  0d 1e e6 0f e7 61 24 3d  62 24 61 61 25 3d b9 0d  |.....a$=b$aa%=..|
00003850  1e f0 16 cc e7 bb 28 61  24 29 3d bb 28 62 24 29  |......(a$)=.(b$)|
00003860  61 61 25 3d b9 0d 1e fa  05 cd 0d 1f 04 26 c9 31  |aa%=.........&.1|
00003870  3a e7 46 24 28 5a 7a 25  2c 30 29 3d 22 30 22 20  |:.F$(Zz%,0)="0" |
00003880  84 46 24 28 5a 7a 25 2c  30 29 3d 22 33 22 20 8c  |.F$(Zz%,0)="3" .|
00003890  0d 1f 18 0f e7 61 24 3e  62 24 61 61 25 3d b9 0d  |.....a$>b$aa%=..|
000038a0  1f 22 16 cc e7 bb 28 61  24 29 3e bb 28 62 24 29  |."....(a$)>.(b$)|
000038b0  61 61 25 3d b9 0d 1f 2c  05 cd 0d 1f 36 26 c9 32  |aa%=...,....6&.2|
000038c0  3a e7 46 24 28 5a 7a 25  2c 30 29 3d 22 30 22 20  |:.F$(Zz%,0)="0" |
000038d0  84 46 24 28 5a 7a 25 2c  30 29 3d 22 33 22 20 8c  |.F$(Zz%,0)="3" .|
000038e0  0d 1f 4a 10 e7 61 24 3e  3d 62 24 61 61 25 3d b9  |..J..a$>=b$aa%=.|
000038f0  0d 1f 54 17 cc e7 bb 28  61 24 29 3e 3d bb 28 62  |..T....(a$)>=.(b|
00003900  24 29 61 61 25 3d b9 0d  1f 5e 05 cd 0d 1f 68 26  |$)aa%=...^....h&|
00003910  c9 33 3a e7 46 24 28 5a  7a 25 2c 30 29 3d 22 30  |.3:.F$(Zz%,0)="0|
00003920  22 20 84 46 24 28 5a 7a  25 2c 30 29 3d 22 33 22  |" .F$(Zz%,0)="3"|
00003930  20 8c 0d 1f 7c 10 e7 61  24 3c 3d 62 24 61 61 25  | ...|..a$<=b$aa%|
00003940  3d b9 0d 1f 86 17 cc e7  bb 28 61 24 29 3c 3d bb  |=........(a$)<=.|
00003950  28 62 24 29 61 61 25 3d  b9 0d 1f 90 05 cd 0d 1f  |(b$)aa%=........|
00003960  9a 26 c9 34 3a e7 46 24  28 5a 7a 25 2c 30 29 3d  |.&.4:.F$(Zz%,0)=|
00003970  22 30 22 20 84 46 24 28  5a 7a 25 2c 30 29 3d 22  |"0" .F$(Zz%,0)="|
00003980  33 22 20 8c 0d 1f ae 0f  e7 61 24 3c 62 24 61 61  |3" ......a$<b$aa|
00003990  25 3d b9 0d 1f b8 16 cc  e7 bb 28 61 24 29 3c bb  |%=........(a$)<.|
000039a0  28 62 24 29 61 61 25 3d  b9 0d 1f c2 05 cd 0d 1f  |(b$)aa%=........|
000039b0  cc 18 c9 35 3a e7 a7 61  24 2c 62 24 29 3c 3e 30  |...5:..a$,b$)<>0|
000039c0  20 61 61 25 3d b9 0d 1f  d6 17 c9 36 3a e7 a7 61  | aa%=......6:..a|
000039d0  24 2c 62 24 29 3d 30 20  61 61 25 3d b9 0d 1f e0  |$,b$)=0 aa%=....|
000039e0  1a c9 37 3a e7 c0 61 24  2c a9 28 62 24 29 29 3d  |..7:..a$,.(b$))=|
000039f0  62 24 61 61 25 3d b9 0d  1f ea 1a c9 38 3a e7 c2  |b$aa%=......8:..|
00003a00  61 24 2c a9 28 62 24 29  29 3d 62 24 61 61 25 3d  |a$,.(b$))=b$aa%=|
00003a10  b9 0d 1f f4 26 c9 39 3a  e7 46 24 28 5a 7a 25 2c  |....&.9:.F$(Zz%,|
00003a20  30 29 3d 22 30 22 20 84  46 24 28 5a 7a 25 2c 30  |0)="0" .F$(Zz%,0|
00003a30  29 3d 22 33 22 20 8c 0d  20 08 10 e7 61 24 3c 3e  |)="3" .. ...a$<>|
00003a40  62 24 61 61 25 3d b9 0d  20 12 17 cc e7 bb 28 61  |b$aa%=.. .....(a|
00003a50  24 29 3c 3e bb 28 62 24  29 61 61 25 3d b9 0d 20  |$)<>.(b$)aa%=.. |
00003a60  1c 05 cd 0d 20 26 10 cb  3a e7 57 6b 24 3c 3e 22  |.... &..:.Wk$<>"|
00003a70  22 20 8c 0d 20 3a 0c e7  61 57 25 3d a3 20 8c 0d  |" .. :..aW%=. ..|
00003a80  20 44 22 61 24 3d a4 61  63 28 52 24 28 61 25 2c  | D"a$=.ac(R$(a%,|
00003a90  61 56 25 29 29 3a 63 24  3d a4 61 63 28 57 6b 24  |aV%)):c$=.ac(Wk$|
00003aa0  29 0d 20 4e 19 cc 61 24  3d 52 24 28 61 25 2c 61  |). N..a$=R$(a%,a|
00003ab0  56 25 29 3a 63 24 3d 57  6b 24 0d 20 58 0d cd 3a  |V%):c$=Wk$. X..:|
00003ac0  c8 8e 5a 73 25 20 ca 0d  20 6c 26 c9 30 3a e7 46  |..Zs% .. l&.0:.F|
00003ad0  24 28 61 56 25 2c 30 29  3d 22 30 22 20 84 46 24  |$(aV%,0)="0" .F$|
00003ae0  28 61 56 25 2c 30 29 3d  22 33 22 20 8c 0d 20 80  |(aV%,0)="3" .. .|
00003af0  0f e7 61 24 3d 63 24 61  62 25 3d b9 0d 20 8a 16  |..a$=c$ab%=.. ..|
00003b00  cc e7 bb 28 61 24 29 3d  bb 28 63 24 29 61 62 25  |...(a$)=.(c$)ab%|
00003b10  3d b9 0d 20 94 05 cd 0d  20 9e 26 c9 31 3a e7 46  |=.. .... .&.1:.F|
00003b20  24 28 61 56 25 2c 30 29  3d 22 30 22 20 84 46 24  |$(aV%,0)="0" .F$|
00003b30  28 61 56 25 2c 30 29 3d  22 33 22 20 8c 0d 20 b2  |(aV%,0)="3" .. .|
00003b40  0f e7 61 24 3e 63 24 61  62 25 3d b9 0d 20 bc 16  |..a$>c$ab%=.. ..|
00003b50  cc e7 bb 28 61 24 29 3e  bb 28 63 24 29 61 62 25  |...(a$)>.(c$)ab%|
00003b60  3d b9 0d 20 c6 05 cd 0d  20 d0 26 c9 32 3a e7 46  |=.. .... .&.2:.F|
00003b70  24 28 61 56 25 2c 30 29  3d 22 30 22 20 84 46 24  |$(aV%,0)="0" .F$|
00003b80  28 61 56 25 2c 30 29 3d  22 33 22 20 8c 0d 20 e4  |(aV%,0)="3" .. .|
00003b90  10 e7 61 24 3e 3d 63 24  61 62 25 3d b9 0d 20 ee  |..a$>=c$ab%=.. .|
00003ba0  17 cc e7 bb 28 61 24 29  3e 3d bb 28 63 24 29 61  |....(a$)>=.(c$)a|
00003bb0  62 25 3d b9 0d 20 f8 05  cd 0d 21 02 26 c9 33 3a  |b%=.. ....!.&.3:|
00003bc0  e7 46 24 28 61 56 25 2c  30 29 3d 22 30 22 20 84  |.F$(aV%,0)="0" .|
00003bd0  46 24 28 61 56 25 2c 30  29 3d 22 33 22 20 8c 0d  |F$(aV%,0)="3" ..|
00003be0  21 16 10 e7 61 24 3c 3d  63 24 61 62 25 3d b9 0d  |!...a$<=c$ab%=..|
00003bf0  21 20 17 cc e7 bb 28 61  24 29 3c 3d bb 28 63 24  |! ....(a$)<=.(c$|
00003c00  29 61 62 25 3d b9 0d 21  2a 05 cd 0d 21 34 26 c9  |)ab%=..!*...!4&.|
00003c10  34 3a e7 46 24 28 61 56  25 2c 30 29 3d 22 30 22  |4:.F$(aV%,0)="0"|
00003c20  20 84 46 24 28 61 56 25  2c 30 29 3d 22 33 22 20  | .F$(aV%,0)="3" |
00003c30  8c 0d 21 48 0f e7 61 24  3c 63 24 61 62 25 3d b9  |..!H..a$<c$ab%=.|
00003c40  0d 21 52 16 cc e7 bb 28  61 24 29 3c bb 28 63 24  |.!R....(a$)<.(c$|
00003c50  29 61 62 25 3d b9 0d 21  5c 05 cd 0d 21 66 18 c9  |)ab%=..!\...!f..|
00003c60  35 3a e7 a7 61 24 2c 63  24 29 3c 3e 30 20 61 62  |5:..a$,c$)<>0 ab|
00003c70  25 3d b9 0d 21 70 17 c9  36 3a e7 a7 61 24 2c 63  |%=..!p..6:..a$,c|
00003c80  24 29 3d 30 20 61 62 25  3d b9 0d 21 7a 1a c9 37  |$)=0 ab%=..!z..7|
00003c90  3a e7 c0 61 24 2c a9 28  63 24 29 29 3d 63 24 61  |:..a$,.(c$))=c$a|
00003ca0  62 25 3d b9 0d 21 84 1a  c9 38 3a e7 c2 61 24 2c  |b%=..!...8:..a$,|
00003cb0  a9 28 63 24 29 29 3d 63  24 61 62 25 3d b9 0d 21  |.(c$))=c$ab%=..!|
00003cc0  8e 26 c9 39 3a e7 46 24  28 61 56 25 2c 30 29 3d  |.&.9:.F$(aV%,0)=|
00003cd0  22 30 22 20 84 46 24 28  61 56 25 2c 30 29 3d 22  |"0" .F$(aV%,0)="|
00003ce0  33 22 20 8c 0d 21 a2 10  e7 61 24 3c 3e 63 24 61  |3" ..!...a$<>c$a|
00003cf0  62 25 3d b9 0d 21 ac 17  cc e7 bb 28 61 24 29 3c  |b%=..!.....(a$)<|
00003d00  3e bb 28 63 24 29 61 62  25 3d b9 0d 21 b6 05 cd  |>.(c$)ab%=..!...|
00003d10  0d 21 c0 05 cb 0d 21 ca  10 cd 3a e7 57 6b 24 3c  |.!....!...:.Wk$<|
00003d20  3e 22 22 20 8c 0d 21 de  1e e7 61 61 25 20 84 61  |>"" ..!...aa% .a|
00003d30  62 25 57 6c 25 2b 3d 31  3a 46 25 28 57 6c 25 29  |b%Wl%+=1:F%(Wl%)|
00003d40  3d 61 25 0d 21 e8 1a cc  e7 61 61 25 57 6c 25 2b  |=a%.!....aa%Wl%+|
00003d50  3d 31 3a 46 25 28 57 6c  25 29 3d 61 25 0d 21 f2  |=1:F%(Wl%)=a%.!.|
00003d60  07 cd 3a ed 0d 22 10 40  c9 32 3a e3 61 25 3d 31  |..:..".@.2:.a%=1|
00003d70  20 b8 55 25 3a 70 25 3d  28 61 25 2f 55 25 29 2a  | .U%:p%=(a%/U%)*|
00003d80  31 30 30 3a c8 99 26 34  30 36 43 34 2c 70 25 3a  |100:..&406C4,p%:|
00003d90  61 61 25 3d a3 3a 61 62  25 3d a3 3a e7 61 57 25  |aa%=.:ab%=.:.aW%|
00003da0  3d a3 20 8c 0d 22 42 22  61 24 3d a4 61 63 28 52  |=. .."B"a$=.ac(R|
00003db0  24 28 61 25 2c 5a 7a 25  29 29 3a 62 24 3d a4 61  |$(a%,Zz%)):b$=.a|
00003dc0  63 28 57 6a 24 29 0d 22  4c 19 cc 61 24 3d 52 24  |c(Wj$)."L..a$=R$|
00003dd0  28 61 25 2c 5a 7a 25 29  3a 62 24 3d 57 6a 24 0d  |(a%,Zz%):b$=Wj$.|
00003de0  22 56 0d cd 3a c8 8e 5a  72 25 20 ca 0d 22 6a 26  |"V..:..Zr% .."j&|
00003df0  c9 30 3a e7 46 24 28 5a  7a 25 2c 30 29 3d 22 30  |.0:.F$(Zz%,0)="0|
00003e00  22 20 84 46 24 28 5a 7a  25 2c 30 29 3d 22 33 22  |" .F$(Zz%,0)="3"|
00003e10  20 8c 0d 22 7e 0f e7 61  24 3d 62 24 61 61 25 3d  | .."~..a$=b$aa%=|
00003e20  b9 0d 22 88 16 cc e7 bb  28 61 24 29 3d bb 28 62  |..".....(a$)=.(b|
00003e30  24 29 61 61 25 3d b9 0d  22 92 05 cd 0d 22 9c 26  |$)aa%=.."....".&|
00003e40  c9 31 3a e7 46 24 28 5a  7a 25 2c 30 29 3d 22 30  |.1:.F$(Zz%,0)="0|
00003e50  22 20 84 46 24 28 5a 7a  25 2c 30 29 3d 22 33 22  |" .F$(Zz%,0)="3"|
00003e60  20 8c 0d 22 b0 0f e7 61  24 3e 62 24 61 61 25 3d  | .."...a$>b$aa%=|
00003e70  b9 0d 22 ba 16 cc e7 bb  28 61 24 29 3e bb 28 62  |..".....(a$)>.(b|
00003e80  24 29 61 61 25 3d b9 0d  22 c4 05 cd 0d 22 ce 26  |$)aa%=.."....".&|
00003e90  c9 32 3a e7 46 24 28 5a  7a 25 2c 30 29 3d 22 30  |.2:.F$(Zz%,0)="0|
00003ea0  22 20 84 46 24 28 5a 7a  25 2c 30 29 3d 22 33 22  |" .F$(Zz%,0)="3"|
00003eb0  20 8c 0d 22 e2 10 e7 61  24 3e 3d 62 24 61 61 25  | .."...a$>=b$aa%|
00003ec0  3d b9 0d 22 ec 17 cc e7  bb 28 61 24 29 3e 3d bb  |=..".....(a$)>=.|
00003ed0  28 62 24 29 61 61 25 3d  b9 0d 22 f6 05 cd 0d 23  |(b$)aa%=.."....#|
00003ee0  00 26 c9 33 3a e7 46 24  28 5a 7a 25 2c 30 29 3d  |.&.3:.F$(Zz%,0)=|
00003ef0  22 30 22 20 84 46 24 28  5a 7a 25 2c 30 29 3d 22  |"0" .F$(Zz%,0)="|
00003f00  33 22 20 8c 0d 23 14 10  e7 61 24 3c 3d 62 24 61  |3" ..#...a$<=b$a|
00003f10  61 25 3d b9 0d 23 1e 17  cc e7 bb 28 61 24 29 3c  |a%=..#.....(a$)<|
00003f20  3d bb 28 62 24 29 61 61  25 3d b9 0d 23 28 05 cd  |=.(b$)aa%=..#(..|
00003f30  0d 23 32 26 c9 34 3a e7  46 24 28 5a 7a 25 2c 30  |.#2&.4:.F$(Zz%,0|
00003f40  29 3d 22 30 22 20 84 46  24 28 5a 7a 25 2c 30 29  |)="0" .F$(Zz%,0)|
00003f50  3d 22 33 22 20 8c 0d 23  46 0f e7 61 24 3c 62 24  |="3" ..#F..a$<b$|
00003f60  61 61 25 3d b9 0d 23 50  16 cc e7 bb 28 61 24 29  |aa%=..#P....(a$)|
00003f70  3c bb 28 62 24 29 61 61  25 3d b9 0d 23 5a 05 cd  |<.(b$)aa%=..#Z..|
00003f80  0d 23 64 18 c9 35 3a e7  a7 61 24 2c 62 24 29 3c  |.#d..5:..a$,b$)<|
00003f90  3e 30 20 61 61 25 3d b9  0d 23 6e 17 c9 36 3a e7  |>0 aa%=..#n..6:.|
00003fa0  a7 61 24 2c 62 24 29 3d  30 20 61 61 25 3d b9 0d  |.a$,b$)=0 aa%=..|
00003fb0  23 78 1a c9 37 3a e7 c0  61 24 2c a9 28 62 24 29  |#x..7:..a$,.(b$)|
00003fc0  29 3d 62 24 61 61 25 3d  b9 0d 23 82 1a c9 38 3a  |)=b$aa%=..#...8:|
00003fd0  e7 c2 61 24 2c a9 28 62  24 29 29 3d 62 24 61 61  |..a$,.(b$))=b$aa|
00003fe0  25 3d b9 0d 23 8c 26 c9  39 3a e7 46 24 28 5a 7a  |%=..#.&.9:.F$(Zz|
00003ff0  25 2c 30 29 3d 22 30 22  20 84 46 24 28 5a 7a 25  |%,0)="0" .F$(Zz%|
00004000  2c 30 29 3d 22 33 22 20  8c 0d 23 a0 10 e7 61 24  |,0)="3" ..#...a$|
00004010  3c 3e 62 24 61 61 25 3d  b9 0d 23 aa 17 cc e7 bb  |<>b$aa%=..#.....|
00004020  28 61 24 29 3c 3e bb 28  62 24 29 61 61 25 3d b9  |(a$)<>.(b$)aa%=.|
00004030  0d 23 b4 05 cd 0d 23 be  0e cb 3a e7 61 57 25 3d  |.#....#...:.aW%=|
00004040  a3 20 8c 0d 23 d2 22 61  24 3d a4 61 63 28 52 24  |. ..#."a$=.ac(R$|
00004050  28 61 25 2c 61 56 25 29  29 3a 63 24 3d a4 61 63  |(a%,aV%)):c$=.ac|
00004060  28 57 6b 24 29 0d 23 dc  19 cc 61 24 3d 52 24 28  |(Wk$).#...a$=R$(|
00004070  61 25 2c 61 56 25 29 3a  63 24 3d 57 6b 24 0d 23  |a%,aV%):c$=Wk$.#|
00004080  e6 0d cd 3a c8 8e 5a 73  25 20 ca 0d 23 fa 26 c9  |...:..Zs% ..#.&.|
00004090  30 3a e7 46 24 28 61 56  25 2c 30 29 3d 22 30 22  |0:.F$(aV%,0)="0"|
000040a0  20 84 46 24 28 61 56 25  2c 30 29 3d 22 33 22 20  | .F$(aV%,0)="3" |
000040b0  8c 0d 24 0e 0f e7 61 24  3d 63 24 61 62 25 3d b9  |..$...a$=c$ab%=.|
000040c0  0d 24 18 16 cc e7 bb 28  61 24 29 3d bb 28 63 24  |.$.....(a$)=.(c$|
000040d0  29 61 62 25 3d b9 0d 24  22 05 cd 0d 24 2c 26 c9  |)ab%=..$"...$,&.|
000040e0  31 3a e7 46 24 28 61 56  25 2c 30 29 3d 22 30 22  |1:.F$(aV%,0)="0"|
000040f0  20 84 46 24 28 61 56 25  2c 30 29 3d 22 33 22 20  | .F$(aV%,0)="3" |
00004100  8c 0d 24 40 0f e7 61 24  3e 63 24 61 62 25 3d b9  |..$@..a$>c$ab%=.|
00004110  0d 24 4a 16 cc e7 bb 28  61 24 29 3e bb 28 63 24  |.$J....(a$)>.(c$|
00004120  29 61 62 25 3d b9 0d 24  54 05 cd 0d 24 5e 26 c9  |)ab%=..$T...$^&.|
00004130  32 3a e7 46 24 28 61 56  25 2c 30 29 3d 22 30 22  |2:.F$(aV%,0)="0"|
00004140  20 84 46 24 28 61 56 25  2c 30 29 3d 22 33 22 20  | .F$(aV%,0)="3" |
00004150  8c 0d 24 72 10 e7 61 24  3e 3d 63 24 61 62 25 3d  |..$r..a$>=c$ab%=|
00004160  b9 0d 24 7c 17 cc e7 bb  28 61 24 29 3e 3d bb 28  |..$|....(a$)>=.(|
00004170  63 24 29 61 62 25 3d b9  0d 24 86 05 cd 0d 24 90  |c$)ab%=..$....$.|
00004180  26 c9 33 3a e7 46 24 28  61 56 25 2c 30 29 3d 22  |&.3:.F$(aV%,0)="|
00004190  30 22 20 84 46 24 28 61  56 25 2c 30 29 3d 22 33  |0" .F$(aV%,0)="3|
000041a0  22 20 8c 0d 24 a4 10 e7  61 24 3c 3d 63 24 61 62  |" ..$...a$<=c$ab|
000041b0  25 3d b9 0d 24 ae 17 cc  e7 bb 28 61 24 29 3c 3d  |%=..$.....(a$)<=|
000041c0  bb 28 63 24 29 61 62 25  3d b9 0d 24 b8 05 cd 0d  |.(c$)ab%=..$....|
000041d0  24 c2 26 c9 34 3a e7 46  24 28 61 56 25 2c 30 29  |$.&.4:.F$(aV%,0)|
000041e0  3d 22 30 22 20 84 46 24  28 61 56 25 2c 30 29 3d  |="0" .F$(aV%,0)=|
000041f0  22 33 22 20 8c 0d 24 d6  0f e7 61 24 3c 63 24 61  |"3" ..$...a$<c$a|
00004200  62 25 3d b9 0d 24 e0 16  cc e7 bb 28 61 24 29 3c  |b%=..$.....(a$)<|
00004210  bb 28 63 24 29 61 62 25  3d b9 0d 24 ea 05 cd 0d  |.(c$)ab%=..$....|
00004220  24 f4 18 c9 35 3a e7 a7  61 24 2c 63 24 29 3c 3e  |$...5:..a$,c$)<>|
00004230  30 20 61 62 25 3d b9 0d  24 fe 17 c9 36 3a e7 a7  |0 ab%=..$...6:..|
00004240  61 24 2c 63 24 29 3d 30  20 61 62 25 3d b9 0d 25  |a$,c$)=0 ab%=..%|
00004250  08 1a c9 37 3a e7 c0 61  24 2c a9 28 63 24 29 29  |...7:..a$,.(c$))|
00004260  3d 63 24 61 62 25 3d b9  0d 25 12 1a c9 38 3a e7  |=c$ab%=..%...8:.|
00004270  c2 61 24 2c a9 28 63 24  29 29 3d 63 24 61 62 25  |.a$,.(c$))=c$ab%|
00004280  3d b9 0d 25 1c 26 c9 39  3a e7 46 24 28 61 56 25  |=..%.&.9:.F$(aV%|
00004290  2c 30 29 3d 22 30 22 20  84 46 24 28 61 56 25 2c  |,0)="0" .F$(aV%,|
000042a0  30 29 3d 22 33 22 20 8c  0d 25 30 10 e7 61 24 3c  |0)="3" ..%0..a$<|
000042b0  3e 63 24 61 62 25 3d b9  0d 25 3a 17 cc e7 bb 28  |>c$ab%=..%:....(|
000042c0  61 24 29 3c 3e bb 28 63  24 29 61 62 25 3d b9 0d  |a$)<>.(c$)ab%=..|
000042d0  25 44 05 cd 0d 25 4e 20  cb 3a e7 61 61 25 20 80  |%D...%N .:.aa% .|
000042e0  61 62 25 57 6c 25 2b 3d  31 3a 46 25 28 57 6c 25  |ab%Wl%+=1:F%(Wl%|
000042f0  29 3d 61 25 0d 25 62 05  ed 0d 25 76 40 c9 33 3a  |)=a%.%b...%v@.3:|
00004300  e3 61 25 3d 31 20 b8 55  25 3a 70 25 3d 28 61 25  |.a%=1 .U%:p%=(a%|
00004310  2f 55 25 29 2a 31 30 30  3a c8 99 26 34 30 36 43  |/U%)*100:..&406C|
00004320  34 2c 70 25 3a 61 61 25  3d a3 3a 61 62 25 3d a3  |4,p%:aa%=.:ab%=.|
00004330  3a e7 61 57 25 3d a3 20  8c 0d 25 a8 22 61 24 3d  |:.aW%=. ..%."a$=|
00004340  a4 61 63 28 52 24 28 61  25 2c 5a 7a 25 29 29 3a  |.ac(R$(a%,Zz%)):|
00004350  62 24 3d a4 61 63 28 57  6a 24 29 0d 25 b2 19 cc  |b$=.ac(Wj$).%...|
00004360  61 24 3d 52 24 28 61 25  2c 5a 7a 25 29 3a 62 24  |a$=R$(a%,Zz%):b$|
00004370  3d 57 6a 24 0d 25 bc 0d  cd 3a c8 8e 5a 72 25 20  |=Wj$.%...:..Zr% |
00004380  ca 0d 25 d0 26 c9 30 3a  e7 46 24 28 5a 7a 25 2c  |..%.&.0:.F$(Zz%,|
00004390  30 29 3d 22 30 22 20 84  46 24 28 5a 7a 25 2c 30  |0)="0" .F$(Zz%,0|
000043a0  29 3d 22 33 22 20 8c 0d  25 e4 0f e7 61 24 3d 62  |)="3" ..%...a$=b|
000043b0  24 61 61 25 3d b9 0d 25  ee 16 cc e7 bb 28 61 24  |$aa%=..%.....(a$|
000043c0  29 3d bb 28 62 24 29 61  61 25 3d b9 0d 25 f8 05  |)=.(b$)aa%=..%..|
000043d0  cd 0d 26 02 26 c9 31 3a  e7 46 24 28 5a 7a 25 2c  |..&.&.1:.F$(Zz%,|
000043e0  30 29 3d 22 30 22 20 84  46 24 28 5a 7a 25 2c 30  |0)="0" .F$(Zz%,0|
000043f0  29 3d 22 33 22 20 8c 0d  26 16 0f e7 61 24 3e 62  |)="3" ..&...a$>b|
00004400  24 61 61 25 3d b9 0d 26  20 16 cc e7 bb 28 61 24  |$aa%=..& ....(a$|
00004410  29 3e bb 28 62 24 29 61  61 25 3d b9 0d 26 2a 05  |)>.(b$)aa%=..&*.|
00004420  cd 0d 26 34 26 c9 32 3a  e7 46 24 28 5a 7a 25 2c  |..&4&.2:.F$(Zz%,|
00004430  30 29 3d 22 30 22 20 84  46 24 28 5a 7a 25 2c 30  |0)="0" .F$(Zz%,0|
00004440  29 3d 22 33 22 20 8c 0d  26 48 10 e7 61 24 3e 3d  |)="3" ..&H..a$>=|
00004450  62 24 61 61 25 3d b9 0d  26 52 17 cc e7 bb 28 61  |b$aa%=..&R....(a|
00004460  24 29 3e 3d bb 28 62 24  29 61 61 25 3d b9 0d 26  |$)>=.(b$)aa%=..&|
00004470  5c 05 cd 0d 26 66 26 c9  33 3a e7 46 24 28 5a 7a  |\...&f&.3:.F$(Zz|
00004480  25 2c 30 29 3d 22 30 22  20 84 46 24 28 5a 7a 25  |%,0)="0" .F$(Zz%|
00004490  2c 30 29 3d 22 33 22 20  8c 0d 26 7a 10 e7 61 24  |,0)="3" ..&z..a$|
000044a0  3c 3d 62 24 61 61 25 3d  b9 0d 26 84 17 cc e7 bb  |<=b$aa%=..&.....|
000044b0  28 61 24 29 3c 3d bb 28  62 24 29 61 61 25 3d b9  |(a$)<=.(b$)aa%=.|
000044c0  0d 26 8e 05 cd 0d 26 98  26 c9 34 3a e7 46 24 28  |.&....&.&.4:.F$(|
000044d0  5a 7a 25 2c 30 29 3d 22  30 22 20 84 46 24 28 5a  |Zz%,0)="0" .F$(Z|
000044e0  7a 25 2c 30 29 3d 22 33  22 20 8c 0d 26 ac 0f e7  |z%,0)="3" ..&...|
000044f0  61 24 3c 62 24 61 61 25  3d b9 0d 26 b6 16 cc e7  |a$<b$aa%=..&....|
00004500  bb 28 61 24 29 3c bb 28  62 24 29 61 61 25 3d b9  |.(a$)<.(b$)aa%=.|
00004510  0d 26 c0 05 cd 0d 26 ca  18 c9 35 3a e7 a7 61 24  |.&....&...5:..a$|
00004520  2c 62 24 29 3c 3e 30 20  61 61 25 3d b9 0d 26 d4  |,b$)<>0 aa%=..&.|
00004530  17 c9 36 3a e7 a7 61 24  2c 62 24 29 3d 30 20 61  |..6:..a$,b$)=0 a|
00004540  61 25 3d b9 0d 26 de 1a  c9 37 3a e7 c0 61 24 2c  |a%=..&...7:..a$,|
00004550  a9 28 62 24 29 29 3d 62  24 61 61 25 3d b9 0d 26  |.(b$))=b$aa%=..&|
00004560  e8 1a c9 38 3a e7 c2 61  24 2c a9 28 62 24 29 29  |...8:..a$,.(b$))|
00004570  3d 62 24 61 61 25 3d b9  0d 26 f2 26 c9 39 3a e7  |=b$aa%=..&.&.9:.|
00004580  46 24 28 5a 7a 25 2c 30  29 3d 22 30 22 20 84 46  |F$(Zz%,0)="0" .F|
00004590  24 28 5a 7a 25 2c 30 29  3d 22 33 22 20 8c 0d 27  |$(Zz%,0)="3" ..'|
000045a0  06 10 e7 61 24 3c 3e 62  24 61 61 25 3d b9 0d 27  |...a$<>b$aa%=..'|
000045b0  10 17 cc e7 bb 28 61 24  29 3c 3e bb 28 62 24 29  |.....(a$)<>.(b$)|
000045c0  61 61 25 3d b9 0d 27 1a  05 cd 0d 27 24 0e cb 3a  |aa%=..'....'$..:|
000045d0  e7 61 57 25 3d a3 20 8c  0d 27 38 22 61 24 3d a4  |.aW%=. ..'8"a$=.|
000045e0  61 63 28 52 24 28 61 25  2c 61 56 25 29 29 3a 63  |ac(R$(a%,aV%)):c|
000045f0  24 3d a4 61 63 28 57 6b  24 29 0d 27 42 19 cc 61  |$=.ac(Wk$).'B..a|
00004600  24 3d 52 24 28 61 25 2c  61 56 25 29 3a 63 24 3d  |$=R$(a%,aV%):c$=|
00004610  57 6b 24 0d 27 4c 0d cd  3a c8 8e 5a 73 25 20 ca  |Wk$.'L..:..Zs% .|
00004620  0d 27 60 26 c9 30 3a e7  46 24 28 61 56 25 2c 30  |.'`&.0:.F$(aV%,0|
00004630  29 3d 22 30 22 20 84 46  24 28 61 56 25 2c 30 29  |)="0" .F$(aV%,0)|
00004640  3d 22 33 22 20 8c 0d 27  74 0f e7 61 24 3d 63 24  |="3" ..'t..a$=c$|
00004650  61 62 25 3d b9 0d 27 7e  16 cc e7 bb 28 61 24 29  |ab%=..'~....(a$)|
00004660  3d bb 28 63 24 29 61 62  25 3d b9 0d 27 88 05 cd  |=.(c$)ab%=..'...|
00004670  0d 27 92 26 c9 31 3a e7  46 24 28 61 56 25 2c 30  |.'.&.1:.F$(aV%,0|
00004680  29 3d 22 30 22 20 84 46  24 28 61 56 25 2c 30 29  |)="0" .F$(aV%,0)|
00004690  3d 22 33 22 20 8c 0d 27  a6 0f e7 61 24 3e 63 24  |="3" ..'...a$>c$|
000046a0  61 62 25 3d b9 0d 27 b0  16 cc e7 bb 28 61 24 29  |ab%=..'.....(a$)|
000046b0  3e bb 28 63 24 29 61 62  25 3d b9 0d 27 ba 05 cd  |>.(c$)ab%=..'...|
000046c0  0d 27 c4 26 c9 32 3a e7  46 24 28 61 56 25 2c 30  |.'.&.2:.F$(aV%,0|
000046d0  29 3d 22 30 22 20 84 46  24 28 61 56 25 2c 30 29  |)="0" .F$(aV%,0)|
000046e0  3d 22 33 22 20 8c 0d 27  d8 10 e7 61 24 3e 3d 63  |="3" ..'...a$>=c|
000046f0  24 61 62 25 3d b9 0d 27  e2 17 cc e7 bb 28 61 24  |$ab%=..'.....(a$|
00004700  29 3e 3d bb 28 63 24 29  61 62 25 3d b9 0d 27 ec  |)>=.(c$)ab%=..'.|
00004710  05 cd 0d 27 f6 26 c9 33  3a e7 46 24 28 61 56 25  |...'.&.3:.F$(aV%|
00004720  2c 30 29 3d 22 30 22 20  84 46 24 28 61 56 25 2c  |,0)="0" .F$(aV%,|
00004730  30 29 3d 22 33 22 20 8c  0d 28 0a 10 e7 61 24 3c  |0)="3" ..(...a$<|
00004740  3d 63 24 61 62 25 3d b9  0d 28 14 17 cc e7 bb 28  |=c$ab%=..(.....(|
00004750  61 24 29 3c 3d bb 28 63  24 29 61 62 25 3d b9 0d  |a$)<=.(c$)ab%=..|
00004760  28 1e 05 cd 0d 28 28 26  c9 34 3a e7 46 24 28 61  |(....((&.4:.F$(a|
00004770  56 25 2c 30 29 3d 22 30  22 20 84 46 24 28 61 56  |V%,0)="0" .F$(aV|
00004780  25 2c 30 29 3d 22 33 22  20 8c 0d 28 3c 0f e7 61  |%,0)="3" ..(<..a|
00004790  24 3c 63 24 61 62 25 3d  b9 0d 28 46 16 cc e7 bb  |$<c$ab%=..(F....|
000047a0  28 61 24 29 3c bb 28 63  24 29 61 62 25 3d b9 0d  |(a$)<.(c$)ab%=..|
000047b0  28 50 05 cd 0d 28 5a 18  c9 35 3a e7 a7 61 24 2c  |(P...(Z..5:..a$,|
000047c0  63 24 29 3c 3e 30 20 61  62 25 3d b9 0d 28 64 17  |c$)<>0 ab%=..(d.|
000047d0  c9 36 3a e7 a7 61 24 2c  63 24 29 3d 30 20 61 62  |.6:..a$,c$)=0 ab|
000047e0  25 3d b9 0d 28 6e 1a c9  37 3a e7 c0 61 24 2c a9  |%=..(n..7:..a$,.|
000047f0  28 63 24 29 29 3d 63 24  61 62 25 3d b9 0d 28 78  |(c$))=c$ab%=..(x|
00004800  1a c9 38 3a e7 c2 61 24  2c a9 28 63 24 29 29 3d  |..8:..a$,.(c$))=|
00004810  63 24 61 62 25 3d b9 0d  28 82 26 c9 39 3a e7 46  |c$ab%=..(.&.9:.F|
00004820  24 28 61 56 25 2c 30 29  3d 22 30 22 20 84 46 24  |$(aV%,0)="0" .F$|
00004830  28 61 56 25 2c 30 29 3d  22 33 22 20 8c 0d 28 96  |(aV%,0)="3" ..(.|
00004840  10 e7 61 24 3c 3e 63 24  61 62 25 3d b9 0d 28 a0  |..a$<>c$ab%=..(.|
00004850  17 cc e7 bb 28 61 24 29  3c 3e bb 28 63 24 29 61  |....(a$)<>.(c$)a|
00004860  62 25 3d b9 0d 28 aa 05  cd 0d 28 b4 22 cb 3a e7  |b%=..(....(.".:.|
00004870  61 61 25 20 80 20 ac 61  62 25 57 6c 25 2b 3d 31  |aa% . .ab%Wl%+=1|
00004880  3a 46 25 28 57 6c 25 29  3d 61 25 0d 28 c8 05 ed  |:F%(Wl%)=a%.(...|
00004890  0d 28 d2 29 cb 3a c8 99  26 34 30 36 43 31 3a f2  |.(.).:..&406C1:.|
000048a0  56 7a 28 58 6a 25 2c 36  2c c3 28 57 6c 25 29 29  |Vz(Xj%,6,.(Wl%))|
000048b0  3a e7 57 6c 25 3d 30 20  8c 0d 28 f0 46 f2 56 7a  |:.Wl%=0 ..(.F.Vz|
000048c0  28 58 6a 25 2c 34 2c 22  30 22 29 3a 58 5a 24 3d  |(Xj%,4,"0"):XZ$=|
000048d0  22 4e 6f 20 72 65 63 6f  72 64 73 20 66 6f 75 6e  |"No records foun|
000048e0  64 2e 22 3a f2 58 5a 3a  f2 61 64 28 55 67 25 2c  |d.":.XZ:.ad(Ug%,|
000048f0  58 56 25 2c 32 31 2c 22  72 61 64 69 6f 22 29 0d  |XV%,21,"radio").|
00004900  29 04 46 cc 57 6d 25 3d  31 3a f2 56 7a 28 58 6a  |).F.Wm%=1:.Vz(Xj|
00004910  25 2c 34 2c c3 28 57 6d  25 29 29 3a 4e 25 3d 46  |%,4,.(Wm%)):N%=F|
00004920  25 28 57 6d 25 29 3a f2  59 59 3a f2 61 64 28 55  |%(Wm%):.YY:.ad(U|
00004930  67 25 2c 58 56 25 2c 32  31 2c 22 72 61 64 69 6f  |g%,XV%,21,"radio|
00004940  6f 66 66 22 29 0d 29 22  07 cd 3a e1 0d 29 68 43  |off").)"..:..)hC|
00004950  dd f2 61 65 28 59 67 25  2c 57 6d 25 29 3a ea 61  |..ae(Yg%,Wm%):.a|
00004960  66 25 2c 61 67 25 2c 61  68 25 2c 61 69 25 2c 6c  |f%,ag%,ah%,ai%,l|
00004970  25 2c 68 25 2c 55 57 25  3a 55 57 25 3d a6 28 2d  |%,h%,UW%:UW%=.(-|
00004980  32 35 36 29 3a e7 55 57  25 3e 31 36 34 20 8c 0d  |256):.UW%>164 ..|
00004990  29 90 10 f2 61 6a 28 61  6b 25 2c 61 6c 25 29 0d  |)...aj(ak%,al%).|
000049a0  29 9a 92 cc 3a 6d 25 3d  eb 3a c8 99 26 33 39 2c  |)...:m%=.:..&39,|
000049b0  2c 22 58 4f 53 5f 52 65  61 64 4d 6f 64 65 56 61  |,"XOS_ReadModeVa|
000049c0  72 69 61 62 6c 65 22 20  b8 61 6d 25 3a c8 99 26  |riable" .am%:..&|
000049d0  33 39 2c 2c 22 58 4f 53  5f 43 68 65 63 6b 4d 6f  |39,,"XOS_CheckMo|
000049e0  64 65 56 61 6c 69 64 22  20 b8 61 6e 25 3a 61 6f  |deValid" .an%:ao|
000049f0  25 3d a4 61 70 28 6d 25  2c 34 29 3a 61 71 25 3d  |%=.ap(m%,4):aq%=|
00004a00  a4 61 70 28 6d 25 2c 35  29 3a 61 6b 25 3d a4 61  |.ap(m%,5):ak%=.a|
00004a10  70 28 6d 25 2c 31 31 29  3c 3c 61 6f 25 3a 61 6c  |p(m%,11)<<ao%:al|
00004a20  25 3d a4 61 70 28 6d 25  2c 31 32 29 3c 3c 61 71  |%=.ap(m%,12)<<aq|
00004a30  25 0d 29 cc 0c cd 3a e7  57 6d 25 20 8c 0d 29 e0  |%.)...:.Wm% ..).|
00004a40  99 21 55 67 25 3d 59 67  25 3a c8 99 26 34 30 30  |.!Ug%=Yg%:..&400|
00004a50  43 43 2c 2c 55 67 25 3a  61 72 25 3d 55 67 25 21  |CC,,Ug%:ar%=Ug%!|
00004a60  34 3a 61 73 25 3d 55 67  25 21 31 36 3a 61 66 25  |4:as%=Ug%!16:af%|
00004a70  3d 55 67 25 21 34 34 3a  61 67 25 3d 55 67 25 21  |=Ug%!44:ag%=Ug%!|
00004a80  34 38 3a 61 68 25 3d 55  67 25 21 35 32 3a 61 69  |48:ah%=Ug%!52:ai|
00004a90  25 3d 55 67 25 21 35 36  3a 6c 25 3d 61 68 25 2d  |%=Ug%!56:l%=ah%-|
00004aa0  61 66 25 3a 68 25 3d 61  69 25 2d 61 67 25 3a c8  |af%:h%=ai%-ag%:.|
00004ab0  97 c8 93 61 72 25 2c 61  73 25 2d 68 25 2c 6c 25  |...ar%,as%-h%,l%|
00004ac0  2c 68 25 3a c8 97 20 b8  61 72 25 2b 36 30 30 2c  |,h%:.. .ar%+600,|
00004ad0  61 73 25 2d 38 30 0d 2a  12 14 cc c8 97 c8 93 30  |as%-80.*.......0|
00004ae0  2c 30 2c 61 6b 25 2c 61  6c 25 0d 2a 1c 07 cd 3a  |,0,ak%,al%.*...:|
00004af0  e1 0d 2a 3a 90 dd f2 61  6a 28 f8 61 74 25 2c f8  |..*:...aj(.at%,.|
00004b00  61 75 25 29 3a ea 61 76  25 2c 61 77 25 2c 78 25  |au%):.av%,aw%,x%|
00004b10  2c 79 25 3a c8 99 26 33  35 2c 2d 31 2c 31 31 20  |,y%:..&35,-1,11 |
00004b20  b8 2c 2c 78 25 3a 78 25  2b 3d 31 3a c8 99 26 33  |.,,x%:x%+=1:..&3|
00004b30  35 2c 2d 31 2c 31 32 20  b8 2c 2c 79 25 3a 79 25  |5,-1,12 .,,y%:y%|
00004b40  2b 3d 31 3a c8 99 26 33  35 2c 2d 31 2c 34 20 b8  |+=1:..&35,-1,4 .|
00004b50  2c 2c 61 76 25 3a c8 99  26 33 35 2c 2d 31 2c 35  |,,av%:..&35,-1,5|
00004b60  20 b8 2c 2c 61 77 25 3a  61 74 25 3d 78 25 3c 3c  | .,,aw%:at%=x%<<|
00004b70  61 76 25 3a 61 75 25 3d  79 25 3c 3c 61 77 25 3a  |av%:au%=y%<<aw%:|
00004b80  e1 0d 2a 94 1e dd a4 61  70 28 6d 25 2c 6e 25 29  |..*....ap(m%,n%)|
00004b90  3a ea 72 25 3a e7 a4 61  78 28 6d 25 29 20 8c 0d  |:.r%:..ax(m%) ..|
00004ba0  2a b2 15 c8 99 61 6d 25  2c 6d 25 2c 6e 25 20 b8  |*....am%,m%,n% .|
00004bb0  2c 2c 72 25 0d 2a bc 09  cc 72 25 3d 30 0d 2a c6  |,,r%.*...r%=0.*.|
00004bc0  09 cd 3a 3d 72 25 0d 2a  e4 25 dd a4 61 78 28 6d  |..:=r%.*.%..ax(m|
00004bd0  25 29 3a ea 76 25 3a 6d  25 3d 6d 25 20 80 26 46  |%):.v%:m%=m% .&F|
00004be0  46 3a e7 6d 25 3d eb 20  8c 3d b9 0d 2b 0c 1a c8  |F:.m%=. .=..+...|
00004bf0  99 61 6e 25 2c 6d 25 20  b8 76 25 3a 3d 28 76 25  |.an%,m% .v%:=(v%|
00004c00  3c 3e 2d 31 29 0d 2b 2a  3d dd f2 58 61 28 74 25  |<>-1).+*=..Xa(t%|
00004c10  29 3a f2 58 7a 28 58 61  25 2c a3 29 3a f2 56 7a  |):.Xz(Xa%,.):.Vz|
00004c20  28 58 61 25 2c 31 2c 58  61 24 29 3a ef 37 3a f2  |(Xa%,1,Xa$):.7:.|
00004c30  61 65 28 58 61 25 2c b9  29 3a 61 79 25 3d 74 25  |ae(Xa%,.):ay%=t%|
00004c40  3a e1 0d 2b 5c 1f dd f2  59 7a 28 55 6d 25 29 3a  |:..+\...Yz(Um%):|
00004c50  ea 6a 25 2c 69 25 2c 6e  25 3a c8 8e 61 79 25 20  |.j%,i%,n%:..ay% |
00004c60  ca 0d 2b 84 0e c9 31 3a  c8 8e 55 6d 25 20 ca 0d  |..+...1:..Um% ..|
00004c70  2b 98 10 c9 33 3a f2 61  7a 3a 55 5a 25 3d b9 0d  |+...3:.az:UZ%=..|
00004c80  2b a2 15 c9 34 3a f2 61  7a 3a f2 58 7a 28 58 56  |+...4:.az:.Xz(XV|
00004c90  25 2c a3 29 0d 2b ac 05  cb 0d 2b c0 0e c9 32 3a  |%,.).+....+...2:|
00004ca0  c8 8e 55 6d 25 20 ca 0d  2b d4 0a c9 33 3a f2 61  |..Um% ..+...3:.a|
00004cb0  7a 0d 2b de 0e c9 34 3a  e7 55 25 3d 31 20 8c 0d  |z.+...4:.U%=1 ..|
00004cc0  2b f2 64 f2 62 55 28 58  61 25 2c 55 6d 25 2c 31  |+.d.bU(Xa%,Um%,1|
00004cd0  29 3a 55 25 3d 30 3a 4e  25 3d 31 3a f2 56 7a 28  |):U%=0:N%=1:.Vz(|
00004ce0  57 77 25 2c 38 2c c3 28  55 25 29 29 3a e3 6a 25  |Ww%,8,.(U%)):.j%|
00004cf0  3d 31 20 b8 56 58 25 3a  52 24 28 4e 25 2c 6a 25  |=1 .VX%:R$(N%,j%|
00004d00  29 3d 22 22 3a ed 3a f2  59 59 3a 58 79 25 3d a3  |)="":.:.YY:Xy%=.|
00004d10  3a f2 57 76 3a f2 62 55  28 58 61 25 2c 55 6d 25  |:.Wv:.bU(Xa%,Um%|
00004d20  2c 30 29 0d 2c 24 81 cc  f2 62 55 28 58 61 25 2c  |,0).,$...bU(Xa%,|
00004d30  55 6d 25 2c 31 29 3a 52  24 28 4e 25 2c 57 6f 25  |Um%,1):R$(N%,Wo%|
00004d40  29 3d c4 bb 28 46 24 28  57 6f 25 2c 31 29 29 2c  |)=..(F$(Wo%,1)),|
00004d50  22 7e 22 29 3a f2 58 64  3a e3 6a 25 3d 31 20 b8  |"~"):.Xd:.j%=1 .|
00004d60  56 58 25 3a 52 24 28 55  25 2c 6a 25 29 3d 22 22  |VX%:R$(U%,j%)=""|
00004d70  3a ed 3a 58 79 25 3d a3  3a f2 57 76 3a 55 25 2d  |:.:Xy%=.:.Wv:U%-|
00004d80  3d 31 3a f2 56 7a 28 57  77 25 2c 38 2c c3 28 55  |=1:.Vz(Ww%,8,.(U|
00004d90  25 29 29 3a 4e 25 2d 3d  31 3a e7 4e 25 3c 31 20  |%)):N%-=1:.N%<1 |
00004da0  4e 25 3d 31 0d 2c 56 86  f2 59 59 3a f2 58 76 28  |N%=1.,V..YY:.Xv(|
00004db0  58 58 25 29 3a f2 58 76  28 58 6a 25 29 3a 57 6c  |XX%):.Xv(Xj%):Wl|
00004dc0  25 3d 30 3a 57 6d 25 3d  31 3a f2 56 7a 28 58 6a  |%=0:Wm%=1:.Vz(Xj|
00004dd0  25 2c 34 2c c3 28 57 6c  25 29 29 3a f2 56 7a 28  |%,4,.(Wl%)):.Vz(|
00004de0  58 6a 25 2c 36 2c c3 28  57 6c 25 29 29 3a 57 6a  |Xj%,6,.(Wl%)):Wj|
00004df0  24 3d 22 22 3a f2 56 7a  28 58 58 25 2c 31 37 2c  |$="":.Vz(XX%,17,|
00004e00  57 6a 24 29 3a 57 6b 24  3d 22 22 3a f2 56 7a 28  |Wj$):Wk$="":.Vz(|
00004e10  58 58 25 2c 32 38 2c 57  6b 24 29 3a f2 62 55 28  |XX%,28,Wk$):.bU(|
00004e20  58 61 25 2c 55 6d 25 2c  30 29 0d 2c 9c 12 cd 3a  |Xa%,Um%,0).,...:|
00004e30  f2 61 7a 3a f2 58 76 28  58 67 25 29 0d 2c b0 05  |.az:.Xv(Xg%).,..|
00004e40  cb 0d 2c c4 0e c9 33 3a  c8 8e 55 6d 25 20 ca 0d  |..,...3:..Um% ..|
00004e50  2c d8 0a c9 33 3a f2 61  7a 0d 2c e2 38 c9 34 3a  |,...3:.az.,.8.4:|
00004e60  f2 62 55 28 58 61 25 2c  55 6d 25 2c 31 29 3a f2  |.bU(Xa%,Um%,1):.|
00004e70  58 56 28 62 56 24 29 3a  e7 56 73 25 3c 33 20 8c  |XV(bV$):.Vs%<3 .|
00004e80  f2 62 57 28 58 56 25 29  8b f2 62 57 28 58 66 25  |.bW(XV%)..bW(Xf%|
00004e90  29 0d 2c f6 0c e7 56 73  25 3c 33 20 8c 0d 2d 00  |).,...Vs%<3 ..-.|
00004ea0  1b e7 56 73 25 3d 30 20  8c 55 61 24 3d 62 56 24  |..Vs%=0 .Ua$=bV$|
00004eb0  8b 55 61 24 3d 57 66 24  0d 2d 0a 0c cc 57 63 24  |.Ua$=Wf$.-...Wc$|
00004ec0  3d 62 56 24 0d 2d 14 18  cd 3a f2 62 55 28 58 61  |=bV$.-...:.bU(Xa|
00004ed0  25 2c 55 6d 25 2c 30 29  3a f2 61 7a 0d 2d 28 05  |%,Um%,0):.az.-(.|
00004ee0  cb 0d 2d 3c 0e c9 34 3a  c8 8e 55 6d 25 20 ca 0d  |..-<..4:..Um% ..|
00004ef0  2d 50 24 c9 33 3a f2 61  7a 3a 57 72 25 3d a3 3a  |-P$.3:.az:Wr%=.:|
00004f00  f2 58 7a 28 58 59 25 2c  a3 29 3a c8 99 26 34 30  |.Xz(XY%,.):..&40|
00004f10  36 43 30 0d 2d 64 21 c9  34 3a 57 71 25 3d 30 3a  |6C0.-d!.4:Wq%=0:|
00004f20  57 72 25 3d a3 3a f2 61  7a 3a f2 58 7a 28 57 79  |Wr%=.:.az:.Xz(Wy|
00004f30  25 2c a3 29 0d 2d 78 05  cb 0d 2d 8c 0e c9 35 3a  |%,.).-x...-...5:|
00004f40  c8 8e 55 6d 25 20 ca 0d  2d a0 0a c9 33 3a f2 61  |..Um% ..-...3:.a|
00004f50  7a 0d 2d aa 2c c9 34 3a  f2 62 55 28 58 61 25 2c  |z.-.,.4:.bU(Xa%,|
00004f60  55 6d 25 2c 31 29 3a f2  5a 75 3a f2 62 55 28 58  |Um%,1):.Zu:.bU(X|
00004f70  61 25 2c 55 6d 25 2c 30  29 3a f2 61 7a 0d 2d be  |a%,Um%,0):.az.-.|
00004f80  05 cb 0d 2d d2 0e c9 36  3a c8 8e 55 6d 25 20 ca  |...-...6:..Um% .|
00004f90  0d 2d e6 0a c9 33 3a f2  61 7a 0d 2d f0 fa c9 34  |.-...3:.az.-...4|
00004fa0  3a f2 62 55 28 58 61 25  2c 55 6d 25 2c 31 29 3a  |:.bU(Xa%,Um%,1):|
00004fb0  e3 6a 25 3d 31 20 b8 55  25 3a e3 69 25 3d 31 20  |.j%=1 .U%:.i%=1 |
00004fc0  b8 56 58 25 3a 52 24 28  6a 25 2c 69 25 29 3d 22  |.VX%:R$(j%,i%)="|
00004fd0  22 3a ed 3a ed 3a 58 79  25 3d a3 3a f2 57 76 3a  |":.:.:Xy%=.:.Wv:|
00004fe0  55 25 3d 30 3a f2 56 7a  28 57 77 25 2c 38 2c c3  |U%=0:.Vz(Ww%,8,.|
00004ff0  28 55 25 29 29 3a 4e 25  3d 31 3a 58 25 3d 31 3a  |(U%)):N%=1:X%=1:|
00005000  59 25 3d 30 3a f2 59 59  3a f2 58 76 28 58 58 25  |Y%=0:.YY:.Xv(XX%|
00005010  29 3a f2 58 76 28 58 6a  25 29 3a 57 6c 25 3d 30  |):.Xv(Xj%):Wl%=0|
00005020  3a 57 6d 25 3d 31 3a f2  56 7a 28 58 6a 25 2c 34  |:Wm%=1:.Vz(Xj%,4|
00005030  2c c3 28 57 6c 25 29 29  3a f2 56 7a 28 58 6a 25  |,.(Wl%)):.Vz(Xj%|
00005040  2c 36 2c c3 28 57 6c 25  29 29 3a 57 6a 24 3d 22  |,6,.(Wl%)):Wj$="|
00005050  22 3a f2 56 7a 28 58 58  25 2c 31 37 2c 57 6a 24  |":.Vz(XX%,17,Wj$|
00005060  29 3a 57 6b 24 3d 22 22  3a f2 56 7a 28 58 58 25  |):Wk$="":.Vz(XX%|
00005070  2c 32 38 2c 57 6b 24 29  3a f2 62 55 28 58 61 25  |,28,Wk$):.bU(Xa%|
00005080  2c 55 6d 25 2c 30 29 3a  f2 61 7a 3a f2 58 76 28  |,Um%,0):.az:.Xv(|
00005090  58 67 25 29 0d 2e 7c 05  cb 0d 2e 90 0e c9 37 3a  |Xg%)..|.......7:|
000050a0  c8 8e 55 6d 25 20 ca 0d  2e a4 0a c9 33 3a f2 61  |..Um% ......3:.a|
000050b0  7a 0d 2e ae 86 c9 34 3a  f2 62 55 28 58 61 25 2c  |z.....4:.bU(Xa%,|
000050c0  55 6d 25 2c 31 29 3a 6e  25 3d 30 3a e3 6a 25 3d  |Um%,1):n%=0:.j%=|
000050d0  31 20 b8 57 6c 25 3a 52  24 28 46 25 28 6a 25 29  |1 .Wl%:R$(F%(j%)|
000050e0  2c 57 6f 25 29 3d c4 bb  28 46 24 28 57 6f 25 2c  |,Wo%)=..(F$(Wo%,|
000050f0  31 29 29 2c 22 7e 22 29  3a 6e 25 2b 3d 31 3a ed  |1)),"~"):n%+=1:.|
00005100  3a 58 79 25 3d a3 3a f2  57 76 3a f2 58 64 3a 55  |:Xy%=.:.Wv:.Xd:U|
00005110  25 2d 3d 6e 25 3a f2 56  7a 28 57 77 25 2c 38 2c  |%-=n%:.Vz(Ww%,8,|
00005120  c3 28 55 25 29 29 3a 4e  25 2d 3d 31 3a e7 4e 25  |.(U%)):N%-=1:.N%|
00005130  3c 31 20 4e 25 3d 31 0d  2e f4 93 f2 59 59 3a f2  |<1 N%=1.....YY:.|
00005140  58 76 28 58 58 25 29 3a  f2 58 76 28 58 6a 25 29  |Xv(XX%):.Xv(Xj%)|
00005150  3a 57 6c 25 3d 30 3a 57  6d 25 3d 31 3a f2 56 7a  |:Wl%=0:Wm%=1:.Vz|
00005160  28 58 6a 25 2c 34 2c c3  28 57 6c 25 29 29 3a f2  |(Xj%,4,.(Wl%)):.|
00005170  56 7a 28 58 6a 25 2c 36  2c c3 28 57 6c 25 29 29  |Vz(Xj%,6,.(Wl%))|
00005180  3a 57 6a 24 3d 22 22 3a  f2 56 7a 28 58 58 25 2c  |:Wj$="":.Vz(XX%,|
00005190  31 37 2c 57 6a 24 29 3a  57 6b 24 3d 22 22 3a f2  |17,Wj$):Wk$="":.|
000051a0  56 7a 28 58 58 25 2c 32  38 2c 57 6b 24 29 3a f2  |Vz(XX%,28,Wk$):.|
000051b0  62 55 28 58 61 25 2c 55  6d 25 2c 30 29 3a f2 61  |bU(Xa%,Um%,0):.a|
000051c0  7a 3a f2 58 76 28 58 67  25 29 0d 2f 44 05 cb 0d  |z:.Xv(Xg%)./D...|
000051d0  2f 58 0e c9 38 3a c8 8e  55 6d 25 20 ca 0d 2f 6c  |/X..8:..Um% ../l|
000051e0  0a c9 33 3a f2 61 7a 0d  2f 76 82 c9 34 3a f2 62  |..3:.az./v..4:.b|
000051f0  55 28 58 61 25 2c 55 6d  25 2c 31 29 3a 6e 25 3d  |U(Xa%,Um%,1):n%=|
00005200  30 3a e3 6a 25 3d 58 25  20 b8 59 25 3a 52 24 28  |0:.j%=X% .Y%:R$(|
00005210  6a 25 2c 57 6f 25 29 3d  c4 bb 28 46 24 28 57 6f  |j%,Wo%)=..(F$(Wo|
00005220  25 2c 31 29 29 2c 22 7e  22 29 3a 6e 25 2b 3d 31  |%,1)),"~"):n%+=1|
00005230  3a ed 3a 58 79 25 3d a3  3a f2 57 76 3a f2 58 64  |:.:Xy%=.:.Wv:.Xd|
00005240  3a 55 25 2d 3d 6e 25 3a  f2 56 7a 28 57 77 25 2c  |:U%-=n%:.Vz(Ww%,|
00005250  38 2c c3 28 55 25 29 29  3a 4e 25 2d 3d 31 3a e7  |8,.(U%)):N%-=1:.|
00005260  4e 25 3c 31 20 4e 25 3d  31 0d 2f bc 93 f2 59 59  |N%<1 N%=1./...YY|
00005270  3a f2 58 76 28 58 58 25  29 3a f2 58 76 28 58 6a  |:.Xv(XX%):.Xv(Xj|
00005280  25 29 3a 57 6c 25 3d 30  3a 57 6d 25 3d 31 3a f2  |%):Wl%=0:Wm%=1:.|
00005290  56 7a 28 58 6a 25 2c 34  2c c3 28 57 6c 25 29 29  |Vz(Xj%,4,.(Wl%))|
000052a0  3a f2 56 7a 28 58 6a 25  2c 36 2c c3 28 57 6c 25  |:.Vz(Xj%,6,.(Wl%|
000052b0  29 29 3a 57 6a 24 3d 22  22 3a f2 56 7a 28 58 58  |)):Wj$="":.Vz(XX|
000052c0  25 2c 31 37 2c 57 6a 24  29 3a 57 6b 24 3d 22 22  |%,17,Wj$):Wk$=""|
000052d0  3a f2 56 7a 28 58 58 25  2c 32 38 2c 57 6b 24 29  |:.Vz(XX%,28,Wk$)|
000052e0  3a f2 62 55 28 58 61 25  2c 55 6d 25 2c 30 29 3a  |:.bU(Xa%,Um%,0):|
000052f0  f2 61 7a 3a f2 58 76 28  58 67 25 29 0d 30 0c 05  |.az:.Xv(Xg%).0..|
00005300  cb 0d 30 20 0e c9 39 3a  c8 8e 55 6d 25 20 ca 0d  |..0 ..9:..Um% ..|
00005310  30 34 0a c9 33 3a f2 61  7a 0d 30 3e 4f c9 34 3a  |04..3:.az.0>O.4:|
00005320  f2 62 55 28 58 61 25 2c  55 6d 25 2c 31 29 3a 55  |.bU(Xa%,Um%,1):U|
00005330  61 24 3d 57 66 24 3a 5a  65 25 3d 56 73 25 3a 56  |a$=Wf$:Ze%=Vs%:V|
00005340  73 25 3d 30 3a f2 58 56  28 55 61 24 29 3a 56 73  |s%=0:.XV(Ua$):Vs|
00005350  25 3d 5a 65 25 3a f2 62  55 28 58 61 25 2c 55 6d  |%=Ze%:.bU(Xa%,Um|
00005360  25 2c 30 29 3a f2 61 7a  0d 30 5c 05 cb 0d 30 66  |%,0):.az.0\...0f|
00005370  07 cb 3a e1 0d 30 84 1e  dd f2 61 7a 3a f2 58 76  |..:..0....az:.Xv|
00005380  28 58 61 25 29 3a f2 61  65 28 58 61 25 2c a3 29  |(Xa%):.ae(Xa%,.)|
00005390  3a e1 0d 30 ac 32 dd f2  58 5a 3a f2 58 7a 28 58  |:..0.2..XZ:.Xz(X|
000053a0  5a 25 2c a3 29 3a f2 56  7a 28 58 5a 25 2c 31 2c  |Z%,.):.Vz(XZ%,1,|
000053b0  58 5a 24 29 3a ef 37 3a  f2 61 65 28 58 5a 25 2c  |XZ$):.7:.ae(XZ%,|
000053c0  b9 29 3a e1 0d 30 de 15  dd f2 59 79 28 55 6d 25  |.):..0....Yy(Um%|
000053d0  29 3a c8 8e 55 6d 25 20  ca 0d 30 f2 1a c9 33 3a  |):..Um% ..0...3:|
000053e0  f2 58 76 28 58 5a 25 29  3a f2 61 65 28 58 5a 25  |.Xv(XZ%):.ae(XZ%|
000053f0  2c a3 29 0d 30 fc 07 cb  3a e1 0d 31 42 9a dd a4  |,.).0...:..1B...|
00005400  56 6e 28 62 58 24 29 3a  ea 56 6d 25 3a c8 99 26  |Vn(bX$):.Vm%:..&|
00005410  34 30 30 43 30 2c 32 30  30 2c 26 34 42 35 33 34  |400C0,200,&4B534|
00005420  31 35 34 2c 62 58 24 20  b8 55 57 25 2c 56 6d 25  |154,bX$ .UW%,Vm%|
00005430  3a 55 5a 25 3d a3 3a 62  59 25 3d 32 3a 59 6f 25  |:UZ%=.:bY%=2:Yo%|
00005440  3d 34 3a 62 5a 25 3d 31  3a 62 61 25 3d 55 68 25  |=4:bZ%=1:ba%=Uh%|
00005450  3a 5a 71 25 3d 2d 31 3a  59 6c 25 3d 30 3a 59 6d  |:Zq%=-1:Yl%=0:Ym|
00005460  25 3d 30 3a 56 71 25 3d  2d 31 3a 58 5a 24 3d 22  |%=0:Vq%=-1:XZ$="|
00005470  22 3a 62 62 24 3d 22 4e  4f 22 3a 62 63 24 3d 22  |":bb$="NO":bc$="|
00005480  30 22 3a 62 64 24 3d 22  22 3a 58 79 25 3d b9 3a  |0":bd$="":Xy%=.:|
00005490  3d 56 6d 25 0d 31 9c ab  dd a4 56 70 28 55 78 25  |=Vm%.1....Vp(Ux%|
000054a0  2c 62 65 25 29 3a ea 55  6d 25 3a 21 55 67 25 3d  |,be%):.Um%:!Ug%=|
000054b0  62 65 25 3a 55 67 25 21  34 3d 30 3a 55 67 25 21  |be%:Ug%!4=0:Ug%!|
000054c0  38 3d 30 3a 55 67 25 21  31 32 3d 55 78 25 3a 55  |8=0:Ug%!12=Ux%:U|
000054d0  67 25 21 31 36 3d 36 38  3a 55 67 25 21 32 30 3d  |g%!16=68:Ug%!20=|
000054e0  26 33 31 30 32 3a 5a 64  24 3d 22 21 22 2b 55 56  |&3102:Zd$="!"+UV|
000054f0  24 3a de 55 67 25 21 32  34 20 28 a9 5a 64 24 2b  |$:.Ug%!24 (.Zd$+|
00005500  31 29 3a 24 28 55 67 25  21 32 34 29 3d 5a 64 24  |1):$(Ug%!24)=Zd$|
00005510  3a 55 67 25 21 32 38 3d  31 3a 55 67 25 21 33 32  |:Ug%!28=1:Ug%!32|
00005520  3d a9 5a 64 24 2b 31 3a  c8 99 26 34 30 30 43 32  |=.Zd$+1:..&400C2|
00005530  2c 2c 55 67 25 20 b8 55  6d 25 3a 3d 55 6d 25 0d  |,,Ug% .Um%:=Um%.|
00005540  31 f6 2f dd f2 56 77 28  62 66 24 29 3a c8 99 26  |1./..Vw(bf$):..&|
00005550  34 30 30 45 44 2c 32 35  36 2c 62 66 25 2c 62 66  |400ED,256,bf%,bf|
00005560  24 2c 2c 2c 2c 55 6b 25  2c 55 6c 25 3a e1 0d 32  |$,,,,Uk%,Ul%:..2|
00005570  1e 3d dd a4 55 62 28 62  67 25 29 3a ea 69 25 2c  |.=..Ub(bg%):.i%,|
00005580  62 68 24 2c 61 24 3a c8  99 26 31 30 20 b8 62 68  |bh$,a$:..&10 .bh|
00005590  24 3a 69 25 3d a7 62 68  24 2c bd 33 34 29 3a e7  |$:i%=.bh$,.34):.|
000055a0  69 25 3d 30 20 8c 61 24  3d 22 22 0d 32 46 0c e7  |i%=0 .a$="".2F..|
000055b0  69 25 3c 3e 30 20 8c 0d  32 50 56 69 25 3d a7 62  |i%<>0 ..2PVi%=.b|
000055c0  68 24 2c bd 33 34 2c 69  25 2b 31 29 3a 62 68 24  |h$,.34,i%+1):bh$|
000055d0  3d c1 62 68 24 2c 69 25  2b 32 29 3a c8 95 62 67  |=.bh$,i%+2):..bg|
000055e0  25 3e 30 3a 69 25 3d a7  62 68 24 2c bd 33 32 29  |%>0:i%=.bh$,.32)|
000055f0  3a 62 67 25 2d 3d 31 3a  e7 62 67 25 3e 30 20 62  |:bg%-=1:.bg%>0 b|
00005600  68 24 3d c1 62 68 24 2c  69 25 2b 31 29 0d 32 78  |h$=.bh$,i%+1).2x|
00005610  17 e7 69 25 3d 30 20 80  62 67 25 3e 30 20 8c 61  |..i%=0 .bg%>0 .a|
00005620  24 3d 22 22 0d 32 82 22  ce 3a e7 69 25 3c 3e 30  |$="".2.".:.i%<>0|
00005630  20 84 62 67 25 3d 30 20  8c 61 24 3d c0 62 68 24  | .bg%=0 .a$=.bh$|
00005640  2c 69 25 2d 31 29 0d 32  96 09 cd 3a 3d 61 24 0d  |,i%-1).2...:=a$.|
00005650  32 b4 1b dd f2 58 6c 28  59 67 25 29 3a e7 59 67  |2....Xl(Yg%):.Yg|
00005660  25 21 34 3d 56 6d 25 20  8c e1 0d 32 c8 0e c8 8e  |%!4=Vm% ...2....|
00005670  59 67 25 21 31 36 20 ca  0d 32 d2 0c c9 30 3a 55  |Yg%!16 ..2...0:U|
00005680  5a 25 3d b9 0d 32 dc 3a  c9 32 3a 59 67 25 21 31  |Z%=..2.:.2:Yg%!1|
00005690  32 3d 59 67 25 21 38 3a  59 67 25 21 31 36 3d 33  |2=Yg%!8:Yg%!16=3|
000056a0  3a c8 99 26 34 30 30 45  37 2c 31 37 2c 59 67 25  |:..&400E7,17,Yg%|
000056b0  2c 59 67 25 21 32 30 3a  e7 62 69 25 20 8c 0d 33  |,Yg%!20:.bi% ..3|
000056c0  04 30 62 69 25 3d a3 3a  62 56 24 3d a4 62 6a 28  |.0bi%=.:bV$=.bj(|
000056d0  59 67 25 2b 34 34 29 3a  c8 99 26 38 2c 26 31 31  |Yg%+44):..&8,&11|
000056e0  2c 62 56 24 20 b8 61 25  3a e7 61 25 20 8c 0d 33  |,bV$ .a%:.a% ..3|
000056f0  22 4e 58 61 24 3d 22 41  20 66 69 6c 65 20 6f 66  |"NXa$="A file of|
00005700  20 74 68 61 74 20 6e 61  6d 65 20 61 6c 72 65 61  | that name alrea|
00005710  64 79 20 65 78 69 73 74  73 2e 20 44 6f 20 79 6f  |dy exists. Do yo|
00005720  75 20 77 61 6e 74 20 74  6f 20 6f 76 65 72 77 72  |u want to overwr|
00005730  69 74 65 3f 22 3a f2 58  61 28 33 29 0d 33 36 20  |ite?":.Xa(3).36 |
00005740  cc 3a f2 58 56 28 62 56  24 29 3a f2 62 57 28 59  |.:.XV(bV$):.bW(Y|
00005750  67 25 29 3a e7 56 73 25  3c 33 20 8c 0d 33 54 1b  |g%):.Vs%<3 ..3T.|
00005760  e7 56 73 25 3d 30 20 8c  55 61 24 3d 62 56 24 8b  |.Vs%=0 .Ua$=bV$.|
00005770  55 61 24 3d 57 66 24 0d  33 5e 0c cc 57 63 24 3d  |Ua$=Wf$.3^..Wc$=|
00005780  62 56 24 0d 33 68 05 cd  0d 33 72 05 cd 0d 33 7c  |bV$.3h...3r...3||
00005790  05 cd 0d 33 86 14 c9 33  3a e7 59 67 25 21 34 30  |...3...3:.Yg%!40|
000057a0  3d 57 69 25 20 8c 0d 33  9a 2a e7 59 67 25 21 32  |=Wi% ..3.*.Yg%!2|
000057b0  30 3d 57 79 25 20 84 28  59 67 25 21 32 30 3d 2d  |0=Wy% .(Yg%!20=-|
000057c0  32 20 80 59 67 25 21 32  34 3d 56 6f 25 29 20 8c  |2 .Yg%!24=Vo%) .|
000057d0  0d 33 a4 1c 55 61 24 3d  a4 62 6a 28 59 67 25 2b  |.3..Ua$=.bj(Yg%+|
000057e0  34 34 29 3a f2 55 63 28  55 61 24 29 0d 33 ae 05  |44):.Uc(Ua$).3..|
000057f0  cd 0d 33 b8 05 cd 0d 33  c2 14 c9 35 3a e7 59 67  |..3....3...5:.Yg|
00005800  25 21 34 30 3d 57 69 25  20 8c 0d 33 d6 49 55 61  |%!40=Wi% ..3.IUa|
00005810  24 3d a4 62 6a 28 59 67  25 2b 34 34 29 3a 59 67  |$=.bj(Yg%+44):Yg|
00005820  25 21 31 32 3d 59 67 25  21 38 3a 59 67 25 21 31  |%!12=Yg%!8:Yg%!1|
00005830  36 3d 34 3a c8 99 26 34  30 30 45 37 2c 31 39 2c  |6=4:..&400E7,19,|
00005840  55 67 25 2c 59 67 25 21  32 30 3a f2 55 63 28 55  |Ug%,Yg%!20:.Uc(U|
00005850  61 24 29 0d 33 fe 05 cd  0d 34 08 12 c9 26 35 30  |a$).3....4...&50|
00005860  32 3a f2 59 66 28 59 67  25 29 0d 34 12 14 c9 26  |2:.Yf(Yg%).4...&|
00005870  34 30 30 43 31 3a f2 56  77 28 56 76 24 29 0d 34  |400C1:.Vw(Vv$).4|
00005880  1c 07 cb 3a e1 0d 34 3a  35 dd a4 55 65 28 62 6b  |...:..4:5..Ue(bk|
00005890  25 29 3a ea 58 75 25 3a  55 67 25 21 30 3d 62 6b  |%):.Xu%:Ug%!0=bk|
000058a0  25 3a c8 99 26 34 30 30  43 37 2c 30 2c 55 67 25  |%:..&400C7,0,Ug%|
000058b0  20 b8 58 75 25 3a 3d 58  75 25 0d 34 94 8e dd f2  | .Xu%:=Xu%.4....|
000058c0  55 59 3a 57 70 25 3d a3  3a ef 36 2c 33 3a c8 99  |UY:Wp%=.:.6,3:..|
000058d0  26 34 30 36 43 32 3a c8  99 26 34 30 30 44 30 2c  |&406C2:..&400D0,|
000058e0  2c 2d 31 3a 21 55 67 25  3d 9f 3a 55 59 24 3d f6  |,-1:!Ug%=.:UY$=.|
000058f0  24 2b 22 20 28 69 6e 74  65 72 6e 61 6c 20 65 72  |$+" (internal er|
00005900  72 6f 72 20 63 6f 64 65  20 22 2b c3 28 9f 29 2b  |ror code "+.(.)+|
00005910  22 29 20 61 74 20 6c 69  6e 65 20 22 2b c3 28 9e  |") at line "+.(.|
00005920  29 3a 24 28 55 67 25 2b  34 29 3d 55 59 24 2b bd  |):$(Ug%+4)=UY$+.|
00005930  28 30 29 3a c8 99 26 34  30 30 44 46 2c 55 67 25  |(0):..&400DF,Ug%|
00005940  2c 31 2c 55 56 24 3a e1  0d 35 0c 71 dd a4 57 7a  |,1,UV$:..5.q..Wz|
00005950  28 57 7a 24 29 3a ea 63  25 2c 62 6c 25 3a 62 6c  |(Wz$):.c%,bl%:bl|
00005960  25 3d 55 6a 25 2b 26 31  30 30 30 3a c8 99 26 34  |%=Uj%+&1000:..&4|
00005970  30 30 44 42 2c 2c 55 67  25 2c 55 6a 25 2c 62 6c  |00DB,,Ug%,Uj%,bl|
00005980  25 2c 56 6b 25 2c 57 7a  24 2c 30 20 b8 2c 2c 55  |%,Vk%,Wz$,0 .,,U|
00005990  6a 25 2c 2c 2c 2c 63 25  3a 55 67 25 21 36 34 3d  |j%,,,,c%:Ug%!64=|
000059a0  62 66 25 3a c8 99 26 34  30 30 43 31 2c 2c 55 67  |bf%:..&400C1,,Ug|
000059b0  25 20 b8 63 25 3a 3d 63  25 0d 35 52 53 dd f2 58  |% .c%:=c%.5RS..X|
000059c0  7a 28 59 67 25 2c 62 6d  25 29 3a ea 62 6e 25 2c  |z(Yg%,bm%):.bn%,|
000059d0  62 6f 25 2c 62 70 25 2c  62 71 25 2c 62 72 25 2c  |bo%,bp%,bq%,br%,|
000059e0  62 73 25 3a 55 67 25 21  30 3d 59 67 25 3a e7 20  |bs%:Ug%!0=Yg%:. |
000059f0  ac 62 6d 25 c8 99 26 34  30 30 43 42 2c 30 2c 55  |.bm%..&400CB,0,U|
00005a00  67 25 3a 55 67 25 21 32  38 3d 2d 31 0d 35 7a 1d  |g%:Ug%!28=-1.5z.|
00005a10  c8 99 26 34 30 30 43 35  2c 30 2c 55 67 25 3a e7  |..&400C5,0,Ug%:.|
00005a20  59 67 25 3d 58 57 25 20  8c 0d 35 8e c7 62 6e 25  |Yg%=XW% ..5..bn%|
00005a30  3d 55 67 25 21 34 3a 62  6f 25 3d 55 67 25 21 38  |=Ug%!4:bo%=Ug%!8|
00005a40  3a 62 70 25 3d 55 67 25  21 31 36 3a 62 71 25 3d  |:bp%=Ug%!16:bq%=|
00005a50  55 67 25 21 32 38 3a 21  55 67 25 3d 58 69 25 3a  |Ug%!28:!Ug%=Xi%:|
00005a60  c8 99 26 34 30 30 43 42  2c 2c 55 67 25 3a 62 72  |..&400CB,,Ug%:br|
00005a70  25 3d 55 67 25 21 31 32  2d 55 67 25 21 34 3a 62  |%=Ug%!12-Ug%!4:b|
00005a80  73 25 3d 55 67 25 21 31  36 2d 55 67 25 21 38 3a  |s%=Ug%!16-Ug%!8:|
00005a90  55 67 25 21 34 3d 62 6e  25 2d 62 72 25 2d 32 3a  |Ug%!4=bn%-br%-2:|
00005aa0  55 67 25 21 38 3d 62 6f  25 2d 62 73 25 3a 55 67  |Ug%!8=bo%-bs%:Ug|
00005ab0  25 21 31 32 3d 62 6e 25  2b 62 72 25 3a 55 67 25  |%!12=bn%+br%:Ug%|
00005ac0  21 31 36 3d 62 6f 25 2b  28 62 70 25 2d 62 6f 25  |!16=bo%+(bp%-bo%|
00005ad0  29 3a 55 67 25 21 32 38  3d 62 71 25 3a c8 99 26  |):Ug%!28=bq%:..&|
00005ae0  34 30 30 45 37 2c 32 2c  55 67 25 2c 21 55 67 25  |400E7,2,Ug%,!Ug%|
00005af0  0d 35 ca 10 cd 3a e7 59  67 25 3d 57 79 25 20 8c  |.5...:.Yg%=Wy% .|
00005b00  0d 35 de b8 62 6e 25 3d  55 67 25 21 34 3a 62 6f  |.5..bn%=Ug%!4:bo|
00005b10  25 3d 55 67 25 21 38 3a  62 71 25 3d 55 67 25 21  |%=Ug%!8:bq%=Ug%!|
00005b20  32 38 3a 21 55 67 25 3d  57 77 25 3a c8 99 26 34  |28:!Ug%=Ww%:..&4|
00005b30  30 30 43 42 2c 2c 55 67  25 3a 62 72 25 3d 55 67  |00CB,,Ug%:br%=Ug|
00005b40  25 21 31 32 2d 55 67 25  21 34 3a 62 73 25 3d 55  |%!12-Ug%!4:bs%=U|
00005b50  67 25 21 31 36 2d 55 67  25 21 38 3a 55 67 25 21  |g%!16-Ug%!8:Ug%!|
00005b60  34 3d 62 6e 25 3a 55 67  25 21 38 3d 62 6f 25 2d  |4=bn%:Ug%!8=bo%-|
00005b70  62 73 25 2d 34 32 3a 55  67 25 21 31 32 3d 62 6e  |bs%-42:Ug%!12=bn|
00005b80  25 2b 62 72 25 3a 55 67  25 21 31 36 3d 62 6f 25  |%+br%:Ug%!16=bo%|
00005b90  2d 34 32 3a 55 67 25 21  32 38 3d 62 71 25 3a c8  |-42:Ug%!28=bq%:.|
00005ba0  99 26 34 30 30 45 37 2c  32 2c 55 67 25 2c 21 55  |.&400E7,2,Ug%,!U|
00005bb0  67 25 3a 57 68 25 3d b9  0d 36 1a 10 cd 3a e7 59  |g%:Wh%=..6...:.Y|
00005bc0  67 25 3d 58 58 25 20 8c  0d 36 2e c7 62 6e 25 3d  |g%=XX% ..6..bn%=|
00005bd0  55 67 25 21 34 3a 62 6f  25 3d 55 67 25 21 38 3a  |Ug%!4:bo%=Ug%!8:|
00005be0  62 70 25 3d 55 67 25 21  31 36 3a 62 71 25 3d 55  |bp%=Ug%!16:bq%=U|
00005bf0  67 25 21 32 38 3a 21 55  67 25 3d 58 6a 25 3a c8  |g%!28:!Ug%=Xj%:.|
00005c00  99 26 34 30 30 43 42 2c  2c 55 67 25 3a 62 72 25  |.&400CB,,Ug%:br%|
00005c10  3d 55 67 25 21 31 32 2d  55 67 25 21 34 3a 62 73  |=Ug%!12-Ug%!4:bs|
00005c20  25 3d 55 67 25 21 31 36  2d 55 67 25 21 38 3a 55  |%=Ug%!16-Ug%!8:U|
00005c30  67 25 21 34 3d 62 6e 25  2d 62 72 25 2d 32 3a 55  |g%!4=bn%-br%-2:U|
00005c40  67 25 21 38 3d 62 6f 25  2d 62 73 25 3a 55 67 25  |g%!8=bo%-bs%:Ug%|
00005c50  21 31 32 3d 62 6e 25 2b  62 72 25 3a 55 67 25 21  |!12=bn%+br%:Ug%!|
00005c60  31 36 3d 62 6f 25 2b 28  62 70 25 2d 62 6f 25 29  |16=bo%+(bp%-bo%)|
00005c70  3a 55 67 25 21 32 38 3d  62 71 25 3a c8 99 26 34  |:Ug%!28=bq%:..&4|
00005c80  30 30 45 37 2c 32 2c 55  67 25 2c 21 55 67 25 0d  |00E7,2,Ug%,!Ug%.|
00005c90  36 6a 13 cd 3a e7 59 67  25 3d 58 64 25 20 8c f2  |6j..:.Yg%=Xd% ..|
00005ca0  62 74 0d 36 7e 11 e7 59  67 25 3d 58 62 25 20 8c  |bt.6~..Yg%=Xb% .|
00005cb0  f2 62 75 0d 36 88 05 e1  0d 36 9c 9e dd f2 62 74  |.bu.6....6....bt|
00005cc0  3a 55 67 25 21 34 30 3d  58 63 25 3a c8 99 26 34  |:Ug%!40=Xc%:..&4|
00005cd0  30 30 43 42 2c 2c 55 67  25 2b 34 30 3a 55 67 25  |00CB,,Ug%+40:Ug%|
00005ce0  21 36 38 3d 55 67 25 21  32 38 3a 55 67 25 21 34  |!68=Ug%!28:Ug%!4|
00005cf0  34 3d 55 67 25 21 34 2b  31 38 3a 55 67 25 21 34  |4=Ug%!4+18:Ug%!4|
00005d00  38 3d 55 67 25 21 31 36  2d 28 36 34 2b 32 33 38  |8=Ug%!16-(64+238|
00005d10  29 3a 55 67 25 21 35 32  3d 55 67 25 21 34 2b 28  |):Ug%!52=Ug%!4+(|
00005d20  31 38 2b 32 39 38 29 3a  55 67 25 21 35 36 3d 55  |18+298):Ug%!56=U|
00005d30  67 25 21 31 36 2d 36 34  3a c8 99 26 34 30 30 43  |g%!16-64:..&400C|
00005d40  35 2c 2c 55 67 25 2b 34  30 3a 55 67 25 21 32 38  |5,,Ug%+40:Ug%!28|
00005d50  3d 58 63 25 3a e1 0d 36  ec a6 dd f2 62 75 3a 55  |=Xc%:..6....bu:U|
00005d60  67 25 21 34 30 3d 58 65  25 3a c8 99 26 34 30 30  |g%!40=Xe%:..&400|
00005d70  43 42 2c 2c 55 67 25 2b  34 30 3a 55 67 25 21 36  |CB,,Ug%+40:Ug%!6|
00005d80  38 3d 55 67 25 21 32 38  3a 55 67 25 21 34 34 3d  |8=Ug%!28:Ug%!44=|
00005d90  55 67 25 21 34 2b 32 32  32 2b 32 3a 55 67 25 21  |Ug%!4+222+2:Ug%!|
00005da0  34 38 3d 55 67 25 21 31  36 2d 28 31 34 38 2b 32  |48=Ug%!16-(148+2|
00005db0  33 32 29 3a 55 67 25 21  35 32 3d 55 67 25 21 34  |32):Ug%!52=Ug%!4|
00005dc0  2b 28 32 32 32 2b 33 35  30 2b 34 29 3a 55 67 25  |+(222+350+4):Ug%|
00005dd0  21 35 36 3d 55 67 25 21  31 36 2d 31 33 36 3a c8  |!56=Ug%!16-136:.|
00005de0  99 26 34 30 30 43 35 2c  2c 55 67 25 2b 34 30 3a  |.&400C5,,Ug%+40:|
00005df0  55 67 25 21 32 38 3d 58  65 25 3a e1 0d 37 3c 5c  |Ug%!28=Xe%:..7<\|
00005e00  dd f2 59 61 28 59 67 25  29 3a ea 62 76 25 3a 55  |..Ya(Yg%):.bv%:U|
00005e10  67 25 21 30 3d 59 67 25  3a c8 99 26 34 30 30 43  |g%!0=Yg%:..&400C|
00005e20  38 2c 30 2c 55 67 25 20  b8 62 76 25 3a c8 95 62  |8,0,Ug% .bv%:..b|
00005e30  76 25 3a c8 99 26 38 31  36 38 31 2c 2c 55 67 25  |v%:..&81681,,Ug%|
00005e40  3a c8 99 26 34 30 30 43  41 2c 30 2c 55 67 25 20  |:..&400CA,0,Ug% |
00005e50  b8 62 76 25 3a ce 3a e1  0d 37 96 28 dd f2 58 76  |.bv%:.:..7.(..Xv|
00005e60  28 59 67 25 29 3a 55 67  25 21 30 3d 59 67 25 3a  |(Yg%):Ug%!0=Yg%:|
00005e70  c8 99 26 34 30 30 43 36  2c 30 2c 55 67 25 3a e1  |..&400C6,0,Ug%:.|
00005e80  0d 37 be 57 dd f2 62 77  28 57 7a 25 2c 62 78 24  |.7.W..bw(Wz%,bx$|
00005e90  29 3a 21 55 67 25 3d 57  7a 25 3a c8 99 26 34 30  |):!Ug%=Wz%:..&40|
00005ea0  30 43 43 2c 2c 55 67 25  3a e7 28 28 55 67 25 21  |0CC,,Ug%:.((Ug%!|
00005eb0  36 30 29 20 80 26 31 30  30 29 3d 30 85 31 2c 22  |60) .&100)=0.1,"|
00005ec0  54 69 74 6c 65 20 69 73  6e 27 74 20 69 6e 64 69  |Title isn't indi|
00005ed0  72 65 63 74 65 64 22 0d  37 e6 2b 24 28 55 67 25  |rected".7.+$(Ug%|
00005ee0  21 37 36 29 3d 62 78 24  3a e7 28 28 55 67 25 21  |!76)=bx$:.((Ug%!|
00005ef0  33 32 29 20 80 28 31 3c  3c 31 36 29 29 3c 3e 30  |32) .(1<<16))<>0|
00005f00  20 8c 0d 37 fa 2d c8 99  26 34 30 30 44 31 2c 2d  | ..7.-..&400D1,-|
00005f10  31 2c 55 67 25 21 34 2c  55 67 25 21 31 36 2c 55  |1,Ug%!4,Ug%!16,U|
00005f20  67 25 21 31 32 2c 55 67  25 21 31 36 2b 34 34 0d  |g%!12,Ug%!16+44.|
00005f30  38 04 07 cd 3a e1 0d 38  22 64 dd f2 62 79 28 57  |8...:..8"d..by(W|
00005f40  7a 25 2c 21 55 67 25 2c  55 67 25 21 34 2c 55 67  |z%,!Ug%,Ug%!4,Ug|
00005f50  25 21 38 2c 55 67 25 21  31 32 29 3a c8 99 26 34  |%!8,Ug%!12):..&4|
00005f60  30 30 44 37 2c 57 7a 25  2c 55 67 25 3a 21 55 67  |00D7,Wz%,Ug%:!Ug|
00005f70  25 3d 57 7a 25 3a c8 99  26 34 30 30 43 42 2c 2c  |%=Wz%:..&400CB,,|
00005f80  55 67 25 3a e7 28 55 67  25 21 33 32 29 80 28 31  |Ug%:.(Ug%!32).(1|
00005f90  3c 3c 31 36 29 3c 3e 30  20 8c 0d 38 54 37 c8 99  |<<16)<>0 ..8T7..|
00005fa0  26 34 30 30 43 35 2c 2c  55 67 25 3a c8 99 26 34  |&400C5,,Ug%:..&4|
00005fb0  30 30 44 31 2c 2d 31 2c  55 67 25 21 34 2c 55 67  |00D1,-1,Ug%!4,Ug|
00005fc0  25 21 38 2c 55 67 25 21  31 32 2c 55 67 25 21 31  |%!8,Ug%!12,Ug%!1|
00005fd0  36 0d 38 68 07 cd 3a e1  0d 38 ae 86 dd a4 62 7a  |6.8h..:..8....bz|
00005fe0  28 57 7a 25 2c 63 55 25  2c 63 56 25 2c 63 57 25  |(Wz%,cU%,cV%,cW%|
00005ff0  2c 63 58 25 2c 57 6d 25  2c 59 69 24 2c 63 59 25  |,cX%,Wm%,Yi$,cY%|
00006000  2c 63 5a 25 2c 63 61 25  29 3a ea 59 67 25 3a 55  |,cZ%,ca%):.Yg%:U|
00006010  67 25 21 30 3d 57 7a 25  3a 55 67 25 21 34 3d 63  |g%!0=Wz%:Ug%!4=c|
00006020  55 25 3a 55 67 25 21 38  3d 63 56 25 3a 55 67 25  |U%:Ug%!8=cV%:Ug%|
00006030  21 31 32 3d 63 55 25 2b  63 57 25 3a 55 67 25 21  |!12=cU%+cW%:Ug%!|
00006040  31 36 3d 63 56 25 2b 63  58 25 3a 55 67 25 21 32  |16=cV%+cX%:Ug%!2|
00006050  30 3d 57 6d 25 3a e7 63  59 25 3d 30 20 8c 0d 38  |0=Wm%:.cY%=0 ..8|
00006060  e0 11 24 28 55 67 25 2b  32 34 29 3d 59 69 24 0d  |..$(Ug%+24)=Yi$.|
00006070  38 ea 25 cc 55 67 25 21  32 34 3d 63 59 25 3a 55  |8.%.Ug%!24=cY%:U|
00006080  67 25 21 32 38 3d 63 5a  25 3a 55 67 25 21 33 32  |g%!28=cZ%:Ug%!32|
00006090  3d 63 61 25 0d 38 f4 1d  cd 3a c8 99 26 34 30 30  |=ca%.8...:..&400|
000060a0  43 32 2c 2c 55 67 25 20  b8 59 67 25 3a 3d 59 67  |C2,,Ug% .Yg%:=Yg|
000060b0  25 0d 39 1c 3b dd f2 56  7a 28 68 25 2c 69 25 2c  |%.9.;..Vz(h%,i%,|
000060c0  59 69 24 29 3a f2 5a 61  28 68 25 2c 69 25 29 3a  |Yi$):.Za(h%,i%):|
000060d0  24 55 67 25 21 32 38 3d  59 69 24 3a f2 58 78 28  |$Ug%!28=Yi$:.Xx(|
000060e0  68 25 2c 69 25 2c 30 2c  30 29 3a e1 0d 39 44 4a  |h%,i%,0,0):..9DJ|
000060f0  dd f2 59 55 28 59 67 25  2c 55 6d 25 29 3a ea 63  |..YU(Yg%,Um%):.c|
00006100  62 25 3a f2 5a 61 28 59  67 25 2c 55 6d 25 29 3a  |b%:.Za(Yg%,Um%):|
00006110  63 62 25 3d a9 28 5a 64  24 29 3a c8 99 26 34 30  |cb%=.(Zd$):..&40|
00006120  30 44 32 2c 59 67 25 2c  55 6d 25 2c 2c 2c 2d 31  |0D2,Yg%,Um%,,,-1|
00006130  2c 63 62 25 3a e1 0d 39  80 7a dd f2 5a 61 28 59  |,cb%:..9.z..Za(Y|
00006140  67 25 2c 55 6d 25 29 3a  55 67 25 21 30 3d 59 67  |g%,Um%):Ug%!0=Yg|
00006150  25 3a 55 67 25 21 34 3d  55 6d 25 3a c8 99 26 34  |%:Ug%!4=Um%:..&4|
00006160  30 30 43 45 2c 2c 55 67  25 3a 63 63 25 3d 55 67  |00CE,,Ug%:cc%=Ug|
00006170  25 21 38 3a 63 64 25 3d  55 67 25 21 31 32 3a 63  |%!8:cd%=Ug%!12:c|
00006180  65 25 3d 55 67 25 21 31  36 3a 63 66 25 3d 55 67  |e%=Ug%!16:cf%=Ug|
00006190  25 21 32 30 3a 63 67 25  3d 55 67 25 21 32 34 3a  |%!20:cg%=Ug%!24:|
000061a0  e7 28 63 67 25 20 80 26  31 30 30 29 3e 30 20 8c  |.(cg% .&100)>0 .|
000061b0  0d 39 b2 0f 5a 64 24 3d  24 55 67 25 21 32 38 0d  |.9..Zd$=$Ug%!28.|
000061c0  39 bc 12 cc 5a 64 24 3d  24 28 55 67 25 2b 32 38  |9...Zd$=$(Ug%+28|
000061d0  29 0d 39 c6 07 cd 3a e1  0d 39 e4 51 dd f2 58 78  |).9...:..9.Q..Xx|
000061e0  28 59 67 25 2c 55 6d 25  2c 63 68 25 2c 62 6b 25  |(Yg%,Um%,ch%,bk%|
000061f0  29 3a 21 55 67 25 3d 59  67 25 3a 55 67 25 21 34  |):!Ug%=Yg%:Ug%!4|
00006200  3d 55 6d 25 3a 55 67 25  21 38 3d 63 68 25 3a 55  |=Um%:Ug%!8=ch%:U|
00006210  67 25 21 31 32 3d 62 6b  25 3a c8 99 26 34 30 30  |g%!12=bk%:..&400|
00006220  43 44 2c 2c 55 67 25 3a  e1 0d 3a 16 4b dd f2 5a  |CD,,Ug%:..:.K..Z|
00006230  76 28 59 67 25 2c 55 6d  25 29 3a f2 5a 61 28 59  |v(Yg%,Um%):.Za(Y|
00006240  67 25 2c 55 6d 25 29 3a  c8 99 26 34 30 30 43 34  |g%,Um%):..&400C4|
00006250  2c 2c 55 67 25 3a c8 99  26 34 30 30 44 31 2c 59  |,,Ug%:..&400D1,Y|
00006260  67 25 2c 63 63 25 2c 63  64 25 2c 63 65 25 2c 63  |g%,cc%,cd%,ce%,c|
00006270  66 25 3a e1 0d 3a 48 38  dd a4 5a 77 28 59 67 25  |f%:..:H8..Zw(Yg%|
00006280  2c 55 6d 25 29 3a 63 69  25 3d a4 63 6a 28 55 67  |,Um%):ci%=.cj(Ug|
00006290  25 2c 59 67 25 2c 55 6d  25 2c 22 72 61 64 69 6f  |%,Yg%,Um%,"radio|
000062a0  6f 6e 22 2c 2d 31 29 3a  3d 26 46 46 0d 3a 70 39  |on",-1):=&FF.:p9|
000062b0  dd a4 5a 78 28 59 67 25  2c 55 6d 25 29 3a 63 69  |..Zx(Yg%,Um%):ci|
000062c0  25 3d a4 63 6a 28 55 67  25 2c 59 67 25 2c 55 6d  |%=.cj(Ug%,Yg%,Um|
000062d0  25 2c 22 72 61 64 69 6f  6f 66 66 22 2c 2d 31 29  |%,"radiooff",-1)|
000062e0  3a 3d 26 30 30 0d 3a 98  36 dd a4 61 5a 28 59 67  |:=&00.:.6..aZ(Yg|
000062f0  25 2c 55 6d 25 29 3a 63  69 25 3d a4 63 6a 28 55  |%,Um%):ci%=.cj(U|
00006300  67 25 2c 59 67 25 2c 55  6d 25 2c 22 6f 70 74 6f  |g%,Yg%,Um%,"opto|
00006310  6e 22 2c 2d 31 29 3a 3d  26 46 46 0d 3a c0 37 dd  |n",-1):=&FF.:.7.|
00006320  a4 61 58 28 59 67 25 2c  55 6d 25 29 3a 63 69 25  |.aX(Yg%,Um%):ci%|
00006330  3d a4 63 6a 28 55 67 25  2c 59 67 25 2c 55 6d 25  |=.cj(Ug%,Yg%,Um%|
00006340  2c 22 6f 70 74 6f 66 66  22 2c 2d 31 29 3a 3d 26  |,"optoff",-1):=&|
00006350  30 30 0d 3a e8 b7 dd a4  63 6a 28 55 67 25 2c 59  |00.:....cj(Ug%,Y|
00006360  67 25 2c 55 6d 25 2c 55  79 24 2c 63 6b 25 29 3a  |g%,Um%,Uy$,ck%):|
00006370  55 67 25 21 30 3d 59 67  25 3a 55 67 25 21 34 3d  |Ug%!0=Yg%:Ug%!4=|
00006380  55 6d 25 3a c8 99 26 34  30 30 43 45 2c 2c 55 67  |Um%:..&400CE,,Ug|
00006390  25 3a c8 99 26 34 30 30  43 34 2c 2c 55 67 25 3a  |%:..&400C4,,Ug%:|
000063a0  55 67 25 21 34 3d 55 67  25 21 38 3a 55 67 25 21  |Ug%!4=Ug%!8:Ug%!|
000063b0  38 3d 55 67 25 21 31 32  3a 55 67 25 21 31 32 3d  |8=Ug%!12:Ug%!12=|
000063c0  55 67 25 21 31 36 3a 55  67 25 21 31 36 3d 55 67  |Ug%!16:Ug%!16=Ug|
000063d0  25 21 32 30 3a 55 67 25  21 32 30 3d 55 67 25 21  |%!20:Ug%!20=Ug%!|
000063e0  32 34 3a 24 28 55 67 25  2b 32 34 29 3d 55 79 24  |24:$(Ug%+24)=Uy$|
000063f0  3a c8 99 26 34 30 30 43  32 2c 2c 55 67 25 20 b8  |:..&400C2,,Ug% .|
00006400  55 6d 3a e7 63 6b 25 20  8c 0d 3b 38 2c c8 99 26  |Um:.ck% ..;8,..&|
00006410  34 30 30 44 31 2c 55 67  25 21 30 2c 55 67 25 21  |400D1,Ug%!0,Ug%!|
00006420  34 2c 55 67 25 21 38 2c  55 67 25 21 31 32 2c 55  |4,Ug%!8,Ug%!12,U|
00006430  67 25 21 31 36 0d 3b 42  0a cd 3a 3d 55 6d 25 0d  |g%!16.;B..:=Um%.|
00006440  3b 60 ae dd f2 61 64 28  55 67 25 2c 59 67 25 2c  |;`...ad(Ug%,Yg%,|
00006450  55 6d 25 2c 55 79 24 29  3a 21 55 67 25 3d 59 67  |Um%,Uy$):!Ug%=Yg|
00006460  25 3a 55 67 25 21 34 3d  55 6d 25 3a c8 99 26 34  |%:Ug%!4=Um%:..&4|
00006470  30 30 43 45 2c 2c 55 67  25 3a c8 99 26 34 30 30  |00CE,,Ug%:..&400|
00006480  43 34 2c 2c 55 67 25 3a  55 67 25 21 34 3d 55 67  |C4,,Ug%:Ug%!4=Ug|
00006490  25 21 38 3a 55 67 25 21  38 3d 55 67 25 21 31 32  |%!8:Ug%!8=Ug%!12|
000064a0  3a 55 67 25 21 31 32 3d  55 67 25 21 31 36 3a 55  |:Ug%!12=Ug%!16:U|
000064b0  67 25 21 31 36 3d 55 67  25 21 32 30 3a 55 67 25  |g%!16=Ug%!20:Ug%|
000064c0  21 32 30 3d 55 67 25 21  32 34 3a 24 28 55 67 25  |!20=Ug%!24:$(Ug%|
000064d0  2b 32 34 29 3d 55 79 24  3a c8 99 26 34 30 30 43  |+24)=Uy$:..&400C|
000064e0  32 2c 2c 55 67 25 20 b8  55 6d 25 3a e1 0d 3b b0  |2,,Ug% .Um%:..;.|
000064f0  fd dd a4 63 6c 28 59 69  25 2c 63 6d 25 2c 63 6e  |...cl(Yi%,cm%,cn|
00006500  25 2c 63 6f 25 2c 63 70  25 2c 63 71 25 2c 63 72  |%,co%,cp%,cq%,cr|
00006510  25 2c 63 6b 25 2c 63 73  25 2c 63 74 25 2c 63 75  |%,ck%,cs%,ct%,cu|
00006520  25 2c 63 76 25 2c 59 6b  25 2c 63 77 25 2c 63 78  |%,cv%,Yk%,cw%,cx|
00006530  25 2c 63 79 25 2c 63 7a  25 2c 64 55 25 2c 64 56  |%,cy%,cz%,dU%,dV|
00006540  25 2c 55 66 25 29 3a ea  57 6d 25 3a 57 6d 25 3d  |%,Uf%):.Wm%:Wm%=|
00006550  59 69 25 2b 28 63 6d 25  3c 3c 31 29 2b 28 63 6e  |Yi%+(cm%<<1)+(cn|
00006560  25 3c 3c 32 29 2b 28 63  6f 25 3c 3c 33 29 2b 28  |%<<2)+(co%<<3)+(|
00006570  63 70 25 3c 3c 34 29 2b  28 63 71 25 3c 3c 35 29  |cp%<<4)+(cq%<<5)|
00006580  2b 28 63 72 25 3c 3c 36  29 2b 28 63 6b 25 3c 3c  |+(cr%<<6)+(ck%<<|
00006590  37 29 2b 28 63 73 25 3c  3c 38 29 2b 28 63 74 25  |7)+(cs%<<8)+(ct%|
000065a0  3c 3c 39 29 2b 28 63 75  25 3c 3c 31 30 29 2b 28  |<<9)+(cu%<<10)+(|
000065b0  63 76 25 3c 3c 31 31 29  2b 28 59 6b 25 3c 3c 31  |cv%<<11)+(Yk%<<1|
000065c0  32 29 2b 28 63 77 25 3c  3c 31 36 29 2b 28 63 78  |2)+(cw%<<16)+(cx|
000065d0  25 3c 3c 32 31 29 2b 28  63 79 25 3c 3c 32 32 29  |%<<21)+(cy%<<22)|
000065e0  2b 28 63 7a 25 3c 3c 32  33 29 0d 3b ce 0c e7 63  |+(cz%<<23).;...c|
000065f0  72 25 3d 30 20 8c 0d 3b  d8 1c 57 6d 25 2b 3d 28  |r%=0 ..;..Wm%+=(|
00006600  64 55 25 3c 3c 32 34 29  2b 28 64 56 25 3c 3c 32  |dU%<<24)+(dV%<<2|
00006610  38 29 0d 3b e2 14 cc 3a  57 6d 25 2b 3d 28 55 66  |8).;...:Wm%+=(Uf|
00006620  25 3c 3c 32 34 29 0d 3b  f6 0a cd 3a 3d 57 6d 25  |%<<24).;...:=Wm%|
00006630  0d 3c 14 5f dd f2 64 57  28 57 7a 25 2c 55 6d 25  |.<._..dW(Wz%,Um%|
00006640  2c 64 58 25 29 3a 55 67  25 21 30 3d 57 7a 25 3a  |,dX%):Ug%!0=Wz%:|
00006650  55 67 25 21 34 3d 55 6d  25 3a 55 67 25 21 38 3d  |Ug%!4=Um%:Ug%!8=|
00006660  30 3a 55 67 25 21 31 32  3d 30 3a 55 67 25 3f 31  |0:Ug%!12=0:Ug%?1|
00006670  31 3d 64 58 25 3a 55 67  25 3f 31 35 3d 31 35 3a  |1=dX%:Ug%?15=15:|
00006680  c8 99 26 34 30 30 43 44  2c 2c 55 67 25 3a e1 0d  |..&400CD,,Ug%:..|
00006690  3c 46 63 dd f2 64 59 28  57 7a 25 2c 55 6d 25 2c  |<Fc..dY(Wz%,Um%,|
000066a0  64 5a 25 29 3a 55 67 25  21 30 3d 57 7a 25 3a 55  |dZ%):Ug%!0=Wz%:U|
000066b0  67 25 21 34 3d 55 6d 25  3a 55 67 25 21 38 3d 30  |g%!4=Um%:Ug%!8=0|
000066c0  3a 55 67 25 21 31 32 3d  30 3a 55 67 25 3f 31 31  |:Ug%!12=0:Ug%?11|
000066d0  3d 64 5a 25 3c 3c 34 3a  55 67 25 3f 31 35 3d 32  |=dZ%<<4:Ug%?15=2|
000066e0  34 30 3a c8 99 26 34 30  30 43 44 2c 2c 55 67 25  |40:..&400CD,,Ug%|
000066f0  3a e1 0d 3c 78 45 dd f2  62 55 28 59 67 25 2c 55  |:..<xE..bU(Yg%,U|
00006700  6d 25 2c 59 6b 25 29 3a  55 67 25 21 38 3d 59 6b  |m%,Yk%):Ug%!8=Yk|
00006710  25 3a 55 67 25 21 31 32  3d 59 67 25 3a 55 67 25  |%:Ug%!12=Yg%:Ug%|
00006720  21 31 36 3d 55 6d 25 3a  c8 99 26 38 31 36 38 30  |!16=Um%:..&81680|
00006730  2c 2c 55 67 25 3a e1 0d  3c d2 40 dd a4 58 6e 28  |,,Ug%:..<.@..Xn(|
00006740  59 6e 24 29 3a ea 64 61  25 2c 64 62 25 2c 62 78  |Yn$):.da%,db%,bx|
00006750  24 3a 64 61 25 3d 62 61  25 3a 62 78 24 3d a4 56  |$:da%=ba%:bx$=.V|
00006760  55 28 59 6e 24 2c 22 2c  22 29 3a e7 a9 28 62 78  |U(Yn$,","):..(bx|
00006770  24 29 3e 31 32 20 8c 0d  3d 04 1a 24 28 64 61 25  |$)>12 ..=..$(da%|
00006780  29 3d c0 62 78 24 2c 31  32 29 3a 64 62 25 3d 31  |)=.bx$,12):db%=1|
00006790  32 0d 3d 0e 1a cc 24 28  64 61 25 29 3d 62 78 24  |2.=...$(da%)=bx$|
000067a0  3a 64 62 25 3d a9 28 62  78 24 29 0d 3d 18 a6 cd  |:db%=.(bx$).=...|
000067b0  3a 64 61 25 3f 31 32 3d  37 3a 64 61 25 3f 31 33  |:da%?12=7:da%?13|
000067c0  3d 32 3a 64 61 25 3f 31  34 3d 37 3a 64 61 25 3f  |=2:da%?14=7:da%?|
000067d0  31 35 3d 30 3a 64 61 25  21 32 30 3d 34 34 3a 64  |15=0:da%!20=44:d|
000067e0  61 25 21 32 34 3d 30 3a  64 63 25 3d 64 61 25 2b  |a%!24=0:dc%=da%+|
000067f0  34 3a c8 95 59 6e 24 3c  3e 22 22 3a 64 63 25 2b  |4:..Yn$<>"":dc%+|
00006800  3d 32 34 3a 64 64 24 3d  a4 56 55 28 59 6e 24 2c  |=24:dd$=.VU(Yn$,|
00006810  22 2c 22 29 3a 21 64 63  25 3d 30 3a 64 63 25 21  |","):!dc%=0:dc%!|
00006820  34 3d 2d 31 3a 64 63 25  21 38 3d 26 30 37 30 30  |4=-1:dc%!8=&0700|
00006830  30 30 32 31 3a c8 95 a7  22 23 24 25 5e 22 2c c2  |0021:..."#$%^",.|
00006840  64 64 24 29 29 3e 30 3a  c8 8e c2 64 64 24 29 20  |dd$))>0:...dd$) |
00006850  ca 0d 3d 9a 1d c9 22 23  22 3a 3f 64 63 25 3d 3f  |..=..."#":?dc%=?|
00006860  64 63 25 20 84 25 30 30  30 30 30 30 30 31 0d 3d  |dc% .%00000001.=|
00006870  a4 1d c9 22 24 22 3a 3f  64 63 25 3d 3f 64 63 25  |..."$":?dc%=?dc%|
00006880  20 84 25 30 30 30 30 30  30 31 30 0d 3d ae 21 c9  | .%00000010.=.!.|
00006890  22 25 22 3a 64 63 25 3f  31 30 3d 64 63 25 3f 31  |"%":dc%?10=dc%?1|
000068a0  30 20 84 25 30 31 30 30  30 30 30 30 0d 3d b8 1d  |0 .%01000000.=..|
000068b0  c9 22 5e 22 3a 3f 64 63  25 3d 3f 64 63 25 20 84  |."^":?dc%=?dc% .|
000068c0  25 30 30 30 30 30 31 30  30 0d 3d c2 1e cb 3a 64  |%00000100.=...:d|
000068d0  64 24 3d c0 64 64 24 29  3a ce 3a e7 a9 28 64 64  |d$=.dd$):.:..(dd|
000068e0  24 29 3e 31 32 20 8c 0d  3d ea 56 64 63 25 21 38  |$)>12 ..=.Vdc%!8|
000068f0  3d 64 63 25 21 38 20 84  26 31 30 30 3a 24 28 55  |=dc%!8 .&100:$(U|
00006900  74 25 29 3d 64 64 24 2b  bd 28 30 29 3a 64 63 25  |t%)=dd$+.(0):dc%|
00006910  21 31 32 3d 55 74 25 3a  64 63 25 21 31 36 3d 2d  |!12=Ut%:dc%!16=-|
00006920  31 3a 64 63 25 21 32 30  3d a9 28 64 64 24 29 3a  |1:dc%!20=.(dd$):|
00006930  55 74 25 2b 3d a9 28 64  64 24 29 2b 31 0d 3e 26  |Ut%+=.(dd$)+1.>&|
00006940  18 cc 3a 24 28 64 63 25  2b 31 32 29 3d 64 64 24  |..:$(dc%+12)=dd$|
00006950  2b bd 28 30 29 0d 3e 3a  1d cd 3a e7 a9 28 64 64  |+.(0).>:..:..(dd|
00006960  24 29 3e 64 62 25 20 8c  64 62 25 3d a9 28 64 64  |$)>db% .db%=.(dd|
00006970  24 29 0d 3e 4e 3d ce 3a  3f 64 63 25 3d 3f 64 63  |$).>N=.:?dc%=?dc|
00006980  25 20 84 25 31 30 30 30  30 30 30 30 3a 64 61 25  |% .%10000000:da%|
00006990  21 31 36 3d 28 64 62 25  2a 38 2b 36 29 2a 32 3a  |!16=(db%*8+6)*2:|
000069a0  62 61 25 3d 64 63 25 2b  32 34 3a 3d 64 61 25 0d  |ba%=dc%+24:=da%.|
000069b0  3e 8a 50 dd a4 56 55 28  f8 59 6e 24 2c 64 65 24  |>.P..VU(.Yn$,de$|
000069c0  29 3a ea 64 66 24 3a 64  66 24 3d c0 59 6e 24 2c  |):.df$:df$=.Yn$,|
000069d0  a7 59 6e 24 2b 64 65 24  2c 64 65 24 29 2d 31 29  |.Yn$+de$,de$)-1)|
000069e0  3a 59 6e 24 3d c2 59 6e  24 2c a9 28 59 6e 24 29  |:Yn$=.Yn$,.(Yn$)|
000069f0  2d a9 28 64 66 24 29 2d  31 29 3a 3d 64 66 24 0d  |-.(df$)-1):=df$.|
00006a00  3e c6 31 dd f2 58 6f 28  59 6e 25 2c 62 65 25 2c  |>.1..Xo(Yn%,be%,|
00006a10  64 67 25 29 3a 59 6e 25  21 28 32 38 2b 32 34 2a  |dg%):Yn%!(28+24*|
00006a20  28 62 65 25 2d 31 29 2b  34 29 3d 64 67 25 3a e1  |(be%-1)+4)=dg%:.|
00006a30  0d 3e ee 3f dd f2 5a 68  28 59 6e 25 2c 78 25 2c  |.>.?..Zh(Yn%,x%,|
00006a40  79 25 29 3a 5a 71 25 3d  59 6e 25 3a 59 6c 25 3d  |y%):Zq%=Yn%:Yl%=|
00006a50  78 25 3a 59 6d 25 3d 79  25 3a c8 99 26 34 30 30  |x%:Ym%=y%:..&400|
00006a60  44 34 2c 2c 59 6e 25 2c  78 25 2c 79 25 3a e1 0d  |D4,,Yn%,x%,y%:..|
00006a70  3f 20 1b dd f2 5a 74 3a  f2 5a 68 28 5a 71 25 2c  |? ...Zt:.Zh(Zq%,|
00006a80  59 6c 25 2c 59 6d 25 29  3a e1 0d 3f 48 36 dd a4  |Yl%,Ym%):..?H6..|
00006a90  5a 70 3a ea 5a 6e 24 3a  c8 99 26 34 30 30 44 35  |Zp:.Zn$:..&400D5|
00006aa0  2c 2c 5a 71 25 2c 55 67  25 2c c4 32 30 30 2c 22  |,,Zq%,Ug%,.200,"|
00006ab0  20 22 29 20 b8 2c 2c 2c  5a 6e 24 3a 3d 5a 6e 24  | ") .,,,Zn$:=Zn$|
00006ac0  0d 3f 7a 22 dd a4 5a 6f  3a c8 99 26 34 30 30 43  |.?z"..Zo:..&400C|
00006ad0  46 2c 2c 55 69 25 3a 3d  28 55 69 25 21 38 20 80  |F,,Ui%:=(Ui%!8 .|
00006ae0  31 29 0d 3f a2 1c dd f2  5a 67 28 59 6e 25 2c 62  |1).?....Zg(Yn%,b|
00006af0  65 25 2c 64 68 25 29 3a  e7 64 68 25 20 8c 0d 3f  |e%,dh%):.dh% ..?|
00006b00  b6 36 59 6e 25 3f 28 33  38 2b 32 34 2a 28 62 65  |.6Yn%?(38+24*(be|
00006b10  25 2d 31 29 29 3d 59 6e  25 3f 28 33 38 2b 32 34  |%-1))=Yn%?(38+24|
00006b20  2a 28 62 65 25 2d 31 29  29 20 84 25 30 31 30 30  |*(be%-1)) .%0100|
00006b30  30 30 30 30 0d 3f c0 38  cc 3a 59 6e 25 3f 28 33  |0000.?.8.:Yn%?(3|
00006b40  38 2b 32 34 2a 28 62 65  25 2d 31 29 29 3d 59 6e  |8+24*(be%-1))=Yn|
00006b50  25 3f 28 33 38 2b 32 34  2a 28 62 65 25 2d 31 29  |%?(38+24*(be%-1)|
00006b60  29 20 80 25 31 30 31 31  31 31 31 31 0d 3f d4 07  |) .%10111111.?..|
00006b70  cd 3a e1 0d 3f f2 1c dd  f2 5a 6a 28 59 6e 25 2c  |.:..?....Zj(Yn%,|
00006b80  62 65 25 2c 64 69 25 29  3a e7 64 69 25 20 8c 0d  |be%,di%):.di% ..|
00006b90  40 06 36 59 6e 25 3f 28  32 38 2b 32 34 2a 28 62  |@.6Yn%?(28+24*(b|
00006ba0  65 25 2d 31 29 29 3d 59  6e 25 3f 28 32 38 2b 32  |e%-1))=Yn%?(28+2|
00006bb0  34 2a 28 62 65 25 2d 31  29 29 20 84 25 30 30 30  |4*(be%-1)) .%000|
00006bc0  30 30 30 30 31 0d 40 10  38 cc 3a 59 6e 25 3f 28  |00001.@.8.:Yn%?(|
00006bd0  32 38 2b 32 34 2a 28 62  65 25 2d 31 29 29 3d 59  |28+24*(be%-1))=Y|
00006be0  6e 25 3f 28 32 38 2b 32  34 2a 28 62 65 25 2d 31  |n%?(28+24*(be%-1|
00006bf0  29 29 20 80 25 31 31 31  31 31 31 31 30 0d 40 24  |)) .%11111110.@$|
00006c00  07 cd 3a e1 0d 40 42 17  dd f2 64 6a 3a c8 99 26  |..:..@B...dj:..&|
00006c10  34 30 30 44 34 2c 2c 2d  31 3a e1 0d 40 7e 44 dd  |400D4,,-1:..@~D.|
00006c20  f2 58 56 28 64 6b 24 29  3a ea 61 25 2c 62 25 2c  |.XV(dk$):.a%,b%,|
00006c30  55 64 25 2c 55 63 25 2c  64 6c 25 2c 70 25 2c 75  |Ud%,Uc%,dl%,p%,u|
00006c40  24 3a e7 28 a7 64 6b 24  2c 22 2e 22 29 3d 30 20  |$:.(.dk$,".")=0 |
00006c50  80 a7 64 6b 24 2c 22 3a  22 29 3d 30 29 20 8c 0d  |..dk$,":")=0) ..|
00006c60  40 9c 3d 58 5a 24 3d 22  54 6f 20 73 61 76 65 2c  |@.=XZ$="To save,|
00006c70  20 64 72 61 67 20 74 68  65 20 69 63 6f 6e 20 74  | drag the icon t|
00006c80  6f 20 61 20 64 69 72 65  63 74 6f 72 79 20 76 69  |o a directory vi|
00006c90  65 77 65 72 2e 22 3a f2  58 5a 3a e1 0d 40 b0 14  |ewer.":.XZ:..@..|
00006ca0  cd 3a e7 56 58 25 3d 30  20 80 55 25 3d 30 20 8c  |.:.VX%=0 .U%=0 .|
00006cb0  0d 40 c4 23 58 5a 24 3d  22 4e 6f 20 72 65 63 6f  |.@.#XZ$="No reco|
00006cc0  72 64 73 20 74 6f 20 73  61 76 65 2e 22 3a f2 58  |rds to save.":.X|
00006cd0  5a 3a e1 0d 40 ce 31 cd  3a c8 99 26 34 30 36 43  |Z:..@.1.:..&406C|
00006ce0  30 3a e7 58 79 25 3d a3  20 84 28 28 28 55 63 25  |0:.Xy%=. .(((Uc%|
00006cf0  3e 3e 32 30 29 80 26 46  46 46 29 3c 3e 26 46 46  |>>20).&FFF)<>&FF|
00006d00  46 29 20 8c 0d 40 ec 2b  55 67 25 3f 30 3d 33 3a  |F) ..@.+Ug%?0=3:|
00006d10  c8 99 26 37 2c 31 34 2c  55 67 25 3a 55 63 25 3d  |..&7,14,Ug%:Uc%=|
00006d20  55 67 25 3f 34 3a 64 6c  25 3d 55 67 25 21 30 0d  |Ug%?4:dl%=Ug%!0.|
00006d30  40 f6 5c cd 3a 55 63 25  3d 28 55 63 25 20 80 26  |@.\.:Uc%=(Uc% .&|
00006d40  46 46 29 20 84 28 26 46  46 46 3c 3c 32 30 29 20  |FF) .(&FFF<<20) |
00006d50  84 28 57 69 25 3c 3c 38  29 3a c8 99 26 38 2c 37  |.(Wi%<<8):..&8,7|
00006d60  2c 64 6b 24 2c 55 63 25  2c 64 6c 25 2c 30 2c 30  |,dk$,Uc%,dl%,0,0|
00006d70  3a c8 99 26 44 2c 32 30  34 2c 64 6b 24 20 b8 55  |:..&D,204,dk$ .U|
00006d80  64 25 3a e7 56 73 25 3c  33 20 8c 0d 41 28 2b 75  |d%:.Vs%<3 ..A(+u|
00006d90  24 3d c3 28 56 58 25 29  3a e7 a9 28 75 24 29 3c  |$=.(VX%):..(u$)<|
00006da0  32 20 8c 75 24 3d c4 32  2d a9 28 75 24 29 2c 22  |2 .u$=.2-.(u$),"|
00006db0  30 22 29 2b 75 24 0d 41  32 58 d5 23 55 64 25 2c  |0")+u$.A2X.#Ud%,|
00006dc0  75 24 3a e3 61 25 3d 31  20 b8 56 58 25 3a 70 25  |u$:.a%=1 .VX%:p%|
00006dd0  3d 28 61 25 2f 56 58 25  29 2a 31 30 30 3a c8 99  |=(a%/VX%)*100:..|
00006de0  26 34 30 36 43 34 2c 70  25 3a e3 62 25 3d 30 20  |&406C4,p%:.b%=0 |
00006df0  b8 39 3a d5 23 55 64 25  2c 46 24 28 61 25 2c 62  |.9:.#Ud%,F$(a%,b|
00006e00  25 29 3a ed 3a ed 3a c8  8e 56 73 25 20 ca 0d 41  |%):.:.:..Vs% ..A|
00006e10  6e 0f c9 30 3a 75 24 3d  c3 28 55 25 29 0d 41 78  |n..0:u$=.(U%).Ax|
00006e20  16 c9 31 3a 75 24 3d c3  28 28 54 25 2d 53 25 29  |..1:u$=.((T%-S%)|
00006e30  2b 31 29 0d 41 82 10 c9  32 3a 75 24 3d c3 28 57  |+1).A...2:u$=.(W|
00006e40  6c 25 29 0d 41 8c 23 cb  3a e7 a9 28 75 24 29 3c  |l%).A.#.:..(u$)<|
00006e50  33 20 8c 75 24 3d c4 33  2d a9 28 75 24 29 2c 22  |3 .u$=.3-.(u$),"|
00006e60  30 22 29 2b 75 24 0d 41  a0 0c d5 23 55 64 25 2c  |0")+u$.A...#Ud%,|
00006e70  75 24 0d 41 aa 0d cd 3a  c8 8e 56 73 25 20 ca 0d  |u$.A...:..Vs% ..|
00006e80  41 be 0c c9 30 3a e7 55  25 20 8c 0d 41 d2 47 e3  |A...0:.U% ..A.G.|
00006e90  61 25 3d 31 20 b8 55 25  3a 70 25 3d 28 61 25 2f  |a%=1 .U%:p%=(a%/|
00006ea0  55 25 29 2a 31 30 30 3a  c8 99 26 34 30 36 43 34  |U%)*100:..&406C4|
00006eb0  2c 70 25 3a e3 62 25 3d  31 20 b8 56 58 25 3a d5  |,p%:.b%=1 .VX%:.|
00006ec0  23 55 64 25 2c 52 24 28  61 25 2c 62 25 29 3a ed  |#Ud%,R$(a%,b%):.|
00006ed0  3a ed 0d 41 fa 05 cd 0d  42 04 13 c9 31 3a e7 28  |:..A....B...1:.(|
00006ee0  54 25 2d 53 25 29 2b 31  20 8c 0d 42 18 51 e3 61  |T%-S%)+1 ..B.Q.a|
00006ef0  25 3d 53 25 20 b8 54 25  3a 70 25 3d 28 61 25 2f  |%=S% .T%:p%=(a%/|
00006f00  28 28 54 25 2d 53 25 29  2b 31 29 29 2a 31 30 30  |((T%-S%)+1))*100|
00006f10  3a c8 99 26 34 30 36 43  34 2c 70 25 3a e3 62 25  |:..&406C4,p%:.b%|
00006f20  3d 31 20 b8 56 58 25 3a  d5 23 55 64 25 2c 52 24  |=1 .VX%:.#Ud%,R$|
00006f30  28 61 25 2c 62 25 29 3a  ed 3a ed 0d 42 40 05 cd  |(a%,b%):.:..B@..|
00006f40  0d 42 4a 0d c9 32 3a e7  57 6c 25 20 8c 0d 42 5e  |.BJ..2:.Wl% ..B^|
00006f50  4d e3 61 25 3d 31 20 b8  57 6c 25 3a 70 25 3d 28  |M.a%=1 .Wl%:p%=(|
00006f60  61 25 2f 57 6c 25 29 2a  31 30 30 3a c8 99 26 34  |a%/Wl%)*100:..&4|
00006f70  30 36 43 34 2c 70 25 3a  e3 62 25 3d 31 20 b8 56  |06C4,p%:.b%=1 .V|
00006f80  58 25 3a d5 23 55 64 25  2c 52 24 28 46 25 28 61  |X%:.#Ud%,R$(F%(a|
00006f90  25 29 2c 62 25 29 3a ed  3a ed 0d 42 86 05 cd 0d  |%),b%):.:..B....|
00006fa0  42 90 0a c9 33 3a f2 64  6d 0d 42 a4 2d cb 3a d9  |B...3:.dm.B.-.:.|
00006fb0  23 55 64 25 3a e7 58 79  25 3d b9 20 80 28 28 28  |#Ud%:.Xy%=. .(((|
00006fc0  55 63 25 3e 3e 32 30 29  80 26 46 46 46 29 3d 26  |Uc%>>20).&FFF)=&|
00006fd0  46 46 46 29 20 8c 0d 42  c2 22 c8 99 26 38 2c 32  |FFF) ..B."..&8,2|
00006fe0  2c 64 6b 24 2c 55 63 25  3a c8 99 26 38 2c 33 2c  |,dk$,Uc%:..&8,3,|
00006ff0  64 6b 24 2c 2c 64 6c 25  0d 42 d6 0e cd 3a e7 56  |dk$,,dl%.B...:.V|
00007000  73 25 3c 33 20 8c 0d 42  ea 0c e7 56 73 25 3d 30  |s%<3 ..B...Vs%=0|
00007010  20 8c 0d 42 f4 4c 61 25  3d a4 64 6e 28 64 6b 24  | ..B.La%=.dn(dk$|
00007020  2c 22 44 61 74 61 42 61  73 65 22 2c 26 31 32 44  |,"DataBase",&12D|
00007030  29 3a 64 6f 24 3d 64 6b  24 3a 56 6a 25 3d 91 3a  |):do$=dk$:Vj%=.:|
00007040  f2 58 76 28 58 56 25 29  3a 55 61 24 3d 64 6b 24  |.Xv(XV%):Ua$=dk$|
00007050  3a 58 79 25 3d b9 3a 57  66 24 3d 55 61 24 0d 43  |:Xy%=.:Wf$=Ua$.C|
00007060  12 15 cc f2 58 76 28 58  56 25 29 3a 55 61 24 3d  |....Xv(XV%):Ua$=|
00007070  57 66 24 0d 43 1c 05 cd  0d 43 26 3b cc ff 22 53  |Wf$.C....C&;.."S|
00007080  45 54 54 59 50 45 20 22  2b 64 6b 24 2b 22 20 44  |ETTYPE "+dk$+" D|
00007090  46 45 22 3a 57 63 24 3d  22 44 42 61 73 65 43 53  |FE":Wc$="DBaseCS|
000070a0  56 22 3a f2 58 76 28 58  66 25 29 3a 56 73 25 3d  |V":.Xv(Xf%):Vs%=|
000070b0  5a 65 25 0d 43 3a 18 cd  3a f2 57 76 3a c8 99 26  |Ze%.C:..:.Wv:..&|
000070c0  34 30 36 43 31 3a f2 64  6a 3a e1 0d 43 62 0f dd  |406C1:.dj:..Cb..|
000070d0  f2 59 63 3a e7 62 69 25  20 8c 0d 43 76 1b e7 56  |.Yc:.bi% ..Cv..V|
000070e0  73 25 3c 33 20 8c 62 56  24 3d 55 61 24 8b 62 56  |s%<3 .bV$=Ua$.bV|
000070f0  24 3d 57 63 24 0d 43 80  9e c8 99 26 34 30 30 43  |$=Wc$.C....&400C|
00007100  46 2c 2c 55 67 25 3a 55  67 25 21 33 32 3d 55 67  |F,,Ug%:Ug%!32=Ug|
00007110  25 21 34 3a 55 67 25 21  32 38 3d 21 55 67 25 3a  |%!4:Ug%!28=!Ug%:|
00007120  55 67 25 21 32 34 3d 55  67 25 21 31 36 3a 55 67  |Ug%!24=Ug%!16:Ug|
00007130  25 21 32 30 3d 55 67 25  21 31 32 3a 55 67 25 21  |%!20=Ug%!12:Ug%!|
00007140  31 36 3d 31 3a 55 67 25  21 31 32 3d 30 3a 55 67  |16=1:Ug%!12=0:Ug|
00007150  25 21 33 36 3d 30 3a 55  67 25 21 34 30 3d 57 69  |%!36=0:Ug%!40=Wi|
00007160  25 3a 24 28 55 67 25 2b  34 34 29 3d a4 64 70 28  |%:$(Ug%+44)=.dp(|
00007170  62 56 24 29 3a 21 55 67  25 3d 36 30 3a c8 99 26  |bV$):!Ug%=60:..&|
00007180  34 30 30 45 37 2c 31 37  2c 55 67 25 2c 55 67 25  |400E7,17,Ug%,Ug%|
00007190  21 32 30 0d 43 b2 07 cd  3a e1 0d 43 d0 d6 dd f2  |!20.C...:..C....|
000071a0  64 71 28 55 67 25 2c 57  7a 25 2c 55 6d 25 29 3a  |dq(Ug%,Wz%,Um%):|
000071b0  ea 78 25 2c 79 25 2c 55  78 25 3a 78 25 3d 55 67  |.x%,y%,Ux%:x%=Ug|
000071c0  25 21 34 3a 79 25 3d 55  67 25 21 38 3a 55 78 25  |%!4:y%=Ug%!8:Ux%|
000071d0  3d 55 67 25 21 31 36 2d  79 25 3a f2 5a 61 28 57  |=Ug%!16-y%:.Za(W|
000071e0  7a 25 2c 55 6d 25 29 3a  55 67 25 21 38 3d 63 63  |z%,Um%):Ug%!8=cc|
000071f0  25 2b 78 25 3a 55 67 25  21 31 32 3d 63 64 25 2b  |%+x%:Ug%!12=cd%+|
00007200  79 25 2b 55 78 25 3a 55  67 25 21 31 36 3d 63 65  |y%+Ux%:Ug%!16=ce|
00007210  25 2b 78 25 3a 55 67 25  21 32 30 3d 63 66 25 2b  |%+x%:Ug%!20=cf%+|
00007220  79 25 2b 55 78 25 3a 55  67 25 21 32 34 3d 30 3a  |y%+Ux%:Ug%!24=0:|
00007230  55 67 25 21 32 38 3d 30  3a 55 67 25 21 33 32 3d  |Ug%!28=0:Ug%!32=|
00007240  31 32 39 38 3a 55 67 25  21 33 36 3d 31 30 32 34  |1298:Ug%!36=1024|
00007250  3a 21 55 67 25 3d 30 3a  55 67 25 21 34 3d 35 3a  |:!Ug%=0:Ug%!4=5:|
00007260  62 69 25 3d b9 3a e7 55  57 25 3c 33 30 30 20 8c  |bi%=.:.UW%<300 .|
00007270  0d 44 20 11 c8 99 26 34  30 30 44 30 2c 2c 55 67  |.D ...&400D0,,Ug|
00007280  25 0d 44 2a 10 cc 3a e7  57 7a 25 3d 58 56 25 20  |%.D*..:.Wz%=XV% |
00007290  8c 0d 44 3e 23 c8 99 26  34 32 34 30 30 2c 26 43  |..D>#..&42400,&C|
000072a0  35 2c 31 2c 22 66 69 6c  65 5f 31 32 64 22 2c 55  |5,1,"file_12d",U|
000072b0  67 25 2b 38 0d 44 48 24  cc c8 99 26 34 32 34 30  |g%+8.DH$...&4240|
000072c0  30 2c 26 43 35 2c 31 2c  22 66 69 6c 65 5f 64 66  |0,&C5,1,"file_df|
000072d0  65 22 2c 55 67 25 2b 38  0d 44 52 05 cd 0d 44 5c  |e",Ug%+8.DR...D\|
000072e0  07 cd 3a e1 0d 44 7a 93  dd f2 62 57 28 59 67 25  |..:..Dz...bW(Yg%|
000072f0  29 3a 62 69 25 3d a3 3a  c8 99 26 34 30 30 43 46  |):bi%=.:..&400CF|
00007300  2c 2c 55 67 25 3a 55 67  25 21 32 30 3d 55 67 25  |,,Ug%:Ug%!20=Ug%|
00007310  21 31 32 3a 55 67 25 21  32 34 3d 55 67 25 21 31  |!12:Ug%!24=Ug%!1|
00007320  36 3a 55 67 25 21 32 38  3d 55 67 25 21 30 3a 55  |6:Ug%!28=Ug%!0:U|
00007330  67 25 21 33 32 3d 55 67  25 21 34 3a 55 67 25 21  |g%!32=Ug%!4:Ug%!|
00007340  30 3d 34 34 3a 55 67 25  21 31 32 3d 59 67 25 21  |0=44:Ug%!12=Yg%!|
00007350  38 3a 55 67 25 21 31 36  3d 33 3a 55 67 25 21 34  |8:Ug%!16=3:Ug%!4|
00007360  30 3d 57 69 25 3a c8 99  26 34 30 30 45 37 2c 31  |0=Wi%:..&400E7,1|
00007370  37 2c 55 67 25 3a e1 0d  44 c0 52 dd f2 59 77 28  |7,Ug%:..D.R..Yw(|
00007380  59 67 25 2c 55 6d 25 29  3a f2 5a 61 28 59 67 25  |Yg%,Um%):.Za(Yg%|
00007390  2c 31 29 3a 55 61 24 3d  5a 64 24 3a 21 55 67 25  |,1):Ua$=Zd$:!Ug%|
000073a0  3d 59 67 25 3a c8 99 26  34 30 30 43 43 2c 2c 55  |=Yg%:..&400CC,,U|
000073b0  67 25 3a e7 55 6d 25 3d  33 20 8c f2 64 71 28 55  |g%:.Um%=3 ..dq(U|
000073c0  67 25 2c 59 67 25 2c 33  29 0d 44 e8 14 e7 55 6d  |g%,Yg%,3).D...Um|
000073d0  25 3d 32 20 8c f2 58 56  28 55 61 24 29 0d 44 fc  |%=2 ..XV(Ua$).D.|
000073e0  0d e7 55 6d 25 3d 32 30  20 8c 0d 45 06 11 e7 57  |..Um%=20 ..E...W|
000073f0  57 25 3f 32 30 3d 26 30  30 20 8c 0d 45 10 2f 57  |W%?20=&00 ..E./W|
00007400  57 25 3f 32 30 3d a4 5a  77 28 59 67 25 2c 32 30  |W%?20=.Zw(Yg%,20|
00007410  29 3a e7 57 6c 25 20 8c  57 57 25 3f 32 31 3d a4  |):.Wl% .WW%?21=.|
00007420  5a 78 28 59 67 25 2c 32  31 29 0d 45 24 65 57 57  |Zx(Yg%,21).E$eWW|
00007430  25 3f 32 33 3d a4 5a 78  28 59 67 25 2c 32 33 29  |%?23=.Zx(Yg%,23)|
00007440  3a 56 73 25 3d 31 3a f2  58 78 28 59 67 25 2c 36  |:Vs%=1:.Xx(Yg%,6|
00007450  2c 26 30 37 30 30 46 31  33 44 2c 26 46 46 30 30  |,&0700F13D,&FF00|
00007460  46 46 46 46 29 3a f2 58  78 28 59 67 25 2c 38 2c  |FFFF):.Xx(Yg%,8,|
00007470  26 30 37 30 30 46 31 33  44 2c 26 46 46 30 30 46  |&0700F13D,&FF00F|
00007480  46 46 46 29 3a f2 59 55  28 59 67 25 2c 36 29 0d  |FFF):.YU(Yg%,6).|
00007490  45 42 05 cd 0d 45 4c 14  cd 3a e7 55 6d 25 3d 32  |EB...EL..:.Um%=2|
000074a0  31 20 80 57 6c 25 20 8c  0d 45 6a 11 e7 57 57 25  |1 .Wl% ..Ej..WW%|
000074b0  3f 32 31 3d 26 30 30 20  8c 0d 45 74 8b 57 57 25  |?21=&00 ..Et.WW%|
000074c0  3f 32 30 3d a4 5a 78 28  59 67 25 2c 32 30 29 3a  |?20=.Zx(Yg%,20):|
000074d0  57 57 25 3f 32 31 3d a4  5a 77 28 59 67 25 2c 32  |WW%?21=.Zw(Yg%,2|
000074e0  31 29 3a 57 57 25 3f 32  33 3d a4 5a 78 28 59 67  |1):WW%?23=.Zx(Yg|
000074f0  25 2c 32 33 29 3a 56 73  25 3d 32 3a f2 58 78 28  |%,23):Vs%=2:.Xx(|
00007500  59 67 25 2c 36 2c 26 30  32 30 30 30 31 33 44 2c  |Yg%,6,&0200013D,|
00007510  26 46 46 30 30 46 46 46  46 29 3a f2 58 78 28 59  |&FF00FFFF):.Xx(Y|
00007520  67 25 2c 38 2c 26 30 32  30 30 30 31 33 44 2c 26  |g%,8,&0200013D,&|
00007530  46 46 30 30 46 46 46 46  29 3a f2 59 55 28 59 67  |FF00FFFF):.YU(Yg|
00007540  25 2c 31 29 0d 45 a6 05  cd 0d 45 b0 0f cd 3a e7  |%,1).E....E...:.|
00007550  55 6d 25 3d 32 33 20 8c  0d 45 ce 11 e7 57 57 25  |Um%=23 ..E...WW%|
00007560  3f 32 33 3d 26 30 30 20  8c 0d 45 d8 2f 57 57 25  |?23=&00 ..E./WW%|
00007570  3f 32 30 3d a4 5a 78 28  59 67 25 2c 32 30 29 3a  |?20=.Zx(Yg%,20):|
00007580  e7 57 6c 25 20 8c 57 57  25 3f 32 31 3d a4 5a 78  |.Wl% .WW%?21=.Zx|
00007590  28 59 67 25 2c 32 31 29  0d 45 ec 65 57 57 25 3f  |(Yg%,21).E.eWW%?|
000075a0  32 33 3d a4 5a 77 28 59  67 25 2c 32 33 29 3a 56  |23=.Zw(Yg%,23):V|
000075b0  73 25 3d 30 3a f2 58 78  28 59 67 25 2c 36 2c 26  |s%=0:.Xx(Yg%,6,&|
000075c0  30 32 30 30 30 31 33 44  2c 26 46 46 30 30 46 46  |0200013D,&FF00FF|
000075d0  46 46 29 3a f2 58 78 28  59 67 25 2c 38 2c 26 30  |FF):.Xx(Yg%,8,&0|
000075e0  32 30 30 30 31 33 44 2c  26 46 46 30 30 46 46 46  |200013D,&FF00FFF|
000075f0  46 29 3a f2 59 55 28 59  67 25 2c 31 29 0d 46 0a  |F):.YU(Yg%,1).F.|
00007600  05 cd 0d 46 14 07 cd 3a  e1 0d 46 32 4a dd f2 59  |...F...:..F2J..Y|
00007610  78 28 59 67 25 2c 55 6d  25 29 3a f2 5a 61 28 59  |x(Yg%,Um%):.Za(Y|
00007620  67 25 2c 31 29 3a 57 63  24 3d 5a 64 24 3a 56 73  |g%,1):Wc$=Zd$:Vs|
00007630  25 3d 31 3a 21 55 67 25  3d 59 67 25 3a c8 99 26  |%=1:!Ug%=Yg%:..&|
00007640  34 30 30 43 43 2c 2c 55  67 25 3a e7 55 6d 25 3d  |400CC,,Ug%:.Um%=|
00007650  33 20 8c 0d 46 5a 20 5a  65 25 3d 56 73 25 3a 56  |3 ..FZ Ze%=Vs%:V|
00007660  73 25 3d 33 3a f2 64 71  28 55 67 25 2c 58 66 25  |s%=3:.dq(Ug%,Xf%|
00007670  2c 33 29 0d 46 64 24 cd  3a e7 55 6d 25 3d 32 20  |,3).Fd$.:.Um%=2 |
00007680  8c 5a 65 25 3d 56 73 25  3a 56 73 25 3d 33 3a f2  |.Ze%=Vs%:Vs%=3:.|
00007690  58 56 28 57 63 24 29 0d  46 78 05 e1 0d 46 8c 16  |XV(Wc$).Fx...F..|
000076a0  dd f2 59 58 28 59 67 25  29 3a e7 57 67 25 3d b9  |..YX(Yg%):.Wg%=.|
000076b0  20 8c 0d 46 a0 46 58 61  24 3d 22 46 69 6c 65 20  | ..F.FXa$="File |
000076c0  68 61 73 20 62 65 65 6e  20 6d 6f 64 69 66 69 65  |has been modifie|
000076d0  64 2e 20 44 6f 20 79 6f  75 20 77 61 6e 74 20 74  |d. Do you want t|
000076e0  6f 20 73 61 76 65 20 69  74 3f 22 3a 56 6a 25 3d  |o save it?":Vj%=|
000076f0  91 3a f2 58 61 28 39 29  0d 46 b4 37 cc 55 61 24  |.:.Xa(9).F.7.Ua$|
00007700  3d 57 66 24 3a 5a 65 25  3d 56 73 25 3a 56 73 25  |=Wf$:Ze%=Vs%:Vs%|
00007710  3d 30 3a f2 58 56 28 55  61 24 29 3a 56 5a 25 3d  |=0:.XV(Ua$):VZ%=|
00007720  b9 3a 56 61 25 3d a3 3a  56 73 25 3d 5a 65 25 0d  |.:Va%=.:Vs%=Ze%.|
00007730  46 c8 07 cd 3a e1 0d 46  e6 1a dd f2 5a 59 28 59  |F...:..F....ZY(Y|
00007740  67 25 2c 55 6d 25 29 3a  e7 55 6d 25 3d 32 20 8c  |g%,Um%):.Um%=2 .|
00007750  0d 46 fa 10 e7 57 57 25  3f 32 3d 26 30 30 20 8c  |.F...WW%?2=&00 .|
00007760  0d 47 04 1a 57 57 25 3f  32 3d a4 61 5a 28 59 67  |.G..WW%?2=.aZ(Yg|
00007770  25 2c 32 29 3a 57 67 25  3d b9 0d 47 0e 1b cc 57  |%,2):Wg%=..G...W|
00007780  57 25 3f 32 3d a4 61 58  28 59 67 25 2c 32 29 3a  |W%?2=.aX(Yg%,2):|
00007790  57 67 25 3d a3 0d 47 18  05 cd 0d 47 22 0e cd 3a  |Wg%=..G....G"..:|
000077a0  e7 55 6d 25 3d 39 20 8c  0d 47 36 10 e7 57 57 25  |.Um%=9 ..G6..WW%|
000077b0  3f 39 3d 26 30 30 20 8c  0d 47 40 21 e7 a7 55 61  |?9=&00 ..G@!..Ua|
000077c0  24 2c 22 2e 22 29 3c 3e  30 20 80 a7 55 61 24 2c  |$,".")<>0 ..Ua$,|
000077d0  22 3a 22 29 3c 3e 30 20  8c 0d 47 4a 4a 57 57 25  |":")<>0 ..GJJWW%|
000077e0  3f 39 3d a4 61 5a 28 59  67 25 2c 39 29 3a 56 68  |?9=.aZ(Yg%,9):Vh|
000077f0  25 3d b9 3a 56 6a 25 3d  91 3a f2 58 78 28 59 67  |%=.:Vj%=.:.Xx(Yg|
00007800  25 2c 33 2c 26 30 37 30  30 46 31 33 44 2c 26 46  |%,3,&0700F13D,&F|
00007810  46 46 46 46 46 46 46 29  3a f2 59 55 28 59 67 25  |FFFFFFF):.YU(Yg%|
00007820  2c 33 29 0d 47 68 05 cd  0d 47 72 46 cc 57 57 25  |,3).Gh...GrF.WW%|
00007830  3f 39 3d a4 61 58 28 59  67 25 2c 39 29 3a 56 68  |?9=.aX(Yg%,9):Vh|
00007840  25 3d a3 3a f2 58 78 28  59 67 25 2c 33 2c 26 30  |%=.:.Xx(Yg%,3,&0|
00007850  32 30 30 30 31 33 44 2c  26 46 46 46 46 46 46 46  |200013D,&FFFFFFF|
00007860  46 29 3a c8 99 26 34 30  30 44 32 2c 2d 31 0d 47  |F):..&400D2,-1.G|
00007870  90 05 cd 0d 47 9a 07 cd  3a e1 0d 47 e0 50 dd f2  |....G...:..G.P..|
00007880  55 63 28 64 6b 24 29 3a  ea 61 25 2c 62 25 2c 55  |Uc(dk$):.a%,b%,U|
00007890  64 25 2c 70 25 2c 75 24  3a 55 64 25 3d 8e 64 6b  |d%,p%,u$:Ud%=.dk|
000078a0  24 3a 61 25 3d a4 64 6e  28 64 6b 24 2c 22 44 61  |$:a%=.dn(dk$,"Da|
000078b0  74 61 42 61 73 65 22 2c  26 31 32 44 29 3a e7 61  |taBase",&12D):.a|
000078c0  25 3d a3 d9 23 55 64 25  3a e1 0d 48 12 1f e7 57  |%=..#Ud%:..H...W|
000078d0  69 24 3c 3e 22 44 61 74  61 42 61 73 65 20 31 32  |i$<>"DataBase 12|
000078e0  44 22 d9 23 55 64 25 3a  e1 0d 48 1c f4 f2 5a 75  |D".#Ud%:..H...Zu|
000078f0  3a c8 99 26 34 30 36 43  30 3a 75 24 3d 22 22 3a  |:..&406C0:u$="":|
00007900  e3 6a 25 3d 31 20 b8 32  3a 75 24 2b 3d bd 28 9a  |.j%=1 .2:u$+=.(.|
00007910  23 55 64 25 29 3a ed 3a  56 58 25 3d bb 28 75 24  |#Ud%):.:VX%=.(u$|
00007920  29 3a f5 3a 63 25 3d 9a  23 55 64 25 3a fd 63 25  |):.:c%=.#Ud%:.c%|
00007930  3d 31 33 20 84 63 25 3d  31 30 3a e3 61 25 3d 31  |=13 .c%=10:.a%=1|
00007940  20 b8 56 58 25 3a 70 25  3d 28 61 25 2f 56 58 25  | .VX%:p%=(a%/VX%|
00007950  29 2a 31 30 30 3a c8 99  26 34 30 36 43 34 2c 70  |)*100:..&406C4,p|
00007960  25 3a e3 62 25 3d 30 20  b8 39 3a 75 24 3d 22 22  |%:.b%=0 .9:u$=""|
00007970  3a f5 3a 63 25 3d 9a 23  55 64 25 3a 75 24 2b 3d  |:.:c%=.#Ud%:u$+=|
00007980  bd 28 63 25 29 3a fd 63  25 3d 31 33 20 84 63 25  |.(c%):.c%=13 .c%|
00007990  3d 31 30 3a 46 24 28 61  25 2c 62 25 29 3d c0 75  |=10:F$(a%,b%)=.u|
000079a0  24 2c a9 28 75 24 29 2d  31 29 3a ed 3a ed 3a 75  |$,.(u$)-1):.:.:u|
000079b0  24 3d 22 22 3a e3 6a 25  3d 31 20 b8 33 3a 75 24  |$="":.j%=1 .3:u$|
000079c0  2b 3d bd 28 9a 23 55 64  25 29 3a ed 3a 55 25 3d  |+=.(.#Ud%):.:U%=|
000079d0  bb 28 75 24 29 3a e7 55  25 3e 30 20 8c 0d 48 94  |.(u$):.U%>0 ..H.|
000079e0  90 f5 3a 63 25 3d 9a 23  55 64 25 3a fd 63 25 3d  |..:c%=.#Ud%:.c%=|
000079f0  31 33 20 84 63 25 3d 31  30 3a e3 61 25 3d 31 20  |13 .c%=10:.a%=1 |
00007a00  b8 55 25 3a 70 25 3d 28  61 25 2f 55 25 29 2a 31  |.U%:p%=(a%/U%)*1|
00007a10  30 30 3a c8 99 26 34 30  36 43 34 2c 70 25 3a e3  |00:..&406C4,p%:.|
00007a20  62 25 3d 31 20 b8 56 58  25 3a 75 24 3d 22 22 3a  |b%=1 .VX%:u$="":|
00007a30  f5 3a 63 25 3d 9a 23 55  64 25 3a 75 24 2b 3d bd  |.:c%=.#Ud%:u$+=.|
00007a40  28 63 25 29 3a fd 63 25  3d 31 33 20 84 63 25 3d  |(c%):.c%=13 .c%=|
00007a50  31 30 3a 52 24 28 61 25  2c 62 25 29 3d c0 75 24  |10:R$(a%,b%)=.u$|
00007a60  2c a9 28 75 24 29 2d 31  29 3a ed 3a ed 0d 48 e4  |,.(u$)-1):.:..H.|
00007a70  b7 cd 3a d9 23 55 64 25  3a 4e 25 3d 31 3a 58 79  |..:.#Ud%:N%=1:Xy|
00007a80  25 3d b9 3a 62 62 24 3d  22 4e 4f 22 3a f2 57 76  |%=.:bb$="NO":.Wv|
00007a90  3a 64 6f 24 3d 64 6b 24  3a f2 64 72 3a f2 58 7a  |:do$=dk$:.dr:.Xz|
00007aa0  28 57 77 25 2c a3 29 3a  f2 59 59 3a f2 56 7a 28  |(Ww%,.):.YY:.Vz(|
00007ab0  57 77 25 2c 38 2c c3 28  55 25 29 29 3a 41 25 3d  |Ww%,8,.(U%)):A%=|
00007ac0  31 3a 42 25 3d 55 25 3a  58 25 3d 31 3a 59 25 3d  |1:B%=U%:X%=1:Y%=|
00007ad0  55 25 3a 53 25 3d 31 3a  54 25 3d 55 25 3a f2 56  |U%:S%=1:T%=U%:.V|
00007ae0  7a 28 58 67 25 2c 31 32  2c c3 28 55 25 29 29 3a  |z(Xg%,12,.(U%)):|
00007af0  f2 56 7a 28 58 56 25 2c  36 2c c3 28 53 25 29 29  |.Vz(XV%,6,.(S%))|
00007b00  3a f2 56 7a 28 58 56 25  2c 38 2c c3 28 54 25 29  |:.Vz(XV%,8,.(T%)|
00007b10  29 3a 57 66 24 3d 64 6b  24 3a c8 99 26 34 30 36  |):Wf$=dk$:..&406|
00007b20  43 31 3a e1 0d 49 3e 73  dd f2 56 75 28 64 73 24  |C1:..I>s..Vu(ds$|
00007b30  29 3a ea 55 64 25 2c 55  78 25 3a 55 64 25 3d 8e  |):.Ud%,Ux%:Ud%=.|
00007b40  64 73 24 3a 55 78 25 3d  a2 20 23 55 64 25 2b 31  |ds$:Ux%=. #Ud%+1|
00007b50  36 3a d9 23 55 64 25 3a  de 62 66 25 20 55 78 25  |6:.#Ud%:.bf% Ux%|
00007b60  3a 21 62 66 25 3d 55 78  25 3a 62 66 25 21 34 3d  |:!bf%=Ux%:bf%!4=|
00007b70  30 3a 62 66 25 21 38 3d  31 36 3a 62 66 25 21 31  |0:bf%!8=16:bf%!1|
00007b80  32 3d 30 3a c8 99 26 32  45 2c 32 36 36 2c 62 66  |2=0:..&2E,266,bf|
00007b90  25 2c 64 73 24 3a e1 0d  49 8e e5 dd f2 57 75 3a  |%,ds$:..I....Wu:|
00007ba0  ea 64 74 2c 55 63 25 2c  64 6c 25 2c 57 75 24 3a  |.dt,Uc%,dl%,Wu$:|
00007bb0  55 67 25 3f 30 3d 33 3a  c8 99 26 37 2c 31 34 2c  |Ug%?0=3:..&7,14,|
00007bc0  55 67 25 3a 55 63 25 3d  55 67 25 3f 34 3a 64 6c  |Ug%:Uc%=Ug%?4:dl|
00007bd0  25 3d 55 67 25 21 30 3a  55 63 25 3d 28 55 63 25  |%=Ug%!0:Uc%=(Uc%|
00007be0  20 80 26 46 46 29 20 84  28 26 46 46 46 3c 3c 32  | .&FF) .(&FFF<<2|
00007bf0  30 29 20 84 28 57 69 25  3c 3c 38 29 3a 64 74 3d  |0) .(Wi%<<8):dt=|
00007c00  55 67 25 3a 64 74 3f 34  3d 55 63 25 20 80 26 46  |Ug%:dt?4=Uc% .&F|
00007c10  46 3a 64 74 3f 33 3d 64  6c 25 3e 3e 32 34 20 80  |F:dt?3=dl%>>24 .|
00007c20  26 46 46 3a 64 74 3f 32  3d 64 6c 25 3e 3e 31 36  |&FF:dt?2=dl%>>16|
00007c30  20 80 26 46 46 3a 64 74  3f 31 3d 64 6c 25 3e 3e  | .&FF:dt?1=dl%>>|
00007c40  38 20 80 26 46 46 3a 64  74 3f 30 3d 64 6c 25 20  |8 .&FF:dt?0=dl% |
00007c50  80 26 46 46 3a c8 99 26  43 30 2c 64 74 2c 55 67  |.&FF:..&C0,dt,Ug|
00007c60  25 2c 32 38 3a 57 75 24  3d 24 55 67 25 3a 62 64  |%,28:Wu$=$Ug%:bd|
00007c70  24 3d c0 57 75 24 2c 32  30 29 3a e1 0d 4a 06 3f  |$=.Wu$,20):..J.?|
00007c80  dd a4 64 70 28 64 75 24  29 3a ea 61 25 2c 61 24  |..dp(du$):.a%,a$|
00007c90  2c 62 24 3a e7 28 28 a7  64 75 24 2c 22 2e 22 29  |,b$:.((.du$,".")|
00007ca0  3d 30 29 20 80 28 a7 64  75 24 2c 22 3a 22 29 3d  |=0) .(.du$,":")=|
00007cb0  30 29 29 20 8c 62 24 3d  64 75 24 0d 4a 24 57 61  |0)) .b$=du$.J$Wa|
00007cc0  25 3d a9 28 64 75 24 29  3a f5 3a 61 24 3d c1 64  |%=.(du$):.:a$=.d|
00007cd0  75 24 2c 61 25 2c 31 29  3a 61 25 2d 3d 31 3a fd  |u$,a%,1):a%-=1:.|
00007ce0  28 61 25 3c 30 20 84 61  24 3d 22 2e 22 20 84 61  |(a%<0 .a$="." .a|
00007cf0  24 3d 22 3a 22 29 3a e7  61 25 3e 30 20 8c 62 24  |$=":"):.a%>0 .b$|
00007d00  3d c2 64 75 24 2c a9 28  64 75 24 29 2d 61 25 2d  |=.du$,.(du$)-a%-|
00007d10  31 29 0d 4a 56 07 3d 62  24 0d 4a 6a 4e dd a4 64  |1).JV.=b$.JjN..d|
00007d20  6e 28 64 75 24 2c 64 76  24 2c 64 77 25 29 3a ea  |n(du$,dv$,dw%):.|
00007d30  74 25 2c 55 63 25 2c 64  6c 25 2c 55 75 25 2c 61  |t%,Uc%,dl%,Uu%,a|
00007d40  25 2c 62 25 2c 63 25 2c  64 74 2c 64 77 24 2c 57  |%,b%,c%,dt,dw$,W|
00007d50  75 24 2c 57 6d 25 3a 57  6d 25 3d b9 3a e7 64 75  |u$,Wm%:Wm%=.:.du|
00007d60  24 3c 3e 22 22 20 8c 0d  4a 92 22 c8 99 26 38 2c  |$<>"" ..J."..&8,|
00007d70  35 2c 64 75 24 20 b8 74  25 2c 2c 55 63 25 2c 64  |5,du$ .t%,,Uc%,d|
00007d80  6c 25 2c 55 75 25 2c 61  25 0d 4a 9c 2f cd 3a e7  |l%,Uu%,a%.J./.:.|
00007d90  28 64 75 24 3d 22 22 29  20 84 28 28 74 25 3d 31  |(du$="") .((t%=1|
00007da0  29 20 80 28 61 25 20 80  31 29 20 80 28 55 75 25  |) .(a% .1) .(Uu%|
00007db0  3e 38 29 29 3d 30 20 8c  0d 4a b0 37 55 61 24 3d  |>8))=0 ..J.7Ua$=|
00007dc0  22 44 42 61 73 65 46 69  6c 65 22 3a 62 62 24 3d  |"DBaseFile":bb$=|
00007dd0  22 4e 4f 22 3a 62 63 24  3d 22 22 3a 57 69 24 3d  |"NO":bc$="":Wi$=|
00007de0  22 22 3a 62 64 24 3d 22  22 3a 57 6d 25 3d a3 0d  |"":bd$="":Wm%=..|
00007df0  4a c4 0c cd 3a e7 57 6d  25 20 8c 0d 4a d8 21 62  |J...:.Wm% ..J.!b|
00007e00  63 24 3d c3 28 55 75 25  29 3a e7 28 55 63 25 3e  |c$=.(Uu%):.(Uc%>|
00007e10  3e 3e 32 30 29 3d 26 46  46 46 20 8c 0d 4a ec 1a  |>>20)=&FFF ..J..|
00007e20  e7 28 26 46 46 46 20 80  55 63 25 3e 3e 3e 38 29  |.(&FFF .Uc%>>>8)|
00007e30  3d 64 77 25 20 8c 0d 4a  f6 0f 57 69 24 3d 64 76  |=dw% ..J..Wi$=dv|
00007e40  24 2b 22 20 22 0d 4b 00  b1 cc 3a c8 99 26 32 39  |$+" ".K...:..&29|
00007e50  2c 31 38 2c 2c 28 26 46  46 46 20 80 55 63 25 3e  |,18,,(&FFF .Uc%>|
00007e60  3e 3e 38 29 20 b8 2c 2c  62 25 2c 63 25 3a 64 77  |>>8) .,,b%,c%:dw|
00007e70  24 3d bd 28 62 25 20 80  26 46 46 29 2b bd 28 28  |$=.(b% .&FF)+.((|
00007e80  62 25 3e 3e 38 29 20 80  26 46 46 29 2b bd 28 28  |b%>>8) .&FF)+.((|
00007e90  62 25 3e 3e 31 36 29 20  80 26 46 46 29 2b bd 28  |b%>>16) .&FF)+.(|
00007ea0  28 62 25 3e 3e 32 34 29  80 26 46 46 29 3a 64 77  |(b%>>24).&FF):dw|
00007eb0  24 2b 3d bd 28 63 25 20  80 26 46 46 29 2b bd 28  |$+=.(c% .&FF)+.(|
00007ec0  28 63 25 3e 3e 38 29 20  80 26 46 46 29 2b bd 28  |(c%>>8) .&FF)+.(|
00007ed0  28 63 25 3e 3e 31 36 29  20 80 26 46 46 29 2b bd  |(c%>>16) .&FF)+.|
00007ee0  28 28 63 25 3e 3e 32 34  29 80 26 46 46 29 3a 57  |((c%>>24).&FF):W|
00007ef0  69 24 3d 64 77 24 0d 4b  32 9a cd 3a 57 69 24 2b  |i$=dw$.K2..:Wi$+|
00007f00  3d c3 7e 28 26 46 46 46  20 80 55 63 25 3e 3e 3e  |=.~(&FFF .Uc%>>>|
00007f10  38 29 3a 64 74 3d 55 67  25 3a 64 74 3f 34 3d 55  |8):dt=Ug%:dt?4=U|
00007f20  63 25 20 80 26 46 46 3a  64 74 3f 33 3d 64 6c 25  |c% .&FF:dt?3=dl%|
00007f30  3e 3e 32 34 20 80 26 46  46 3a 64 74 3f 32 3d 64  |>>24 .&FF:dt?2=d|
00007f40  6c 25 3e 3e 31 36 20 80  26 46 46 3a 64 74 3f 31  |l%>>16 .&FF:dt?1|
00007f50  3d 64 6c 25 3e 3e 38 20  80 26 46 46 3a 64 74 3f  |=dl%>>8 .&FF:dt?|
00007f60  30 3d 64 6c 25 20 80 26  46 46 3a c8 99 26 43 30  |0=dl% .&FF:..&C0|
00007f70  2c 64 74 2c 55 67 25 2c  32 38 3a 57 75 24 3d 24  |,dt,Ug%,28:Wu$=$|
00007f80  55 67 25 3a 62 64 24 3d  c0 57 75 24 2c 32 30 29  |Ug%:bd$=.Wu$,20)|
00007f90  0d 4b 96 05 cd 0d 4b a0  0a cd 3a 3d 57 6d 25 0d  |.K....K...:=Wm%.|
00007fa0  4b be 2b dd a4 62 6a 28  73 25 29 3a ea 61 24 3a  |K.+..bj(s%):.a$:|
00007fb0  c8 95 3f 73 25 3a 61 24  2b 3d bd 3f 73 25 3a 73  |..?s%:a$+=.?s%:s|
00007fc0  25 2b 3d 31 3a ce 3a 3d  61 24 0d 4c 2c 20 dd f2  |%+=1:.:=a$.L, ..|
00007fd0  59 71 28 55 6d 25 29 3a  ea 68 25 3a 68 25 3d 58  |Yq(Um%):.h%:h%=X|
00007fe0  69 25 3a c8 8e 55 6d 25  20 ca 0d 4c 4a 18 c9 31  |i%:..Um% ..LJ..1|
00007ff0  3a e7 56 57 25 3d 56 58  25 20 84 56 58 25 3d 30  |:.VW%=VX% .VX%=0|
00008000  20 8c 0d 4c 5e 0a e7 56  58 25 20 8c 0d 4c 68 25  | ..L^..VX% ..Lh%|
00008010  58 5a 24 3d 22 54 68 69  73 20 69 73 20 74 68 65  |XZ$="This is the|
00008020  20 6c 61 73 74 20 66 69  65 6c 64 2e 22 3a f2 58  | last field.":.X|
00008030  5a 0d 4c 72 19 cc 58 5a  24 3d 22 4e 6f 20 66 69  |Z.Lr..XZ$="No fi|
00008040  65 6c 64 73 2e 22 3a f2  58 5a 0d 4c 7c 05 cd 0d  |elds.":.XZ.L|...|
00008050  4c 86 13 cc 56 57 25 2b  3d 31 3a f2 64 78 3a f2  |L...VW%+=1:.dx:.|
00008060  59 5a 0d 4c 90 05 cd 0d  4c 9a 16 c9 32 3a e7 56  |YZ.L....L...2:.V|
00008070  57 25 3d 31 20 84 56 58  25 3d 30 20 8c 0d 4c ae  |W%=1 .VX%=0 ..L.|
00008080  0a e7 56 58 25 20 8c 0d  4c b8 26 58 5a 24 3d 22  |..VX% ..L.&XZ$="|
00008090  54 68 69 73 20 69 73 20  74 68 65 20 66 69 72 73  |This is the firs|
000080a0  74 20 66 69 65 6c 64 2e  22 3a f2 58 5a 0d 4c c2  |t field.":.XZ.L.|
000080b0  19 cc 58 5a 24 3d 22 4e  6f 20 66 69 65 6c 64 73  |..XZ$="No fields|
000080c0  2e 22 3a f2 58 5a 0d 4c  cc 05 cd 0d 4c d6 13 cc  |.":.XZ.L....L...|
000080d0  56 57 25 2d 3d 31 3a f2  64 78 3a f2 59 5a 0d 4c  |VW%-=1:.dx:.YZ.L|
000080e0  e0 05 cd 0d 4c ea 11 c9  37 3a e7 56 58 25 3d 56  |....L...7:.VX%=V|
000080f0  56 25 20 8c 0d 4c fe 20  58 5a 24 3d 22 41 74 20  |V% ..L. XZ$="At |
00008100  6d 6f 73 74 20 31 38 20  66 69 65 6c 64 73 2e 22  |most 18 fields."|
00008110  3a f2 58 5a 0d 4d 08 1d  cc 3a e7 56 58 25 3d 30  |:.XZ.M...:.VX%=0|
00008120  20 84 46 24 28 56 57 25  2c 31 29 3c 3e 22 22 20  | .F$(VW%,1)<>"" |
00008130  8c 0d 4d 1c 96 56 58 25  2b 3d 31 3a f2 56 7a 28  |..M..VX%+=1:.Vz(|
00008140  58 69 25 2c 36 2c c3 28  56 58 25 29 29 3a 56 57  |Xi%,6,.(VX%)):VW|
00008150  25 3d 56 58 25 3a e3 6a  25 3d 30 20 b8 39 3a 46  |%=VX%:.j%=0 .9:F|
00008160  24 28 56 57 25 2c 6a 25  29 3d 22 22 3a ed 3a 46  |$(VW%,j%)="":.:F|
00008170  24 28 56 57 25 2c 30 29  3d 22 30 22 3a 46 24 28  |$(VW%,0)="0":F$(|
00008180  56 57 25 2c 37 29 3d 22  31 22 3a 46 24 28 56 57  |VW%,7)="1":F$(VW|
00008190  25 2c 35 29 3d 22 37 22  3a 46 24 28 56 57 25 2c  |%,5)="7":F$(VW%,|
000081a0  36 29 3d 22 30 22 3a 46  24 28 56 57 25 2c 38 29  |6)="0":F$(VW%,8)|
000081b0  3d 22 37 22 3a f2 64 78  3a f2 59 55 28 58 57 25  |="7":.dx:.YU(XW%|
000081c0  2c 39 29 3a f2 59 5a 0d  4d 44 33 cc 58 5a 24 3d  |,9):.YZ.MD3.XZ$=|
000081d0  22 50 75 74 20 69 6e 20  74 68 65 20 63 75 72 72  |"Put in the curr|
000081e0  65 6e 74 20 66 69 65 6c  64 20 64 61 74 61 20 66  |ent field data f|
000081f0  69 72 73 74 2e 22 3a f2  58 5a 0d 4d 4e 05 cd 0d  |irst.":.XZ.MN...|
00008200  4d 58 05 cd 0d 4d 62 0f  c9 38 3a e7 56 58 25 3e  |MX...Mb..8:.VX%>|
00008210  30 20 8c 0d 4d 76 61 f2  58 76 28 58 57 25 29 3a  |0 ..Mva.Xv(XW%):|
00008220  f2 58 76 28 58 69 25 29  3a 56 73 25 3d 30 3a 55  |.Xv(Xi%):Vs%=0:U|
00008230  61 24 3d 22 44 42 61 73  65 46 69 6c 65 22 3a 57  |a$="DBaseFile":W|
00008240  63 24 3d 22 44 42 61 73  65 43 53 56 22 3a 62 62  |c$="DBaseCSV":bb|
00008250  24 3d 22 59 45 53 22 3a  62 63 24 3d 22 30 22 3a  |$="YES":bc$="0":|
00008260  62 64 24 3d 22 22 3a 58  79 25 3d a3 3a f2 57 76  |bd$="":Xy%=.:.Wv|
00008270  3a f2 64 72 0d 4d 9e 29  cc 58 5a 24 3d 22 4e 6f  |:.dr.M.).XZ$="No|
00008280  20 64 61 74 61 20 74 6f  20 63 72 65 61 74 65 20  | data to create |
00008290  61 72 63 68 69 76 65 2e  22 3a f2 58 5a 0d 4d a8  |archive.":.XZ.M.|
000082a0  05 cd 0d 4d b2 07 cb 3a  e1 0d 4d d0 2a dd f2 59  |...M...:..M.*..Y|
000082b0  70 28 55 6d 25 2c 59 6b  25 29 3a ea 68 25 2c 6a  |p(Um%,Yk%):.h%,j|
000082c0  25 2c 66 25 3a 68 25 3d  58 57 25 3a c8 8e 55 6d  |%,f%:h%=XW%:..Um|
000082d0  25 20 ca 0d 4d ee 12 c9  31 31 3a e7 59 6b 25 3d  |% ..M...11:.Yk%=|
000082e0  59 6f 25 20 8c 0d 4e 02  14 e7 46 24 28 56 57 25  |Yo% ..N...F$(VW%|
000082f0  2c 31 29 3c 3e 22 22 20  8c 0d 4e 0c 11 e7 57 57  |,1)<>"" ..N...WW|
00008300  25 3f 31 31 3d 26 30 30  20 8c 0d 4e 16 31 f2 64  |%?11=&00 ..N.1.d|
00008310  79 3a 57 57 25 3f 31 31  3d a4 5a 77 28 68 25 2c  |y:WW%?11=.Zw(h%,|
00008320  31 31 29 3a 46 24 28 56  57 25 2c 30 29 3d 22 30  |11):F$(VW%,0)="0|
00008330  22 3a 58 79 25 3d a3 3a  f2 57 76 0d 4e 2a 05 cd  |":Xy%=.:.Wv.N*..|
00008340  0d 4e 34 2b cc 58 5a 24  3d 22 50 75 74 20 69 6e  |.N4+.XZ$="Put in|
00008350  20 74 68 65 20 6f 74 68  65 72 20 64 61 74 61 20  | the other data |
00008360  66 69 72 73 74 2e 22 3a  f2 58 5a 0d 4e 3e 05 cd  |first.":.XZ.N>..|
00008370  0d 4e 48 05 cd 0d 4e 52  12 c9 31 33 3a e7 59 6b  |.NH...NR..13:.Yk|
00008380  25 3d 59 6f 25 20 8c 0d  4e 66 14 e7 46 24 28 56  |%=Yo% ..Nf..F$(V|
00008390  57 25 2c 31 29 3c 3e 22  22 20 8c 0d 4e 70 11 e7  |W%,1)<>"" ..Np..|
000083a0  57 57 25 3f 31 33 3d 26  30 30 20 8c 0d 4e 7a 31  |WW%?13=&00 ..Nz1|
000083b0  f2 64 79 3a 57 57 25 3f  31 33 3d a4 5a 77 28 68  |.dy:WW%?13=.Zw(h|
000083c0  25 2c 31 33 29 3a 46 24  28 56 57 25 2c 30 29 3d  |%,13):F$(VW%,0)=|
000083d0  22 31 22 3a 58 79 25 3d  a3 3a f2 57 76 0d 4e 8e  |"1":Xy%=.:.Wv.N.|
000083e0  05 cd 0d 4e 98 2b cc 58  5a 24 3d 22 50 75 74 20  |...N.+.XZ$="Put |
000083f0  69 6e 20 74 68 65 20 6f  74 68 65 72 20 64 61 74  |in the other dat|
00008400  61 20 66 69 72 73 74 2e  22 3a f2 58 5a 0d 4e a2  |a first.":.XZ.N.|
00008410  05 cd 0d 4e ac 05 cd 0d  4e b6 12 c9 31 35 3a e7  |...N....N...15:.|
00008420  59 6b 25 3d 59 6f 25 20  8c 0d 4e ca 14 e7 46 24  |Yk%=Yo% ..N...F$|
00008430  28 56 57 25 2c 31 29 3c  3e 22 22 20 8c 0d 4e d4  |(VW%,1)<>"" ..N.|
00008440  11 e7 57 57 25 3f 31 35  3d 26 30 30 20 8c 0d 4e  |..WW%?15=&00 ..N|
00008450  de 31 f2 64 79 3a 57 57  25 3f 31 35 3d a4 5a 77  |.1.dy:WW%?15=.Zw|
00008460  28 68 25 2c 31 35 29 3a  46 24 28 56 57 25 2c 30  |(h%,15):F$(VW%,0|
00008470  29 3d 22 32 22 3a 58 79  25 3d a3 3a f2 57 76 0d  |)="2":Xy%=.:.Wv.|
00008480  4e f2 05 cd 0d 4e fc 2b  cc 58 5a 24 3d 22 50 75  |N....N.+.XZ$="Pu|
00008490  74 20 69 6e 20 74 68 65  20 6f 74 68 65 72 20 64  |t in the other d|
000084a0  61 74 61 20 66 69 72 73  74 2e 22 3a f2 58 5a 0d  |ata first.":.XZ.|
000084b0  4f 06 05 cd 0d 4f 10 05  cd 0d 4f 1a 12 c9 31 37  |O....O....O...17|
000084c0  3a e7 59 6b 25 3d 59 6f  25 20 8c 0d 4f 2e 14 e7  |:.Yk%=Yo% ..O...|
000084d0  46 24 28 56 57 25 2c 31  29 3c 3e 22 22 20 8c 0d  |F$(VW%,1)<>"" ..|
000084e0  4f 38 11 e7 57 57 25 3f  31 37 3d 26 30 30 20 8c  |O8..WW%?17=&00 .|
000084f0  0d 4f 42 54 f2 64 79 3a  57 57 25 3f 31 37 3d a4  |.OBT.dy:WW%?17=.|
00008500  5a 77 28 68 25 2c 31 37  29 3a 46 24 28 56 57 25  |Zw(h%,17):F$(VW%|
00008510  2c 30 29 3d 22 33 22 3a  46 24 28 56 57 25 2c 31  |,0)="3":F$(VW%,1|
00008520  29 3d 22 38 22 3a f2 56  7a 28 68 25 2c 31 39 2c  |)="8":.Vz(h%,19,|
00008530  46 24 28 56 57 25 2c 31  29 29 3a 58 79 25 3d a3  |F$(VW%,1)):Xy%=.|
00008540  3a f2 57 76 0d 4f 60 05  cd 0d 4f 6a 2b cc 58 5a  |:.Wv.O`...Oj+.XZ|
00008550  24 3d 22 50 75 74 20 69  6e 20 74 68 65 20 6f 74  |$="Put in the ot|
00008560  68 65 72 20 64 61 74 61  20 66 69 72 73 74 2e 22  |her data first."|
00008570  3a f2 58 5a 0d 4f 74 05  cd 0d 4f 7e 05 cd 0d 4f  |:.XZ.Ot...O~...O|
00008580  88 12 c9 32 33 3a e7 59  6b 25 3d 59 6f 25 20 8c  |...23:.Yk%=Yo% .|
00008590  0d 4f 9c 14 e7 46 24 28  56 57 25 2c 31 29 3c 3e  |.O...F$(VW%,1)<>|
000085a0  22 22 20 8c 0d 4f a6 25  66 25 3d bb 28 46 24 28  |"" ..O.%f%=.(F$(|
000085b0  56 57 25 2c 35 29 29 3a  66 25 2b 3d 31 3a e7 66  |VW%,5)):f%+=1:.f|
000085c0  25 3e 31 35 20 66 25 3d  30 0d 4f b0 33 f2 64 59  |%>15 f%=0.O.3.dY|
000085d0  28 68 25 2c 55 6d 25 2c  66 25 29 3a 46 24 28 56  |(h%,Um%,f%):F$(V|
000085e0  57 25 2c 35 29 3d c3 28  66 25 29 3a 58 79 25 3d  |W%,5)=.(f%):Xy%=|
000085f0  a3 3a f2 57 76 3a c8 8e  66 25 20 ca 0d 4f ce 25  |.:.Wv:..f% ..O.%|
00008600  c9 30 2c 31 2c 32 2c 33  2c 39 2c 31 32 2c 31 34  |.0,1,2,3,9,12,14|
00008610  2c 31 35 3a f2 64 57 28  68 25 2c 55 6d 25 2c 37  |,15:.dW(h%,Um%,7|
00008620  29 0d 4f d8 25 c9 34 2c  35 2c 36 2c 37 2c 38 2c  |).O.%.4,5,6,7,8,|
00008630  31 30 2c 31 31 2c 31 33  3a f2 64 57 28 68 25 2c  |10,11,13:.dW(h%,|
00008640  55 6d 25 2c 30 29 0d 4f  e2 17 cb 3a f2 56 7a 28  |Um%,0).O...:.Vz(|
00008650  68 25 2c 55 6d 25 2c c3  28 66 25 29 29 0d 4f f6  |h%,Um%,.(f%)).O.|
00008660  2b cc 58 5a 24 3d 22 50  75 74 20 69 6e 20 74 68  |+.XZ$="Put in th|
00008670  65 20 6f 74 68 65 72 20  64 61 74 61 20 66 69 72  |e other data fir|
00008680  73 74 2e 22 3a f2 58 5a  0d 50 00 05 cd 0d 50 0a  |st.":.XZ.P....P.|
00008690  10 cd 3a e7 59 6b 25 3d  62 5a 25 20 8c 0d 50 1e  |..:.Yk%=bZ% ..P.|
000086a0  14 e7 46 24 28 56 57 25  2c 31 29 3c 3e 22 22 20  |..F$(VW%,1)<>"" |
000086b0  8c 0d 50 28 25 66 25 3d  bb 28 46 24 28 56 57 25  |..P(%f%=.(F$(VW%|
000086c0  2c 35 29 29 3a 66 25 2d  3d 31 3a e7 66 25 3c 30  |,5)):f%-=1:.f%<0|
000086d0  20 66 25 3d 31 35 0d 50  32 33 f2 64 59 28 68 25  | f%=15.P23.dY(h%|
000086e0  2c 55 6d 25 2c 66 25 29  3a 46 24 28 56 57 25 2c  |,Um%,f%):F$(VW%,|
000086f0  35 29 3d c3 28 66 25 29  3a 58 79 25 3d a3 3a f2  |5)=.(f%):Xy%=.:.|
00008700  57 76 3a c8 8e 66 25 20  ca 0d 50 50 25 c9 30 2c  |Wv:..f% ..PP%.0,|
00008710  31 2c 32 2c 33 2c 39 2c  31 32 2c 31 34 2c 31 35  |1,2,3,9,12,14,15|
00008720  3a f2 64 57 28 68 25 2c  55 6d 25 2c 37 29 0d 50  |:.dW(h%,Um%,7).P|
00008730  5a 25 c9 34 2c 35 2c 36  2c 37 2c 38 2c 31 30 2c  |Z%.4,5,6,7,8,10,|
00008740  31 31 2c 31 33 3a f2 64  57 28 68 25 2c 55 6d 25  |11,13:.dW(h%,Um%|
00008750  2c 30 29 0d 50 64 17 cb  3a f2 56 7a 28 68 25 2c  |,0).Pd..:.Vz(h%,|
00008760  55 6d 25 2c c3 28 66 25  29 29 0d 50 78 2b cc 58  |Um%,.(f%)).Px+.X|
00008770  5a 24 3d 22 50 75 74 20  69 6e 20 74 68 65 20 6f  |Z$="Put in the o|
00008780  74 68 65 72 20 64 61 74  61 20 66 69 72 73 74 2e  |ther data first.|
00008790  22 3a f2 58 5a 0d 50 82  05 cd 0d 50 8c 05 cd 0d  |":.XZ.P....P....|
000087a0  50 96 12 c9 32 35 3a e7  59 6b 25 3d 59 6f 25 20  |P...25:.Yk%=Yo% |
000087b0  8c 0d 50 aa 14 e7 46 24  28 56 57 25 2c 31 29 3c  |..P...F$(VW%,1)<|
000087c0  3e 22 22 20 8c 0d 50 b4  25 66 25 3d bb 28 46 24  |>"" ..P.%f%=.(F$|
000087d0  28 56 57 25 2c 36 29 29  3a 66 25 2b 3d 31 3a e7  |(VW%,6)):f%+=1:.|
000087e0  66 25 3e 31 35 20 66 25  3d 30 0d 50 be 33 f2 64  |f%>15 f%=0.P.3.d|
000087f0  59 28 68 25 2c 55 6d 25  2c 66 25 29 3a 46 24 28  |Y(h%,Um%,f%):F$(|
00008800  56 57 25 2c 36 29 3d c3  28 66 25 29 3a 58 79 25  |VW%,6)=.(f%):Xy%|
00008810  3d a3 3a f2 57 76 3a c8  8e 66 25 20 ca 0d 50 dc  |=.:.Wv:..f% ..P.|
00008820  25 c9 30 2c 31 2c 32 2c  33 2c 39 2c 31 32 2c 31  |%.0,1,2,3,9,12,1|
00008830  34 2c 31 35 3a f2 64 57  28 68 25 2c 55 6d 25 2c  |4,15:.dW(h%,Um%,|
00008840  37 29 0d 50 e6 25 c9 34  2c 35 2c 36 2c 37 2c 38  |7).P.%.4,5,6,7,8|
00008850  2c 31 30 2c 31 31 2c 31  33 3a f2 64 57 28 68 25  |,10,11,13:.dW(h%|
00008860  2c 55 6d 25 2c 30 29 0d  50 f0 17 cb 3a f2 56 7a  |,Um%,0).P...:.Vz|
00008870  28 68 25 2c 55 6d 25 2c  c3 28 66 25 29 29 0d 51  |(h%,Um%,.(f%)).Q|
00008880  04 2b cc 58 5a 24 3d 22  50 75 74 20 69 6e 20 74  |.+.XZ$="Put in t|
00008890  68 65 20 6f 74 68 65 72  20 64 61 74 61 20 66 69  |he other data fi|
000088a0  72 73 74 2e 22 3a f2 58  5a 0d 51 0e 05 cd 0d 51  |rst.":.XZ.Q....Q|
000088b0  18 10 cd 3a e7 59 6b 25  3d 62 5a 25 20 8c 0d 51  |...:.Yk%=bZ% ..Q|
000088c0  2c 14 e7 46 24 28 56 57  25 2c 31 29 3c 3e 22 22  |,..F$(VW%,1)<>""|
000088d0  20 8c 0d 51 36 25 66 25  3d bb 28 46 24 28 56 57  | ..Q6%f%=.(F$(VW|
000088e0  25 2c 36 29 29 3a 66 25  2d 3d 31 3a e7 66 25 3c  |%,6)):f%-=1:.f%<|
000088f0  30 20 66 25 3d 31 35 0d  51 40 33 f2 64 59 28 68  |0 f%=15.Q@3.dY(h|
00008900  25 2c 55 6d 25 2c 66 25  29 3a 46 24 28 56 57 25  |%,Um%,f%):F$(VW%|
00008910  2c 36 29 3d c3 28 66 25  29 3a 58 79 25 3d a3 3a  |,6)=.(f%):Xy%=.:|
00008920  f2 57 76 3a c8 8e 66 25  20 ca 0d 51 5e 25 c9 30  |.Wv:..f% ..Q^%.0|
00008930  2c 31 2c 32 2c 33 2c 39  2c 31 32 2c 31 34 2c 31  |,1,2,3,9,12,14,1|
00008940  35 3a f2 64 57 28 68 25  2c 55 6d 25 2c 37 29 0d  |5:.dW(h%,Um%,7).|
00008950  51 68 25 c9 34 2c 35 2c  36 2c 37 2c 38 2c 31 30  |Qh%.4,5,6,7,8,10|
00008960  2c 31 31 2c 31 33 3a f2  64 57 28 68 25 2c 55 6d  |,11,13:.dW(h%,Um|
00008970  25 2c 30 29 0d 51 72 17  cb 3a f2 56 7a 28 68 25  |%,0).Qr..:.Vz(h%|
00008980  2c 55 6d 25 2c c3 28 66  25 29 29 0d 51 86 2b cc  |,Um%,.(f%)).Q.+.|
00008990  58 5a 24 3d 22 50 75 74  20 69 6e 20 74 68 65 20  |XZ$="Put in the |
000089a0  6f 74 68 65 72 20 64 61  74 61 20 66 69 72 73 74  |other data first|
000089b0  2e 22 3a f2 58 5a 0d 51  90 05 cd 0d 51 9a 05 cd  |.":.XZ.Q....Q...|
000089c0  0d 51 a4 12 c9 33 30 3a  e7 59 6b 25 3d 59 6f 25  |.Q...30:.Yk%=Yo%|
000089d0  20 8c 0d 51 b8 14 e7 46  24 28 56 57 25 2c 31 29  | ..Q...F$(VW%,1)|
000089e0  3c 3e 22 22 20 8c 0d 51  c2 11 e7 57 57 25 3f 33  |<>"" ..Q...WW%?3|
000089f0  30 3d 26 30 30 20 8c 0d  51 cc 31 f2 64 7a 3a 57  |0=&00 ..Q.1.dz:W|
00008a00  57 25 3f 33 30 3d a4 5a  77 28 68 25 2c 33 30 29  |W%?30=.Zw(h%,30)|
00008a10  3a 46 24 28 56 57 25 2c  37 29 3d 22 30 22 3a 58  |:F$(VW%,7)="0":X|
00008a20  79 25 3d a3 3a f2 57 76  0d 51 e0 05 cd 0d 51 ea  |y%=.:.Wv.Q....Q.|
00008a30  2b cc 58 5a 24 3d 22 50  75 74 20 69 6e 20 74 68  |+.XZ$="Put in th|
00008a40  65 20 6f 74 68 65 72 20  64 61 74 61 20 66 69 72  |e other data fir|
00008a50  73 74 2e 22 3a f2 58 5a  0d 51 f4 05 cd 0d 51 fe  |st.":.XZ.Q....Q.|
00008a60  05 cd 0d 52 08 12 c9 33  32 3a e7 59 6b 25 3d 59  |...R...32:.Yk%=Y|
00008a70  6f 25 20 8c 0d 52 1c 14  e7 46 24 28 56 57 25 2c  |o% ..R...F$(VW%,|
00008a80  31 29 3c 3e 22 22 20 8c  0d 52 26 11 e7 57 57 25  |1)<>"" ..R&..WW%|
00008a90  3f 33 32 3d 26 30 30 20  8c 0d 52 30 31 f2 64 7a  |?32=&00 ..R01.dz|
00008aa0  3a 57 57 25 3f 33 32 3d  a4 5a 77 28 68 25 2c 33  |:WW%?32=.Zw(h%,3|
00008ab0  32 29 3a 46 24 28 56 57  25 2c 37 29 3d 22 31 22  |2):F$(VW%,7)="1"|
00008ac0  3a 58 79 25 3d a3 3a f2  57 76 0d 52 44 05 cd 0d  |:Xy%=.:.Wv.RD...|
00008ad0  52 4e 2b cc 58 5a 24 3d  22 50 75 74 20 69 6e 20  |RN+.XZ$="Put in |
00008ae0  74 68 65 20 6f 74 68 65  72 20 64 61 74 61 20 66  |the other data f|
00008af0  69 72 73 74 2e 22 3a f2  58 5a 0d 52 58 05 cd 0d  |irst.":.XZ.RX...|
00008b00  52 62 05 cd 0d 52 6c 12  c9 33 34 3a e7 59 6b 25  |Rb...Rl..34:.Yk%|
00008b10  3d 59 6f 25 20 8c 0d 52  80 14 e7 46 24 28 56 57  |=Yo% ..R...F$(VW|
00008b20  25 2c 31 29 3c 3e 22 22  20 8c 0d 52 8a 11 e7 57  |%,1)<>"" ..R...W|
00008b30  57 25 3f 33 34 3d 26 30  30 20 8c 0d 52 94 31 f2  |W%?34=&00 ..R.1.|
00008b40  64 7a 3a 57 57 25 3f 33  34 3d a4 5a 77 28 68 25  |dz:WW%?34=.Zw(h%|
00008b50  2c 33 34 29 3a 46 24 28  56 57 25 2c 37 29 3d 22  |,34):F$(VW%,7)="|
00008b60  32 22 3a 58 79 25 3d a3  3a f2 57 76 0d 52 a8 05  |2":Xy%=.:.Wv.R..|
00008b70  cd 0d 52 b2 2b cc 58 5a  24 3d 22 50 75 74 20 69  |..R.+.XZ$="Put i|
00008b80  6e 20 74 68 65 20 6f 74  68 65 72 20 64 61 74 61  |n the other data|
00008b90  20 66 69 72 73 74 2e 22  3a f2 58 5a 0d 52 bc 05  | first.":.XZ.R..|
00008ba0  cd 0d 52 c6 05 cd 0d 52  d0 12 c9 33 37 3a e7 59  |..R....R...37:.Y|
00008bb0  6b 25 3d 59 6f 25 20 8c  0d 52 e4 14 e7 46 24 28  |k%=Yo% ..R...F$(|
00008bc0  56 57 25 2c 31 29 3c 3e  22 22 20 8c 0d 52 ee 25  |VW%,1)<>"" ..R.%|
00008bd0  66 25 3d bb 28 46 24 28  56 57 25 2c 38 29 29 3a  |f%=.(F$(VW%,8)):|
00008be0  66 25 2b 3d 31 3a e7 66  25 3e 31 35 20 66 25 3d  |f%+=1:.f%>15 f%=|
00008bf0  30 0d 52 f8 33 f2 64 59  28 68 25 2c 55 6d 25 2c  |0.R.3.dY(h%,Um%,|
00008c00  66 25 29 3a 46 24 28 56  57 25 2c 38 29 3d c3 28  |f%):F$(VW%,8)=.(|
00008c10  66 25 29 3a 58 79 25 3d  a3 3a f2 57 76 3a c8 8e  |f%):Xy%=.:.Wv:..|
00008c20  66 25 20 ca 0d 53 16 25  c9 30 2c 31 2c 32 2c 33  |f% ..S.%.0,1,2,3|
00008c30  2c 39 2c 31 32 2c 31 34  2c 31 35 3a f2 64 57 28  |,9,12,14,15:.dW(|
00008c40  68 25 2c 55 6d 25 2c 37  29 0d 53 20 25 c9 34 2c  |h%,Um%,7).S %.4,|
00008c50  35 2c 36 2c 37 2c 38 2c  31 30 2c 31 31 2c 31 33  |5,6,7,8,10,11,13|
00008c60  3a f2 64 57 28 68 25 2c  55 6d 25 2c 30 29 0d 53  |:.dW(h%,Um%,0).S|
00008c70  2a 17 cb 3a f2 56 7a 28  68 25 2c 55 6d 25 2c c3  |*..:.Vz(h%,Um%,.|
00008c80  28 66 25 29 29 0d 53 3e  2b cc 58 5a 24 3d 22 50  |(f%)).S>+.XZ$="P|
00008c90  75 74 20 69 6e 20 74 68  65 20 6f 74 68 65 72 20  |ut in the other |
00008ca0  64 61 74 61 20 66 69 72  73 74 2e 22 3a f2 58 5a  |data first.":.XZ|
00008cb0  0d 53 48 05 cd 0d 53 52  10 cd 3a e7 59 6b 25 3d  |.SH...SR..:.Yk%=|
00008cc0  62 5a 25 20 8c 0d 53 66  14 e7 46 24 28 56 57 25  |bZ% ..Sf..F$(VW%|
00008cd0  2c 31 29 3c 3e 22 22 20  8c 0d 53 70 25 66 25 3d  |,1)<>"" ..Sp%f%=|
00008ce0  bb 28 46 24 28 56 57 25  2c 38 29 29 3a 66 25 2d  |.(F$(VW%,8)):f%-|
00008cf0  3d 31 3a e7 66 25 3c 30  20 66 25 3d 31 35 0d 53  |=1:.f%<0 f%=15.S|
00008d00  7a 33 f2 64 59 28 68 25  2c 55 6d 25 2c 66 25 29  |z3.dY(h%,Um%,f%)|
00008d10  3a 46 24 28 56 57 25 2c  38 29 3d c3 28 66 25 29  |:F$(VW%,8)=.(f%)|
00008d20  3a 58 79 25 3d a3 3a f2  57 76 3a c8 8e 66 25 20  |:Xy%=.:.Wv:..f% |
00008d30  ca 0d 53 98 25 c9 30 2c  31 2c 32 2c 33 2c 39 2c  |..S.%.0,1,2,3,9,|
00008d40  31 32 2c 31 34 2c 31 35  3a f2 64 57 28 68 25 2c  |12,14,15:.dW(h%,|
00008d50  55 6d 25 2c 37 29 0d 53  a2 25 c9 34 2c 35 2c 36  |Um%,7).S.%.4,5,6|
00008d60  2c 37 2c 38 2c 31 30 2c  31 31 2c 31 33 3a f2 64  |,7,8,10,11,13:.d|
00008d70  57 28 68 25 2c 55 6d 25  2c 30 29 0d 53 ac 17 cb  |W(h%,Um%,0).S...|
00008d80  3a f2 56 7a 28 68 25 2c  55 6d 25 2c c3 28 66 25  |:.Vz(h%,Um%,.(f%|
00008d90  29 29 0d 53 c0 2b cc 58  5a 24 3d 22 50 75 74 20  |)).S.+.XZ$="Put |
00008da0  69 6e 20 74 68 65 20 6f  74 68 65 72 20 64 61 74  |in the other dat|
00008db0  61 20 66 69 72 73 74 2e  22 3a f2 58 5a 0d 53 ca  |a first.":.XZ.S.|
00008dc0  05 cd 0d 53 d4 05 cd 0d  53 de 07 cb 3a e1 0d 53  |...S....S...:..S|
00008dd0  fc 4c dd f2 64 78 3a ea  68 25 2c 66 25 3a 68 25  |.L..dx:.h%,f%:h%|
00008de0  3d 58 57 25 3a f2 56 7a  28 58 69 25 2c 34 2c c3  |=XW%:.Vz(Xi%,4,.|
00008df0  28 56 57 25 29 29 3a f2  56 7a 28 58 69 25 2c 36  |(VW%)):.Vz(Xi%,6|
00008e00  2c c3 28 56 58 25 29 29  3a f2 64 79 3a c8 8e 46  |,.(VX%)):.dy:..F|
00008e10  24 28 56 57 25 2c 30 29  20 ca 0d 54 2e 1a c9 22  |$(VW%,0) ..T..."|
00008e20  30 22 3a 57 57 25 3f 31  31 3d a4 5a 77 28 68 25  |0":WW%?11=.Zw(h%|
00008e30  2c 31 31 29 0d 54 38 1a  c9 22 31 22 3a 57 57 25  |,11).T8.."1":WW%|
00008e40  3f 31 33 3d a4 5a 77 28  68 25 2c 31 33 29 0d 54  |?13=.Zw(h%,13).T|
00008e50  42 1a c9 22 32 22 3a 57  57 25 3f 31 35 3d a4 5a  |B.."2":WW%?15=.Z|
00008e60  77 28 68 25 2c 31 35 29  0d 54 4c 1a c9 22 33 22  |w(h%,15).TL.."3"|
00008e70  3a 57 57 25 3f 31 37 3d  a4 5a 77 28 68 25 2c 31  |:WW%?17=.Zw(h%,1|
00008e80  37 29 0d 54 56 68 cb 3a  f2 56 7a 28 68 25 2c 39  |7).TVh.:.Vz(h%,9|
00008e90  2c 46 24 28 56 57 25 2c  32 29 29 3a f2 56 7a 28  |,F$(VW%,2)):.Vz(|
00008ea0  68 25 2c 31 32 2c 46 24  28 56 57 25 2c 34 29 29  |h%,12,F$(VW%,4))|
00008eb0  3a f2 56 7a 28 68 25 2c  31 39 2c 46 24 28 56 57  |:.Vz(h%,19,F$(VW|
00008ec0  25 2c 31 29 29 3a 66 25  3d bb 28 46 24 28 56 57  |%,1)):f%=.(F$(VW|
00008ed0  25 2c 35 29 29 3a f2 64  59 28 68 25 2c 32 33 2c  |%,5)):.dY(h%,23,|
00008ee0  66 25 29 3a c8 8e 66 25  20 ca 0d 54 88 24 c9 30  |f%):..f% ..T.$.0|
00008ef0  2c 31 2c 32 2c 33 2c 39  2c 31 32 2c 31 34 2c 31  |,1,2,3,9,12,14,1|
00008f00  35 3a f2 64 57 28 68 25  2c 32 33 2c 37 29 0d 54  |5:.dW(h%,23,7).T|
00008f10  92 24 c9 34 2c 35 2c 36  2c 37 2c 38 2c 31 30 2c  |.$.4,5,6,7,8,10,|
00008f20  31 31 2c 31 33 3a f2 64  57 28 68 25 2c 32 33 2c  |11,13:.dW(h%,23,|
00008f30  30 29 0d 54 9c 3b cb 3a  f2 56 7a 28 68 25 2c 32  |0).T.;.:.Vz(h%,2|
00008f40  33 2c c3 28 66 25 29 29  3a 66 25 3d bb 28 46 24  |3,.(f%)):f%=.(F$|
00008f50  28 56 57 25 2c 36 29 29  3a f2 64 59 28 68 25 2c  |(VW%,6)):.dY(h%,|
00008f60  32 35 2c 66 25 29 3a c8  8e 66 25 20 ca 0d 54 c4  |25,f%):..f% ..T.|
00008f70  24 c9 30 2c 31 2c 32 2c  33 2c 39 2c 31 32 2c 31  |$.0,1,2,3,9,12,1|
00008f80  34 2c 31 35 3a f2 64 57  28 68 25 2c 32 35 2c 37  |4,15:.dW(h%,25,7|
00008f90  29 0d 54 ce 24 c9 34 2c  35 2c 36 2c 37 2c 38 2c  |).T.$.4,5,6,7,8,|
00008fa0  31 30 2c 31 31 2c 31 33  3a f2 64 57 28 68 25 2c  |10,11,13:.dW(h%,|
00008fb0  32 35 2c 30 29 0d 54 d8  3d cb 3a f2 56 7a 28 68  |25,0).T.=.:.Vz(h|
00008fc0  25 2c 32 35 2c c3 28 66  25 29 29 3a f2 56 7a 28  |%,25,.(f%)):.Vz(|
00008fd0  68 25 2c 32 37 2c 46 24  28 56 57 25 2c 33 29 29  |h%,27,F$(VW%,3))|
00008fe0  3a f2 64 7a 3a c8 8e 46  24 28 56 57 25 2c 37 29  |:.dz:..F$(VW%,7)|
00008ff0  20 ca 0d 55 00 1a c9 22  30 22 3a 57 57 25 3f 33  | ..U..."0":WW%?3|
00009000  30 3d a4 5a 77 28 68 25  2c 33 30 29 0d 55 0a 1a  |0=.Zw(h%,30).U..|
00009010  c9 22 31 22 3a 57 57 25  3f 33 32 3d a4 5a 77 28  |."1":WW%?32=.Zw(|
00009020  68 25 2c 33 32 29 0d 55  14 1a c9 22 32 22 3a 57  |h%,32).U..."2":W|
00009030  57 25 3f 33 34 3d a4 5a  77 28 68 25 2c 33 34 29  |W%?34=.Zw(h%,34)|
00009040  0d 55 1e 2a cb 3a 66 25  3d bb 28 46 24 28 56 57  |.U.*.:f%=.(F$(VW|
00009050  25 2c 38 29 29 3a f2 64  59 28 68 25 2c 33 37 2c  |%,8)):.dY(h%,37,|
00009060  66 25 29 3a c8 8e 66 25  20 ca 0d 55 3c 24 c9 30  |f%):..f% ..U<$.0|
00009070  2c 31 2c 32 2c 33 2c 39  2c 31 32 2c 31 34 2c 31  |,1,2,3,9,12,14,1|
00009080  35 3a f2 64 57 28 68 25  2c 33 37 2c 37 29 0d 55  |5:.dW(h%,37,7).U|
00009090  46 24 c9 34 2c 35 2c 36  2c 37 2c 38 2c 31 30 2c  |F$.4,5,6,7,8,10,|
000090a0  31 31 2c 31 33 3a f2 64  57 28 68 25 2c 33 37 2c  |11,13:.dW(h%,37,|
000090b0  30 29 0d 55 50 2d cb 3a  f2 56 7a 28 68 25 2c 33  |0).UP-.:.Vz(h%,3|
000090c0  37 2c c3 28 66 25 29 29  3a f2 56 7a 28 58 6b 25  |7,.(f%)):.Vz(Xk%|
000090d0  2c 32 2c 46 24 28 56 57  25 2c 39 29 29 3a e1 0d  |,2,F$(VW%,9)):..|
000090e0  55 78 30 dd f2 64 79 3a  ea 6a 25 3a e3 6a 25 3d  |Ux0..dy:.j%:.j%=|
000090f0  31 31 20 b8 31 37 88 32  3a 57 57 25 3f 6a 25 3d  |11 .17.2:WW%?j%=|
00009100  a4 5a 78 28 58 57 25 2c  6a 25 29 3a ed 3a e1 0d  |.Zx(XW%,j%):.:..|
00009110  55 aa 30 dd f2 64 7a 3a  ea 6a 25 3a e3 6a 25 3d  |U.0..dz:.j%:.j%=|
00009120  33 30 20 b8 33 34 88 32  3a 57 57 25 3f 6a 25 3d  |30 .34.2:WW%?j%=|
00009130  a4 5a 78 28 58 57 25 2c  6a 25 29 3a ed 3a e1 0d  |.Zx(XW%,j%):.:..|
00009140  55 dc 22 dd f2 5a 63 28  59 67 25 2c 55 6d 25 2c  |U."..Zc(Yg%,Um%,|
00009150  5a 5a 25 29 3a ea 6f 24  3a e7 55 6d 25 3d 32 20  |ZZ%):.o$:.Um%=2 |
00009160  8c 0d 55 fa 2b 6f 24 3d  46 24 28 56 57 25 2c 39  |..U.+o$=F$(VW%,9|
00009170  29 3a f2 56 7a 28 59 67  25 2c 55 6d 25 2c 5a 64  |):.Vz(Yg%,Um%,Zd|
00009180  24 29 3a e7 5a 5a 25 3d  31 33 20 8c 0d 56 0e 1b  |$):.ZZ%=13 ..V..|
00009190  e7 a9 28 5a 64 24 29 3c  3d bb 28 46 24 28 56 57  |..(Zd$)<=.(F$(VW|
000091a0  25 2c 31 29 29 20 8c 0d  56 18 35 46 24 28 56 57  |%,1)) ..V.5F$(VW|
000091b0  25 2c 39 29 3d 5a 64 24  3a c8 99 26 34 30 30 44  |%,9)=Zd$:..&400D|
000091c0  32 2c 2d 31 3a e7 46 24  28 56 57 25 2c 39 29 3c  |2,-1:.F$(VW%,9)<|
000091d0  3e 6f 24 58 79 25 3d a3  3a f2 57 76 0d 56 2c 0c  |>o$Xy%=.:.Wv.V,.|
000091e0  f2 58 76 28 58 6b 25 29  0d 56 36 2c cc 58 5a 24  |.Xv(Xk%).V6,.XZ$|
000091f0  3d 22 49 6e 63 6f 72 72  65 63 74 20 73 68 6f 72  |="Incorrect shor|
00009200  74 20 74 69 74 6c 65 20  6c 65 6e 67 68 74 2e 22  |t title lenght."|
00009210  3a f2 58 5a 0d 56 40 05  cd 0d 56 4a 05 cd 0d 56  |:.XZ.V@...VJ...V|
00009220  54 07 cd 3a e1 0d 56 72  24 dd f2 5a 62 28 59 67  |T..:..Vr$..Zb(Yg|
00009230  25 2c 55 6d 25 2c 5a 5a  25 29 3a ea 6c 25 2c 6f  |%,Um%,ZZ%):.l%,o|
00009240  24 3a c8 8e 55 6d 25 20  ca 0d 56 9a 40 c9 39 3a  |$:..Um% ..V.@.9:|
00009250  6f 24 3d 46 24 28 56 57  25 2c 32 29 3a f2 56 7a  |o$=F$(VW%,2):.Vz|
00009260  28 59 67 25 2c 55 6d 25  2c 5a 64 24 29 3a e7 5a  |(Yg%,Um%,Zd$):.Z|
00009270  5a 25 3d 31 33 20 84 5a  5a 25 3d 33 39 38 20 84  |Z%=13 .ZZ%=398 .|
00009280  5a 5a 25 3d 33 39 39 20  8c 0d 56 b8 0a e7 56 58  |ZZ%=399 ..V...VX|
00009290  25 20 8c 0d 56 c2 29 46  24 28 56 57 25 2c 32 29  |% ..V.)F$(VW%,2)|
000092a0  3d 5a 64 24 3a e7 46 24  28 56 57 25 2c 32 29 3c  |=Zd$:.F$(VW%,2)<|
000092b0  3e 6f 24 58 79 25 3d a3  3a f2 57 76 0d 56 d6 33  |>o$Xy%=.:.Wv.V.3|
000092c0  e7 a9 28 a4 61 55 28 46  24 28 56 57 25 2c 32 29  |..(.aU(F$(VW%,2)|
000092d0  29 29 3e bb 28 46 24 28  56 57 25 2c 31 29 29 20  |))>.(F$(VW%,1)) |
000092e0  80 46 24 28 56 57 25 2c  39 29 3d 22 22 20 8c 0d  |.F$(VW%,9)="" ..|
000092f0  56 e0 2e e7 46 24 28 56  57 25 2c 39 29 3d 22 22  |V...F$(VW%,9)=""|
00009300  20 84 a9 28 46 24 28 56  57 25 2c 39 29 29 3e bb  | ..(F$(VW%,9))>.|
00009310  28 46 24 28 56 57 25 2c  31 29 29 20 8c 0d 56 ea  |(F$(VW%,1)) ..V.|
00009320  1f e7 46 24 28 56 57 25  2c 31 29 3c 3e 22 22 ef  |..F$(VW%,1)<>"".|
00009330  37 3a f2 58 7a 28 58 6b  25 2c a3 29 0d 56 f4 05  |7:.Xz(Xk%,.).V..|
00009340  cd 0d 56 fe 0f cd 3a e7  5a 5a 25 3d 31 33 20 8c  |..V...:.ZZ%=13 .|
00009350  0d 57 12 13 e7 46 24 28  56 57 25 2c 34 29 3d 22  |.W...F$(VW%,4)="|
00009360  22 20 8c 0d 57 1c 0f f2  59 55 28 59 67 25 2c 31  |" ..W...YU(Yg%,1|
00009370  32 29 0d 57 26 10 cc 3a  e7 5a 5a 25 3d 33 39 38  |2).W&..:.ZZ%=398|
00009380  20 8c 0d 57 3a 0f f2 59  55 28 59 67 25 2c 31 32  | ..W:..YU(Yg%,12|
00009390  29 0d 57 44 10 cc c8 99  26 34 30 30 44 32 2c 2d  |).WD....&400D2,-|
000093a0  31 0d 57 4e 05 cd 0d 57  58 05 cd 0d 57 62 10 cc  |1.WN...WX...Wb..|
000093b0  f2 59 55 28 59 67 25 2c  31 32 29 0d 57 6c 05 cd  |.YU(Yg%,12).Wl..|
000093c0  0d 57 76 5b cc 58 5a 24  3d 22 54 6f 20 70 75 74  |.Wv[.XZ$="To put|
000093d0  20 69 6e 20 74 68 65 20  64 61 74 61 20 63 6c 69  | in the data cli|
000093e0  63 6b 20 6f 6e 20 69 63  6f 6e 20 77 69 74 68 20  |ck on icon with |
000093f0  70 6c 75 73 20 73 69 67  6e 2e 22 3a f2 58 5a 3a  |plus sign.":.XZ:|
00009400  f2 56 7a 28 59 67 25 2c  55 6d 25 2c 22 22 29 3a  |.Vz(Yg%,Um%,""):|
00009410  c8 99 26 34 30 30 44 32  2c 2d 31 0d 57 8a 05 cd  |..&400D2,-1.W...|
00009420  0d 57 94 05 cd 0d 57 a8  41 c9 31 32 3a 6f 24 3d  |.W....W.A.12:o$=|
00009430  46 24 28 56 57 25 2c 34  29 3a f2 56 7a 28 59 67  |F$(VW%,4):.Vz(Yg|
00009440  25 2c 55 6d 25 2c 5a 64  24 29 3a e7 5a 5a 25 3d  |%,Um%,Zd$):.ZZ%=|
00009450  31 33 20 84 5a 5a 25 3d  33 39 38 20 84 5a 5a 25  |13 .ZZ%=398 .ZZ%|
00009460  3d 33 39 39 20 8c 0d 57  c6 0a e7 56 58 25 20 8c  |=399 ..W...VX% .|
00009470  0d 57 d0 1c 6c 25 3d bb  28 5a 64 24 29 3a e7 6c  |.W..l%=.(Zd$):.l|
00009480  25 3e 33 36 20 84 6c 25  3c 31 20 8c 0d 57 e4 24  |%>36 .l%<1 ..W.$|
00009490  58 5a 24 3d 22 49 6e 63  6f 72 72 65 63 74 20 69  |XZ$="Incorrect i|
000094a0  63 6f 6e 20 6c 65 6e 67  68 74 2e 22 3a f2 58 5a  |con lenght.":.XZ|
000094b0  0d 57 ee 2b cc 3a 46 24  28 56 57 25 2c 34 29 3d  |.W.+.:F$(VW%,4)=|
000094c0  5a 64 24 3a e7 46 24 28  56 57 25 2c 34 29 3c 3e  |Zd$:.F$(VW%,4)<>|
000094d0  6f 24 58 79 25 3d a3 3a  f2 57 76 0d 58 0c 0d e7  |o$Xy%=.:.Wv.X...|
000094e0  5a 5a 25 3d 31 33 20 8c  0d 58 16 13 e7 46 24 28  |ZZ%=13 ..X...F$(|
000094f0  56 57 25 2c 31 29 3d 22  22 20 8c 0d 58 20 0f f2  |VW%,1)="" ..X ..|
00009500  59 55 28 59 67 25 2c 31  39 29 0d 58 2a 10 cc c8  |YU(Yg%,19).X*...|
00009510  99 26 34 30 30 44 32 2c  2d 31 0d 58 34 05 cd 0d  |.&400D2,-1.X4...|
00009520  58 3e 10 cc 3a e7 5a 5a  25 3d 33 39 38 20 8c 0d  |X>..:.ZZ%=398 ..|
00009530  58 52 0f f2 59 55 28 59  67 25 2c 31 39 29 0d 58  |XR..YU(Yg%,19).X|
00009540  5c 0f cc f2 59 55 28 59  67 25 2c 39 29 0d 58 66  |\...YU(Yg%,9).Xf|
00009550  05 cd 0d 58 70 05 cd 0d  58 7a 05 cd 0d 58 84 5b  |...Xp...Xz...X.[|
00009560  cc 58 5a 24 3d 22 54 6f  20 70 75 74 20 69 6e 20  |.XZ$="To put in |
00009570  74 68 65 20 64 61 74 61  20 63 6c 69 63 6b 20 6f  |the data click o|
00009580  6e 20 69 63 6f 6e 20 77  69 74 68 20 70 6c 75 73  |n icon with plus|
00009590  20 73 69 67 6e 2e 22 3a  f2 58 5a 3a f2 56 7a 28  | sign.":.XZ:.Vz(|
000095a0  59 67 25 2c 55 6d 25 2c  22 22 29 3a c8 99 26 34  |Yg%,Um%,""):..&4|
000095b0  30 30 44 32 2c 2d 31 0d  58 98 05 cd 0d 58 a2 05  |00D2,-1.X....X..|
000095c0  cd 0d 58 b6 41 c9 31 39  3a 6f 24 3d 46 24 28 56  |..X.A.19:o$=F$(V|
000095d0  57 25 2c 31 29 3a f2 56  7a 28 59 67 25 2c 55 6d  |W%,1):.Vz(Yg%,Um|
000095e0  25 2c 5a 64 24 29 3a e7  5a 5a 25 3d 31 33 20 84  |%,Zd$):.ZZ%=13 .|
000095f0  5a 5a 25 3d 33 39 38 20  84 5a 5a 25 3d 33 39 39  |ZZ%=398 .ZZ%=399|
00009600  20 8c 0d 58 d4 0a e7 56  58 25 20 8c 0d 58 de 45  | ..X...VX% ..X.E|
00009610  6c 25 3d bb 28 5a 64 24  29 3a e7 6c 25 3e 33 36  |l%=.(Zd$):.l%>36|
00009620  20 84 6c 25 3c 31 20 84  6c 25 3c a9 28 46 24 28  | .l%<1 .l%<.(F$(|
00009630  56 57 25 2c 33 29 29 20  84 28 46 24 28 56 57 25  |VW%,3)) .(F$(VW%|
00009640  2c 30 29 3d 22 33 22 20  80 6c 25 3c 3e 38 29 20  |,0)="3" .l%<>8) |
00009650  8c 0d 58 f2 3f 58 5a 24  3d 22 49 6e 63 6f 72 72  |..X.?XZ$="Incorr|
00009660  65 63 74 20 66 69 65 6c  64 20 6c 65 6e 67 68 74  |ect field lenght|
00009670  2e 22 3a f2 58 5a 3a e7  28 46 24 28 56 57 25 2c  |.":.XZ:.(F$(VW%,|
00009680  30 29 3d 22 33 22 20 80  6c 25 3c 3e 38 29 20 8c  |0)="3" .l%<>8) .|
00009690  0d 59 06 28 5a 64 24 3d  22 38 22 3a f2 56 7a 28  |.Y.(Zd$="8":.Vz(|
000096a0  59 67 25 2c 55 6d 25 2c  5a 64 24 29 3a c8 99 26  |Yg%,Um%,Zd$):..&|
000096b0  34 30 30 44 32 2c 2d 31  0d 59 1a 05 cd 0d 59 24  |400D2,-1.Y....Y$|
000096c0  2b cc 3a 46 24 28 56 57  25 2c 31 29 3d 5a 64 24  |+.:F$(VW%,1)=Zd$|
000096d0  3a e7 46 24 28 56 57 25  2c 31 29 3c 3e 6f 24 58  |:.F$(VW%,1)<>o$X|
000096e0  79 25 3d a3 3a f2 57 76  0d 59 42 25 e7 a9 28 a4  |y%=.:.Wv.YB%..(.|
000096f0  61 55 28 46 24 28 56 57  25 2c 32 29 29 29 3e bb  |aU(F$(VW%,2)))>.|
00009700  28 46 24 28 56 57 25 2c  31 29 29 20 8c 0d 59 4c  |(F$(VW%,1)) ..YL|
00009710  2e e7 46 24 28 56 57 25  2c 39 29 3d 22 22 20 84  |..F$(VW%,9)="" .|
00009720  a9 28 46 24 28 56 57 25  2c 39 29 29 3e bb 28 46  |.(F$(VW%,9))>.(F|
00009730  24 28 56 57 25 2c 31 29  29 20 8c 0d 59 56 11 ef  |$(VW%,1)) ..YV..|
00009740  37 3a f2 58 7a 28 58 6b  25 2c a3 29 0d 59 60 05  |7:.Xz(Xk%,.).Y`.|
00009750  cd 0d 59 6a 0f cd 3a e7  5a 5a 25 3d 31 33 20 8c  |..Yj..:.ZZ%=13 .|
00009760  0d 59 7e 13 e7 46 24 28  56 57 25 2c 33 29 3d 22  |.Y~..F$(VW%,3)="|
00009770  22 20 8c 0d 59 88 0f f2  59 55 28 59 67 25 2c 32  |" ..Y...YU(Yg%,2|
00009780  37 29 0d 59 92 10 cc c8  99 26 34 30 30 44 32 2c  |7).Y.....&400D2,|
00009790  2d 31 0d 59 9c 05 cd 0d  59 a6 10 cc 3a e7 5a 5a  |-1.Y....Y...:.ZZ|
000097a0  25 3d 33 39 38 20 8c 0d  59 ba 0f f2 59 55 28 59  |%=398 ..Y...YU(Y|
000097b0  67 25 2c 32 37 29 0d 59  c4 10 cc f2 59 55 28 59  |g%,27).Y....YU(Y|
000097c0  67 25 2c 31 32 29 0d 59  ce 05 cd 0d 59 d8 05 cd  |g%,12).Y....Y...|
000097d0  0d 59 e2 05 cd 0d 59 ec  5b cc 58 5a 24 3d 22 54  |.Y....Y.[.XZ$="T|
000097e0  6f 20 70 75 74 20 69 6e  20 74 68 65 20 64 61 74  |o put in the dat|
000097f0  61 20 63 6c 69 63 6b 20  6f 6e 20 69 63 6f 6e 20  |a click on icon |
00009800  77 69 74 68 20 70 6c 75  73 20 73 69 67 6e 2e 22  |with plus sign."|
00009810  3a f2 58 5a 3a f2 56 7a  28 59 67 25 2c 55 6d 25  |:.XZ:.Vz(Yg%,Um%|
00009820  2c 22 22 29 3a c8 99 26  34 30 30 44 32 2c 2d 31  |,""):..&400D2,-1|
00009830  0d 5a 00 05 cd 0d 5a 0a  05 cd 0d 5a 1e 41 c9 32  |.Z....Z....Z.A.2|
00009840  37 3a 6f 24 3d 46 24 28  56 57 25 2c 33 29 3a f2  |7:o$=F$(VW%,3):.|
00009850  56 7a 28 59 67 25 2c 55  6d 25 2c 5a 64 24 29 3a  |Vz(Yg%,Um%,Zd$):|
00009860  e7 5a 5a 25 3d 31 33 20  84 5a 5a 25 3d 33 39 38  |.ZZ%=13 .ZZ%=398|
00009870  20 84 5a 5a 25 3d 33 39  39 20 8c 0d 5a 3c 1a e7  | .ZZ%=399 ..Z<..|
00009880  a9 28 5a 64 24 29 3e bb  28 46 24 28 56 57 25 2c  |.(Zd$)>.(F$(VW%,|
00009890  31 29 29 20 8c 0d 5a 46  39 58 5a 24 3d 22 53 74  |1)) ..ZF9XZ$="St|
000098a0  72 69 6e 67 20 74 6f 6f  20 6c 6f 6e 67 2e 20 4d  |ring too long. M|
000098b0  61 78 20 22 2b 46 24 28  56 57 25 2c 31 29 2b 22  |ax "+F$(VW%,1)+"|
000098c0  20 6c 65 74 74 65 72 73  2e 22 3a f2 58 5a 0d 5a  | letters.":.XZ.Z|
000098d0  50 2b cc 3a 46 24 28 56  57 25 2c 33 29 3d 5a 64  |P+.:F$(VW%,3)=Zd|
000098e0  24 3a e7 46 24 28 56 57  25 2c 33 29 3c 3e 6f 24  |$:.F$(VW%,3)<>o$|
000098f0  58 79 25 3d a3 3a f2 57  76 0d 5a 6e 0d e7 5a 5a  |Xy%=.:.Wv.Zn..ZZ|
00009900  25 3d 31 33 20 8c 0d 5a  78 0f c8 99 26 34 30 30  |%=13 ..Zx...&400|
00009910  44 32 2c 2d 31 0d 5a 82  10 cc 3a e7 5a 5a 25 3d  |D2,-1.Z...:.ZZ%=|
00009920  33 39 38 20 8c 0d 5a 96  0f c8 99 26 34 30 30 44  |398 ..Z....&400D|
00009930  32 2c 2d 31 0d 5a a0 10  cc f2 59 55 28 59 67 25  |2,-1.Z....YU(Yg%|
00009940  2c 31 39 29 0d 5a aa 05  cd 0d 5a b4 05 cd 0d 5a  |,19).Z....Z....Z|
00009950  be 05 cd 0d 5a c8 05 cd  0d 5a d2 07 cb 3a e1 0d  |....Z....Z...:..|
00009960  5a f0 41 dd f2 64 72 3a  ea 6a 25 2c 79 25 2c 77  |Z.A..dr:.j%,y%,w|
00009970  25 2c 65 55 25 2c 69 25  2c 65 56 25 2c 65 57 25  |%,eU%,i%,eV%,eW%|
00009980  2c 6c 25 2c 57 6d 25 2c  6c 25 2c 61 24 2c 65 58  |,l%,Wm%,l%,a$,eX|
00009990  25 2c 65 59 25 2c 65 5a  25 3a e7 56 58 25 20 8c  |%,eY%,eZ%:.VX% .|
000099a0  0d 5b 0e 9c f2 58 76 28  57 79 25 29 3a f2 58 76  |.[...Xv(Wy%):.Xv|
000099b0  28 57 77 25 29 3a e3 6a  25 3d 30 20 b8 56 58 25  |(Ww%):.j%=0 .VX%|
000099c0  2a 32 3a f2 5a 76 28 57  79 25 2c 6a 25 29 3a ed  |*2:.Zv(Wy%,j%):.|
000099d0  3a e3 6a 25 3d 30 20 b8  56 58 25 2d 31 3a f2 5a  |:.j%=0 .VX%-1:.Z|
000099e0  76 28 58 63 25 2c 6a 25  29 3a ed 3a e3 6a 25 3d  |v(Xc%,j%):.:.j%=|
000099f0  30 20 b8 56 58 25 2d 31  3a f2 5a 76 28 58 65 25  |0 .VX%-1:.Zv(Xe%|
00009a00  2c 6a 25 29 3a ed 3a 65  56 25 3d 30 3a e3 6a 25  |,j%):.:eV%=0:.j%|
00009a10  3d 31 20 b8 56 58 25 3a  79 25 3d 28 a9 28 46 24  |=1 .VX%:y%=(.(F$|
00009a20  28 6a 25 2c 32 29 29 2a  31 36 29 2b 31 36 3a e7  |(j%,2))*16)+16:.|
00009a30  79 25 3e 65 56 25 65 56  25 3d 79 25 0d 5b 4a 3b  |y%>eV%eV%=y%.[J;|
00009a40  ed 3a 65 57 25 3d 30 3a  e3 6a 25 3d 31 20 b8 56  |.:eW%=0:.j%=1 .V|
00009a50  58 25 3a 79 25 3d 28 bb  28 46 24 28 6a 25 2c 34  |X%:y%=(.(F$(j%,4|
00009a60  29 29 2a 31 36 29 2b 31  36 3a e7 79 25 3e 65 57  |))*16)+16:.y%>eW|
00009a70  25 65 57 25 3d 79 25 0d  5b 68 d5 ed 3a 65 61 25  |%eW%=y%.[h..:ea%|
00009a80  3d 65 56 25 2b 31 36 3a  79 25 3d 2d 37 32 3a 65  |=eV%+16:y%=-72:e|
00009a90  55 25 3d 30 3a 69 25 3d  30 3a 59 69 25 3d 55 6e  |U%=0:i%=0:Yi%=Un|
00009aa0  25 3a 65 62 25 3d 55 6f  25 3a 55 75 25 3d 55 70  |%:eb%=Uo%:Uu%=Up|
00009ab0  25 3a 65 63 25 3d 55 71  25 3a 65 64 25 3d 55 72  |%:ec%=Uq%:ed%=Ur|
00009ac0  25 3a 57 6d 25 3d 26 31  37 30 30 36 31 31 39 3a  |%:Wm%=&17006119:|
00009ad0  24 65 62 25 3d 22 78 30  3b 2d 31 22 3a 24 65 63  |$eb%="x0;-1":$ec|
00009ae0  25 3d 22 22 2b bd 28 30  29 3a 65 64 25 3d 31 3a  |%=""+.(0):ed%=1:|
00009af0  65 58 25 3d 28 37 32 2a  56 58 25 29 2b 38 3a 65  |eX%=(72*VX%)+8:e|
00009b00  5a 25 3d 2d 28 65 58 25  2b 38 29 3a 65 59 25 3d  |Z%=-(eX%+8):eY%=|
00009b10  65 56 25 2b 65 57 25 2b  32 34 3a 55 6d 25 28 69  |eV%+eW%+24:Um%(i|
00009b20  25 29 3d a4 62 7a 28 57  79 25 2c 38 2c 65 5a 25  |%)=.bz(Wy%,8,eZ%|
00009b30  2c 65 59 25 2c 65 58 25  2c 57 6d 25 2c 22 22 2c  |,eY%,eX%,Wm%,"",|
00009b40  65 63 25 2c 65 62 25 2c  65 64 25 29 0d 5b b8 fc  |ec%,eb%,ed%).[..|
00009b50  69 25 2b 3d 31 3a 65 63  25 2b 3d a9 28 24 65 63  |i%+=1:ec%+=.($ec|
00009b60  25 29 2b 31 3a 65 64 25  2b 3d a9 28 24 65 63 25  |%)+1:ed%+=.($ec%|
00009b70  29 2b 31 3a 65 62 25 2b  3d a9 28 24 65 62 25 29  |)+1:eb%+=.($eb%)|
00009b80  2b 31 3a e3 6a 25 3d 31  20 b8 56 58 25 3a 64 55  |+1:.j%=1 .VX%:dU|
00009b90  25 3d bb 28 46 24 28 6a  25 2c 38 29 29 3a 64 56  |%=.(F$(j%,8)):dV|
00009ba0  25 3d 31 3a 24 65 63 25  3d 46 24 28 6a 25 2c 32  |%=1:$ec%=F$(j%,2|
00009bb0  29 2b bd 28 30 29 3a 65  64 25 3d 65 56 25 2b 31  |)+.(0):ed%=eV%+1|
00009bc0  3a 57 6d 25 3d a4 63 6c  28 31 2c 30 2c 30 2c 30  |:Wm%=.cl(1,0,0,0|
00009bd0  2c 31 2c 31 2c 30 2c 30  2c 31 2c 31 2c 30 2c 30  |,1,1,0,0,1,1,0,0|
00009be0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 64 55 25 2c 64  |,0,0,0,0,0,dU%,d|
00009bf0  56 25 2c 30 29 3a 55 6d  25 28 69 25 29 3d a4 62  |V%,0):Um%(i%)=.b|
00009c00  7a 28 57 79 25 2c 38 2c  79 25 2c 65 56 25 2c 34  |z(Wy%,8,y%,eV%,4|
00009c10  38 2c 57 6d 25 2c 46 24  28 6a 25 2c 32 29 2c 65  |8,Wm%,F$(j%,2),e|
00009c20  63 25 2c 2d 31 2c 65 64  25 29 3a 65 63 25 2b 3d  |c%,-1,ed%):ec%+=|
00009c30  a9 28 46 24 28 6a 25 2c  32 29 29 2b 31 3a 65 64  |.(F$(j%,2))+1:ed|
00009c40  25 2b 3d 65 56 25 2b 31  0d 5b fe 2d 77 25 3d 28  |%+=eV%+1.[.-w%=(|
00009c50  bb 28 46 24 28 6a 25 2c  34 29 29 2a 31 36 29 2b  |.(F$(j%,4))*16)+|
00009c60  31 38 3a 69 25 2b 3d 31  3a c8 8e 46 24 28 6a 25  |18:i%+=1:..F$(j%|
00009c70  2c 30 29 20 ca 0d 5c 1c  20 c9 22 30 22 3a 24 65  |,0) ..\. ."0":$e|
00009c80  62 25 3d 22 78 33 3b 2d  31 3b 70 70 74 72 5f 77  |b%="x3;-1;pptr_w|
00009c90  72 69 74 65 22 0d 5c 26  25 c9 22 31 22 3a 24 65  |rite".\&%."1":$e|
00009ca0  62 25 3d 22 78 33 3b 61  30 2d 39 3b 2d 31 3b 70  |b%="x3;a0-9;-1;p|
00009cb0  70 74 72 5f 77 72 69 74  65 22 0d 5c 30 26 c9 22  |ptr_write".\0&."|
00009cc0  32 22 3a 24 65 62 25 3d  22 78 33 3b 61 30 2d 39  |2":$eb%="x3;a0-9|
00009cd0  2e 3b 2d 31 3b 70 70 74  72 5f 77 72 69 74 65 22  |.;-1;pptr_write"|
00009ce0  0d 5c 3a 26 c9 22 33 22  3a 24 65 62 25 3d 22 78  |.\:&."3":$eb%="x|
00009cf0  33 3b 61 30 2d 39 2f 3b  2d 31 3b 70 70 74 72 5f  |3;a0-9/;-1;pptr_|
00009d00  77 72 69 74 65 22 0d 5c  44 12 cb 3a c8 8e 46 24  |write".\D..:..F$|
00009d10  28 6a 25 2c 37 29 20 ca  0d 5c 58 14 c9 22 30 22  |(j%,7) ..\X.."0"|
00009d20  3a 63 6f 25 3d 31 3a 63  74 25 3d 30 0d 5c 62 14  |:co%=1:ct%=0.\b.|
00009d30  c9 22 31 22 3a 63 6f 25  3d 30 3a 63 74 25 3d 30  |."1":co%=0:ct%=0|
00009d40  0d 5c 6c 14 c9 22 32 22  3a 63 6f 25 3d 30 3a 63  |.\l.."2":co%=0:c|
00009d50  74 25 3d 31 0d 5c 76 e3  cb 3a 64 55 25 3d bb 28  |t%=1.\v..:dU%=.(|
00009d60  46 24 28 6a 25 2c 35 29  29 3a 64 56 25 3d bb 28  |F$(j%,5)):dV%=.(|
00009d70  46 24 28 6a 25 2c 36 29  29 3a 57 6d 25 3d a4 63  |F$(j%,6)):Wm%=.c|
00009d80  6c 28 31 2c 30 2c 31 2c  63 6f 25 2c 31 2c 31 2c  |l(1,0,1,co%,1,1,|
00009d90  30 2c 30 2c 31 2c 63 74  25 2c 30 2c 30 2c 31 35  |0,0,1,ct%,0,0,15|
00009da0  2c 30 2c 30 2c 30 2c 30  2c 64 55 25 2c 64 56 25  |,0,0,0,0,dU%,dV%|
00009db0  2c 30 29 3a 55 75 25 3d  bb 28 46 24 28 6a 25 2c  |,0):Uu%=.(F$(j%,|
00009dc0  31 29 29 2b 31 3a 24 59  69 25 3d 46 24 28 6a 25  |1))+1:$Yi%=F$(j%|
00009dd0  2c 33 29 2b bd 28 30 29  3a 55 6d 25 28 69 25 29  |,3)+.(0):Um%(i%)|
00009de0  3d a4 62 7a 28 57 79 25  2c 65 61 25 2c 79 25 2c  |=.bz(Wy%,ea%,y%,|
00009df0  77 25 2c 34 38 2c 57 6d  25 2c 46 24 28 6a 25 2c  |w%,48,Wm%,F$(j%,|
00009e00  33 29 2c 59 69 25 2c 65  62 25 2c 55 75 25 29 3a  |3),Yi%,eb%,Uu%):|
00009e10  79 25 2d 3d 37 32 3a 65  55 25 2d 3d 37 32 3a 69  |y%-=72:eU%-=72:i|
00009e20  25 2b 3d 31 3a 59 69 25  2b 3d bb 28 46 24 28 6a  |%+=1:Yi%+=.(F$(j|
00009e30  25 2c 31 29 29 2b 31 0d  5c b2 a3 65 62 25 2b 3d  |%,1))+1.\..eb%+=|
00009e40  a9 28 24 65 62 25 29 2b  31 3a 55 75 25 2b 3d a9  |.($eb%)+1:Uu%+=.|
00009e50  28 46 24 28 6a 25 2c 31  29 29 2b 31 3a ed 3a f2  |(F$(j%,1))+1:.:.|
00009e60  62 79 28 57 79 25 2c 30  2c 65 55 25 2d 32 34 2c  |by(Wy%,0,eU%-24,|
00009e70  65 56 25 2b 65 57 25 2b  34 30 2c 30 29 3a 65 65  |eV%+eW%+40,0):ee|
00009e80  25 3d 2d 65 55 25 2b 32  34 3a f2 58 76 28 57 79  |%=-eU%+24:.Xv(Wy|
00009e90  25 29 3a f2 58 7a 28 57  79 25 2c a3 29 3a 65 56  |%):.Xz(Wy%,.):eV|
00009ea0  25 3d 30 3a e3 6a 25 3d  31 20 b8 56 58 25 3a 61  |%=0:.j%=1 .VX%:a|
00009eb0  24 3d 22 20 20 22 2b 46  24 28 6a 25 2c 32 29 3a  |$="  "+F$(j%,2):|
00009ec0  e7 c2 61 24 2c 31 29 3d  22 3a 22 61 24 3d c0 61  |..a$,1)=":"a$=.a|
00009ed0  24 2c a9 28 61 24 29 2d  31 29 0d 5d 02 22 79 25  |$,.(a$)-1).]."y%|
00009ee0  3d 28 a9 28 61 24 29 2a  31 36 29 2b 31 36 3a e7  |=(.(a$)*16)+16:.|
00009ef0  79 25 3e 65 56 25 65 56  25 3d 79 25 0d 5d 0c 4c  |y%>eV%eV%=y%.].L|
00009f00  ed 3a 79 25 3d 2d 34 38  3a 65 55 25 3d 30 3a 69  |.:y%=-48:eU%=0:i|
00009f10  25 3d 30 3a e3 6a 25 3d  31 20 b8 56 58 25 3a e7  |%=0:.j%=1 .VX%:.|
00009f20  6a 25 3c 3e 57 6f 25 61  24 3d 22 20 20 22 2b 46  |j%<>Wo%a$="  "+F|
00009f30  24 28 6a 25 2c 32 29 8b  61 24 3d 22 80 20 22 2b  |$(j%,2).a$=". "+|
00009f40  46 24 28 6a 25 2c 32 29  0d 5d 34 1e e7 c2 61 24  |F$(j%,2).]4...a$|
00009f50  2c 31 29 3d 22 3a 22 61  24 3d c0 61 24 2c a9 28  |,1)=":"a$=.a$,.(|
00009f60  61 24 29 2d 31 29 0d 5d  3e 9c 57 6d 25 3d 26 30  |a$)-1).]>.Wm%=&0|
00009f70  37 30 30 33 31 33 31 3a  24 59 69 25 3d 61 24 2b  |7003131:$Yi%=a$+|
00009f80  bd 28 30 29 3a 55 75 25  3d 65 56 25 2b 31 3a 55  |.(0):Uu%=eV%+1:U|
00009f90  6d 25 28 69 25 29 3d a4  62 7a 28 58 63 25 2c 30  |m%(i%)=.bz(Xc%,0|
00009fa0  2c 79 25 2c 65 56 25 2c  34 38 2c 57 6d 25 2c 61  |,y%,eV%,48,Wm%,a|
00009fb0  24 2c 59 69 25 2c 2d 31  2c 55 75 25 29 3a 59 69  |$,Yi%,-1,Uu%):Yi|
00009fc0  25 2b 3d a9 28 61 24 29  2b 31 3a 55 75 25 2b 3d  |%+=.(a$)+1:Uu%+=|
00009fd0  65 56 25 2b 31 3a 79 25  2d 3d 34 38 3a 65 55 25  |eV%+1:y%-=48:eU%|
00009fe0  2d 3d 34 38 3a 69 25 2b  3d 31 3a ed 3a e7 94 28  |-=48:i%+=1:.:..(|
00009ff0  65 55 25 29 3c 32 34 30  20 8c 65 55 25 3d 2d 32  |eU%)<240 .eU%=-2|
0000a000  34 30 0d 5d 7a 63 f2 62  79 28 58 63 25 2c 30 2c  |40.]zc.by(Xc%,0,|
0000a010  65 55 25 2d 34 2c 32 39  36 2c 30 29 3a f2 58 76  |eU%-4,296,0):.Xv|
0000a020  28 58 63 25 29 3a 65 56  25 3d 30 3a e3 6a 25 3d  |(Xc%):eV%=0:.j%=|
0000a030  31 20 b8 56 58 25 3a 61  24 3d a4 65 66 28 6a 25  |1 .VX%:a$=.ef(j%|
0000a040  2c 22 80 20 22 29 3a 79  25 3d 28 a9 28 61 24 29  |,". "):y%=(.(a$)|
0000a050  2a 31 36 29 2b 31 36 3a  e7 79 25 3e 65 56 25 65  |*16)+16:.y%>eV%e|
0000a060  56 25 3d 79 25 0d 5d b6  cb ed 3a 79 25 3d 2d 34  |V%=y%.]...:y%=-4|
0000a070  38 3a 65 55 25 3d 30 3a  69 25 3d 30 3a e3 6a 25  |8:eU%=0:i%=0:.j%|
0000a080  3d 31 20 b8 56 58 25 3a  61 24 3d a4 65 66 28 6a  |=1 .VX%:a$=.ef(j|
0000a090  25 2c 22 80 20 22 29 3a  57 6d 25 3d 26 30 37 30  |%,". "):Wm%=&070|
0000a0a0  30 33 31 33 31 3a 24 59  69 25 3d 61 24 2b bd 28  |03131:$Yi%=a$+.(|
0000a0b0  30 29 3a 55 75 25 3d 65  56 25 2b 31 3a 55 6d 25  |0):Uu%=eV%+1:Um%|
0000a0c0  28 69 25 29 3d a4 62 7a  28 58 65 25 2c 30 2c 79  |(i%)=.bz(Xe%,0,y|
0000a0d0  25 2c 65 56 25 2c 34 38  2c 57 6d 25 2c 61 24 2c  |%,eV%,48,Wm%,a$,|
0000a0e0  59 69 25 2c 2d 31 2c 55  75 25 29 3a 59 69 25 2b  |Yi%,-1,Uu%):Yi%+|
0000a0f0  3d a9 28 61 24 29 2b 31  3a 55 75 25 2b 3d 65 56  |=.(a$)+1:Uu%+=eV|
0000a100  25 2b 31 3a 79 25 2d 3d  34 38 3a 65 55 25 2d 3d  |%+1:y%-=48:eU%-=|
0000a110  34 38 3a 69 25 2b 3d 31  3a ed 3a e7 94 28 65 55  |48:i%+=1:.:..(eU|
0000a120  25 29 3c 32 34 30 20 8c  65 55 25 3d 2d 32 34 30  |%)<240 .eU%=-240|
0000a130  0d 5e 1a 38 f2 62 79 28  58 65 25 2c 30 2c 65 55  |.^.8.by(Xe%,0,eU|
0000a140  25 2d 34 2c 33 34 32 2c  30 29 3a f2 58 76 28 58  |%-4,342,0):.Xv(X|
0000a150  65 25 29 3a f2 58 7a 28  57 77 25 2c a3 29 3a 56  |e%):.Xz(Ww%,.):V|
0000a160  59 25 3d b9 3a f2 65 67  0d 5e 2e 88 cd 3a 5a 7a  |Y%=.:.eg.^...:Zz|
0000a170  25 3d 31 3a f2 56 7a 28  58 58 25 2c 39 2c a4 61  |%=1:.Vz(XX%,9,.a|
0000a180  55 28 46 24 28 5a 7a 25  2c 32 29 29 29 3a 61 56  |U(F$(Zz%,2))):aV|
0000a190  25 3d 31 3a f2 56 7a 28  58 58 25 2c 32 33 2c a4  |%=1:.Vz(XX%,23,.|
0000a1a0  61 55 28 46 24 28 61 56  25 2c 32 29 29 29 3a 5a  |aU(F$(aV%,2))):Z|
0000a1b0  72 25 3d 35 3a f2 56 7a  28 58 58 25 2c 31 31 2c  |r%=5:.Vz(XX%,11,|
0000a1c0  22 43 6f 6e 74 61 69 6e  73 22 29 3a 5a 73 25 3d  |"Contains"):Zs%=|
0000a1d0  35 3a f2 56 7a 28 58 58  25 2c 32 35 2c 22 43 6f  |5:.Vz(XX%,25,"Co|
0000a1e0  6e 74 61 69 6e 73 22 29  3a 61 57 25 3d a3 3a e1  |ntains"):aW%=.:.|
0000a1f0  0d 5e 74 5e dd a4 65 66  28 6e 25 2c 61 24 29 3a  |.^t^..ef(n%,a$):|
0000a200  ea 62 24 2c 63 24 2c 64  24 2c 6c 25 3a 62 24 3d  |.b$,c$,d$,l%:b$=|
0000a210  61 24 2b 46 24 28 6e 25  2c 32 29 3a 62 24 3d a4  |a$+F$(n%,2):b$=.|
0000a220  61 55 28 62 24 29 3a 6c  25 3d a9 28 62 24 29 3a  |aU(b$):l%=.(b$):|
0000a230  63 24 3d 46 24 28 6e 25  2c 31 29 3a e7 a9 28 63  |c$=F$(n%,1):..(c|
0000a240  24 29 3c 32 20 63 24 3d  22 20 22 2b 63 24 0d 5e  |$)<2 c$=" "+c$.^|
0000a250  9c 1c 64 24 3d c4 31 38  2d 6c 25 2c 22 20 22 29  |..d$=.18-l%," ")|
0000a260  3a 3d 62 24 2b 64 24 2b  63 24 0d 5e e2 24 dd f2  |:=b$+d$+c$.^.$..|
0000a270  5a 66 28 59 67 25 2c 55  6d 25 2c 5a 5a 25 29 3a  |Zf(Yg%,Um%,ZZ%):|
0000a280  ea 6f 24 2c 6e 25 3a c8  8e 55 6d 25 20 ca 0d 5f  |.o$,n%:..Um% .._|
0000a290  00 79 c9 32 2c 34 2c 36  2c 38 2c 31 30 2c 31 32  |.y.2,4,6,8,10,12|
0000a2a0  2c 31 34 2c 31 36 2c 31  38 2c 32 30 2c 32 32 2c  |,14,16,18,20,22,|
0000a2b0  32 34 2c 32 36 2c 32 38  2c 33 30 2c 33 32 2c 33  |24,26,28,30,32,3|
0000a2c0  34 2c 33 36 3a 6e 25 3d  55 6d 25 2f 32 3a 6f 24  |4,36:n%=Um%/2:o$|
0000a2d0  3d 52 24 28 4e 25 2c 6e  25 29 3a f2 56 7a 28 59  |=R$(N%,n%):.Vz(Y|
0000a2e0  67 25 2c 55 6d 25 2c 5a  64 24 29 3a e7 5a 5a 25  |g%,Um%,Zd$):.ZZ%|
0000a2f0  3d 31 33 20 84 5a 5a 25  3d 33 39 38 20 84 5a 5a  |=13 .ZZ%=398 .ZZ|
0000a300  25 3d 33 39 39 20 8c 0d  5f 1e 09 e7 55 25 20 8c  |%=399 .._...U% .|
0000a310  0d 5f 28 1e e7 28 5a 64  24 3c 3e 22 22 20 80 55  |._(..(Zd$<>"" .U|
0000a320  6d 25 3d 32 29 20 84 55  6d 25 3e 32 20 8c 0d 5f  |m%=2) .Um%>2 .._|
0000a330  32 14 e7 46 24 28 6e 25  2c 30 29 3c 3e 22 33 22  |2..F$(n%,0)<>"3"|
0000a340  20 8c 0d 5f 3c 29 52 24  28 4e 25 2c 6e 25 29 3d  | .._<)R$(N%,n%)=|
0000a350  5a 64 24 3a e7 52 24 28  4e 25 2c 6e 25 29 3c 3e  |Zd$:.R$(N%,n%)<>|
0000a360  6f 24 58 79 25 3d a3 3a  f2 57 76 0d 5f 50 16 e7  |o$Xy%=.:.Wv._P..|
0000a370  5a 5a 25 3d 31 33 20 84  5a 5a 25 3d 33 39 38 20  |ZZ%=13 .ZZ%=398 |
0000a380  8c 0d 5f 5a 10 e7 55 6d  25 3c 56 58 25 2a 32 20  |.._Z..Um%<VX%*2 |
0000a390  8c 0d 5f 64 12 f2 59 55  28 59 67 25 2c 55 6d 25  |.._d..YU(Yg%,Um%|
0000a3a0  2b 32 29 0d 5f 6e 16 cc  c8 99 26 34 30 30 44 32  |+2)._n....&400D2|
0000a3b0  2c 2d 31 3a 57 65 25 3d  a3 0d 5f 78 05 cd 0d 5f  |,-1:We%=.._x..._|
0000a3c0  82 10 cd 3a e7 5a 5a 25  3d 33 39 39 20 8c 0d 5f  |...:.ZZ%=399 .._|
0000a3d0  96 0c e7 55 6d 25 3e 32  20 8c 0d 5f a0 12 f2 59  |...Um%>2 .._...Y|
0000a3e0  55 28 59 67 25 2c 55 6d  25 2d 32 29 0d 5f aa 16  |U(Yg%,Um%-2)._..|
0000a3f0  cc c8 99 26 34 30 30 44  32 2c 2d 31 3a 57 65 25  |...&400D2,-1:We%|
0000a400  3d a3 0d 5f b4 05 cd 0d  5f be 05 cd 0d 5f c8 13  |=.._...._...._..|
0000a410  cc 3a e7 a4 65 68 28 5a  64 24 29 3d a3 20 8c 0d  |.:..eh(Zd$)=. ..|
0000a420  5f dc 2e 52 24 28 4e 25  2c 6e 25 29 3d a4 57 75  |_..R$(N%,n%)=.Wu|
0000a430  28 5a 64 24 29 3a e7 52  24 28 4e 25 2c 6e 25 29  |(Zd$):.R$(N%,n%)|
0000a440  3c 3e 6f 24 58 79 25 3d  a3 3a f2 57 76 0d 5f f0  |<>o$Xy%=.:.Wv._.|
0000a450  16 e7 5a 5a 25 3d 31 33  20 84 5a 5a 25 3d 33 39  |..ZZ%=13 .ZZ%=39|
0000a460  38 20 8c 0d 5f fa 10 e7  55 6d 25 3c 56 58 25 2a  |8 .._...Um%<VX%*|
0000a470  32 20 8c 0d 60 04 12 f2  59 55 28 59 67 25 2c 55  |2 ..`...YU(Yg%,U|
0000a480  6d 25 2b 32 29 0d 60 0e  16 cc c8 99 26 34 30 30  |m%+2).`.....&400|
0000a490  44 32 2c 2d 31 3a 57 65  25 3d a3 0d 60 18 05 cd  |D2,-1:We%=..`...|
0000a4a0  0d 60 22 10 cd 3a e7 5a  5a 25 3d 33 39 39 20 8c  |.`"..:.ZZ%=399 .|
0000a4b0  0d 60 36 0c e7 55 6d 25  3e 32 20 8c 0d 60 40 12  |.`6..Um%>2 ..`@.|
0000a4c0  f2 59 55 28 59 67 25 2c  55 6d 25 2d 32 29 0d 60  |.YU(Yg%,Um%-2).`|
0000a4d0  4a 16 cc c8 99 26 34 30  30 44 32 2c 2d 31 3a 57  |J....&400D2,-1:W|
0000a4e0  65 25 3d a3 0d 60 54 05  cd 0d 60 5e 05 cd 0d 60  |e%=..`T...`^...`|
0000a4f0  68 24 cc 3a 58 5a 24 3d  22 49 6e 76 61 6c 69 64  |h$.:XZ$="Invalid|
0000a500  20 64 61 74 61 20 66 6f  72 6d 61 74 2e 22 3a f2  | data format.":.|
0000a510  58 5a 0d 60 7c 05 cd 0d  60 86 05 cd 0d 60 90 37  |XZ.`|...`....`.7|
0000a520  cc 3a c8 99 26 34 30 30  44 32 2c 2d 31 3a 55 25  |.:..&400D2,-1:U%|
0000a530  2d 3d 31 3a f2 56 7a 28  57 77 25 2c 38 2c c3 28  |-=1:.Vz(Ww%,8,.(|
0000a540  55 25 29 29 3a 4e 25 3d  31 3a f2 59 59 3a 57 65  |U%)):N%=1:.YY:We|
0000a550  25 3d a3 0d 60 b8 05 cd  0d 60 c2 5b cc 58 5a 24  |%=..`....`.[.XZ$|
0000a560  3d 22 54 6f 20 70 75 74  20 69 6e 20 74 68 65 20  |="To put in the |
0000a570  64 61 74 61 20 63 6c 69  63 6b 20 6f 6e 20 69 63  |data click on ic|
0000a580  6f 6e 20 77 69 74 68 20  70 6c 75 73 20 73 69 67  |on with plus sig|
0000a590  6e 2e 22 3a f2 58 5a 3a  f2 56 7a 28 59 67 25 2c  |n.":.XZ:.Vz(Yg%,|
0000a5a0  55 6d 25 2c 22 22 29 3a  c8 99 26 34 30 30 44 32  |Um%,""):..&400D2|
0000a5b0  2c 2d 31 0d 60 d6 05 cd  0d 60 e0 05 cd 0d 60 ea  |,-1.`....`....`.|
0000a5c0  07 cb 3a e1 0d 61 08 28  dd a4 65 68 28 61 24 29  |..:..a.(..eh(a$)|
0000a5d0  3a ea 66 25 2c 67 25 2c  6d 25 2c 61 25 3a 66 25  |:.f%,g%,m%,a%:f%|
0000a5e0  3d a3 3a e7 61 24 3c 3e  22 22 20 8c 0d 61 30 1a  |=.:.a$<>"" ..a0.|
0000a5f0  e7 a9 28 61 24 29 3e 30  20 80 a9 28 61 24 29 3c  |..(a$)>0 ..(a$)<|
0000a600  38 20 66 25 3d b9 0d 61  3a 0b e7 66 25 3d a3 20  |8 f%=..a:..f%=. |
0000a610  8c 0d 61 44 25 e7 c1 61  24 2c 33 2c 31 29 3c 3e  |..aD%..a$,3,1)<>|
0000a620  22 2f 22 20 84 c1 61 24  2c 36 2c 31 29 3c 3e 22  |"/" ..a$,6,1)<>"|
0000a630  2f 22 66 25 3d b9 0d 61  4e 25 6d 25 3d bb 28 c1  |/"f%=..aN%m%=.(.|
0000a640  61 24 2c 34 2c 32 29 29  3a e7 6d 25 3c 31 20 84  |a$,4,2)):.m%<1 .|
0000a650  6d 25 3e 31 32 20 8c 66  25 3d b9 0d 61 58 23 67  |m%>12 .f%=..aX#g|
0000a660  25 3d bb 28 c0 61 24 2c  32 29 29 3a e7 67 25 3c  |%=.(.a$,2)):.g%<|
0000a670  31 20 84 67 25 3e 33 31  20 8c 66 25 3d b9 0d 61  |1 .g%>31 .f%=..a|
0000a680  62 0b e7 66 25 3d a3 20  8c 0d 61 6c 13 e7 67 25  |b..f%=. ..al..g%|
0000a690  3e 56 62 25 28 6d 25 29  66 25 3d b9 0d 61 76 0d  |>Vb%(m%)f%=..av.|
0000a6a0  cd 3a e7 6d 25 3d 32 20  8c 0d 61 8a 31 61 25 3d  |.:.m%=2 ..a.1a%=|
0000a6b0  bb 28 c2 61 24 2c 32 29  29 3a e7 28 61 25 20 83  |.(.a$,2)):.(a% .|
0000a6c0  34 30 30 3d 30 20 84 61  25 20 83 34 3d 30 29 6c  |400=0 .a% .4=0)l|
0000a6d0  25 3d 32 39 8b 6c 25 3d  32 38 0d 61 94 0e e7 67  |%=29.l%=28.a...g|
0000a6e0  25 3e 6c 25 66 25 3d b9  0d 61 9e 05 cd 0d 61 a8  |%>l%f%=..a....a.|
0000a6f0  05 cd 0d 61 b2 09 cd 3a  3d 66 25 0d 61 d0 2c dd  |...a...:=f%.a.,.|
0000a700  a4 65 69 28 61 24 29 3a  3d c2 61 24 2c 32 29 2b  |.ei(a$):=.a$,2)+|
0000a710  22 2f 22 2b c1 61 24 2c  33 2c 32 29 2b 22 2f 22  |"/"+.a$,3,2)+"/"|
0000a720  2b c0 61 24 2c 32 29 0d  61 ee 24 dd a4 57 75 28  |+.a$,2).a.$..Wu(|
0000a730  61 24 29 3a 3d c2 61 24  2c 32 29 2b c1 61 24 2c  |a$):=.a$,2)+.a$,|
0000a740  34 2c 32 29 2b c0 61 24  2c 32 29 0d 62 0c 29 dd  |4,2)+.a$,2).b.).|
0000a750  f2 59 74 28 55 6d 25 29  3a ea 6a 25 2c 68 25 2c  |.Yt(Um%):.j%,h%,|
0000a760  6e 25 2c 69 25 3a 68 25  3d 57 77 25 3a c8 8e 55  |n%,i%:h%=Ww%:..U|
0000a770  6d 25 20 ca 0d 62 2a 15  c9 31 3a e7 4e 25 3d 55  |m% ..b*..1:.N%=U|
0000a780  25 20 84 55 25 3d 30 20  8c 0d 62 3e 09 e7 55 25  |% .U%=0 ..b>..U%|
0000a790  20 8c 0d 62 48 26 58 5a  24 3d 22 54 68 69 73 20  | ..bH&XZ$="This |
0000a7a0  69 73 20 74 68 65 20 6c  61 73 74 20 72 65 63 6f  |is the last reco|
0000a7b0  72 64 2e 22 3a f2 58 5a  0d 62 52 25 cc 58 5a 24  |rd.":.XZ.bR%.XZ$|
0000a7c0  3d 22 4e 6f 20 72 65 63  6f 72 64 73 20 69 6e 20  |="No records in |
0000a7d0  61 72 63 68 69 76 65 2e  22 3a f2 58 5a 0d 62 5c  |archive.":.XZ.b\|
0000a7e0  05 cd 0d 62 66 12 cc 4e  25 2b 3d 31 3a f2 59 59  |...bf..N%+=1:.YY|
0000a7f0  3a f2 59 5a 0d 62 70 05  cd 0d 62 7a 15 c9 32 3a  |:.YZ.bp...bz..2:|
0000a800  e7 4e 25 3d 55 25 20 84  55 25 3d 30 20 8c 0d 62  |.N%=U% .U%=0 ..b|
0000a810  8e 09 e7 55 25 20 8c 0d  62 98 26 58 5a 24 3d 22  |...U% ..b.&XZ$="|
0000a820  54 68 69 73 20 69 73 20  74 68 65 20 6c 61 73 74  |This is the last|
0000a830  20 72 65 63 6f 72 64 2e  22 3a f2 58 5a 0d 62 a2  | record.":.XZ.b.|
0000a840  25 cc 58 5a 24 3d 22 4e  6f 20 72 65 63 6f 72 64  |%.XZ$="No record|
0000a850  73 20 69 6e 20 61 72 63  68 69 76 65 2e 22 3a f2  |s in archive.":.|
0000a860  58 5a 0d 62 ac 05 cd 0d  62 b6 12 cc 4e 25 3d 55  |XZ.b....b...N%=U|
0000a870  25 3a f2 59 59 3a f2 59  5a 0d 62 c0 05 cd 0d 62  |%:.YY:.YZ.b....b|
0000a880  ca 14 c9 33 3a e7 4e 25  3d 31 20 84 55 25 3d 30  |...3:.N%=1 .U%=0|
0000a890  20 8c 0d 62 de 09 e7 55  25 20 8c 0d 62 e8 27 58  | ..b...U% ..b.'X|
0000a8a0  5a 24 3d 22 54 68 69 73  20 69 73 20 74 68 65 20  |Z$="This is the |
0000a8b0  66 69 72 73 74 20 72 65  63 6f 72 64 2e 22 3a f2  |first record.":.|
0000a8c0  58 5a 0d 62 f2 25 cc 58  5a 24 3d 22 4e 6f 20 72  |XZ.b.%.XZ$="No r|
0000a8d0  65 63 6f 72 64 73 20 69  6e 20 61 72 63 68 69 76  |ecords in archiv|
0000a8e0  65 2e 22 3a f2 58 5a 0d  62 fc 05 cd 0d 63 06 11  |e.":.XZ.b....c..|
0000a8f0  cc 4e 25 3d 31 3a f2 59  59 3a f2 59 5a 0d 63 10  |.N%=1:.YY:.YZ.c.|
0000a900  05 cd 0d 63 1a 14 c9 34  3a e7 4e 25 3d 31 20 84  |...c...4:.N%=1 .|
0000a910  55 25 3d 30 20 8c 0d 63  2e 09 e7 55 25 20 8c 0d  |U%=0 ..c...U% ..|
0000a920  63 38 27 58 5a 24 3d 22  54 68 69 73 20 69 73 20  |c8'XZ$="This is |
0000a930  74 68 65 20 66 69 72 73  74 20 72 65 63 6f 72 64  |the first record|
0000a940  2e 22 3a f2 58 5a 0d 63  42 25 cc 58 5a 24 3d 22  |.":.XZ.cB%.XZ$="|
0000a950  4e 6f 20 72 65 63 6f 72  64 73 20 69 6e 20 61 72  |No records in ar|
0000a960  63 68 69 76 65 2e 22 3a  f2 58 5a 0d 63 4c 05 cd  |chive.":.XZ.cL..|
0000a970  0d 63 56 12 cc 4e 25 2d  3d 31 3a f2 59 59 3a f2  |.cV..N%-=1:.YY:.|
0000a980  59 5a 0d 63 60 05 cd 0d  63 6a 10 c9 39 3a e7 55  |YZ.c`...cj..9:.U|
0000a990  25 3d 35 30 30 20 8c 0d  63 7e 1b 58 5a 24 3d 22  |%=500 ..c~.XZ$="|
0000a9a0  41 72 63 68 69 76 65 20  66 75 6c 6c 2e 22 3a f2  |Archive full.":.|
0000a9b0  58 5a 0d 63 88 24 cc 3a  e7 28 55 25 3d 30 20 84  |XZ.c.$.:.(U%=0 .|
0000a9c0  52 24 28 4e 25 2c 31 29  3c 3e 22 22 29 20 80 57  |R$(N%,1)<>"") .W|
0000a9d0  65 25 3d a3 20 8c 0d 63  9c 78 55 25 2b 3d 31 3a  |e%=. ..c.xU%+=1:|
0000a9e0  f2 56 7a 28 68 25 2c 38  2c c3 28 55 25 29 29 3a  |.Vz(h%,8,.(U%)):|
0000a9f0  4e 25 3d 55 25 3a 57 65  25 3d b9 3a f2 56 7a 28  |N%=U%:We%=.:.Vz(|
0000aa00  68 25 2c 36 2c c3 28 4e  25 29 29 3a e3 6a 25 3d  |h%,6,.(N%)):.j%=|
0000aa10  31 20 b8 56 58 25 3a 52  24 28 4e 25 2c 6a 25 29  |1 .VX%:R$(N%,j%)|
0000aa20  3d 22 22 3a e3 69 25 3d  31 20 b8 56 58 25 3a e7  |="":.i%=1 .VX%:.|
0000aa30  46 24 28 69 25 2c 33 29  3c 3e 22 22 52 24 28 4e  |F$(i%,3)<>""R$(N|
0000aa40  25 2c 69 25 29 3d 46 24  28 69 25 2c 33 29 0d 63  |%,i%)=F$(i%,3).c|
0000aa50  d8 20 ed 3a ed 3a f2 59  59 3a 42 25 3d 55 25 3a  |. .:.:.YY:B%=U%:|
0000aa60  f2 59 55 28 57 79 25 2c  32 29 3a f2 59 5a 0d 63  |.YU(Wy%,2):.YZ.c|
0000aa70  f6 35 cc 3a 58 5a 24 3d  22 50 75 74 20 69 6e 20  |.5.:XZ$="Put in |
0000aa80  74 68 65 20 63 75 72 72  65 6e 74 20 72 65 63 6f  |the current reco|
0000aa90  72 64 20 64 61 74 61 20  66 69 72 73 74 2e 22 3a  |rd data first.":|
0000aaa0  f2 58 5a 0d 64 0a 05 cd  0d 64 14 05 cd 0d 64 1e  |.XZ.d....d....d.|
0000aab0  07 cb 3a e1 0d 64 3c 33  dd f2 59 59 3a ea 6a 25  |..:..d<3..YY:.j%|
0000aac0  2c 69 25 2c 61 24 3a 69  25 3d 32 3a e3 6a 25 3d  |,i%,a$:i%=2:.j%=|
0000aad0  31 20 b8 56 58 25 3a e7  46 24 28 6a 25 2c 30 29  |1 .VX%:.F$(j%,0)|
0000aae0  3c 3e 22 33 22 20 8c 0d  64 64 10 61 24 3d 52 24  |<>"3" ..dd.a$=R$|
0000aaf0  28 4e 25 2c 6a 25 29 0d  64 6e 24 cc 61 24 3d a4  |(N%,j%).dn$.a$=.|
0000ab00  65 69 28 52 24 28 4e 25  2c 6a 25 29 29 3a e7 61  |ei(R$(N%,j%)):.a|
0000ab10  24 3d 22 2f 2f 22 61 24  3d 22 22 0d 64 78 2f cd  |$="//"a$="".dx/.|
0000ab20  3a f2 56 7a 28 57 79 25  2c 69 25 2c 61 24 29 3a  |:.Vz(Wy%,i%,a$):|
0000ab30  69 25 2b 3d 32 3a ed 3a  f2 56 7a 28 57 77 25 2c  |i%+=2:.:.Vz(Ww%,|
0000ab40  36 2c c3 28 4e 25 29 29  3a e1 0d 64 dc 1b dd f2  |6,.(N%)):..d....|
0000ab50  59 57 3a ea 68 25 3a 68  25 3d 58 62 25 3a c8 8e  |YW:.h%:h%=Xb%:..|
0000ab60  57 62 25 20 ca 0d 64 fa  27 c9 31 3a f2 56 7a 28  |Wb% ..d.'.1:.Vz(|
0000ab70  68 25 2c 31 31 2c 22 46  61 6e 66 6f 6c 64 20 38  |h%,11,"Fanfold 8|
0000ab80  30 20 63 6f 6c 20 31 31  22 22 22 29 0d 65 04 27  |0 col 11""").e.'|
0000ab90  c9 32 3a f2 56 7a 28 68  25 2c 31 31 2c 22 46 61  |.2:.Vz(h%,11,"Fa|
0000aba0  6e 66 6f 6c 64 20 38 30  20 63 6f 6c 20 31 32 22  |nfold 80 col 12"|
0000abb0  22 22 29 0d 65 0e 28 c9  33 3a f2 56 7a 28 68 25  |"").e.(.3:.Vz(h%|
0000abc0  2c 31 31 2c 22 46 61 6e  66 6f 6c 64 20 31 33 36  |,11,"Fanfold 136|
0000abd0  20 63 6f 6c 20 31 31 22  22 22 29 0d 65 18 28 c9  | col 11""").e.(.|
0000abe0  34 3a f2 56 7a 28 68 25  2c 31 31 2c 22 46 61 6e  |4:.Vz(h%,11,"Fan|
0000abf0  66 6f 6c 64 20 31 33 36  20 63 6f 6c 20 31 32 22  |fold 136 col 12"|
0000ac00  22 22 29 0d 65 22 23 c9  35 3a f2 56 7a 28 68 25  |"").e"#.5:.Vz(h%|
0000ac10  2c 31 31 2c 22 41 34 20  73 69 6e 67 6c 65 20 73  |,11,"A4 single s|
0000ac20  68 65 65 74 22 29 0d 65  2c 67 cb 3a f2 56 7a 28  |heet").e,g.:.Vz(|
0000ac30  68 25 2c 31 35 2c c3 28  57 74 25 29 29 3a f2 56  |h%,15,.(Wt%)):.V|
0000ac40  7a 28 68 25 2c 39 2c c3  28 57 78 25 29 29 3a f2  |z(h%,9,.(Wx%)):.|
0000ac50  56 7a 28 68 25 2c 38 2c  c3 28 57 74 25 2d 57 78  |Vz(h%,8,.(Wt%-Wx|
0000ac60  25 29 29 3a f2 56 7a 28  68 25 2c 31 39 2c c3 28  |%)):.Vz(h%,19,.(|
0000ac70  41 25 29 29 3a f2 56 7a  28 68 25 2c 32 31 2c c3  |A%)):.Vz(h%,21,.|
0000ac80  28 42 25 29 29 3a c8 8e  57 5a 25 20 ca 0d 65 5e  |(B%)):..WZ% ..e^|
0000ac90  0d c9 30 3a 57 61 25 3d  55 25 0d 65 68 0c c9 31  |..0:Wa%=U%.eh..1|
0000aca0  3a 57 61 25 3d 31 0d 65  72 0e c9 32 3a 57 61 25  |:Wa%=1.er..2:Wa%|
0000acb0  3d 57 6c 25 0d 65 7c 14  c9 33 3a 57 61 25 3d 28  |=Wl%.e|..3:Wa%=(|
0000acc0  42 25 2d 41 25 29 2b 31  0d 65 86 1e cb 3a f2 56  |B%-A%)+1.e...:.V|
0000acd0  7a 28 68 25 2c 32 36 2c  c3 28 57 61 25 29 29 3a  |z(h%,26,.(Wa%)):|
0000ace0  e7 57 6c 25 20 8c 0d 65  a4 10 e7 57 57 25 3f 35  |.Wl% ..e...WW%?5|
0000acf0  3d 26 30 30 20 8c 0d 65  ae 1c f2 61 64 28 55 67  |=&00 ..e...ad(Ug|
0000ad00  25 2c 68 25 2c 35 2c 22  72 61 64 69 6f 6f 66 66  |%,h%,5,"radiooff|
0000ad10  22 29 0d 65 b8 1c cc f2  61 64 28 55 67 25 2c 68  |").e....ad(Ug%,h|
0000ad20  25 2c 35 2c 22 72 61 64  69 6f 6f 6e 22 29 0d 65  |%,5,"radioon").e|
0000ad30  c2 05 cd 0d 65 cc 1a cc  f2 61 64 28 55 67 25 2c  |....e....ad(Ug%,|
0000ad40  68 25 2c 35 2c 22 72 61  64 69 6f 22 29 0d 65 d6  |h%,5,"radio").e.|
0000ad50  07 cd 3a e1 0d 65 f4 20  dd f2 5a 55 28 55 6d 25  |..:..e. ..ZU(Um%|
0000ad60  29 3a ea 68 25 3a 68 25  3d 58 62 25 3a c8 8e 55  |):.h%:h%=Xb%:..U|
0000ad70  6d 25 20 ca 0d 66 12 12  c9 32 3a f2 59 6e 28 68  |m% ..f...2:.Yn(h|
0000ad80  25 2c 55 6d 25 29 0d 66  1c 13 c9 31 3a e7 57 57  |%,Um%).f...1:.WW|
0000ad90  25 3f 31 3d 26 30 30 20  8c 0d 66 30 7a f2 65 6a  |%?1=&00 ..f0z.ej|
0000ada0  3a 57 57 25 3f 31 3d a4  5a 77 28 68 25 2c 31 29  |:WW%?1=.Zw(h%,1)|
0000adb0  3a 57 5a 25 3d 30 3a f2  58 78 28 58 62 25 2c 31  |:WZ%=0:.Xx(Xb%,1|
0000adc0  39 2c 26 30 32 30 30 30  31 33 44 2c 26 46 46 30  |9,&0200013D,&FF0|
0000add0  30 46 46 46 46 29 3a f2  58 78 28 58 62 25 2c 32  |0FFFF):.Xx(Xb%,2|
0000ade0  31 2c 26 30 32 30 30 30  31 33 44 2c 26 46 46 30  |1,&0200013D,&FF0|
0000adf0  30 46 46 46 46 29 3a c8  99 26 34 30 30 44 32 2c  |0FFFF):..&400D2,|
0000ae00  2d 31 3a f2 56 7a 28 68  25 2c 32 36 2c c3 28 55  |-1:.Vz(h%,26,.(U|
0000ae10  25 29 29 0d 66 58 05 cd  0d 66 62 13 c9 33 3a e7  |%)).fX...fb..3:.|
0000ae20  57 57 25 3f 33 3d 26 30  30 20 8c 0d 66 76 78 f2  |WW%?3=&00 ..fvx.|
0000ae30  65 6a 3a 57 57 25 3f 33  3d a4 5a 77 28 68 25 2c  |ej:WW%?3=.Zw(h%,|
0000ae40  33 29 3a 57 5a 25 3d 31  3a f2 58 78 28 58 62 25  |3):WZ%=1:.Xx(Xb%|
0000ae50  2c 31 39 2c 26 30 32 30  30 30 31 33 44 2c 26 46  |,19,&0200013D,&F|
0000ae60  46 30 30 46 46 46 46 29  3a f2 58 78 28 58 62 25  |F00FFFF):.Xx(Xb%|
0000ae70  2c 32 31 2c 26 30 32 30  30 30 31 33 44 2c 26 46  |,21,&0200013D,&F|
0000ae80  46 30 30 46 46 46 46 29  3a c8 99 26 34 30 30 44  |F00FFFF):..&400D|
0000ae90  32 2c 2d 31 3a f2 56 7a  28 68 25 2c 32 36 2c 22  |2,-1:.Vz(h%,26,"|
0000aea0  31 22 29 0d 66 9e 05 cd  0d 66 a8 0d c9 35 3a e7  |1").f....f...5:.|
0000aeb0  57 6c 25 20 8c 0d 66 bc  10 e7 57 57 25 3f 35 3d  |Wl% ..f...WW%?5=|
0000aec0  26 30 30 20 8c 0d 66 c6  7b f2 65 6a 3a 57 57 25  |&00 ..f.{.ej:WW%|
0000aed0  3f 35 3d a4 5a 77 28 68  25 2c 35 29 3a 57 5a 25  |?5=.Zw(h%,5):WZ%|
0000aee0  3d 32 3a f2 58 78 28 58  62 25 2c 31 39 2c 26 30  |=2:.Xx(Xb%,19,&0|
0000aef0  32 30 30 30 31 33 44 2c  26 46 46 30 30 46 46 46  |200013D,&FF00FFF|
0000af00  46 29 3a f2 58 78 28 58  62 25 2c 32 31 2c 26 30  |F):.Xx(Xb%,21,&0|
0000af10  32 30 30 30 31 33 44 2c  26 46 46 30 30 46 46 46  |200013D,&FF00FFF|
0000af20  46 29 3a c8 99 26 34 30  30 44 32 2c 2d 31 3a f2  |F):..&400D2,-1:.|
0000af30  56 7a 28 68 25 2c 32 36  2c c3 28 57 6c 25 29 29  |Vz(h%,26,.(Wl%))|
0000af40  0d 66 ee 05 cd 0d 66 f8  05 cd 0d 67 02 13 c9 37  |.f....f....g...7|
0000af50  3a e7 57 57 25 3f 37 3d  26 30 30 20 8c 0d 67 16  |:.WW%?7=&00 ..g.|
0000af60  81 f2 65 6a 3a 57 57 25  3f 37 3d a4 5a 77 28 68  |..ej:WW%?7=.Zw(h|
0000af70  25 2c 37 29 3a 57 5a 25  3d 33 3a f2 58 78 28 58  |%,7):WZ%=3:.Xx(X|
0000af80  62 25 2c 31 39 2c 26 30  37 30 30 46 31 33 44 2c  |b%,19,&0700F13D,|
0000af90  26 46 46 30 30 46 46 46  46 29 3a f2 58 78 28 58  |&FF00FFFF):.Xx(X|
0000afa0  62 25 2c 32 31 2c 26 30  37 30 30 46 31 33 44 2c  |b%,21,&0700F13D,|
0000afb0  26 46 46 30 30 46 46 46  46 29 3a f2 59 55 28 58  |&FF00FFFF):.YU(X|
0000afc0  62 25 2c 31 39 29 3a f2  56 7a 28 68 25 2c 32 36  |b%,19):.Vz(h%,26|
0000afd0  2c c3 28 28 42 25 2d 41  25 29 2b 31 29 29 0d 67  |,.((B%-A%)+1)).g|
0000afe0  3e 05 cd 0d 67 48 1f c9  32 33 3a f2 62 55 28 58  |>...gH..23:.bU(X|
0000aff0  62 25 2c 55 6d 25 2c 31  29 3a e7 a4 65 6b 3d b9  |b%,Um%,1):..ek=.|
0000b000  20 8c 0d 67 66 07 f2 65  6c 0d 67 70 4e cc 58 5a  | ..gf..el.gpN.XZ|
0000b010  24 3d 22 50 72 69 6e 74  65 72 20 75 6e 63 6f 6e  |$="Printer uncon|
0000b020  6e 65 63 74 65 64 20 6f  72 20 6f 66 66 6c 69 6e  |nected or offlin|
0000b030  65 2e 20 22 3a 58 5a 24  2b 3d 22 52 65 63 6f 6e  |e. ":XZ$+="Recon|
0000b040  6e 65 63 74 20 61 6e 64  20 63 6c 69 63 6b 20 4f  |nect and click O|
0000b050  4b 2e 22 3a f2 58 5a 0d  67 84 14 cd 3a f2 62 55  |K.":.XZ.g...:.bU|
0000b060  28 58 62 25 2c 55 6d 25  2c 30 29 0d 67 98 23 c9  |(Xb%,Um%,0).g.#.|
0000b070  32 34 3a f2 58 76 28 58  65 25 29 3a f2 58 76 28  |24:.Xv(Xe%):.Xv(|
0000b080  68 25 29 3a f2 58 7a 28  57 79 25 2c a3 29 0d 67  |h%):.Xz(Wy%,.).g|
0000b090  ac 07 cb 3a e1 0d 67 ca  31 dd f2 65 6a 3a 57 57  |...:..g.1..ej:WW|
0000b0a0  25 3f 31 3d a4 5a 78 28  58 62 25 2c 31 29 3a 57  |%?1=.Zx(Xb%,1):W|
0000b0b0  57 25 3f 33 3d a4 5a 78  28 58 62 25 2c 33 29 3a  |W%?3=.Zx(Xb%,3):|
0000b0c0  e7 57 6c 25 20 8c 0d 67  e8 14 57 57 25 3f 35 3d  |.Wl% ..g..WW%?5=|
0000b0d0  a4 5a 78 28 58 62 25 2c  35 29 0d 67 f2 1b cc f2  |.Zx(Xb%,5).g....|
0000b0e0  61 64 28 55 67 25 2c 58  62 25 2c 35 2c 22 72 61  |ad(Ug%,Xb%,5,"ra|
0000b0f0  64 69 6f 22 29 0d 67 fc  18 cd 3a 57 57 25 3f 37  |dio").g...:WW%?7|
0000b100  3d a4 5a 78 28 58 62 25  2c 37 29 3a e1 0d 68 24  |=.Zx(Xb%,7):..h$|
0000b110  1d dd f2 65 6c 3a ea 6a  25 2c 67 25 2c 61 25 2c  |...el:.j%,g%,a%,|
0000b120  62 25 3a c8 8e 57 5a 25  20 ca 0d 68 42 13 c9 30  |b%:..WZ% ..hB..0|
0000b130  3a 57 71 25 3d 31 3a 57  61 25 3d 55 25 0d 68 4c  |:Wq%=1:Wa%=U%.hL|
0000b140  14 c9 31 3a 57 71 25 3d  4e 25 3a 57 61 25 3d 4e  |..1:Wq%=N%:Wa%=N|
0000b150  25 0d 68 56 14 c9 32 3a  57 71 25 3d 31 3a 57 61  |%.hV..2:Wq%=1:Wa|
0000b160  25 3d 57 6c 25 0d 68 60  14 c9 33 3a 57 71 25 3d  |%=Wl%.h`..3:Wq%=|
0000b170  41 25 3a 57 61 25 3d 42  25 0d 68 6a 18 cb 3a e7  |A%:Wa%=B%.hj..:.|
0000b180  57 61 25 3e 30 20 80 57  78 25 3c 3d 57 74 25 20  |Wa%>0 .Wx%<=Wt% |
0000b190  8c 0d 68 88 31 65 6d 25  3d 30 3a e3 6a 25 3d 31  |..h.1em%=0:.j%=1|
0000b1a0  20 b8 56 58 25 3a e7 56  64 25 28 6a 25 29 3d b9  | .VX%:.Vd%(j%)=.|
0000b1b0  65 6d 25 2b 3d bb 28 46  24 28 6a 25 2c 31 29 29  |em%+=.(F$(j%,1))|
0000b1c0  2b 31 0d 68 a6 19 ed 3a  e7 57 74 25 3d 31 35 30  |+1.h...:.Wt%=150|
0000b1d0  20 67 25 3d 35 8b 67 25  3d 31 31 0d 68 c4 4c 65  | g%=5.g%=11.h.Le|
0000b1e0  6e 25 3d a8 28 28 57 74  25 2d 65 6d 25 29 2f 32  |n%=.((Wt%-em%)/2|
0000b1f0  29 2b 67 25 3a 65 6f 24  3d 22 22 3a 65 70 24 3d  |)+g%:eo$="":ep$=|
0000b200  c4 65 6d 25 2c 22 2d 22  29 3a 65 71 25 3d 31 3a  |.em%,"-"):eq%=1:|
0000b210  e3 6a 25 3d 31 20 b8 56  58 25 3a e7 56 64 25 28  |.j%=1 .VX%:.Vd%(|
0000b220  6a 25 29 3d b9 20 8c 0d  68 f6 2f 61 25 3d a9 28  |j%)=. ..h./a%=.(|
0000b230  a4 61 55 28 46 24 28 6a  25 2c 32 29 29 29 3a 62  |.aU(F$(j%,2))):b|
0000b240  25 3d bb 28 46 24 28 6a  25 2c 31 29 29 3a e7 61  |%=.(F$(j%,1)):.a|
0000b250  25 3e 62 25 20 8c 0d 69  0a 2a 65 6f 24 2b 3d 46  |%>b% ..i.*eo$+=F|
0000b260  24 28 6a 25 2c 39 29 2b  c4 28 62 25 2d a9 28 46  |$(j%,9)+.(b%-.(F|
0000b270  24 28 6a 25 2c 39 29 29  29 2b 31 2c 22 20 22 29  |$(j%,9)))+1," ")|
0000b280  0d 69 14 27 cc 65 6f 24  2b 3d a4 61 55 28 46 24  |.i.'.eo$+=.aU(F$|
0000b290  28 6a 25 2c 32 29 29 2b  c4 28 62 25 2d 61 25 29  |(j%,2))+.(b%-a%)|
0000b2a0  2b 31 2c 22 20 22 29 0d  69 1e 05 cd 0d 69 28 0f  |+1," ").i....i(.|
0000b2b0  cd 3a ed 3a c8 8e 57 62  25 20 ca 0d 69 50 0f c9  |.:.:..Wb% ..iP..|
0000b2c0  31 2c 33 3a 65 72 25 3d  37 33 0d 69 5a 11 c9 32  |1,3:er%=73.iZ..2|
0000b2d0  2c 34 2c 35 3a 65 72 25  3d 37 38 0d 69 64 42 cb  |,4,5:er%=78.idB.|
0000b2e0  3a f2 58 76 28 58 62 25  29 3a f2 58 7a 28 58 59  |:.Xv(Xb%):.Xz(XY|
0000b2f0  25 2c a3 29 3a 50 25 3d  57 71 25 3a 57 73 25 3d  |%,.):P%=Wq%:Ws%=|
0000b300  31 3a 58 77 25 3d 30 3a  c8 99 26 34 30 36 43 30  |1:Xw%=0:..&406C0|
0000b310  3a ef 32 2c 32 31 3a f1  3a ef 36 2c 33 0d 69 8c  |:.2,21:.:.6,3.i.|
0000b320  13 cc 57 71 25 3d 30 3a  e7 57 61 25 3d 30 20 8c  |..Wq%=0:.Wa%=0 .|
0000b330  0d 69 a0 22 58 5a 24 3d  22 4e 6f 20 72 65 63 6f  |.i."XZ$="No reco|
0000b340  72 64 73 20 74 6f 20 70  72 69 6e 74 2e 22 3a f2  |rds to print.":.|
0000b350  58 5a 0d 69 aa 25 cc 58  5a 24 3d 22 50 72 69 6e  |XZ.i.%.XZ$="Prin|
0000b360  74 69 6e 67 20 72 6f 77  20 74 6f 6f 20 6c 6f 6e  |ting row too lon|
0000b370  67 2e 22 3a f2 58 5a 0d  69 b4 05 cd 0d 69 be 07  |g.":.XZ.i....i..|
0000b380  cd 3a e1 0d 69 dc 5b dd  f2 58 62 3a ea 65 73 25  |.:..i.[..Xb:.es%|
0000b390  2c 75 24 3a 57 70 25 3d  b9 3a c8 99 26 35 44 2c  |,u$:Wp%=.:..&5D,|
0000b3a0  31 38 3a c8 99 26 35 44  2c 31 35 3a c8 99 26 35  |18:..&5D,15:..&5|
0000b3b0  44 2c 32 37 3a c8 99 26  35 44 2c 37 37 3a c8 99  |D,27:..&5D,77:..|
0000b3c0  26 35 44 2c 32 37 3a c8  99 26 35 44 2c 34 38 3a  |&5D,27:..&5D,48:|
0000b3d0  ef 32 2c 32 31 3a e7 57  73 25 3d 31 20 8c 0d 6a  |.2,21:.Ws%=1 ..j|
0000b3e0  18 0e f2 65 6f 3a 57 73  25 2b 3d 31 0d 6a 22 28  |...eo:Ws%+=1.j"(|
0000b3f0  cc 3a e7 57 5a 25 3d 32  20 75 24 3d a4 65 6e 28  |.:.WZ%=2 u$=.en(|
0000b400  46 25 28 57 71 25 29 29  8b 75 24 3d a4 65 6e 28  |F%(Wq%)).u$=.en(|
0000b410  57 71 25 29 0d 6a 36 35  f1 8a 65 6e 25 29 75 24  |Wq%).j65..en%)u$|
0000b420  3a c8 99 26 36 2c 26 38  31 2c 2c 31 20 83 26 35  |:..&6,&81,,1 .&5|
0000b430  30 2c 31 20 81 26 35 30  20 b8 2c 65 73 25 3a e7  |0,1 .&50 .,es%:.|
0000b440  57 71 25 3d 57 61 25 20  8c 0d 6a 4a 2e 57 71 25  |Wq%=Wa% ..jJ.Wq%|
0000b450  3d 2d 31 3a f1 bd 28 31  32 29 3a c8 99 26 34 30  |=-1:..(12):..&40|
0000b460  36 43 31 3a f2 58 76 28  58 59 25 29 3a f2 58 7a  |6C1:.Xv(XY%):.Xz|
0000b470  28 57 79 25 2c a3 29 0d  6a 5e 24 cd 3a 57 71 25  |(Wy%,.).j^$.:Wq%|
0000b480  2b 3d 31 3a 50 25 2b 3d  31 3a 57 73 25 2b 3d 31  |+=1:P%+=1:Ws%+=1|
0000b490  3a e7 57 73 25 3e 65 72  25 20 8c 0d 6a 7c 20 f1  |:.Ws%>er% ..j| .|
0000b4a0  bd 28 31 32 29 3a 57 73  25 3d 31 3a 65 71 25 2b  |.(12):Ws%=1:eq%+|
0000b4b0  3d 31 3a e7 57 62 25 3d  35 20 8c 0d 6a 90 1e 57  |=1:.Wb%=5 ..j..W|
0000b4c0  72 25 3d b9 3a c8 99 26  34 30 36 43 31 3a 57 58  |r%=.:..&406C1:WX|
0000b4d0  25 3d b9 3a 57 59 25 3d  b9 0d 6a 9a 05 cd 0d 6a  |%=.:WY%=..j....j|
0000b4e0  a4 05 cd 0d 6a ae 3f cd  3a 57 70 25 3d a3 3a ef  |....j.?.:Wp%=.:.|
0000b4f0  36 2c 33 3a c8 99 26 35  44 2c 32 37 3a c8 99 26  |6,3:..&5D,27:..&|
0000b500  35 44 2c 35 30 3a c8 99  26 35 44 2c 32 37 3a c8  |5D,50:..&5D,27:.|
0000b510  99 26 35 44 2c 38 30 3a  c8 99 26 35 44 2c 31 38  |.&5D,80:..&5D,18|
0000b520  3a e1 0d 6a f4 70 dd f2  65 6f 3a ea 61 24 2c 62  |:..j.p..eo:.a$,b|
0000b530  24 2c 63 24 2c 64 24 2c  65 24 2c 66 24 2c 67 24  |$,c$,d$,e$,f$,g$|
0000b540  2c 65 74 24 2c 65 75 24  3a 66 24 3d a4 64 70 28  |,et$,eu$:f$=.dp(|
0000b550  64 6f 24 29 3a 61 24 3d  22 44 61 74 61 62 61 73  |do$):a$="Databas|
0000b560  65 3a 20 22 2b 66 24 3a  62 24 3d 22 20 50 61 67  |e: "+f$:b$=" Pag|
0000b570  2e 20 22 2b c3 28 65 71  25 29 3a e7 57 5a 25 3d  |. "+.(eq%):.WZ%=|
0000b580  30 20 64 24 3d 22 41 6c  6c 20 72 65 63 6f 72 64  |0 d$="All record|
0000b590  73 22 0d 6b 1c 20 e7 57  5a 25 3d 31 20 64 24 3d  |s".k. .WZ%=1 d$=|
0000b5a0  22 52 65 63 6f 72 64 20  6e 2e 20 22 2b c3 28 4e  |"Record n. "+.(N|
0000b5b0  25 29 0d 6b 26 0c e7 57  5a 25 3d 32 20 8c 0d 6b  |%).k&..WZ%=2 ..k|
0000b5c0  30 0b c8 8e 57 6e 25 20  ca 0d 6b 3a 10 c9 31 3a  |0...Wn% ..k:..1:|
0000b5d0  67 24 3d 22 20 4f 52 20  22 0d 6b 44 11 c9 32 3a  |g$=" OR ".kD..2:|
0000b5e0  67 24 3d 22 20 41 4e 44  20 22 0d 6b 4e 15 c9 33  |g$=" AND ".kN..3|
0000b5f0  3a 67 24 3d 22 20 41 4e  44 20 4e 4f 54 20 22 0d  |:g$=" AND NOT ".|
0000b600  6b 58 0d cb 3a c8 8e 5a  72 25 20 ca 0d 6b 6c 10  |kX..:..Zr% ..kl.|
0000b610  c9 30 3a 65 74 24 3d 22  20 3d 20 22 0d 6b 76 10  |.0:et$=" = ".kv.|
0000b620  c9 31 3a 65 74 24 3d 22  20 3e 20 22 0d 6b 80 11  |.1:et$=" > ".k..|
0000b630  c9 32 3a 65 74 24 3d 22  20 3e 3d 20 22 0d 6b 8a  |.2:et$=" >= ".k.|
0000b640  11 c9 33 3a 65 74 24 3d  22 20 3c 3d 20 22 0d 6b  |..3:et$=" <= ".k|
0000b650  94 10 c9 34 3a 65 74 24  3d 22 20 3c 20 22 0d 6b  |...4:et$=" < ".k|
0000b660  9e 17 c9 35 3a 65 74 24  3d 22 20 63 6f 6e 74 61  |...5:et$=" conta|
0000b670  69 6e 73 20 22 0d 6b a8  1b c9 36 3a 65 74 24 3d  |ins ".k...6:et$=|
0000b680  22 20 6e 6f 74 20 63 6f  6e 74 61 69 6e 73 20 22  |" not contains "|
0000b690  0d 6b b2 15 c9 37 3a 65  74 24 3d 22 20 73 74 61  |.k...7:et$=" sta|
0000b6a0  72 74 73 20 22 0d 6b bc  13 c9 38 3a 65 74 24 3d  |rts ".k...8:et$=|
0000b6b0  22 20 65 6e 64 73 20 22  0d 6b c6 11 c9 39 3a 65  |" ends ".k...9:e|
0000b6c0  74 24 3d 22 20 3c 3e 20  22 0d 6b d0 0d cb 3a c8  |t$=" <> ".k...:.|
0000b6d0  8e 5a 73 25 20 ca 0d 6b  e4 10 c9 30 3a 65 75 24  |.Zs% ..k...0:eu$|
0000b6e0  3d 22 20 3d 20 22 0d 6b  ee 10 c9 31 3a 65 75 24  |=" = ".k...1:eu$|
0000b6f0  3d 22 20 3e 20 22 0d 6b  f8 11 c9 32 3a 65 75 24  |=" > ".k...2:eu$|
0000b700  3d 22 20 3e 3d 20 22 0d  6c 02 11 c9 33 3a 65 75  |=" >= ".l...3:eu|
0000b710  24 3d 22 20 3c 3d 20 22  0d 6c 0c 10 c9 34 3a 65  |$=" <= ".l...4:e|
0000b720  75 24 3d 22 20 3c 20 22  0d 6c 16 17 c9 35 3a 65  |u$=" < ".l...5:e|
0000b730  75 24 3d 22 20 63 6f 6e  74 61 69 6e 73 20 22 0d  |u$=" contains ".|
0000b740  6c 20 1b c9 36 3a 65 75  24 3d 22 20 6e 6f 74 20  |l ..6:eu$=" not |
0000b750  63 6f 6e 74 61 69 6e 73  20 22 0d 6c 2a 15 c9 37  |contains ".l*..7|
0000b760  3a 65 75 24 3d 22 20 73  74 61 72 74 73 20 22 0d  |:eu$=" starts ".|
0000b770  6c 34 13 c9 38 3a 65 75  24 3d 22 20 65 6e 64 73  |l4..8:eu$=" ends|
0000b780  20 22 0d 6c 3e 11 c9 39  3a 65 75 24 3d 22 20 3c  | ".l>..9:eu$=" <|
0000b790  3e 20 22 0d 6c 48 67 cb  3a 65 24 3d 22 3c 22 2b  |> ".lHg.:e$="<"+|
0000b7a0  a4 61 55 28 46 24 28 5a  7a 25 2c 32 29 29 2b 22  |.aU(F$(Zz%,2))+"|
0000b7b0  3e 22 2b 65 74 24 2b 22  3c 22 2b 57 6a 24 2b 22  |>"+et$+"<"+Wj$+"|
0000b7c0  3e 22 3a e7 57 6b 24 3c  3e 22 22 65 24 3d 65 24  |>":.Wk$<>""e$=e$|
0000b7d0  2b 67 24 2b 22 3c 22 2b  a4 61 55 28 46 24 28 61  |+g$+"<"+.aU(F$(a|
0000b7e0  56 25 2c 32 29 29 2b 22  3e 22 2b 65 75 24 2b 22  |V%,2))+">"+eu$+"|
0000b7f0  3c 22 2b 57 6b 24 2b 22  3e 22 0d 6c 66 19 64 24  |<"+Wk$+">".lf.d$|
0000b800  3d 22 53 65 61 72 63 68  20 6c 69 73 74 3a 20 22  |="Search list: "|
0000b810  2b 65 24 0d 6c 70 0e cd  3a e7 57 5a 25 3d 33 20  |+e$.lp..:.WZ%=3 |
0000b820  8c 0d 6c 84 31 64 24 3d  22 46 72 6f 6d 20 72 65  |..l.1d$="From re|
0000b830  63 6f 72 64 3a 20 22 2b  c3 28 41 25 29 2b 22 20  |cord: "+.(A%)+" |
0000b840  74 6f 20 72 65 63 6f 72  64 3a 20 22 2b c3 28 42  |to record: "+.(B|
0000b850  25 29 0d 6c 8e 5a cd 3a  63 24 3d 61 24 2b c4 65  |%).l.Z.:c$=a$+.e|
0000b860  6d 25 2d 28 a9 28 61 24  29 2b a9 28 62 24 29 29  |m%-(.(a$)+.(b$))|
0000b870  2c 22 20 22 29 2b 62 24  3a f1 8a 65 6e 25 29 63  |," ")+b$:..en%)c|
0000b880  24 3a f1 8a 65 6e 25 29  64 24 3a f1 8a 65 6e 25  |$:..en%)d$:..en%|
0000b890  29 65 70 24 3a f1 8a 65  6e 25 29 65 6f 24 3a f1  |)ep$:..en%)eo$:.|
0000b8a0  8a 65 6e 25 29 65 70 24  3a f1 3a e1 0d 6c ca 37  |.en%)ep$:.:..l.7|
0000b8b0  dd a4 65 6e 28 6e 25 29  3a ea 6a 25 2c 75 24 2c  |..en(n%):.j%,u$,|
0000b8c0  6c 25 2c 77 25 3a 75 24  3d 22 22 3a e3 6a 25 3d  |l%,w%:u$="":.j%=|
0000b8d0  31 20 b8 56 58 25 3a e7  56 64 25 28 6a 25 29 3d  |1 .VX%:.Vd%(j%)=|
0000b8e0  b9 20 8c 0d 6c fc 14 e7  46 24 28 6a 25 2c 30 29  |. ..l...F$(j%,0)|
0000b8f0  3c 3e 22 33 22 20 8c 0d  6d 06 40 6c 25 3d a9 28  |<>"3" ..m.@l%=.(|
0000b900  52 24 28 6e 25 2c 6a 25  29 29 3a 77 25 3d bb 28  |R$(n%,j%)):w%=.(|
0000b910  46 24 28 6a 25 2c 31 29  29 3a 75 24 2b 3d 52 24  |F$(j%,1)):u$+=R$|
0000b920  28 6e 25 2c 6a 25 29 2b  c4 28 77 25 2d 6c 25 29  |(n%,j%)+.(w%-l%)|
0000b930  2b 31 2c 22 20 22 29 0d  6d 1a 38 cc e7 a4 65 69  |+1," ").m.8...ei|
0000b940  28 52 24 28 6e 25 2c 6a  25 29 29 3c 3e 22 2f 2f  |(R$(n%,j%))<>"//|
0000b950  22 75 24 2b 3d a4 65 69  28 52 24 28 6e 25 2c 6a  |"u$+=.ei(R$(n%,j|
0000b960  25 29 29 2b 22 20 22 8b  75 24 2b 3d 22 20 22 0d  |%))+" ".u$+=" ".|
0000b970  6d 24 05 cd 0d 6d 2e 0b  cd 3a ed 3a 3d 75 24 0d  |m$...m...:.:=u$.|
0000b980  6d 56 15 dd f2 5a 56 28  55 6d 25 29 3a c8 8e 55  |mV...ZV(Um%):..U|
0000b990  6d 25 20 ca 0d 6d 6a 0f  c9 32 3a e7 57 72 25 3d  |m% ..mj..2:.Wr%=|
0000b9a0  a3 20 8c 0d 6d 7e 40 c8  99 26 34 30 36 43 31 3a  |. ..m~@..&406C1:|
0000b9b0  57 72 25 3d b9 3a f2 58  76 28 58 59 25 29 3a 58  |Wr%=.:.Xv(XY%):X|
0000b9c0  61 24 3d 22 50 72 69 6e  74 20 61 62 6f 72 74 65  |a$="Print aborte|
0000b9d0  64 2e 20 43 6f 6e 66 69  72 6d 3f 22 3a f2 58 61  |d. Confirm?":.Xa|
0000b9e0  28 34 29 0d 6d 92 05 cd  0d 6d 9c 0f c9 33 3a e7  |(4).m....m...3:.|
0000b9f0  57 72 25 3d a3 20 8c 0d  6d b0 75 57 72 25 3d b9  |Wr%=. ..m.uWr%=.|
0000ba00  3a c8 99 26 34 30 36 43  31 3a 57 58 25 3d b9 3a  |:..&406C1:WX%=.:|
0000ba10  f2 58 78 28 58 59 25 2c  32 2c 26 31 31 30 30 30  |.Xx(XY%,2,&11000|
0000ba20  31 33 39 2c 26 46 46 30  30 46 46 46 46 29 3a f2  |139,&FF00FFFF):.|
0000ba30  58 78 28 58 59 25 2c 33  2c 26 31 31 30 30 30 31  |Xx(XY%,3,&110001|
0000ba40  33 39 2c 26 46 46 30 30  46 46 46 46 29 3a f2 58  |39,&FF00FFFF):.X|
0000ba50  78 28 58 59 25 2c 34 2c  26 31 37 30 30 33 31 33  |x(XY%,4,&1700313|
0000ba60  39 2c 26 46 46 30 30 46  46 46 46 29 0d 6d d8 05  |9,&FF00FFFF).m..|
0000ba70  cd 0d 6d e2 0f c9 34 3a  e7 57 72 25 3d b9 20 8c  |..m...4:.Wr%=. .|
0000ba80  0d 6d f6 6f 57 72 25 3d  a3 3a c8 99 26 34 30 36  |.m.oWr%=.:..&406|
0000ba90  43 30 3a f2 58 78 28 58  59 25 2c 32 2c 26 31 37  |C0:.Xx(XY%,2,&17|
0000baa0  30 30 33 31 33 39 2c 26  46 46 30 30 46 46 46 46  |003139,&FF00FFFF|
0000bab0  29 3a f2 58 78 28 58 59  25 2c 33 2c 26 31 37 30  |):.Xx(XY%,3,&170|
0000bac0  30 33 31 33 39 2c 26 46  46 30 30 46 46 46 46 29  |03139,&FF00FFFF)|
0000bad0  3a f2 58 78 28 58 59 25  2c 34 2c 26 31 31 30 30  |:.Xx(XY%,4,&1100|
0000bae0  30 31 33 39 2c 26 46 46  30 30 46 46 46 46 29 0d  |0139,&FF00FFFF).|
0000baf0  6e 1e 05 cd 0d 6e 28 07  cb 3a e1 0d 6e 46 3a dd  |n....n(..:..nF:.|
0000bb00  f2 59 73 28 55 6d 25 29  3a ea 73 25 3a 73 25 3d  |.Ys(Um%):.s%:s%=|
0000bb10  55 6d 25 2b 31 3a e7 56  64 25 28 73 25 29 3d a3  |Um%+1:.Vd%(s%)=.|
0000bb20  20 8c 56 64 25 28 73 25  29 3d b9 8b 56 64 25 28  | .Vd%(s%)=..Vd%(|
0000bb30  73 25 29 3d a3 0d 6e 64  1f f2 65 67 3a f2 56 7a  |s%)=..nd..eg:.Vz|
0000bb40  28 58 62 25 2c 38 2c c3  28 57 74 25 2d 57 78 25  |(Xb%,8,.(Wt%-Wx%|
0000bb50  29 29 3a e1 0d 6e 82 51  dd f2 65 67 3a ea 6c 25  |)):..n.Q..eg:.l%|
0000bb60  2c 6a 25 2c 61 24 2c 62  24 2c 63 24 2c 68 25 3a  |,j%,a$,b$,c$,h%:|
0000bb70  68 25 3d 58 65 25 3a 57  78 25 3d 30 3a e3 6a 25  |h%=Xe%:Wx%=0:.j%|
0000bb80  3d 31 20 b8 56 58 25 3a  6c 25 3d bb 28 46 24 28  |=1 .VX%:l%=.(F$(|
0000bb90  6a 25 2c 31 29 29 2b 31  3a e7 56 64 25 28 6a 25  |j%,1))+1:.Vd%(j%|
0000bba0  29 3d b9 20 8c 0d 6e b4  2b 61 24 3d a4 65 66 28  |)=. ..n.+a$=.ef(|
0000bbb0  6a 25 2c 22 80 20 22 29  3a f2 56 7a 28 68 25 2c  |j%,". "):.Vz(h%,|
0000bbc0  6a 25 2d 31 2c 61 24 29  3a 57 78 25 2b 3d 6c 25  |j%-1,a$):Wx%+=l%|
0000bbd0  0d 6e be 24 cc 61 24 3d  a4 65 66 28 6a 25 2c 22  |.n.$.a$=.ef(j%,"|
0000bbe0  20 20 22 29 3a f2 56 7a  28 68 25 2c 6a 25 2d 31  |  "):.Vz(h%,j%-1|
0000bbf0  2c 61 24 29 0d 6e c8 1b  cd 3a ed 3a f2 56 7a 28  |,a$).n...:.:.Vz(|
0000bc00  58 62 25 2c 39 2c c3 28  57 78 25 29 29 3a e1 0d  |Xb%,9,.(Wx%)):..|
0000bc10  6f 22 23 dd f2 58 64 3a  ea 66 25 2c 61 25 2c 62  |o"#..Xd:.f%,a%,b|
0000bc20  25 2c 78 25 2c 79 25 2c  7a 25 3a e7 55 25 3e 31  |%,x%,y%,z%:.U%>1|
0000bc30  20 8c 0d 6f 40 11 c8 8e  46 24 28 57 6f 25 2c 30  | ..o@...F$(Wo%,0|
0000bc40  29 20 ca 0d 6f 4a 15 c9  22 30 22 2c 22 33 22 3a  |) ..oJ.."0","3":|
0000bc50  e7 56 65 25 3d 30 20 8c  0d 6f 5e 2c c8 99 26 34  |.Ve%=0 ..o^,..&4|
0000bc60  30 36 43 30 3a 66 25 3d  a3 3a 62 25 3d 55 25 3a  |06C0:f%=.:b%=U%:|
0000bc70  f5 3a 62 25 3d a8 28 62  25 2f 32 29 3a e7 62 25  |.:b%=.(b%/2):.b%|
0000bc80  3e 30 20 8c 0d 6f 86 45  61 25 3d 55 25 2d 62 25  |>0 ..o.Ea%=U%-b%|
0000bc90  3a e3 78 25 3d 31 20 b8  61 25 3a 79 25 3d 78 25  |:.x%=1 .a%:y%=x%|
0000bca0  3a c8 95 79 25 3e 30 3a  7a 25 3d 79 25 2b 62 25  |:..y%>0:z%=y%+b%|
0000bcb0  3a e7 52 24 28 79 25 2c  57 6f 25 29 3e 52 24 28  |:.R$(y%,Wo%)>R$(|
0000bcc0  7a 25 2c 57 6f 25 29 20  8c 0d 6f c2 2f e3 6a 25  |z%,Wo%) ..o./.j%|
0000bcd0  3d 31 20 b8 56 58 25 3a  c8 94 52 24 28 79 25 2c  |=1 .VX%:..R$(y%,|
0000bce0  6a 25 29 2c 52 24 28 7a  25 2c 6a 25 29 3a ed 3a  |j%),R$(z%,j%):.:|
0000bcf0  79 25 3d 79 25 2d 62 25  0d 6f cc 0a cc 79 25 3d  |y%=y%-b%.o...y%=|
0000bd00  2d 31 0d 6f d6 09 cd 3a  ce 3a ed 0d 6f f4 09 cc  |-1.o...:.:..o...|
0000bd10  66 25 3d b9 0d 6f fe 16  cd 3a fd 66 25 3a c8 99  |f%=..o...:.f%:..|
0000bd20  26 34 30 36 43 31 3a f2  59 59 0d 70 1c 2e cc 3a  |&406C1:.YY.p...:|
0000bd30  c8 99 26 34 30 36 43 30  3a 66 25 3d a3 3a 62 25  |..&406C0:f%=.:b%|
0000bd40  3d 55 25 3a f5 3a 62 25  3d a8 28 62 25 2f 32 29  |=U%:.:b%=.(b%/2)|
0000bd50  3a e7 62 25 3e 30 20 8c  0d 70 4e 45 61 25 3d 55  |:.b%>0 ..pNEa%=U|
0000bd60  25 2d 62 25 3a e3 78 25  3d 31 20 b8 61 25 3a 79  |%-b%:.x%=1 .a%:y|
0000bd70  25 3d 78 25 3a c8 95 79  25 3e 30 3a 7a 25 3d 79  |%=x%:..y%>0:z%=y|
0000bd80  25 2b 62 25 3a e7 52 24  28 79 25 2c 57 6f 25 29  |%+b%:.R$(y%,Wo%)|
0000bd90  3c 52 24 28 7a 25 2c 57  6f 25 29 20 8c 0d 70 8a  |<R$(z%,Wo%) ..p.|
0000bda0  2f e3 6a 25 3d 31 20 b8  56 58 25 3a c8 94 52 24  |/.j%=1 .VX%:..R$|
0000bdb0  28 79 25 2c 6a 25 29 2c  52 24 28 7a 25 2c 6a 25  |(y%,j%),R$(z%,j%|
0000bdc0  29 3a ed 3a 79 25 3d 79  25 2d 62 25 0d 70 94 0a  |):.:y%=y%-b%.p..|
0000bdd0  cc 79 25 3d 2d 31 0d 70  9e 09 cd 3a ce 3a ed 0d  |.y%=-1.p...:.:..|
0000bde0  70 bc 09 cc 66 25 3d b9  0d 70 c6 16 cd 3a fd 66  |p...f%=..p...:.f|
0000bdf0  25 3a c8 99 26 34 30 36  43 31 3a f2 59 59 0d 70  |%:..&406C1:.YY.p|
0000be00  e4 05 cd 0d 70 ee 15 c9  22 31 22 2c 22 32 22 3a  |....p..."1","2":|
0000be10  e7 56 65 25 3d 30 20 8c  0d 71 02 2c c8 99 26 34  |.Ve%=0 ..q.,..&4|
0000be20  30 36 43 30 3a 66 25 3d  a3 3a 62 25 3d 55 25 3a  |06C0:f%=.:b%=U%:|
0000be30  f5 3a 62 25 3d a8 28 62  25 2f 32 29 3a e7 62 25  |.:b%=.(b%/2):.b%|
0000be40  3e 30 20 8c 0d 71 2a 4b  61 25 3d 55 25 2d 62 25  |>0 ..q*Ka%=U%-b%|
0000be50  3a e3 78 25 3d 31 20 b8  61 25 3a 79 25 3d 78 25  |:.x%=1 .a%:y%=x%|
0000be60  3a c8 95 79 25 3e 30 3a  7a 25 3d 79 25 2b 62 25  |:..y%>0:z%=y%+b%|
0000be70  3a e7 bb 28 52 24 28 79  25 2c 57 6f 25 29 29 3e  |:..(R$(y%,Wo%))>|
0000be80  bb 28 52 24 28 7a 25 2c  57 6f 25 29 29 20 8c 0d  |.(R$(z%,Wo%)) ..|
0000be90  71 66 2f e3 6a 25 3d 31  20 b8 56 58 25 3a c8 94  |qf/.j%=1 .VX%:..|
0000bea0  52 24 28 79 25 2c 6a 25  29 2c 52 24 28 7a 25 2c  |R$(y%,j%),R$(z%,|
0000beb0  6a 25 29 3a ed 3a 79 25  3d 79 25 2d 62 25 0d 71  |j%):.:y%=y%-b%.q|
0000bec0  70 0a cc 79 25 3d 2d 31  0d 71 7a 09 cd 3a ce 3a  |p..y%=-1.qz..:.:|
0000bed0  ed 0d 71 98 09 cc 66 25  3d b9 0d 71 a2 16 cd 3a  |..q...f%=..q...:|
0000bee0  fd 66 25 3a c8 99 26 34  30 36 43 31 3a f2 59 59  |.f%:..&406C1:.YY|
0000bef0  0d 71 c0 2e cc 3a c8 99  26 34 30 36 43 30 3a 66  |.q...:..&406C0:f|
0000bf00  25 3d a3 3a 62 25 3d 55  25 3a f5 3a 62 25 3d a8  |%=.:b%=U%:.:b%=.|
0000bf10  28 62 25 2f 32 29 3a e7  62 25 3e 30 20 8c 0d 71  |(b%/2):.b%>0 ..q|
0000bf20  f2 4b 61 25 3d 55 25 2d  62 25 3a e3 78 25 3d 31  |.Ka%=U%-b%:.x%=1|
0000bf30  20 b8 61 25 3a 79 25 3d  78 25 3a c8 95 79 25 3e  | .a%:y%=x%:..y%>|
0000bf40  30 3a 7a 25 3d 79 25 2b  62 25 3a e7 bb 28 52 24  |0:z%=y%+b%:..(R$|
0000bf50  28 79 25 2c 57 6f 25 29  29 3c bb 28 52 24 28 7a  |(y%,Wo%))<.(R$(z|
0000bf60  25 2c 57 6f 25 29 29 20  8c 0d 72 2e 2f e3 6a 25  |%,Wo%)) ..r./.j%|
0000bf70  3d 31 20 b8 56 58 25 3a  c8 94 52 24 28 79 25 2c  |=1 .VX%:..R$(y%,|
0000bf80  6a 25 29 2c 52 24 28 7a  25 2c 6a 25 29 3a ed 3a  |j%),R$(z%,j%):.:|
0000bf90  79 25 3d 79 25 2d 62 25  0d 72 38 0a cc 79 25 3d  |y%=y%-b%.r8..y%=|
0000bfa0  2d 31 0d 72 42 09 cd 3a  ce 3a ed 0d 72 60 09 cc  |-1.rB..:.:..r`..|
0000bfb0  66 25 3d b9 0d 72 6a 16  cd 3a fd 66 25 3a c8 99  |f%=..rj..:.f%:..|
0000bfc0  26 34 30 36 43 31 3a f2  59 59 0d 72 88 05 cd 0d  |&406C1:.YY.r....|
0000bfd0  72 92 05 cb 0d 72 9c 07  cd 3a e1 0d 72 ba 2e dd  |r....r...:..r...|
0000bfe0  f2 59 72 28 55 6d 25 29  3a ea 73 25 3a 73 25 3d  |.Yr(Um%):.s%:s%=|
0000bff0  55 6d 25 2b 31 3a 57 6f  25 3d 73 25 3a e7 57 6f  |Um%+1:Wo%=s%:.Wo|
0000c000  25 3d 30 20 57 6f 25 3d  31 0d 72 d8 09 f2 65 76  |%=0 Wo%=1.r...ev|
0000c010  3a e1 0d 72 f6 2f dd f2  65 76 3a ea 6a 25 2c 68  |:..r./..ev:.j%,h|
0000c020  25 2c 61 24 3a 68 25 3d  58 63 25 3a e3 6a 25 3d  |%,a$:h%=Xc%:.j%=|
0000c030  31 20 b8 56 58 25 3a e7  57 6f 25 3c 3e 6a 25 20  |1 .VX%:.Wo%<>j% |
0000c040  8c 0d 73 1e 2f 61 24 3d  22 20 20 22 2b 46 24 28  |..s./a$="  "+F$(|
0000c050  6a 25 2c 32 29 3a e7 c2  61 24 2c 31 29 3d 22 3a  |j%,2):..a$,1)=":|
0000c060  22 61 24 3d c0 61 24 2c  a9 28 61 24 29 2d 31 29  |"a$=.a$,.(a$)-1)|
0000c070  0d 73 28 13 f2 56 7a 28  68 25 2c 6a 25 2d 31 2c  |.s(..Vz(h%,j%-1,|
0000c080  61 24 29 0d 73 32 31 cc  3a 61 24 3d 22 80 20 22  |a$).s21.:a$=". "|
0000c090  2b 46 24 28 6a 25 2c 32  29 3a e7 c2 61 24 2c 31  |+F$(j%,2):..a$,1|
0000c0a0  29 3d 22 3a 22 61 24 3d  c0 61 24 2c a9 28 61 24  |)=":"a$=.a$,.(a$|
0000c0b0  29 2d 31 29 0d 73 46 13  f2 56 7a 28 68 25 2c 6a  |)-1).sF..Vz(h%,j|
0000c0c0  25 2d 31 2c 61 24 29 0d  73 50 09 cd 3a ed 3a e1  |%-1,a$).sP..:.:.|
0000c0d0  0d 73 78 15 dd f2 5a 57  28 55 6d 25 29 3a c8 8e  |.sx...ZW(Um%):..|
0000c0e0  55 6d 25 20 ca 0d 73 8c  15 c9 31 38 3a e7 57 57  |Um% ..s...18:.WW|
0000c0f0  25 3f 31 38 3d 26 30 30  20 8c 0d 73 a0 2f 57 57  |%?18=&00 ..s./WW|
0000c100  25 3f 31 38 3d a4 5a 77  28 58 64 25 2c 31 38 29  |%?18=.Zw(Xd%,18)|
0000c110  3a 57 57 25 3f 31 39 3d  a4 5a 78 28 58 64 25 2c  |:WW%?19=.Zx(Xd%,|
0000c120  31 39 29 3a 56 65 25 3d  30 0d 73 b4 05 cd 0d 73  |19):Ve%=0.s....s|
0000c130  be 15 c9 31 39 3a e7 57  57 25 3f 31 39 3d 26 30  |...19:.WW%?19=&0|
0000c140  30 20 8c 0d 73 d2 2f 57  57 25 3f 31 38 3d a4 5a  |0 ..s./WW%?18=.Z|
0000c150  78 28 58 64 25 2c 31 38  29 3a 57 57 25 3f 31 39  |x(Xd%,18):WW%?19|
0000c160  3d a4 5a 77 28 58 64 25  2c 31 39 29 3a 56 65 25  |=.Zw(Xd%,19):Ve%|
0000c170  3d 31 0d 73 e6 05 cd 0d  73 f0 28 c9 35 3a f2 62  |=1.s....s.(.5:.b|
0000c180  55 28 58 64 25 2c 55 6d  25 2c 31 29 3a f2 58 64  |U(Xd%,Um%,1):.Xd|
0000c190  3a f2 62 55 28 58 64 25  2c 55 6d 25 2c 30 29 0d  |:.bU(Xd%,Um%,0).|
0000c1a0  74 04 18 c9 36 3a f2 58  76 28 58 63 25 29 3a f2  |t...6:.Xv(Xc%):.|
0000c1b0  58 76 28 58 64 25 29 0d  74 0e 07 cb 3a e1 0d 74  |Xv(Xd%).t...:..t|
0000c1c0  54 20 dd f2 5a 58 28 55  6d 25 29 3a ea 68 25 3a  |T ..ZX(Um%):.h%:|
0000c1d0  68 25 3d 58 67 25 3a c8  8e 55 6d 25 20 ca 0d 74  |h%=Xg%:..Um% ..t|
0000c1e0  72 0f c9 32 3a f2 58 76  28 58 67 25 29 0d 74 7c  |r..2:.Xv(Xg%).t||
0000c1f0  13 c9 34 3a e7 57 57 25  3f 34 3d 26 30 30 20 8c  |..4:.WW%?4=&00 .|
0000c200  0d 74 90 67 f2 65 77 3a  57 57 25 3f 34 3d a4 5a  |.t.g.ew:WW%?4=.Z|
0000c210  77 28 68 25 2c 34 29 3a  57 64 25 3d 30 3a f2 58  |w(h%,4):Wd%=0:.X|
0000c220  78 28 68 25 2c 31 31 2c  26 30 32 30 30 30 31 33  |x(h%,11,&0200013|
0000c230  44 2c 26 46 46 30 30 46  46 46 46 29 3a f2 58 78  |D,&FF00FFFF):.Xx|
0000c240  28 68 25 2c 31 32 2c 26  30 32 30 30 30 31 33 44  |(h%,12,&0200013D|
0000c250  2c 26 46 46 30 30 46 46  46 46 29 3a c8 99 26 34  |,&FF00FFFF):..&4|
0000c260  30 30 44 32 2c 2d 31 0d  74 b8 05 cd 0d 74 c2 13  |00D2,-1.t....t..|
0000c270  c9 36 3a e7 57 57 25 3f  36 3d 26 30 30 20 8c 0d  |.6:.WW%?6=&00 ..|
0000c280  74 d6 67 f2 65 77 3a 57  57 25 3f 36 3d a4 5a 77  |t.g.ew:WW%?6=.Zw|
0000c290  28 68 25 2c 36 29 3a 57  64 25 3d 31 3a f2 58 78  |(h%,6):Wd%=1:.Xx|
0000c2a0  28 68 25 2c 31 31 2c 26  30 32 30 30 30 31 33 44  |(h%,11,&0200013D|
0000c2b0  2c 26 46 46 30 30 46 46  46 46 29 3a f2 58 78 28  |,&FF00FFFF):.Xx(|
0000c2c0  68 25 2c 31 32 2c 26 30  32 30 30 30 31 33 44 2c  |h%,12,&0200013D,|
0000c2d0  26 46 46 30 30 46 46 46  46 29 3a c8 99 26 34 30  |&FF00FFFF):..&40|
0000c2e0  30 44 32 2c 2d 31 0d 74  fe 05 cd 0d 75 08 18 c9  |0D2,-1.t....u...|
0000c2f0  38 3a e7 57 57 25 3f 38  3d 26 30 30 20 80 57 6c  |8:.WW%?8=&00 .Wl|
0000c300  25 20 8c 0d 75 1c 67 f2  65 77 3a 57 57 25 3f 38  |% ..u.g.ew:WW%?8|
0000c310  3d a4 5a 77 28 68 25 2c  38 29 3a 57 64 25 3d 32  |=.Zw(h%,8):Wd%=2|
0000c320  3a f2 58 78 28 68 25 2c  31 31 2c 26 30 32 30 30  |:.Xx(h%,11,&0200|
0000c330  30 31 33 44 2c 26 46 46  30 30 46 46 46 46 29 3a  |013D,&FF00FFFF):|
0000c340  f2 58 78 28 68 25 2c 31  32 2c 26 30 32 30 30 30  |.Xx(h%,12,&02000|
0000c350  31 33 44 2c 26 46 46 30  30 46 46 46 46 29 3a c8  |13D,&FF00FFFF):.|
0000c360  99 26 34 30 30 44 32 2c  2d 31 0d 75 44 05 cd 0d  |.&400D2,-1.uD...|
0000c370  75 4e 19 c9 31 30 3a e7  57 57 25 3f 31 30 3d 26  |uN..10:.WW%?10=&|
0000c380  30 30 20 80 59 25 20 8c  0d 75 62 69 f2 65 77 3a  |00 .Y% ..ubi.ew:|
0000c390  57 57 25 3f 31 30 3d a4  5a 77 28 68 25 2c 31 30  |WW%?10=.Zw(h%,10|
0000c3a0  29 3a 57 64 25 3d 33 3a  f2 58 78 28 68 25 2c 31  |):Wd%=3:.Xx(h%,1|
0000c3b0  31 2c 26 30 37 30 30 46  31 33 44 2c 26 46 46 30  |1,&0700F13D,&FF0|
0000c3c0  30 46 46 46 46 29 3a f2  58 78 28 68 25 2c 31 32  |0FFFF):.Xx(h%,12|
0000c3d0  2c 26 30 37 30 30 46 31  33 44 2c 26 46 46 30 30  |,&0700F13D,&FF00|
0000c3e0  46 46 46 46 29 3a f2 59  55 28 58 67 25 2c 31 31  |FFFF):.YU(Xg%,11|
0000c3f0  29 0d 75 8a 05 cd 0d 75  94 0f c9 31 33 3a c8 8e  |).u....u...13:..|
0000c400  57 64 25 20 ca 0d 75 a8  33 c9 30 3a 58 61 24 3d  |Wd% ..u.3.0:Xa$=|
0000c410  22 44 65 6c 65 74 65 20  63 75 72 72 65 6e 74 20  |"Delete current |
0000c420  72 65 63 6f 72 64 2e 20  43 6f 6e 66 69 72 6d 3f  |record. Confirm?|
0000c430  22 3a f2 58 61 28 32 29  0d 75 bc 30 c9 31 3a 58  |":.Xa(2).u.0.1:X|
0000c440  61 24 3d 22 44 65 6c 65  74 65 20 61 6c 6c 20 72  |a$="Delete all r|
0000c450  65 63 6f 72 64 73 2e 20  43 6f 6e 66 69 72 6d 3f  |ecords. Confirm?|
0000c460  22 3a f2 58 61 28 36 29  0d 75 d0 30 c9 32 3a 58  |":.Xa(6).u.0.2:X|
0000c470  61 24 3d 22 44 65 6c 65  74 65 20 73 65 61 72 63  |a$="Delete searc|
0000c480  68 20 6c 69 73 74 2e 20  43 6f 6e 66 69 72 6d 3f  |h list. Confirm?|
0000c490  22 3a f2 58 61 28 37 29  0d 75 e4 48 c9 33 3a 58  |":.Xa(7).u.H.3:X|
0000c4a0  61 24 3d 22 44 65 6c 65  74 65 20 72 65 63 6f 72  |a$="Delete recor|
0000c4b0  64 73 20 66 72 6f 6d 20  22 2b c3 28 58 25 29 2b  |ds from "+.(X%)+|
0000c4c0  22 20 74 6f 20 22 2b c3  28 59 25 29 2b 22 2e 20  |" to "+.(Y%)+". |
0000c4d0  43 6f 6e 66 69 72 6d 3f  22 3a f2 58 61 28 38 29  |Confirm?":.Xa(8)|
0000c4e0  0d 76 02 05 cb 0d 76 0c  07 cb 3a e1 0d 76 2a 31  |.v....v...:..v*1|
0000c4f0  dd f2 65 77 3a 57 57 25  3f 34 3d a4 5a 78 28 58  |..ew:WW%?4=.Zx(X|
0000c500  67 25 2c 34 29 3a 57 57  25 3f 36 3d a4 5a 78 28  |g%,4):WW%?6=.Zx(|
0000c510  58 67 25 2c 36 29 3a e7  57 6c 25 20 8c 0d 76 48  |Xg%,6):.Wl% ..vH|
0000c520  14 57 57 25 3f 38 3d a4  5a 78 28 58 67 25 2c 38  |.WW%?8=.Zx(Xg%,8|
0000c530  29 0d 76 52 1b cc f2 61  64 28 55 67 25 2c 58 67  |).vR...ad(Ug%,Xg|
0000c540  25 2c 38 2c 22 72 61 64  69 6f 22 29 0d 76 5c 1a  |%,8,"radio").v\.|
0000c550  cd 3a 57 57 25 3f 31 30  3d a4 5a 78 28 58 67 25  |.:WW%?10=.Zx(Xg%|
0000c560  2c 31 30 29 3a e1 0d 76  84 0f dd f2 59 56 3a e7  |,10):..v....YV:.|
0000c570  57 6c 25 20 8c 0d 76 98  10 e7 57 57 25 3f 38 3d  |Wl% ..v...WW%?8=|
0000c580  26 30 30 20 8c 0d 76 a2  1d f2 61 64 28 55 67 25  |&00 ..v...ad(Ug%|
0000c590  2c 58 67 25 2c 38 2c 22  72 61 64 69 6f 6f 66 66  |,Xg%,8,"radiooff|
0000c5a0  22 29 0d 76 ac 1d cc f2  61 64 28 55 67 25 2c 58  |").v....ad(Ug%,X|
0000c5b0  67 25 2c 38 2c 22 72 61  64 69 6f 6f 6e 22 29 0d  |g%,8,"radioon").|
0000c5c0  76 b6 05 cd 0d 76 c0 1b  cc f2 61 64 28 55 67 25  |v....v....ad(Ug%|
0000c5d0  2c 58 67 25 2c 38 2c 22  72 61 64 69 6f 22 29 0d  |,Xg%,8,"radio").|
0000c5e0  76 ca 07 cd 3a e1 0d 77  10 26 dd f2 57 76 3a ea  |v...:..w.&..Wv:.|
0000c5f0  64 75 24 3a e7 58 79 25  20 8c 62 62 24 3d 22 4e  |du$:.Xy% .bb$="N|
0000c600  4f 22 8b 62 62 24 3d 22  59 45 53 22 0d 77 2e 95  |O".bb$="YES".w..|
0000c610  f2 56 7a 28 58 55 25 2c  32 2c 62 62 24 29 3a f2  |.Vz(XU%,2,bb$):.|
0000c620  56 7a 28 58 55 25 2c 34  2c 57 69 24 29 3a f2 56  |Vz(XU%,4,Wi$):.V|
0000c630  7a 28 58 55 25 2c 36 2c  55 61 24 29 3a f2 56 7a  |z(XU%,6,Ua$):.Vz|
0000c640  28 58 55 25 2c 38 2c 62  63 24 29 3a f2 56 7a 28  |(XU%,8,bc$):.Vz(|
0000c650  58 55 25 2c 31 30 2c 62  64 24 29 3a f2 56 7a 28  |XU%,10,bd$):.Vz(|
0000c660  58 56 25 2c 31 2c 55 61  24 29 3a f2 56 7a 28 58  |XV%,1,Ua$):.Vz(X|
0000c670  66 25 2c 31 2c 57 63 24  29 3a 64 75 24 3d 55 56  |f%,1,Wc$):du$=UV|
0000c680  24 2b 22 3a 20 22 2b a4  64 70 28 55 61 24 29 3a  |$+": "+.dp(Ua$):|
0000c690  e7 58 79 25 3d a3 20 8c  64 75 24 2b 3d 22 20 2a  |.Xy%=. .du$+=" *|
0000c6a0  22 0d 77 6a 3b f2 62 77  28 57 79 25 2c 64 75 24  |".wj;.bw(Wy%,du$|
0000c6b0  29 3a 64 75 24 3d 22 43  61 72 64 20 6c 61 79 6f  |):du$="Card layo|
0000c6c0  75 74 22 3a e7 58 79 25  3d a3 20 80 56 59 25 3d  |ut":.Xy%=. .VY%=|
0000c6d0  a3 20 8c 64 75 24 2b 3d  22 20 2a 22 0d 77 7e 12  |. .du$+=" *".w~.|
0000c6e0  f2 62 77 28 58 57 25 2c  64 75 24 29 3a e1 0d 77  |.bw(XW%,du$):..w|
0000c6f0  9c 4d dd a4 61 63 28 65  78 24 29 3a ea 61 25 2c  |.M..ac(ex$):.a%,|
0000c700  62 25 2c 61 24 3a e3 61  25 3d 31 20 b8 a9 28 65  |b%,a$:.a%=1 ..(e|
0000c710  78 24 29 3a 62 25 3d 97  28 c1 65 78 24 2c 61 25  |x$):b%=.(.ex$,a%|
0000c720  2c 31 29 29 3a e7 62 25  3e 39 36 20 80 62 25 3c  |,1)):.b%>96 .b%<|
0000c730  31 32 33 20 8c 62 25 2d  3d 33 32 0d 77 ce 13 61  |123 .b%-=32.w..a|
0000c740  24 2b 3d bd 28 62 25 29  3a ed 3a 3d 61 24 0d 77  |$+=.(b%):.:=a$.w|
0000c750  f6 49 dd a4 65 6b 3a ea  61 25 2c 62 25 2c 6a 25  |.I..ek:.a%,b%,j%|
0000c760  3a 61 25 3d 96 28 2d 34  29 3a e3 6a 25 3d 31 20  |:a%=.(-4):.j%=1 |
0000c770  b8 31 30 3a c8 99 26 35  44 2c 30 3a ed 3a 6a 25  |.10:..&5D,0:.:j%|
0000c780  3d a6 28 35 29 3a 62 25  3d 96 28 2d 34 29 3a 3d  |=.(5):b%=.(-4):=|
0000c790  28 61 25 3d 62 25 29 0d  78 3c 33 dd a4 61 55 28  |(a%=b%).x<3..aU(|
0000c7a0  61 24 29 3a ea 62 24 3a  e7 c2 61 24 2c 31 29 3d  |a$):.b$:..a$,1)=|
0000c7b0  22 3a 22 20 8c 62 24 3d  c0 61 24 2c a9 28 61 24  |":" .b$=.a$,.(a$|
0000c7c0  29 2d 31 29 8b 62 24 3d  61 24 0d 78 5a 07 3d 62  |)-1).b$=a$.xZ.=b|
0000c7d0  24 0d 78 6e 15 dd f2 59  5a 3a d1 3d 30 3a f5 fd  |$.xn...YZ:.=0:..|
0000c7e0  91 3e 33 30 3a e1 0d 78  96 4e dd f2 64 6d 3a ea  |.>30:..x.N..dm:.|
0000c7f0  61 25 2c 62 25 2c 6a 25  2c 70 25 2c 61 24 3a e3  |a%,b%,j%,p%,a$:.|
0000c800  6a 25 3d 31 20 b8 56 58  25 2d 31 3a 61 24 3d 46  |j%=1 .VX%-1:a$=F|
0000c810  24 28 6a 25 2c 32 29 3a  e7 c2 61 24 2c 31 29 3d  |$(j%,2):..a$,1)=|
0000c820  22 3a 22 20 8c 61 24 3d  c0 61 24 2c a9 28 61 24  |":" .a$=.a$,.(a$|
0000c830  29 2d 31 29 0d 78 be 39  f2 65 79 28 61 24 2c 30  |)-1).x.9.ey(a$,0|
0000c840  29 3a ed 3a 61 24 3d 46  24 28 56 58 25 2c 32 29  |):.:a$=F$(VX%,2)|
0000c850  3a e7 c2 61 24 2c 31 29  3d 22 3a 22 20 8c 61 24  |:..a$,1)=":" .a$|
0000c860  3d c0 61 24 2c a9 28 61  24 29 2d 31 29 0d 78 dc  |=.a$,.(a$)-1).x.|
0000c870  57 f2 65 79 28 61 24 2c  31 29 3a f2 65 79 28 22  |W.ey(a$,1):.ey("|
0000c880  20 22 2c 31 29 3a e3 61  25 3d 31 20 b8 55 25 3a  | ",1):.a%=1 .U%:|
0000c890  70 25 3d 28 61 25 2f 55  25 29 2a 31 30 30 3a c8  |p%=(a%/U%)*100:.|
0000c8a0  99 26 34 30 36 43 34 2c  70 25 3a e3 62 25 3d 31  |.&406C4,p%:.b%=1|
0000c8b0  20 b8 56 58 25 2d 31 3a  c8 8e 46 24 28 62 25 2c  | .VX%-1:..F$(b%,|
0000c8c0  30 29 20 ca 0d 79 0e 2c  c9 22 30 22 3a e7 52 24  |0) ..y.,."0":.R$|
0000c8d0  28 61 25 2c 62 25 29 3c  3e 22 22 20 8c 61 24 3d  |(a%,b%)<>"" .a$=|
0000c8e0  52 24 28 61 25 2c 62 25  29 8b 61 24 3d 22 20 22  |R$(a%,b%).a$=" "|
0000c8f0  0d 79 22 0d f2 65 79 28  61 24 2c 30 29 0d 79 2c  |.y"..ey(a$,0).y,|
0000c900  30 c9 22 31 22 2c 22 32  22 3a e7 52 24 28 61 25  |0."1","2":.R$(a%|
0000c910  2c 62 25 29 3c 3e 22 22  20 8c 61 24 3d 52 24 28  |,b%)<>"" .a$=R$(|
0000c920  61 25 2c 62 25 29 8b 61  24 3d 22 20 22 0d 79 40  |a%,b%).a$=" ".y@|
0000c930  0d f2 65 7a 28 61 24 2c  30 29 0d 79 4a 39 c9 22  |..ez(a$,0).yJ9."|
0000c940  33 22 3a e7 52 24 28 61  25 2c 62 25 29 3c 3e 22  |3":.R$(a%,b%)<>"|
0000c950  22 20 8c 61 24 3d c3 28  a4 66 55 28 a4 57 75 28  |" .a$=.(.fU(.Wu(|
0000c960  52 24 28 61 25 2c 62 25  29 29 29 29 8b 61 24 3d  |R$(a%,b%)))).a$=|
0000c970  22 20 22 0d 79 5e 0d f2  65 7a 28 61 24 2c 30 29  |" ".y^..ez(a$,0)|
0000c980  0d 79 68 15 cb 3a ed 3a  c8 8e 46 24 28 56 58 25  |.yh..:.:..F$(VX%|
0000c990  2c 30 29 20 ca 0d 79 86  2e c9 22 30 22 3a e7 52  |,0) ..y..."0":.R|
0000c9a0  24 28 61 25 2c 56 58 25  29 3c 3e 22 22 20 8c 61  |$(a%,VX%)<>"" .a|
0000c9b0  24 3d 52 24 28 61 25 2c  56 58 25 29 8b 61 24 3d  |$=R$(a%,VX%).a$=|
0000c9c0  22 20 22 0d 79 9a 0d f2  65 79 28 61 24 2c 31 29  |" ".y...ey(a$,1)|
0000c9d0  0d 79 a4 32 c9 22 31 22  2c 22 32 22 3a e7 52 24  |.y.2."1","2":.R$|
0000c9e0  28 61 25 2c 56 58 25 29  3c 3e 22 22 20 8c 61 24  |(a%,VX%)<>"" .a$|
0000c9f0  3d 52 24 28 61 25 2c 56  58 25 29 8b 61 24 3d 22  |=R$(a%,VX%).a$="|
0000ca00  20 22 0d 79 b8 0d f2 65  7a 28 61 24 2c 31 29 0d  | ".y...ez(a$,1).|
0000ca10  79 c2 3b c9 22 33 22 3a  e7 52 24 28 61 25 2c 56  |y.;."3":.R$(a%,V|
0000ca20  58 25 29 3c 3e 22 22 20  8c 61 24 3d c3 28 a4 66  |X%)<>"" .a$=.(.f|
0000ca30  55 28 a4 57 75 28 52 24  28 61 25 2c 56 58 25 29  |U(.Wu(R$(a%,VX%)|
0000ca40  29 29 29 8b 61 24 3d 22  20 22 0d 79 d6 0d f2 65  |))).a$=" ".y...e|
0000ca50  7a 28 61 24 2c 31 29 0d  79 e0 09 cb 3a ed 3a e1  |z(a$,1).y...:.:.|
0000ca60  0d 7a 08 76 dd f2 65 79  28 61 24 2c 66 56 25 29  |.z.v..ey(a$,fV%)|
0000ca70  3a ea 63 24 2c 69 25 3a  d5 23 55 64 25 2c 33 34  |:.c$,i%:.#Ud%,34|
0000ca80  3a e3 69 25 3d 31 20 b8  a9 28 61 24 29 3a 63 24  |:.i%=1 ..(a$):c$|
0000ca90  3d c1 61 24 2c 69 25 2c  31 29 3a d5 23 55 64 25  |=.a$,i%,1):.#Ud%|
0000caa0  2c 97 28 63 24 29 3a ed  3a d5 23 55 64 25 2c 33  |,.(c$):.:.#Ud%,3|
0000cab0  34 3a e7 66 56 25 20 8c  d5 23 55 64 25 2c 31 33  |4:.fV% ..#Ud%,13|
0000cac0  3a d5 23 55 64 25 2c 31  30 8b d5 23 55 64 25 2c  |:.#Ud%,10..#Ud%,|
0000cad0  97 28 22 2c 22 29 0d 7a  58 05 e1 0d 7a 6c 64 dd  |.(",").zX...zld.|
0000cae0  f2 65 7a 28 61 24 2c 66  56 25 29 3a ea 63 24 2c  |.ez(a$,fV%):.c$,|
0000caf0  69 25 3a e3 69 25 3d 31  20 b8 a9 28 61 24 29 3a  |i%:.i%=1 ..(a$):|
0000cb00  63 24 3d c1 61 24 2c 69  25 2c 31 29 3a d5 23 55  |c$=.a$,i%,1):.#U|
0000cb10  64 25 2c 97 28 63 24 29  3a ed 3a e7 66 56 25 20  |d%,.(c$):.:.fV% |
0000cb20  8c d5 23 55 64 25 2c 31  33 3a d5 23 55 64 25 2c  |..#Ud%,13:.#Ud%,|
0000cb30  31 30 8b d5 23 55 64 25  2c 97 28 22 2c 22 29 0d  |10..#Ud%,.(",").|
0000cb40  7a a8 05 e1 0d 7a bc 59  dd a4 66 55 28 61 24 29  |z....z.Y..fU(a$)|
0000cb50  3a ea 62 24 3a 61 24 3d  c0 61 24 2c 34 29 2b 22  |:.b$:a$=.a$,4)+"|
0000cb60  31 39 22 2b c2 61 24 2c  32 29 3a 62 24 3d c1 61  |19"+.a$,2):b$=.a|
0000cb70  24 2c 36 2c 31 29 3a 62  24 3d c3 28 bb 28 62 24  |$,6,1):b$=.(.(b$|
0000cb80  29 2d 31 29 3a 3d a4 66  57 28 61 24 2c 22 33 31  |)-1):=.fW(a$,"31|
0000cb90  31 32 31 22 2b 62 24 2b  22 39 39 22 29 0d 7a f8  |121"+b$+"99").z.|
0000cba0  25 dd a4 66 57 28 61 24  2c 62 24 29 3a 3d 94 28  |%..fW(a$,b$):=.(|
0000cbb0  a4 66 58 28 61 24 29 2d  a4 66 58 28 62 24 29 29  |.fX(a$)-.fX(b$))|
0000cbc0  2b 31 0d 7b 16 5a dd a4  66 58 28 61 24 29 3a ea  |+1.{.Z..fX(a$):.|
0000cbd0  62 25 2c 63 25 2c 64 25  3a 62 25 3d bb 28 c1 61  |b%,c%,d%:b%=.(.a|
0000cbe0  24 2c 31 2c 32 29 29 3a  63 25 3d bb 28 c1 61 24  |$,1,2)):c%=.(.a$|
0000cbf0  2c 33 2c 32 29 29 3a 64  25 3d bb 28 c1 61 24 2c  |,3,2)):d%=.(.a$,|
0000cc00  35 29 29 3a e7 63 25 3e  32 20 8c 63 25 2d 3d 33  |5)):.c%>2 .c%-=3|
0000cc10  8b 63 25 2b 3d 39 3a 64  25 2d 3d 31 0d 7b 3e 3e  |.c%+=9:d%-=1.{>>|
0000cc20  3d 31 34 36 30 39 37 2a  28 64 25 81 31 30 30 29  |=146097*(d%.100)|
0000cc30  81 34 2b 31 34 36 31 2a  28 64 25 83 31 30 30 29  |.4+1461*(d%.100)|
0000cc40  81 34 2b 28 31 35 33 2a  63 25 2b 32 29 81 35 2b  |.4+(153*c%+2).5+|
0000cc50  62 25 2b 31 37 32 31 31  31 39 0d ff              |b%+1721119..|
0000cc5c