� > $.!DataVis.!dv1
ș "Wimp_CommandWindow",-1
� 15:� 180:�
��T|O
(�:FG%=180:ȗ �:*FX225,128
2L�ME$(14):�A(6):�FU$(5):�I=1�5:�FU$(I):�I:SEG$="312831303130313130313031"
<"�"SUM","AVG","MAX","MIN","STD"
FZ�"CLOSE":X=�(�MyFile("NIM")):�#X,FI$,ST$,DA$,DR$,ZZ$,MD$:�#X:FO$=FI$+"A":ST$="1":�THB
P��MAIN:go%=0
U� "Dir <DataVision$Dir>"
ZB�ST$="1"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�Dir(DI$):� �tL@
dB�ST$="2"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�Dir(DI$):� �tL@
n
� �tL@
x5��MKLIK:�:ȗ U,U,BUT:�BUT=0:�:ȗ U,U,BUT:�BUT=4:�
�2��ERWIN:X=19:Y=11:W%=40:L%=3:�180:�LWN2:�FG%:�
���"CLOSE":X=� �MyFile(FO$):�#X=0:�#X,ZZ$:NOF%=�(ZZ$):�#X=5:�#X,ZZ$:NOR%=�(ZZ$):�#X=15:�#X,ZZ$:REC%=�(ZZ$):�#X=28:�#X,MAR$:�#X=48:�#X,RE$:�#X=56:�#X,MCA$:MCA%=�(MCA$):�#X=45:�#X,SO$
�$�(SO$)>0�SO$="0":�#X=45:�#X,SO$
��MAR$="1"��DTA
��RE$="1"��DrA
�go%=1:�
�1��SC:�A(6)=1�L=�(MTI$):L=80-L:�(L/2),1);MTI$
��A(1)=1��dz@
�G�128:�0,0);�80,�(241));�0,22);�80,�(241)):�28,0,31,79,23:�:�26:�45
܃�131:�2,28);"f1:";�2,29);"f2:";�18,28);"f3:";�18,29);"f4:";�34,28);"f5:";�34,29);"f6:";�50,28);"f8 :";�50,29);"f9 :":�128:�120
��6,28);"Prev. Field";�6,29);"Next Field";�22,28);"First Field";�22,29);"Date";�38,28);"Time";�38,29);"Erase Entry";�55,28);"Confirm";�55,29);"Quit"
�
�FG%:�127
��

	��LWN

��XX,Y);�(154);�W%,�(159));�(158):�P=Y+1�Y+L%:�XX,P);�(155);�XX+(W%+1),P);�(157):�P:�XX,Y+(L%+1));�(156);�W%,�(160));�(161)

�

"���LWN2:�XX,Y);�(154);�W%,�(159));�(158):�P=Y+1�Y+L%:�XX,P);�(155);�W%," ");�(157):�P:�XX,Y+(L%+1));�(156);�W%,�(160));�(161):�

,��FOPOUT

6�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$):�#A=POI+34:�#A,ZZ$:Y2=�(ZZ$):�#A=POI+38:�#A,TY$

@e�#A=POI+41:�#A,ZZ$:IN%=�(ZZ$):�#A=POI+46:�#A,ZZ$:TI%=�(ZZ$):�#A=POI+54:�#A,TR$:�#A=POI+58:�#A,NP$

J�

T��"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

^P�I=6�11:A(I-5)=�(�MAC$(0),I,1)):�I:�A(6)=1�MTI$=�MAC$(0),12,(�(MAC$(0)))-11)

h	�tj@

rb�"CLOSE":TA$=FI$+"C":X=��MyFile(TA$):�#X,M$:RE%=�(M$):�REL$(RE%):�I=1�RE%:�#X,REL$(I):�I:�tt@

|C��FPNT:�TY$="3"��28,XX-1,Y+L%,XX+W%,Y-1:�:�26:�X5,Y5);N$:�tZA

�5INN%=�(N$):LE%=80-X5:�INN%<=LE%��X5,Y5);N$:�tZA

�rNLD%=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%)

��

�7��FPRINT:LE%=80-X5:�IN%<=LE%��X5,Y5);�(IN%);:�txA

�_NLD%=IN% � LE%:LB%=IN% � LE%:�J%=1�NLD%:�X5,Y5+(J%-1));�(LE%);:�J%:�X5,Y5+(J%-1));�(LB%);

��

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

��MONTH>9�QUARTER=4

��MONTH>6�MONTH<10�QUARTER=3

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

��

���INFO:�A(1)=1��d~A

�T�128:�2,24);"Adding record ";NOR%;" to ";FI$:�131:�71,0);"PAGE";�(241);P%:�FG%

��
5�MAIN:NOR%=NOR%+1:�NOR%=1��#0:X=��MyFile(FI$):�#0
t�"CLOSE":� "Dir <DataVision$Dir>"+DI$:A=��MyFile(FO$):X=��MyFile(FI$):�QUART:�MCA%>0�FA$=FI$+"B":N=��MyFile(FA$)
"AF%=0:P%=1:MC=1:LRR%=0:�:�SC:�
&,�A(6)=1�L=�(MTI$):L=80-L:�(L/2),1);MTI$
0IN=0:CF%=1
:�CF%=AF%�AF%=0
DHIP=0:�FOPOUT:N$=�IN%," "):X5=X2:Y5=Y2:�FPRINT:�NP$="1"��:P%=P%+1:�SC
N0�INFO:�A(4)=1��(X2-1),Y2);"[";:�FPRINT:�"]"
X�A(3)=1��131
b0�X1,Y1);FL$:FIELD=CF%:SEQ=NOR%:�A(3)=1��FG%
l3�TR$,1)="1"��TR$,1)="2"�PUT$="I":RL%=630:�TLH
vA�TR$,1)="3"��TR$,1)="2"�PUT$="I":RL%=640:IN=�(0):�dLF:�DlL
��(TY$)>0��(TY$)<9�INN%=1
� �TY$="1"�LO%=33:HI%=255:�TY1
� �TY$="2"�LO%=33:HI%=255:�TY1
��TY$="3"��TY3
��TY$="4"��TY4
��TY$="5"��TY5
��TY$="6"��TY6
��TY$="7"�HI%=9:�TY7
��TY$="8"�HI%=18:�TY7
� �(TY$)>0��(TY$)<9�A(2)=1��7
�3��TR$,1)="1"��TR$,1)="2"�PUT$="O":RL%=750:�TLH
�	�dxB
�"�TY$="9"�TY$="0"�IN=�(0):�dLF
 �#X=(NOR%-1)*REC%+TI%:�#X,N$
$CF%=CF%+1:�CF%>NOF%��TVC:��TzB
'LRR%=1:CF%=NOF%:IN=�(0):�dLF:�TVC
 �#A=5:�#A,�(NOR%):*FX21,0
*(�#X=(NOR%*REC%)-10:�#X,�(NOR%):�D\C
4n�128:�2,24);"Printing record ";NOR%-1;"...                       ":�FG%:�28,0,21,79,1:�:R=NOR%-1:*FX200,2
>�':�2:�"Record ";R'
HP�H=1�NOF%:CF%=H:�FOPOUT:�#X=(R-1)*REC%+TI%:�#X,C$:�FL$;�21-�(FL$)," ");C$:�H
R�:�3:�:�26:�"FX200,1":�T\B
\�RE$<>"1"��tDC
f4�CF%=1�NOF%:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,N$
p3��TR$,1)="3"��TR$,1)="2"�PUT$="O":RL%=890:�DlL
z�CF%
�$NOR%=NOR%+1:�A(5)=0��T\B:��TtC
���TY1:FLE%=X2
�N$="":PT=0:CL$=" "
�*CL$="":�PT<IN%��X2,Y2);�(255):CL$=" "
�IN=�:�dLF
��IN=13��X2,Y2);CL$:�TnD
��IN=127��TFD
��IN=32��dhC
�, � TY$="2"�� IN>=97 � IN<=122 � IN=IN-32
��IN<LO%�IN>HI%��7:�tlC
��PT=IN%��tlC
�E�X2,Y2);�(IN):N$=N$+�(IN):PT=PT+1:X2=X2+1:�X2>79�Y2=Y2+1:X2=FLE%
�	�tbC
�PT=0��tbC
�PT<IN%��X2,Y2);" "
5PT=PT-1:N$=�N$,PT):X2=X2-1:�X2<FLE%�Y2=Y2-1:X2=79
$	�tbC
.�
8	��TY7
B3X2=X2+(HI%-1):X3=X2:N$="":PT=0:PO=0:�HI%=9�PO=1
L�PT=0��X2,Y2);"0"
VIN=�:�dLF
`�IN=13��dlD
j�IN=127��tpD
t�IN=46�PO=0�PO=1:�t\D
~�IN=46�PO=1��DLD
��IN=45�PT=0��tfD
��IN<48�IN>57��7:�DLD
��PT=HI%��DLD
�1N$=N$+�(IN):PT=PT+1:�X2,Y2);N$:X2=X2-1:�DLD
��PT=0��DLD
��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
�	�DLD
��N$=""�N$="0":IP=1
�!�X5,Y5);�IN%," ");�X5,Y5);N$
�

	��TY3
L=1
+�#N=(L-1)*245:�#N,MC$:�MC$=�(CF%)��TrE
(L=L+1:�T^E
2*�#N=(L-1)*245+5:�#N,MC$:CO%=1:L=1:W%=0
<LL=�MC$,�(254)):�LL=0��DZE
FWME$(CO%)=�MC$,LL-1):L=LL+1:MC$=�MC$,L):CO%=CO%+1:�(ME$(CO%-1))>W%�W%=�(ME$(CO%-1))
P	�T|E
Z%XX=X2:Y=Y2:W%=W%+3:L%=CO%-1:�LWN2
dXX=X2+1:Y=Y2+1:�SELECT
n2N$=ME$(SEL%):�I=0�CO%+2:�X2,Y2+I);�21," "):�I
x�X2,Y2);N$:�
�	��TY5
��X2,Y2);"../../..":N$=""
�X3=X2:�DAT:�DE=1��tLE
�'N$=N$+DAT$:X3=X2+3:�DAT:�DE=1��tLE
�/N$=N$+"/"+DAT$+"/":X3=X2+6:�DAT:�DE=1��tLE
�N$=N$+DAT$
�IN=�:�dLF:�IN=13��dRE
��IN=127��tLE��t~E
��DACHEK:�DAT%=1��tLE:��
�	�t~E
�	��DAT
�DE=0:DAT$="":X4=X3
�!IN=�:�dLF:�IN=127�DE=1:�TbF
�IN<48�IN>57��7:�dzE
;�X3,Y2);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��TbF
	�dzE
"�
,	��TY6
6�X2,Y2);"..:..":N$=""
@X3=X2:�DAT:�DE=1��TvF
JN$=N$+DAT$+":":X3=X2+3:�DAT
TN$=N$+DAT$
^IN=�:�dLF:�IN=13��DrF
h�IN=127��TvF��D^F
r�TICHEK:�DAT%=1��TvF:��
|	��TY4
�IN=�
�/�dLF:N$="":�IN=89�N$="Yes":��IN=78�N$="No"
�%�IN=121�N$="Yes":��IN=110�N$="No"
�9�N$=""��tFF:��X2,Y2);N$;" ":IN=�:�dLF:�IN=13��txF
�	�tPF
��
���CHEK:�dLF:�
��
�F%=0
��IN=137��T@O
�E�IN=129�CF%>1�F%=1:�FPNT:�FPRINT:CF%=CF%-1:�NP$="1"��:P%=P%-1:�SC
��F%=1��AF%=0�AF%=CF%+1
��F%=1��DDB
�IN=131�CF%<>1��T\B
�IN=136 � LRR%=1��T`C
%�IN=134��FPRINT:X2=X5:Y2=Y5:�DbB
&l�IN=130�AF%>0��#A=(CF%-1)*61+109:�#A,TIN$:�#X=(NOR%-1)*REC%+�(TIN$):�#X,N$:�FPRINT:�FPNT:CF%=CF%+1:�TzB
0,�IN=132�TY$="5"�N$=DA$:�X2,Y2);N$:�TBC
:3�IN=133�TY$="6"� N$=��$,17,5):�X2,Y2);N$:�TBC
D	�DvG
N�H<10�N$=N$+"0"
XN$=N$+�(H)+":"
b�M<10�N$=N$+"0"
l N$=N$+�(M):�X2,Y2);N$:�TBC
v�
�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$��TtH
 �MA=VA%��T\B
*MA=MA+1:�TVH
4#TP$=�MAL$(MA),1):�TP$="A"��tDH
>�TP$="B"��tNH
H�TP$="C"��tbH
R�TP$="D"��drH
\�TP$="E"��TFI
f�TP$="H"��TxI
p�TP$="G"��d`K
z�TP$="F"��DNL
�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$:�TBC
��RL%
	>T1=�(�MAC$(MA),12)):T2=�(�MAC$(MA),13,12)):M$=�MAC$(MA),1)
	�(N$)<T1 � �(N$)>T2 ��TdI
	�RL%
	$�M$="2"��T\B
	.0�M$="1"��X5,Y5);�IN%," "):X2=X5:Y2=Y5:�DbB
	8�TY$="5"��DPJ
	B�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$:�DvB
	L�
	V
��FORTRAN
	`�F=1�5:�T$,3)=FU$(F)��dlI
	j�F
	t*FTR$="":�I=1��(T$):�T$,I,1)="#"��tHI
	~FTR$=FTR$+�T$,I,1):�dNI
	��I=�(T$)��tzE
	�L=I+1:FT$=""
	�9�(�T$,L,1))>47��(�T$,L,1))<58�FT$=FT$+�T$,L,1)��tzI
	�L=L+1:�L>�(T$)��tzI
	�	�t\I
	��(FT$)=0��(FT$)>MF%��tzE
	�LCF%=�(FT$):�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,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:�dbI
	���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:�dbI
�F=5��dBK

�F=4��TrJ
?MAX=-99999999:L=0:T1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3))
P�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:�(C$)>MAX � MAX=�(C$)
(�I:FT=MAX:�dbI
2:MAX=99999999:T1=�(�MAC$(MA),4,3)):T2=�(�MAC$(MA),7,3))
<P�I=T1 � T2:CF%=I:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$:�(C$)<MAX � MAX=�(C$)
F�I:FT=MAX:�dbI
P�MAC$(MA),1)="#"��tVJ
ZD�CTOD(DA$):�MAC$(MA)="TODAY"��DTOC(PD1):N$=P1$:�X5,Y5);N$:�ddB
d5P5$=�MAC$(MA),3,�(MAC$(MA))-2):�P5$,1)="#"��tVJ
n6PD1=PD1+�(P5$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�ddB
xQPD3=�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$:�ddB
�5PD1=PD1+�(C$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�ddB
��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)="#"��tjJ
�6PD1=PD1+�(P5$):�DTOC(PD1):N$=P1$:�X5,Y5);N$:�ddB
��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$:�ddB
��
�?��CTOD(P1$):P1=�(�P1$,1,2)):P2=�(�P1$,4,2)):P3=�(�P1$,7,2))
��P1<1�P2<1�P2>12�P3<0��TXK
�"�P1<=�(�SEG$,(2*P2)-1,2))��dfJ
�0� P1<>29 � P2<>2 � P3-(�(P3/4)*4)<>0 � �TXK
�PD1=P1:�P2=1��dzJ
�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
	�TbK

PD1=-1
"�
,��DTOC(PD2)
6P1=�(PD1/366):P3=1
@P5=�((P1+3)/4):P4=P1-(P5*4)
J.P2=PD1-(365*P1)-P5:�P4=0 � P5=366 � P5=365
T�P2>P5 � P1=P1+1:�D@K
^�P2<1 � P1=P1-1:�D@K
h0P5=�(�SEG$,(2*P3)-1,2)):�P3=2�P4=0 � P5=P5+1
r#�P2>P5 � P3=P3+1:P2=P2-P5:�DhK
|$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):�dbI
��TY$="0"�INN%=0��dnB
��TRIM:�X5,Y5);N$:�dnB
�(��TRIM:TRM=�(MAC$(MA)):TRN=�(N$):L=1
��TRM=0�N$=�(�(TRN)):�DDL
0�TRN=�(TRN)�N$=�(�(TRN))+"."+�TRM,"0"):�DDL
�N$,L,1)="."��TfL
L=L+1:�TRL
&@TRM$=�N$,(L+1),�(N$)-L):�(TRM$)>TRM � TRM$=�TRM$,TRM):�TzL
06�(TRM$)<TRM � TRM$=TRM$+�(TRM-�(TRM$)),"0"):�TzL
:N$=�N$,L)+TRM$
D�X5,Y5);�(18);�X5,Y5);N$:�
N6L%=1:M%=�(�MAC$(MA),2)):P%=3:NN$=N$+�12-�(N$)," ")
X$V$=�MAC$(MA),P%,12):�V$=NN$��RL%
b'P%=P%+12:L%=L%+1:�L%>M%��DDB��DXL
l+�CONV(CF%,3):STN$=STN$+PUT$:L=1:��T|O
v��T|O
��REL$(L),4)=STN$��thL
�L=L+1:�L>RE%��tTL:��DvL
���T|O
�	�DzC
��LF$=�REL$(L),6,9):B%=�(�REL$(L),15,3)):C%=�(�REL$(L),18,3)):D%=�(�REL$(L),21,3)):R$=�REL$(L),24,1):LL=1:S$="":TRIM$=�REL$(L),1)
��LF$,LL,1)=" "��dFL
�"S$=S$+�LF$,LL,1):LL=LL+1:�trL
�DLF$=S$:GA=CF%:GB=TI%:CF%=B%:�FOPOUT:�#X=(NOR%-1)*REC%+TI%:�#X,C$
�TA$=LF$+"N":� "Dir <DataVision$Dir>":H=��MyFile(TA$):�#H,DIR$:TA$=LF$+"A":�#H:�Dir(DIR$):H=��MyFile(TA$):�#H=(C%-1)*61+109:�#H,TI1$:�#H=(D%-1)*61+109:�#H,TI2$:�#H=5:�#H,NOR$:�#H=15:�#H,REC$
�"�#H=(C%-1)*61+104:�#H,INN$:�#H
�;N%=��MyFile(LF$):FO%=0:R%=�(REC$):C%=�(TI1$):D%=�(TI2$)
�Y�I=1��(NOR$):�#N%=(I-1)*R%+C%:�#N%,E$:�#N%=(I-1)*R%+D%:�#N%,D$:�D$=C$�FO%=I:I=�(NOR$)
��I:�FO%=0��REJ ��TBM

-�REL$(L),5,1)="1"�N$=E$:�FPNT:�OPE:�ddB


NN$=N$

K�REL$(L),5,1)="2"��LECHEK:�#N%=(FO%-1)*R%+C%:�#N%,N$:�OPE:N$=NN$:�tJL

 r�REL$(L),5,1)="3"�SAS=�(E$)+�(N$):F$=�(SAS):�TRIM2:N$=F$:�LECHEK:�#N%=(FO%-1)*R%+C%:�#N%,N$:�OPE:N$=NN$:�tJL

*r�REL$(L),5,1)="4"�SAS=�(E$)-�(N$):F$=�(SAS):�TRIM2:N$=F$:�LECHEK:�#N%=(FO%-1)*R%+C%:�#N%,N$:�OPE:N$=NN$:�tJL

4$��OPE:�#N%:CF%=GA:TI%=GB:��T|O

>�

H��REJ:�OPE:�R$="R"��T\B

R�X5,Y5);�(IN%):�DNB

\,��LECHEK:�(N$)>�(INN$) �N$=�N$,�(INN$))

f�

pn�ERWIN:�180:�20,12);"Cannot relate to ";LF$;":";�20,14);"Press any key to continue...":�FG%:�7:I$=�:�T@O

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

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

�"�(D$)<1��(D$)>31�DAT%=1:�d^M

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

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

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

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

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

�,�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:�TFN

