� > $.!DataVis.!dv13
ș "Wimp_CommandWindow",-1
� 15:� 180:�
��TjM
(ȗ �:�:FG%=180:*FX225,128
2j�M$(8):�C(100):�ME$(20):�CC$(25,20):�SC%(85):�FU$(5):SEG$="312831303130313130313031":�I=1�5:�FU$(I):�I
<"�"SUM","AVG","MAX","MIN","STD"
Fg�"CLOSE":ST$="3":X=�(�MyFile("NIM")):�#X,FI$,ST$,DA$,DR$,ZZ$,MD$:�"CLOSE":FO$=FI$+"A":ST$="1":�dDD
P��MAIN:go%=0
ZC�ST$="1"� TA$=FI$+"N":X=�(�MyFile(TA$)):�#X,DI$:�Dir(DI$):�tV@
d	�Dx@
na�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(file empty)":�FG%:�7:�MKLIK:�T`M
xL�ST$="2"� �"CLOSE":TA$=FI$+"N":X=�(�MyFile(TA$)):�#X,DI$:�Dir(DI$):�tV@
�5��MKLIK:�:ȗ U,U,BUT:�BUT=0:�:ȗ U,U,BUT:�BUT=4:�
�1��ERWIN:X=19:Y=11:W%=40:L%=3:�180:�LWN:�FG%:�
���#0:X=�(�MyFile(FO$)):�#X=0:�#X,ZZ$:NOF%=�(ZZ$):�#X=5:�#X,ZZ$:NOR%=�(ZZ$):�#X=15:�#X,ZZ$:REC%=�(ZZ$):�#X=45:�#X,SO$:�#X=56:�#X,MCA$:MCA%=�(MCA$):�#X=28:�#X,MAR$
�$�(SO$)>0�SO$="0":�#X=45:�#X,SO$
��NOR%=0��Dn@
��MAR$="1"��DNB
�go%=1:�
�
��SC:�128
�>�0,0);�80,�(241));�0,22);�80,�(241)):�28,0,31,79,23:�:�26
ܑ�45:�131:�2,28);"f2:";�2,29);"f4:";�17,28);"f5:";�17,29);"f8:":�128:�120:�6,28);"Next Field";�6,29);"Date";�21,28);"Time";�21,29);"Confirm"
�
�127:�FG%
��
���FOPOUT

POI=(CF%-1)*61+63

�#A=POI:�#A,FL$

 �#A=POI+22:�#A,ZZ$:X1=�(ZZ$)

" �#A=POI+26:�#A,ZZ$:Y1=�(ZZ$)

, �#A=POI+30:�#A,ZZ$:X2=�(ZZ$)

6 �#A=POI+34:�#A,ZZ$:Y2=�(ZZ$)

@�#A=POI+38:�#A,TY$

J!�#A=POI+41:�#A,ZZ$:IN%=�(ZZ$)

T!�#A=POI+46:�#A,ZZ$:TI%=�(ZZ$)

^�#A=POI+54:�#A,TR$

h�#A=POI+58:�#A,NP$

r�

|
��TIME

�^S%=(� �100)�60:M%=(� �6000)�60:H%=(� �360000)�24:�73,0);":";�76,0);":":�S%<10��77,0);"0"

��M%<10��74,0);"0"

��H%<10��71,0);"0"

�=�73-�(�(H%)),0);H%;�76-�(�(M%)),0);M%;�79-�(�(S%)),0);S%

��

���TEXT:*FX15,0

�
T$="":L=0

��L<L%��X,Y);�(255)

�IN=�

��IN=13�NP%=0:�TzB

��IN=127��T\B

��IN=9�NP%=1:�TzB

��L=L%��dVA
(�X,Y);�(IN):T$=T$+�(IN):L=L+1:X=X+1
	�dLA
�L=0��dBA
&$�X,Y);" ":X=X-1:L=L-1:T$=�T$,L)
0	�dLA
:�X,Y);" "
D�
N��"CLOSE":TA$=FI$+"E":X=�(�MyFile(TA$)):�#X,SPM$:VA%=�(�SPM$,1,2)):�MAC$(VA%):�MAL$(VA%):MAC$(0)=SPM$:�#X,SPM$:�I=1�VA%:�#X,MAC$(I):�#X,MAL$(I):�I
X	�t~@
b3X=28:Y=12:W%=21:L%=4:�LWN:CF%=0:INN%=100:�QUART
lvME$(1)="Interactive Modify":ME$(2)="Automatic Modify":ME$(3)="Search/Replace":ME$(4)="Quit":X=29:Y=13:L%=4:�SELECT
v�SEL%=1��dtK
��SEL%=2��DRC
��SEL%=3��tvC
��SEL%=4��T`M
�	�d\@
�[X=30:Y=14:W%=30:L%=2:�LWN:�31,15);"Select Record by  1] Key Field";�49,16);"2] Number"
�I$=�(0):�I$=""��TIME:�trB
��I$="2"��TBC
��I$="1"��dPB��DbB
�X=0:Y=15:W%=78:L%=2:�LWN
�|�"CLOSE":X=�(�MyFile(FO$)):�#X=51:�#X,KF$:�#X=(�(KF$)-1)*61+63:�#X,FL$:�#X=(�(KF$)-1)*61+109:�#X,ZZ$:TI%=�(ZZ$):�"CLOSE"
�e�1,16);"Select Record for Updating.";�1,17);"Enter ";FL$;": ":X=29:Y=17:L%=49:�TEXT:�T$=""��DbB
�LX=�(�MyFile(FI$)):�I=1�NOR%:�#X=(I-1)*REC%+TI%:�#X,N$:�T$=N$�CR%=I:�dND
��I:�DbB
rX=31:Y=15:W%=30:L%=2:�LWN:�32,16);"Select Record for Updating.";�32,17);"Enter Number: ":X=45:Y=17:L%=8:�TEXT
#CR%=�(T$):�CR%<1�CR%>NOR%��DbB
W�SO$="1"��"CLOSE":X=�(�MyFile(FI$)):�#X=(CR%*REC%)-10:�#X,LIN$:CR%=�(LIN$):�"CLOSE"
 	�dND
*�
4	��LWN
>y�X,Y);�(154);�W%,�(159));�(158):�I=Y+1�Y+L%:�X,I);�(155);�W%," ");�(157):�I:�X,Y+(L%+1));�(156);�W%,�(160));�(161)
H�
RF�:�2,2);"Automatic Modify";�2,3);�16,�(241)):�SEL:CF%=SF%:�FOPOUT
\)�TY$="7"�TY$="8"�TY$="0"��DfC:��DbB
f�X=2:Y=7:L%=30:�2,6);"Enter modification formula:":�TEXT:NN$=T$:�2,9);"Enter rounding figure:":X=2:Y=10:L%=1:�TEXT:TRM=�(T$)
p�NN$=""��DbB
z��tbC
���"CLOSE":C=�(�MyFile(FI$)):�I=1�NOR%:�#C=(I-1)*REC%+TI%:�#C,N$:CONTENTS=�(N$):FT=�(N$+NN$):N$=�(FT):�ROUND:�(N$)>IN%�N$=�N$,IN%)
�\�#C=(I-1)*REC%+TI%:�#C,N$:�I:�"CLOSE":�:�2,2);"All records have been modified.":��TjM
�	�DbB
��"CLOSE":��TjM
�_�:�2,2);"Error in evaluation of formula in record ";I;".";�2,3);"(";FL$;" = ";N$;")":�DbB
�D�:�2,2);"Search/Replace";�2,3);�14,�(241)):�SEL:CF%=SF%:�FOPOUT
�dX=0:Y=17:W%=78:L%=4:�LWN:�1,18);"Enter Constant/Expression/Date/Time to search for:":X2=1:Y2=19
��TY$="5"��TY5:�drC
��TY$="6"��TY6:�drC
�.�TY$="7"�TY$="8"�TY$="0"�HI%=18:�TY7:�drC
�(X=X2:Y=Y2:L%=IN%:�TEXT:SR1$=T$:�d|C
�SR1$=N$
�M�1,20);"Enter Constant/Expression/Date/Time to replace with:":X2=1:Y2=21
�TY$="5"��TY5:�TnD
�TY$="6"��TY6:�TnD
.�TY$="7"�TY$="8"�TY$="0"�HI%=18:�TY7:�TnD
$(X=X2:Y=Y2:L%=IN%:�TEXT:SR2$=T$:�TxD
.SR2$=N$
8|�:�"Performing search/replace....."':�"CLOSE":X=�(�MyFile(FI$)):�I=1�NOR%:FO%=0:�#X=(I-1)*REC%+TI%:�#X,N$:�N$=SR1$�FO%=1
B,�SR1$,1)="*"�G=�N$,�SR1$,2)):�G>0�FO%=1
LM�FO%=1��#X=(I-1)*REC%+TI%:�#X,SR2$:�"Replacing ";SR1$;" in record ";I;"."
V�I:�DbB
`	��ENF
jX5=47:Y5=16
tP�31,16);"Enter Fieldname:":X=47:Y=16:L%=20:�TEXT:�"CLOSE":X=�(�MyFile(FO$))
~��I=1�NOF%:�#X=(I-1)*61+63:�#X,FL$:�FL$=T$��#X=(I-1)*61+101:�#X,TY$:�#X=(I-1)*61+109:�#X,TI$:TI%=�(TI$):�#X=(I-1)*61+104:�#X,IN$:IN%=�(IN$):�tRD
��I:�DbB
��
�`��INFO:�128:�2,24);"Modifying record ";CR%;" in ";FI$:�131:�71,0);"PAGE";�(241);PP%:�FG%:�
�T�0,23);"MODE:";�0,25);"FILE:";�0,26);"RECORD:";�0,27);"FIELD:";�0,28);"LENGTH:"
�g�8,23);"UPDATE";�8,25);FI$;�8,26);CR%;�8,27);CF%;"    ";�8,28);IN%;"    ";�71,0);"PAGE";�(162);P%;
��
��MAIN:�DbB
�K�"CLOSE":A=�(�MyFile(FO$)):CC=�(�MyFile(FI$)):BE%=0:�MCA%>0�FA$=FI$+"B"
�PP%=1:MC=1:�:�SC:CF%=1
�O�FOPOUT:�INFO:X5=X2:Y5=Y2:�X2,Y2);�IN%," "):�NP$="1"��:PP%=PP%+1:�SC:�INFO
�$�#CC=(CR%-1)*REC%+TI%:�#CC,TEMP$
��X1,Y1);FL$
	NU%=0

6�TR$,1)="1" � �TR$,1)="2"�PUT$="I":RL%=1300:�TJO
(�TY$="1"�TY$="9"�LO%=33:HI%=255:�TY1
 �TY$="2"�LO%=33:HI%=255:�TY1
(�TY$="3"��TY3
2�TY$="4"��TY4
<�TY$="5"��TY5
F�TY$="6"��TY6
P�TY$="7"�HI%=9:�TY7
Z�TY$="8"�HI%=18:�TY7
dINN%=100
n6��TR$,1)="1" � �TR$,1)="2"�PUT$="O":RL%=1400:�TJO
x!�#CC=(CR%-1)*REC%+TI%:�#CC,N$
�$CF%=CF%+1:�CF%>NOF%��tLE:��dbD
�	�DbB
���TY1:FLE%=X5
�N$="":PT=0:CL$=" "
�*CL$="":�PT<IN%��X2,Y2);�(255):CL$=" "
�IN=�:�d@H
��IN=13��X2,Y2);CL$:�TvF
��IN=127��TNF
��IN=32��dpE
�, � TY$="2"�� IN>=97 � IN<=122 � IN=IN-32
��IN<LO%�IN>HI%��7:�ttE
��PT=IN%��ttE
�E�X2,Y2);�(IN):N$=N$+�(IN):PT=PT+1:X2=X2+1:�X2>79�Y2=Y2+1:X2=FLE%
	�tjE
�PT=0��tjE
�PT<IN%��X2,Y2);" "
"5PT=PT-1:N$=�N$,PT):X2=X2-1:�X2<FLE%�Y2=Y2-1:X2=79
,	�tjE
6�
@	��TY7
J3X2=X2+(HI%-1):X3=X2:N$="":PT=0:PO=0:�HI%=9�PO=1
T�PT=0��X2,Y2);"0"
^IN=�:�d@H
h�IN=13��dtF
r�IN=127��txF
|�IN=46�PO=0�PO=1:�tdF
��IN=46�PO=1��DTF
��IN=45�PT=0��tnF
��IN<48�IN>57��7:�DTF
��PT=HI%��DTF
�1N$=N$+�(IN):PT=PT+1:�X2,Y2);N$:X2=X2-1:�DTF
��PT=0��DTF
��N$,PT,1)="."�PO=0
�GX2=X2+1:�X2,Y2);" ":X2=X2+1:PT=PT-1:N$=�N$,PT):�N$<>""��X2,Y2);N$
�X2=X2-1
��X2>X3 �X2=X3
�	�DTF
��N$=""�N$="0":IP=1
��
��TY3:N=�(�MyFile(FA$))
L=1
+�#N=(L-1)*245:�#N,MC$:�MC$=�(CF%)��TpG
&L=L+1:�T\G
0.�#N=(L-1)*245+5:�#N,MC$:CO%=1:L=1:W%=0:�#N
:LL=�MC$,�(254)):�LL=0��DXG
DWME$(CO%)=�MC$,LL-1):L=LL+1:MC$=�MC$,L):CO%=CO%+1:�(ME$(CO%-1))>W%�W%=�(ME$(CO%-1))
N	�TzG
X)XX=X2:Y=Y2:W%=W%+3:L%=CO%-1:X=XX:�LWN
bXX=X2+1:Y=Y2+1:�SELECTM
l2N$=ME$(SEL%):�I=0�CO%+2:�X2,Y2+I);�21," "):�I
v�X2,Y2);N$:�
�	��TY5
��X2,Y2);"../../..":N$=""
�X3=X2:�DAT:�DE=1��tJG
�'N$=N$+DAT$:X3=X2+3:�DAT:�DE=1��tJG
�/N$=N$+"/"+DAT$+"/":X3=X2+6:�DAT:�DE=1��tJG
�N$=N$+DAT$
�IN=�:�d@H:�IN=13��dPG
��IN=127��tJG��t|G
��DACHEK:�DAT%=1��tJG:��
�	�t|G
�	��DAT
�DE=0:DAT$="":X4=X3
�!IN=�:�d@H:�IN=127�DE=1:�T`H
�IN<48�IN>57��7:�dxG
;�X3,Y2);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��T`H
	�dxG
 �
*	��TY6
4�X2,Y2);"..:..":N$=""
>X3=X2:�DAT:�DE=1��TtH
HN$=N$+DAT$+":":X3=X2+3:�DAT
RN$=N$+DAT$
\IN=�:�d@H:�IN=13��DpH
f�IN=127��TtH��D\H
p�TICHEK:�DAT%=1��TtH:��
z	��TY4
�IN=�
�/�d@H:N$="":�IN=89�N$="Yes":��IN=78�N$="No"
�%�IN=121�N$="Yes":��IN=110�N$="No"
�9�N$=""��tDH:��X2,Y2);N$;" ":IN=�:�d@H:�IN=13��tvH
�	�tNH
��
��BE%=1��DLI
��CF%=0��DLI
��IN=136�CF%=NOF%:�tBE
��IN=130��TFI
�,�IN=132�TY$="5"�N$=DA$:�X2,Y2);N$:�DxE
�3�IN=133�TY$="6"� N$=��$,17,5):�X2,Y2);N$:�DxE
�	�DLI
	3�CF%=NOF%�N$=TEMP$:�FPRINT:�FPNT:CF%=NOF%:�tBE
	*CF%=CF%+1:N$=TEMP$:�FPRINT:�FPNT:�dbD
		�DLI
	$�H<10�N$=N$+"0"
	.N$=N$+�(H)+":"
	8�M<10�N$=N$+"0"
	BN$=N$+�(M):�DxE
	L�
	V��52,28);"Enter field number";�52,29);"to jump to:":X=64:Y=29:L%=3:�TEXT:�(T$)<1��(T$)>NOF%��52,28);�20," ");�52,29);�20," "):�DLI
	`CF%=�(T$):�:�SC:�dbD
	j��AUTOUPDA
	t�NU%=1��dbD
	~�REL$="0"��dbD
	�:�"CLOSE":X=�(�MyFile(FI$)):�#X=(CR%-1)*REC%+TI%:�#X,N$
	�8�"CLOSE":FA$=FI$+"C":X=�(�MyFile(FA$)):�#X=0:�#X,NR$
	�`�Z=1��(NR$):�#X=(Z-1)*17+6:�#X,R$:RE$=�R$,1,9):R1$=�R$,10,3):R2$=�R$,13,3):�(R1$)=CF%��tpI
	��Z:�"CLOSE":�tBE
	�*TA$="":�F=1�9:�RE$,F,1)=" "�F=9:�dDI
	�TA$=TA$+�RE$,F,1)
	�6�F:FA$=TA$+"N":�"CLOSE":X=�(�MyFile(FA$)):�#X,DIR$
	�zFA$=TA$+"A":�"CLOSE":X=�(�MyFile(FA$)):�#X=(�(R2$)-1)*61+109:�#X,TI$:T%=�(TI$):�#X=5:�#X,NOR$:�#X=15:�#X,REC$:�"CLOSE"
	�dX=�(�MyFile(TA$)):�J=1��(NOR$):�#X=(J-1)*�(REC$)+T%:�#X,C$:�C$=TEMP$��#X=(J-1)*�(REC$)+T%:�#X,N$
	�3�J:�"CLOSE":FA$=FI$+"C":X=�(�MyFile(FA$)):�tfI
	�$SF%=1:SR%=1:ST%=1:�"FX4,1":BE%=1
	�IAF%=1:SL%=71:TU%=9:TF=0:�I=1�100:C(I)=0:�I:�"CLOSE":A=�(�MyFile(FO$))
�I=SF%�SF%+25

.�I>NOF%�C(AF%)=0:SP%=I:TF=1:I=SF%+25:�T|J
CF%=I:�FOPOUT:�IN%>70��T|J
/�IN%>SL%�C(AF%)=0:SP%=I:TF=1:I=SF%+25:�T|J
($TEN%=IN%:�IN%<�(FL$)�TEN%=�(FL$)
2XTEN%=TEN%+1:C(AF%)=I:C(AF%+25)=TU%:C(AF%+50)=TI%:AF%=AF%+1:SL%=SL%-TEN%:TU%=TU%+TEN%
<�I:�TF=0�SP%=I
F+H=0:Y=8:FR%=SR%+19:�:�FR%>NOR%�FR%=NOR%
P_�9,4);"File: ";FI$;�9,1);"� � � � �";�30,4);"Records: ";NOR%;�30,1);"Browse/Modify Screen"
ZH=H+1:�C(H)=0��tBJ
d��"CLOSE":X=�(�MyFile(FO$)):�#X=(C(H)-1)*61+63:�#X,FL$:�#X=(C(H)-1)*61+63+41:�#X,ZZ$:IN%=�(ZZ$):TEN%=IN%:�IN%<�(FL$)�TEN%=�(FL$)
n>�131:�C(H+25),6);FL$:�128:�C(H+25),7);�TEN%,�(241)):�FG%
x�H=25��tBJ��DZJ
�&F=SR%-1:�"CLOSE":X=�(�MyFile(FI$))
�9F=F+1:J=0:�128:�0,Y);"00000000";�8-�(�(F)),Y);F:�FG%
�	�tJL
�J=J+1:�C(J)=0��dHJ
�5AF%=F:�SO$="1"��#X=(F*REC%)-10:�#X,AF$:AF%=�(AF$)
�3�#X=(AF%-1)*REC%+C(J+50):�#X,N$:�C(J+25),Y);N$
��J=25��dHJ��t`J
�Y=Y+1:�F=FR%��dRJ��tLJ
�C�FR%=NOR%��128:�9,Y);�71,�(241));�9,Y+2);"Bottom of data":�FG%
�+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
��BUT=4��dpJ:��d\J
��YP>=8��txK
��YP<>1��d\J
�XP=17��"CLOSE":�DbB
�XP=9��tPK
�XP=11��DhK
"�XP=13��D@K
,�XP=15��D|K
6	�d\J
@�FR%=NOR%��DTK
J	�D^K
T�7:�d\J
^SR%=FR%+1:�DFJ
h�SR%=1��DTK
rSR%=SR%-20:�DFJ
|�SP%>NOF%��DTK
�)SF%=SP%:SC%(ST%)=C(1):ST%=ST%+1:�dvI
��SF%=1��DTK
�ST%=ST%-1:�ST%<1�ST%=1
�SF%=SC%(ST%):�SF%<1�SF%=1
�	�dvI
��XP<9��djK
�� ȗ U,U,BUT:�BUT=0:Time%=�
�+� --> Poll for double click within 0.5s
�%ȕ ((BUT = 0) � ((�-Time%) < 50))
� ȗ U,U,BUT
��
�� BUT = 0 � �d\J
�2CR%=(YP-8)+SR%:�CR%>NOR% � CR%<1 ��d\J:��THL
�2CR%=(YP-8)+SR%:�CR%>NOR% � CR%<1 ��d\J:��TVC
�X=30:Y=14:W%=20:L%=3:�LWN:ME$(1)="Select by Browsing":ME$(2)="Select by Key":ME$(3)="Select by Number":X=31:Y=15:L%=3:�SELECT
�� SEL% � �dlI,�dPB,�TBC
L=1
"�C(L+26)=0�XXP=80:�XXP=C(L+26)
1�XP>=C(L+25) � XP<=XXP-1 ��TfL:�:L=L+1:�TRL
&`B=�(�MyFile(FO$)):�#B=(C(L)-1)*61+101:�#B,TY$:�#B=(C(L)-1)*61+104:�#B,IN$:�TY$="3"��#B:�d\J
0+X2=C(L+25):Y2=YP:X5=X2:Y5=Y2:IN%=�(IN$)
:O�131:TI%=C(L+50):�X2,Y2);�(IN%):�TY$="1"�TY$="2"�LO%=33:HI%=138:�TY1:�DvL
D�TY$="4"��TY4:�DvL
N�TY$="5"��TY5:�DvL
X�TY$="6"��TY6:�DvL
b�TY$="7"�HI%=9:�TY7:�DvL
l �TY$="8"�TY$="0"�HI%=18:�TY7
v�7
�L�C(L+25),Y2);N$;�(IN%-�(N$)):�FG%:�#X=(CR%-1)*REC%+TI%:�#X,N$:�#B:�d\J
�8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��t`J
��YP<>1��t`J
�'�XP=13 � FR%<>NOR%� SR%=FR%+1:�DFJ
��XP=11 � �SR%=1 ��t`J
��XP=11 � SR%=SR%-20:�DFJ
�	�t`J
�6��SELECT:ED%=Y+(L%-1):BG%=X+(W%-1):SSEL%=1:*FX15,0
�>�I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
�+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
��YP<Y � YP>ED%��dPL
��XP<X � XP>BG%��dPL
�rSEL%=(YP-Y)+1:�CLEA:� 131:�127:�X,YP);"  ";ME$(SEL%);�(W%-2)-�(ME$(SEL%))," "):� FG%:�127:�BUT=4��TBM:��dZL

�7:�

R��CLEA:�SSEL%<>SEL%��I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I

SSEL%=SEL%:�

 	�Quit

*�3,26:�#0:�=17 � �Quit

4�go%=0��D\M

>FG%=180

HR�ERWIN:�180:�20,12);"System Reported Error #";�;":";�20,14);�$:�7:�FG%:�MKLIK

R�"CLOSE":�3:�26:�DbB

\{�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(does not exist/not a DataVision file)":�FG%:�7:�MKLIK:�T`M

fU��QUART:YEAR=�(�DA$,7,2)):MONTH=�(�DA$,4,2)):DAY=�(�DA$,1,2)):�MONTH<4� QUARTER=1

p�MONTH>9�QUARTER=4

z(�MONTH>3�MONTH<7�QUARTER=2�QUARTER=3

��

�;��DACHEK:D$=�N$,2):M$=�N$,4,2):Y$=�N$,2):DAT%=0:LY=DAT%

�"�(M$)<1��(M$)>12�DAT%=1:�drM

�"�(D$)<1��(D$)>31�DAT%=1:�drM

�"�M$="02"��(D$)>29�DAT%=1:�drM

�"�M$="04"��(D$)>30�DAT%=1:�drM

�"�M$="06"��(D$)>30�DAT%=1:�drM

�"�M$="09"��(D$)>30�DAT%=1:�drM

�"�M$="11"��(D$)>30�DAT%=1:�drM

�,�M$="02"�LY=�(Y$)/4:�LY=�(LY)�LY=1:�LY=0

�"�M$="02"��LY=0��(D$)>28�DAT%=1

��

�'��TICHEK:H$=�N$,2):M$=�N$,2):DAT%=0
"�(H$)<0��(H$)>23�DAT%=1:�TZN
"�(M$)<0��(M$)>59�DAT%=1:�TZN
�
$C��FPNT:�TY$="3"��28,XX-1,Y+L%,XX+W%,Y-1:�:�26:�X5,Y5);N$:�DBN
.5INN%=�(N$):LE%=80-X5:�INN%<=LE%��X5,Y5);N$:�DBN
8rNLD%=INN% � LE%:LB%=INN% � LE%:�J%=1�NLD%:�X5,Y5+(J%-1));�N$,((J%-1)*LE%)+1,LE%):�J%:�X5,Y5+(J%-1));�N$,LB%)
B�
L6��FPRINT:LE%=80-X5:�IN%<=LE%��X5,Y5);�(IN%):�D`N
V]NLD%=IN% � LE%:LB%=IN% � LE%:�J%=1�NLD%:�X5,Y5+(J%-1));�(LE%):�J%:�X5,Y5+(J%-1));�(LB%)
`�
jU��QUART:YEAR=�(�DA$,7,2)):MONTH=�(�DA$,4,2)):DAY=�(�DA$,1,2)):�MONTH<4� QUARTER=1
t�MONTH>9�QUARTER=4
~(�MONTH>3�MONTH<7�QUARTER=2�QUARTER=3
��
�h��STAN:�23,154,255,128,191,160,160,160,160,160,23,159,255,0,255,0,0,0,0,0,23,158,255,1,253,5,5,5,5,5
���23,155,160,160,160,160,160,160,160,160,23,157,5,5,5,5,5,5,5,5,23,156,160,160,160,160,160,191,128,255,23,160,0,0,0,0,0,255,0,255,23,161,5,5,5,5,5,253,1,255
��
����SHAD:�23,157,7,7,7,7,7,7,7,7,23,158,0,0,252,4,7,7,7,7,23,159,0,0,255,0,0,0,0,0,23,160,0,0,0,0,0,255,255,255,23,161,7,7,7,7,7,255,255,255,23,162,0,0,0,255,255,0,0,0
�a�23,154,0,0,63,32,32,32,32,32,23,155,32,32,32,32,32,32,32,32,23,156,32,32,32,32,32,63,15,15:�
����SLINE:�23,154,255,128,128,128,128,128,128,128,23,155,128,128,128,128,128,128,128,128,23,156,128,128,128,128,128,128,128,255,23,160,0,0,0,0,0,0,0,255,23,161,1,1,1,1,1,1,1,255,23,157,1,1,1,1,1,1,1,1
�8�23,158,255,1,1,1,1,1,1,1,23,159,255,0,0,0,0,0,0,0:�
����INVE:�23,154,255,255,192,223,223,223,223,223,23,155,223,223,223,223,223,223,223,223,23,156,223,223,223,223,223,192,255,255,23,160,255,255,255,255,255,0,255,255,23,161,251,251,251,251,251,3,255,255
�w�23,157,251,251,251,251,251,251,251,251,23,158,255,255,3,251,251,251,251,251,23,159,255,255,0,255,255,255,255,255:�
�<��GREY:�I=154�161:�23,I,85,170,85,170,85,170,85,170:�I:�
����THDI:�23,154,255,192,160,144,136,132,130,129,23,155,129,129,129,129,129,129,129,129,23,156,129,131,135,143,159,191,255,255,23,160,255,255,255,255,255,255,255,255,23,161,127,191,223,239,247,251,253,255
h�23,157,255,255,255,255,255,255,255,255,23,158,255,3,7,15,31,63,127,255,23,159,255,0,0,0,0,0,0,255:�

;��CONV(VL,ML):STN$=�(VL):STN$=STN$+�(ML-�(STN$))," "):�
:��CONT(VL$,ML):STN$=VL$:STN$=STN$+�(ML-�(STN$))," "):�
$�CONV(CF%,3):SEA$=STN$+PUT$:MA=1
(�MAL$(MA),4)=SEA$��DFO
2�MA=VA%��dND
<MA=MA+1:�ThO
F"TP$=�MAL$(MA),1):�TP$="A"��RL%
P�TP$="B"��RL%
Z�TP$="C"��RL%
d�TP$="D"��TDP
n�TP$="E"��TXP
x�TP$="H"��DJP
��TP$="G"��drR
��TP$="F"��DjS
�J�(�MAC$(MA),1,2)),�(�MAC$(MA),3,2)));�MAC$(MA),5,�(MAC$(MA))-4):�RL%
�wL=2:�I=1��(�MAC$(MA),1)):X7=�(�MAC$(MA),L,2)):Y7=�(�MAC$(MA),(L+2),2)):B$=�MAC$(MA),(L+4),20):�X7,Y7);B$:L=L+24:�I
��RL%
�!M$=�MAC$(MA),1):�M$="2"��SHAD
��M$="3"��SLINE
��M$="4"��INVE
��M$="5"��GREY
��M$="6"��THDI
�XX=�(�MAC$(MA),2,2)):Y=�(�MAC$(MA),4,2)):W%=�(�MAC$(MA),6,2)):L%=�(�MAC$(MA),8,2)):X7=�(�MAC$(MA),10,2)):Y7=�(�MAC$(MA),12,2)):B$=�MAC$(MA),20)
��LWN:�B$=�20," ")�B$=""
��X7,Y7);B$:�STAN:�RL%
?�N$=""�IP=1�N$=MAC$(MA):�X5,Y5);�IN%," ");�X5,Y5);N$:�DxE
�RL%
>T1=�(�MAC$(MA),12)):T2=�(�MAC$(MA),13,12)):M$=�MAC$(MA),1)
"�(N$)<T1 � �(N$)>T2 ��TvP
,�RL%
6�M$="2"��dND
@0�M$="1"��X5,Y5);�IN%," "):X2=X5:Y2=Y5:�dvD
J�TY$="5"��DbQ
T�MF%=CF%-1:GA=CF%:GB=TI%:T$=MAC$(MA):GA$=TR$:GB$=TY$:�FORTRAN:N$=�(FT):CF%=GA:TI%=GB:TR$=GA$:TY$=GB$:�X5,Y5);�IN%," ");�X5,Y5);N$:�DnE
^�
h
��FORTRAN
r�F=1�5:�T$,3)=FU$(F)��d~P
|�F
�*FTR$="":�I=1��(T$):�T$,I,1)="#"��tZP
�FTR$=FTR$+�T$,I,1):�d`P
��I=�(T$)��tzE
�L=I+1:FT$=""
�9�(�T$,L,1))>47��(�T$,L,1))<58�FT$=FT$+�T$,L,1)��dLP
�L=L+1:�L>�(T$)��dLP
�	�tnP
��(FT$)=0��(FT$)>MF%��tzE
�MCF%=�(FT$):�FOPOUT:�#CC=(CR%-1)*REC%+TI%:�#CC,C$:FTR$=FTR$+�(�(C$)):I=L-1
��I
�FT=�(FTR$)
��
���F=1�T1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3)):T=0:�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:T=T+�(C$):�I:FT=T:�dtP
��F=2�T1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3)):T=0:L=0:�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:T=T+�(C$):L=L+1:�I:FT=T/L:�dtP
�F=5��dTR
�F=4��DDQ
&?MAX=-99999999:L=0:T1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3))
0P�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:�(C$)>MAX � MAX=�(C$)
:�I:FT=MAX:�dtP
D:MAX=99999999:T1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3))
NP�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:�(C$)<MAX � MAX=�(C$)
X�I:FT=MAX:�dtP
b�MAC$(MA),1)="#"��thQ
lD�CTOD(DA$):�MAC$(MA)="TODAY"��DTOC(PD1):N$=P1$:�X5,Y5);N$:�DnE
v5P5$=�MAC$(MA),3,�(MAC$(MA))-2):�P5$,1)="#"��thQ
�6PD1=PD1+�(P5$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�DnE
�QPD3=�P5$,�(P5$)-1):�#A=(PD3-1)*61+109:�#A,ZZ$:�#X=(NOR%-1)*REC%+�(ZZ$):�#X,C$
�I�MAC$(MA),2,1)="-"�PD1=PD1-�(C$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�DnE
�5PD1=PD1+�(C$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�DnE
��P6=�(�MAC$(MA),2,3)):�#A=(P6-1)*61+109:�#A,ZZ$:�#X=(NOR%-1)*REC%+�(ZZ$):�#X,C$:�CTOD(C$):P5$=�MAC$(MA),�(MAC$(MA))-5):�P5$,1)="#"��t|Q
�6PD1=PD1+�(P5$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�DnE
��P6=�(�P5$,�(P5$)-1)):�#A=(P6-1)*61+109:�#A,ZZ$:�#X=(NOR%-1)*REC%+�(ZZ$):�#X,C$:PD1=PD1+�(C$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�DnE
��
�?��CTOD(P1$):P1=�(�P1$,1,2)):P2=�(�P1$,4,2)):P3=�(�P1$,7,2))
��P1<1�P2<1�P2>12�P3<0��TjR
�"�P1<=�(�SEG$,(2*P2)-1,2))��dxQ
�0� P1<>29 � P2<>2 � P3-(�(P3/4)*4)<>0 � �TjR
�PD1=P1:�P2=1��TLR
1�P4=1�(P2-1):PD1=PD1+�(�SEG$,(2*P4)-1,2)):�P4
 PD1=PD1+(365*P3)+�((P3+3)/4)
$�P3=�(P3/4)*4 � P2>2 � PD1=PD1+1
 	�TtR
*
PD1=-1
4�
>��DTOC(PD2)
HP1=�(PD1/366):P3=1
RP5=�((P1+3)/4):P4=P1-(P5*4)
\.P2=PD1-(365*P1)-P5:�P4=0 � P5=366 � P5=365
f�P2>P5 � P1=P1+1:�DRR
p�P2<1 � P1=P1-1:�DRR
z0P5=�(�SEG$,(2*P3)-1,2)):�P3=2�P4=0 � P5=P5+1
�#�P2>P5 � P3=P3+1:P2=P2-P5:�DzR
�$P1$=�(P2):P1$=�2-�(P1$),"0")+P1$
�#P2$=�(P3):�(P2$)>2�P2$=�P2$,2)
�"P1$=P1$+"/"+�2-�(P2$),"0")+P2$
�#P2$=�(P1):�(P2$)>2�P2$=�P2$,2)
�"P1$=P1$+"/"+�2-�(P2$),"0")+P2$
�PD1=PD2
��
ԈT1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3)):T=0:L=0:�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:T=T+�(C$):L=L+1:�I:AVG=(T/L)
�]TT=0:�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:T=(�(C$)-AVG):T=T^2:TT=TT+T:�I
�FT=�(TT/AVG):�dtP
��TY$="0"�INN%=0��DxE
� �TRIM:�(N$)>IN%�N$=�N$,IN%)
�X5,Y5);N$:�DxE
(��TRIM:TRM=�(MAC$(MA)):TRN=�(N$):L=1
�TRM=0�N$=�(�(TRN)):�D`S
$0�TRN=�(TRN)�N$=�(�(TRN))+"."+�TRM,"0"):�D`S
.�N$,L,1)="."��DBS
8L=L+1:�TnS
B@TRM$=�N$,(L+1),�(N$)-L):�(TRM$)>TRM � TRM$=�TRM$,TRM):�DVS
L6�(TRM$)<TRM � TRM$=TRM$+�(TRM-�(TRM$)),"0"):�DVS
VN$=�N$,L)+TRM$
`�
j6L%=1:M%=�(�MAC$(MA),2)):P%=3:NN$=N$+�12-�(N$)," ")
t$V$=�MAC$(MA),P%,12):�V$=NN$��RL%
~'P%=P%+12:L%=L%+1:�L%>M%��dbD��DtS
�o��SELECTM:�"FX4,1":ED%=Y+(L%-1):BG%=Y:MX%=0:�P=1�L%:�XX,Y+(P-1));"   ";ME$(P):�(ME$(P))>MX%�MX%=�(ME$(P))
�
�P:SEL%=1
�E�131:�XX,Y);" ";�(252);" ";ME$(SEL%);�MX%-�(ME$(SEL%))," "):�FG%
�I$=�:IN=�(I$):�d@H
��I$=�(13)��TJT
��I$="�"��dXS
��I$="�"��dvS
�	�tfS
��Y=ED%��tfS
�"�CLEAT:Y=Y+1:SEL%=SEL%+1:�t\S
�<��CLEAT:�XX,Y);"   ";ME$(SEL%);�MX%-�(ME$(SEL%))," "):�
��Y=BG%��tfS
"�CLEAT:Y=Y-1:SEL%=SEL%-1:�t\S