�"�(M$)<0��(M$)>59�DAT%=1:�TFN
�
+��TRIM2:TRM=�(TRIM$):TRN=�(F$):l%=L:L=1
�TRM=0�F$=�(TRN):�D`N
$0�TRN=�(TRN)�F$=�(�(TRN))+"."+�TRM,"0"):�D`N
.�F$,L,1)="."��DBN
8L=L+1:�TnN
B@TRM$=�F$,(L+1),�(F$)-L):�(TRM$)>TRM � TRM$=�TRM$,TRM):�DVN
L6�(TRM$)<TRM � TRM$=TRM$+�(TRM-�(TRM$)),"0"):�DVN
VF$=�F$,L)+TRM$
`
L=l%:�
jn��SELECT:�"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))
t
�P:SEL%=1
~E�131:�XX,Y);" ";�(252);" ";ME$(SEL%);�MX%-�(ME$(SEL%))," "):�FG%
�I$=�:IN=�(I$):�CHEK
��I$=�(13)��dlN
��I$="�"��tzN
��I$="�"��dXN
�	�tHN
��Y=ED%��tHN
�!�CLEA:Y=Y+1:SEL%=SEL%+1:�D~N
�;��CLEA:�XX,Y);"   ";ME$(SEL%);�MX%-�(ME$(SEL%))," "):�
��Y=BG%��tHN
�!�CLEA:Y=Y-1:SEL%=SEL%-1:�D~N
��
� 
 

�"CLOSE"
 
	�Quit
( 
2 
<�=17��3:� #0:�26:�Quit
F�go%=0��DdO
PR�ERWIN:�180:�20,12);"System Reported Error #";�;":";�20,14);�$:�7:�FG%:�MKLIK
Z�"CLOSE":�3:�26:�T\B
d{�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(does not exist/not a DataVision file)":�FG%:�7:�MKLIK:�T@O
n� �MyFile(file$)
x
=file$
�� �Quit
�ș "Wimp_CommandWindow",-1
�Ș
��
�@
��Dir(d$)
�J)� d$ <> "" � � "Dir "+�MyFile(�d$,2))
�T�
�

00000000  0d 00 0a 17 f4 20 3e 20  24 2e 21 44 61 74 61 56  |..... > $.!DataV|
00000010  69 73 2e 21 64 76 31 0d  00 0f 1e c8 99 20 22 57  |is.!dv1...... "W|
00000020  69 6d 70 5f 43 6f 6d 6d  61 6e 64 57 69 6e 64 6f  |imp_CommandWindo|
00000030  77 22 2c 2d 31 0d 00 14  10 eb 20 31 35 3a fb 20  |w",-1..... 15:. |
00000040  31 38 30 3a db 0d 00 1e  0b ee 85 e5 8d 54 7c 4f  |180:.........T|O|
00000050  0d 00 28 1d 87 3a 46 47  25 3d 31 38 30 3a c8 97  |..(..:FG%=180:..|
00000060  20 87 3a 2a 46 58 32 32  35 2c 31 32 38 0d 00 32  | .:*FX225,128..2|
00000070  4c de 4d 45 24 28 31 34  29 3a de 41 28 36 29 3a  |L.ME$(14):.A(6):|
00000080  de 46 55 24 28 35 29 3a  e3 49 3d 31 b8 35 3a f3  |.FU$(5):.I=1.5:.|
00000090  46 55 24 28 49 29 3a ed  49 3a 53 45 47 24 3d 22  |FU$(I):.I:SEG$="|
000000a0  33 31 32 38 33 31 33 30  33 31 33 30 33 31 33 31  |3128313031303131|
000000b0  33 30 33 31 33 30 33 31  22 0d 00 3c 22 dc 22 53  |30313031"..<"."S|
000000c0  55 4d 22 2c 22 41 56 47  22 2c 22 4d 41 58 22 2c  |UM","AVG","MAX",|
000000d0  22 4d 49 4e 22 2c 22 53  54 44 22 0d 00 46 5a ff  |"MIN","STD"..FZ.|
000000e0  22 43 4c 4f 53 45 22 3a  58 3d ad 28 a4 4d 79 46  |"CLOSE":X=.(.MyF|
000000f0  69 6c 65 28 22 4e 49 4d  22 29 29 3a e8 23 58 2c  |ile("NIM")):.#X,|
00000100  46 49 24 2c 53 54 24 2c  44 41 24 2c 44 52 24 2c  |FI$,ST$,DA$,DR$,|
00000110  5a 5a 24 2c 4d 44 24 3a  d9 23 58 3a 46 4f 24 3d  |ZZ$,MD$:.#X:FO$=|
00000120  46 49 24 2b 22 41 22 3a  53 54 24 3d 22 31 22 3a  |FI$+"A":ST$="1":|
00000130  e5 8d 54 48 42 0d 00 50  10 dd f2 4d 41 49 4e 3a  |..THB..P...MAIN:|
00000140  67 6f 25 3d 30 0d 00 55  1c ff 20 22 44 69 72 20  |go%=0..U.. "Dir |
00000150  3c 44 61 74 61 56 69 73  69 6f 6e 24 44 69 72 3e  |<DataVision$Dir>|
00000160  22 0d 00 5a 42 e7 53 54  24 3d 22 31 22 8c 20 54  |"..ZB.ST$="1". T|
00000170  41 24 3d 46 49 24 2b 22  4e 22 3a 58 3d ad a4 4d  |A$=FI$+"N":X=..M|
00000180  79 46 69 6c 65 28 54 41  24 29 3a e8 23 58 2c 44  |yFile(TA$):.#X,D|
00000190  49 24 3a f2 44 69 72 28  44 49 24 29 3a e5 20 8d  |I$:.Dir(DI$):. .|
000001a0  74 4c 40 0d 00 64 42 e7  53 54 24 3d 22 32 22 8c  |tL@..dB.ST$="2".|
000001b0  20 54 41 24 3d 46 49 24  2b 22 4e 22 3a 58 3d ad  | TA$=FI$+"N":X=.|
000001c0  a4 4d 79 46 69 6c 65 28  54 41 24 29 3a e8 23 58  |.MyFile(TA$):.#X|
000001d0  2c 44 49 24 3a f2 44 69  72 28 44 49 24 29 3a e5  |,DI$:.Dir(DI$):.|
000001e0  20 8d 74 4c 40 0d 00 6e  0a e5 20 8d 74 4c 40 0d  | .tL@..n.. .tL@.|
000001f0  00 78 35 dd f2 4d 4b 4c  49 4b 3a f5 3a c8 97 20  |.x5..MKLIK:.:.. |
00000200  55 2c 55 2c 42 55 54 3a  fd 42 55 54 3d 30 3a f5  |U,U,BUT:.BUT=0:.|
00000210  3a c8 97 20 55 2c 55 2c  42 55 54 3a fd 42 55 54  |:.. U,U,BUT:.BUT|
00000220  3d 34 3a e1 0d 00 82 32  dd f2 45 52 57 49 4e 3a  |=4:....2..ERWIN:|
00000230  58 3d 31 39 3a 59 3d 31  31 3a 57 25 3d 34 30 3a  |X=19:Y=11:W%=40:|
00000240  4c 25 3d 33 3a fb 31 38  30 3a f2 4c 57 4e 32 3a  |L%=3:.180:.LWN2:|
00000250  fb 46 47 25 3a e1 0d 00  8c b7 ff 22 43 4c 4f 53  |.FG%:......"CLOS|
00000260  45 22 3a 58 3d ad 20 a4  4d 79 46 69 6c 65 28 46  |E":X=. .MyFile(F|
00000270  4f 24 29 3a cf 23 58 3d  30 3a e8 23 58 2c 5a 5a  |O$):.#X=0:.#X,ZZ|
00000280  24 3a 4e 4f 46 25 3d bb  28 5a 5a 24 29 3a cf 23  |$:NOF%=.(ZZ$):.#|
00000290  58 3d 35 3a e8 23 58 2c  5a 5a 24 3a 4e 4f 52 25  |X=5:.#X,ZZ$:NOR%|
000002a0  3d bb 28 5a 5a 24 29 3a  cf 23 58 3d 31 35 3a e8  |=.(ZZ$):.#X=15:.|
000002b0  23 58 2c 5a 5a 24 3a 52  45 43 25 3d bb 28 5a 5a  |#X,ZZ$:REC%=.(ZZ|
000002c0  24 29 3a cf 23 58 3d 32  38 3a e8 23 58 2c 4d 41  |$):.#X=28:.#X,MA|
000002d0  52 24 3a cf 23 58 3d 34  38 3a e8 23 58 2c 52 45  |R$:.#X=48:.#X,RE|
000002e0  24 3a cf 23 58 3d 35 36  3a e8 23 58 2c 4d 43 41  |$:.#X=56:.#X,MCA|
000002f0  24 3a 4d 43 41 25 3d bb  28 4d 43 41 24 29 3a cf  |$:MCA%=.(MCA$):.|
00000300  23 58 3d 34 35 3a e8 23  58 2c 53 4f 24 0d 00 96  |#X=45:.#X,SO$...|
00000310  24 e7 bb 28 53 4f 24 29  3e 30 8c 53 4f 24 3d 22  |$..(SO$)>0.SO$="|
00000320  30 22 3a cf 23 58 3d 34  35 3a f1 23 58 2c 53 4f  |0":.#X=45:.#X,SO|
00000330  24 0d 00 a0 13 e7 4d 41  52 24 3d 22 31 22 8c e5  |$.....MAR$="1"..|
00000340  8d 44 54 41 0d 00 aa 12  e7 52 45 24 3d 22 31 22  |.DTA.....RE$="1"|
00000350  8c e5 8d 44 72 41 0d 00  b4 0b 67 6f 25 3d 31 3a  |...DrA....go%=1:|
00000360  e1 0d 00 be 31 dd f2 53  43 3a e7 41 28 36 29 3d  |....1..SC:.A(6)=|
00000370  31 8c 4c 3d a9 28 4d 54  49 24 29 3a 4c 3d 38 30  |1.L=.(MTI$):L=80|
00000380  2d 4c 3a f1 8a 28 4c 2f  32 29 2c 31 29 3b 4d 54  |-L:..(L/2),1);MT|
00000390  49 24 0d 00 c8 11 e7 41  28 31 29 3d 31 8c e5 8d  |I$.....A(1)=1...|
000003a0  64 7a 40 0d 00 d2 47 fb  31 32 38 3a f1 8a 30 2c  |dz@...G.128:..0,|
000003b0  30 29 3b c4 38 30 2c bd  28 32 34 31 29 29 3b 8a  |0);.80,.(241));.|
000003c0  30 2c 32 32 29 3b c4 38  30 2c bd 28 32 34 31 29  |0,22);.80,.(241)|
000003d0  29 3a ef 32 38 2c 30 2c  33 31 2c 37 39 2c 32 33  |):.28,0,31,79,23|
000003e0  3a db 3a ef 32 36 3a fb  34 35 0d 00 dc 83 fb 31  |:.:.26:.45.....1|
000003f0  33 31 3a f1 8a 32 2c 32  38 29 3b 22 66 31 3a 22  |31:..2,28);"f1:"|
00000400  3b 8a 32 2c 32 39 29 3b  22 66 32 3a 22 3b 8a 31  |;.2,29);"f2:";.1|
00000410  38 2c 32 38 29 3b 22 66  33 3a 22 3b 8a 31 38 2c  |8,28);"f3:";.18,|
00000420  32 39 29 3b 22 66 34 3a  22 3b 8a 33 34 2c 32 38  |29);"f4:";.34,28|
00000430  29 3b 22 66 35 3a 22 3b  8a 33 34 2c 32 39 29 3b  |);"f5:";.34,29);|
00000440  22 66 36 3a 22 3b 8a 35  30 2c 32 38 29 3b 22 66  |"f6:";.50,28);"f|
00000450  38 20 3a 22 3b 8a 35 30  2c 32 39 29 3b 22 66 39  |8 :";.50,29);"f9|
00000460  20 3a 22 3a fb 31 32 38  3a fb 31 32 30 0d 00 e6  | :":.128:.120...|
00000470  98 f1 8a 36 2c 32 38 29  3b 22 50 72 65 76 2e 20  |...6,28);"Prev. |
00000480  46 69 65 6c 64 22 3b 8a  36 2c 32 39 29 3b 22 4e  |Field";.6,29);"N|
00000490  65 78 74 20 46 69 65 6c  64 22 3b 8a 32 32 2c 32  |ext Field";.22,2|
000004a0  38 29 3b 22 46 69 72 73  74 20 46 69 65 6c 64 22  |8);"First Field"|
000004b0  3b 8a 32 32 2c 32 39 29  3b 22 44 61 74 65 22 3b  |;.22,29);"Date";|
000004c0  8a 33 38 2c 32 38 29 3b  22 54 69 6d 65 22 3b 8a  |.38,28);"Time";.|
000004d0  33 38 2c 32 39 29 3b 22  45 72 61 73 65 20 45 6e  |38,29);"Erase En|
000004e0  74 72 79 22 3b 8a 35 35  2c 32 38 29 3b 22 43 6f  |try";.55,28);"Co|
000004f0  6e 66 69 72 6d 22 3b 8a  35 35 2c 32 39 29 3b 22  |nfirm";.55,29);"|
00000500  51 75 69 74 22 0d 00 f0  0d fb 46 47 25 3a fb 31  |Quit".....FG%:.1|
00000510  32 37 0d 00 fa 05 e1 0d  01 04 09 dd f2 4c 57 4e  |27...........LWN|
00000520  0d 01 0e 81 f1 8a 58 58  2c 59 29 3b bd 28 31 35  |......XX,Y);.(15|
00000530  34 29 3b c4 57 25 2c bd  28 31 35 39 29 29 3b bd  |4);.W%,.(159));.|
00000540  28 31 35 38 29 3a e3 50  3d 59 2b 31 b8 59 2b 4c  |(158):.P=Y+1.Y+L|
00000550  25 3a f1 8a 58 58 2c 50  29 3b bd 28 31 35 35 29  |%:..XX,P);.(155)|
00000560  3b 8a 58 58 2b 28 57 25  2b 31 29 2c 50 29 3b bd  |;.XX+(W%+1),P);.|
00000570  28 31 35 37 29 3a ed 50  3a f1 8a 58 58 2c 59 2b  |(157):.P:..XX,Y+|
00000580  28 4c 25 2b 31 29 29 3b  bd 28 31 35 36 29 3b c4  |(L%+1));.(156);.|
00000590  57 25 2c bd 28 31 36 30  29 29 3b bd 28 31 36 31  |W%,.(160));.(161|
000005a0  29 0d 01 18 05 e1 0d 01  22 85 dd f2 4c 57 4e 32  |)......."...LWN2|
000005b0  3a f1 8a 58 58 2c 59 29  3b bd 28 31 35 34 29 3b  |:..XX,Y);.(154);|
000005c0  c4 57 25 2c bd 28 31 35  39 29 29 3b bd 28 31 35  |.W%,.(159));.(15|
000005d0  38 29 3a e3 50 3d 59 2b  31 b8 59 2b 4c 25 3a f1  |8):.P=Y+1.Y+L%:.|
000005e0  8a 58 58 2c 50 29 3b bd  28 31 35 35 29 3b c4 57  |.XX,P);.(155);.W|
000005f0  25 2c 22 20 22 29 3b bd  28 31 35 37 29 3a ed 50  |%," ");.(157):.P|
00000600  3a f1 8a 58 58 2c 59 2b  28 4c 25 2b 31 29 29 3b  |:..XX,Y+(L%+1));|
00000610  bd 28 31 35 36 29 3b c4  57 25 2c bd 28 31 36 30  |.(156);.W%,.(160|
00000620  29 29 3b bd 28 31 36 31  29 3a e1 0d 01 2c 0c dd  |));.(161):...,..|
00000630  f2 46 4f 50 4f 55 54 0d  01 36 ac 50 4f 49 3d 28  |.FOPOUT..6.POI=(|
00000640  43 46 25 2d 31 29 2a 36  31 2b 36 33 3a cf 23 41  |CF%-1)*61+63:.#A|
00000650  3d 50 4f 49 3a e8 23 41  2c 46 4c 24 3a cf 23 41  |=POI:.#A,FL$:.#A|
00000660  3d 50 4f 49 2b 32 32 3a  e8 23 41 2c 5a 5a 24 3a  |=POI+22:.#A,ZZ$:|
00000670  58 31 3d bb 28 5a 5a 24  29 3a cf 23 41 3d 50 4f  |X1=.(ZZ$):.#A=PO|
00000680  49 2b 32 36 3a e8 23 41  2c 5a 5a 24 3a 59 31 3d  |I+26:.#A,ZZ$:Y1=|
00000690  bb 28 5a 5a 24 29 3a cf  23 41 3d 50 4f 49 2b 33  |.(ZZ$):.#A=POI+3|
000006a0  30 3a e8 23 41 2c 5a 5a  24 3a 58 32 3d bb 28 5a  |0:.#A,ZZ$:X2=.(Z|
000006b0  5a 24 29 3a cf 23 41 3d  50 4f 49 2b 33 34 3a e8  |Z$):.#A=POI+34:.|
000006c0  23 41 2c 5a 5a 24 3a 59  32 3d bb 28 5a 5a 24 29  |#A,ZZ$:Y2=.(ZZ$)|
000006d0  3a cf 23 41 3d 50 4f 49  2b 33 38 3a e8 23 41 2c  |:.#A=POI+38:.#A,|
000006e0  54 59 24 0d 01 40 65 cf  23 41 3d 50 4f 49 2b 34  |TY$..@e.#A=POI+4|
000006f0  31 3a e8 23 41 2c 5a 5a  24 3a 49 4e 25 3d bb 28  |1:.#A,ZZ$:IN%=.(|
00000700  5a 5a 24 29 3a cf 23 41  3d 50 4f 49 2b 34 36 3a  |ZZ$):.#A=POI+46:|
00000710  e8 23 41 2c 5a 5a 24 3a  54 49 25 3d bb 28 5a 5a  |.#A,ZZ$:TI%=.(ZZ|
00000720  24 29 3a cf 23 41 3d 50  4f 49 2b 35 34 3a e8 23  |$):.#A=POI+54:.#|
00000730  41 2c 54 52 24 3a cf 23  41 3d 50 4f 49 2b 35 38  |A,TR$:.#A=POI+58|
00000740  3a e8 23 41 2c 4e 50 24  0d 01 4a 05 e1 0d 01 54  |:.#A,NP$..J....T|
00000750  93 ff 22 43 4c 4f 53 45  22 3a 54 41 24 3d 46 49  |.."CLOSE":TA$=FI|
00000760  24 2b 22 45 22 3a 58 3d  ad a4 4d 79 46 69 6c 65  |$+"E":X=..MyFile|
00000770  28 54 41 24 29 3a e8 23  58 2c 53 50 4d 24 3a 56  |(TA$):.#X,SPM$:V|
00000780  41 25 3d bb 28 c1 53 50  4d 24 2c 31 2c 32 29 29  |A%=.(.SPM$,1,2))|
00000790  3a de 4d 41 43 24 28 56  41 25 29 3a de 4d 41 4c  |:.MAC$(VA%):.MAL|
000007a0  24 28 56 41 25 29 3a 4d  41 43 24 28 30 29 3d 53  |$(VA%):MAC$(0)=S|
000007b0  50 4d 24 3a e8 23 58 2c  53 50 4d 24 3a e3 49 3d  |PM$:.#X,SPM$:.I=|
000007c0  31 b8 56 41 25 3a e8 23  58 2c 4d 41 43 24 28 49  |1.VA%:.#X,MAC$(I|
000007d0  29 3a e8 23 58 2c 4d 41  4c 24 28 49 29 3a ed 49  |):.#X,MAL$(I):.I|
000007e0  0d 01 5e 50 e3 49 3d 36  b8 31 31 3a 41 28 49 2d  |..^P.I=6.11:A(I-|
000007f0  35 29 3d bb 28 c1 4d 41  43 24 28 30 29 2c 49 2c  |5)=.(.MAC$(0),I,|
00000800  31 29 29 3a ed 49 3a e7  41 28 36 29 3d 31 8c 4d  |1)):.I:.A(6)=1.M|
00000810  54 49 24 3d c1 4d 41 43  24 28 30 29 2c 31 32 2c  |TI$=.MAC$(0),12,|
00000820  28 a9 28 4d 41 43 24 28  30 29 29 29 2d 31 31 29  |(.(MAC$(0)))-11)|
00000830  0d 01 68 09 e5 8d 74 6a  40 0d 01 72 62 ff 22 43  |..h...tj@..rb."C|
00000840  4c 4f 53 45 22 3a 54 41  24 3d 46 49 24 2b 22 43  |LOSE":TA$=FI$+"C|
00000850  22 3a 58 3d ad a4 4d 79  46 69 6c 65 28 54 41 24  |":X=..MyFile(TA$|
00000860  29 3a e8 23 58 2c 4d 24  3a 52 45 25 3d bb 28 4d  |):.#X,M$:RE%=.(M|
00000870  24 29 3a de 52 45 4c 24  28 52 45 25 29 3a e3 49  |$):.REL$(RE%):.I|
00000880  3d 31 b8 52 45 25 3a e8  23 58 2c 52 45 4c 24 28  |=1.RE%:.#X,REL$(|
00000890  49 29 3a ed 49 3a e5 8d  74 74 40 0d 01 7c 43 dd  |I):.I:..tt@..|C.|
000008a0  f2 46 50 4e 54 3a e7 54  59 24 3d 22 33 22 8c ef  |.FPNT:.TY$="3"..|
000008b0  32 38 2c 58 58 2d 31 2c  59 2b 4c 25 2c 58 58 2b  |28,XX-1,Y+L%,XX+|
000008c0  57 25 2c 59 2d 31 3a db  3a ef 32 36 3a f1 8a 58  |W%,Y-1:.:.26:..X|
000008d0  35 2c 59 35 29 3b 4e 24  3a e5 8d 74 5a 41 0d 01  |5,Y5);N$:..tZA..|
000008e0  86 35 49 4e 4e 25 3d a9  28 4e 24 29 3a 4c 45 25  |.5INN%=.(N$):LE%|
000008f0  3d 38 30 2d 58 35 3a e7  49 4e 4e 25 3c 3d 4c 45  |=80-X5:.INN%<=LE|
00000900  25 8c f1 8a 58 35 2c 59  35 29 3b 4e 24 3a e5 8d  |%...X5,Y5);N$:..|
00000910  74 5a 41 0d 01 90 72 4e  4c 44 25 3d 49 4e 4e 25  |tZA...rNLD%=INN%|
00000920  20 81 20 4c 45 25 3a 4c  42 25 3d 49 4e 4e 25 20  | . LE%:LB%=INN% |
00000930  83 20 4c 45 25 3a e3 4a  25 3d 31 b8 4e 4c 44 25  |. LE%:.J%=1.NLD%|
00000940  3a f1 8a 58 35 2c 59 35  2b 28 4a 25 2d 31 29 29  |:..X5,Y5+(J%-1))|
00000950  3b c1 4e 24 2c 28 28 4a  25 2d 31 29 2a 4c 45 25  |;.N$,((J%-1)*LE%|
00000960  29 2b 31 2c 4c 45 25 29  3a ed 4a 25 3a f1 8a 58  |)+1,LE%):.J%:..X|
00000970  35 2c 59 35 2b 28 4a 25  2d 31 29 29 3b c2 4e 24  |5,Y5+(J%-1));.N$|
00000980  2c 4c 42 25 29 0d 01 9a  05 e1 0d 01 a4 37 dd f2  |,LB%)........7..|
00000990  46 50 52 49 4e 54 3a 4c  45 25 3d 38 30 2d 58 35  |FPRINT:LE%=80-X5|
000009a0  3a e7 49 4e 25 3c 3d 4c  45 25 8c f1 8a 58 35 2c  |:.IN%<=LE%...X5,|
000009b0  59 35 29 3b 89 28 49 4e  25 29 3b 3a e5 8d 74 78  |Y5);.(IN%);:..tx|
000009c0  41 0d 01 ae 5f 4e 4c 44  25 3d 49 4e 25 20 81 20  |A..._NLD%=IN% . |
000009d0  4c 45 25 3a 4c 42 25 3d  49 4e 25 20 83 20 4c 45  |LE%:LB%=IN% . LE|
000009e0  25 3a e3 4a 25 3d 31 b8  4e 4c 44 25 3a f1 8a 58  |%:.J%=1.NLD%:..X|
000009f0  35 2c 59 35 2b 28 4a 25  2d 31 29 29 3b 89 28 4c  |5,Y5+(J%-1));.(L|
00000a00  45 25 29 3b 3a ed 4a 25  3a f1 8a 58 35 2c 59 35  |E%);:.J%:..X5,Y5|
00000a10  2b 28 4a 25 2d 31 29 29  3b 89 28 4c 42 25 29 3b  |+(J%-1));.(LB%);|
00000a20  0d 01 b8 05 e1 0d 01 c2  55 dd f2 51 55 41 52 54  |........U..QUART|
00000a30  3a 59 45 41 52 3d bb 28  c1 44 41 24 2c 37 2c 32  |:YEAR=.(.DA$,7,2|
00000a40  29 29 3a 4d 4f 4e 54 48  3d bb 28 c1 44 41 24 2c  |)):MONTH=.(.DA$,|
00000a50  34 2c 32 29 29 3a 44 41  59 3d bb 28 c1 44 41 24  |4,2)):DAY=.(.DA$|
00000a60  2c 31 2c 32 29 29 3a e7  4d 4f 4e 54 48 3c 34 8c  |,1,2)):.MONTH<4.|
00000a70  20 51 55 41 52 54 45 52  3d 31 0d 01 cc 16 e7 4d  | QUARTER=1.....M|
00000a80  4f 4e 54 48 3e 39 8c 51  55 41 52 54 45 52 3d 34  |ONTH>9.QUARTER=4|
00000a90  0d 01 d1 1f e7 4d 4f 4e  54 48 3e 36 80 4d 4f 4e  |.....MONTH>6.MON|
00000aa0  54 48 3c 31 30 8c 51 55  41 52 54 45 52 3d 33 0d  |TH<10.QUARTER=3.|
00000ab0  01 d6 1e e7 4d 4f 4e 54  48 3e 33 80 4d 4f 4e 54  |....MONTH>3.MONT|
00000ac0  48 3c 37 8c 51 55 41 52  54 45 52 3d 32 0d 01 e0  |H<7.QUARTER=2...|
00000ad0  05 e1 0d 01 ea 18 dd f2  49 4e 46 4f 3a e7 41 28  |........INFO:.A(|
00000ae0  31 29 3d 31 8c e5 8d 64  7e 41 0d 01 f4 54 fb 31  |1)=1...d~A...T.1|
00000af0  32 38 3a f1 8a 32 2c 32  34 29 3b 22 41 64 64 69  |28:..2,24);"Addi|
00000b00  6e 67 20 72 65 63 6f 72  64 20 22 3b 4e 4f 52 25  |ng record ";NOR%|
00000b10  3b 22 20 74 6f 20 22 3b  46 49 24 3a fb 31 33 31  |;" to ";FI$:.131|
00000b20  3a f1 8a 37 31 2c 30 29  3b 22 50 41 47 45 22 3b  |:..71,0);"PAGE";|
00000b30  bd 28 32 34 31 29 3b 50  25 3a fb 46 47 25 0d 01  |.(241);P%:.FG%..|
00000b40  fe 05 e1 0d 02 08 35 f2  4d 41 49 4e 3a 4e 4f 52  |......5.MAIN:NOR|
00000b50  25 3d 4e 4f 52 25 2b 31  3a e7 4e 4f 52 25 3d 31  |%=NOR%+1:.NOR%=1|
00000b60  8c d9 23 30 3a 58 3d ae  a4 4d 79 46 69 6c 65 28  |..#0:X=..MyFile(|
00000b70  46 49 24 29 3a d9 23 30  0d 02 12 74 ff 22 43 4c  |FI$):.#0...t."CL|
00000b80  4f 53 45 22 3a ff 20 22  44 69 72 20 3c 44 61 74  |OSE":. "Dir <Dat|
00000b90  61 56 69 73 69 6f 6e 24  44 69 72 3e 22 2b 44 49  |aVision$Dir>"+DI|
00000ba0  24 3a 41 3d ad a4 4d 79  46 69 6c 65 28 46 4f 24  |$:A=..MyFile(FO$|
00000bb0  29 3a 58 3d ad a4 4d 79  46 69 6c 65 28 46 49 24  |):X=..MyFile(FI$|
00000bc0  29 3a f2 51 55 41 52 54  3a e7 4d 43 41 25 3e 30  |):.QUART:.MCA%>0|
00000bd0  8c 46 41 24 3d 46 49 24  2b 22 42 22 3a 4e 3d ad  |.FA$=FI$+"B":N=.|
00000be0  a4 4d 79 46 69 6c 65 28  46 41 24 29 0d 02 1c 22  |.MyFile(FA$)..."|
00000bf0  41 46 25 3d 30 3a 50 25  3d 31 3a 4d 43 3d 31 3a  |AF%=0:P%=1:MC=1:|
00000c00  4c 52 52 25 3d 30 3a db  3a f2 53 43 3a 87 0d 02  |LRR%=0:.:.SC:...|
00000c10  26 2c e7 41 28 36 29 3d  31 8c 4c 3d a9 28 4d 54  |&,.A(6)=1.L=.(MT|
00000c20  49 24 29 3a 4c 3d 38 30  2d 4c 3a f1 8a 28 4c 2f  |I$):L=80-L:..(L/|
00000c30  32 29 2c 31 29 3b 4d 54  49 24 0d 02 30 0e 49 4e  |2),1);MTI$..0.IN|
00000c40  3d 30 3a 43 46 25 3d 31  0d 02 3a 12 e7 43 46 25  |=0:CF%=1..:..CF%|
00000c50  3d 41 46 25 8c 41 46 25  3d 30 0d 02 44 48 49 50  |=AF%.AF%=0..DHIP|
00000c60  3d 30 3a f2 46 4f 50 4f  55 54 3a 4e 24 3d c4 49  |=0:.FOPOUT:N$=.I|
00000c70  4e 25 2c 22 20 22 29 3a  58 35 3d 58 32 3a 59 35  |N%," "):X5=X2:Y5|
00000c80  3d 59 32 3a f2 46 50 52  49 4e 54 3a e7 4e 50 24  |=Y2:.FPRINT:.NP$|
00000c90  3d 22 31 22 8c db 3a 50  25 3d 50 25 2b 31 3a f2  |="1"..:P%=P%+1:.|
00000ca0  53 43 0d 02 4e 30 f2 49  4e 46 4f 3a e7 41 28 34  |SC..N0.INFO:.A(4|
00000cb0  29 3d 31 8c f1 8a 28 58  32 2d 31 29 2c 59 32 29  |)=1...(X2-1),Y2)|
00000cc0  3b 22 5b 22 3b 3a f2 46  50 52 49 4e 54 3a f1 22  |;"[";:.FPRINT:."|
00000cd0  5d 22 0d 02 58 10 e7 41  28 33 29 3d 31 8c fb 31  |]"..X..A(3)=1..1|
00000ce0  33 31 0d 02 62 30 f1 8a  58 31 2c 59 31 29 3b 46  |31..b0..X1,Y1);F|
00000cf0  4c 24 3a 46 49 45 4c 44  3d 43 46 25 3a 53 45 51  |L$:FIELD=CF%:SEQ|
00000d00  3d 4e 4f 52 25 3a e7 41  28 33 29 3d 31 8c fb 46  |=NOR%:.A(3)=1..F|
00000d10  47 25 0d 02 6c 33 e7 c0  54 52 24 2c 31 29 3d 22  |G%..l3..TR$,1)="|
00000d20  31 22 84 c0 54 52 24 2c  31 29 3d 22 32 22 8c 50  |1"..TR$,1)="2".P|
00000d30  55 54 24 3d 22 49 22 3a  52 4c 25 3d 36 33 30 3a  |UT$="I":RL%=630:|
00000d40  e5 8d 54 4c 48 0d 02 76  41 e7 c0 54 52 24 2c 31  |..TLH..vA..TR$,1|
00000d50  29 3d 22 33 22 84 c0 54  52 24 2c 31 29 3d 22 32  |)="3"..TR$,1)="2|
00000d60  22 8c 50 55 54 24 3d 22  49 22 3a 52 4c 25 3d 36  |".PUT$="I":RL%=6|
00000d70  34 30 3a 49 4e 3d a6 28  30 29 3a e4 8d 64 4c 46  |40:IN=.(0):..dLF|
00000d80  3a e5 8d 44 6c 4c 0d 02  80 1d e7 bb 28 54 59 24  |:..DlL......(TY$|
00000d90  29 3e 30 80 bb 28 54 59  24 29 3c 39 8c 49 4e 4e  |)>0..(TY$)<9.INN|
00000da0  25 3d 31 0d 02 8a 20 e7  54 59 24 3d 22 31 22 8c  |%=1... .TY$="1".|
00000db0  4c 4f 25 3d 33 33 3a 48  49 25 3d 32 35 35 3a f2  |LO%=33:HI%=255:.|
00000dc0  54 59 31 0d 02 94 20 e7  54 59 24 3d 22 32 22 8c  |TY1... .TY$="2".|
00000dd0  4c 4f 25 3d 33 33 3a 48  49 25 3d 32 35 35 3a f2  |LO%=33:HI%=255:.|
00000de0  54 59 31 0d 02 9e 11 e7  54 59 24 3d 22 33 22 8c  |TY1.....TY$="3".|
00000df0  f2 54 59 33 0d 02 a8 11  e7 54 59 24 3d 22 34 22  |.TY3.....TY$="4"|
00000e00  8c f2 54 59 34 0d 02 b2  11 e7 54 59 24 3d 22 35  |..TY4.....TY$="5|
00000e10  22 8c f2 54 59 35 0d 02  bc 11 e7 54 59 24 3d 22  |"..TY5.....TY$="|
00000e20  36 22 8c f2 54 59 36 0d  02 c6 17 e7 54 59 24 3d  |6"..TY6.....TY$=|
00000e30  22 37 22 8c 48 49 25 3d  39 3a f2 54 59 37 0d 02  |"7".HI%=9:.TY7..|
00000e40  d0 18 e7 54 59 24 3d 22  38 22 8c 48 49 25 3d 31  |...TY$="8".HI%=1|
00000e50  38 3a f2 54 59 37 0d 02  da 20 e7 bb 28 54 59 24  |8:.TY7... ..(TY$|
00000e60  29 3e 30 80 bb 28 54 59  24 29 3c 39 80 41 28 32  |)>0..(TY$)<9.A(2|
00000e70  29 3d 31 8c ef 37 0d 02  e4 33 e7 c2 54 52 24 2c  |)=1..7...3..TR$,|
00000e80  31 29 3d 22 31 22 84 c2  54 52 24 2c 31 29 3d 22  |1)="1"..TR$,1)="|
00000e90  32 22 8c 50 55 54 24 3d  22 4f 22 3a 52 4c 25 3d  |2".PUT$="O":RL%=|
00000ea0  37 35 30 3a e5 8d 54 4c  48 0d 02 ee 09 e5 8d 64  |750:..TLH......d|
00000eb0  78 42 0d 02 f8 22 e7 54  59 24 3d 22 39 22 84 54  |xB...".TY$="9".T|
00000ec0  59 24 3d 22 30 22 8c 49  4e 3d a6 28 30 29 3a e4  |Y$="0".IN=.(0):.|
00000ed0  8d 64 4c 46 0d 03 02 20  cf 23 58 3d 28 4e 4f 52  |.dLF... .#X=(NOR|
00000ee0  25 2d 31 29 2a 52 45 43  25 2b 54 49 25 3a f1 23  |%-1)*REC%+TI%:.#|
00000ef0  58 2c 4e 24 0d 03 0c 24  43 46 25 3d 43 46 25 2b  |X,N$...$CF%=CF%+|
00000f00  31 3a e7 43 46 25 3e 4e  4f 46 25 8c e5 8d 54 56  |1:.CF%>NOF%...TV|
00000f10  43 3a 8b e5 8d 54 7a 42  0d 03 16 27 4c 52 52 25  |C:...TzB...'LRR%|
00000f20  3d 31 3a 43 46 25 3d 4e  4f 46 25 3a 49 4e 3d a6  |=1:CF%=NOF%:IN=.|
00000f30  28 30 29 3a e4 8d 64 4c  46 3a e5 8d 54 56 43 0d  |(0):..dLF:..TVC.|
00000f40  03 20 1d cf 23 41 3d 35  3a f1 23 41 2c c3 28 4e  |. ..#A=5:.#A,.(N|
00000f50  4f 52 25 29 3a 2a 46 58  32 31 2c 30 0d 03 2a 28  |OR%):*FX21,0..*(|
00000f60  cf 23 58 3d 28 4e 4f 52  25 2a 52 45 43 25 29 2d  |.#X=(NOR%*REC%)-|
00000f70  31 30 3a f1 23 58 2c c3  28 4e 4f 52 25 29 3a e5  |10:.#X,.(NOR%):.|
00000f80  8d 44 5c 43 0d 03 34 6e  fb 31 32 38 3a f1 8a 32  |.D\C..4n.128:..2|
00000f90  2c 32 34 29 3b 22 50 72  69 6e 74 69 6e 67 20 72  |,24);"Printing r|
00000fa0  65 63 6f 72 64 20 22 3b  4e 4f 52 25 2d 31 3b 22  |ecord ";NOR%-1;"|
00000fb0  2e 2e 2e 20 20 20 20 20  20 20 20 20 20 20 20 20  |...             |
00000fc0  20 20 20 20 20 20 20 20  20 20 22 3a fb 46 47 25  |          ":.FG%|
00000fd0  3a ef 32 38 2c 30 2c 32  31 2c 37 39 2c 31 3a db  |:.28,0,21,79,1:.|
00000fe0  3a 52 3d 4e 4f 52 25 2d  31 3a 2a 46 58 32 30 30  |:R=NOR%-1:*FX200|
00000ff0  2c 32 0d 03 3e 17 f1 27  3a ef 32 3a f1 22 52 65  |,2..>..':.2:."Re|
00001000  63 6f 72 64 20 22 3b 52  27 0d 03 48 50 e3 48 3d  |cord ";R'..HP.H=|
00001010  31 b8 4e 4f 46 25 3a 43  46 25 3d 48 3a f2 46 4f  |1.NOF%:CF%=H:.FO|
00001020  50 4f 55 54 3a cf 23 58  3d 28 52 2d 31 29 2a 52  |POUT:.#X=(R-1)*R|
00001030  45 43 25 2b 54 49 25 3a  e8 23 58 2c 43 24 3a f1  |EC%+TI%:.#X,C$:.|
00001040  46 4c 24 3b c4 32 31 2d  a9 28 46 4c 24 29 2c 22  |FL$;.21-.(FL$),"|
00001050  20 22 29 3b 43 24 3a ed  48 0d 03 52 1f f1 3a ef  | ");C$:.H..R..:.|
00001060  33 3a db 3a ef 32 36 3a  ff 22 46 58 32 30 30 2c  |3:.:.26:."FX200,|
00001070  31 22 3a e5 8d 54 5c 42  0d 03 5c 13 e7 52 45 24  |1":..T\B..\..RE$|
00001080  3c 3e 22 31 22 8c e5 8d  74 44 43 0d 03 66 34 e3  |<>"1"...tDC..f4.|
00001090  43 46 25 3d 31 b8 4e 4f  46 25 3a f2 46 4f 50 4f  |CF%=1.NOF%:.FOPO|
000010a0  55 54 3a cf 23 58 3d 28  4e 4f 52 25 2d 31 29 2a  |UT:.#X=(NOR%-1)*|
000010b0  52 45 43 25 2b 54 49 25  3a e8 23 58 2c 4e 24 0d  |REC%+TI%:.#X,N$.|
000010c0  03 70 33 e7 c2 54 52 24  2c 31 29 3d 22 33 22 84  |.p3..TR$,1)="3".|
000010d0  c2 54 52 24 2c 31 29 3d  22 32 22 8c 50 55 54 24  |.TR$,1)="2".PUT$|
000010e0  3d 22 4f 22 3a 52 4c 25  3d 38 39 30 3a e5 8d 44  |="O":RL%=890:..D|
000010f0  6c 4c 0d 03 7a 08 ed 43  46 25 0d 03 84 24 4e 4f  |lL..z..CF%...$NO|
00001100  52 25 3d 4e 4f 52 25 2b  31 3a e7 41 28 35 29 3d  |R%=NOR%+1:.A(5)=|
00001110  30 8c e5 8d 54 5c 42 3a  8b e5 8d 54 74 43 0d 03  |0...T\B:...TtC..|
00001120  8e 11 dd f2 54 59 31 3a  46 4c 45 25 3d 58 32 0d  |....TY1:FLE%=X2.|
00001130  03 98 16 4e 24 3d 22 22  3a 50 54 3d 30 3a 43 4c  |...N$="":PT=0:CL|
00001140  24 3d 22 20 22 0d 03 a2  2a 43 4c 24 3d 22 22 3a  |$=" "...*CL$="":|
00001150  e7 50 54 3c 49 4e 25 8c  f1 8a 58 32 2c 59 32 29  |.PT<IN%...X2,Y2)|
00001160  3b bd 28 32 35 35 29 3a  43 4c 24 3d 22 20 22 0d  |;.(255):CL$=" ".|
00001170  03 ac 0e 49 4e 3d a5 3a  e4 8d 64 4c 46 0d 03 b6  |...IN=.:..dLF...|
00001180  1d e7 49 4e 3d 31 33 8c  f1 8a 58 32 2c 59 32 29  |..IN=13...X2,Y2)|
00001190  3b 43 4c 24 3a e5 8d 54  6e 44 0d 03 c0 11 e7 49  |;CL$:..TnD.....I|
000011a0  4e 3d 31 32 37 8c e5 8d  54 46 44 0d 03 ca 10 e7  |N=127...TFD.....|
000011b0  49 4e 3d 33 32 8c e5 8d  64 68 43 0d 03 d4 2c 20  |IN=32...dhC..., |
000011c0  e7 20 54 59 24 3d 22 32  22 8c e7 20 49 4e 3e 3d  |. TY$="2".. IN>=|
000011d0  39 37 20 80 20 49 4e 3c  3d 31 32 32 20 8c 20 49  |97 . IN<=122 . I|
000011e0  4e 3d 49 4e 2d 33 32 0d  03 de 1b e7 49 4e 3c 4c  |N=IN-32.....IN<L|
000011f0  4f 25 84 49 4e 3e 48 49  25 8c ef 37 3a e5 8d 74  |O%.IN>HI%..7:..t|
00001200  6c 43 0d 03 e8 11 e7 50  54 3d 49 4e 25 8c e5 8d  |lC.....PT=IN%...|
00001210  74 6c 43 0d 03 f2 45 f1  8a 58 32 2c 59 32 29 3b  |tlC...E..X2,Y2);|
00001220  bd 28 49 4e 29 3a 4e 24  3d 4e 24 2b bd 28 49 4e  |.(IN):N$=N$+.(IN|
00001230  29 3a 50 54 3d 50 54 2b  31 3a 58 32 3d 58 32 2b  |):PT=PT+1:X2=X2+|
00001240  31 3a e7 58 32 3e 37 39  8c 59 32 3d 59 32 2b 31  |1:.X2>79.Y2=Y2+1|
00001250  3a 58 32 3d 46 4c 45 25  0d 03 fc 09 e5 8d 74 62  |:X2=FLE%......tb|
00001260  43 0d 04 06 0f e7 50 54  3d 30 8c e5 8d 74 62 43  |C.....PT=0...tbC|
00001270  0d 04 10 18 e7 50 54 3c  49 4e 25 8c f1 8a 58 32  |.....PT<IN%...X2|
00001280  2c 59 32 29 3b 22 20 22  0d 04 1a 35 50 54 3d 50  |,Y2);" "...5PT=P|
00001290  54 2d 31 3a 4e 24 3d c0  4e 24 2c 50 54 29 3a 58  |T-1:N$=.N$,PT):X|
000012a0  32 3d 58 32 2d 31 3a e7  58 32 3c 46 4c 45 25 8c  |2=X2-1:.X2<FLE%.|
000012b0  59 32 3d 59 32 2d 31 3a  58 32 3d 37 39 0d 04 24  |Y2=Y2-1:X2=79..$|
000012c0  09 e5 8d 74 62 43 0d 04  2e 05 e1 0d 04 38 09 dd  |...tbC.......8..|
000012d0  f2 54 59 37 0d 04 42 33  58 32 3d 58 32 2b 28 48  |.TY7..B3X2=X2+(H|
000012e0  49 25 2d 31 29 3a 58 33  3d 58 32 3a 4e 24 3d 22  |I%-1):X3=X2:N$="|
000012f0  22 3a 50 54 3d 30 3a 50  4f 3d 30 3a e7 48 49 25  |":PT=0:PO=0:.HI%|
00001300  3d 39 8c 50 4f 3d 31 0d  04 4c 16 e7 50 54 3d 30  |=9.PO=1..L..PT=0|
00001310  8c f1 8a 58 32 2c 59 32  29 3b 22 30 22 0d 04 56  |...X2,Y2);"0"..V|
00001320  0e 49 4e 3d a5 3a e4 8d  64 4c 46 0d 04 60 10 e7  |.IN=.:..dLF..`..|
00001330  49 4e 3d 31 33 8c e5 8d  64 6c 44 0d 04 6a 11 e7  |IN=13...dlD..j..|
00001340  49 4e 3d 31 32 37 8c e5  8d 74 70 44 0d 04 74 1a  |IN=127...tpD..t.|
00001350  e7 49 4e 3d 34 36 80 50  4f 3d 30 8c 50 4f 3d 31  |.IN=46.PO=0.PO=1|
00001360  3a e5 8d 74 5c 44 0d 04  7e 15 e7 49 4e 3d 34 36  |:..t\D..~..IN=46|
00001370  80 50 4f 3d 31 8c e5 8d  44 4c 44 0d 04 88 15 e7  |.PO=1...DLD.....|
00001380  49 4e 3d 34 35 80 50 54  3d 30 8c e5 8d 74 66 44  |IN=45.PT=0...tfD|
00001390  0d 04 92 19 e7 49 4e 3c  34 38 84 49 4e 3e 35 37  |.....IN<48.IN>57|
000013a0  8c ef 37 3a e5 8d 44 4c  44 0d 04 9c 11 e7 50 54  |..7:..DLD.....PT|
000013b0  3d 48 49 25 8c e5 8d 44  4c 44 0d 04 a6 31 4e 24  |=HI%...DLD...1N$|
000013c0  3d 4e 24 2b bd 28 49 4e  29 3a 50 54 3d 50 54 2b  |=N$+.(IN):PT=PT+|
000013d0  31 3a f1 8a 58 32 2c 59  32 29 3b 4e 24 3a 58 32  |1:..X2,Y2);N$:X2|
000013e0  3d 58 32 2d 31 3a e5 8d  44 4c 44 0d 04 b0 0f e7  |=X2-1:..DLD.....|
000013f0  50 54 3d 30 8c e5 8d 44  4c 44 0d 04 ba 17 e7 c1  |PT=0...DLD......|
00001400  4e 24 2c 50 54 2c 31 29  3d 22 2e 22 8c 50 4f 3d  |N$,PT,1)=".".PO=|
00001410  30 0d 04 c4 47 58 32 3d  58 32 2b 31 3a f1 8a 58  |0...GX2=X2+1:..X|
00001420  32 2c 59 32 29 3b 22 20  22 3a 58 32 3d 58 32 2b  |2,Y2);" ":X2=X2+|
00001430  31 3a 50 54 3d 50 54 2d  31 3a 4e 24 3d c0 4e 24  |1:PT=PT-1:N$=.N$|
00001440  2c 50 54 29 3a e7 4e 24  3c 3e 22 22 8c f1 8a 58  |,PT):.N$<>""...X|
00001450  32 2c 59 32 29 3b 4e 24  0d 04 ce 0b 58 32 3d 58  |2,Y2);N$....X2=X|
00001460  32 2d 31 0d 04 d8 11 e7  58 32 3e 58 33 20 8c 58  |2-1.....X2>X3 .X|
00001470  32 3d 58 33 0d 04 e2 09  e5 8d 44 4c 44 0d 04 ec  |2=X3......DLD...|
00001480  16 e7 4e 24 3d 22 22 8c  4e 24 3d 22 30 22 3a 49  |..N$="".N$="0":I|
00001490  50 3d 31 0d 04 f6 21 f1  8a 58 35 2c 59 35 29 3b  |P=1...!..X5,Y5);|
000014a0  c4 49 4e 25 2c 22 20 22  29 3b 8a 58 35 2c 59 35  |.IN%," ");.X5,Y5|
000014b0  29 3b 4e 24 0d 05 00 05  e1 0d 05 0a 09 dd f2 54  |);N$...........T|
000014c0  59 33 0d 05 14 07 4c 3d  31 0d 05 1e 2b cf 23 4e  |Y3....L=1...+.#N|
000014d0  3d 28 4c 2d 31 29 2a 32  34 35 3a e8 23 4e 2c 4d  |=(L-1)*245:.#N,M|
000014e0  43 24 3a e7 4d 43 24 3d  c3 28 43 46 25 29 8c e5  |C$:.MC$=.(CF%)..|
000014f0  8d 54 72 45 0d 05 28 0f  4c 3d 4c 2b 31 3a e5 8d  |.TrE..(.L=L+1:..|
00001500  54 5e 45 0d 05 32 2a cf  23 4e 3d 28 4c 2d 31 29  |T^E..2*.#N=(L-1)|
00001510  2a 32 34 35 2b 35 3a e8  23 4e 2c 4d 43 24 3a 43  |*245+5:.#N,MC$:C|
00001520  4f 25 3d 31 3a 4c 3d 31  3a 57 25 3d 30 0d 05 3c  |O%=1:L=1:W%=0..<|
00001530  1f 4c 4c 3d a7 4d 43 24  2c bd 28 32 35 34 29 29  |.LL=.MC$,.(254))|
00001540  3a e7 4c 4c 3d 30 8c e5  8d 44 5a 45 0d 05 46 57  |:.LL=0...DZE..FW|
00001550  4d 45 24 28 43 4f 25 29  3d c0 4d 43 24 2c 4c 4c  |ME$(CO%)=.MC$,LL|
00001560  2d 31 29 3a 4c 3d 4c 4c  2b 31 3a 4d 43 24 3d c1  |-1):L=LL+1:MC$=.|
00001570  4d 43 24 2c 4c 29 3a 43  4f 25 3d 43 4f 25 2b 31  |MC$,L):CO%=CO%+1|
00001580  3a e7 a9 28 4d 45 24 28  43 4f 25 2d 31 29 29 3e  |:..(ME$(CO%-1))>|
00001590  57 25 8c 57 25 3d a9 28  4d 45 24 28 43 4f 25 2d  |W%.W%=.(ME$(CO%-|
000015a0  31 29 29 0d 05 50 09 e5  8d 54 7c 45 0d 05 5a 25  |1))..P...T|E..Z%|
000015b0  58 58 3d 58 32 3a 59 3d  59 32 3a 57 25 3d 57 25  |XX=X2:Y=Y2:W%=W%|
000015c0  2b 33 3a 4c 25 3d 43 4f  25 2d 31 3a f2 4c 57 4e  |+3:L%=CO%-1:.LWN|
000015d0  32 0d 05 64 1a 58 58 3d  58 32 2b 31 3a 59 3d 59  |2..d.XX=X2+1:Y=Y|
000015e0  32 2b 31 3a f2 53 45 4c  45 43 54 0d 05 6e 32 4e  |2+1:.SELECT..n2N|
000015f0  24 3d 4d 45 24 28 53 45  4c 25 29 3a e3 49 3d 30  |$=ME$(SEL%):.I=0|
00001600  b8 43 4f 25 2b 32 3a f1  8a 58 32 2c 59 32 2b 49  |.CO%+2:..X2,Y2+I|
00001610  29 3b c4 32 31 2c 22 20  22 29 3a ed 49 0d 05 78  |);.21," "):.I..x|
00001620  11 f1 8a 58 32 2c 59 32  29 3b 4e 24 3a e1 0d 05  |...X2,Y2);N$:...|
00001630  82 09 dd f2 54 59 35 0d  05 8c 1d f1 8a 58 32 2c  |....TY5......X2,|
00001640  59 32 29 3b 22 2e 2e 2f  2e 2e 2f 2e 2e 22 3a 4e  |Y2);"../../..":N|
00001650  24 3d 22 22 0d 05 96 1a  58 33 3d 58 32 3a f2 44  |$=""....X3=X2:.D|
00001660  41 54 3a e7 44 45 3d 31  8c e5 8d 74 4c 45 0d 05  |AT:.DE=1...tLE..|
00001670  a0 27 4e 24 3d 4e 24 2b  44 41 54 24 3a 58 33 3d  |.'N$=N$+DAT$:X3=|
00001680  58 32 2b 33 3a f2 44 41  54 3a e7 44 45 3d 31 8c  |X2+3:.DAT:.DE=1.|
00001690  e5 8d 74 4c 45 0d 05 aa  2f 4e 24 3d 4e 24 2b 22  |..tLE.../N$=N$+"|
000016a0  2f 22 2b 44 41 54 24 2b  22 2f 22 3a 58 33 3d 58  |/"+DAT$+"/":X3=X|
000016b0  32 2b 36 3a f2 44 41 54  3a e7 44 45 3d 31 8c e5  |2+6:.DAT:.DE=1..|
000016c0  8d 74 4c 45 0d 05 b4 0e  4e 24 3d 4e 24 2b 44 41  |.tLE....N$=N$+DA|
000016d0  54 24 0d 05 be 1b 49 4e  3d a5 3a e4 8d 64 4c 46  |T$....IN=.:..dLF|
000016e0  3a e7 49 4e 3d 31 33 8c  e5 8d 64 52 45 0d 05 c8  |:.IN=13...dRE...|
000016f0  17 e7 49 4e 3d 31 32 37  8c e5 8d 74 4c 45 8b e5  |..IN=127...tLE..|
00001700  8d 74 7e 45 0d 05 d2 1c  f2 44 41 43 48 45 4b 3a  |.t~E.....DACHEK:|
00001710  e7 44 41 54 25 3d 31 8c  e5 8d 74 4c 45 3a 8b e1  |.DAT%=1...tLE:..|
00001720  0d 05 dc 09 e5 8d 74 7e  45 0d 05 e6 09 dd f2 44  |......t~E......D|
00001730  41 54 0d 05 f0 16 44 45  3d 30 3a 44 41 54 24 3d  |AT....DE=0:DAT$=|
00001740  22 22 3a 58 34 3d 58 33  0d 05 fa 21 49 4e 3d a5  |"":X4=X3...!IN=.|
00001750  3a e4 8d 64 4c 46 3a e7  49 4e 3d 31 32 37 8c 44  |:..dLF:.IN=127.D|
00001760  45 3d 31 3a e5 8d 54 62  46 0d 06 04 19 e7 49 4e  |E=1:..TbF.....IN|
00001770  3c 34 38 84 49 4e 3e 35  37 8c ef 37 3a e5 8d 64  |<48.IN>57..7:..d|
00001780  7a 45 0d 06 0e 3b f1 8a  58 33 2c 59 32 29 3b bd  |zE...;..X3,Y2);.|
00001790  28 49 4e 29 3a 44 41 54  24 3d 44 41 54 24 2b bd  |(IN):DAT$=DAT$+.|
000017a0  28 49 4e 29 3a 58 33 3d  58 33 2b 31 3a e7 58 33  |(IN):X3=X3+1:.X3|
000017b0  3e 28 58 34 2b 31 29 8c  e5 8d 54 62 46 0d 06 18  |>(X4+1)...TbF...|
000017c0  09 e5 8d 64 7a 45 0d 06  22 05 e1 0d 06 2c 09 dd  |...dzE.."....,..|
000017d0  f2 54 59 36 0d 06 36 1a  f1 8a 58 32 2c 59 32 29  |.TY6..6...X2,Y2)|
000017e0  3b 22 2e 2e 3a 2e 2e 22  3a 4e 24 3d 22 22 0d 06  |;"..:..":N$=""..|
000017f0  40 1a 58 33 3d 58 32 3a  f2 44 41 54 3a e7 44 45  |@.X3=X2:.DAT:.DE|
00001800  3d 31 8c e5 8d 54 76 46  0d 06 4a 1f 4e 24 3d 4e  |=1...TvF..J.N$=N|
00001810  24 2b 44 41 54 24 2b 22  3a 22 3a 58 33 3d 58 32  |$+DAT$+":":X3=X2|
00001820  2b 33 3a f2 44 41 54 0d  06 54 0e 4e 24 3d 4e 24  |+3:.DAT..T.N$=N$|
00001830  2b 44 41 54 24 0d 06 5e  1b 49 4e 3d a5 3a e4 8d  |+DAT$..^.IN=.:..|
00001840  64 4c 46 3a e7 49 4e 3d  31 33 8c e5 8d 44 72 46  |dLF:.IN=13...DrF|
00001850  0d 06 68 17 e7 49 4e 3d  31 32 37 8c e5 8d 54 76  |..h..IN=127...Tv|
00001860  46 8b e5 8d 44 5e 46 0d  06 72 1c f2 54 49 43 48  |F...D^F..r..TICH|
00001870  45 4b 3a e7 44 41 54 25  3d 31 8c e5 8d 54 76 46  |EK:.DAT%=1...TvF|
00001880  3a 8b e1 0d 06 7c 09 dd  f2 54 59 34 0d 06 86 08  |:....|...TY4....|
00001890  49 4e 3d a5 0d 06 90 2f  e4 8d 64 4c 46 3a 4e 24  |IN=..../..dLF:N$|
000018a0  3d 22 22 3a e7 49 4e 3d  38 39 8c 4e 24 3d 22 59  |="":.IN=89.N$="Y|
000018b0  65 73 22 3a 8b e7 49 4e  3d 37 38 8c 4e 24 3d 22  |es":..IN=78.N$="|
000018c0  4e 6f 22 0d 06 9a 25 e7  49 4e 3d 31 32 31 8c 4e  |No"...%.IN=121.N|
000018d0  24 3d 22 59 65 73 22 3a  8b e7 49 4e 3d 31 31 30  |$="Yes":..IN=110|
000018e0  8c 4e 24 3d 22 4e 6f 22  0d 06 a4 39 e7 4e 24 3d  |.N$="No"...9.N$=|
000018f0  22 22 8c e5 8d 74 46 46  3a 8b f1 8a 58 32 2c 59  |""...tFF:...X2,Y|
00001900  32 29 3b 4e 24 3b 22 20  22 3a 49 4e 3d a5 3a e4  |2);N$;" ":IN=.:.|
00001910  8d 64 4c 46 3a e7 49 4e  3d 31 33 8c e5 8d 74 78  |.dLF:.IN=13...tx|
00001920  46 0d 06 ae 09 e5 8d 74  50 46 0d 06 b8 05 e1 0d  |F......tPF......|
00001930  06 c2 12 dd f2 43 48 45  4b 3a e4 8d 64 4c 46 3a  |.....CHEK:..dLF:|
00001940  e1 0d 06 cc 05 f4 0d 06  d6 08 46 25 3d 30 0d 06  |..........F%=0..|
00001950  e0 11 e7 49 4e 3d 31 33  37 8c e5 8d 54 40 4f 0d  |...IN=137...T@O.|
00001960  06 ea 45 e7 49 4e 3d 31  32 39 80 43 46 25 3e 31  |..E.IN=129.CF%>1|
00001970  8c 46 25 3d 31 3a f2 46  50 4e 54 3a f2 46 50 52  |.F%=1:.FPNT:.FPR|
00001980  49 4e 54 3a 43 46 25 3d  43 46 25 2d 31 3a e7 4e  |INT:CF%=CF%-1:.N|
00001990  50 24 3d 22 31 22 8c db  3a 50 25 3d 50 25 2d 31  |P$="1"..:P%=P%-1|
000019a0  3a f2 53 43 0d 06 f4 1a  e7 46 25 3d 31 8c e7 41  |:.SC.....F%=1..A|
000019b0  46 25 3d 30 8c 41 46 25  3d 43 46 25 2b 31 0d 06  |F%=0.AF%=CF%+1..|
000019c0  fe 0f e7 46 25 3d 31 8c  e5 8d 44 44 42 0d 07 08  |...F%=1...DDB...|
000019d0  18 e7 49 4e 3d 31 33 31  80 43 46 25 3c 3e 31 8c  |..IN=131.CF%<>1.|
000019e0  e5 8d 54 5c 42 0d 07 12  1a e7 49 4e 3d 31 33 36  |..T\B.....IN=136|
000019f0  20 80 20 4c 52 52 25 3d  31 8c e5 8d 54 60 43 0d  | . LRR%=1...T`C.|
00001a00  07 1c 25 e7 49 4e 3d 31  33 34 8c f2 46 50 52 49  |..%.IN=134..FPRI|
00001a10  4e 54 3a 58 32 3d 58 35  3a 59 32 3d 59 35 3a e5  |NT:X2=X5:Y2=Y5:.|
00001a20  8d 44 62 42 0d 07 26 6c  e7 49 4e 3d 31 33 30 80  |.DbB..&l.IN=130.|
00001a30  41 46 25 3e 30 8c cf 23  41 3d 28 43 46 25 2d 31  |AF%>0..#A=(CF%-1|
00001a40  29 2a 36 31 2b 31 30 39  3a e8 23 41 2c 54 49 4e  |)*61+109:.#A,TIN|
00001a50  24 3a cf 23 58 3d 28 4e  4f 52 25 2d 31 29 2a 52  |$:.#X=(NOR%-1)*R|
00001a60  45 43 25 2b bb 28 54 49  4e 24 29 3a e8 23 58 2c  |EC%+.(TIN$):.#X,|
00001a70  4e 24 3a f2 46 50 52 49  4e 54 3a f2 46 50 4e 54  |N$:.FPRINT:.FPNT|
00001a80  3a 43 46 25 3d 43 46 25  2b 31 3a e5 8d 54 7a 42  |:CF%=CF%+1:..TzB|
00001a90  0d 07 30 2c e7 49 4e 3d  31 33 32 80 54 59 24 3d  |..0,.IN=132.TY$=|
00001aa0  22 35 22 8c 4e 24 3d 44  41 24 3a f1 8a 58 32 2c  |"5".N$=DA$:..X2,|
00001ab0  59 32 29 3b 4e 24 3a e5  8d 54 42 43 0d 07 3a 33  |Y2);N$:..TBC..:3|
00001ac0  e7 49 4e 3d 31 33 33 80  54 59 24 3d 22 36 22 8c  |.IN=133.TY$="6".|
00001ad0  20 4e 24 3d c1 91 24 2c  31 37 2c 35 29 3a f1 8a  | N$=..$,17,5):..|
00001ae0  58 32 2c 59 32 29 3b 4e  24 3a e5 8d 54 42 43 0d  |X2,Y2);N$:..TBC.|
00001af0  07 44 09 e5 8d 44 76 47  0d 07 4e 13 e7 48 3c 31  |.D...DvG..N..H<1|
00001b00  30 8c 4e 24 3d 4e 24 2b  22 30 22 0d 07 58 12 4e  |0.N$=N$+"0"..X.N|
00001b10  24 3d 4e 24 2b c3 28 48  29 2b 22 3a 22 0d 07 62  |$=N$+.(H)+":"..b|
00001b20  13 e7 4d 3c 31 30 8c 4e  24 3d 4e 24 2b 22 30 22  |..M<10.N$=N$+"0"|
00001b30  0d 07 6c 20 4e 24 3d 4e  24 2b c3 28 4d 29 3a f1  |..l N$=N$+.(M):.|
00001b40  8a 58 32 2c 59 32 29 3b  4e 24 3a e5 8d 54 42 43  |.X2,Y2);N$:..TBC|
00001b50  0d 07 76 05 f8 0d 07 80  68 dd f2 53 54 41 4e 3a  |..v.....h..STAN:|
00001b60  ef 32 33 2c 31 35 34 2c  32 35 35 2c 31 32 38 2c  |.23,154,255,128,|
00001b70  31 39 31 2c 31 36 30 2c  31 36 30 2c 31 36 30 2c  |191,160,160,160,|
00001b80  31 36 30 2c 31 36 30 2c  32 33 2c 31 35 39 2c 32  |160,160,23,159,2|
00001b90  35 35 2c 30 2c 32 35 35  2c 30 2c 30 2c 30 2c 30  |55,0,255,0,0,0,0|
00001ba0  2c 30 2c 32 33 2c 31 35  38 2c 32 35 35 2c 31 2c  |,0,23,158,255,1,|
00001bb0  32 35 33 2c 35 2c 35 2c  35 2c 35 2c 35 0d 07 8a  |253,5,5,5,5,5...|
00001bc0  9f ef 32 33 2c 31 35 35  2c 31 36 30 2c 31 36 30  |..23,155,160,160|
00001bd0  2c 31 36 30 2c 31 36 30  2c 31 36 30 2c 31 36 30  |,160,160,160,160|
00001be0  2c 31 36 30 2c 31 36 30  2c 32 33 2c 31 35 37 2c  |,160,160,23,157,|
00001bf0  35 2c 35 2c 35 2c 35 2c  35 2c 35 2c 35 2c 35 2c  |5,5,5,5,5,5,5,5,|
00001c00  32 33 2c 31 35 36 2c 31  36 30 2c 31 36 30 2c 31  |23,156,160,160,1|
00001c10  36 30 2c 31 36 30 2c 31  36 30 2c 31 39 31 2c 31  |60,160,160,191,1|
00001c20  32 38 2c 32 35 35 2c 32  33 2c 31 36 30 2c 30 2c  |28,255,23,160,0,|
00001c30  30 2c 30 2c 30 2c 30 2c  32 35 35 2c 30 2c 32 35  |0,0,0,0,255,0,25|
00001c40  35 2c 32 33 2c 31 36 31  2c 35 2c 35 2c 35 2c 35  |5,23,161,5,5,5,5|
00001c50  2c 35 2c 32 35 33 2c 31  2c 32 35 35 0d 07 94 05  |,5,253,1,255....|
00001c60  e1 0d 07 9e a9 dd f2 53  48 41 44 3a ef 32 33 2c  |.......SHAD:.23,|
00001c70  31 35 37 2c 37 2c 37 2c  37 2c 37 2c 37 2c 37 2c  |157,7,7,7,7,7,7,|
00001c80  37 2c 37 2c 32 33 2c 31  35 38 2c 30 2c 30 2c 32  |7,7,23,158,0,0,2|
00001c90  35 32 2c 34 2c 37 2c 37  2c 37 2c 37 2c 32 33 2c  |52,4,7,7,7,7,23,|
00001ca0  31 35 39 2c 30 2c 30 2c  32 35 35 2c 30 2c 30 2c  |159,0,0,255,0,0,|
00001cb0  30 2c 30 2c 30 2c 32 33  2c 31 36 30 2c 30 2c 30  |0,0,0,23,160,0,0|
00001cc0  2c 30 2c 30 2c 30 2c 32  35 35 2c 32 35 35 2c 32  |,0,0,0,255,255,2|
00001cd0  35 35 2c 32 33 2c 31 36  31 2c 37 2c 37 2c 37 2c  |55,23,161,7,7,7,|
00001ce0  37 2c 37 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |7,7,255,255,255,|
00001cf0  32 33 2c 31 36 32 2c 30  2c 30 2c 30 2c 32 35 35  |23,162,0,0,0,255|
00001d00  2c 32 35 35 2c 30 2c 30  2c 30 0d 07 a8 61 ef 32  |,255,0,0,0...a.2|
00001d10  33 2c 31 35 34 2c 30 2c  30 2c 36 33 2c 33 32 2c  |3,154,0,0,63,32,|
00001d20  33 32 2c 33 32 2c 33 32  2c 33 32 2c 32 33 2c 31  |32,32,32,32,23,1|
00001d30  35 35 2c 33 32 2c 33 32  2c 33 32 2c 33 32 2c 33  |55,32,32,32,32,3|
00001d40  32 2c 33 32 2c 33 32 2c  33 32 2c 32 33 2c 31 35  |2,32,32,32,23,15|
00001d50  36 2c 33 32 2c 33 32 2c  33 32 2c 33 32 2c 33 32  |6,32,32,32,32,32|
00001d60  2c 36 33 2c 31 35 2c 31  35 3a e1 0d 07 b2 ca dd  |,63,15,15:......|
00001d70  f2 53 4c 49 4e 45 3a ef  32 33 2c 31 35 34 2c 32  |.SLINE:.23,154,2|
00001d80  35 35 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 31  |55,128,128,128,1|
00001d90  32 38 2c 31 32 38 2c 31  32 38 2c 31 32 38 2c 32  |28,128,128,128,2|
00001da0  33 2c 31 35 35 2c 31 32  38 2c 31 32 38 2c 31 32  |3,155,128,128,12|
00001db0  38 2c 31 32 38 2c 31 32  38 2c 31 32 38 2c 31 32  |8,128,128,128,12|
00001dc0  38 2c 31 32 38 2c 32 33  2c 31 35 36 2c 31 32 38  |8,128,23,156,128|
00001dd0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
00001de0  2c 31 32 38 2c 31 32 38  2c 32 35 35 2c 32 33 2c  |,128,128,255,23,|
00001df0  31 36 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |160,0,0,0,0,0,0,|
00001e00  30 2c 32 35 35 2c 32 33  2c 31 36 31 2c 31 2c 31  |0,255,23,161,1,1|
00001e10  2c 31 2c 31 2c 31 2c 31  2c 31 2c 32 35 35 2c 32  |,1,1,1,1,1,255,2|
00001e20  33 2c 31 35 37 2c 31 2c  31 2c 31 2c 31 2c 31 2c  |3,157,1,1,1,1,1,|
00001e30  31 2c 31 2c 31 0d 07 bc  38 ef 32 33 2c 31 35 38  |1,1,1...8.23,158|
00001e40  2c 32 35 35 2c 31 2c 31  2c 31 2c 31 2c 31 2c 31  |,255,1,1,1,1,1,1|
00001e50  2c 31 2c 32 33 2c 31 35  39 2c 32 35 35 2c 30 2c  |,1,23,159,255,0,|
00001e60  30 2c 30 2c 30 2c 30 2c  30 2c 30 3a e1 0d 07 c6  |0,0,0,0,0,0:....|
00001e70  ca dd f2 49 4e 56 45 3a  ef 32 33 2c 31 35 34 2c  |...INVE:.23,154,|
00001e80  32 35 35 2c 32 35 35 2c  31 39 32 2c 32 32 33 2c  |255,255,192,223,|
00001e90  32 32 33 2c 32 32 33 2c  32 32 33 2c 32 32 33 2c  |223,223,223,223,|
00001ea0  32 33 2c 31 35 35 2c 32  32 33 2c 32 32 33 2c 32  |23,155,223,223,2|
00001eb0  32 33 2c 32 32 33 2c 32  32 33 2c 32 32 33 2c 32  |23,223,223,223,2|
00001ec0  32 33 2c 32 32 33 2c 32  33 2c 31 35 36 2c 32 32  |23,223,23,156,22|
00001ed0  33 2c 32 32 33 2c 32 32  33 2c 32 32 33 2c 32 32  |3,223,223,223,22|
00001ee0  33 2c 31 39 32 2c 32 35  35 2c 32 35 35 2c 32 33  |3,192,255,255,23|
00001ef0  2c 31 36 30 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,160,255,255,255|
00001f00  2c 32 35 35 2c 32 35 35  2c 30 2c 32 35 35 2c 32  |,255,255,0,255,2|
00001f10  35 35 2c 32 33 2c 31 36  31 2c 32 35 31 2c 32 35  |55,23,161,251,25|
00001f20  31 2c 32 35 31 2c 32 35  31 2c 32 35 31 2c 33 2c  |1,251,251,251,3,|
00001f30  32 35 35 2c 32 35 35 0d  07 d0 77 ef 32 33 2c 31  |255,255...w.23,1|
00001f40  35 37 2c 32 35 31 2c 32  35 31 2c 32 35 31 2c 32  |57,251,251,251,2|
00001f50  35 31 2c 32 35 31 2c 32  35 31 2c 32 35 31 2c 32  |51,251,251,251,2|
00001f60  35 31 2c 32 33 2c 31 35  38 2c 32 35 35 2c 32 35  |51,23,158,255,25|
00001f70  35 2c 33 2c 32 35 31 2c  32 35 31 2c 32 35 31 2c  |5,3,251,251,251,|
00001f80  32 35 31 2c 32 35 31 2c  32 33 2c 31 35 39 2c 32  |251,251,23,159,2|
00001f90  35 35 2c 32 35 35 2c 30  2c 32 35 35 2c 32 35 35  |55,255,0,255,255|
00001fa0  2c 32 35 35 2c 32 35 35  2c 32 35 35 3a e1 0d 07  |,255,255,255:...|
00001fb0  da 3c dd f2 47 52 45 59  3a e3 49 3d 31 35 34 b8  |.<..GREY:.I=154.|
00001fc0  31 36 31 3a ef 32 33 2c  49 2c 38 35 2c 31 37 30  |161:.23,I,85,170|
00001fd0  2c 38 35 2c 31 37 30 2c  38 35 2c 31 37 30 2c 38  |,85,170,85,170,8|
00001fe0  35 2c 31 37 30 3a ed 49  3a e1 0d 07 e4 ce dd f2  |5,170:.I:.......|
00001ff0  54 48 44 49 3a ef 32 33  2c 31 35 34 2c 32 35 35  |THDI:.23,154,255|
00002000  2c 31 39 32 2c 31 36 30  2c 31 34 34 2c 31 33 36  |,192,160,144,136|
00002010  2c 31 33 32 2c 31 33 30  2c 31 32 39 2c 32 33 2c  |,132,130,129,23,|
00002020  31 35 35 2c 31 32 39 2c  31 32 39 2c 31 32 39 2c  |155,129,129,129,|
00002030  31 32 39 2c 31 32 39 2c  31 32 39 2c 31 32 39 2c  |129,129,129,129,|
00002040  31 32 39 2c 32 33 2c 31  35 36 2c 31 32 39 2c 31  |129,23,156,129,1|
00002050  33 31 2c 31 33 35 2c 31  34 33 2c 31 35 39 2c 31  |31,135,143,159,1|
00002060  39 31 2c 32 35 35 2c 32  35 35 2c 32 33 2c 31 36  |91,255,255,23,16|
00002070  30 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |0,255,255,255,25|
00002080  35 2c 32 35 35 2c 32 35  35 2c 32 35 35 2c 32 35  |5,255,255,255,25|
00002090  35 2c 32 33 2c 31 36 31  2c 31 32 37 2c 31 39 31  |5,23,161,127,191|
000020a0  2c 32 32 33 2c 32 33 39  2c 32 34 37 2c 32 35 31  |,223,239,247,251|
000020b0  2c 32 35 33 2c 32 35 35  0d 07 ee 68 ef 32 33 2c  |,253,255...h.23,|
000020c0  31 35 37 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |157,255,255,255,|
000020d0  32 35 35 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |255,255,255,255,|
000020e0  32 35 35 2c 32 33 2c 31  35 38 2c 32 35 35 2c 33  |255,23,158,255,3|
000020f0  2c 37 2c 31 35 2c 33 31  2c 36 33 2c 31 32 37 2c  |,7,15,31,63,127,|
00002100  32 35 35 2c 32 33 2c 31  35 39 2c 32 35 35 2c 30  |255,23,159,255,0|
00002110  2c 30 2c 30 2c 30 2c 30  2c 30 2c 32 35 35 3a e1  |,0,0,0,0,0,255:.|
00002120  0d 07 f8 3b dd f2 43 4f  4e 56 28 56 4c 2c 4d 4c  |...;..CONV(VL,ML|
00002130  29 3a 53 54 4e 24 3d c3  28 56 4c 29 3a 53 54 4e  |):STN$=.(VL):STN|
00002140  24 3d 53 54 4e 24 2b c4  28 4d 4c 2d a9 28 53 54  |$=STN$+.(ML-.(ST|
00002150  4e 24 29 29 2c 22 20 22  29 3a e1 0d 08 02 3a dd  |N$))," "):....:.|
00002160  f2 43 4f 4e 54 28 56 4c  24 2c 4d 4c 29 3a 53 54  |.CONT(VL$,ML):ST|
00002170  4e 24 3d 56 4c 24 3a 53  54 4e 24 3d 53 54 4e 24  |N$=VL$:STN$=STN$|
00002180  2b c4 28 4d 4c 2d a9 28  53 54 4e 24 29 29 2c 22  |+.(ML-.(STN$)),"|
00002190  20 22 29 3a e1 0d 08 0c  24 f2 43 4f 4e 56 28 43  | "):....$.CONV(C|
000021a0  46 25 2c 33 29 3a 53 45  41 24 3d 53 54 4e 24 2b  |F%,3):SEA$=STN$+|
000021b0  50 55 54 24 3a 4d 41 3d  31 0d 08 16 1c e7 c0 4d  |PUT$:MA=1......M|
000021c0  41 4c 24 28 4d 41 29 2c  34 29 3d 53 45 41 24 8c  |AL$(MA),4)=SEA$.|
000021d0  e5 8d 54 74 48 0d 08 20  11 e7 4d 41 3d 56 41 25  |..TtH.. ..MA=VA%|
000021e0  8c e5 8d 54 5c 42 0d 08  2a 11 4d 41 3d 4d 41 2b  |...T\B..*.MA=MA+|
000021f0  31 3a e5 8d 54 56 48 0d  08 34 23 54 50 24 3d c2  |1:..TVH..4#TP$=.|
00002200  4d 41 4c 24 28 4d 41 29  2c 31 29 3a e7 54 50 24  |MAL$(MA),1):.TP$|
00002210  3d 22 41 22 8c e5 8d 74  44 48 0d 08 3e 12 e7 54  |="A"...tDH..>..T|
00002220  50 24 3d 22 42 22 8c e5  8d 74 4e 48 0d 08 48 12  |P$="B"...tNH..H.|
00002230  e7 54 50 24 3d 22 43 22  8c e5 8d 74 62 48 0d 08  |.TP$="C"...tbH..|
00002240  52 12 e7 54 50 24 3d 22  44 22 8c e5 8d 64 72 48  |R..TP$="D"...drH|
00002250  0d 08 5c 12 e7 54 50 24  3d 22 45 22 8c e5 8d 54  |..\..TP$="E"...T|
00002260  46 49 0d 08 66 12 e7 54  50 24 3d 22 48 22 8c e5  |FI..f..TP$="H"..|
00002270  8d 54 78 49 0d 08 70 12  e7 54 50 24 3d 22 47 22  |.TxI..p..TP$="G"|
00002280  8c e5 8d 64 60 4b 0d 08  7a 12 e7 54 50 24 3d 22  |...d`K..z..TP$="|
00002290  46 22 8c e5 8d 44 4e 4c  0d 08 84 4a f1 8a bb 28  |F"...DNL...J...(|
000022a0  c1 4d 41 43 24 28 4d 41  29 2c 31 2c 32 29 29 2c  |.MAC$(MA),1,2)),|
000022b0  bb 28 c1 4d 41 43 24 28  4d 41 29 2c 33 2c 32 29  |.(.MAC$(MA),3,2)|
000022c0  29 29 3b c1 4d 41 43 24  28 4d 41 29 2c 35 2c a9  |));.MAC$(MA),5,.|
000022d0  28 4d 41 43 24 28 4d 41  29 29 2d 34 29 3a e5 52  |(MAC$(MA))-4):.R|
000022e0  4c 25 0d 08 8e 77 4c 3d  32 3a e3 49 3d 31 b8 bb  |L%...wL=2:.I=1..|
000022f0  28 c0 4d 41 43 24 28 4d  41 29 2c 31 29 29 3a 58  |(.MAC$(MA),1)):X|
00002300  37 3d bb 28 c1 4d 41 43  24 28 4d 41 29 2c 4c 2c  |7=.(.MAC$(MA),L,|
00002310  32 29 29 3a 59 37 3d bb  28 c1 4d 41 43 24 28 4d  |2)):Y7=.(.MAC$(M|
00002320  41 29 2c 28 4c 2b 32 29  2c 32 29 29 3a 42 24 3d  |A),(L+2),2)):B$=|
00002330  c1 4d 41 43 24 28 4d 41  29 2c 28 4c 2b 34 29 2c  |.MAC$(MA),(L+4),|
00002340  32 30 29 3a f1 8a 58 37  2c 59 37 29 3b 42 24 3a  |20):..X7,Y7);B$:|
00002350  4c 3d 4c 2b 32 34 3a ed  49 0d 08 98 08 e5 52 4c  |L=L+24:.I.....RL|
00002360  25 0d 08 a2 21 4d 24 3d  c0 4d 41 43 24 28 4d 41  |%...!M$=.MAC$(MA|
00002370  29 2c 31 29 3a e7 4d 24  3d 22 32 22 8c f2 53 48  |),1):.M$="2"..SH|
00002380  41 44 0d 08 ac 12 e7 4d  24 3d 22 33 22 8c f2 53  |AD.....M$="3"..S|
00002390  4c 49 4e 45 0d 08 b6 11  e7 4d 24 3d 22 34 22 8c  |LINE.....M$="4".|
000023a0  f2 49 4e 56 45 0d 08 c0  11 e7 4d 24 3d 22 35 22  |.INVE.....M$="5"|
000023b0  8c f2 47 52 45 59 0d 08  ca 11 e7 4d 24 3d 22 36  |..GREY.....M$="6|
000023c0  22 8c f2 54 48 44 49 0d  08 d4 93 58 58 3d bb 28  |"..THDI....XX=.(|
000023d0  c1 4d 41 43 24 28 4d 41  29 2c 32 2c 32 29 29 3a  |.MAC$(MA),2,2)):|
000023e0  59 3d bb 28 c1 4d 41 43  24 28 4d 41 29 2c 34 2c  |Y=.(.MAC$(MA),4,|
000023f0  32 29 29 3a 57 25 3d bb  28 c1 4d 41 43 24 28 4d  |2)):W%=.(.MAC$(M|
00002400  41 29 2c 36 2c 32 29 29  3a 4c 25 3d bb 28 c1 4d  |A),6,2)):L%=.(.M|
00002410  41 43 24 28 4d 41 29 2c  38 2c 32 29 29 3a 58 37  |AC$(MA),8,2)):X7|
00002420  3d bb 28 c1 4d 41 43 24  28 4d 41 29 2c 31 30 2c  |=.(.MAC$(MA),10,|
00002430  32 29 29 3a 59 37 3d bb  28 c1 4d 41 43 24 28 4d  |2)):Y7=.(.MAC$(M|
00002440  41 29 2c 31 32 2c 32 29  29 3a 42 24 3d c2 4d 41  |A),12,2)):B$=.MA|
00002450  43 24 28 4d 41 29 2c 32  30 29 0d 08 de 1b f2 4c  |C$(MA),20).....L|
00002460  57 4e 3a e7 42 24 3d c4  32 30 2c 22 20 22 29 8c  |WN:.B$=.20," ").|
00002470  42 24 3d 22 22 0d 08 e8  1a f1 8a 58 37 2c 59 37  |B$=""......X7,Y7|
00002480  29 3b 42 24 3a f2 53 54  41 4e 3a e5 52 4c 25 0d  |);B$:.STAN:.RL%.|
00002490  08 f2 3f e7 4e 24 3d 22  22 84 49 50 3d 31 8c 4e  |..?.N$="".IP=1.N|
000024a0  24 3d 4d 41 43 24 28 4d  41 29 3a f1 8a 58 35 2c  |$=MAC$(MA):..X5,|
000024b0  59 35 29 3b c4 49 4e 25  2c 22 20 22 29 3b 8a 58  |Y5);.IN%," ");.X|
000024c0  35 2c 59 35 29 3b 4e 24  3a e5 8d 54 42 43 0d 08  |5,Y5);N$:..TBC..|
000024d0  fc 08 e5 52 4c 25 0d 09  06 3e 54 31 3d bb 28 c0  |...RL%...>T1=.(.|
000024e0  4d 41 43 24 28 4d 41 29  2c 31 32 29 29 3a 54 32  |MAC$(MA),12)):T2|
000024f0  3d bb 28 c1 4d 41 43 24  28 4d 41 29 2c 31 33 2c  |=.(.MAC$(MA),13,|
00002500  31 32 29 29 3a 4d 24 3d  c2 4d 41 43 24 28 4d 41  |12)):M$=.MAC$(MA|
00002510  29 2c 31 29 0d 09 10 1f  e7 bb 28 4e 24 29 3c 54  |),1)......(N$)<T|
00002520  31 20 84 20 bb 28 4e 24  29 3e 54 32 20 8c e5 8d  |1 . .(N$)>T2 ...|
00002530  54 64 49 0d 09 1a 08 e5  52 4c 25 0d 09 24 11 e7  |TdI.....RL%..$..|
00002540  4d 24 3d 22 32 22 8c e5  8d 54 5c 42 0d 09 2e 30  |M$="2"...T\B...0|
00002550  e7 4d 24 3d 22 31 22 8c  f1 8a 58 35 2c 59 35 29  |.M$="1"...X5,Y5)|
00002560  3b c4 49 4e 25 2c 22 20  22 29 3a 58 32 3d 58 35  |;.IN%," "):X2=X5|
00002570  3a 59 32 3d 59 35 3a e5  8d 44 62 42 0d 09 38 12  |:Y2=Y5:..DbB..8.|
00002580  e7 54 59 24 3d 22 35 22  8c e5 8d 44 50 4a 0d 09  |.TY$="5"...DPJ..|
00002590  42 8b 4d 46 25 3d 43 46  25 2d 31 3a 47 41 3d 43  |B.MF%=CF%-1:GA=C|
000025a0  46 25 3a 47 42 3d 54 49  25 3a 54 24 3d 4d 41 43  |F%:GB=TI%:T$=MAC|
000025b0  24 28 4d 41 29 3a 47 41  24 3d 54 52 24 3a 47 42  |$(MA):GA$=TR$:GB|
000025c0  24 3d 54 59 24 3a f2 46  4f 52 54 52 41 4e 3a 4e  |$=TY$:.FORTRAN:N|
000025d0  24 3d c3 28 46 54 29 3a  43 46 25 3d 47 41 3a 54  |$=.(FT):CF%=GA:T|
000025e0  49 25 3d 47 42 3a 54 52  24 3d 47 41 24 3a 54 59  |I%=GB:TR$=GA$:TY|
000025f0  24 3d 47 42 24 3a f1 8a  58 35 2c 59 35 29 3b c4  |$=GB$:..X5,Y5);.|
00002600  49 4e 25 2c 22 20 22 29  3b 8a 58 35 2c 59 35 29  |IN%," ");.X5,Y5)|
00002610  3b 4e 24 3a e5 8d 44 76  42 0d 09 4c 05 fa 0d 09  |;N$:..DvB..L....|
00002620  56 0d dd f2 46 4f 52 54  52 41 4e 0d 09 60 1f e3  |V...FORTRAN..`..|
00002630  46 3d 31 b8 35 3a e7 c0  54 24 2c 33 29 3d 46 55  |F=1.5:..T$,3)=FU|
00002640  24 28 46 29 8c e5 8d 64  6c 49 0d 09 6a 06 ed 46  |$(F)...dlI..j..F|
00002650  0d 09 74 2a 46 54 52 24  3d 22 22 3a e3 49 3d 31  |..t*FTR$="":.I=1|
00002660  b8 a9 28 54 24 29 3a e7  c1 54 24 2c 49 2c 31 29  |..(T$):..T$,I,1)|
00002670  3d 22 23 22 8c e5 8d 74  48 49 0d 09 7e 1c 46 54  |="#"...tHI..~.FT|
00002680  52 24 3d 46 54 52 24 2b  c1 54 24 2c 49 2c 31 29  |R$=FTR$+.T$,I,1)|
00002690  3a e5 8d 64 4e 49 0d 09  88 12 e7 49 3d a9 28 54  |:..dNI.....I=.(T|
000026a0  24 29 8c e5 8d 74 7a 45  0d 09 92 10 4c 3d 49 2b  |$)...tzE....L=I+|
000026b0  31 3a 46 54 24 3d 22 22  0d 09 9c 39 e7 97 28 c1  |1:FT$=""...9..(.|
000026c0  54 24 2c 4c 2c 31 29 29  3e 34 37 80 97 28 c1 54  |T$,L,1))>47..(.T|
000026d0  24 2c 4c 2c 31 29 29 3c  35 38 8c 46 54 24 3d 46  |$,L,1))<58.FT$=F|
000026e0  54 24 2b c1 54 24 2c 4c  2c 31 29 8b e5 8d 74 7a  |T$+.T$,L,1)...tz|
000026f0  49 0d 09 a6 18 4c 3d 4c  2b 31 3a e7 4c 3e a9 28  |I....L=L+1:.L>.(|
00002700  54 24 29 8c e5 8d 74 7a  49 0d 09 b0 09 e5 8d 74  |T$)...tzI......t|
00002710  5c 49 0d 09 ba 1e e7 bb  28 46 54 24 29 3d 30 84  |\I......(FT$)=0.|
00002720  bb 28 46 54 24 29 3e 4d  46 25 8c e5 8d 74 7a 45  |.(FT$)>MF%...tzE|
00002730  0d 09 c4 4c 43 46 25 3d  bb 28 46 54 24 29 3a f2  |...LCF%=.(FT$):.|
00002740  46 4f 50 4f 55 54 3a cf  23 58 3d 28 4e 4f 52 25  |FOPOUT:.#X=(NOR%|
00002750  2d 31 29 2a 52 45 43 25  2b 54 49 25 3a e8 23 58  |-1)*REC%+TI%:.#X|
00002760  2c 43 24 3a 46 54 52 24  3d 46 54 52 24 2b c3 28  |,C$:FTR$=FTR$+.(|
00002770  bb 28 43 24 29 29 3a 49  3d 4c 2d 31 0d 09 ce 06  |.(C$)):I=L-1....|
00002780  ed 49 0d 09 d8 0e 46 54  3d a0 28 46 54 52 24 29  |.I....FT=.(FTR$)|
00002790  0d 09 e2 05 e1 0d 09 ec  84 e7 46 3d 31 8c 54 31  |..........F=1.T1|
000027a0  3d bb 28 c1 4d 41 43 24  28 4d 41 29 2c 34 2c 33  |=.(.MAC$(MA),4,3|
000027b0  29 29 3a 54 32 3d bb 28  c1 4d 41 43 24 28 4d 41  |)):T2=.(.MAC$(MA|
000027c0  29 2c 37 2c 33 29 29 3a  54 3d 30 3a e3 49 3d 54  |),7,3)):T=0:.I=T|
000027d0  31 20 b8 20 54 32 3a 43  46 25 3d 49 3a f2 46 4f  |1 . T2:CF%=I:.FO|
000027e0  50 4f 55 54 3a cf 23 58  3d 28 4e 4f 52 25 2d 31  |POUT:.#X=(NOR%-1|
000027f0  29 2a 52 45 43 25 2b 54  49 25 3a e8 23 58 2c 43  |)*REC%+TI%:.#X,C|
00002800  24 3a 54 3d 54 2b bb 28  43 24 29 3a ed 49 3a 46  |$:T=T+.(C$):.I:F|
00002810  54 3d 54 3a e5 8d 64 62  49 0d 09 f6 90 e7 46 3d  |T=T:..dbI.....F=|
00002820  32 8c 54 31 3d bb 28 c1  4d 41 43 24 28 4d 41 29  |2.T1=.(.MAC$(MA)|
00002830  2c 34 2c 33 29 29 3a 54  32 3d bb 28 c1 4d 41 43  |,4,3)):T2=.(.MAC|
00002840  24 28 4d 41 29 2c 37 2c  33 29 29 3a 54 3d 30 3a  |$(MA),7,3)):T=0:|
00002850  4c 3d 30 3a e3 49 3d 54  31 20 b8 20 54 32 3a 43  |L=0:.I=T1 . T2:C|
00002860  46 25 3d 49 3a f2 46 4f  50 4f 55 54 3a cf 23 58  |F%=I:.FOPOUT:.#X|
00002870  3d 28 4e 4f 52 25 2d 31  29 2a 52 45 43 25 2b 54  |=(NOR%-1)*REC%+T|
00002880  49 25 3a e8 23 58 2c 43  24 3a 54 3d 54 2b bb 28  |I%:.#X,C$:T=T+.(|
00002890  43 24 29 3a 4c 3d 4c 2b  31 3a ed 49 3a 46 54 3d  |C$):L=L+1:.I:FT=|
000028a0  54 2f 4c 3a e5 8d 64 62  49 0d 0a 00 0e e7 46 3d  |T/L:..dbI.....F=|
000028b0  35 8c e5 8d 64 42 4b 0d  0a 0a 0e e7 46 3d 34 8c  |5...dBK.....F=4.|
000028c0  e5 8d 54 72 4a 0d 0a 14  3f 4d 41 58 3d 2d 39 39  |..TrJ...?MAX=-99|
000028d0  39 39 39 39 39 39 3a 4c  3d 30 3a 54 31 3d bb 28  |999999:L=0:T1=.(|
000028e0  c1 4d 41 43 24 28 4d 41  29 2c 34 2c 33 29 29 3a  |.MAC$(MA),4,3)):|
000028f0  54 32 3d bb 28 c1 4d 41  43 24 28 4d 41 29 2c 37  |T2=.(.MAC$(MA),7|
00002900  2c 33 29 29 0d 0a 1e 50  e3 49 3d 54 31 20 b8 20  |,3))...P.I=T1 . |
00002910  54 32 3a 43 46 25 3d 49  3a f2 46 4f 50 4f 55 54  |T2:CF%=I:.FOPOUT|
00002920  3a cf 23 58 3d 28 4e 4f  52 25 2d 31 29 2a 52 45  |:.#X=(NOR%-1)*RE|
00002930  43 25 2b 54 49 25 3a e8  23 58 2c 43 24 3a e7 bb  |C%+TI%:.#X,C$:..|
00002940  28 43 24 29 3e 4d 41 58  20 8c 20 4d 41 58 3d bb  |(C$)>MAX . MAX=.|
00002950  28 43 24 29 0d 0a 28 13  ed 49 3a 46 54 3d 4d 41  |(C$)..(..I:FT=MA|
00002960  58 3a e5 8d 64 62 49 0d  0a 32 3a 4d 41 58 3d 39  |X:..dbI..2:MAX=9|
00002970  39 39 39 39 39 39 39 3a  54 31 3d bb 28 c1 4d 41  |9999999:T1=.(.MA|
00002980  43 24 28 4d 41 29 2c 34  2c 33 29 29 3a 54 32 3d  |C$(MA),4,3)):T2=|
00002990  bb 28 c1 4d 41 43 24 28  4d 41 29 2c 37 2c 33 29  |.(.MAC$(MA),7,3)|
000029a0  29 0d 0a 3c 50 e3 49 3d  54 31 20 b8 20 54 32 3a  |)..<P.I=T1 . T2:|
000029b0  43 46 25 3d 49 3a f2 46  4f 50 4f 55 54 3a cf 23  |CF%=I:.FOPOUT:.#|
000029c0  58 3d 28 4e 4f 52 25 2d  31 29 2a 52 45 43 25 2b  |X=(NOR%-1)*REC%+|
000029d0  54 49 25 3a e8 23 58 2c  43 24 3a e7 bb 28 43 24  |TI%:.#X,C$:..(C$|
000029e0  29 3c 4d 41 58 20 8c 20  4d 41 58 3d bb 28 43 24  |)<MAX . MAX=.(C$|
000029f0  29 0d 0a 46 13 ed 49 3a  46 54 3d 4d 41 58 3a e5  |)..F..I:FT=MAX:.|
00002a00  8d 64 62 49 0d 0a 50 1b  e7 c0 4d 41 43 24 28 4d  |.dbI..P...MAC$(M|
00002a10  41 29 2c 31 29 3d 22 23  22 8c e5 8d 74 56 4a 0d  |A),1)="#"...tVJ.|
00002a20  0a 5a 44 f2 43 54 4f 44  28 44 41 24 29 3a e7 4d  |.ZD.CTOD(DA$):.M|
00002a30  41 43 24 28 4d 41 29 3d  22 54 4f 44 41 59 22 8c  |AC$(MA)="TODAY".|
00002a40  f2 44 54 4f 43 28 50 44  31 29 3a 4e 24 3d 50 31  |.DTOC(PD1):N$=P1|
00002a50  24 3a f1 8a 58 35 2c 59  35 29 3b 4e 24 3a e5 8d  |$:..X5,Y5);N$:..|
00002a60  64 64 42 0d 0a 64 35 50  35 24 3d c1 4d 41 43 24  |ddB..d5P5$=.MAC$|
00002a70  28 4d 41 29 2c 33 2c a9  28 4d 41 43 24 28 4d 41  |(MA),3,.(MAC$(MA|
00002a80  29 29 2d 32 29 3a e7 c0  50 35 24 2c 31 29 3d 22  |))-2):..P5$,1)="|
00002a90  23 22 8c e5 8d 74 56 4a  0d 0a 6e 36 50 44 31 3d  |#"...tVJ..n6PD1=|
00002aa0  50 44 31 2b bb 28 50 35  24 29 3a f2 44 54 4f 43  |PD1+.(P5$):.DTOC|
00002ab0  28 50 44 31 29 3a 4e 24  3d 50 31 24 3a f1 8a 58  |(PD1):N$=P1$:..X|
00002ac0  35 2c 59 35 29 3b 4e 24  3a e5 8d 64 64 42 0d 0a  |5,Y5);N$:..ddB..|
00002ad0  78 51 50 44 33 3d c2 50  35 24 2c a9 28 50 35 24  |xQPD3=.P5$,.(P5$|
00002ae0  29 2d 31 29 3a cf 23 41  3d 28 50 44 33 2d 31 29  |)-1):.#A=(PD3-1)|
00002af0  2a 36 31 2b 31 30 39 3a  e8 23 41 2c 5a 5a 24 3a  |*61+109:.#A,ZZ$:|
00002b00  cf 23 58 3d 28 4e 4f 52  25 2d 31 29 2a 52 45 43  |.#X=(NOR%-1)*REC|
00002b10  25 2b bb 28 5a 5a 24 29  3a e8 23 58 2c 43 24 0d  |%+.(ZZ$):.#X,C$.|
00002b20  0a 82 49 e7 c1 4d 41 43  24 28 4d 41 29 2c 32 2c  |..I..MAC$(MA),2,|
00002b30  31 29 3d 22 2d 22 8c 50  44 31 3d 50 44 31 2d bb  |1)="-".PD1=PD1-.|
00002b40  28 43 24 29 3a f2 44 54  4f 43 28 50 44 31 29 3a  |(C$):.DTOC(PD1):|
00002b50  4e 24 3d 50 31 24 3a f1  8a 58 35 2c 59 35 29 3b  |N$=P1$:..X5,Y5);|
00002b60  4e 24 3a e5 8d 64 64 42  0d 0a 8c 35 50 44 31 3d  |N$:..ddB...5PD1=|
00002b70  50 44 31 2b bb 28 43 24  29 3a f2 44 54 4f 43 28  |PD1+.(C$):.DTOC(|
00002b80  50 44 31 29 3a 4e 24 3d  50 31 24 3a f1 8a 58 35  |PD1):N$=P1$:..X5|
00002b90  2c 59 35 29 3b 4e 24 3a  e5 8d 64 64 42 0d 0a 96  |,Y5);N$:..ddB...|
00002ba0  8c 50 36 3d bb 28 c1 4d  41 43 24 28 4d 41 29 2c  |.P6=.(.MAC$(MA),|
00002bb0  32 2c 33 29 29 3a cf 23  41 3d 28 50 36 2d 31 29  |2,3)):.#A=(P6-1)|
00002bc0  2a 36 31 2b 31 30 39 3a  e8 23 41 2c 5a 5a 24 3a  |*61+109:.#A,ZZ$:|
00002bd0  cf 23 58 3d 28 4e 4f 52  25 2d 31 29 2a 52 45 43  |.#X=(NOR%-1)*REC|
00002be0  25 2b bb 28 5a 5a 24 29  3a e8 23 58 2c 43 24 3a  |%+.(ZZ$):.#X,C$:|
00002bf0  f2 43 54 4f 44 28 43 24  29 3a 50 35 24 3d c2 4d  |.CTOD(C$):P5$=.M|
00002c00  41 43 24 28 4d 41 29 2c  a9 28 4d 41 43 24 28 4d  |AC$(MA),.(MAC$(M|
00002c10  41 29 29 2d 35 29 3a e7  c0 50 35 24 2c 31 29 3d  |A))-5):..P5$,1)=|
00002c20  22 23 22 8c e5 8d 74 6a  4a 0d 0a a0 36 50 44 31  |"#"...tjJ...6PD1|
00002c30  3d 50 44 31 2b bb 28 50  35 24 29 3a f2 44 54 4f  |=PD1+.(P5$):.DTO|
00002c40  43 28 50 44 31 29 3a 4e  24 3d 50 31 24 3a f1 8a  |C(PD1):N$=P1$:..|
00002c50  58 35 2c 59 35 29 3b 4e  24 3a e5 8d 64 64 42 0d  |X5,Y5);N$:..ddB.|
00002c60  0a aa 84 50 36 3d bb 28  c2 50 35 24 2c a9 28 50  |...P6=.(.P5$,.(P|
00002c70  35 24 29 2d 31 29 29 3a  cf 23 41 3d 28 50 36 2d  |5$)-1)):.#A=(P6-|
00002c80  31 29 2a 36 31 2b 31 30  39 3a e8 23 41 2c 5a 5a  |1)*61+109:.#A,ZZ|
00002c90  24 3a cf 23 58 3d 28 4e  4f 52 25 2d 31 29 2a 52  |$:.#X=(NOR%-1)*R|
00002ca0  45 43 25 2b bb 28 5a 5a  24 29 3a e8 23 58 2c 43  |EC%+.(ZZ$):.#X,C|
00002cb0  24 3a 50 44 31 3d 50 44  31 2b bb 28 43 24 29 3a  |$:PD1=PD1+.(C$):|
00002cc0  f2 44 54 4f 43 28 50 44  31 29 3a 4e 24 3d 50 31  |.DTOC(PD1):N$=P1|
00002cd0  24 3a f1 8a 58 35 2c 59  35 29 3b 4e 24 3a e5 8d  |$:..X5,Y5);N$:..|
00002ce0  64 64 42 0d 0a b4 05 fa  0d 0a be 3f dd f2 43 54  |ddB........?..CT|
00002cf0  4f 44 28 50 31 24 29 3a  50 31 3d bb 28 c1 50 31  |OD(P1$):P1=.(.P1|
00002d00  24 2c 31 2c 32 29 29 3a  50 32 3d bb 28 c1 50 31  |$,1,2)):P2=.(.P1|
00002d10  24 2c 34 2c 32 29 29 3a  50 33 3d bb 28 c1 50 31  |$,4,2)):P3=.(.P1|
00002d20  24 2c 37 2c 32 29 29 0d  0a c8 1f e7 50 31 3c 31  |$,7,2)).....P1<1|
00002d30  84 50 32 3c 31 84 50 32  3e 31 32 84 50 33 3c 30  |.P2<1.P2>12.P3<0|
00002d40  8c e5 8d 54 58 4b 0d 0a  d2 22 e7 50 31 3c 3d bb  |...TXK...".P1<=.|
00002d50  28 c1 53 45 47 24 2c 28  32 2a 50 32 29 2d 31 2c  |(.SEG$,(2*P2)-1,|
00002d60  32 29 29 8c 8d 64 66 4a  0d 0a dc 30 e7 20 50 31  |2))..dfJ...0. P1|
00002d70  3c 3e 32 39 20 84 20 50  32 3c 3e 32 20 84 20 50  |<>29 . P2<>2 . P|
00002d80  33 2d 28 a8 28 50 33 2f  34 29 2a 34 29 3c 3e 30  |3-(.(P3/4)*4)<>0|
00002d90  20 8c 20 e5 8d 54 58 4b  0d 0a e6 16 50 44 31 3d  | . ..TXK....PD1=|
00002da0  50 31 3a e7 50 32 3d 31  8c e5 8d 64 7a 4a 0d 0a  |P1:.P2=1...dzJ..|
00002db0  f0 31 e3 50 34 3d 31 b8  28 50 32 2d 31 29 3a 50  |.1.P4=1.(P2-1):P|
00002dc0  44 31 3d 50 44 31 2b bb  28 c1 53 45 47 24 2c 28  |D1=PD1+.(.SEG$,(|
00002dd0  32 2a 50 34 29 2d 31 2c  32 29 29 3a ed 50 34 0d  |2*P4)-1,2)):.P4.|
00002de0  0a fa 20 50 44 31 3d 50  44 31 2b 28 33 36 35 2a  |.. PD1=PD1+(365*|
00002df0  50 33 29 2b a8 28 28 50  33 2b 33 29 2f 34 29 0d  |P3)+.((P3+3)/4).|
00002e00  0b 04 24 e7 50 33 3d a8  28 50 33 2f 34 29 2a 34  |..$.P3=.(P3/4)*4|
00002e10  20 80 20 50 32 3e 32 20  8c 20 50 44 31 3d 50 44  | . P2>2 . PD1=PD|
00002e20  31 2b 31 0d 0b 0e 09 e5  8d 54 62 4b 0d 0b 18 0a  |1+1......TbK....|
00002e30  50 44 31 3d 2d 31 0d 0b  22 05 e1 0d 0b 2c 0f dd  |PD1=-1.."....,..|
00002e40  f2 44 54 4f 43 28 50 44  32 29 0d 0b 36 16 50 31  |.DTOC(PD2)..6.P1|
00002e50  3d a8 28 50 44 31 2f 33  36 36 29 3a 50 33 3d 31  |=.(PD1/366):P3=1|
00002e60  0d 0b 40 1f 50 35 3d a8  28 28 50 31 2b 33 29 2f  |..@.P5=.((P1+3)/|
00002e70  34 29 3a 50 34 3d 50 31  2d 28 50 35 2a 34 29 0d  |4):P4=P1-(P5*4).|
00002e80  0b 4a 2e 50 32 3d 50 44  31 2d 28 33 36 35 2a 50  |.J.P2=PD1-(365*P|
00002e90  31 29 2d 50 35 3a e7 50  34 3d 30 20 8c 20 50 35  |1)-P5:.P4=0 . P5|
00002ea0  3d 33 36 36 20 8b 20 50  35 3d 33 36 35 0d 0b 54  |=366 . P5=365..T|
00002eb0  1a e7 50 32 3e 50 35 20  8c 20 50 31 3d 50 31 2b  |..P2>P5 . P1=P1+|
00002ec0  31 3a e5 8d 44 40 4b 0d  0b 5e 19 e7 50 32 3c 31  |1:..D@K..^..P2<1|
00002ed0  20 8c 20 50 31 3d 50 31  2d 31 3a e5 8d 44 40 4b  | . P1=P1-1:..D@K|
00002ee0  0d 0b 68 30 50 35 3d bb  28 c1 53 45 47 24 2c 28  |..h0P5=.(.SEG$,(|
00002ef0  32 2a 50 33 29 2d 31 2c  32 29 29 3a e7 50 33 3d  |2*P3)-1,2)):.P3=|
00002f00  32 80 50 34 3d 30 20 8c  20 50 35 3d 50 35 2b 31  |2.P4=0 . P5=P5+1|
00002f10  0d 0b 72 23 e7 50 32 3e  50 35 20 8c 20 50 33 3d  |..r#.P2>P5 . P3=|
00002f20  50 33 2b 31 3a 50 32 3d  50 32 2d 50 35 3a e5 8d  |P3+1:P2=P2-P5:..|
00002f30  44 68 4b 0d 0b 7c 24 50  31 24 3d c3 28 50 32 29  |DhK..|$P1$=.(P2)|
00002f40  3a 50 31 24 3d c4 32 2d  a9 28 50 31 24 29 2c 22  |:P1$=.2-.(P1$),"|
00002f50  30 22 29 2b 50 31 24 0d  0b 86 23 50 32 24 3d c3  |0")+P1$...#P2$=.|
00002f60  28 50 33 29 3a e7 a9 28  50 32 24 29 3e 32 8c 50  |(P3):..(P2$)>2.P|
00002f70  32 24 3d c0 50 32 24 2c  32 29 0d 0b 90 22 50 31  |2$=.P2$,2)..."P1|
00002f80  24 3d 50 31 24 2b 22 2f  22 2b c4 32 2d a9 28 50  |$=P1$+"/"+.2-.(P|
00002f90  32 24 29 2c 22 30 22 29  2b 50 32 24 0d 0b 9a 23  |2$),"0")+P2$...#|
00002fa0  50 32 24 3d c3 28 50 31  29 3a e7 a9 28 50 32 24  |P2$=.(P1):..(P2$|
00002fb0  29 3e 32 8c 50 32 24 3d  c0 50 32 24 2c 32 29 0d  |)>2.P2$=.P2$,2).|
00002fc0  0b a4 22 50 31 24 3d 50  31 24 2b 22 2f 22 2b c4  |.."P1$=P1$+"/"+.|
00002fd0  32 2d a9 28 50 32 24 29  2c 22 30 22 29 2b 50 32  |2-.(P2$),"0")+P2|
00002fe0  24 0d 0b ae 0b 50 44 31  3d 50 44 32 0d 0b b8 05  |$....PD1=PD2....|
00002ff0  e1 0d 0b c2 88 54 31 3d  bb 28 c1 4d 41 43 24 28  |.....T1=.(.MAC$(|
00003000  4d 41 29 2c 34 2c 33 29  29 3a 54 32 3d bb 28 c1  |MA),4,3)):T2=.(.|
00003010  4d 41 43 24 28 4d 41 29  2c 37 2c 33 29 29 3a 54  |MAC$(MA),7,3)):T|
00003020  3d 30 3a 4c 3d 30 3a e3  49 3d 54 31 20 b8 20 54  |=0:L=0:.I=T1 . T|
00003030  32 3a 43 46 25 3d 49 3a  f2 46 4f 50 4f 55 54 3a  |2:CF%=I:.FOPOUT:|
00003040  cf 23 58 3d 28 4e 4f 52  25 2d 31 29 2a 52 45 43  |.#X=(NOR%-1)*REC|
00003050  25 2b 54 49 25 3a e8 23  58 2c 43 24 3a 54 3d 54  |%+TI%:.#X,C$:T=T|
00003060  2b bb 28 43 24 29 3a 4c  3d 4c 2b 31 3a ed 49 3a  |+.(C$):L=L+1:.I:|
00003070  41 56 47 3d 28 54 2f 4c  29 0d 0b cc 5d 54 54 3d  |AVG=(T/L)...]TT=|
00003080  30 3a e3 49 3d 54 31 20  b8 20 54 32 3a 43 46 25  |0:.I=T1 . T2:CF%|
00003090  3d 49 3a f2 46 4f 50 4f  55 54 3a cf 23 58 3d 28  |=I:.FOPOUT:.#X=(|
000030a0  4e 4f 52 25 2d 31 29 2a  52 45 43 25 2b 54 49 25  |NOR%-1)*REC%+TI%|
000030b0  3a e8 23 58 2c 43 24 3a  54 3d 28 bb 28 43 24 29  |:.#X,C$:T=(.(C$)|
000030c0  2d 41 56 47 29 3a 54 3d  54 5e 32 3a 54 54 3d 54  |-AVG):T=T^2:TT=T|
000030d0  54 2b 54 3a ed 49 0d 0b  d6 16 46 54 3d b6 28 54  |T+T:.I....FT=.(T|
000030e0  54 2f 41 56 47 29 3a e5  8d 64 62 49 0d 0b e0 19  |T/AVG):..dbI....|
000030f0  e7 54 59 24 3d 22 30 22  80 49 4e 4e 25 3d 30 8c  |.TY$="0".INN%=0.|
00003100  e5 8d 64 6e 42 0d 0b ea  1b f2 54 52 49 4d 3a f1  |..dnB.....TRIM:.|
00003110  8a 58 35 2c 59 35 29 3b  4e 24 3a e5 8d 64 6e 42  |.X5,Y5);N$:..dnB|
00003120  0d 0b f4 28 dd f2 54 52  49 4d 3a 54 52 4d 3d bb  |...(..TRIM:TRM=.|
00003130  28 4d 41 43 24 28 4d 41  29 29 3a 54 52 4e 3d bb  |(MAC$(MA)):TRN=.|
00003140  28 4e 24 29 3a 4c 3d 31  0d 0b fe 1d e7 54 52 4d  |(N$):L=1.....TRM|
00003150  3d 30 8c 4e 24 3d c3 28  a8 28 54 52 4e 29 29 3a  |=0.N$=.(.(TRN)):|
00003160  e5 8d 44 44 4c 0d 0c 08  30 e7 54 52 4e 3d a8 28  |..DDL...0.TRN=.(|
00003170  54 52 4e 29 8c 4e 24 3d  c3 28 a8 28 54 52 4e 29  |TRN).N$=.(.(TRN)|
00003180  29 2b 22 2e 22 2b c4 54  52 4d 2c 22 30 22 29 3a  |)+"."+.TRM,"0"):|
00003190  e5 8d 44 44 4c 0d 0c 12  17 e7 c1 4e 24 2c 4c 2c  |..DDL......N$,L,|
000031a0  31 29 3d 22 2e 22 8c e5  8d 54 66 4c 0d 0c 1c 0f  |1)="."...TfL....|
000031b0  4c 3d 4c 2b 31 3a e5 8d  54 52 4c 0d 0c 26 40 54  |L=L+1:..TRL..&@T|
000031c0  52 4d 24 3d c1 4e 24 2c  28 4c 2b 31 29 2c a9 28  |RM$=.N$,(L+1),.(|
000031d0  4e 24 29 2d 4c 29 3a e7  a9 28 54 52 4d 24 29 3e  |N$)-L):..(TRM$)>|
000031e0  54 52 4d 20 8c 20 54 52  4d 24 3d c0 54 52 4d 24  |TRM . TRM$=.TRM$|
000031f0  2c 54 52 4d 29 3a e5 8d  54 7a 4c 0d 0c 30 36 e7  |,TRM):..TzL..06.|
00003200  a9 28 54 52 4d 24 29 3c  54 52 4d 20 8c 20 54 52  |.(TRM$)<TRM . TR|
00003210  4d 24 3d 54 52 4d 24 2b  c4 28 54 52 4d 2d a9 28  |M$=TRM$+.(TRM-.(|
00003220  54 52 4d 24 29 29 2c 22  30 22 29 3a e5 8d 54 7a  |TRM$)),"0"):..Tz|
00003230  4c 0d 0c 3a 12 4e 24 3d  c0 4e 24 2c 4c 29 2b 54  |L..:.N$=.N$,L)+T|
00003240  52 4d 24 0d 0c 44 1f f1  8a 58 35 2c 59 35 29 3b  |RM$..D...X5,Y5);|
00003250  89 28 31 38 29 3b 8a 58  35 2c 59 35 29 3b 4e 24  |.(18);.X5,Y5);N$|
00003260  3a e1 0d 0c 4e 36 4c 25  3d 31 3a 4d 25 3d bb 28  |:...N6L%=1:M%=.(|
00003270  c0 4d 41 43 24 28 4d 41  29 2c 32 29 29 3a 50 25  |.MAC$(MA),2)):P%|
00003280  3d 33 3a 4e 4e 24 3d 4e  24 2b c4 31 32 2d a9 28  |=3:NN$=N$+.12-.(|
00003290  4e 24 29 2c 22 20 22 29  0d 0c 58 24 56 24 3d c1  |N$)," ")..X$V$=.|
000032a0  4d 41 43 24 28 4d 41 29  2c 50 25 2c 31 32 29 3a  |MAC$(MA),P%,12):|
000032b0  e7 56 24 3d 4e 4e 24 8c  e5 52 4c 25 0d 0c 62 27  |.V$=NN$..RL%..b'|
000032c0  50 25 3d 50 25 2b 31 32  3a 4c 25 3d 4c 25 2b 31  |P%=P%+12:L%=L%+1|
000032d0  3a e7 4c 25 3e 4d 25 8c  e5 8d 44 44 42 8b e5 8d  |:.L%>M%...DDB...|
000032e0  44 58 4c 0d 0c 6c 2b f2  43 4f 4e 56 28 43 46 25  |DXL..l+.CONV(CF%|
000032f0  2c 33 29 3a 53 54 4e 24  3d 53 54 4e 24 2b 50 55  |,3):STN$=STN$+PU|
00003300  54 24 3a 4c 3d 31 3a ee  85 e5 8d 54 7c 4f 0d 0c  |T$:L=1:....T|O..|
00003310  76 0b ee 85 e5 8d 54 7c  4f 0d 0c 80 1b e7 c0 52  |v.....T|O......R|
00003320  45 4c 24 28 4c 29 2c 34  29 3d 53 54 4e 24 8c e5  |EL$(L),4)=STN$..|
00003330  8d 74 68 4c 0d 0c 8a 1d  4c 3d 4c 2b 31 3a e7 4c  |.thL....L=L+1:.L|
00003340  3e 52 45 25 8c e5 8d 74  54 4c 3a 8b e5 8d 44 76  |>RE%...tTL:...Dv|
00003350  4c 0d 0c 94 0b ee 85 e5  8d 54 7c 4f 0d 0c 9e 09  |L........T|O....|
00003360  e5 8d 44 7a 43 0d 0c a8  83 4c 46 24 3d c1 52 45  |..DzC....LF$=.RE|
00003370  4c 24 28 4c 29 2c 36 2c  39 29 3a 42 25 3d bb 28  |L$(L),6,9):B%=.(|
00003380  c1 52 45 4c 24 28 4c 29  2c 31 35 2c 33 29 29 3a  |.REL$(L),15,3)):|
00003390  43 25 3d bb 28 c1 52 45  4c 24 28 4c 29 2c 31 38  |C%=.(.REL$(L),18|
000033a0  2c 33 29 29 3a 44 25 3d  bb 28 c1 52 45 4c 24 28  |,3)):D%=.(.REL$(|
000033b0  4c 29 2c 32 31 2c 33 29  29 3a 52 24 3d c1 52 45  |L),21,3)):R$=.RE|
000033c0  4c 24 28 4c 29 2c 32 34  2c 31 29 3a 4c 4c 3d 31  |L$(L),24,1):LL=1|
000033d0  3a 53 24 3d 22 22 3a 54  52 49 4d 24 3d c2 52 45  |:S$="":TRIM$=.RE|
000033e0  4c 24 28 4c 29 2c 31 29  0d 0c b2 19 e7 c1 4c 46  |L$(L),1)......LF|
000033f0  24 2c 4c 4c 2c 31 29 3d  22 20 22 8c e5 8d 64 46  |$,LL,1)=" "...dF|
00003400  4c 0d 0c bc 22 53 24 3d  53 24 2b c1 4c 46 24 2c  |L..."S$=S$+.LF$,|
00003410  4c 4c 2c 31 29 3a 4c 4c  3d 4c 4c 2b 31 3a e5 8d  |LL,1):LL=LL+1:..|
00003420  74 72 4c 0d 0c c6 44 4c  46 24 3d 53 24 3a 47 41  |trL...DLF$=S$:GA|
00003430  3d 43 46 25 3a 47 42 3d  54 49 25 3a 43 46 25 3d  |=CF%:GB=TI%:CF%=|
00003440  42 25 3a f2 46 4f 50 4f  55 54 3a cf 23 58 3d 28  |B%:.FOPOUT:.#X=(|
00003450  4e 4f 52 25 2d 31 29 2a  52 45 43 25 2b 54 49 25  |NOR%-1)*REC%+TI%|
00003460  3a e8 23 58 2c 43 24 0d  0c d0 c1 54 41 24 3d 4c  |:.#X,C$....TA$=L|
00003470  46 24 2b 22 4e 22 3a ff  20 22 44 69 72 20 3c 44  |F$+"N":. "Dir <D|
00003480  61 74 61 56 69 73 69 6f  6e 24 44 69 72 3e 22 3a  |ataVision$Dir>":|
00003490  48 3d ad a4 4d 79 46 69  6c 65 28 54 41 24 29 3a  |H=..MyFile(TA$):|
000034a0  e8 23 48 2c 44 49 52 24  3a 54 41 24 3d 4c 46 24  |.#H,DIR$:TA$=LF$|
000034b0  2b 22 41 22 3a d9 23 48  3a f2 44 69 72 28 44 49  |+"A":.#H:.Dir(DI|
000034c0  52 24 29 3a 48 3d ad a4  4d 79 46 69 6c 65 28 54  |R$):H=..MyFile(T|
000034d0  41 24 29 3a cf 23 48 3d  28 43 25 2d 31 29 2a 36  |A$):.#H=(C%-1)*6|
000034e0  31 2b 31 30 39 3a e8 23  48 2c 54 49 31 24 3a cf  |1+109:.#H,TI1$:.|
000034f0  23 48 3d 28 44 25 2d 31  29 2a 36 31 2b 31 30 39  |#H=(D%-1)*61+109|
00003500  3a e8 23 48 2c 54 49 32  24 3a cf 23 48 3d 35 3a  |:.#H,TI2$:.#H=5:|
00003510  e8 23 48 2c 4e 4f 52 24  3a cf 23 48 3d 31 35 3a  |.#H,NOR$:.#H=15:|
00003520  e8 23 48 2c 52 45 43 24  0d 0c da 22 cf 23 48 3d  |.#H,REC$...".#H=|
00003530  28 43 25 2d 31 29 2a 36  31 2b 31 30 34 3a e8 23  |(C%-1)*61+104:.#|
00003540  48 2c 49 4e 4e 24 3a d9  23 48 0d 0c e4 3b 4e 25  |H,INN$:.#H...;N%|
00003550  3d ad a4 4d 79 46 69 6c  65 28 4c 46 24 29 3a 46  |=..MyFile(LF$):F|
00003560  4f 25 3d 30 3a 52 25 3d  bb 28 52 45 43 24 29 3a  |O%=0:R%=.(REC$):|
00003570  43 25 3d bb 28 54 49 31  24 29 3a 44 25 3d bb 28  |C%=.(TI1$):D%=.(|
00003580  54 49 32 24 29 0d 0c ee  59 e3 49 3d 31 b8 bb 28  |TI2$)...Y.I=1..(|
00003590  4e 4f 52 24 29 3a cf 23  4e 25 3d 28 49 2d 31 29  |NOR$):.#N%=(I-1)|
000035a0  2a 52 25 2b 43 25 3a e8  23 4e 25 2c 45 24 3a cf  |*R%+C%:.#N%,E$:.|
000035b0  23 4e 25 3d 28 49 2d 31  29 2a 52 25 2b 44 25 3a  |#N%=(I-1)*R%+D%:|
000035c0  e8 23 4e 25 2c 44 24 3a  e7 44 24 3d 43 24 8c 46  |.#N%,D$:.D$=C$.F|
000035d0  4f 25 3d 49 3a 49 3d bb  28 4e 4f 52 24 29 0d 0c  |O%=I:I=.(NOR$)..|
000035e0  f8 19 ed 49 3a e7 46 4f  25 3d 30 8c f2 52 45 4a  |...I:.FO%=0..REJ|
000035f0  20 8b e5 8d 54 42 4d 0d  0d 02 2d e7 c1 52 45 4c  | ...TBM...-..REL|
00003600  24 28 4c 29 2c 35 2c 31  29 3d 22 31 22 8c 4e 24  |$(L),5,1)="1".N$|
00003610  3d 45 24 3a f2 46 50 4e  54 3a f2 4f 50 45 3a e5  |=E$:.FPNT:.OPE:.|
00003620  8d 64 64 42 0d 0d 0c 0a  4e 4e 24 3d 4e 24 0d 0d  |.ddB....NN$=N$..|
00003630  16 4b e7 c1 52 45 4c 24  28 4c 29 2c 35 2c 31 29  |.K..REL$(L),5,1)|
00003640  3d 22 32 22 8c f2 4c 45  43 48 45 4b 3a cf 23 4e  |="2"..LECHEK:.#N|
00003650  25 3d 28 46 4f 25 2d 31  29 2a 52 25 2b 43 25 3a  |%=(FO%-1)*R%+C%:|
00003660  f1 23 4e 25 2c 4e 24 3a  f2 4f 50 45 3a 4e 24 3d  |.#N%,N$:.OPE:N$=|
00003670  4e 4e 24 3a e5 8d 74 4a  4c 0d 0d 20 72 e7 c1 52  |NN$:..tJL.. r..R|
00003680  45 4c 24 28 4c 29 2c 35  2c 31 29 3d 22 33 22 8c  |EL$(L),5,1)="3".|
00003690  53 41 53 3d bb 28 45 24  29 2b bb 28 4e 24 29 3a  |SAS=.(E$)+.(N$):|
000036a0  46 24 3d c3 28 53 41 53  29 3a f2 54 52 49 4d 32  |F$=.(SAS):.TRIM2|
000036b0  3a 4e 24 3d 46 24 3a f2  4c 45 43 48 45 4b 3a cf  |:N$=F$:.LECHEK:.|
000036c0  23 4e 25 3d 28 46 4f 25  2d 31 29 2a 52 25 2b 43  |#N%=(FO%-1)*R%+C|
000036d0  25 3a f1 23 4e 25 2c 4e  24 3a f2 4f 50 45 3a 4e  |%:.#N%,N$:.OPE:N|
000036e0  24 3d 4e 4e 24 3a e5 8d  74 4a 4c 0d 0d 2a 72 e7  |$=NN$:..tJL..*r.|
000036f0  c1 52 45 4c 24 28 4c 29  2c 35 2c 31 29 3d 22 34  |.REL$(L),5,1)="4|
00003700  22 8c 53 41 53 3d bb 28  45 24 29 2d bb 28 4e 24  |".SAS=.(E$)-.(N$|
00003710  29 3a 46 24 3d c3 28 53  41 53 29 3a f2 54 52 49  |):F$=.(SAS):.TRI|
00003720  4d 32 3a 4e 24 3d 46 24  3a f2 4c 45 43 48 45 4b  |M2:N$=F$:.LECHEK|
00003730  3a cf 23 4e 25 3d 28 46  4f 25 2d 31 29 2a 52 25  |:.#N%=(FO%-1)*R%|
00003740  2b 43 25 3a f1 23 4e 25  2c 4e 24 3a f2 4f 50 45  |+C%:.#N%,N$:.OPE|
00003750  3a 4e 24 3d 4e 4e 24 3a  e5 8d 74 4a 4c 0d 0d 34  |:N$=NN$:..tJL..4|
00003760  24 dd f2 4f 50 45 3a d9  23 4e 25 3a 43 46 25 3d  |$..OPE:.#N%:CF%=|
00003770  47 41 3a 54 49 25 3d 47  42 3a ee 85 e5 8d 54 7c  |GA:TI%=GB:....T||
00003780  4f 0d 0d 3e 05 e1 0d 0d  48 1c dd f2 52 45 4a 3a  |O..>....H...REJ:|
00003790  f2 4f 50 45 3a e7 52 24  3d 22 52 22 8c e5 8d 54  |.OPE:.R$="R"...T|
000037a0  5c 42 0d 0d 52 19 f1 8a  58 35 2c 59 35 29 3b 89  |\B..R...X5,Y5);.|
000037b0  28 49 4e 25 29 3a e5 8d  44 4e 42 0d 0d 5c 2c dd  |(IN%):..DNB..\,.|
000037c0  f2 4c 45 43 48 45 4b 3a  e7 a9 28 4e 24 29 3e bb  |.LECHEK:..(N$)>.|
000037d0  28 49 4e 4e 24 29 20 8c  4e 24 3d c0 4e 24 2c bb  |(INN$) .N$=.N$,.|
000037e0  28 49 4e 4e 24 29 29 0d  0d 66 05 e1 0d 0d 70 6e  |(INN$))..f....pn|
000037f0  f2 45 52 57 49 4e 3a fb  31 38 30 3a f1 8a 32 30  |.ERWIN:.180:..20|
00003800  2c 31 32 29 3b 22 43 61  6e 6e 6f 74 20 72 65 6c  |,12);"Cannot rel|
00003810  61 74 65 20 74 6f 20 22  3b 4c 46 24 3b 22 3a 22  |ate to ";LF$;":"|
00003820  3b 8a 32 30 2c 31 34 29  3b 22 50 72 65 73 73 20  |;.20,14);"Press |
00003830  61 6e 79 20 6b 65 79 20  74 6f 20 63 6f 6e 74 69  |any key to conti|
00003840  6e 75 65 2e 2e 2e 22 3a  fb 46 47 25 3a ef 37 3a  |nue...":.FG%:.7:|
00003850  49 24 3d be 3a e5 8d 54  40 4f 0d 0d 7a 3b dd f2  |I$=.:..T@O..z;..|
00003860  44 41 43 48 45 4b 3a 44  24 3d c0 4e 24 2c 32 29  |DACHEK:D$=.N$,2)|
00003870  3a 4d 24 3d c1 4e 24 2c  34 2c 32 29 3a 59 24 3d  |:M$=.N$,4,2):Y$=|
00003880  c2 4e 24 2c 32 29 3a 44  41 54 25 3d 30 3a 4c 59  |.N$,2):DAT%=0:LY|
00003890  3d 44 41 54 25 0d 0d 84  22 e7 bb 28 4d 24 29 3c  |=DAT%..."..(M$)<|
000038a0  31 84 bb 28 4d 24 29 3e  31 32 8c 44 41 54 25 3d  |1..(M$)>12.DAT%=|
000038b0  31 3a e5 8d 64 5e 4d 0d  0d 8e 22 e7 bb 28 44 24  |1:..d^M..."..(D$|
000038c0  29 3c 31 84 bb 28 44 24  29 3e 33 31 8c 44 41 54  |)<1..(D$)>31.DAT|
000038d0  25 3d 31 3a e5 8d 64 5e  4d 0d 0d 98 22 e7 4d 24  |%=1:..d^M...".M$|
000038e0  3d 22 30 32 22 80 bb 28  44 24 29 3e 32 39 8c 44  |="02"..(D$)>29.D|
000038f0  41 54 25 3d 31 3a e5 8d  64 5e 4d 0d 0d a2 22 e7  |AT%=1:..d^M...".|
00003900  4d 24 3d 22 30 34 22 80  bb 28 44 24 29 3e 33 30  |M$="04"..(D$)>30|
00003910  8c 44 41 54 25 3d 31 3a  e5 8d 64 5e 4d 0d 0d ac  |.DAT%=1:..d^M...|
00003920  22 e7 4d 24 3d 22 30 36  22 80 bb 28 44 24 29 3e  |".M$="06"..(D$)>|
00003930  33 30 8c 44 41 54 25 3d  31 3a e5 8d 64 5e 4d 0d  |30.DAT%=1:..d^M.|
00003940  0d b6 22 e7 4d 24 3d 22  30 39 22 80 bb 28 44 24  |..".M$="09"..(D$|
00003950  29 3e 33 30 8c 44 41 54  25 3d 31 3a e5 8d 64 5e  |)>30.DAT%=1:..d^|
00003960  4d 0d 0d c0 22 e7 4d 24  3d 22 31 31 22 80 bb 28  |M...".M$="11"..(|
00003970  44 24 29 3e 33 30 8c 44  41 54 25 3d 31 3a e5 8d  |D$)>30.DAT%=1:..|
00003980  64 5e 4d 0d 0d ca 2c e7  4d 24 3d 22 30 32 22 8c  |d^M...,.M$="02".|
00003990  4c 59 3d bb 28 59 24 29  2f 34 3a e7 4c 59 3d a8  |LY=.(Y$)/4:.LY=.|
000039a0  28 4c 59 29 8c 4c 59 3d  31 3a 8b 4c 59 3d 30 0d  |(LY).LY=1:.LY=0.|
000039b0  0d d4 22 e7 4d 24 3d 22  30 32 22 8c e7 4c 59 3d  |..".M$="02"..LY=|
000039c0  30 80 bb 28 44 24 29 3e  32 38 8c 44 41 54 25 3d  |0..(D$)>28.DAT%=|
000039d0  31 0d 0d de 05 e1 0d 0d  e8 27 dd f2 54 49 43 48  |1........'..TICH|
000039e0  45 4b 3a 48 24 3d c0 4e  24 2c 32 29 3a 4d 24 3d  |EK:H$=.N$,2):M$=|
000039f0  c2 4e 24 2c 32 29 3a 44  41 54 25 3d 30 0d 0d f2  |.N$,2):DAT%=0...|
00003a00  22 e7 bb 28 48 24 29 3c  30 84 bb 28 48 24 29 3e  |"..(H$)<0..(H$)>|
00003a10  32 33 8c 44 41 54 25 3d  31 3a e5 8d 54 46 4e 0d  |23.DAT%=1:..TFN.|
00003a20  0d fc 22 e7 bb 28 4d 24  29 3c 30 84 bb 28 4d 24  |.."..(M$)<0..(M$|
00003a30  29 3e 35 39 8c 44 41 54  25 3d 31 3a e5 8d 54 46  |)>59.DAT%=1:..TF|
00003a40  4e 0d 0e 06 05 e1 0d 0e  10 2b dd f2 54 52 49 4d  |N........+..TRIM|
00003a50  32 3a 54 52 4d 3d bb 28  54 52 49 4d 24 29 3a 54  |2:TRM=.(TRIM$):T|
00003a60  52 4e 3d bb 28 46 24 29  3a 6c 25 3d 4c 3a 4c 3d  |RN=.(F$):l%=L:L=|
00003a70  31 0d 0e 1a 1a e7 54 52  4d 3d 30 8c 46 24 3d c3  |1.....TRM=0.F$=.|
00003a80  28 54 52 4e 29 3a e5 8d  44 60 4e 0d 0e 24 30 e7  |(TRN):..D`N..$0.|
00003a90  54 52 4e 3d a8 28 54 52  4e 29 8c 46 24 3d c3 28  |TRN=.(TRN).F$=.(|
00003aa0  a8 28 54 52 4e 29 29 2b  22 2e 22 2b c4 54 52 4d  |.(TRN))+"."+.TRM|
00003ab0  2c 22 30 22 29 3a e5 8d  44 60 4e 0d 0e 2e 17 e7  |,"0"):..D`N.....|
00003ac0  c1 46 24 2c 4c 2c 31 29  3d 22 2e 22 8c e5 8d 44  |.F$,L,1)="."...D|
00003ad0  42 4e 0d 0e 38 0f 4c 3d  4c 2b 31 3a e5 8d 54 6e  |BN..8.L=L+1:..Tn|
00003ae0  4e 0d 0e 42 40 54 52 4d  24 3d c1 46 24 2c 28 4c  |N..B@TRM$=.F$,(L|
00003af0  2b 31 29 2c a9 28 46 24  29 2d 4c 29 3a e7 a9 28  |+1),.(F$)-L):..(|
00003b00  54 52 4d 24 29 3e 54 52  4d 20 8c 20 54 52 4d 24  |TRM$)>TRM . TRM$|
00003b10  3d c0 54 52 4d 24 2c 54  52 4d 29 3a e5 8d 44 56  |=.TRM$,TRM):..DV|
00003b20  4e 0d 0e 4c 36 e7 a9 28  54 52 4d 24 29 3c 54 52  |N..L6..(TRM$)<TR|
00003b30  4d 20 8c 20 54 52 4d 24  3d 54 52 4d 24 2b c4 28  |M . TRM$=TRM$+.(|
00003b40  54 52 4d 2d a9 28 54 52  4d 24 29 29 2c 22 30 22  |TRM-.(TRM$)),"0"|
00003b50  29 3a e5 8d 44 56 4e 0d  0e 56 12 46 24 3d c0 46  |):..DVN..V.F$=.F|
00003b60  24 2c 4c 29 2b 54 52 4d  24 0d 0e 60 0a 4c 3d 6c  |$,L)+TRM$..`.L=l|
00003b70  25 3a e1 0d 0e 6a 6e dd  f2 53 45 4c 45 43 54 3a  |%:...jn..SELECT:|
00003b80  ff 22 46 58 34 2c 31 22  3a 45 44 25 3d 59 2b 28  |."FX4,1":ED%=Y+(|
00003b90  4c 25 2d 31 29 3a 42 47  25 3d 59 3a 4d 58 25 3d  |L%-1):BG%=Y:MX%=|
00003ba0  30 3a e3 50 3d 31 b8 4c  25 3a f1 8a 58 58 2c 59  |0:.P=1.L%:..XX,Y|
00003bb0  2b 28 50 2d 31 29 29 3b  22 20 20 20 22 3b 4d 45  |+(P-1));"   ";ME|
00003bc0  24 28 50 29 3a e7 a9 28  4d 45 24 28 50 29 29 3e  |$(P):..(ME$(P))>|
00003bd0  4d 58 25 8c 4d 58 25 3d  a9 28 4d 45 24 28 50 29  |MX%.MX%=.(ME$(P)|
00003be0  29 0d 0e 74 0d ed 50 3a  53 45 4c 25 3d 31 0d 0e  |)..t..P:SEL%=1..|
00003bf0  7e 45 fb 31 33 31 3a f1  8a 58 58 2c 59 29 3b 22  |~E.131:..XX,Y);"|
00003c00  20 22 3b bd 28 32 35 32  29 3b 22 20 22 3b 4d 45  | ";.(252);" ";ME|
00003c10  24 28 53 45 4c 25 29 3b  c4 4d 58 25 2d a9 28 4d  |$(SEL%);.MX%-.(M|
00003c20  45 24 28 53 45 4c 25 29  29 2c 22 20 22 29 3a fb  |E$(SEL%))," "):.|
00003c30  46 47 25 0d 0e 88 17 49  24 3d be 3a 49 4e 3d 97  |FG%....I$=.:IN=.|
00003c40  28 49 24 29 3a f2 43 48  45 4b 0d 0e 92 13 e7 49  |(I$):.CHEK.....I|
00003c50  24 3d bd 28 31 33 29 8c  e5 8d 64 6c 4e 0d 0e 9c  |$=.(13)...dlN...|
00003c60  11 e7 49 24 3d 22 8a 22  8c e5 8d 74 7a 4e 0d 0e  |..I$="."...tzN..|
00003c70  a6 11 e7 49 24 3d 22 8b  22 8c e5 8d 64 58 4e 0d  |...I$="."...dXN.|
00003c80  0e b0 09 e5 8d 74 48 4e  0d 0e ba 10 e7 59 3d 45  |.....tHN.....Y=E|
00003c90  44 25 8c e5 8d 74 48 4e  0d 0e c4 21 f2 43 4c 45  |D%...tHN...!.CLE|
00003ca0  41 3a 59 3d 59 2b 31 3a  53 45 4c 25 3d 53 45 4c  |A:Y=Y+1:SEL%=SEL|
00003cb0  25 2b 31 3a e5 8d 44 7e  4e 0d 0e ce 3b dd f2 43  |%+1:..D~N...;..C|
00003cc0  4c 45 41 3a f1 8a 58 58  2c 59 29 3b 22 20 20 20  |LEA:..XX,Y);"   |
00003cd0  22 3b 4d 45 24 28 53 45  4c 25 29 3b c4 4d 58 25  |";ME$(SEL%);.MX%|
00003ce0  2d a9 28 4d 45 24 28 53  45 4c 25 29 29 2c 22 20  |-.(ME$(SEL%))," |
00003cf0  22 29 3a e1 0d 0e d8 10  e7 59 3d 42 47 25 8c e5  |"):......Y=BG%..|
00003d00  8d 74 48 4e 0d 0e e2 21  f2 43 4c 45 41 3a 59 3d  |.tHN...!.CLEA:Y=|
00003d10  59 2d 31 3a 53 45 4c 25  3d 53 45 4c 25 2d 31 3a  |Y-1:SEL%=SEL%-1:|
00003d20  e5 8d 44 7e 4e 0d 0e ec  05 e1 0d 0e f6 05 20 0d  |..D~N......... .|
00003d30  0f 00 05 20 0d 0f 0a 0c  ff 22 43 4c 4f 53 45 22  |... ....."CLOSE"|
00003d40  0d 0f 14 05 20 0d 0f 1e  09 f2 51 75 69 74 0d 0f  |.... .....Quit..|
00003d50  28 05 20 0d 0f 32 05 20  0d 0f 3c 1b e7 9f 3d 31  |(. ..2. ..<...=1|
00003d60  37 8c ef 33 3a d9 20 23  30 3a ef 32 36 3a f2 51  |7..3:. #0:.26:.Q|
00003d70  75 69 74 0d 0f 46 10 e7  67 6f 25 3d 30 8c e5 8d  |uit..F..go%=0...|
00003d80  44 64 4f 0d 0f 50 52 f2  45 52 57 49 4e 3a fb 31  |DdO..PR.ERWIN:.1|
00003d90  38 30 3a f1 8a 32 30 2c  31 32 29 3b 22 53 79 73  |80:..20,12);"Sys|
00003da0  74 65 6d 20 52 65 70 6f  72 74 65 64 20 45 72 72  |tem Reported Err|
00003db0  6f 72 20 23 22 3b 9f 3b  22 3a 22 3b 8a 32 30 2c  |or #";.;":";.20,|
00003dc0  31 34 29 3b f6 24 3a ef  37 3a fb 46 47 25 3a f2  |14);.$:.7:.FG%:.|
00003dd0  4d 4b 4c 49 4b 0d 0f 5a  19 ff 22 43 4c 4f 53 45  |MKLIK..Z.."CLOSE|
00003de0  22 3a ef 33 3a ef 32 36  3a e5 8d 54 5c 42 0d 0f  |":.3:.26:..T\B..|
00003df0  64 7b f2 45 52 57 49 4e  3a fb 31 38 30 3a f1 8a  |d{.ERWIN:.180:..|
00003e00  32 30 2c 31 32 29 3b 22  43 61 6e 6e 6f 74 20 72  |20,12);"Cannot r|
00003e10  65 61 64 20 74 68 65 20  66 69 6c 65 20 3a 22 3b  |ead the file :";|
00003e20  46 49 24 3b 8a 32 30 2c  31 34 29 3b 22 28 64 6f  |FI$;.20,14);"(do|
00003e30  65 73 20 6e 6f 74 20 65  78 69 73 74 2f 6e 6f 74  |es not exist/not|
00003e40  20 61 20 44 61 74 61 56  69 73 69 6f 6e 20 66 69  | a DataVision fi|
00003e50  6c 65 29 22 3a fb 46 47  25 3a ef 37 3a f2 4d 4b  |le)":.FG%:.7:.MK|
00003e60  4c 49 4b 3a e5 8d 54 40  4f 0d 0f 6e 14 dd 20 a4  |LIK:..T@O..n.. .|
00003e70  4d 79 46 69 6c 65 28 66  69 6c 65 24 29 0d 0f 78  |MyFile(file$)..x|
00003e80  0a 3d 66 69 6c 65 24 0d  0f 82 0b dd 20 f2 51 75  |.=file$..... .Qu|
00003e90  69 74 0d 0f 8c 1e c8 99  20 22 57 69 6d 70 5f 43  |it...... "Wimp_C|
00003ea0  6f 6d 6d 61 6e 64 57 69  6e 64 6f 77 22 2c 2d 31  |ommandWindow",-1|
00003eb0  0d 0f 96 06 c8 98 0d 0f  a0 05 e1 0d 9c 40 0d dd  |.............@..|
00003ec0  f2 44 69 72 28 64 24 29  0d 9c 4a 29 e7 20 64 24  |.Dir(d$)..J). d$|
00003ed0  20 3c 3e 20 22 22 20 8c  20 ff 20 22 44 69 72 20  | <> "" . . "Dir |
00003ee0  22 2b a4 4d 79 46 69 6c  65 28 c1 64 24 2c 32 29  |"+.MyFile(.d$,2)|
00003ef0  29 0d 9c 54 05 e1 0d ff                           |)..T....|
00003ef8