�
��ROUND:TRN=�(N$):L=1
�TRM=0�N$=�(�(TRN)):�DdT
(0�TRN=�(TRN)�N$=�(�(TRN))+"."+�TRM,"0"):�DdT
2�N$,L,1)="."��DFT
<L=L+1:�TrT
F@TRM$=�N$,(L+1),�(N$)-L):�(TRM$)>TRM � TRM$=�TRM$,TRM):�DZT
P6�(TRM$)<TRM � TRM$=TRM$+�(TRM-�(TRM$)),"0"):�DZT
ZN$=�N$,L)+TRM$
d�
n��SEL:*FX15,0
xo�128:FG%=128:X=50:Y=2:W%=21:L%=23:�LWN:�FG%:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241))
�8SSF%=1:SF%=1:Y2=6:SR%=SF%:�"CLOSE":A=�(�MyFile(FO$))
�!FR%=SR%+19:�FR%>NOF%�FR%=NOF%
�{L=6:LL=1:�I=SR%�FR%:�#A=(I-1)*61+63:�#A,FL$:�52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:�I:� LL<21 � � I=LL �20:ME$(I)=" ":�I
�+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
� �XP=67 � YP=3 � BUT=4 ��dRT
� �XP=69 � YP=3 � BUT=4 ��dfT
�@� XP>71 � XP<51 � YP>25 � YP<6 �SSF%=0:�CLEAF:SSF%=SF%:�t`T
�rYP=YP-5:SF%=(YP+SR%)-1:�CLEAF:�131:�52,YP+5);ME$(YP);�(20-�(ME$(YP))):�FG%:�BUT=4 � SF%<(NOF%+1)��dzT:��t`T
��FR%=NOF%��t`T
�nSR%=SR%+20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�tLT
��SR%=1��t`T
�nSR%=SR%-20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�tLT
�e�7:�#A=(SF%-1)*61+63:�#A,FL$:�#A=(SF%-1)*61+101:�#A,TY$:�#A=(SF%-1)*61+117:�#A,TR$:�180:FG%=180:�
B��CLEAF:�SSF%<>SF%��I=1�20:�52,I+5);ME$(I);�(20-�(ME$(I))):�I
SSF%=SF%:�
,��YN:xp=�:yp=�:�" ";:�131:�"YES/NO":�FG%
"8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��TbU
,�YP<>yp ��TbU
6+�XP=xp+1 � XP=xp+2 � XP=xp+3�YN=1:�DTU
@"�XP=xp+5 � XP=xp+6 �YN=0:�DTU
J	�TbU
T�xp,yp);" YES/NO":�7:�
^8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��t`J
h� �MyFile(file$)
r
=file$
|� �Quit
�ș "Wimp_CommandWindow",-1
�Ș
��
�@
��Dir(d$)
�J)� d$ <> "" � � "Dir "+�MyFile(�d$,2))
�T�
�

00000000  0d 00 0a 18 f4 20 3e 20  24 2e 21 44 61 74 61 56  |..... > $.!DataV|
00000010  69 73 2e 21 64 76 31 33  0d 00 0f 1e c8 99 20 22  |is.!dv13...... "|
00000020  57 69 6d 70 5f 43 6f 6d  6d 61 6e 64 57 69 6e 64  |Wimp_CommandWind|
00000030  6f 77 22 2c 2d 31 0d 00  14 10 eb 20 31 35 3a fb  |ow",-1..... 15:.|
00000040  20 31 38 30 3a db 0d 00  1e 0b ee 85 e5 8d 54 6a  | 180:.........Tj|
00000050  4d 0d 00 28 1d c8 97 20  ee 3a 87 3a 46 47 25 3d  |M..(... .:.:FG%=|
00000060  31 38 30 3a 2a 46 58 32  32 35 2c 31 32 38 0d 00  |180:*FX225,128..|
00000070  32 6a de 4d 24 28 38 29  3a de 43 28 31 30 30 29  |2j.M$(8):.C(100)|
00000080  3a de 4d 45 24 28 32 30  29 3a de 43 43 24 28 32  |:.ME$(20):.CC$(2|
00000090  35 2c 32 30 29 3a de 53  43 25 28 38 35 29 3a de  |5,20):.SC%(85):.|
000000a0  46 55 24 28 35 29 3a 53  45 47 24 3d 22 33 31 32  |FU$(5):SEG$="312|
000000b0  38 33 31 33 30 33 31 33  30 33 31 33 31 33 30 33  |8313031303131303|
000000c0  31 33 30 33 31 22 3a e3  49 3d 31 b8 35 3a f3 46  |13031":.I=1.5:.F|
000000d0  55 24 28 49 29 3a ed 49  0d 00 3c 22 dc 22 53 55  |U$(I):.I..<"."SU|
000000e0  4d 22 2c 22 41 56 47 22  2c 22 4d 41 58 22 2c 22  |M","AVG","MAX","|
000000f0  4d 49 4e 22 2c 22 53 54  44 22 0d 00 46 67 ff 22  |MIN","STD"..Fg."|
00000100  43 4c 4f 53 45 22 3a 53  54 24 3d 22 33 22 3a 58  |CLOSE":ST$="3":X|
00000110  3d ad 28 a4 4d 79 46 69  6c 65 28 22 4e 49 4d 22  |=.(.MyFile("NIM"|
00000120  29 29 3a e8 23 58 2c 46  49 24 2c 53 54 24 2c 44  |)):.#X,FI$,ST$,D|
00000130  41 24 2c 44 52 24 2c 5a  5a 24 2c 4d 44 24 3a ff  |A$,DR$,ZZ$,MD$:.|
00000140  22 43 4c 4f 53 45 22 3a  46 4f 24 3d 46 49 24 2b  |"CLOSE":FO$=FI$+|
00000150  22 41 22 3a 53 54 24 3d  22 31 22 3a e5 8d 64 44  |"A":ST$="1":..dD|
00000160  44 0d 00 50 10 dd f2 4d  41 49 4e 3a 67 6f 25 3d  |D..P...MAIN:go%=|
00000170  30 0d 00 5a 43 e7 53 54  24 3d 22 31 22 8c 20 54  |0..ZC.ST$="1". T|
00000180  41 24 3d 46 49 24 2b 22  4e 22 3a 58 3d ad 28 a4  |A$=FI$+"N":X=.(.|
00000190  4d 79 46 69 6c 65 28 54  41 24 29 29 3a e8 23 58  |MyFile(TA$)):.#X|
000001a0  2c 44 49 24 3a f2 44 69  72 28 44 49 24 29 3a e5  |,DI$:.Dir(DI$):.|
000001b0  8d 74 56 40 0d 00 64 09  e5 8d 44 78 40 0d 00 6e  |.tV@..d...Dx@..n|
000001c0  61 f2 45 52 57 49 4e 3a  fb 31 38 30 3a f1 8a 32  |a.ERWIN:.180:..2|
000001d0  30 2c 31 32 29 3b 22 43  61 6e 6e 6f 74 20 72 65  |0,12);"Cannot re|
000001e0  61 64 20 74 68 65 20 66  69 6c 65 20 3a 22 3b 46  |ad the file :";F|
000001f0  49 24 3b 8a 32 30 2c 31  34 29 3b 22 28 66 69 6c  |I$;.20,14);"(fil|
00000200  65 20 65 6d 70 74 79 29  22 3a fb 46 47 25 3a ef  |e empty)":.FG%:.|
00000210  37 3a f2 4d 4b 4c 49 4b  3a e5 8d 54 60 4d 0d 00  |7:.MKLIK:..T`M..|
00000220  78 4c e7 53 54 24 3d 22  32 22 8c 20 ff 22 43 4c  |xL.ST$="2". ."CL|
00000230  4f 53 45 22 3a 54 41 24  3d 46 49 24 2b 22 4e 22  |OSE":TA$=FI$+"N"|
00000240  3a 58 3d ad 28 a4 4d 79  46 69 6c 65 28 54 41 24  |:X=.(.MyFile(TA$|
00000250  29 29 3a e8 23 58 2c 44  49 24 3a f2 44 69 72 28  |)):.#X,DI$:.Dir(|
00000260  44 49 24 29 3a e5 8d 74  56 40 0d 00 82 35 dd f2  |DI$):..tV@...5..|
00000270  4d 4b 4c 49 4b 3a f5 3a  c8 97 20 55 2c 55 2c 42  |MKLIK:.:.. U,U,B|
00000280  55 54 3a fd 42 55 54 3d  30 3a f5 3a c8 97 20 55  |UT:.BUT=0:.:.. U|
00000290  2c 55 2c 42 55 54 3a fd  42 55 54 3d 34 3a e1 0d  |,U,BUT:.BUT=4:..|
000002a0  00 8c 31 dd f2 45 52 57  49 4e 3a 58 3d 31 39 3a  |..1..ERWIN:X=19:|
000002b0  59 3d 31 31 3a 57 25 3d  34 30 3a 4c 25 3d 33 3a  |Y=11:W%=40:L%=3:|
000002c0  fb 31 38 30 3a f2 4c 57  4e 3a fb 46 47 25 3a e1  |.180:.LWN:.FG%:.|
000002d0  0d 00 96 a4 d9 23 30 3a  58 3d ad 28 a4 4d 79 46  |.....#0:X=.(.MyF|
000002e0  69 6c 65 28 46 4f 24 29  29 3a cf 23 58 3d 30 3a  |ile(FO$)):.#X=0:|
000002f0  e8 23 58 2c 5a 5a 24 3a  4e 4f 46 25 3d bb 28 5a  |.#X,ZZ$:NOF%=.(Z|
00000300  5a 24 29 3a cf 23 58 3d  35 3a e8 23 58 2c 5a 5a  |Z$):.#X=5:.#X,ZZ|
00000310  24 3a 4e 4f 52 25 3d bb  28 5a 5a 24 29 3a cf 23  |$:NOR%=.(ZZ$):.#|
00000320  58 3d 31 35 3a e8 23 58  2c 5a 5a 24 3a 52 45 43  |X=15:.#X,ZZ$:REC|
00000330  25 3d bb 28 5a 5a 24 29  3a cf 23 58 3d 34 35 3a  |%=.(ZZ$):.#X=45:|
00000340  e8 23 58 2c 53 4f 24 3a  cf 23 58 3d 35 36 3a e8  |.#X,SO$:.#X=56:.|
00000350  23 58 2c 4d 43 41 24 3a  4d 43 41 25 3d bb 28 4d  |#X,MCA$:MCA%=.(M|
00000360  43 41 24 29 3a cf 23 58  3d 32 38 3a e8 23 58 2c  |CA$):.#X=28:.#X,|
00000370  4d 41 52 24 0d 00 a0 24  e7 bb 28 53 4f 24 29 3e  |MAR$...$..(SO$)>|
00000380  30 8c 53 4f 24 3d 22 30  22 3a cf 23 58 3d 34 35  |0.SO$="0":.#X=45|
00000390  3a f1 23 58 2c 53 4f 24  0d 00 aa 11 e7 4e 4f 52  |:.#X,SO$.....NOR|
000003a0  25 3d 30 8c e5 8d 44 6e  40 0d 00 b4 13 e7 4d 41  |%=0...Dn@.....MA|
000003b0  52 24 3d 22 31 22 8c e5  8d 44 4e 42 0d 00 be 0b  |R$="1"...DNB....|
000003c0  67 6f 25 3d 31 3a e1 0d  00 c8 0d dd f2 53 43 3a  |go%=1:.......SC:|
000003d0  fb 31 32 38 0d 00 d2 3e  f1 8a 30 2c 30 29 3b c4  |.128...>..0,0);.|
000003e0  38 30 2c bd 28 32 34 31  29 29 3b 8a 30 2c 32 32  |80,.(241));.0,22|
000003f0  29 3b c4 38 30 2c bd 28  32 34 31 29 29 3a ef 32  |);.80,.(241)):.2|
00000400  38 2c 30 2c 33 31 2c 37  39 2c 32 33 3a db 3a ef  |8,0,31,79,23:.:.|
00000410  32 36 0d 00 dc 91 fb 34  35 3a fb 31 33 31 3a f1  |26.....45:.131:.|
00000420  8a 32 2c 32 38 29 3b 22  66 32 3a 22 3b 8a 32 2c  |.2,28);"f2:";.2,|
00000430  32 39 29 3b 22 66 34 3a  22 3b 8a 31 37 2c 32 38  |29);"f4:";.17,28|
00000440  29 3b 22 66 35 3a 22 3b  8a 31 37 2c 32 39 29 3b  |);"f5:";.17,29);|
00000450  22 66 38 3a 22 3a fb 31  32 38 3a fb 31 32 30 3a  |"f8:":.128:.120:|
00000460  f1 8a 36 2c 32 38 29 3b  22 4e 65 78 74 20 46 69  |..6,28);"Next Fi|
00000470  65 6c 64 22 3b 8a 36 2c  32 39 29 3b 22 44 61 74  |eld";.6,29);"Dat|
00000480  65 22 3b 8a 32 31 2c 32  38 29 3b 22 54 69 6d 65  |e";.21,28);"Time|
00000490  22 3b 8a 32 31 2c 32 39  29 3b 22 43 6f 6e 66 69  |";.21,29);"Confi|
000004a0  72 6d 22 0d 00 e6 0d fb  31 32 37 3a fb 46 47 25  |rm".....127:.FG%|
000004b0  0d 00 f0 05 e1 0d 00 fa  0c dd f2 46 4f 50 4f 55  |...........FOPOU|
000004c0  54 0d 01 04 15 50 4f 49  3d 28 43 46 25 2d 31 29  |T....POI=(CF%-1)|
000004d0  2a 36 31 2b 36 33 0d 01  0e 13 cf 23 41 3d 50 4f  |*61+63.....#A=PO|
000004e0  49 3a e8 23 41 2c 46 4c  24 0d 01 18 20 cf 23 41  |I:.#A,FL$... .#A|
000004f0  3d 50 4f 49 2b 32 32 3a  e8 23 41 2c 5a 5a 24 3a  |=POI+22:.#A,ZZ$:|
00000500  58 31 3d bb 28 5a 5a 24  29 0d 01 22 20 cf 23 41  |X1=.(ZZ$).." .#A|
00000510  3d 50 4f 49 2b 32 36 3a  e8 23 41 2c 5a 5a 24 3a  |=POI+26:.#A,ZZ$:|
00000520  59 31 3d bb 28 5a 5a 24  29 0d 01 2c 20 cf 23 41  |Y1=.(ZZ$).., .#A|
00000530  3d 50 4f 49 2b 33 30 3a  e8 23 41 2c 5a 5a 24 3a  |=POI+30:.#A,ZZ$:|
00000540  58 32 3d bb 28 5a 5a 24  29 0d 01 36 20 cf 23 41  |X2=.(ZZ$)..6 .#A|
00000550  3d 50 4f 49 2b 33 34 3a  e8 23 41 2c 5a 5a 24 3a  |=POI+34:.#A,ZZ$:|
00000560  59 32 3d bb 28 5a 5a 24  29 0d 01 40 16 cf 23 41  |Y2=.(ZZ$)..@..#A|
00000570  3d 50 4f 49 2b 33 38 3a  e8 23 41 2c 54 59 24 0d  |=POI+38:.#A,TY$.|
00000580  01 4a 21 cf 23 41 3d 50  4f 49 2b 34 31 3a e8 23  |.J!.#A=POI+41:.#|
00000590  41 2c 5a 5a 24 3a 49 4e  25 3d bb 28 5a 5a 24 29  |A,ZZ$:IN%=.(ZZ$)|
000005a0  0d 01 54 21 cf 23 41 3d  50 4f 49 2b 34 36 3a e8  |..T!.#A=POI+46:.|
000005b0  23 41 2c 5a 5a 24 3a 54  49 25 3d bb 28 5a 5a 24  |#A,ZZ$:TI%=.(ZZ$|
000005c0  29 0d 01 5e 16 cf 23 41  3d 50 4f 49 2b 35 34 3a  |)..^..#A=POI+54:|
000005d0  e8 23 41 2c 54 52 24 0d  01 68 16 cf 23 41 3d 50  |.#A,TR$..h..#A=P|
000005e0  4f 49 2b 35 38 3a e8 23  41 2c 4e 50 24 0d 01 72  |OI+58:.#A,NP$..r|
000005f0  05 e1 0d 01 7c 0a dd f2  54 49 4d 45 0d 01 86 5e  |....|...TIME...^|
00000600  53 25 3d 28 91 20 81 31  30 30 29 83 36 30 3a 4d  |S%=(. .100).60:M|
00000610  25 3d 28 91 20 81 36 30  30 30 29 83 36 30 3a 48  |%=(. .6000).60:H|
00000620  25 3d 28 91 20 81 33 36  30 30 30 30 29 83 32 34  |%=(. .360000).24|
00000630  3a f1 8a 37 33 2c 30 29  3b 22 3a 22 3b 8a 37 36  |:..73,0);":";.76|
00000640  2c 30 29 3b 22 3a 22 3a  e7 53 25 3c 31 30 8c f1  |,0);":":.S%<10..|
00000650  8a 37 37 2c 30 29 3b 22  30 22 0d 01 90 16 e7 4d  |.77,0);"0".....M|
00000660  25 3c 31 30 8c f1 8a 37  34 2c 30 29 3b 22 30 22  |%<10...74,0);"0"|
00000670  0d 01 9a 16 e7 48 25 3c  31 30 8c f1 8a 37 31 2c  |.....H%<10...71,|
00000680  30 29 3b 22 30 22 0d 01  a4 3d f1 8a 37 33 2d a9  |0);"0"...=..73-.|
00000690  28 c3 28 48 25 29 29 2c  30 29 3b 48 25 3b 8a 37  |(.(H%)),0);H%;.7|
000006a0  36 2d a9 28 c3 28 4d 25  29 29 2c 30 29 3b 4d 25  |6-.(.(M%)),0);M%|
000006b0  3b 8a 37 39 2d a9 28 c3  28 53 25 29 29 2c 30 29  |;.79-.(.(S%)),0)|
000006c0  3b 53 25 0d 01 ae 05 e1  0d 01 b8 12 dd f2 54 45  |;S%...........TE|
000006d0  58 54 3a 2a 46 58 31 35  2c 30 0d 01 c2 0d 54 24  |XT:*FX15,0....T$|
000006e0  3d 22 22 3a 4c 3d 30 0d  01 cc 17 e7 4c 3c 4c 25  |="":L=0.....L<L%|
000006f0  8c f1 8a 58 2c 59 29 3b  bd 28 32 35 35 29 0d 01  |...X,Y);.(255)..|
00000700  d6 08 49 4e 3d a5 0d 01  e0 16 e7 49 4e 3d 31 33  |..IN=......IN=13|
00000710  8c 4e 50 25 3d 30 3a e5  8d 54 7a 42 0d 01 ea 11  |.NP%=0:..TzB....|
00000720  e7 49 4e 3d 31 32 37 8c  e5 8d 54 5c 42 0d 01 f4  |.IN=127...T\B...|
00000730  15 e7 49 4e 3d 39 8c 4e  50 25 3d 31 3a e5 8d 54  |..IN=9.NP%=1:..T|
00000740  7a 42 0d 01 fe 0f e7 4c  3d 4c 25 8c e5 8d 64 56  |zB.....L=L%...dV|
00000750  41 0d 02 08 28 f1 8a 58  2c 59 29 3b bd 28 49 4e  |A...(..X,Y);.(IN|
00000760  29 3a 54 24 3d 54 24 2b  bd 28 49 4e 29 3a 4c 3d  |):T$=T$+.(IN):L=|
00000770  4c 2b 31 3a 58 3d 58 2b  31 0d 02 12 09 e5 8d 64  |L+1:X=X+1......d|
00000780  4c 41 0d 02 1c 0e e7 4c  3d 30 8c e5 8d 64 42 41  |LA.....L=0...dBA|
00000790  0d 02 26 24 f1 8a 58 2c  59 29 3b 22 20 22 3a 58  |..&$..X,Y);" ":X|
000007a0  3d 58 2d 31 3a 4c 3d 4c  2d 31 3a 54 24 3d c0 54  |=X-1:L=L-1:T$=.T|
000007b0  24 2c 4c 29 0d 02 30 09  e5 8d 64 4c 41 0d 02 3a  |$,L)..0...dLA..:|
000007c0  0e f1 8a 58 2c 59 29 3b  22 20 22 0d 02 44 05 e1  |...X,Y);" "..D..|
000007d0  0d 02 4e 95 ff 22 43 4c  4f 53 45 22 3a 54 41 24  |..N.."CLOSE":TA$|
000007e0  3d 46 49 24 2b 22 45 22  3a 58 3d ad 28 a4 4d 79  |=FI$+"E":X=.(.My|
000007f0  46 69 6c 65 28 54 41 24  29 29 3a e8 23 58 2c 53  |File(TA$)):.#X,S|
00000800  50 4d 24 3a 56 41 25 3d  bb 28 c1 53 50 4d 24 2c  |PM$:VA%=.(.SPM$,|
00000810  31 2c 32 29 29 3a de 4d  41 43 24 28 56 41 25 29  |1,2)):.MAC$(VA%)|
00000820  3a de 4d 41 4c 24 28 56  41 25 29 3a 4d 41 43 24  |:.MAL$(VA%):MAC$|
00000830  28 30 29 3d 53 50 4d 24  3a e8 23 58 2c 53 50 4d  |(0)=SPM$:.#X,SPM|
00000840  24 3a e3 49 3d 31 b8 56  41 25 3a e8 23 58 2c 4d  |$:.I=1.VA%:.#X,M|
00000850  41 43 24 28 49 29 3a e8  23 58 2c 4d 41 4c 24 28  |AC$(I):.#X,MAL$(|
00000860  49 29 3a ed 49 0d 02 58  09 e5 8d 74 7e 40 0d 02  |I):.I..X...t~@..|
00000870  62 33 58 3d 32 38 3a 59  3d 31 32 3a 57 25 3d 32  |b3X=28:Y=12:W%=2|
00000880  31 3a 4c 25 3d 34 3a f2  4c 57 4e 3a 43 46 25 3d  |1:L%=4:.LWN:CF%=|
00000890  30 3a 49 4e 4e 25 3d 31  30 30 3a f2 51 55 41 52  |0:INN%=100:.QUAR|
000008a0  54 0d 02 6c 76 4d 45 24  28 31 29 3d 22 49 6e 74  |T..lvME$(1)="Int|
000008b0  65 72 61 63 74 69 76 65  20 4d 6f 64 69 66 79 22  |eractive Modify"|
000008c0  3a 4d 45 24 28 32 29 3d  22 41 75 74 6f 6d 61 74  |:ME$(2)="Automat|
000008d0  69 63 20 4d 6f 64 69 66  79 22 3a 4d 45 24 28 33  |ic Modify":ME$(3|
000008e0  29 3d 22 53 65 61 72 63  68 2f 52 65 70 6c 61 63  |)="Search/Replac|
000008f0  65 22 3a 4d 45 24 28 34  29 3d 22 51 75 69 74 22  |e":ME$(4)="Quit"|
00000900  3a 58 3d 32 39 3a 59 3d  31 33 3a 4c 25 3d 34 3a  |:X=29:Y=13:L%=4:|
00000910  f2 53 45 4c 45 43 54 0d  02 76 11 e7 53 45 4c 25  |.SELECT..v..SEL%|
00000920  3d 31 8c e5 8d 64 74 4b  0d 02 80 11 e7 53 45 4c  |=1...dtK.....SEL|
00000930  25 3d 32 8c e5 8d 44 52  43 0d 02 8a 11 e7 53 45  |%=2...DRC.....SE|
00000940  4c 25 3d 33 8c e5 8d 74  76 43 0d 02 94 11 e7 53  |L%=3...tvC.....S|
00000950  45 4c 25 3d 34 8c e5 8d  54 60 4d 0d 02 9e 09 e5  |EL%=4...T`M.....|
00000960  8d 64 5c 40 0d 02 a8 5b  58 3d 33 30 3a 59 3d 31  |.d\@...[X=30:Y=1|
00000970  34 3a 57 25 3d 33 30 3a  4c 25 3d 32 3a f2 4c 57  |4:W%=30:L%=2:.LW|
00000980  4e 3a f1 8a 33 31 2c 31  35 29 3b 22 53 65 6c 65  |N:..31,15);"Sele|
00000990  63 74 20 52 65 63 6f 72  64 20 62 79 20 20 31 5d  |ct Record by  1]|
000009a0  20 4b 65 79 20 46 69 65  6c 64 22 3b 8a 34 39 2c  | Key Field";.49,|
000009b0  31 36 29 3b 22 32 5d 20  4e 75 6d 62 65 72 22 0d  |16);"2] Number".|
000009c0  02 b2 1e 49 24 3d bf 28  30 29 3a e7 49 24 3d 22  |...I$=.(0):.I$="|
000009d0  22 8c f2 54 49 4d 45 3a  e5 8d 74 72 42 0d 02 bc  |"..TIME:..trB...|
000009e0  11 e7 49 24 3d 22 32 22  8c e5 8d 54 42 43 0d 02  |..I$="2"...TBC..|
000009f0  c6 17 e7 49 24 3d 22 31  22 8c e5 8d 64 50 42 8b  |...I$="1"...dPB.|
00000a00  e5 8d 44 62 42 0d 02 d0  1c 58 3d 30 3a 59 3d 31  |..DbB....X=0:Y=1|
00000a10  35 3a 57 25 3d 37 38 3a  4c 25 3d 32 3a f2 4c 57  |5:W%=78:L%=2:.LW|
00000a20  4e 0d 02 da 7c ff 22 43  4c 4f 53 45 22 3a 58 3d  |N...|."CLOSE":X=|
00000a30  ad 28 a4 4d 79 46 69 6c  65 28 46 4f 24 29 29 3a  |.(.MyFile(FO$)):|
00000a40  cf 23 58 3d 35 31 3a e8  23 58 2c 4b 46 24 3a cf  |.#X=51:.#X,KF$:.|
00000a50  23 58 3d 28 bb 28 4b 46  24 29 2d 31 29 2a 36 31  |#X=(.(KF$)-1)*61|
00000a60  2b 36 33 3a e8 23 58 2c  46 4c 24 3a cf 23 58 3d  |+63:.#X,FL$:.#X=|
00000a70  28 bb 28 4b 46 24 29 2d  31 29 2a 36 31 2b 31 30  |(.(KF$)-1)*61+10|
00000a80  39 3a e8 23 58 2c 5a 5a  24 3a 54 49 25 3d bb 28  |9:.#X,ZZ$:TI%=.(|
00000a90  5a 5a 24 29 3a ff 22 43  4c 4f 53 45 22 0d 02 e4  |ZZ$):."CLOSE"...|
00000aa0  65 f1 8a 31 2c 31 36 29  3b 22 53 65 6c 65 63 74  |e..1,16);"Select|
00000ab0  20 52 65 63 6f 72 64 20  66 6f 72 20 55 70 64 61  | Record for Upda|
00000ac0  74 69 6e 67 2e 22 3b 8a  31 2c 31 37 29 3b 22 45  |ting.";.1,17);"E|
00000ad0  6e 74 65 72 20 22 3b 46  4c 24 3b 22 3a 20 22 3a  |nter ";FL$;": ":|
00000ae0  58 3d 32 39 3a 59 3d 31  37 3a 4c 25 3d 34 39 3a  |X=29:Y=17:L%=49:|
00000af0  f2 54 45 58 54 3a e7 54  24 3d 22 22 8c e5 8d 44  |.TEXT:.T$=""...D|
00000b00  62 42 0d 02 ee 4c 58 3d  ad 28 a4 4d 79 46 69 6c  |bB...LX=.(.MyFil|
00000b10  65 28 46 49 24 29 29 3a  e3 49 3d 31 b8 4e 4f 52  |e(FI$)):.I=1.NOR|
00000b20  25 3a cf 23 58 3d 28 49  2d 31 29 2a 52 45 43 25  |%:.#X=(I-1)*REC%|
00000b30  2b 54 49 25 3a e8 23 58  2c 4e 24 3a e7 54 24 3d  |+TI%:.#X,N$:.T$=|
00000b40  4e 24 8c 43 52 25 3d 49  3a e5 8d 64 4e 44 0d 02  |N$.CR%=I:..dND..|
00000b50  f8 0c ed 49 3a e5 8d 44  62 42 0d 03 02 72 58 3d  |...I:..DbB...rX=|
00000b60  33 31 3a 59 3d 31 35 3a  57 25 3d 33 30 3a 4c 25  |31:Y=15:W%=30:L%|
00000b70  3d 32 3a f2 4c 57 4e 3a  f1 8a 33 32 2c 31 36 29  |=2:.LWN:..32,16)|
00000b80  3b 22 53 65 6c 65 63 74  20 52 65 63 6f 72 64 20  |;"Select Record |
00000b90  66 6f 72 20 55 70 64 61  74 69 6e 67 2e 22 3b 8a  |for Updating.";.|
00000ba0  33 32 2c 31 37 29 3b 22  45 6e 74 65 72 20 4e 75  |32,17);"Enter Nu|
00000bb0  6d 62 65 72 3a 20 22 3a  58 3d 34 35 3a 59 3d 31  |mber: ":X=45:Y=1|
00000bc0  37 3a 4c 25 3d 38 3a f2  54 45 58 54 0d 03 0c 23  |7:L%=8:.TEXT...#|
00000bd0  43 52 25 3d bb 28 54 24  29 3a e7 43 52 25 3c 31  |CR%=.(T$):.CR%<1|
00000be0  84 43 52 25 3e 4e 4f 52  25 8c e5 8d 44 62 42 0d  |.CR%>NOR%...DbB.|
00000bf0  03 16 57 e7 53 4f 24 3d  22 31 22 8c ff 22 43 4c  |..W.SO$="1".."CL|
00000c00  4f 53 45 22 3a 58 3d ad  28 a4 4d 79 46 69 6c 65  |OSE":X=.(.MyFile|
00000c10  28 46 49 24 29 29 3a cf  23 58 3d 28 43 52 25 2a  |(FI$)):.#X=(CR%*|
00000c20  52 45 43 25 29 2d 31 30  3a e8 23 58 2c 4c 49 4e  |REC%)-10:.#X,LIN|
00000c30  24 3a 43 52 25 3d bb 28  4c 49 4e 24 29 3a ff 22  |$:CR%=.(LIN$):."|
00000c40  43 4c 4f 53 45 22 0d 03  20 09 e5 8d 64 4e 44 0d  |CLOSE".. ...dND.|
00000c50  03 2a 05 fa 0d 03 34 09  dd f2 4c 57 4e 0d 03 3e  |.*....4...LWN..>|
00000c60  79 f1 8a 58 2c 59 29 3b  bd 28 31 35 34 29 3b c4  |y..X,Y);.(154);.|
00000c70  57 25 2c bd 28 31 35 39  29 29 3b bd 28 31 35 38  |W%,.(159));.(158|
00000c80  29 3a e3 49 3d 59 2b 31  b8 59 2b 4c 25 3a f1 8a  |):.I=Y+1.Y+L%:..|
00000c90  58 2c 49 29 3b bd 28 31  35 35 29 3b c4 57 25 2c  |X,I);.(155);.W%,|
00000ca0  22 20 22 29 3b bd 28 31  35 37 29 3a ed 49 3a f1  |" ");.(157):.I:.|
00000cb0  8a 58 2c 59 2b 28 4c 25  2b 31 29 29 3b bd 28 31  |.X,Y+(L%+1));.(1|
00000cc0  35 36 29 3b c4 57 25 2c  bd 28 31 36 30 29 29 3b  |56);.W%,.(160));|
00000cd0  bd 28 31 36 31 29 0d 03  48 05 e1 0d 03 52 46 db  |.(161)..H....RF.|
00000ce0  3a f1 8a 32 2c 32 29 3b  22 41 75 74 6f 6d 61 74  |:..2,2);"Automat|
00000cf0  69 63 20 4d 6f 64 69 66  79 22 3b 8a 32 2c 33 29  |ic Modify";.2,3)|
00000d00  3b c4 31 36 2c bd 28 32  34 31 29 29 3a f2 53 45  |;.16,.(241)):.SE|
00000d10  4c 3a 43 46 25 3d 53 46  25 3a f2 46 4f 50 4f 55  |L:CF%=SF%:.FOPOU|
00000d20  54 0d 03 5c 29 e7 54 59  24 3d 22 37 22 84 54 59  |T..\).TY$="7".TY|
00000d30  24 3d 22 38 22 84 54 59  24 3d 22 30 22 8c e5 8d  |$="8".TY$="0"...|
00000d40  44 66 43 3a 8b e5 8d 44  62 42 0d 03 66 81 58 3d  |DfC:...DbB..f.X=|
00000d50  32 3a 59 3d 37 3a 4c 25  3d 33 30 3a f1 8a 32 2c  |2:Y=7:L%=30:..2,|
00000d60  36 29 3b 22 45 6e 74 65  72 20 6d 6f 64 69 66 69  |6);"Enter modifi|
00000d70  63 61 74 69 6f 6e 20 66  6f 72 6d 75 6c 61 3a 22  |cation formula:"|
00000d80  3a f2 54 45 58 54 3a 4e  4e 24 3d 54 24 3a f1 8a  |:.TEXT:NN$=T$:..|
00000d90  32 2c 39 29 3b 22 45 6e  74 65 72 20 72 6f 75 6e  |2,9);"Enter roun|
00000da0  64 69 6e 67 20 66 69 67  75 72 65 3a 22 3a 58 3d  |ding figure:":X=|
00000db0  32 3a 59 3d 31 30 3a 4c  25 3d 31 3a f2 54 45 58  |2:Y=10:L%=1:.TEX|
00000dc0  54 3a 54 52 4d 3d bb 28  54 24 29 0d 03 70 11 e7  |T:TRM=.(T$)..p..|
00000dd0  4e 4e 24 3d 22 22 8c e5  8d 44 62 42 0d 03 7a 0b  |NN$=""...DbB..z.|
00000de0  ee 85 e5 8d 74 62 43 0d  03 84 85 ff 22 43 4c 4f  |....tbC....."CLO|
00000df0  53 45 22 3a 43 3d ad 28  a4 4d 79 46 69 6c 65 28  |SE":C=.(.MyFile(|
00000e00  46 49 24 29 29 3a e3 49  3d 31 b8 4e 4f 52 25 3a  |FI$)):.I=1.NOR%:|
00000e10  cf 23 43 3d 28 49 2d 31  29 2a 52 45 43 25 2b 54  |.#C=(I-1)*REC%+T|
00000e20  49 25 3a e8 23 43 2c 4e  24 3a 43 4f 4e 54 45 4e  |I%:.#C,N$:CONTEN|
00000e30  54 53 3d bb 28 4e 24 29  3a 46 54 3d a0 28 4e 24  |TS=.(N$):FT=.(N$|
00000e40  2b 4e 4e 24 29 3a 4e 24  3d c3 28 46 54 29 3a f2  |+NN$):N$=.(FT):.|
00000e50  52 4f 55 4e 44 3a e7 a9  28 4e 24 29 3e 49 4e 25  |ROUND:..(N$)>IN%|
00000e60  8c 4e 24 3d c0 4e 24 2c  49 4e 25 29 0d 03 8e 5c  |.N$=.N$,IN%)...\|
00000e70  cf 23 43 3d 28 49 2d 31  29 2a 52 45 43 25 2b 54  |.#C=(I-1)*REC%+T|
00000e80  49 25 3a f1 23 43 2c 4e  24 3a ed 49 3a ff 22 43  |I%:.#C,N$:.I:."C|
00000e90  4c 4f 53 45 22 3a db 3a  f1 8a 32 2c 32 29 3b 22  |LOSE":.:..2,2);"|
00000ea0  41 6c 6c 20 72 65 63 6f  72 64 73 20 68 61 76 65  |All records have|
00000eb0  20 62 65 65 6e 20 6d 6f  64 69 66 69 65 64 2e 22  | been modified."|
00000ec0  3a ee 85 e5 8d 54 6a 4d  0d 03 98 09 e5 8d 44 62  |:....TjM......Db|
00000ed0  42 0d 03 a2 14 ff 22 43  4c 4f 53 45 22 3a ee 85  |B....."CLOSE":..|
00000ee0  e5 8d 54 6a 4d 0d 03 ac  5f db 3a f1 8a 32 2c 32  |..TjM..._.:..2,2|
00000ef0  29 3b 22 45 72 72 6f 72  20 69 6e 20 65 76 61 6c  |);"Error in eval|
00000f00  75 61 74 69 6f 6e 20 6f  66 20 66 6f 72 6d 75 6c  |uation of formul|
00000f10  61 20 69 6e 20 72 65 63  6f 72 64 20 22 3b 49 3b  |a in record ";I;|
00000f20  22 2e 22 3b 8a 32 2c 33  29 3b 22 28 22 3b 46 4c  |".";.2,3);"(";FL|
00000f30  24 3b 22 20 3d 20 22 3b  4e 24 3b 22 29 22 3a e5  |$;" = ";N$;")":.|
00000f40  8d 44 62 42 0d 03 b6 44  db 3a f1 8a 32 2c 32 29  |.DbB...D.:..2,2)|
00000f50  3b 22 53 65 61 72 63 68  2f 52 65 70 6c 61 63 65  |;"Search/Replace|
00000f60  22 3b 8a 32 2c 33 29 3b  c4 31 34 2c bd 28 32 34  |";.2,3);.14,.(24|
00000f70  31 29 29 3a f2 53 45 4c  3a 43 46 25 3d 53 46 25  |1)):.SEL:CF%=SF%|
00000f80  3a f2 46 4f 50 4f 55 54  0d 03 c0 64 58 3d 30 3a  |:.FOPOUT...dX=0:|
00000f90  59 3d 31 37 3a 57 25 3d  37 38 3a 4c 25 3d 34 3a  |Y=17:W%=78:L%=4:|
00000fa0  f2 4c 57 4e 3a f1 8a 31  2c 31 38 29 3b 22 45 6e  |.LWN:..1,18);"En|
00000fb0  74 65 72 20 43 6f 6e 73  74 61 6e 74 2f 45 78 70  |ter Constant/Exp|
00000fc0  72 65 73 73 69 6f 6e 2f  44 61 74 65 2f 54 69 6d  |ression/Date/Tim|
00000fd0  65 20 74 6f 20 73 65 61  72 63 68 20 66 6f 72 3a  |e to search for:|
00000fe0  22 3a 58 32 3d 31 3a 59  32 3d 31 39 0d 03 ca 17  |":X2=1:Y2=19....|
00000ff0  e7 54 59 24 3d 22 35 22  8c f2 54 59 35 3a e5 8d  |.TY$="5"..TY5:..|
00001000  64 72 43 0d 03 d4 17 e7  54 59 24 3d 22 36 22 8c  |drC.....TY$="6".|
00001010  f2 54 59 36 3a e5 8d 64  72 43 0d 03 de 2e e7 54  |.TY6:..drC.....T|
00001020  59 24 3d 22 37 22 84 54  59 24 3d 22 38 22 84 54  |Y$="7".TY$="8".T|
00001030  59 24 3d 22 30 22 8c 48  49 25 3d 31 38 3a f2 54  |Y$="0".HI%=18:.T|
00001040  59 37 3a e5 8d 64 72 43  0d 03 e8 28 58 3d 58 32  |Y7:..drC...(X=X2|
00001050  3a 59 3d 59 32 3a 4c 25  3d 49 4e 25 3a f2 54 45  |:Y=Y2:L%=IN%:.TE|
00001060  58 54 3a 53 52 31 24 3d  54 24 3a e5 8d 64 7c 43  |XT:SR1$=T$:..d|C|
00001070  0d 03 f2 0b 53 52 31 24  3d 4e 24 0d 03 fc 4d f1  |....SR1$=N$...M.|
00001080  8a 31 2c 32 30 29 3b 22  45 6e 74 65 72 20 43 6f  |.1,20);"Enter Co|
00001090  6e 73 74 61 6e 74 2f 45  78 70 72 65 73 73 69 6f  |nstant/Expressio|
000010a0  6e 2f 44 61 74 65 2f 54  69 6d 65 20 74 6f 20 72  |n/Date/Time to r|
000010b0  65 70 6c 61 63 65 20 77  69 74 68 3a 22 3a 58 32  |eplace with:":X2|
000010c0  3d 31 3a 59 32 3d 32 31  0d 04 06 17 e7 54 59 24  |=1:Y2=21.....TY$|
000010d0  3d 22 35 22 8c f2 54 59  35 3a e5 8d 54 6e 44 0d  |="5"..TY5:..TnD.|
000010e0  04 10 17 e7 54 59 24 3d  22 36 22 8c f2 54 59 36  |....TY$="6"..TY6|
000010f0  3a e5 8d 54 6e 44 0d 04  1a 2e e7 54 59 24 3d 22  |:..TnD.....TY$="|
00001100  37 22 84 54 59 24 3d 22  38 22 84 54 59 24 3d 22  |7".TY$="8".TY$="|
00001110  30 22 8c 48 49 25 3d 31  38 3a f2 54 59 37 3a e5  |0".HI%=18:.TY7:.|
00001120  8d 54 6e 44 0d 04 24 28  58 3d 58 32 3a 59 3d 59  |.TnD..$(X=X2:Y=Y|
00001130  32 3a 4c 25 3d 49 4e 25  3a f2 54 45 58 54 3a 53  |2:L%=IN%:.TEXT:S|
00001140  52 32 24 3d 54 24 3a e5  8d 54 78 44 0d 04 2e 0b  |R2$=T$:..TxD....|
00001150  53 52 32 24 3d 4e 24 0d  04 38 7c db 3a f1 22 50  |SR2$=N$..8|.:."P|
00001160  65 72 66 6f 72 6d 69 6e  67 20 73 65 61 72 63 68  |erforming search|
00001170  2f 72 65 70 6c 61 63 65  2e 2e 2e 2e 2e 22 27 3a  |/replace....."':|
00001180  ff 22 43 4c 4f 53 45 22  3a 58 3d ad 28 a4 4d 79  |."CLOSE":X=.(.My|
00001190  46 69 6c 65 28 46 49 24  29 29 3a e3 49 3d 31 b8  |File(FI$)):.I=1.|
000011a0  4e 4f 52 25 3a 46 4f 25  3d 30 3a cf 23 58 3d 28  |NOR%:FO%=0:.#X=(|
000011b0  49 2d 31 29 2a 52 45 43  25 2b 54 49 25 3a e8 23  |I-1)*REC%+TI%:.#|
000011c0  58 2c 4e 24 3a e7 4e 24  3d 53 52 31 24 8c 46 4f  |X,N$:.N$=SR1$.FO|
000011d0  25 3d 31 0d 04 42 2c e7  c0 53 52 31 24 2c 31 29  |%=1..B,..SR1$,1)|
000011e0  3d 22 2a 22 8c 47 3d a7  4e 24 2c c1 53 52 31 24  |="*".G=.N$,.SR1$|
000011f0  2c 32 29 29 3a e7 47 3e  30 8c 46 4f 25 3d 31 0d  |,2)):.G>0.FO%=1.|
00001200  04 4c 4d e7 46 4f 25 3d  31 8c cf 23 58 3d 28 49  |.LM.FO%=1..#X=(I|
00001210  2d 31 29 2a 52 45 43 25  2b 54 49 25 3a f1 23 58  |-1)*REC%+TI%:.#X|
00001220  2c 53 52 32 24 3a f1 22  52 65 70 6c 61 63 69 6e  |,SR2$:."Replacin|
00001230  67 20 22 3b 53 52 31 24  3b 22 20 69 6e 20 72 65  |g ";SR1$;" in re|
00001240  63 6f 72 64 20 22 3b 49  3b 22 2e 22 0d 04 56 0c  |cord ";I;"."..V.|
00001250  ed 49 3a e5 8d 44 62 42  0d 04 60 09 dd f2 45 4e  |.I:..DbB..`...EN|
00001260  46 0d 04 6a 0f 58 35 3d  34 37 3a 59 35 3d 31 36  |F..j.X5=47:Y5=16|
00001270  0d 04 74 50 f1 8a 33 31  2c 31 36 29 3b 22 45 6e  |..tP..31,16);"En|
00001280  74 65 72 20 46 69 65 6c  64 6e 61 6d 65 3a 22 3a  |ter Fieldname:":|
00001290  58 3d 34 37 3a 59 3d 31  36 3a 4c 25 3d 32 30 3a  |X=47:Y=16:L%=20:|
000012a0  f2 54 45 58 54 3a ff 22  43 4c 4f 53 45 22 3a 58  |.TEXT:."CLOSE":X|
000012b0  3d ad 28 a4 4d 79 46 69  6c 65 28 46 4f 24 29 29  |=.(.MyFile(FO$))|
000012c0  0d 04 7e 94 e3 49 3d 31  b8 4e 4f 46 25 3a cf 23  |..~..I=1.NOF%:.#|
000012d0  58 3d 28 49 2d 31 29 2a  36 31 2b 36 33 3a e8 23  |X=(I-1)*61+63:.#|
000012e0  58 2c 46 4c 24 3a e7 46  4c 24 3d 54 24 8c cf 23  |X,FL$:.FL$=T$..#|
000012f0  58 3d 28 49 2d 31 29 2a  36 31 2b 31 30 31 3a e8  |X=(I-1)*61+101:.|
00001300  23 58 2c 54 59 24 3a cf  23 58 3d 28 49 2d 31 29  |#X,TY$:.#X=(I-1)|
00001310  2a 36 31 2b 31 30 39 3a  e8 23 58 2c 54 49 24 3a  |*61+109:.#X,TI$:|
00001320  54 49 25 3d bb 28 54 49  24 29 3a cf 23 58 3d 28  |TI%=.(TI$):.#X=(|
00001330  49 2d 31 29 2a 36 31 2b  31 30 34 3a e8 23 58 2c  |I-1)*61+104:.#X,|
00001340  49 4e 24 3a 49 4e 25 3d  bb 28 49 4e 24 29 3a e5  |IN$:IN%=.(IN$):.|
00001350  8d 74 52 44 0d 04 88 0c  ed 49 3a e5 8d 44 62 42  |.tRD.....I:..DbB|
00001360  0d 04 92 05 e1 0d 04 9c  60 dd f2 49 4e 46 4f 3a  |........`..INFO:|
00001370  fb 31 32 38 3a f1 8a 32  2c 32 34 29 3b 22 4d 6f  |.128:..2,24);"Mo|
00001380  64 69 66 79 69 6e 67 20  72 65 63 6f 72 64 20 22  |difying record "|
00001390  3b 43 52 25 3b 22 20 69  6e 20 22 3b 46 49 24 3a  |;CR%;" in ";FI$:|
000013a0  fb 31 33 31 3a f1 8a 37  31 2c 30 29 3b 22 50 41  |.131:..71,0);"PA|
000013b0  47 45 22 3b bd 28 32 34  31 29 3b 50 50 25 3a fb  |GE";.(241);PP%:.|
000013c0  46 47 25 3a e1 0d 04 a6  54 f1 8a 30 2c 32 33 29  |FG%:....T..0,23)|
000013d0  3b 22 4d 4f 44 45 3a 22  3b 8a 30 2c 32 35 29 3b  |;"MODE:";.0,25);|
000013e0  22 46 49 4c 45 3a 22 3b  8a 30 2c 32 36 29 3b 22  |"FILE:";.0,26);"|
000013f0  52 45 43 4f 52 44 3a 22  3b 8a 30 2c 32 37 29 3b  |RECORD:";.0,27);|
00001400  22 46 49 45 4c 44 3a 22  3b 8a 30 2c 32 38 29 3b  |"FIELD:";.0,28);|
00001410  22 4c 45 4e 47 54 48 3a  22 0d 04 b0 67 f1 8a 38  |"LENGTH:"...g..8|
00001420  2c 32 33 29 3b 22 55 50  44 41 54 45 22 3b 8a 38  |,23);"UPDATE";.8|
00001430  2c 32 35 29 3b 46 49 24  3b 8a 38 2c 32 36 29 3b  |,25);FI$;.8,26);|
00001440  43 52 25 3b 8a 38 2c 32  37 29 3b 43 46 25 3b 22  |CR%;.8,27);CF%;"|
00001450  20 20 20 20 22 3b 8a 38  2c 32 38 29 3b 49 4e 25  |    ";.8,28);IN%|
00001460  3b 22 20 20 20 20 22 3b  8a 37 31 2c 30 29 3b 22  |;"    ";.71,0);"|
00001470  50 41 47 45 22 3b bd 28  31 36 32 29 3b 50 25 3b  |PAGE";.(162);P%;|
00001480  0d 04 ba 05 e1 0d 04 c4  0f f2 4d 41 49 4e 3a e5  |..........MAIN:.|
00001490  8d 44 62 42 0d 04 ce 4b  ff 22 43 4c 4f 53 45 22  |.DbB...K."CLOSE"|
000014a0  3a 41 3d ad 28 a4 4d 79  46 69 6c 65 28 46 4f 24  |:A=.(.MyFile(FO$|
000014b0  29 29 3a 43 43 3d ad 28  a4 4d 79 46 69 6c 65 28  |)):CC=.(.MyFile(|
000014c0  46 49 24 29 29 3a 42 45  25 3d 30 3a e7 4d 43 41  |FI$)):BE%=0:.MCA|
000014d0  25 3e 30 8c 46 41 24 3d  46 49 24 2b 22 42 22 0d  |%>0.FA$=FI$+"B".|
000014e0  04 d8 1a 50 50 25 3d 31  3a 4d 43 3d 31 3a db 3a  |...PP%=1:MC=1:.:|
000014f0  f2 53 43 3a 43 46 25 3d  31 0d 04 e2 4f f2 46 4f  |.SC:CF%=1...O.FO|
00001500  50 4f 55 54 3a f2 49 4e  46 4f 3a 58 35 3d 58 32  |POUT:.INFO:X5=X2|
00001510  3a 59 35 3d 59 32 3a f1  8a 58 32 2c 59 32 29 3b  |:Y5=Y2:..X2,Y2);|
00001520  c4 49 4e 25 2c 22 20 22  29 3a e7 4e 50 24 3d 22  |.IN%," "):.NP$="|
00001530  31 22 8c db 3a 50 50 25  3d 50 50 25 2b 31 3a f2  |1"..:PP%=PP%+1:.|
00001540  53 43 3a f2 49 4e 46 4f  0d 04 ec 24 cf 23 43 43  |SC:.INFO...$.#CC|
00001550  3d 28 43 52 25 2d 31 29  2a 52 45 43 25 2b 54 49  |=(CR%-1)*REC%+TI|
00001560  25 3a e8 23 43 43 2c 54  45 4d 50 24 0d 04 f6 10  |%:.#CC,TEMP$....|
00001570  f1 8a 58 31 2c 59 31 29  3b 46 4c 24 0d 05 00 09  |..X1,Y1);FL$....|
00001580  4e 55 25 3d 30 0d 05 0a  36 e7 c0 54 52 24 2c 31  |NU%=0...6..TR$,1|
00001590  29 3d 22 31 22 20 84 20  c0 54 52 24 2c 31 29 3d  |)="1" . .TR$,1)=|
000015a0  22 32 22 8c 50 55 54 24  3d 22 49 22 3a 52 4c 25  |"2".PUT$="I":RL%|
000015b0  3d 31 33 30 30 3a e5 8d  54 4a 4f 0d 05 14 28 e7  |=1300:..TJO...(.|
000015c0  54 59 24 3d 22 31 22 84  54 59 24 3d 22 39 22 8c  |TY$="1".TY$="9".|
000015d0  4c 4f 25 3d 33 33 3a 48  49 25 3d 32 35 35 3a f2  |LO%=33:HI%=255:.|
000015e0  54 59 31 0d 05 1e 20 e7  54 59 24 3d 22 32 22 8c  |TY1... .TY$="2".|
000015f0  4c 4f 25 3d 33 33 3a 48  49 25 3d 32 35 35 3a f2  |LO%=33:HI%=255:.|
00001600  54 59 31 0d 05 28 11 e7  54 59 24 3d 22 33 22 8c  |TY1..(..TY$="3".|
00001610  f2 54 59 33 0d 05 32 11  e7 54 59 24 3d 22 34 22  |.TY3..2..TY$="4"|
00001620  8c f2 54 59 34 0d 05 3c  11 e7 54 59 24 3d 22 35  |..TY4..<..TY$="5|
00001630  22 8c f2 54 59 35 0d 05  46 11 e7 54 59 24 3d 22  |"..TY5..F..TY$="|
00001640  36 22 8c f2 54 59 36 0d  05 50 17 e7 54 59 24 3d  |6"..TY6..P..TY$=|
00001650  22 37 22 8c 48 49 25 3d  39 3a f2 54 59 37 0d 05  |"7".HI%=9:.TY7..|
00001660  5a 18 e7 54 59 24 3d 22  38 22 8c 48 49 25 3d 31  |Z..TY$="8".HI%=1|
00001670  38 3a f2 54 59 37 0d 05  64 0c 49 4e 4e 25 3d 31  |8:.TY7..d.INN%=1|
00001680  30 30 0d 05 6e 36 e7 c2  54 52 24 2c 31 29 3d 22  |00..n6..TR$,1)="|
00001690  31 22 20 84 20 c2 54 52  24 2c 31 29 3d 22 32 22  |1" . .TR$,1)="2"|
000016a0  8c 50 55 54 24 3d 22 4f  22 3a 52 4c 25 3d 31 34  |.PUT$="O":RL%=14|
000016b0  30 30 3a e5 8d 54 4a 4f  0d 05 78 21 cf 23 43 43  |00:..TJO..x!.#CC|
000016c0  3d 28 43 52 25 2d 31 29  2a 52 45 43 25 2b 54 49  |=(CR%-1)*REC%+TI|
000016d0  25 3a f1 23 43 43 2c 4e  24 0d 05 82 24 43 46 25  |%:.#CC,N$...$CF%|
000016e0  3d 43 46 25 2b 31 3a e7  43 46 25 3e 4e 4f 46 25  |=CF%+1:.CF%>NOF%|
000016f0  8c e5 8d 74 4c 45 3a 8b  e5 8d 64 62 44 0d 05 8c  |...tLE:...dbD...|
00001700  09 e5 8d 44 62 42 0d 05  96 11 dd f2 54 59 31 3a  |...DbB......TY1:|
00001710  46 4c 45 25 3d 58 35 0d  05 a0 16 4e 24 3d 22 22  |FLE%=X5....N$=""|
00001720  3a 50 54 3d 30 3a 43 4c  24 3d 22 20 22 0d 05 aa  |:PT=0:CL$=" "...|
00001730  2a 43 4c 24 3d 22 22 3a  e7 50 54 3c 49 4e 25 8c  |*CL$="":.PT<IN%.|
00001740  f1 8a 58 32 2c 59 32 29  3b bd 28 32 35 35 29 3a  |..X2,Y2);.(255):|
00001750  43 4c 24 3d 22 20 22 0d  05 b4 0e 49 4e 3d a5 3a  |CL$=" "....IN=.:|
00001760  e4 8d 64 40 48 0d 05 be  1d e7 49 4e 3d 31 33 8c  |..d@H.....IN=13.|
00001770  f1 8a 58 32 2c 59 32 29  3b 43 4c 24 3a e5 8d 54  |..X2,Y2);CL$:..T|
00001780  76 46 0d 05 c8 11 e7 49  4e 3d 31 32 37 8c e5 8d  |vF.....IN=127...|
00001790  54 4e 46 0d 05 d2 10 e7  49 4e 3d 33 32 8c e5 8d  |TNF.....IN=32...|
000017a0  64 70 45 0d 05 dc 2c 20  e7 20 54 59 24 3d 22 32  |dpE..., . TY$="2|
000017b0  22 8c e7 20 49 4e 3e 3d  39 37 20 80 20 49 4e 3c  |".. IN>=97 . IN<|
000017c0  3d 31 32 32 20 8c 20 49  4e 3d 49 4e 2d 33 32 0d  |=122 . IN=IN-32.|
000017d0  05 e6 1b e7 49 4e 3c 4c  4f 25 84 49 4e 3e 48 49  |....IN<LO%.IN>HI|
000017e0  25 8c ef 37 3a e5 8d 74  74 45 0d 05 f0 11 e7 50  |%..7:..ttE.....P|
000017f0  54 3d 49 4e 25 8c e5 8d  74 74 45 0d 05 fa 45 f1  |T=IN%...ttE...E.|
00001800  8a 58 32 2c 59 32 29 3b  bd 28 49 4e 29 3a 4e 24  |.X2,Y2);.(IN):N$|
00001810  3d 4e 24 2b bd 28 49 4e  29 3a 50 54 3d 50 54 2b  |=N$+.(IN):PT=PT+|
00001820  31 3a 58 32 3d 58 32 2b  31 3a e7 58 32 3e 37 39  |1:X2=X2+1:.X2>79|
00001830  8c 59 32 3d 59 32 2b 31  3a 58 32 3d 46 4c 45 25  |.Y2=Y2+1:X2=FLE%|
00001840  0d 06 04 09 e5 8d 74 6a  45 0d 06 0e 0f e7 50 54  |......tjE.....PT|
00001850  3d 30 8c e5 8d 74 6a 45  0d 06 18 18 e7 50 54 3c  |=0...tjE.....PT<|
00001860  49 4e 25 8c f1 8a 58 32  2c 59 32 29 3b 22 20 22  |IN%...X2,Y2);" "|
00001870  0d 06 22 35 50 54 3d 50  54 2d 31 3a 4e 24 3d c0  |.."5PT=PT-1:N$=.|
00001880  4e 24 2c 50 54 29 3a 58  32 3d 58 32 2d 31 3a e7  |N$,PT):X2=X2-1:.|
00001890  58 32 3c 46 4c 45 25 8c  59 32 3d 59 32 2d 31 3a  |X2<FLE%.Y2=Y2-1:|
000018a0  58 32 3d 37 39 0d 06 2c  09 e5 8d 74 6a 45 0d 06  |X2=79..,...tjE..|
000018b0  36 05 e1 0d 06 40 09 dd  f2 54 59 37 0d 06 4a 33  |6....@...TY7..J3|
000018c0  58 32 3d 58 32 2b 28 48  49 25 2d 31 29 3a 58 33  |X2=X2+(HI%-1):X3|
000018d0  3d 58 32 3a 4e 24 3d 22  22 3a 50 54 3d 30 3a 50  |=X2:N$="":PT=0:P|
000018e0  4f 3d 30 3a e7 48 49 25  3d 39 8c 50 4f 3d 31 0d  |O=0:.HI%=9.PO=1.|
000018f0  06 54 16 e7 50 54 3d 30  8c f1 8a 58 32 2c 59 32  |.T..PT=0...X2,Y2|
00001900  29 3b 22 30 22 0d 06 5e  0e 49 4e 3d a5 3a e4 8d  |);"0"..^.IN=.:..|
00001910  64 40 48 0d 06 68 10 e7  49 4e 3d 31 33 8c e5 8d  |d@H..h..IN=13...|
00001920  64 74 46 0d 06 72 11 e7  49 4e 3d 31 32 37 8c e5  |dtF..r..IN=127..|
00001930  8d 74 78 46 0d 06 7c 1a  e7 49 4e 3d 34 36 80 50  |.txF..|..IN=46.P|
00001940  4f 3d 30 8c 50 4f 3d 31  3a e5 8d 74 64 46 0d 06  |O=0.PO=1:..tdF..|
00001950  86 15 e7 49 4e 3d 34 36  80 50 4f 3d 31 8c e5 8d  |...IN=46.PO=1...|
00001960  44 54 46 0d 06 90 15 e7  49 4e 3d 34 35 80 50 54  |DTF.....IN=45.PT|
00001970  3d 30 8c e5 8d 74 6e 46  0d 06 9a 19 e7 49 4e 3c  |=0...tnF.....IN<|
00001980  34 38 84 49 4e 3e 35 37  8c ef 37 3a e5 8d 44 54  |48.IN>57..7:..DT|
00001990  46 0d 06 a4 11 e7 50 54  3d 48 49 25 8c e5 8d 44  |F.....PT=HI%...D|
000019a0  54 46 0d 06 ae 31 4e 24  3d 4e 24 2b bd 28 49 4e  |TF...1N$=N$+.(IN|
000019b0  29 3a 50 54 3d 50 54 2b  31 3a f1 8a 58 32 2c 59  |):PT=PT+1:..X2,Y|
000019c0  32 29 3b 4e 24 3a 58 32  3d 58 32 2d 31 3a e5 8d  |2);N$:X2=X2-1:..|
000019d0  44 54 46 0d 06 b8 0f e7  50 54 3d 30 8c e5 8d 44  |DTF.....PT=0...D|
000019e0  54 46 0d 06 c2 17 e7 c1  4e 24 2c 50 54 2c 31 29  |TF......N$,PT,1)|
000019f0  3d 22 2e 22 8c 50 4f 3d  30 0d 06 cc 47 58 32 3d  |=".".PO=0...GX2=|
00001a00  58 32 2b 31 3a f1 8a 58  32 2c 59 32 29 3b 22 20  |X2+1:..X2,Y2);" |
00001a10  22 3a 58 32 3d 58 32 2b  31 3a 50 54 3d 50 54 2d  |":X2=X2+1:PT=PT-|
00001a20  31 3a 4e 24 3d c0 4e 24  2c 50 54 29 3a e7 4e 24  |1:N$=.N$,PT):.N$|
00001a30  3c 3e 22 22 8c f1 8a 58  32 2c 59 32 29 3b 4e 24  |<>""...X2,Y2);N$|
00001a40  0d 06 d6 0b 58 32 3d 58  32 2d 31 0d 06 e0 11 e7  |....X2=X2-1.....|
00001a50  58 32 3e 58 33 20 8c 58  32 3d 58 33 0d 06 ea 09  |X2>X3 .X2=X3....|
00001a60  e5 8d 44 54 46 0d 06 f4  16 e7 4e 24 3d 22 22 8c  |..DTF.....N$="".|
00001a70  4e 24 3d 22 30 22 3a 49  50 3d 31 0d 06 fe 05 e1  |N$="0":IP=1.....|
00001a80  0d 07 08 1b dd f2 54 59  33 3a 4e 3d ad 28 a4 4d  |......TY3:N=.(.M|
00001a90  79 46 69 6c 65 28 46 41  24 29 29 0d 07 12 07 4c  |yFile(FA$))....L|
00001aa0  3d 31 0d 07 1c 2b cf 23  4e 3d 28 4c 2d 31 29 2a  |=1...+.#N=(L-1)*|
00001ab0  32 34 35 3a e8 23 4e 2c  4d 43 24 3a e7 4d 43 24  |245:.#N,MC$:.MC$|
00001ac0  3d c3 28 43 46 25 29 8c  e5 8d 54 70 47 0d 07 26  |=.(CF%)...TpG..&|
00001ad0  0f 4c 3d 4c 2b 31 3a e5  8d 54 5c 47 0d 07 30 2e  |.L=L+1:..T\G..0.|
00001ae0  cf 23 4e 3d 28 4c 2d 31  29 2a 32 34 35 2b 35 3a  |.#N=(L-1)*245+5:|
00001af0  e8 23 4e 2c 4d 43 24 3a  43 4f 25 3d 31 3a 4c 3d  |.#N,MC$:CO%=1:L=|
00001b00  31 3a 57 25 3d 30 3a d9  23 4e 0d 07 3a 1f 4c 4c  |1:W%=0:.#N..:.LL|
00001b10  3d a7 4d 43 24 2c bd 28  32 35 34 29 29 3a e7 4c  |=.MC$,.(254)):.L|
00001b20  4c 3d 30 8c e5 8d 44 58  47 0d 07 44 57 4d 45 24  |L=0...DXG..DWME$|
00001b30  28 43 4f 25 29 3d c0 4d  43 24 2c 4c 4c 2d 31 29  |(CO%)=.MC$,LL-1)|
00001b40  3a 4c 3d 4c 4c 2b 31 3a  4d 43 24 3d c1 4d 43 24  |:L=LL+1:MC$=.MC$|
00001b50  2c 4c 29 3a 43 4f 25 3d  43 4f 25 2b 31 3a e7 a9  |,L):CO%=CO%+1:..|
00001b60  28 4d 45 24 28 43 4f 25  2d 31 29 29 3e 57 25 8c  |(ME$(CO%-1))>W%.|
00001b70  57 25 3d a9 28 4d 45 24  28 43 4f 25 2d 31 29 29  |W%=.(ME$(CO%-1))|
00001b80  0d 07 4e 09 e5 8d 54 7a  47 0d 07 58 29 58 58 3d  |..N...TzG..X)XX=|
00001b90  58 32 3a 59 3d 59 32 3a  57 25 3d 57 25 2b 33 3a  |X2:Y=Y2:W%=W%+3:|
00001ba0  4c 25 3d 43 4f 25 2d 31  3a 58 3d 58 58 3a f2 4c  |L%=CO%-1:X=XX:.L|
00001bb0  57 4e 0d 07 62 1b 58 58  3d 58 32 2b 31 3a 59 3d  |WN..b.XX=X2+1:Y=|
00001bc0  59 32 2b 31 3a f2 53 45  4c 45 43 54 4d 0d 07 6c  |Y2+1:.SELECTM..l|
00001bd0  32 4e 24 3d 4d 45 24 28  53 45 4c 25 29 3a e3 49  |2N$=ME$(SEL%):.I|
00001be0  3d 30 b8 43 4f 25 2b 32  3a f1 8a 58 32 2c 59 32  |=0.CO%+2:..X2,Y2|
00001bf0  2b 49 29 3b c4 32 31 2c  22 20 22 29 3a ed 49 0d  |+I);.21," "):.I.|
00001c00  07 76 11 f1 8a 58 32 2c  59 32 29 3b 4e 24 3a e1  |.v...X2,Y2);N$:.|
00001c10  0d 07 80 09 dd f2 54 59  35 0d 07 8a 1d f1 8a 58  |......TY5......X|
00001c20  32 2c 59 32 29 3b 22 2e  2e 2f 2e 2e 2f 2e 2e 22  |2,Y2);"../../.."|
00001c30  3a 4e 24 3d 22 22 0d 07  94 1a 58 33 3d 58 32 3a  |:N$=""....X3=X2:|
00001c40  f2 44 41 54 3a e7 44 45  3d 31 8c e5 8d 74 4a 47  |.DAT:.DE=1...tJG|
00001c50  0d 07 9e 27 4e 24 3d 4e  24 2b 44 41 54 24 3a 58  |...'N$=N$+DAT$:X|
00001c60  33 3d 58 32 2b 33 3a f2  44 41 54 3a e7 44 45 3d  |3=X2+3:.DAT:.DE=|
00001c70  31 8c e5 8d 74 4a 47 0d  07 a8 2f 4e 24 3d 4e 24  |1...tJG.../N$=N$|
00001c80  2b 22 2f 22 2b 44 41 54  24 2b 22 2f 22 3a 58 33  |+"/"+DAT$+"/":X3|
00001c90  3d 58 32 2b 36 3a f2 44  41 54 3a e7 44 45 3d 31  |=X2+6:.DAT:.DE=1|
00001ca0  8c e5 8d 74 4a 47 0d 07  b2 0e 4e 24 3d 4e 24 2b  |...tJG....N$=N$+|
00001cb0  44 41 54 24 0d 07 bc 1b  49 4e 3d a5 3a e4 8d 64  |DAT$....IN=.:..d|
00001cc0  40 48 3a e7 49 4e 3d 31  33 8c e5 8d 64 50 47 0d  |@H:.IN=13...dPG.|
00001cd0  07 c6 17 e7 49 4e 3d 31  32 37 8c e5 8d 74 4a 47  |....IN=127...tJG|
00001ce0  8b e5 8d 74 7c 47 0d 07  d0 1c f2 44 41 43 48 45  |...t|G.....DACHE|
00001cf0  4b 3a e7 44 41 54 25 3d  31 8c e5 8d 74 4a 47 3a  |K:.DAT%=1...tJG:|
00001d00  8b e1 0d 07 da 09 e5 8d  74 7c 47 0d 07 e4 09 dd  |........t|G.....|
00001d10  f2 44 41 54 0d 07 ee 16  44 45 3d 30 3a 44 41 54  |.DAT....DE=0:DAT|
00001d20  24 3d 22 22 3a 58 34 3d  58 33 0d 07 f8 21 49 4e  |$="":X4=X3...!IN|
00001d30  3d a5 3a e4 8d 64 40 48  3a e7 49 4e 3d 31 32 37  |=.:..d@H:.IN=127|
00001d40  8c 44 45 3d 31 3a e5 8d  54 60 48 0d 08 02 19 e7  |.DE=1:..T`H.....|
00001d50  49 4e 3c 34 38 84 49 4e  3e 35 37 8c ef 37 3a e5  |IN<48.IN>57..7:.|
00001d60  8d 64 78 47 0d 08 0c 3b  f1 8a 58 33 2c 59 32 29  |.dxG...;..X3,Y2)|
00001d70  3b bd 28 49 4e 29 3a 44  41 54 24 3d 44 41 54 24  |;.(IN):DAT$=DAT$|
00001d80  2b bd 28 49 4e 29 3a 58  33 3d 58 33 2b 31 3a e7  |+.(IN):X3=X3+1:.|
00001d90  58 33 3e 28 58 34 2b 31  29 8c e5 8d 54 60 48 0d  |X3>(X4+1)...T`H.|
00001da0  08 16 09 e5 8d 64 78 47  0d 08 20 05 e1 0d 08 2a  |.....dxG.. ....*|
00001db0  09 dd f2 54 59 36 0d 08  34 1a f1 8a 58 32 2c 59  |...TY6..4...X2,Y|
00001dc0  32 29 3b 22 2e 2e 3a 2e  2e 22 3a 4e 24 3d 22 22  |2);"..:..":N$=""|
00001dd0  0d 08 3e 1a 58 33 3d 58  32 3a f2 44 41 54 3a e7  |..>.X3=X2:.DAT:.|
00001de0  44 45 3d 31 8c e5 8d 54  74 48 0d 08 48 1f 4e 24  |DE=1...TtH..H.N$|
00001df0  3d 4e 24 2b 44 41 54 24  2b 22 3a 22 3a 58 33 3d  |=N$+DAT$+":":X3=|
00001e00  58 32 2b 33 3a f2 44 41  54 0d 08 52 0e 4e 24 3d  |X2+3:.DAT..R.N$=|
00001e10  4e 24 2b 44 41 54 24 0d  08 5c 1b 49 4e 3d a5 3a  |N$+DAT$..\.IN=.:|
00001e20  e4 8d 64 40 48 3a e7 49  4e 3d 31 33 8c e5 8d 44  |..d@H:.IN=13...D|
00001e30  70 48 0d 08 66 17 e7 49  4e 3d 31 32 37 8c e5 8d  |pH..f..IN=127...|
00001e40  54 74 48 8b e5 8d 44 5c  48 0d 08 70 1c f2 54 49  |TtH...D\H..p..TI|
00001e50  43 48 45 4b 3a e7 44 41  54 25 3d 31 8c e5 8d 54  |CHEK:.DAT%=1...T|
00001e60  74 48 3a 8b e1 0d 08 7a  09 dd f2 54 59 34 0d 08  |tH:....z...TY4..|
00001e70  84 08 49 4e 3d a5 0d 08  8e 2f e4 8d 64 40 48 3a  |..IN=..../..d@H:|
00001e80  4e 24 3d 22 22 3a e7 49  4e 3d 38 39 8c 4e 24 3d  |N$="":.IN=89.N$=|
00001e90  22 59 65 73 22 3a 8b e7  49 4e 3d 37 38 8c 4e 24  |"Yes":..IN=78.N$|
00001ea0  3d 22 4e 6f 22 0d 08 98  25 e7 49 4e 3d 31 32 31  |="No"...%.IN=121|
00001eb0  8c 4e 24 3d 22 59 65 73  22 3a 8b e7 49 4e 3d 31  |.N$="Yes":..IN=1|
00001ec0  31 30 8c 4e 24 3d 22 4e  6f 22 0d 08 a2 39 e7 4e  |10.N$="No"...9.N|
00001ed0  24 3d 22 22 8c e5 8d 74  44 48 3a 8b f1 8a 58 32  |$=""...tDH:...X2|
00001ee0  2c 59 32 29 3b 4e 24 3b  22 20 22 3a 49 4e 3d a5  |,Y2);N$;" ":IN=.|
00001ef0  3a e4 8d 64 40 48 3a e7  49 4e 3d 31 33 8c e5 8d  |:..d@H:.IN=13...|
00001f00  74 76 48 0d 08 ac 09 e5  8d 74 4e 48 0d 08 b6 05  |tvH......tNH....|
00001f10  e1 0d 08 c0 10 e7 42 45  25 3d 31 8c e5 8d 44 4c  |......BE%=1...DL|
00001f20  49 0d 08 ca 10 e7 43 46  25 3d 30 8c e5 8d 44 4c  |I.....CF%=0...DL|
00001f30  49 0d 08 d4 1a e7 49 4e  3d 31 33 36 8c 43 46 25  |I.....IN=136.CF%|
00001f40  3d 4e 4f 46 25 3a e5 8d  74 42 45 0d 08 de 11 e7  |=NOF%:..tBE.....|
00001f50  49 4e 3d 31 33 30 8c e5  8d 54 46 49 0d 08 e8 2c  |IN=130...TFI...,|
00001f60  e7 49 4e 3d 31 33 32 80  54 59 24 3d 22 35 22 8c  |.IN=132.TY$="5".|
00001f70  4e 24 3d 44 41 24 3a f1  8a 58 32 2c 59 32 29 3b  |N$=DA$:..X2,Y2);|
00001f80  4e 24 3a e5 8d 44 78 45  0d 08 f2 33 e7 49 4e 3d  |N$:..DxE...3.IN=|
00001f90  31 33 33 80 54 59 24 3d  22 36 22 8c 20 4e 24 3d  |133.TY$="6". N$=|
00001fa0  c1 91 24 2c 31 37 2c 35  29 3a f1 8a 58 32 2c 59  |..$,17,5):..X2,Y|
00001fb0  32 29 3b 4e 24 3a e5 8d  44 78 45 0d 08 fc 09 e5  |2);N$:..DxE.....|
00001fc0  8d 44 4c 49 0d 09 06 33  e7 43 46 25 3d 4e 4f 46  |.DLI...3.CF%=NOF|
00001fd0  25 8c 4e 24 3d 54 45 4d  50 24 3a f2 46 50 52 49  |%.N$=TEMP$:.FPRI|
00001fe0  4e 54 3a f2 46 50 4e 54  3a 43 46 25 3d 4e 4f 46  |NT:.FPNT:CF%=NOF|
00001ff0  25 3a e5 8d 74 42 45 0d  09 10 2a 43 46 25 3d 43  |%:..tBE...*CF%=C|
00002000  46 25 2b 31 3a 4e 24 3d  54 45 4d 50 24 3a f2 46  |F%+1:N$=TEMP$:.F|
00002010  50 52 49 4e 54 3a f2 46  50 4e 54 3a e5 8d 64 62  |PRINT:.FPNT:..db|
00002020  44 0d 09 1a 09 e5 8d 44  4c 49 0d 09 24 13 e7 48  |D......DLI..$..H|
00002030  3c 31 30 8c 4e 24 3d 4e  24 2b 22 30 22 0d 09 2e  |<10.N$=N$+"0"...|
00002040  12 4e 24 3d 4e 24 2b c3  28 48 29 2b 22 3a 22 0d  |.N$=N$+.(H)+":".|
00002050  09 38 13 e7 4d 3c 31 30  8c 4e 24 3d 4e 24 2b 22  |.8..M<10.N$=N$+"|
00002060  30 22 0d 09 42 14 4e 24  3d 4e 24 2b c3 28 4d 29  |0"..B.N$=N$+.(M)|
00002070  3a e5 8d 44 78 45 0d 09  4c 05 f8 0d 09 56 89 f1  |:..DxE..L....V..|
00002080  8a 35 32 2c 32 38 29 3b  22 45 6e 74 65 72 20 66  |.52,28);"Enter f|
00002090  69 65 6c 64 20 6e 75 6d  62 65 72 22 3b 8a 35 32  |ield number";.52|
000020a0  2c 32 39 29 3b 22 74 6f  20 6a 75 6d 70 20 74 6f  |,29);"to jump to|
000020b0  3a 22 3a 58 3d 36 34 3a  59 3d 32 39 3a 4c 25 3d  |:":X=64:Y=29:L%=|
000020c0  33 3a f2 54 45 58 54 3a  e7 bb 28 54 24 29 3c 31  |3:.TEXT:..(T$)<1|
000020d0  84 bb 28 54 24 29 3e 4e  4f 46 25 8c f1 8a 35 32  |..(T$)>NOF%...52|
000020e0  2c 32 38 29 3b c4 32 30  2c 22 20 22 29 3b 8a 35  |,28);.20," ");.5|
000020f0  32 2c 32 39 29 3b c4 32  30 2c 22 20 22 29 3a e5  |2,29);.20," "):.|
00002100  8d 44 4c 49 0d 09 60 19  43 46 25 3d bb 28 54 24  |.DLI..`.CF%=.(T$|
00002110  29 3a db 3a f2 53 43 3a  e5 8d 64 62 44 0d 09 6a  |):.:.SC:..dbD..j|
00002120  0e dd f2 41 55 54 4f 55  50 44 41 0d 09 74 10 e7  |...AUTOUPDA..t..|
00002130  4e 55 25 3d 31 8c e5 8d  64 62 44 0d 09 7e 13 e7  |NU%=1...dbD..~..|
00002140  52 45 4c 24 3d 22 30 22  8c e5 8d 64 62 44 0d 09  |REL$="0"...dbD..|
00002150  88 3a ff 22 43 4c 4f 53  45 22 3a 58 3d ad 28 a4  |.:."CLOSE":X=.(.|
00002160  4d 79 46 69 6c 65 28 46  49 24 29 29 3a cf 23 58  |MyFile(FI$)):.#X|
00002170  3d 28 43 52 25 2d 31 29  2a 52 45 43 25 2b 54 49  |=(CR%-1)*REC%+TI|
00002180  25 3a f1 23 58 2c 4e 24  0d 09 92 38 ff 22 43 4c  |%:.#X,N$...8."CL|
00002190  4f 53 45 22 3a 46 41 24  3d 46 49 24 2b 22 43 22  |OSE":FA$=FI$+"C"|
000021a0  3a 58 3d ad 28 a4 4d 79  46 69 6c 65 28 46 41 24  |:X=.(.MyFile(FA$|
000021b0  29 29 3a cf 23 58 3d 30  3a e8 23 58 2c 4e 52 24  |)):.#X=0:.#X,NR$|
000021c0  0d 09 9c 60 e3 5a 3d 31  b8 bb 28 4e 52 24 29 3a  |...`.Z=1..(NR$):|
000021d0  cf 23 58 3d 28 5a 2d 31  29 2a 31 37 2b 36 3a e8  |.#X=(Z-1)*17+6:.|
000021e0  23 58 2c 52 24 3a 52 45  24 3d c1 52 24 2c 31 2c  |#X,R$:RE$=.R$,1,|
000021f0  39 29 3a 52 31 24 3d c1  52 24 2c 31 30 2c 33 29  |9):R1$=.R$,10,3)|
00002200  3a 52 32 24 3d c1 52 24  2c 31 33 2c 33 29 3a e7  |:R2$=.R$,13,3):.|
00002210  bb 28 52 31 24 29 3d 43  46 25 8c e5 8d 74 70 49  |.(R1$)=CF%...tpI|
00002220  0d 09 a6 15 ed 5a 3a ff  22 43 4c 4f 53 45 22 3a  |.....Z:."CLOSE":|
00002230  e5 8d 74 42 45 0d 09 b0  2a 54 41 24 3d 22 22 3a  |..tBE...*TA$="":|
00002240  e3 46 3d 31 b8 39 3a e7  c1 52 45 24 2c 46 2c 31  |.F=1.9:..RE$,F,1|
00002250  29 3d 22 20 22 8c 46 3d  39 3a e5 8d 64 44 49 0d  |)=" ".F=9:..dDI.|
00002260  09 ba 15 54 41 24 3d 54  41 24 2b c1 52 45 24 2c  |...TA$=TA$+.RE$,|
00002270  46 2c 31 29 0d 09 c4 36  ed 46 3a 46 41 24 3d 54  |F,1)...6.F:FA$=T|
00002280  41 24 2b 22 4e 22 3a ff  22 43 4c 4f 53 45 22 3a  |A$+"N":."CLOSE":|
00002290  58 3d ad 28 a4 4d 79 46  69 6c 65 28 46 41 24 29  |X=.(.MyFile(FA$)|
000022a0  29 3a e8 23 58 2c 44 49  52 24 0d 09 ce 7a 46 41  |):.#X,DIR$...zFA|
000022b0  24 3d 54 41 24 2b 22 41  22 3a ff 22 43 4c 4f 53  |$=TA$+"A":."CLOS|
000022c0  45 22 3a 58 3d ad 28 a4  4d 79 46 69 6c 65 28 46  |E":X=.(.MyFile(F|
000022d0  41 24 29 29 3a cf 23 58  3d 28 bb 28 52 32 24 29  |A$)):.#X=(.(R2$)|
000022e0  2d 31 29 2a 36 31 2b 31  30 39 3a e8 23 58 2c 54  |-1)*61+109:.#X,T|
000022f0  49 24 3a 54 25 3d bb 28  54 49 24 29 3a cf 23 58  |I$:T%=.(TI$):.#X|
00002300  3d 35 3a e8 23 58 2c 4e  4f 52 24 3a cf 23 58 3d  |=5:.#X,NOR$:.#X=|
00002310  31 35 3a e8 23 58 2c 52  45 43 24 3a ff 22 43 4c  |15:.#X,REC$:."CL|
00002320  4f 53 45 22 0d 09 d8 64  58 3d ad 28 a4 4d 79 46  |OSE"...dX=.(.MyF|
00002330  69 6c 65 28 54 41 24 29  29 3a e3 4a 3d 31 b8 bb  |ile(TA$)):.J=1..|
00002340  28 4e 4f 52 24 29 3a cf  23 58 3d 28 4a 2d 31 29  |(NOR$):.#X=(J-1)|
00002350  2a bb 28 52 45 43 24 29  2b 54 25 3a e8 23 58 2c  |*.(REC$)+T%:.#X,|
00002360  43 24 3a e7 43 24 3d 54  45 4d 50 24 8c cf 23 58  |C$:.C$=TEMP$..#X|
00002370  3d 28 4a 2d 31 29 2a bb  28 52 45 43 24 29 2b 54  |=(J-1)*.(REC$)+T|
00002380  25 3a f1 23 58 2c 4e 24  0d 09 e2 33 ed 4a 3a ff  |%:.#X,N$...3.J:.|
00002390  22 43 4c 4f 53 45 22 3a  46 41 24 3d 46 49 24 2b  |"CLOSE":FA$=FI$+|
000023a0  22 43 22 3a 58 3d ad 28  a4 4d 79 46 69 6c 65 28  |"C":X=.(.MyFile(|
000023b0  46 41 24 29 29 3a e5 8d  74 66 49 0d 09 ec 24 53  |FA$)):..tfI...$S|
000023c0  46 25 3d 31 3a 53 52 25  3d 31 3a 53 54 25 3d 31  |F%=1:SR%=1:ST%=1|
000023d0  3a ff 22 46 58 34 2c 31  22 3a 42 45 25 3d 31 0d  |:."FX4,1":BE%=1.|
000023e0  09 f6 49 41 46 25 3d 31  3a 53 4c 25 3d 37 31 3a  |..IAF%=1:SL%=71:|
000023f0  54 55 25 3d 39 3a 54 46  3d 30 3a e3 49 3d 31 b8  |TU%=9:TF=0:.I=1.|
00002400  31 30 30 3a 43 28 49 29  3d 30 3a ed 49 3a ff 22  |100:C(I)=0:.I:."|
00002410  43 4c 4f 53 45 22 3a 41  3d ad 28 a4 4d 79 46 69  |CLOSE":A=.(.MyFi|
00002420  6c 65 28 46 4f 24 29 29  0d 0a 00 11 e3 49 3d 53  |le(FO$)).....I=S|
00002430  46 25 b8 53 46 25 2b 32  35 0d 0a 0a 2e e7 49 3e  |F%.SF%+25.....I>|
00002440  4e 4f 46 25 8c 43 28 41  46 25 29 3d 30 3a 53 50  |NOF%.C(AF%)=0:SP|
00002450  25 3d 49 3a 54 46 3d 31  3a 49 3d 53 46 25 2b 32  |%=I:TF=1:I=SF%+2|
00002460  35 3a e5 8d 54 7c 4a 0d  0a 14 1f 43 46 25 3d 49  |5:..T|J....CF%=I|
00002470  3a f2 46 4f 50 4f 55 54  3a e7 49 4e 25 3e 37 30  |:.FOPOUT:.IN%>70|
00002480  8c e5 8d 54 7c 4a 0d 0a  1e 2f e7 49 4e 25 3e 53  |...T|J.../.IN%>S|
00002490  4c 25 8c 43 28 41 46 25  29 3d 30 3a 53 50 25 3d  |L%.C(AF%)=0:SP%=|
000024a0  49 3a 54 46 3d 31 3a 49  3d 53 46 25 2b 32 35 3a  |I:TF=1:I=SF%+25:|
000024b0  e5 8d 54 7c 4a 0d 0a 28  24 54 45 4e 25 3d 49 4e  |..T|J..($TEN%=IN|
000024c0  25 3a e7 49 4e 25 3c a9  28 46 4c 24 29 8c 54 45  |%:.IN%<.(FL$).TE|
000024d0  4e 25 3d a9 28 46 4c 24  29 0d 0a 32 58 54 45 4e  |N%=.(FL$)..2XTEN|
000024e0  25 3d 54 45 4e 25 2b 31  3a 43 28 41 46 25 29 3d  |%=TEN%+1:C(AF%)=|
000024f0  49 3a 43 28 41 46 25 2b  32 35 29 3d 54 55 25 3a  |I:C(AF%+25)=TU%:|
00002500  43 28 41 46 25 2b 35 30  29 3d 54 49 25 3a 41 46  |C(AF%+50)=TI%:AF|
00002510  25 3d 41 46 25 2b 31 3a  53 4c 25 3d 53 4c 25 2d  |%=AF%+1:SL%=SL%-|
00002520  54 45 4e 25 3a 54 55 25  3d 54 55 25 2b 54 45 4e  |TEN%:TU%=TU%+TEN|
00002530  25 0d 0a 3c 12 ed 49 3a  e7 54 46 3d 30 8c 53 50  |%..<..I:.TF=0.SP|
00002540  25 3d 49 0d 0a 46 2b 48  3d 30 3a 59 3d 38 3a 46  |%=I..F+H=0:Y=8:F|
00002550  52 25 3d 53 52 25 2b 31  39 3a db 3a e7 46 52 25  |R%=SR%+19:.:.FR%|
00002560  3e 4e 4f 52 25 8c 46 52  25 3d 4e 4f 52 25 0d 0a  |>NOR%.FR%=NOR%..|
00002570  50 5f f1 8a 39 2c 34 29  3b 22 46 69 6c 65 3a 20  |P_..9,4);"File: |
00002580  22 3b 46 49 24 3b 8a 39  2c 31 29 3b 22 88 20 8b  |";FI$;.9,1);". .|
00002590  20 8a 20 89 20 84 22 3b  8a 33 30 2c 34 29 3b 22  | . . .";.30,4);"|
000025a0  52 65 63 6f 72 64 73 3a  20 22 3b 4e 4f 52 25 3b  |Records: ";NOR%;|
000025b0  8a 33 30 2c 31 29 3b 22  42 72 6f 77 73 65 2f 4d  |.30,1);"Browse/M|
000025c0  6f 64 69 66 79 20 53 63  72 65 65 6e 22 0d 0a 5a  |odify Screen"..Z|
000025d0  17 48 3d 48 2b 31 3a e7  43 28 48 29 3d 30 8c e5  |.H=H+1:.C(H)=0..|
000025e0  8d 74 42 4a 0d 0a 64 83  ff 22 43 4c 4f 53 45 22  |.tBJ..d.."CLOSE"|
000025f0  3a 58 3d ad 28 a4 4d 79  46 69 6c 65 28 46 4f 24  |:X=.(.MyFile(FO$|
00002600  29 29 3a cf 23 58 3d 28  43 28 48 29 2d 31 29 2a  |)):.#X=(C(H)-1)*|
00002610  36 31 2b 36 33 3a e8 23  58 2c 46 4c 24 3a cf 23  |61+63:.#X,FL$:.#|
00002620  58 3d 28 43 28 48 29 2d  31 29 2a 36 31 2b 36 33  |X=(C(H)-1)*61+63|
00002630  2b 34 31 3a e8 23 58 2c  5a 5a 24 3a 49 4e 25 3d  |+41:.#X,ZZ$:IN%=|
00002640  bb 28 5a 5a 24 29 3a 54  45 4e 25 3d 49 4e 25 3a  |.(ZZ$):TEN%=IN%:|
00002650  e7 49 4e 25 3c a9 28 46  4c 24 29 8c 54 45 4e 25  |.IN%<.(FL$).TEN%|
00002660  3d a9 28 46 4c 24 29 0d  0a 6e 3e fb 31 33 31 3a  |=.(FL$)..n>.131:|
00002670  f1 8a 43 28 48 2b 32 35  29 2c 36 29 3b 46 4c 24  |..C(H+25),6);FL$|
00002680  3a fb 31 32 38 3a f1 8a  43 28 48 2b 32 35 29 2c  |:.128:..C(H+25),|
00002690  37 29 3b c4 54 45 4e 25  2c bd 28 32 34 31 29 29  |7);.TEN%,.(241))|
000026a0  3a fb 46 47 25 0d 0a 78  15 e7 48 3d 32 35 8c e5  |:.FG%..x..H=25..|
000026b0  8d 74 42 4a 8b e5 8d 44  5a 4a 0d 0a 82 26 46 3d  |.tBJ...DZJ...&F=|
000026c0  53 52 25 2d 31 3a ff 22  43 4c 4f 53 45 22 3a 58  |SR%-1:."CLOSE":X|
000026d0  3d ad 28 a4 4d 79 46 69  6c 65 28 46 49 24 29 29  |=.(.MyFile(FI$))|
000026e0  0d 0a 8c 39 46 3d 46 2b  31 3a 4a 3d 30 3a fb 31  |...9F=F+1:J=0:.1|
000026f0  32 38 3a f1 8a 30 2c 59  29 3b 22 30 30 30 30 30  |28:..0,Y);"00000|
00002700  30 30 30 22 3b 8a 38 2d  a9 28 c3 28 46 29 29 2c  |000";.8-.(.(F)),|
00002710  59 29 3b 46 3a fb 46 47  25 0d 0a 96 09 e5 8d 74  |Y);F:.FG%......t|
00002720  4a 4c 0d 0a a0 17 4a 3d  4a 2b 31 3a e7 43 28 4a  |JL....J=J+1:.C(J|
00002730  29 3d 30 8c e5 8d 64 48  4a 0d 0a aa 35 41 46 25  |)=0...dHJ...5AF%|
00002740  3d 46 3a e7 53 4f 24 3d  22 31 22 8c cf 23 58 3d  |=F:.SO$="1"..#X=|
00002750  28 46 2a 52 45 43 25 29  2d 31 30 3a e8 23 58 2c  |(F*REC%)-10:.#X,|
00002760  41 46 24 3a 41 46 25 3d  bb 28 41 46 24 29 0d 0a  |AF$:AF%=.(AF$)..|
00002770  b4 33 cf 23 58 3d 28 41  46 25 2d 31 29 2a 52 45  |.3.#X=(AF%-1)*RE|
00002780  43 25 2b 43 28 4a 2b 35  30 29 3a e8 23 58 2c 4e  |C%+C(J+50):.#X,N|
00002790  24 3a f1 8a 43 28 4a 2b  32 35 29 2c 59 29 3b 4e  |$:..C(J+25),Y);N|
000027a0  24 0d 0a be 15 e7 4a 3d  32 35 8c e5 8d 64 48 4a  |$.....J=25...dHJ|
000027b0  8b e5 8d 74 60 4a 0d 0a  c8 1c 59 3d 59 2b 31 3a  |...t`J....Y=Y+1:|
000027c0  e7 46 3d 46 52 25 8c e5  8d 64 52 4a 8b e5 8d 74  |.F=FR%...dRJ...t|
000027d0  4c 4a 0d 0a d2 43 e7 46  52 25 3d 4e 4f 52 25 8c  |LJ...C.FR%=NOR%.|
000027e0  fb 31 32 38 3a f1 8a 39  2c 59 29 3b c4 37 31 2c  |.128:..9,Y);.71,|
000027f0  bd 28 32 34 31 29 29 3b  8a 39 2c 59 2b 32 29 3b  |.(241));.9,Y+2);|
00002800  22 42 6f 74 74 6f 6d 20  6f 66 20 64 61 74 61 22  |"Bottom of data"|
00002810  3a fb 46 47 25 0d 0a dc  2b c8 97 20 58 50 2c 59  |:.FG%...+.. XP,Y|
00002820  50 2c 42 55 54 3a 58 50  3d a8 28 58 50 2f 31 36  |P,BUT:XP=.(XP/16|
00002830  29 3a 59 50 3d 33 31 2d  a8 28 59 50 2f 33 32 29  |):YP=31-.(YP/32)|
00002840  0d 0a e6 17 e7 42 55 54  3d 34 8c e5 8d 64 70 4a  |.....BUT=4...dpJ|
00002850  3a 8b e5 8d 64 5c 4a 0d  0a f0 10 e7 59 50 3e 3d  |:...d\J.....YP>=|
00002860  38 8c e5 8d 74 78 4b 0d  0a fa 10 e7 59 50 3c 3e  |8...txK.....YP<>|
00002870  31 8c e5 8d 64 5c 4a 0d  0b 04 19 e7 58 50 3d 31  |1...d\J.....XP=1|
00002880  37 8c ff 22 43 4c 4f 53  45 22 3a e5 8d 44 62 42  |7.."CLOSE":..DbB|
00002890  0d 0b 0e 0f e7 58 50 3d  39 8c e5 8d 74 50 4b 0d  |.....XP=9...tPK.|
000028a0  0b 18 10 e7 58 50 3d 31  31 8c e5 8d 44 68 4b 0d  |....XP=11...DhK.|
000028b0  0b 22 10 e7 58 50 3d 31  33 8c e5 8d 44 40 4b 0d  |."..XP=13...D@K.|
000028c0  0b 2c 10 e7 58 50 3d 31  35 8c e5 8d 44 7c 4b 0d  |.,..XP=15...D|K.|
000028d0  0b 36 09 e5 8d 64 5c 4a  0d 0b 40 13 e7 46 52 25  |.6...d\J..@..FR%|
000028e0  3d 4e 4f 52 25 8c e5 8d  44 54 4b 0d 0b 4a 09 e5  |=NOR%...DTK..J..|
000028f0  8d 44 5e 4b 0d 0b 54 0c  ef 37 3a e5 8d 64 5c 4a  |.D^K..T..7:..d\J|
00002900  0d 0b 5e 13 53 52 25 3d  46 52 25 2b 31 3a e5 8d  |..^.SR%=FR%+1:..|
00002910  44 46 4a 0d 0b 68 10 e7  53 52 25 3d 31 8c e5 8d  |DFJ..h..SR%=1...|
00002920  44 54 4b 0d 0b 72 14 53  52 25 3d 53 52 25 2d 32  |DTK..r.SR%=SR%-2|
00002930  30 3a e5 8d 44 46 4a 0d  0b 7c 13 e7 53 50 25 3e  |0:..DFJ..|..SP%>|
00002940  4e 4f 46 25 8c e5 8d 44  54 4b 0d 0b 86 29 53 46  |NOF%...DTK...)SF|
00002950  25 3d 53 50 25 3a 53 43  25 28 53 54 25 29 3d 43  |%=SP%:SC%(ST%)=C|
00002960  28 31 29 3a 53 54 25 3d  53 54 25 2b 31 3a e5 8d  |(1):ST%=ST%+1:..|
00002970  64 76 49 0d 0b 90 10 e7  53 46 25 3d 31 8c e5 8d  |dvI.....SF%=1...|
00002980  44 54 4b 0d 0b 9a 1a 53  54 25 3d 53 54 25 2d 31  |DTK....ST%=ST%-1|
00002990  3a e7 53 54 25 3c 31 8c  53 54 25 3d 31 0d 0b a4  |:.ST%<1.ST%=1...|
000029a0  1d 53 46 25 3d 53 43 25  28 53 54 25 29 3a e7 53  |.SF%=SC%(ST%):.S|
000029b0  46 25 3c 31 8c 53 46 25  3d 31 0d 0b ae 09 e5 8d  |F%<1.SF%=1......|
000029c0  64 76 49 0d 0b b8 0f e7  58 50 3c 39 8c e5 8d 64  |dvI.....XP<9...d|
000029d0  6a 4b 0d 0b c2 1f f5 20  c8 97 20 55 2c 55 2c 42  |jK..... .. U,U,B|
000029e0  55 54 3a fd 42 55 54 3d  30 3a 54 69 6d 65 25 3d  |UT:.BUT=0:Time%=|
000029f0  91 0d 0b c7 2b f4 20 2d  2d 3e 20 50 6f 6c 6c 20  |....+. --> Poll |
00002a00  66 6f 72 20 64 6f 75 62  6c 65 20 63 6c 69 63 6b  |for double click|
00002a10  20 77 69 74 68 69 6e 20  30 2e 35 73 0d 0b cc 25  | within 0.5s...%|
00002a20  c8 95 20 28 28 42 55 54  20 3d 20 30 29 20 80 20  |.. ((BUT = 0) . |
00002a30  28 28 91 2d 54 69 6d 65  25 29 20 3c 20 35 30 29  |((.-Time%) < 50)|
00002a40  29 0d 0b cd 0f 20 c8 97  20 55 2c 55 2c 42 55 54  |).... .. U,U,BUT|
00002a50  0d 0b ce 05 ce 0d 0b d6  14 e7 20 42 55 54 20 3d  |.......... BUT =|
00002a60  20 30 20 8c 20 8d 64 5c  4a 0d 0b e0 32 43 52 25  | 0 . .d\J...2CR%|
00002a70  3d 28 59 50 2d 38 29 2b  53 52 25 3a e7 43 52 25  |=(YP-8)+SR%:.CR%|
00002a80  3e 4e 4f 52 25 20 84 20  43 52 25 3c 31 20 8c e5  |>NOR% . CR%<1 ..|
00002a90  8d 64 5c 4a 3a 8b e5 8d  54 48 4c 0d 0b ea 32 43  |.d\J:...THL...2C|
00002aa0  52 25 3d 28 59 50 2d 38  29 2b 53 52 25 3a e7 43  |R%=(YP-8)+SR%:.C|
00002ab0  52 25 3e 4e 4f 52 25 20  84 20 43 52 25 3c 31 20  |R%>NOR% . CR%<1 |
00002ac0  8c e5 8d 64 5c 4a 3a 8b  e5 8d 54 56 43 0d 0b f4  |...d\J:...TVC...|
00002ad0  81 58 3d 33 30 3a 59 3d  31 34 3a 57 25 3d 32 30  |.X=30:Y=14:W%=20|
00002ae0  3a 4c 25 3d 33 3a f2 4c  57 4e 3a 4d 45 24 28 31  |:L%=3:.LWN:ME$(1|
00002af0  29 3d 22 53 65 6c 65 63  74 20 62 79 20 42 72 6f  |)="Select by Bro|
00002b00  77 73 69 6e 67 22 3a 4d  45 24 28 32 29 3d 22 53  |wsing":ME$(2)="S|
00002b10  65 6c 65 63 74 20 62 79  20 4b 65 79 22 3a 4d 45  |elect by Key":ME|
00002b20  24 28 33 29 3d 22 53 65  6c 65 63 74 20 62 79 20  |$(3)="Select by |
00002b30  4e 75 6d 62 65 72 22 3a  58 3d 33 31 3a 59 3d 31  |Number":X=31:Y=1|
00002b40  35 3a 4c 25 3d 33 3a f2  53 45 4c 45 43 54 0d 0b  |5:L%=3:.SELECT..|
00002b50  fe 1b ee 20 53 45 4c 25  20 e5 20 8d 64 6c 49 2c  |... SEL% . .dlI,|
00002b60  8d 64 50 42 2c 8d 54 42  43 0d 0c 08 07 4c 3d 31  |.dPB,.TBC....L=1|
00002b70  0d 0c 12 22 e7 43 28 4c  2b 32 36 29 3d 30 8c 58  |...".C(L+26)=0.X|
00002b80  58 50 3d 38 30 3a 8b 58  58 50 3d 43 28 4c 2b 32  |XP=80:.XXP=C(L+2|
00002b90  36 29 0d 0c 1c 31 e7 58  50 3e 3d 43 28 4c 2b 32  |6)...1.XP>=C(L+2|
00002ba0  35 29 20 80 20 58 50 3c  3d 58 58 50 2d 31 20 8c  |5) . XP<=XXP-1 .|
00002bb0  e5 8d 54 66 4c 3a 8b 3a  4c 3d 4c 2b 31 3a e5 8d  |..TfL:.:L=L+1:..|
00002bc0  54 52 4c 0d 0c 26 60 42  3d ad 28 a4 4d 79 46 69  |TRL..&`B=.(.MyFi|
00002bd0  6c 65 28 46 4f 24 29 29  3a cf 23 42 3d 28 43 28  |le(FO$)):.#B=(C(|
00002be0  4c 29 2d 31 29 2a 36 31  2b 31 30 31 3a e8 23 42  |L)-1)*61+101:.#B|
00002bf0  2c 54 59 24 3a cf 23 42  3d 28 43 28 4c 29 2d 31  |,TY$:.#B=(C(L)-1|
00002c00  29 2a 36 31 2b 31 30 34  3a e8 23 42 2c 49 4e 24  |)*61+104:.#B,IN$|
00002c10  3a e7 54 59 24 3d 22 33  22 8c d9 23 42 3a e5 8d  |:.TY$="3"..#B:..|
00002c20  64 5c 4a 0d 0c 30 2b 58  32 3d 43 28 4c 2b 32 35  |d\J..0+X2=C(L+25|
00002c30  29 3a 59 32 3d 59 50 3a  58 35 3d 58 32 3a 59 35  |):Y2=YP:X5=X2:Y5|
00002c40  3d 59 32 3a 49 4e 25 3d  bb 28 49 4e 24 29 0d 0c  |=Y2:IN%=.(IN$)..|
00002c50  3a 4f fb 31 33 31 3a 54  49 25 3d 43 28 4c 2b 35  |:O.131:TI%=C(L+5|
00002c60  30 29 3a f1 8a 58 32 2c  59 32 29 3b 89 28 49 4e  |0):..X2,Y2);.(IN|
00002c70  25 29 3a e7 54 59 24 3d  22 31 22 84 54 59 24 3d  |%):.TY$="1".TY$=|
00002c80  22 32 22 8c 4c 4f 25 3d  33 33 3a 48 49 25 3d 31  |"2".LO%=33:HI%=1|
00002c90  33 38 3a f2 54 59 31 3a  e5 8d 44 76 4c 0d 0c 44  |38:.TY1:..DvL..D|
00002ca0  17 e7 54 59 24 3d 22 34  22 8c f2 54 59 34 3a e5  |..TY$="4"..TY4:.|
00002cb0  8d 44 76 4c 0d 0c 4e 17  e7 54 59 24 3d 22 35 22  |.DvL..N..TY$="5"|
00002cc0  8c f2 54 59 35 3a e5 8d  44 76 4c 0d 0c 58 17 e7  |..TY5:..DvL..X..|
00002cd0  54 59 24 3d 22 36 22 8c  f2 54 59 36 3a e5 8d 44  |TY$="6"..TY6:..D|
00002ce0  76 4c 0d 0c 62 1d e7 54  59 24 3d 22 37 22 8c 48  |vL..b..TY$="7".H|
00002cf0  49 25 3d 39 3a f2 54 59  37 3a e5 8d 44 76 4c 0d  |I%=9:.TY7:..DvL.|
00002d00  0c 6c 20 e7 54 59 24 3d  22 38 22 84 54 59 24 3d  |.l .TY$="8".TY$=|
00002d10  22 30 22 8c 48 49 25 3d  31 38 3a f2 54 59 37 0d  |"0".HI%=18:.TY7.|
00002d20  0c 76 06 ef 37 0d 0c 80  4c f1 8a 43 28 4c 2b 32  |.v..7...L..C(L+2|
00002d30  35 29 2c 59 32 29 3b 4e  24 3b 89 28 49 4e 25 2d  |5),Y2);N$;.(IN%-|
00002d40  a9 28 4e 24 29 29 3a fb  46 47 25 3a cf 23 58 3d  |.(N$)):.FG%:.#X=|
00002d50  28 43 52 25 2d 31 29 2a  52 45 43 25 2b 54 49 25  |(CR%-1)*REC%+TI%|
00002d60  3a f1 23 58 2c 4e 24 3a  d9 23 42 3a e5 8d 64 5c  |:.#X,N$:.#B:..d\|
00002d70  4a 0d 0c 8a 38 c8 97 20  58 50 2c 59 50 2c 42 55  |J...8.. XP,YP,BU|
00002d80  54 3a 58 50 3d a8 28 58  50 2f 31 36 29 3a 59 50  |T:XP=.(XP/16):YP|
00002d90  3d 33 31 2d a8 28 59 50  2f 33 32 29 3a e7 42 55  |=31-.(YP/32):.BU|
00002da0  54 3d 30 8c e5 8d 74 60  4a 0d 0c 94 10 e7 59 50  |T=0...t`J.....YP|
00002db0  3c 3e 31 8c e5 8d 74 60  4a 0d 0c 9e 27 e7 58 50  |<>1...t`J...'.XP|
00002dc0  3d 31 33 20 80 20 46 52  25 3c 3e 4e 4f 52 25 8c  |=13 . FR%<>NOR%.|
00002dd0  20 53 52 25 3d 46 52 25  2b 31 3a e5 8d 44 46 4a  | SR%=FR%+1:..DFJ|
00002de0  0d 0c a8 1a e7 58 50 3d  31 31 20 8c 20 e7 53 52  |.....XP=11 . .SR|
00002df0  25 3d 31 20 8c e5 8d 74  60 4a 0d 0c b2 1d e7 58  |%=1 ...t`J.....X|
00002e00  50 3d 31 31 20 8c 20 53  52 25 3d 53 52 25 2d 32  |P=11 . SR%=SR%-2|
00002e10  30 3a e5 8d 44 46 4a 0d  0c bc 09 e5 8d 74 60 4a  |0:..DFJ......t`J|
00002e20  0d 0c c6 36 dd f2 53 45  4c 45 43 54 3a 45 44 25  |...6..SELECT:ED%|
00002e30  3d 59 2b 28 4c 25 2d 31  29 3a 42 47 25 3d 58 2b  |=Y+(L%-1):BG%=X+|
00002e40  28 57 25 2d 31 29 3a 53  53 45 4c 25 3d 31 3a 2a  |(W%-1):SSEL%=1:*|
00002e50  46 58 31 35 2c 30 0d 0c  d0 3e e3 49 3d 31 b8 4c  |FX15,0...>.I=1.L|
00002e60  25 3a f1 8a 58 2c 59 2b  28 49 2d 31 29 29 3b 22  |%:..X,Y+(I-1));"|
00002e70  20 20 22 3b 4d 45 24 28  49 29 3b c4 28 57 25 2d  |  ";ME$(I);.(W%-|
00002e80  32 29 2d a9 28 4d 45 24  28 49 29 29 2c 22 20 22  |2)-.(ME$(I))," "|
00002e90  29 3a ed 49 0d 0c da 2b  c8 97 20 58 50 2c 59 50  |):.I...+.. XP,YP|
00002ea0  2c 42 55 54 3a 58 50 3d  a8 28 58 50 2f 31 36 29  |,BUT:XP=.(XP/16)|
00002eb0  3a 59 50 3d 33 31 2d a8  28 59 50 2f 33 32 29 0d  |:YP=31-.(YP/32).|
00002ec0  0c e4 18 e7 59 50 3c 59  20 84 20 59 50 3e 45 44  |....YP<Y . YP>ED|
00002ed0  25 8c e5 8d 64 50 4c 0d  0c ee 18 e7 58 50 3c 58  |%...dPL.....XP<X|
00002ee0  20 84 20 58 50 3e 42 47  25 8c e5 8d 64 50 4c 0d  | . XP>BG%...dPL.|
00002ef0  0c f8 72 53 45 4c 25 3d  28 59 50 2d 59 29 2b 31  |..rSEL%=(YP-Y)+1|
00002f00  3a f2 43 4c 45 41 3a fb  20 31 33 31 3a fb 31 32  |:.CLEA:. 131:.12|
00002f10  37 3a f1 8a 58 2c 59 50  29 3b 22 20 20 22 3b 4d  |7:..X,YP);"  ";M|
00002f20  45 24 28 53 45 4c 25 29  3b c4 28 57 25 2d 32 29  |E$(SEL%);.(W%-2)|
00002f30  2d a9 28 4d 45 24 28 53  45 4c 25 29 29 2c 22 20  |-.(ME$(SEL%))," |
00002f40  22 29 3a fb 20 46 47 25  3a fb 31 32 37 3a e7 42  |"):. FG%:.127:.B|
00002f50  55 54 3d 34 8c e5 8d 54  42 4d 3a 8b e5 8d 64 5a  |UT=4...TBM:...dZ|
00002f60  4c 0d 0d 02 08 ef 37 3a  e1 0d 0d 0c 52 dd f2 43  |L.....7:....R..C|
00002f70  4c 45 41 3a e7 53 53 45  4c 25 3c 3e 53 45 4c 25  |LEA:.SSEL%<>SEL%|
00002f80  8c e3 49 3d 31 b8 4c 25  3a f1 8a 58 2c 59 2b 28  |..I=1.L%:..X,Y+(|
00002f90  49 2d 31 29 29 3b 22 20  20 22 3b 4d 45 24 28 49  |I-1));"  ";ME$(I|
00002fa0  29 3b c4 28 57 25 2d 32  29 2d a9 28 4d 45 24 28  |);.(W%-2)-.(ME$(|
00002fb0  49 29 29 2c 22 20 22 29  3a ed 49 0d 0d 16 10 53  |I))," "):.I....S|
00002fc0  53 45 4c 25 3d 53 45 4c  25 3a e1 0d 0d 20 09 f2  |SEL%=SEL%:... ..|
00002fd0  51 75 69 74 0d 0d 2a 1b  ef 33 2c 32 36 3a d9 23  |Quit..*..3,26:.#|
00002fe0  30 3a e7 9f 3d 31 37 20  8c 20 f2 51 75 69 74 0d  |0:..=17 . .Quit.|
00002ff0  0d 34 10 e7 67 6f 25 3d  30 8c e5 8d 44 5c 4d 0d  |.4..go%=0...D\M.|
00003000  0d 3e 0b 46 47 25 3d 31  38 30 0d 0d 48 52 f2 45  |.>.FG%=180..HR.E|
00003010  52 57 49 4e 3a fb 31 38  30 3a f1 8a 32 30 2c 31  |RWIN:.180:..20,1|
00003020  32 29 3b 22 53 79 73 74  65 6d 20 52 65 70 6f 72  |2);"System Repor|
00003030  74 65 64 20 45 72 72 6f  72 20 23 22 3b 9f 3b 22  |ted Error #";.;"|
00003040  3a 22 3b 8a 32 30 2c 31  34 29 3b f6 24 3a ef 37  |:";.20,14);.$:.7|
00003050  3a fb 46 47 25 3a f2 4d  4b 4c 49 4b 0d 0d 52 19  |:.FG%:.MKLIK..R.|
00003060  ff 22 43 4c 4f 53 45 22  3a ef 33 3a ef 32 36 3a  |."CLOSE":.3:.26:|
00003070  e5 8d 44 62 42 0d 0d 5c  7b f2 45 52 57 49 4e 3a  |..DbB..\{.ERWIN:|
00003080  fb 31 38 30 3a f1 8a 32  30 2c 31 32 29 3b 22 43  |.180:..20,12);"C|
00003090  61 6e 6e 6f 74 20 72 65  61 64 20 74 68 65 20 66  |annot read the f|
000030a0  69 6c 65 20 3a 22 3b 46  49 24 3b 8a 32 30 2c 31  |ile :";FI$;.20,1|
000030b0  34 29 3b 22 28 64 6f 65  73 20 6e 6f 74 20 65 78  |4);"(does not ex|
000030c0  69 73 74 2f 6e 6f 74 20  61 20 44 61 74 61 56 69  |ist/not a DataVi|
000030d0  73 69 6f 6e 20 66 69 6c  65 29 22 3a fb 46 47 25  |sion file)":.FG%|
000030e0  3a ef 37 3a f2 4d 4b 4c  49 4b 3a e5 8d 54 60 4d  |:.7:.MKLIK:..T`M|
000030f0  0d 0d 66 55 dd f2 51 55  41 52 54 3a 59 45 41 52  |..fU..QUART:YEAR|
00003100  3d bb 28 c1 44 41 24 2c  37 2c 32 29 29 3a 4d 4f  |=.(.DA$,7,2)):MO|
00003110  4e 54 48 3d bb 28 c1 44  41 24 2c 34 2c 32 29 29  |NTH=.(.DA$,4,2))|
00003120  3a 44 41 59 3d bb 28 c1  44 41 24 2c 31 2c 32 29  |:DAY=.(.DA$,1,2)|
00003130  29 3a e7 4d 4f 4e 54 48  3c 34 8c 20 51 55 41 52  |):.MONTH<4. QUAR|
00003140  54 45 52 3d 31 0d 0d 70  16 e7 4d 4f 4e 54 48 3e  |TER=1..p..MONTH>|
00003150  39 8c 51 55 41 52 54 45  52 3d 34 0d 0d 7a 28 e7  |9.QUARTER=4..z(.|
00003160  4d 4f 4e 54 48 3e 33 80  4d 4f 4e 54 48 3c 37 8c  |MONTH>3.MONTH<7.|
00003170  51 55 41 52 54 45 52 3d  32 8b 51 55 41 52 54 45  |QUARTER=2.QUARTE|
00003180  52 3d 33 0d 0d 84 05 e1  0d 0d 8e 3b dd f2 44 41  |R=3........;..DA|
00003190  43 48 45 4b 3a 44 24 3d  c0 4e 24 2c 32 29 3a 4d  |CHEK:D$=.N$,2):M|
000031a0  24 3d c1 4e 24 2c 34 2c  32 29 3a 59 24 3d c2 4e  |$=.N$,4,2):Y$=.N|
000031b0  24 2c 32 29 3a 44 41 54  25 3d 30 3a 4c 59 3d 44  |$,2):DAT%=0:LY=D|
000031c0  41 54 25 0d 0d 98 22 e7  bb 28 4d 24 29 3c 31 84  |AT%..."..(M$)<1.|
000031d0  bb 28 4d 24 29 3e 31 32  8c 44 41 54 25 3d 31 3a  |.(M$)>12.DAT%=1:|
000031e0  e5 8d 64 72 4d 0d 0d a2  22 e7 bb 28 44 24 29 3c  |..drM..."..(D$)<|
000031f0  31 84 bb 28 44 24 29 3e  33 31 8c 44 41 54 25 3d  |1..(D$)>31.DAT%=|
00003200  31 3a e5 8d 64 72 4d 0d  0d ac 22 e7 4d 24 3d 22  |1:..drM...".M$="|
00003210  30 32 22 80 bb 28 44 24  29 3e 32 39 8c 44 41 54  |02"..(D$)>29.DAT|
00003220  25 3d 31 3a e5 8d 64 72  4d 0d 0d b6 22 e7 4d 24  |%=1:..drM...".M$|
00003230  3d 22 30 34 22 80 bb 28  44 24 29 3e 33 30 8c 44  |="04"..(D$)>30.D|
00003240  41 54 25 3d 31 3a e5 8d  64 72 4d 0d 0d c0 22 e7  |AT%=1:..drM...".|
00003250  4d 24 3d 22 30 36 22 80  bb 28 44 24 29 3e 33 30  |M$="06"..(D$)>30|
00003260  8c 44 41 54 25 3d 31 3a  e5 8d 64 72 4d 0d 0d ca  |.DAT%=1:..drM...|
00003270  22 e7 4d 24 3d 22 30 39  22 80 bb 28 44 24 29 3e  |".M$="09"..(D$)>|
00003280  33 30 8c 44 41 54 25 3d  31 3a e5 8d 64 72 4d 0d  |30.DAT%=1:..drM.|
00003290  0d d4 22 e7 4d 24 3d 22  31 31 22 80 bb 28 44 24  |..".M$="11"..(D$|
000032a0  29 3e 33 30 8c 44 41 54  25 3d 31 3a e5 8d 64 72  |)>30.DAT%=1:..dr|
000032b0  4d 0d 0d de 2c e7 4d 24  3d 22 30 32 22 8c 4c 59  |M...,.M$="02".LY|
000032c0  3d bb 28 59 24 29 2f 34  3a e7 4c 59 3d a8 28 4c  |=.(Y$)/4:.LY=.(L|
000032d0  59 29 8c 4c 59 3d 31 3a  8b 4c 59 3d 30 0d 0d e8  |Y).LY=1:.LY=0...|
000032e0  22 e7 4d 24 3d 22 30 32  22 8c e7 4c 59 3d 30 80  |".M$="02"..LY=0.|
000032f0  bb 28 44 24 29 3e 32 38  8c 44 41 54 25 3d 31 0d  |.(D$)>28.DAT%=1.|
00003300  0d f2 05 e1 0d 0d fc 27  dd f2 54 49 43 48 45 4b  |.......'..TICHEK|
00003310  3a 48 24 3d c0 4e 24 2c  32 29 3a 4d 24 3d c2 4e  |:H$=.N$,2):M$=.N|
00003320  24 2c 32 29 3a 44 41 54  25 3d 30 0d 0e 06 22 e7  |$,2):DAT%=0...".|
00003330  bb 28 48 24 29 3c 30 84  bb 28 48 24 29 3e 32 33  |.(H$)<0..(H$)>23|
00003340  8c 44 41 54 25 3d 31 3a  e5 8d 54 5a 4e 0d 0e 10  |.DAT%=1:..TZN...|
00003350  22 e7 bb 28 4d 24 29 3c  30 84 bb 28 4d 24 29 3e  |"..(M$)<0..(M$)>|
00003360  35 39 8c 44 41 54 25 3d  31 3a e5 8d 54 5a 4e 0d  |59.DAT%=1:..TZN.|
00003370  0e 1a 05 e1 0d 0e 24 43  dd f2 46 50 4e 54 3a e7  |......$C..FPNT:.|
00003380  54 59 24 3d 22 33 22 8c  ef 32 38 2c 58 58 2d 31  |TY$="3"..28,XX-1|
00003390  2c 59 2b 4c 25 2c 58 58  2b 57 25 2c 59 2d 31 3a  |,Y+L%,XX+W%,Y-1:|
000033a0  db 3a ef 32 36 3a f1 8a  58 35 2c 59 35 29 3b 4e  |.:.26:..X5,Y5);N|
000033b0  24 3a e5 8d 44 42 4e 0d  0e 2e 35 49 4e 4e 25 3d  |$:..DBN...5INN%=|
000033c0  a9 28 4e 24 29 3a 4c 45  25 3d 38 30 2d 58 35 3a  |.(N$):LE%=80-X5:|
000033d0  e7 49 4e 4e 25 3c 3d 4c  45 25 8c f1 8a 58 35 2c  |.INN%<=LE%...X5,|
000033e0  59 35 29 3b 4e 24 3a e5  8d 44 42 4e 0d 0e 38 72  |Y5);N$:..DBN..8r|
000033f0  4e 4c 44 25 3d 49 4e 4e  25 20 81 20 4c 45 25 3a  |NLD%=INN% . LE%:|
00003400  4c 42 25 3d 49 4e 4e 25  20 83 20 4c 45 25 3a e3  |LB%=INN% . LE%:.|
00003410  4a 25 3d 31 b8 4e 4c 44  25 3a f1 8a 58 35 2c 59  |J%=1.NLD%:..X5,Y|
00003420  35 2b 28 4a 25 2d 31 29  29 3b c1 4e 24 2c 28 28  |5+(J%-1));.N$,((|
00003430  4a 25 2d 31 29 2a 4c 45  25 29 2b 31 2c 4c 45 25  |J%-1)*LE%)+1,LE%|
00003440  29 3a ed 4a 25 3a f1 8a  58 35 2c 59 35 2b 28 4a  |):.J%:..X5,Y5+(J|
00003450  25 2d 31 29 29 3b c2 4e  24 2c 4c 42 25 29 0d 0e  |%-1));.N$,LB%)..|
00003460  42 05 e1 0d 0e 4c 36 dd  f2 46 50 52 49 4e 54 3a  |B....L6..FPRINT:|
00003470  4c 45 25 3d 38 30 2d 58  35 3a e7 49 4e 25 3c 3d  |LE%=80-X5:.IN%<=|
00003480  4c 45 25 8c f1 8a 58 35  2c 59 35 29 3b 89 28 49  |LE%...X5,Y5);.(I|
00003490  4e 25 29 3a e5 8d 44 60  4e 0d 0e 56 5d 4e 4c 44  |N%):..D`N..V]NLD|
000034a0  25 3d 49 4e 25 20 81 20  4c 45 25 3a 4c 42 25 3d  |%=IN% . LE%:LB%=|
000034b0  49 4e 25 20 83 20 4c 45  25 3a e3 4a 25 3d 31 b8  |IN% . LE%:.J%=1.|
000034c0  4e 4c 44 25 3a f1 8a 58  35 2c 59 35 2b 28 4a 25  |NLD%:..X5,Y5+(J%|
000034d0  2d 31 29 29 3b 89 28 4c  45 25 29 3a ed 4a 25 3a  |-1));.(LE%):.J%:|
000034e0  f1 8a 58 35 2c 59 35 2b  28 4a 25 2d 31 29 29 3b  |..X5,Y5+(J%-1));|
000034f0  89 28 4c 42 25 29 0d 0e  60 05 e1 0d 0e 6a 55 dd  |.(LB%)..`....jU.|
00003500  f2 51 55 41 52 54 3a 59  45 41 52 3d bb 28 c1 44  |.QUART:YEAR=.(.D|
00003510  41 24 2c 37 2c 32 29 29  3a 4d 4f 4e 54 48 3d bb  |A$,7,2)):MONTH=.|
00003520  28 c1 44 41 24 2c 34 2c  32 29 29 3a 44 41 59 3d  |(.DA$,4,2)):DAY=|
00003530  bb 28 c1 44 41 24 2c 31  2c 32 29 29 3a e7 4d 4f  |.(.DA$,1,2)):.MO|
00003540  4e 54 48 3c 34 8c 20 51  55 41 52 54 45 52 3d 31  |NTH<4. QUARTER=1|
00003550  0d 0e 74 16 e7 4d 4f 4e  54 48 3e 39 8c 51 55 41  |..t..MONTH>9.QUA|
00003560  52 54 45 52 3d 34 0d 0e  7e 28 e7 4d 4f 4e 54 48  |RTER=4..~(.MONTH|
00003570  3e 33 80 4d 4f 4e 54 48  3c 37 8c 51 55 41 52 54  |>3.MONTH<7.QUART|
00003580  45 52 3d 32 8b 51 55 41  52 54 45 52 3d 33 0d 0e  |ER=2.QUARTER=3..|
00003590  88 05 e1 0d 0e 92 68 dd  f2 53 54 41 4e 3a ef 32  |......h..STAN:.2|
000035a0  33 2c 31 35 34 2c 32 35  35 2c 31 32 38 2c 31 39  |3,154,255,128,19|
000035b0  31 2c 31 36 30 2c 31 36  30 2c 31 36 30 2c 31 36  |1,160,160,160,16|
000035c0  30 2c 31 36 30 2c 32 33  2c 31 35 39 2c 32 35 35  |0,160,23,159,255|
000035d0  2c 30 2c 32 35 35 2c 30  2c 30 2c 30 2c 30 2c 30  |,0,255,0,0,0,0,0|
000035e0  2c 32 33 2c 31 35 38 2c  32 35 35 2c 31 2c 32 35  |,23,158,255,1,25|
000035f0  33 2c 35 2c 35 2c 35 2c  35 2c 35 0d 0e 9c 9f ef  |3,5,5,5,5,5.....|
00003600  32 33 2c 31 35 35 2c 31  36 30 2c 31 36 30 2c 31  |23,155,160,160,1|
00003610  36 30 2c 31 36 30 2c 31  36 30 2c 31 36 30 2c 31  |60,160,160,160,1|
00003620  36 30 2c 31 36 30 2c 32  33 2c 31 35 37 2c 35 2c  |60,160,23,157,5,|
00003630  35 2c 35 2c 35 2c 35 2c  35 2c 35 2c 35 2c 32 33  |5,5,5,5,5,5,5,23|
00003640  2c 31 35 36 2c 31 36 30  2c 31 36 30 2c 31 36 30  |,156,160,160,160|
00003650  2c 31 36 30 2c 31 36 30  2c 31 39 31 2c 31 32 38  |,160,160,191,128|
00003660  2c 32 35 35 2c 32 33 2c  31 36 30 2c 30 2c 30 2c  |,255,23,160,0,0,|
00003670  30 2c 30 2c 30 2c 32 35  35 2c 30 2c 32 35 35 2c  |0,0,0,255,0,255,|
00003680  32 33 2c 31 36 31 2c 35  2c 35 2c 35 2c 35 2c 35  |23,161,5,5,5,5,5|
00003690  2c 32 35 33 2c 31 2c 32  35 35 0d 0e a6 05 e1 0d  |,253,1,255......|
000036a0  0e b0 a9 dd f2 53 48 41  44 3a ef 32 33 2c 31 35  |.....SHAD:.23,15|
000036b0  37 2c 37 2c 37 2c 37 2c  37 2c 37 2c 37 2c 37 2c  |7,7,7,7,7,7,7,7,|
000036c0  37 2c 32 33 2c 31 35 38  2c 30 2c 30 2c 32 35 32  |7,23,158,0,0,252|
000036d0  2c 34 2c 37 2c 37 2c 37  2c 37 2c 32 33 2c 31 35  |,4,7,7,7,7,23,15|
000036e0  39 2c 30 2c 30 2c 32 35  35 2c 30 2c 30 2c 30 2c  |9,0,0,255,0,0,0,|
000036f0  30 2c 30 2c 32 33 2c 31  36 30 2c 30 2c 30 2c 30  |0,0,23,160,0,0,0|
00003700  2c 30 2c 30 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,0,0,255,255,255|
00003710  2c 32 33 2c 31 36 31 2c  37 2c 37 2c 37 2c 37 2c  |,23,161,7,7,7,7,|
00003720  37 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 33  |7,255,255,255,23|
00003730  2c 31 36 32 2c 30 2c 30  2c 30 2c 32 35 35 2c 32  |,162,0,0,0,255,2|
00003740  35 35 2c 30 2c 30 2c 30  0d 0e ba 61 ef 32 33 2c  |55,0,0,0...a.23,|
00003750  31 35 34 2c 30 2c 30 2c  36 33 2c 33 32 2c 33 32  |154,0,0,63,32,32|
00003760  2c 33 32 2c 33 32 2c 33  32 2c 32 33 2c 31 35 35  |,32,32,32,23,155|
00003770  2c 33 32 2c 33 32 2c 33  32 2c 33 32 2c 33 32 2c  |,32,32,32,32,32,|
00003780  33 32 2c 33 32 2c 33 32  2c 32 33 2c 31 35 36 2c  |32,32,32,23,156,|
00003790  33 32 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 36  |32,32,32,32,32,6|
000037a0  33 2c 31 35 2c 31 35 3a  e1 0d 0e c4 ca dd f2 53  |3,15,15:.......S|
000037b0  4c 49 4e 45 3a ef 32 33  2c 31 35 34 2c 32 35 35  |LINE:.23,154,255|
000037c0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
000037d0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 32 33 2c  |,128,128,128,23,|
000037e0  31 35 35 2c 31 32 38 2c  31 32 38 2c 31 32 38 2c  |155,128,128,128,|
000037f0  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 32 38 2c  |128,128,128,128,|
00003800  31 32 38 2c 32 33 2c 31  35 36 2c 31 32 38 2c 31  |128,23,156,128,1|
00003810  32 38 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |28,128,128,128,1|
00003820  32 38 2c 31 32 38 2c 32  35 35 2c 32 33 2c 31 36  |28,128,255,23,16|
00003830  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003840  32 35 35 2c 32 33 2c 31  36 31 2c 31 2c 31 2c 31  |255,23,161,1,1,1|
00003850  2c 31 2c 31 2c 31 2c 31  2c 32 35 35 2c 32 33 2c  |,1,1,1,1,255,23,|
00003860  31 35 37 2c 31 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |157,1,1,1,1,1,1,|
00003870  31 2c 31 0d 0e ce 38 ef  32 33 2c 31 35 38 2c 32  |1,1...8.23,158,2|
00003880  35 35 2c 31 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |55,1,1,1,1,1,1,1|
00003890  2c 32 33 2c 31 35 39 2c  32 35 35 2c 30 2c 30 2c  |,23,159,255,0,0,|
000038a0  30 2c 30 2c 30 2c 30 2c  30 3a e1 0d 0e d8 ca dd  |0,0,0,0,0:......|
000038b0  f2 49 4e 56 45 3a ef 32  33 2c 31 35 34 2c 32 35  |.INVE:.23,154,25|
000038c0  35 2c 32 35 35 2c 31 39  32 2c 32 32 33 2c 32 32  |5,255,192,223,22|
000038d0  33 2c 32 32 33 2c 32 32  33 2c 32 32 33 2c 32 33  |3,223,223,223,23|
000038e0  2c 31 35 35 2c 32 32 33  2c 32 32 33 2c 32 32 33  |,155,223,223,223|
000038f0  2c 32 32 33 2c 32 32 33  2c 32 32 33 2c 32 32 33  |,223,223,223,223|
00003900  2c 32 32 33 2c 32 33 2c  31 35 36 2c 32 32 33 2c  |,223,23,156,223,|
00003910  32 32 33 2c 32 32 33 2c  32 32 33 2c 32 32 33 2c  |223,223,223,223,|
00003920  31 39 32 2c 32 35 35 2c  32 35 35 2c 32 33 2c 31  |192,255,255,23,1|
00003930  36 30 2c 32 35 35 2c 32  35 35 2c 32 35 35 2c 32  |60,255,255,255,2|
00003940  35 35 2c 32 35 35 2c 30  2c 32 35 35 2c 32 35 35  |55,255,0,255,255|
00003950  2c 32 33 2c 31 36 31 2c  32 35 31 2c 32 35 31 2c  |,23,161,251,251,|
00003960  32 35 31 2c 32 35 31 2c  32 35 31 2c 33 2c 32 35  |251,251,251,3,25|
00003970  35 2c 32 35 35 0d 0e e2  77 ef 32 33 2c 31 35 37  |5,255...w.23,157|
00003980  2c 32 35 31 2c 32 35 31  2c 32 35 31 2c 32 35 31  |,251,251,251,251|
*
000039a0  2c 32 33 2c 31 35 38 2c  32 35 35 2c 32 35 35 2c  |,23,158,255,255,|
000039b0  33 2c 32 35 31 2c 32 35  31 2c 32 35 31 2c 32 35  |3,251,251,251,25|
000039c0  31 2c 32 35 31 2c 32 33  2c 31 35 39 2c 32 35 35  |1,251,23,159,255|
000039d0  2c 32 35 35 2c 30 2c 32  35 35 2c 32 35 35 2c 32  |,255,0,255,255,2|
000039e0  35 35 2c 32 35 35 2c 32  35 35 3a e1 0d 0e ec 3c  |55,255,255:....<|
000039f0  dd f2 47 52 45 59 3a e3  49 3d 31 35 34 b8 31 36  |..GREY:.I=154.16|
00003a00  31 3a ef 32 33 2c 49 2c  38 35 2c 31 37 30 2c 38  |1:.23,I,85,170,8|
00003a10  35 2c 31 37 30 2c 38 35  2c 31 37 30 2c 38 35 2c  |5,170,85,170,85,|
00003a20  31 37 30 3a ed 49 3a e1  0d 0e f6 ce dd f2 54 48  |170:.I:.......TH|
00003a30  44 49 3a ef 32 33 2c 31  35 34 2c 32 35 35 2c 31  |DI:.23,154,255,1|
00003a40  39 32 2c 31 36 30 2c 31  34 34 2c 31 33 36 2c 31  |92,160,144,136,1|
00003a50  33 32 2c 31 33 30 2c 31  32 39 2c 32 33 2c 31 35  |32,130,129,23,15|
00003a60  35 2c 31 32 39 2c 31 32  39 2c 31 32 39 2c 31 32  |5,129,129,129,12|
00003a70  39 2c 31 32 39 2c 31 32  39 2c 31 32 39 2c 31 32  |9,129,129,129,12|
00003a80  39 2c 32 33 2c 31 35 36  2c 31 32 39 2c 31 33 31  |9,23,156,129,131|
00003a90  2c 31 33 35 2c 31 34 33  2c 31 35 39 2c 31 39 31  |,135,143,159,191|
00003aa0  2c 32 35 35 2c 32 35 35  2c 32 33 2c 31 36 30 2c  |,255,255,23,160,|
00003ab0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
*
00003ad0  32 33 2c 31 36 31 2c 31  32 37 2c 31 39 31 2c 32  |23,161,127,191,2|
00003ae0  32 33 2c 32 33 39 2c 32  34 37 2c 32 35 31 2c 32  |23,239,247,251,2|
00003af0  35 33 2c 32 35 35 0d 0f  00 68 ef 32 33 2c 31 35  |53,255...h.23,15|
00003b00  37 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |7,255,255,255,25|
00003b10  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00003b20  35 2c 32 33 2c 31 35 38  2c 32 35 35 2c 33 2c 37  |5,23,158,255,3,7|
00003b30  2c 31 35 2c 33 31 2c 36  33 2c 31 32 37 2c 32 35  |,15,31,63,127,25|
00003b40  35 2c 32 33 2c 31 35 39  2c 32 35 35 2c 30 2c 30  |5,23,159,255,0,0|
00003b50  2c 30 2c 30 2c 30 2c 30  2c 32 35 35 3a e1 0d 0f  |,0,0,0,0,255:...|
00003b60  0a 3b dd f2 43 4f 4e 56  28 56 4c 2c 4d 4c 29 3a  |.;..CONV(VL,ML):|
00003b70  53 54 4e 24 3d c3 28 56  4c 29 3a 53 54 4e 24 3d  |STN$=.(VL):STN$=|
00003b80  53 54 4e 24 2b c4 28 4d  4c 2d a9 28 53 54 4e 24  |STN$+.(ML-.(STN$|
00003b90  29 29 2c 22 20 22 29 3a  e1 0d 0f 14 3a dd f2 43  |))," "):....:..C|
00003ba0  4f 4e 54 28 56 4c 24 2c  4d 4c 29 3a 53 54 4e 24  |ONT(VL$,ML):STN$|
00003bb0  3d 56 4c 24 3a 53 54 4e  24 3d 53 54 4e 24 2b c4  |=VL$:STN$=STN$+.|
00003bc0  28 4d 4c 2d a9 28 53 54  4e 24 29 29 2c 22 20 22  |(ML-.(STN$))," "|
00003bd0  29 3a e1 0d 0f 1e 24 f2  43 4f 4e 56 28 43 46 25  |):....$.CONV(CF%|
00003be0  2c 33 29 3a 53 45 41 24  3d 53 54 4e 24 2b 50 55  |,3):SEA$=STN$+PU|
00003bf0  54 24 3a 4d 41 3d 31 0d  0f 28 1c e7 c0 4d 41 4c  |T$:MA=1..(...MAL|
00003c00  24 28 4d 41 29 2c 34 29  3d 53 45 41 24 8c e5 8d  |$(MA),4)=SEA$...|
00003c10  44 46 4f 0d 0f 32 11 e7  4d 41 3d 56 41 25 8c e5  |DFO..2..MA=VA%..|
00003c20  8d 64 4e 44 0d 0f 3c 11  4d 41 3d 4d 41 2b 31 3a  |.dND..<.MA=MA+1:|
00003c30  e5 8d 54 68 4f 0d 0f 46  22 54 50 24 3d c2 4d 41  |..ThO..F"TP$=.MA|
00003c40  4c 24 28 4d 41 29 2c 31  29 3a e7 54 50 24 3d 22  |L$(MA),1):.TP$="|
00003c50  41 22 8c e5 52 4c 25 0d  0f 50 11 e7 54 50 24 3d  |A"..RL%..P..TP$=|
00003c60  22 42 22 8c e5 52 4c 25  0d 0f 5a 11 e7 54 50 24  |"B"..RL%..Z..TP$|
00003c70  3d 22 43 22 8c e5 52 4c  25 0d 0f 64 12 e7 54 50  |="C"..RL%..d..TP|
00003c80  24 3d 22 44 22 8c e5 8d  54 44 50 0d 0f 6e 12 e7  |$="D"...TDP..n..|
00003c90  54 50 24 3d 22 45 22 8c  e5 8d 54 58 50 0d 0f 78  |TP$="E"...TXP..x|
00003ca0  12 e7 54 50 24 3d 22 48  22 8c e5 8d 44 4a 50 0d  |..TP$="H"...DJP.|
00003cb0  0f 82 12 e7 54 50 24 3d  22 47 22 8c e5 8d 64 72  |....TP$="G"...dr|
00003cc0  52 0d 0f 8c 12 e7 54 50  24 3d 22 46 22 8c e5 8d  |R.....TP$="F"...|
00003cd0  44 6a 53 0d 0f 96 4a f1  8a bb 28 c1 4d 41 43 24  |DjS...J...(.MAC$|
00003ce0  28 4d 41 29 2c 31 2c 32  29 29 2c bb 28 c1 4d 41  |(MA),1,2)),.(.MA|
00003cf0  43 24 28 4d 41 29 2c 33  2c 32 29 29 29 3b c1 4d  |C$(MA),3,2)));.M|
00003d00  41 43 24 28 4d 41 29 2c  35 2c a9 28 4d 41 43 24  |AC$(MA),5,.(MAC$|
00003d10  28 4d 41 29 29 2d 34 29  3a e5 52 4c 25 0d 0f a0  |(MA))-4):.RL%...|
00003d20  77 4c 3d 32 3a e3 49 3d  31 b8 bb 28 c0 4d 41 43  |wL=2:.I=1..(.MAC|
00003d30  24 28 4d 41 29 2c 31 29  29 3a 58 37 3d bb 28 c1  |$(MA),1)):X7=.(.|
00003d40  4d 41 43 24 28 4d 41 29  2c 4c 2c 32 29 29 3a 59  |MAC$(MA),L,2)):Y|
00003d50  37 3d bb 28 c1 4d 41 43  24 28 4d 41 29 2c 28 4c  |7=.(.MAC$(MA),(L|
00003d60  2b 32 29 2c 32 29 29 3a  42 24 3d c1 4d 41 43 24  |+2),2)):B$=.MAC$|
00003d70  28 4d 41 29 2c 28 4c 2b  34 29 2c 32 30 29 3a f1  |(MA),(L+4),20):.|
00003d80  8a 58 37 2c 59 37 29 3b  42 24 3a 4c 3d 4c 2b 32  |.X7,Y7);B$:L=L+2|
00003d90  34 3a ed 49 0d 0f aa 08  e5 52 4c 25 0d 0f b4 21  |4:.I.....RL%...!|
00003da0  4d 24 3d c0 4d 41 43 24  28 4d 41 29 2c 31 29 3a  |M$=.MAC$(MA),1):|
00003db0  e7 4d 24 3d 22 32 22 8c  f2 53 48 41 44 0d 0f be  |.M$="2"..SHAD...|
00003dc0  12 e7 4d 24 3d 22 33 22  8c f2 53 4c 49 4e 45 0d  |..M$="3"..SLINE.|
00003dd0  0f c8 11 e7 4d 24 3d 22  34 22 8c f2 49 4e 56 45  |....M$="4"..INVE|
00003de0  0d 0f d2 11 e7 4d 24 3d  22 35 22 8c f2 47 52 45  |.....M$="5"..GRE|
00003df0  59 0d 0f dc 11 e7 4d 24  3d 22 36 22 8c f2 54 48  |Y.....M$="6"..TH|
00003e00  44 49 0d 0f e6 93 58 58  3d bb 28 c1 4d 41 43 24  |DI....XX=.(.MAC$|
00003e10  28 4d 41 29 2c 32 2c 32  29 29 3a 59 3d bb 28 c1  |(MA),2,2)):Y=.(.|
00003e20  4d 41 43 24 28 4d 41 29  2c 34 2c 32 29 29 3a 57  |MAC$(MA),4,2)):W|
00003e30  25 3d bb 28 c1 4d 41 43  24 28 4d 41 29 2c 36 2c  |%=.(.MAC$(MA),6,|
00003e40  32 29 29 3a 4c 25 3d bb  28 c1 4d 41 43 24 28 4d  |2)):L%=.(.MAC$(M|
00003e50  41 29 2c 38 2c 32 29 29  3a 58 37 3d bb 28 c1 4d  |A),8,2)):X7=.(.M|
00003e60  41 43 24 28 4d 41 29 2c  31 30 2c 32 29 29 3a 59  |AC$(MA),10,2)):Y|
00003e70  37 3d bb 28 c1 4d 41 43  24 28 4d 41 29 2c 31 32  |7=.(.MAC$(MA),12|
00003e80  2c 32 29 29 3a 42 24 3d  c2 4d 41 43 24 28 4d 41  |,2)):B$=.MAC$(MA|
00003e90  29 2c 32 30 29 0d 0f f0  1b f2 4c 57 4e 3a e7 42  |),20).....LWN:.B|
00003ea0  24 3d c4 32 30 2c 22 20  22 29 8c 42 24 3d 22 22  |$=.20," ").B$=""|
00003eb0  0d 0f fa 1a f1 8a 58 37  2c 59 37 29 3b 42 24 3a  |......X7,Y7);B$:|
00003ec0  f2 53 54 41 4e 3a e5 52  4c 25 0d 10 04 3f e7 4e  |.STAN:.RL%...?.N|
00003ed0  24 3d 22 22 84 49 50 3d  31 8c 4e 24 3d 4d 41 43  |$="".IP=1.N$=MAC|
00003ee0  24 28 4d 41 29 3a f1 8a  58 35 2c 59 35 29 3b c4  |$(MA):..X5,Y5);.|
00003ef0  49 4e 25 2c 22 20 22 29  3b 8a 58 35 2c 59 35 29  |IN%," ");.X5,Y5)|
00003f00  3b 4e 24 3a e5 8d 44 78  45 0d 10 0e 08 e5 52 4c  |;N$:..DxE.....RL|
00003f10  25 0d 10 18 3e 54 31 3d  bb 28 c0 4d 41 43 24 28  |%...>T1=.(.MAC$(|
00003f20  4d 41 29 2c 31 32 29 29  3a 54 32 3d bb 28 c1 4d  |MA),12)):T2=.(.M|
00003f30  41 43 24 28 4d 41 29 2c  31 33 2c 31 32 29 29 3a  |AC$(MA),13,12)):|
00003f40  4d 24 3d c2 4d 41 43 24  28 4d 41 29 2c 31 29 0d  |M$=.MAC$(MA),1).|
00003f50  10 22 1f e7 bb 28 4e 24  29 3c 54 31 20 84 20 bb  |."...(N$)<T1 . .|
00003f60  28 4e 24 29 3e 54 32 20  8c e5 8d 54 76 50 0d 10  |(N$)>T2 ...TvP..|
00003f70  2c 08 e5 52 4c 25 0d 10  36 11 e7 4d 24 3d 22 32  |,..RL%..6..M$="2|
00003f80  22 8c e5 8d 64 4e 44 0d  10 40 30 e7 4d 24 3d 22  |"...dND..@0.M$="|
00003f90  31 22 8c f1 8a 58 35 2c  59 35 29 3b c4 49 4e 25  |1"...X5,Y5);.IN%|
00003fa0  2c 22 20 22 29 3a 58 32  3d 58 35 3a 59 32 3d 59  |," "):X2=X5:Y2=Y|
00003fb0  35 3a e5 8d 64 76 44 0d  10 4a 12 e7 54 59 24 3d  |5:..dvD..J..TY$=|
00003fc0  22 35 22 8c e5 8d 44 62  51 0d 10 54 8b 4d 46 25  |"5"...DbQ..T.MF%|
00003fd0  3d 43 46 25 2d 31 3a 47  41 3d 43 46 25 3a 47 42  |=CF%-1:GA=CF%:GB|
00003fe0  3d 54 49 25 3a 54 24 3d  4d 41 43 24 28 4d 41 29  |=TI%:T$=MAC$(MA)|
00003ff0  3a 47 41 24 3d 54 52 24  3a 47 42 24 3d 54 59 24  |:GA$=TR$:GB$=TY$|
00004000  3a f2 46 4f 52 54 52 41  4e 3a 4e 24 3d c3 28 46  |:.FORTRAN:N$=.(F|
00004010  54 29 3a 43 46 25 3d 47  41 3a 54 49 25 3d 47 42  |T):CF%=GA:TI%=GB|
00004020  3a 54 52 24 3d 47 41 24  3a 54 59 24 3d 47 42 24  |:TR$=GA$:TY$=GB$|
00004030  3a f1 8a 58 35 2c 59 35  29 3b c4 49 4e 25 2c 22  |:..X5,Y5);.IN%,"|
00004040  20 22 29 3b 8a 58 35 2c  59 35 29 3b 4e 24 3a e5  | ");.X5,Y5);N$:.|
00004050  8d 44 6e 45 0d 10 5e 05  fa 0d 10 68 0d dd f2 46  |.DnE..^....h...F|
00004060  4f 52 54 52 41 4e 0d 10  72 1f e3 46 3d 31 b8 35  |ORTRAN..r..F=1.5|
00004070  3a e7 c0 54 24 2c 33 29  3d 46 55 24 28 46 29 8c  |:..T$,3)=FU$(F).|
00004080  e5 8d 64 7e 50 0d 10 7c  06 ed 46 0d 10 86 2a 46  |..d~P..|..F...*F|
00004090  54 52 24 3d 22 22 3a e3  49 3d 31 b8 a9 28 54 24  |TR$="":.I=1..(T$|
000040a0  29 3a e7 c1 54 24 2c 49  2c 31 29 3d 22 23 22 8c  |):..T$,I,1)="#".|
000040b0  e5 8d 74 5a 50 0d 10 90  1c 46 54 52 24 3d 46 54  |..tZP....FTR$=FT|
000040c0  52 24 2b c1 54 24 2c 49  2c 31 29 3a e5 8d 64 60  |R$+.T$,I,1):..d`|
000040d0  50 0d 10 9a 12 e7 49 3d  a9 28 54 24 29 8c e5 8d  |P.....I=.(T$)...|
000040e0  74 7a 45 0d 10 a4 10 4c  3d 49 2b 31 3a 46 54 24  |tzE....L=I+1:FT$|
000040f0  3d 22 22 0d 10 ae 39 e7  97 28 c1 54 24 2c 4c 2c  |=""...9..(.T$,L,|
00004100  31 29 29 3e 34 37 80 97  28 c1 54 24 2c 4c 2c 31  |1))>47..(.T$,L,1|
00004110  29 29 3c 35 38 8c 46 54  24 3d 46 54 24 2b c1 54  |))<58.FT$=FT$+.T|
00004120  24 2c 4c 2c 31 29 8b e5  8d 64 4c 50 0d 10 b8 18  |$,L,1)...dLP....|
00004130  4c 3d 4c 2b 31 3a e7 4c  3e a9 28 54 24 29 8c e5  |L=L+1:.L>.(T$)..|
00004140  8d 64 4c 50 0d 10 c2 09  e5 8d 74 6e 50 0d 10 cc  |.dLP......tnP...|
00004150  1e e7 bb 28 46 54 24 29  3d 30 84 bb 28 46 54 24  |...(FT$)=0..(FT$|
00004160  29 3e 4d 46 25 8c e5 8d  74 7a 45 0d 10 d6 4d 43  |)>MF%...tzE...MC|
00004170  46 25 3d bb 28 46 54 24  29 3a f2 46 4f 50 4f 55  |F%=.(FT$):.FOPOU|
00004180  54 3a cf 23 43 43 3d 28  43 52 25 2d 31 29 2a 52  |T:.#CC=(CR%-1)*R|
00004190  45 43 25 2b 54 49 25 3a  e8 23 43 43 2c 43 24 3a  |EC%+TI%:.#CC,C$:|
000041a0  46 54 52 24 3d 46 54 52  24 2b c3 28 bb 28 43 24  |FTR$=FTR$+.(.(C$|
000041b0  29 29 3a 49 3d 4c 2d 31  0d 10 e0 06 ed 49 0d 10  |)):I=L-1.....I..|
000041c0  ea 0e 46 54 3d a0 28 46  54 52 24 29 0d 10 f4 05  |..FT=.(FTR$)....|
000041d0  e1 0d 10 fe 84 e7 46 3d  31 8c 54 31 3d bb 28 c1  |......F=1.T1=.(.|
000041e0  4d 41 43 24 28 4d 41 29  2c 34 2c 33 29 29 3a 54  |MAC$(MA),4,3)):T|
000041f0  32 3d bb 28 c1 4d 41 43  24 28 4d 41 29 2c 37 2c  |2=.(.MAC$(MA),7,|
00004200  33 29 29 3a 54 3d 30 3a  e3 49 3d 54 31 20 b8 20  |3)):T=0:.I=T1 . |
00004210  54 32 3a 43 46 25 3d 49  3a f2 46 4f 50 4f 55 54  |T2:CF%=I:.FOPOUT|
00004220  3a cf 23 58 3d 28 4e 4f  52 25 2d 31 29 2a 52 45  |:.#X=(NOR%-1)*RE|
00004230  43 25 2b 54 49 25 3a e8  23 58 2c 43 24 3a 54 3d  |C%+TI%:.#X,C$:T=|
00004240  54 2b bb 28 43 24 29 3a  ed 49 3a 46 54 3d 54 3a  |T+.(C$):.I:FT=T:|
00004250  e5 8d 64 74 50 0d 11 08  90 e7 46 3d 32 8c 54 31  |..dtP.....F=2.T1|
00004260  3d bb 28 c1 4d 41 43 24  28 4d 41 29 2c 34 2c 33  |=.(.MAC$(MA),4,3|
00004270  29 29 3a 54 32 3d bb 28  c1 4d 41 43 24 28 4d 41  |)):T2=.(.MAC$(MA|
00004280  29 2c 37 2c 33 29 29 3a  54 3d 30 3a 4c 3d 30 3a  |),7,3)):T=0:L=0:|
00004290  e3 49 3d 54 31 20 b8 20  54 32 3a 43 46 25 3d 49  |.I=T1 . T2:CF%=I|
000042a0  3a f2 46 4f 50 4f 55 54  3a cf 23 58 3d 28 4e 4f  |:.FOPOUT:.#X=(NO|
000042b0  52 25 2d 31 29 2a 52 45  43 25 2b 54 49 25 3a e8  |R%-1)*REC%+TI%:.|
000042c0  23 58 2c 43 24 3a 54 3d  54 2b bb 28 43 24 29 3a  |#X,C$:T=T+.(C$):|
000042d0  4c 3d 4c 2b 31 3a ed 49  3a 46 54 3d 54 2f 4c 3a  |L=L+1:.I:FT=T/L:|
000042e0  e5 8d 64 74 50 0d 11 12  0e e7 46 3d 35 8c e5 8d  |..dtP.....F=5...|
000042f0  64 54 52 0d 11 1c 0e e7  46 3d 34 8c e5 8d 44 44  |dTR.....F=4...DD|
00004300  51 0d 11 26 3f 4d 41 58  3d 2d 39 39 39 39 39 39  |Q..&?MAX=-999999|
00004310  39 39 3a 4c 3d 30 3a 54  31 3d bb 28 c1 4d 41 43  |99:L=0:T1=.(.MAC|
00004320  24 28 4d 41 29 2c 34 2c  33 29 29 3a 54 32 3d bb  |$(MA),4,3)):T2=.|
00004330  28 c1 4d 41 43 24 28 4d  41 29 2c 37 2c 33 29 29  |(.MAC$(MA),7,3))|
00004340  0d 11 30 50 e3 49 3d 54  31 20 b8 20 54 32 3a 43  |..0P.I=T1 . T2:C|
00004350  46 25 3d 49 3a f2 46 4f  50 4f 55 54 3a cf 23 58  |F%=I:.FOPOUT:.#X|
00004360  3d 28 4e 4f 52 25 2d 31  29 2a 52 45 43 25 2b 54  |=(NOR%-1)*REC%+T|
00004370  49 25 3a e8 23 58 2c 43  24 3a e7 bb 28 43 24 29  |I%:.#X,C$:..(C$)|
00004380  3e 4d 41 58 20 8c 20 4d  41 58 3d bb 28 43 24 29  |>MAX . MAX=.(C$)|
00004390  0d 11 3a 13 ed 49 3a 46  54 3d 4d 41 58 3a e5 8d  |..:..I:FT=MAX:..|
000043a0  64 74 50 0d 11 44 3a 4d  41 58 3d 39 39 39 39 39  |dtP..D:MAX=99999|
000043b0  39 39 39 3a 54 31 3d bb  28 c1 4d 41 43 24 28 4d  |999:T1=.(.MAC$(M|
000043c0  41 29 2c 34 2c 33 29 29  3a 54 32 3d bb 28 c1 4d  |A),4,3)):T2=.(.M|
000043d0  41 43 24 28 4d 41 29 2c  37 2c 33 29 29 0d 11 4e  |AC$(MA),7,3))..N|
000043e0  50 e3 49 3d 54 31 20 b8  20 54 32 3a 43 46 25 3d  |P.I=T1 . T2:CF%=|
000043f0  49 3a f2 46 4f 50 4f 55  54 3a cf 23 58 3d 28 4e  |I:.FOPOUT:.#X=(N|
00004400  4f 52 25 2d 31 29 2a 52  45 43 25 2b 54 49 25 3a  |OR%-1)*REC%+TI%:|
00004410  e8 23 58 2c 43 24 3a e7  bb 28 43 24 29 3c 4d 41  |.#X,C$:..(C$)<MA|
00004420  58 20 8c 20 4d 41 58 3d  bb 28 43 24 29 0d 11 58  |X . MAX=.(C$)..X|
00004430  13 ed 49 3a 46 54 3d 4d  41 58 3a e5 8d 64 74 50  |..I:FT=MAX:..dtP|
00004440  0d 11 62 1b e7 c0 4d 41  43 24 28 4d 41 29 2c 31  |..b...MAC$(MA),1|
00004450  29 3d 22 23 22 8c e5 8d  74 68 51 0d 11 6c 44 f2  |)="#"...thQ..lD.|
00004460  43 54 4f 44 28 44 41 24  29 3a e7 4d 41 43 24 28  |CTOD(DA$):.MAC$(|
00004470  4d 41 29 3d 22 54 4f 44  41 59 22 8c f2 44 54 4f  |MA)="TODAY"..DTO|
00004480  43 28 50 44 31 29 3a 4e  24 3d 50 31 24 3a f1 8a  |C(PD1):N$=P1$:..|
00004490  58 35 2c 59 35 29 3b 4e  24 3a e5 8d 44 6e 45 0d  |X5,Y5);N$:..DnE.|
000044a0  11 76 35 50 35 24 3d c1  4d 41 43 24 28 4d 41 29  |.v5P5$=.MAC$(MA)|
000044b0  2c 33 2c a9 28 4d 41 43  24 28 4d 41 29 29 2d 32  |,3,.(MAC$(MA))-2|
000044c0  29 3a e7 c0 50 35 24 2c  31 29 3d 22 23 22 8c e5  |):..P5$,1)="#"..|
000044d0  8d 74 68 51 0d 11 80 36  50 44 31 3d 50 44 31 2b  |.thQ...6PD1=PD1+|
000044e0  bb 28 50 35 24 29 3a f2  44 54 4f 43 28 50 44 31  |.(P5$):.DTOC(PD1|
000044f0  29 3a 4e 24 3d 50 31 24  3a f1 8a 58 35 2c 59 35  |):N$=P1$:..X5,Y5|
00004500  29 3b 4e 24 3a e5 8d 44  6e 45 0d 11 8a 51 50 44  |);N$:..DnE...QPD|
00004510  33 3d c2 50 35 24 2c a9  28 50 35 24 29 2d 31 29  |3=.P5$,.(P5$)-1)|
00004520  3a cf 23 41 3d 28 50 44  33 2d 31 29 2a 36 31 2b  |:.#A=(PD3-1)*61+|
00004530  31 30 39 3a e8 23 41 2c  5a 5a 24 3a cf 23 58 3d  |109:.#A,ZZ$:.#X=|
00004540  28 4e 4f 52 25 2d 31 29  2a 52 45 43 25 2b bb 28  |(NOR%-1)*REC%+.(|
00004550  5a 5a 24 29 3a e8 23 58  2c 43 24 0d 11 94 49 e7  |ZZ$):.#X,C$...I.|
00004560  c1 4d 41 43 24 28 4d 41  29 2c 32 2c 31 29 3d 22  |.MAC$(MA),2,1)="|
00004570  2d 22 8c 50 44 31 3d 50  44 31 2d bb 28 43 24 29  |-".PD1=PD1-.(C$)|
00004580  3a f2 44 54 4f 43 28 50  44 31 29 3a 4e 24 3d 50  |:.DTOC(PD1):N$=P|
00004590  31 24 3a f1 8a 58 35 2c  59 35 29 3b 4e 24 3a e5  |1$:..X5,Y5);N$:.|
000045a0  8d 44 6e 45 0d 11 9e 35  50 44 31 3d 50 44 31 2b  |.DnE...5PD1=PD1+|
000045b0  bb 28 43 24 29 3a f2 44  54 4f 43 28 50 44 31 29  |.(C$):.DTOC(PD1)|
000045c0  3a 4e 24 3d 50 31 24 3a  f1 8a 58 35 2c 59 35 29  |:N$=P1$:..X5,Y5)|
000045d0  3b 4e 24 3a e5 8d 44 6e  45 0d 11 a8 8c 50 36 3d  |;N$:..DnE....P6=|
000045e0  bb 28 c1 4d 41 43 24 28  4d 41 29 2c 32 2c 33 29  |.(.MAC$(MA),2,3)|
000045f0  29 3a cf 23 41 3d 28 50  36 2d 31 29 2a 36 31 2b  |):.#A=(P6-1)*61+|
00004600  31 30 39 3a e8 23 41 2c  5a 5a 24 3a cf 23 58 3d  |109:.#A,ZZ$:.#X=|
00004610  28 4e 4f 52 25 2d 31 29  2a 52 45 43 25 2b bb 28  |(NOR%-1)*REC%+.(|
00004620  5a 5a 24 29 3a e8 23 58  2c 43 24 3a f2 43 54 4f  |ZZ$):.#X,C$:.CTO|
00004630  44 28 43 24 29 3a 50 35  24 3d c2 4d 41 43 24 28  |D(C$):P5$=.MAC$(|
00004640  4d 41 29 2c a9 28 4d 41  43 24 28 4d 41 29 29 2d  |MA),.(MAC$(MA))-|
00004650  35 29 3a e7 c0 50 35 24  2c 31 29 3d 22 23 22 8c  |5):..P5$,1)="#".|
00004660  e5 8d 74 7c 51 0d 11 b2  36 50 44 31 3d 50 44 31  |..t|Q...6PD1=PD1|
00004670  2b bb 28 50 35 24 29 3a  f2 44 54 4f 43 28 50 44  |+.(P5$):.DTOC(PD|
00004680  31 29 3a 4e 24 3d 50 31  24 3a f1 8a 58 35 2c 59  |1):N$=P1$:..X5,Y|
00004690  35 29 3b 4e 24 3a e5 8d  44 6e 45 0d 11 bc 84 50  |5);N$:..DnE....P|
000046a0  36 3d bb 28 c2 50 35 24  2c a9 28 50 35 24 29 2d  |6=.(.P5$,.(P5$)-|
000046b0  31 29 29 3a cf 23 41 3d  28 50 36 2d 31 29 2a 36  |1)):.#A=(P6-1)*6|
000046c0  31 2b 31 30 39 3a e8 23  41 2c 5a 5a 24 3a cf 23  |1+109:.#A,ZZ$:.#|
000046d0  58 3d 28 4e 4f 52 25 2d  31 29 2a 52 45 43 25 2b  |X=(NOR%-1)*REC%+|
000046e0  bb 28 5a 5a 24 29 3a e8  23 58 2c 43 24 3a 50 44  |.(ZZ$):.#X,C$:PD|
000046f0  31 3d 50 44 31 2b bb 28  43 24 29 3a f2 44 54 4f  |1=PD1+.(C$):.DTO|
00004700  43 28 50 44 31 29 3a 4e  24 3d 50 31 24 3a f1 8a  |C(PD1):N$=P1$:..|
00004710  58 35 2c 59 35 29 3b 4e  24 3a e5 8d 44 6e 45 0d  |X5,Y5);N$:..DnE.|
00004720  11 c6 05 fa 0d 11 d0 3f  dd f2 43 54 4f 44 28 50  |.......?..CTOD(P|
00004730  31 24 29 3a 50 31 3d bb  28 c1 50 31 24 2c 31 2c  |1$):P1=.(.P1$,1,|
00004740  32 29 29 3a 50 32 3d bb  28 c1 50 31 24 2c 34 2c  |2)):P2=.(.P1$,4,|
00004750  32 29 29 3a 50 33 3d bb  28 c1 50 31 24 2c 37 2c  |2)):P3=.(.P1$,7,|
00004760  32 29 29 0d 11 da 1f e7  50 31 3c 31 84 50 32 3c  |2)).....P1<1.P2<|
00004770  31 84 50 32 3e 31 32 84  50 33 3c 30 8c e5 8d 54  |1.P2>12.P3<0...T|
00004780  6a 52 0d 11 e4 22 e7 50  31 3c 3d bb 28 c1 53 45  |jR...".P1<=.(.SE|
00004790  47 24 2c 28 32 2a 50 32  29 2d 31 2c 32 29 29 8c  |G$,(2*P2)-1,2)).|
000047a0  8d 64 78 51 0d 11 ee 30  e7 20 50 31 3c 3e 32 39  |.dxQ...0. P1<>29|
000047b0  20 84 20 50 32 3c 3e 32  20 84 20 50 33 2d 28 a8  | . P2<>2 . P3-(.|
000047c0  28 50 33 2f 34 29 2a 34  29 3c 3e 30 20 8c 20 e5  |(P3/4)*4)<>0 . .|
000047d0  8d 54 6a 52 0d 11 f8 16  50 44 31 3d 50 31 3a e7  |.TjR....PD1=P1:.|
000047e0  50 32 3d 31 8c e5 8d 54  4c 52 0d 12 02 31 e3 50  |P2=1...TLR...1.P|
000047f0  34 3d 31 b8 28 50 32 2d  31 29 3a 50 44 31 3d 50  |4=1.(P2-1):PD1=P|
00004800  44 31 2b bb 28 c1 53 45  47 24 2c 28 32 2a 50 34  |D1+.(.SEG$,(2*P4|
00004810  29 2d 31 2c 32 29 29 3a  ed 50 34 0d 12 0c 20 50  |)-1,2)):.P4... P|
00004820  44 31 3d 50 44 31 2b 28  33 36 35 2a 50 33 29 2b  |D1=PD1+(365*P3)+|
00004830  a8 28 28 50 33 2b 33 29  2f 34 29 0d 12 16 24 e7  |.((P3+3)/4)...$.|
00004840  50 33 3d a8 28 50 33 2f  34 29 2a 34 20 80 20 50  |P3=.(P3/4)*4 . P|
00004850  32 3e 32 20 8c 20 50 44  31 3d 50 44 31 2b 31 0d  |2>2 . PD1=PD1+1.|
00004860  12 20 09 e5 8d 54 74 52  0d 12 2a 0a 50 44 31 3d  |. ...TtR..*.PD1=|
00004870  2d 31 0d 12 34 05 e1 0d  12 3e 0f dd f2 44 54 4f  |-1..4....>...DTO|
00004880  43 28 50 44 32 29 0d 12  48 16 50 31 3d a8 28 50  |C(PD2)..H.P1=.(P|
00004890  44 31 2f 33 36 36 29 3a  50 33 3d 31 0d 12 52 1f  |D1/366):P3=1..R.|
000048a0  50 35 3d a8 28 28 50 31  2b 33 29 2f 34 29 3a 50  |P5=.((P1+3)/4):P|
000048b0  34 3d 50 31 2d 28 50 35  2a 34 29 0d 12 5c 2e 50  |4=P1-(P5*4)..\.P|
000048c0  32 3d 50 44 31 2d 28 33  36 35 2a 50 31 29 2d 50  |2=PD1-(365*P1)-P|
000048d0  35 3a e7 50 34 3d 30 20  8c 20 50 35 3d 33 36 36  |5:.P4=0 . P5=366|
000048e0  20 8b 20 50 35 3d 33 36  35 0d 12 66 1a e7 50 32  | . P5=365..f..P2|
000048f0  3e 50 35 20 8c 20 50 31  3d 50 31 2b 31 3a e5 8d  |>P5 . P1=P1+1:..|
00004900  44 52 52 0d 12 70 19 e7  50 32 3c 31 20 8c 20 50  |DRR..p..P2<1 . P|
00004910  31 3d 50 31 2d 31 3a e5  8d 44 52 52 0d 12 7a 30  |1=P1-1:..DRR..z0|
00004920  50 35 3d bb 28 c1 53 45  47 24 2c 28 32 2a 50 33  |P5=.(.SEG$,(2*P3|
00004930  29 2d 31 2c 32 29 29 3a  e7 50 33 3d 32 80 50 34  |)-1,2)):.P3=2.P4|
00004940  3d 30 20 8c 20 50 35 3d  50 35 2b 31 0d 12 84 23  |=0 . P5=P5+1...#|
00004950  e7 50 32 3e 50 35 20 8c  20 50 33 3d 50 33 2b 31  |.P2>P5 . P3=P3+1|
00004960  3a 50 32 3d 50 32 2d 50  35 3a e5 8d 44 7a 52 0d  |:P2=P2-P5:..DzR.|
00004970  12 8e 24 50 31 24 3d c3  28 50 32 29 3a 50 31 24  |..$P1$=.(P2):P1$|
00004980  3d c4 32 2d a9 28 50 31  24 29 2c 22 30 22 29 2b  |=.2-.(P1$),"0")+|
00004990  50 31 24 0d 12 98 23 50  32 24 3d c3 28 50 33 29  |P1$...#P2$=.(P3)|
000049a0  3a e7 a9 28 50 32 24 29  3e 32 8c 50 32 24 3d c0  |:..(P2$)>2.P2$=.|
000049b0  50 32 24 2c 32 29 0d 12  a2 22 50 31 24 3d 50 31  |P2$,2)..."P1$=P1|
000049c0  24 2b 22 2f 22 2b c4 32  2d a9 28 50 32 24 29 2c  |$+"/"+.2-.(P2$),|
000049d0  22 30 22 29 2b 50 32 24  0d 12 ac 23 50 32 24 3d  |"0")+P2$...#P2$=|
000049e0  c3 28 50 31 29 3a e7 a9  28 50 32 24 29 3e 32 8c  |.(P1):..(P2$)>2.|
000049f0  50 32 24 3d c0 50 32 24  2c 32 29 0d 12 b6 22 50  |P2$=.P2$,2)..."P|
00004a00  31 24 3d 50 31 24 2b 22  2f 22 2b c4 32 2d a9 28  |1$=P1$+"/"+.2-.(|
00004a10  50 32 24 29 2c 22 30 22  29 2b 50 32 24 0d 12 c0  |P2$),"0")+P2$...|
00004a20  0b 50 44 31 3d 50 44 32  0d 12 ca 05 e1 0d 12 d4  |.PD1=PD2........|
00004a30  88 54 31 3d bb 28 c1 4d  41 43 24 28 4d 41 29 2c  |.T1=.(.MAC$(MA),|
00004a40  34 2c 33 29 29 3a 54 32  3d bb 28 c1 4d 41 43 24  |4,3)):T2=.(.MAC$|
00004a50  28 4d 41 29 2c 37 2c 33  29 29 3a 54 3d 30 3a 4c  |(MA),7,3)):T=0:L|
00004a60  3d 30 3a e3 49 3d 54 31  20 b8 20 54 32 3a 43 46  |=0:.I=T1 . T2:CF|
00004a70  25 3d 49 3a f2 46 4f 50  4f 55 54 3a cf 23 58 3d  |%=I:.FOPOUT:.#X=|
00004a80  28 4e 4f 52 25 2d 31 29  2a 52 45 43 25 2b 54 49  |(NOR%-1)*REC%+TI|
00004a90  25 3a e8 23 58 2c 43 24  3a 54 3d 54 2b bb 28 43  |%:.#X,C$:T=T+.(C|
00004aa0  24 29 3a 4c 3d 4c 2b 31  3a ed 49 3a 41 56 47 3d  |$):L=L+1:.I:AVG=|
00004ab0  28 54 2f 4c 29 0d 12 de  5d 54 54 3d 30 3a e3 49  |(T/L)...]TT=0:.I|
00004ac0  3d 54 31 20 b8 20 54 32  3a 43 46 25 3d 49 3a f2  |=T1 . T2:CF%=I:.|
00004ad0  46 4f 50 4f 55 54 3a cf  23 58 3d 28 4e 4f 52 25  |FOPOUT:.#X=(NOR%|
00004ae0  2d 31 29 2a 52 45 43 25  2b 54 49 25 3a e8 23 58  |-1)*REC%+TI%:.#X|
00004af0  2c 43 24 3a 54 3d 28 bb  28 43 24 29 2d 41 56 47  |,C$:T=(.(C$)-AVG|
00004b00  29 3a 54 3d 54 5e 32 3a  54 54 3d 54 54 2b 54 3a  |):T=T^2:TT=TT+T:|
00004b10  ed 49 0d 12 e8 16 46 54  3d b6 28 54 54 2f 41 56  |.I....FT=.(TT/AV|
00004b20  47 29 3a e5 8d 64 74 50  0d 12 f2 19 e7 54 59 24  |G):..dtP.....TY$|
00004b30  3d 22 30 22 80 49 4e 4e  25 3d 30 8c e5 8d 44 78  |="0".INN%=0...Dx|
00004b40  45 0d 12 fc 20 f2 54 52  49 4d 3a e7 a9 28 4e 24  |E... .TRIM:..(N$|
00004b50  29 3e 49 4e 25 8c 4e 24  3d c0 4e 24 2c 49 4e 25  |)>IN%.N$=.N$,IN%|
00004b60  29 0d 13 06 15 f1 8a 58  35 2c 59 35 29 3b 4e 24  |)......X5,Y5);N$|
00004b70  3a e5 8d 44 78 45 0d 13  10 28 dd f2 54 52 49 4d  |:..DxE...(..TRIM|
00004b80  3a 54 52 4d 3d bb 28 4d  41 43 24 28 4d 41 29 29  |:TRM=.(MAC$(MA))|
00004b90  3a 54 52 4e 3d bb 28 4e  24 29 3a 4c 3d 31 0d 13  |:TRN=.(N$):L=1..|
00004ba0  1a 1d e7 54 52 4d 3d 30  8c 4e 24 3d c3 28 a8 28  |...TRM=0.N$=.(.(|
00004bb0  54 52 4e 29 29 3a e5 8d  44 60 53 0d 13 24 30 e7  |TRN)):..D`S..$0.|
00004bc0  54 52 4e 3d a8 28 54 52  4e 29 8c 4e 24 3d c3 28  |TRN=.(TRN).N$=.(|
00004bd0  a8 28 54 52 4e 29 29 2b  22 2e 22 2b c4 54 52 4d  |.(TRN))+"."+.TRM|
00004be0  2c 22 30 22 29 3a e5 8d  44 60 53 0d 13 2e 17 e7  |,"0"):..D`S.....|
00004bf0  c1 4e 24 2c 4c 2c 31 29  3d 22 2e 22 8c e5 8d 44  |.N$,L,1)="."...D|
00004c00  42 53 0d 13 38 0f 4c 3d  4c 2b 31 3a e5 8d 54 6e  |BS..8.L=L+1:..Tn|
00004c10  53 0d 13 42 40 54 52 4d  24 3d c1 4e 24 2c 28 4c  |S..B@TRM$=.N$,(L|
00004c20  2b 31 29 2c a9 28 4e 24  29 2d 4c 29 3a e7 a9 28  |+1),.(N$)-L):..(|
00004c30  54 52 4d 24 29 3e 54 52  4d 20 8c 20 54 52 4d 24  |TRM$)>TRM . TRM$|
00004c40  3d c0 54 52 4d 24 2c 54  52 4d 29 3a e5 8d 44 56  |=.TRM$,TRM):..DV|
00004c50  53 0d 13 4c 36 e7 a9 28  54 52 4d 24 29 3c 54 52  |S..L6..(TRM$)<TR|
00004c60  4d 20 8c 20 54 52 4d 24  3d 54 52 4d 24 2b c4 28  |M . TRM$=TRM$+.(|
00004c70  54 52 4d 2d a9 28 54 52  4d 24 29 29 2c 22 30 22  |TRM-.(TRM$)),"0"|
00004c80  29 3a e5 8d 44 56 53 0d  13 56 12 4e 24 3d c0 4e  |):..DVS..V.N$=.N|
00004c90  24 2c 4c 29 2b 54 52 4d  24 0d 13 60 05 e1 0d 13  |$,L)+TRM$..`....|
00004ca0  6a 36 4c 25 3d 31 3a 4d  25 3d bb 28 c0 4d 41 43  |j6L%=1:M%=.(.MAC|
00004cb0  24 28 4d 41 29 2c 32 29  29 3a 50 25 3d 33 3a 4e  |$(MA),2)):P%=3:N|
00004cc0  4e 24 3d 4e 24 2b c4 31  32 2d a9 28 4e 24 29 2c  |N$=N$+.12-.(N$),|
00004cd0  22 20 22 29 0d 13 74 24  56 24 3d c1 4d 41 43 24  |" ")..t$V$=.MAC$|
00004ce0  28 4d 41 29 2c 50 25 2c  31 32 29 3a e7 56 24 3d  |(MA),P%,12):.V$=|
00004cf0  4e 4e 24 8c e5 52 4c 25  0d 13 7e 27 50 25 3d 50  |NN$..RL%..~'P%=P|
00004d00  25 2b 31 32 3a 4c 25 3d  4c 25 2b 31 3a e7 4c 25  |%+12:L%=L%+1:.L%|
00004d10  3e 4d 25 8c e5 8d 64 62  44 8b e5 8d 44 74 53 0d  |>M%...dbD...DtS.|
00004d20  13 88 6f dd f2 53 45 4c  45 43 54 4d 3a ff 22 46  |..o..SELECTM:."F|
00004d30  58 34 2c 31 22 3a 45 44  25 3d 59 2b 28 4c 25 2d  |X4,1":ED%=Y+(L%-|
00004d40  31 29 3a 42 47 25 3d 59  3a 4d 58 25 3d 30 3a e3  |1):BG%=Y:MX%=0:.|
00004d50  50 3d 31 b8 4c 25 3a f1  8a 58 58 2c 59 2b 28 50  |P=1.L%:..XX,Y+(P|
00004d60  2d 31 29 29 3b 22 20 20  20 22 3b 4d 45 24 28 50  |-1));"   ";ME$(P|
00004d70  29 3a e7 a9 28 4d 45 24  28 50 29 29 3e 4d 58 25  |):..(ME$(P))>MX%|
00004d80  8c 4d 58 25 3d a9 28 4d  45 24 28 50 29 29 0d 13  |.MX%=.(ME$(P))..|
00004d90  92 0d ed 50 3a 53 45 4c  25 3d 31 0d 13 9c 45 fb  |...P:SEL%=1...E.|
00004da0  31 33 31 3a f1 8a 58 58  2c 59 29 3b 22 20 22 3b  |131:..XX,Y);" ";|
00004db0  bd 28 32 35 32 29 3b 22  20 22 3b 4d 45 24 28 53  |.(252);" ";ME$(S|
00004dc0  45 4c 25 29 3b c4 4d 58  25 2d a9 28 4d 45 24 28  |EL%);.MX%-.(ME$(|
00004dd0  53 45 4c 25 29 29 2c 22  20 22 29 3a fb 46 47 25  |SEL%))," "):.FG%|
00004de0  0d 13 a6 17 49 24 3d be  3a 49 4e 3d 97 28 49 24  |....I$=.:IN=.(I$|
00004df0  29 3a e4 8d 64 40 48 0d  13 b0 13 e7 49 24 3d bd  |):..d@H.....I$=.|
00004e00  28 31 33 29 8c e5 8d 54  4a 54 0d 13 ba 11 e7 49  |(13)...TJT.....I|
00004e10  24 3d 22 8a 22 8c e5 8d  64 58 53 0d 13 c4 11 e7  |$="."...dXS.....|
00004e20  49 24 3d 22 8b 22 8c e5  8d 64 76 53 0d 13 ce 09  |I$="."...dvS....|
00004e30  e5 8d 74 66 53 0d 13 d8  10 e7 59 3d 45 44 25 8c  |..tfS.....Y=ED%.|
00004e40  e5 8d 74 66 53 0d 13 e2  22 f2 43 4c 45 41 54 3a  |..tfS...".CLEAT:|
00004e50  59 3d 59 2b 31 3a 53 45  4c 25 3d 53 45 4c 25 2b  |Y=Y+1:SEL%=SEL%+|
00004e60  31 3a e5 8d 74 5c 53 0d  13 ec 3c dd f2 43 4c 45  |1:..t\S...<..CLE|
00004e70  41 54 3a f1 8a 58 58 2c  59 29 3b 22 20 20 20 22  |AT:..XX,Y);"   "|
00004e80  3b 4d 45 24 28 53 45 4c  25 29 3b c4 4d 58 25 2d  |;ME$(SEL%);.MX%-|
00004e90  a9 28 4d 45 24 28 53 45  4c 25 29 29 2c 22 20 22  |.(ME$(SEL%))," "|
00004ea0  29 3a e1 0d 13 f6 10 e7  59 3d 42 47 25 8c e5 8d  |):......Y=BG%...|
00004eb0  74 66 53 0d 14 00 22 f2  43 4c 45 41 54 3a 59 3d  |tfS...".CLEAT:Y=|
00004ec0  59 2d 31 3a 53 45 4c 25  3d 53 45 4c 25 2d 31 3a  |Y-1:SEL%=SEL%-1:|
00004ed0  e5 8d 74 5c 53 0d 14 0a  05 e1 0d 14 14 19 dd f2  |..t\S...........|
00004ee0  52 4f 55 4e 44 3a 54 52  4e 3d bb 28 4e 24 29 3a  |ROUND:TRN=.(N$):|
00004ef0  4c 3d 31 0d 14 1e 1d e7  54 52 4d 3d 30 8c 4e 24  |L=1.....TRM=0.N$|
00004f00  3d c3 28 a8 28 54 52 4e  29 29 3a e5 8d 44 64 54  |=.(.(TRN)):..DdT|
00004f10  0d 14 28 30 e7 54 52 4e  3d a8 28 54 52 4e 29 8c  |..(0.TRN=.(TRN).|
00004f20  4e 24 3d c3 28 a8 28 54  52 4e 29 29 2b 22 2e 22  |N$=.(.(TRN))+"."|
00004f30  2b c4 54 52 4d 2c 22 30  22 29 3a e5 8d 44 64 54  |+.TRM,"0"):..DdT|
00004f40  0d 14 32 17 e7 c1 4e 24  2c 4c 2c 31 29 3d 22 2e  |..2...N$,L,1)=".|
00004f50  22 8c e5 8d 44 46 54 0d  14 3c 0f 4c 3d 4c 2b 31  |"...DFT..<.L=L+1|
00004f60  3a e5 8d 54 72 54 0d 14  46 40 54 52 4d 24 3d c1  |:..TrT..F@TRM$=.|
00004f70  4e 24 2c 28 4c 2b 31 29  2c a9 28 4e 24 29 2d 4c  |N$,(L+1),.(N$)-L|
00004f80  29 3a e7 a9 28 54 52 4d  24 29 3e 54 52 4d 20 8c  |):..(TRM$)>TRM .|
00004f90  20 54 52 4d 24 3d c0 54  52 4d 24 2c 54 52 4d 29  | TRM$=.TRM$,TRM)|
00004fa0  3a e5 8d 44 5a 54 0d 14  50 36 e7 a9 28 54 52 4d  |:..DZT..P6..(TRM|
00004fb0  24 29 3c 54 52 4d 20 8c  20 54 52 4d 24 3d 54 52  |$)<TRM . TRM$=TR|
00004fc0  4d 24 2b c4 28 54 52 4d  2d a9 28 54 52 4d 24 29  |M$+.(TRM-.(TRM$)|
00004fd0  29 2c 22 30 22 29 3a e5  8d 44 5a 54 0d 14 5a 12  |),"0"):..DZT..Z.|
00004fe0  4e 24 3d c0 4e 24 2c 4c  29 2b 54 52 4d 24 0d 14  |N$=.N$,L)+TRM$..|
00004ff0  64 05 e1 0d 14 6e 11 dd  f2 53 45 4c 3a 2a 46 58  |d....n...SEL:*FX|
00005000  31 35 2c 30 0d 14 78 6f  fb 31 32 38 3a 46 47 25  |15,0..xo.128:FG%|
00005010  3d 31 32 38 3a 58 3d 35  30 3a 59 3d 32 3a 57 25  |=128:X=50:Y=2:W%|
00005020  3d 32 31 3a 4c 25 3d 32  33 3a f2 4c 57 4e 3a fb  |=21:L%=23:.LWN:.|
00005030  46 47 25 3a f1 8a 35 31  2c 33 29 3b 22 53 65 6c  |FG%:..51,3);"Sel|
00005040  65 63 74 20 61 20 46 69  65 6c 64 3a 20 22 3b bd  |ect a Field: ";.|
00005050  28 31 33 38 29 3b 22 20  22 3b bd 28 31 33 39 29  |(138);" ";.(139)|
00005060  3b 8a 35 31 2c 34 29 3b  c4 32 31 2c bd 28 32 34  |;.51,4);.21,.(24|
00005070  31 29 29 0d 14 82 38 53  53 46 25 3d 31 3a 53 46  |1))...8SSF%=1:SF|
00005080  25 3d 31 3a 59 32 3d 36  3a 53 52 25 3d 53 46 25  |%=1:Y2=6:SR%=SF%|
00005090  3a ff 22 43 4c 4f 53 45  22 3a 41 3d ad 28 a4 4d  |:."CLOSE":A=.(.M|
000050a0  79 46 69 6c 65 28 46 4f  24 29 29 0d 14 8c 21 46  |yFile(FO$))...!F|
000050b0  52 25 3d 53 52 25 2b 31  39 3a e7 46 52 25 3e 4e  |R%=SR%+19:.FR%>N|
000050c0  4f 46 25 8c 46 52 25 3d  4e 4f 46 25 0d 14 96 7b  |OF%.FR%=NOF%...{|
000050d0  4c 3d 36 3a 4c 4c 3d 31  3a e3 49 3d 53 52 25 b8  |L=6:LL=1:.I=SR%.|
000050e0  46 52 25 3a cf 23 41 3d  28 49 2d 31 29 2a 36 31  |FR%:.#A=(I-1)*61|
000050f0  2b 36 33 3a e8 23 41 2c  46 4c 24 3a f1 8a 35 32  |+63:.#A,FL$:..52|
00005100  2c 4c 29 3b 46 4c 24 3a  4d 45 24 28 4c 4c 29 3d  |,L);FL$:ME$(LL)=|
00005110  46 4c 24 3a 4c 3d 4c 2b  31 3a 4c 4c 3d 4c 4c 2b  |FL$:L=L+1:LL=LL+|
00005120  31 3a ed 49 3a e7 20 4c  4c 3c 32 31 20 8c 20 e3  |1:.I:. LL<21 . .|
00005130  20 49 3d 4c 4c 20 b8 32  30 3a 4d 45 24 28 49 29  | I=LL .20:ME$(I)|
00005140  3d 22 20 22 3a ed 49 0d  14 a0 2b c8 97 20 58 50  |=" ":.I...+.. XP|
00005150  2c 59 50 2c 42 55 54 3a  58 50 3d a8 28 58 50 2f  |,YP,BUT:XP=.(XP/|
00005160  31 36 29 3a 59 50 3d 33  31 2d a8 28 59 50 2f 33  |16):YP=31-.(YP/3|
00005170  32 29 0d 14 aa 20 e7 58  50 3d 36 37 20 80 20 59  |2)... .XP=67 . Y|
00005180  50 3d 33 20 80 20 42 55  54 3d 34 20 8c e5 8d 64  |P=3 . BUT=4 ...d|
00005190  52 54 0d 14 b4 20 e7 58  50 3d 36 39 20 80 20 59  |RT... .XP=69 . Y|
000051a0  50 3d 33 20 80 20 42 55  54 3d 34 20 8c e5 8d 64  |P=3 . BUT=4 ...d|
000051b0  66 54 0d 14 be 40 e7 20  58 50 3e 37 31 20 84 20  |fT...@. XP>71 . |
000051c0  58 50 3c 35 31 20 84 20  59 50 3e 32 35 20 84 20  |XP<51 . YP>25 . |
000051d0  59 50 3c 36 20 8c 53 53  46 25 3d 30 3a f2 43 4c  |YP<6 .SSF%=0:.CL|
000051e0  45 41 46 3a 53 53 46 25  3d 53 46 25 3a e5 8d 74  |EAF:SSF%=SF%:..t|
000051f0  60 54 0d 14 c8 72 59 50  3d 59 50 2d 35 3a 53 46  |`T...rYP=YP-5:SF|
00005200  25 3d 28 59 50 2b 53 52  25 29 2d 31 3a f2 43 4c  |%=(YP+SR%)-1:.CL|
00005210  45 41 46 3a fb 31 33 31  3a f1 8a 35 32 2c 59 50  |EAF:.131:..52,YP|
00005220  2b 35 29 3b 4d 45 24 28  59 50 29 3b 89 28 32 30  |+5);ME$(YP);.(20|
00005230  2d a9 28 4d 45 24 28 59  50 29 29 29 3a fb 46 47  |-.(ME$(YP))):.FG|
00005240  25 3a e7 42 55 54 3d 34  20 80 20 53 46 25 3c 28  |%:.BUT=4 . SF%<(|
00005250  4e 4f 46 25 2b 31 29 8c  e5 8d 64 7a 54 3a 8b e5  |NOF%+1)...dzT:..|
00005260  8d 74 60 54 0d 14 d2 13  e7 46 52 25 3d 4e 4f 46  |.t`T.....FR%=NOF|
00005270  25 8c e5 8d 74 60 54 0d  14 dc 6e 53 52 25 3d 53  |%...t`T...nSR%=S|
00005280  52 25 2b 32 30 3a 58 3d  35 30 3a 59 3d 32 3a 57  |R%+20:X=50:Y=2:W|
00005290  25 3d 32 31 3a 4c 25 3d  32 33 3a f2 4c 57 4e 3a  |%=21:L%=23:.LWN:|
000052a0  f1 8a 35 31 2c 33 29 3b  22 53 65 6c 65 63 74 20  |..51,3);"Select |
000052b0  61 20 46 69 65 6c 64 3a  20 22 3b bd 28 31 33 38  |a Field: ";.(138|
000052c0  29 3b 22 20 22 3b bd 28  31 33 39 29 3b 8a 35 31  |);" ";.(139);.51|
000052d0  2c 34 29 3b c4 32 31 2c  bd 28 32 34 31 29 29 3a  |,4);.21,.(241)):|
000052e0  e5 8d 74 4c 54 0d 14 e6  10 e7 53 52 25 3d 31 8c  |..tLT.....SR%=1.|
000052f0  e5 8d 74 60 54 0d 14 f0  6e 53 52 25 3d 53 52 25  |..t`T...nSR%=SR%|
00005300  2d 32 30 3a 58 3d 35 30  3a 59 3d 32 3a 57 25 3d  |-20:X=50:Y=2:W%=|
00005310  32 31 3a 4c 25 3d 32 33  3a f2 4c 57 4e 3a f1 8a  |21:L%=23:.LWN:..|
00005320  35 31 2c 33 29 3b 22 53  65 6c 65 63 74 20 61 20  |51,3);"Select a |
00005330  46 69 65 6c 64 3a 20 22  3b bd 28 31 33 38 29 3b  |Field: ";.(138);|
00005340  22 20 22 3b bd 28 31 33  39 29 3b 8a 35 31 2c 34  |" ";.(139);.51,4|
00005350  29 3b c4 32 31 2c bd 28  32 34 31 29 29 3a e5 8d  |);.21,.(241)):..|
00005360  74 4c 54 0d 14 fa 65 ef  37 3a cf 23 41 3d 28 53  |tLT...e.7:.#A=(S|
00005370  46 25 2d 31 29 2a 36 31  2b 36 33 3a e8 23 41 2c  |F%-1)*61+63:.#A,|
00005380  46 4c 24 3a cf 23 41 3d  28 53 46 25 2d 31 29 2a  |FL$:.#A=(SF%-1)*|
00005390  36 31 2b 31 30 31 3a e8  23 41 2c 54 59 24 3a cf  |61+101:.#A,TY$:.|
000053a0  23 41 3d 28 53 46 25 2d  31 29 2a 36 31 2b 31 31  |#A=(SF%-1)*61+11|
000053b0  37 3a e8 23 41 2c 54 52  24 3a fb 31 38 30 3a 46  |7:.#A,TR$:.180:F|
000053c0  47 25 3d 31 38 30 3a e1  0d 15 04 42 dd f2 43 4c  |G%=180:....B..CL|
000053d0  45 41 46 3a e7 53 53 46  25 3c 3e 53 46 25 8c e3  |EAF:.SSF%<>SF%..|
000053e0  49 3d 31 b8 32 30 3a f1  8a 35 32 2c 49 2b 35 29  |I=1.20:..52,I+5)|
000053f0  3b 4d 45 24 28 49 29 3b  89 28 32 30 2d a9 28 4d  |;ME$(I);.(20-.(M|
00005400  45 24 28 49 29 29 29 3a  ed 49 0d 15 0e 0e 53 53  |E$(I))):.I....SS|
00005410  46 25 3d 53 46 25 3a e1  0d 15 18 2c dd f2 59 4e  |F%=SF%:....,..YN|
00005420  3a 78 70 3d b1 3a 79 70  3d bc 3a f1 22 20 22 3b  |:xp=.:yp=.:." ";|
00005430  3a fb 31 33 31 3a f1 22  59 45 53 2f 4e 4f 22 3a  |:.131:."YES/NO":|
00005440  fb 46 47 25 0d 15 22 38  c8 97 20 58 50 2c 59 50  |.FG%.."8.. XP,YP|
00005450  2c 42 55 54 3a 58 50 3d  a8 28 58 50 2f 31 36 29  |,BUT:XP=.(XP/16)|
00005460  3a 59 50 3d 33 31 2d a8  28 59 50 2f 33 32 29 3a  |:YP=31-.(YP/32):|
00005470  e7 42 55 54 3d 30 8c e5  8d 54 62 55 0d 15 2c 12  |.BUT=0...TbU..,.|
00005480  e7 59 50 3c 3e 79 70 20  8c e5 8d 54 62 55 0d 15  |.YP<>yp ...TbU..|
00005490  36 2b e7 58 50 3d 78 70  2b 31 20 84 20 58 50 3d  |6+.XP=xp+1 . XP=|
000054a0  78 70 2b 32 20 84 20 58  50 3d 78 70 2b 33 8c 59  |xp+2 . XP=xp+3.Y|
000054b0  4e 3d 31 3a e5 8d 44 54  55 0d 15 40 22 e7 58 50  |N=1:..DTU..@".XP|
000054c0  3d 78 70 2b 35 20 84 20  58 50 3d 78 70 2b 36 20  |=xp+5 . XP=xp+6 |
000054d0  8c 59 4e 3d 30 3a e5 8d  44 54 55 0d 15 4a 09 e5  |.YN=0:..DTU..J..|
000054e0  8d 54 62 55 0d 15 54 1b  f1 8a 78 70 2c 79 70 29  |.TbU..T...xp,yp)|
000054f0  3b 22 20 59 45 53 2f 4e  4f 22 3a ef 37 3a e1 0d  |;" YES/NO":.7:..|
00005500  15 5e 38 c8 97 20 58 50  2c 59 50 2c 42 55 54 3a  |.^8.. XP,YP,BUT:|
00005510  58 50 3d a8 28 58 50 2f  31 36 29 3a 59 50 3d 33  |XP=.(XP/16):YP=3|
00005520  31 2d a8 28 59 50 2f 33  32 29 3a e7 42 55 54 3d  |1-.(YP/32):.BUT=|
00005530  30 8c e5 8d 74 60 4a 0d  15 68 14 dd 20 a4 4d 79  |0...t`J..h.. .My|
00005540  46 69 6c 65 28 66 69 6c  65 24 29 0d 15 72 0a 3d  |File(file$)..r.=|
00005550  66 69 6c 65 24 0d 15 7c  0b dd 20 f2 51 75 69 74  |file$..|.. .Quit|
00005560  0d 15 86 1e c8 99 20 22  57 69 6d 70 5f 43 6f 6d  |...... "Wimp_Com|
00005570  6d 61 6e 64 57 69 6e 64  6f 77 22 2c 2d 31 0d 15  |mandWindow",-1..|
00005580  90 06 c8 98 0d 15 9a 05  e1 0d 9c 40 0d dd f2 44  |...........@...D|
00005590  69 72 28 64 24 29 0d 9c  4a 29 e7 20 64 24 20 3c  |ir(d$)..J). d$ <|
000055a0  3e 20 22 22 20 8c 20 ff  20 22 44 69 72 20 22 2b  |> "" . . "Dir "+|
000055b0  a4 4d 79 46 69 6c 65 28  c1 64 24 2c 32 29 29 0d  |.MyFile(.d$,2)).|
000055c0  9c 54 05 e1 0d ff                                 |.T....|
000055c6