� > $.!DataVis.!dv9
ș "Wimp_CommandWindow",-1
� 15:� 180:�
��TVR
()ȗ �:�:FG%=180:BD%=100:asf$="dvascii"
2�LA%(8,10):�ACR%(10)
<1�Q$(10,7):�ME$(20):�RE$(25,5):�P(25,6):�P$(6)
FXT%=�("0"):A%=T%:M1%=T%:M2%=T%:S%=T%:SAMS%=T%:GP%=0:QF%=0:RP%=0:TIL$="":SU$="":FT$=""
Pf�"CLOSE":ST$="3":X=� �MyFile("NIM"):�#X,FI$,ST$,DA$,DR$,ZZ$,MD$:�"CLOSE":FO$=FI$+"A":ST$="1":�trB
Z��MAIN:go%=0
dA�ST$="1"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�Dir(DI$):�t`@
n	�tB@
xa�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(file empty)":�FG%:�7:�MKLIK:�T~M
�7�ST$="2"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�t`@
�5��MKLIK:�:ȗ U,U,BUT:�BUT=0:�:ȗ U,U,BUT:�BUT=4:�
�1��ERWIN:X=19:Y=11:W%=40:L%=3:�180:�LWN:�FG%:�
���#0:X=� �MyFile(FO$):�#X=0:�#X,ZZ$:NOF%=�(ZZ$):�#X=5:�#X,ZZ$:NOR%=�(ZZ$):�#X=15:�#X,ZZ$:REC%=�(ZZ$):�#X=45:�#X,SO$:�#X=48:�#X,REL$:�#X=23:�#X,SOL$
��(SO$)>0�SO$="1"
��NOR%=0��Dx@
�go%=1:�
���FOPOUT
�/�"CLOSE":X=� �MyFile(FO$):POI=(CF%-1)*61+63
��#X=POI:�#X,FL$
� �#X=POI+22:�#X,ZZ$:X1=�(ZZ$)
� �#X=POI+26:�#X,ZZ$:Y1=�(ZZ$)
� �#X=POI+30:�#X,ZZ$:X2=�(ZZ$)

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

�#X=POI+38:�#X,TY$

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

"!�#X=POI+46:�#X,ZZ$:TI%=�(ZZ$)

,�#X=POI+54:�#X,TR$

6�#X=POI+58:�#X,NP$

@�

J	��LWN

Ty�X,Y);�(154);�W%,�(159));�(158):�I=Y+1�Y+L%:�X,I);�(155);�W%," ");�(157):�I:�X,Y+(L%+1));�(156);�W%,�(160));�(161)

^�

h
��TIME

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

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

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

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

��

���TEXT:*FX21,0

�T$="":L1=0

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

�IN=�

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

��IN=127��THB

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

��L1=L%��dBA

�*�X,Y);�(IN):T$=T$+�(IN):L1=L1+1:X=X+1

�	�txA
�L1=0��tnA
'�X,Y);" ":X=X-1:L1=L1-1:T$=�T$,L1)
	�txA
&�X,Y);" "
0�
:��:X=2:Y=2:W%=50:L%=3:�LWN:�3,3);"Fields in ";FI$;" file: ";NOF%;�3,5);"How many fields in report?: ":X=31:Y=5:L%=3:�TEXT:�T$=""��t|B:SF%=�(T$):�SF%<1�SF%>25��t|B
D!SF%=�(T$):�SF%<1�SF%>25��t|B
N�SF%>NOF%��t|B
X�RLE%=0:�BLANC:�"CLOSE":X=��MyFile(FO$):�I=1�SF%:�#X=(I-1)*61+63:�#X,FL$:�CONV(I,3):RE$(I,1)=V1$+FL$:�#X=(I-1)*61+104:�#X,IN$:IIN%=�(IN$):�(FL$)>IIN%�IIN%=�(FL$)
b^RE$(I,2)=�(IIN%):RLE%=RLE%+(IIN%+1):RE$(I,3)="000000":RE$(I,4)="":RE$(I,5)="10":�I:�:�dxB
l��:�BLANC:�180:X=2:Y=2:W%=43:L%=23:�LWN:�3,3);"Report Definition Table";�3,4);�W%,�(241)):�131:�I=1�20:�3,I+5);"Contents of Column ";�2-�(�(I)),"0");I;":"
v�I:�FG%
�RLE%=0:SSSF%=0:J=1
�m�:ȗ U,U,BUT:� BUT=0:�SEL:�BUT=1 ��thB:�SSSF%=SSSF%+1:�26,J+5);FL$:IIN%=�(IN$):�(FL$)>IIN%�IIN%=�(FL$)
�p�CONV(SF%,3):RE$(J,1)=V1$+FL$:RE$(J,2)=�(IIN%):RLE%=RLE%+(IIN%+1):RE$(J,3)="000000":RE$(J,4)="":RE$(J,5)="2"
�4�33,3);"Length: ";RLE%:J=J+1:�J>20��thB:��tJB
�#�SSSF%=0��t|B:�SF%=SSSF%:�thG
�	�MAIN
�X=40:Y=13:W%=15:L%=5:�LWN
�~ME$(1)="Design Report":ME$(2)="Design Label":ME$(3)="Load Report":ME$(4)="Load Label":ME$(5)="Quit":X=41:Y=14:L%=5:�SELECT
�8�SEL%=1�RTV1%=2510:RTV2%=1330:RTV3%=1470:QF%=0:�DlB
�?�SEL%=3�RTV1%=2510:RTV2%=1330:RTV3%=1470:QF%=0:�BLANC:�TLC
�8�SEL%=4�RTV1%=3060:RTV2%=3110:RTV3%=3120:QF%=0:�tJL
��SEL%=5��T~M
�8�SEL%=2�RTV1%=3060:RTV2%=3110:RTV3%=3120:QF%=0:�TbK
	�dFB
cX=10:Y=13:W%=35:L%=1:�LWN:�11,14);"Enter Report Filename: ";:X=�:Y=14:L%=10:�TEXT:�T$=""��t|B
��T~C
 ��"CLOSE":X=��MyFile(T$):�I=0�5:�F=0�25:�#X,RE$(F,I):�F:�I:�"CLOSE":SAMS%=�(�RE$(1,0),1,1)):T%=�(�RE$(1,0),2,1)):A%=�(�RE$(1,0),3,1)):M1%=�(�RE$(1,0),4,1)):M2%=�(�RE$(1,0),5,1))
*,SF%=�(RE$(2,0)):RLE%=�(RE$(3,0)):��TVR
4	�thG
>��TVR
Hs�ERWIN:�180:�20,12);"Cannot find the ";T$;" report:";�20,14);"Click mouse to continue...":�7:�FG%:�MKLIK:�t|B
R&��TRIM:TRN=�(N$):L=1:�TRM=10��tbC
\�TRM=0�N$=�(�(TRN)):�tbC
f0�TRN=�(TRN)�N$=�(�(TRN))+"."+�TRM,"0"):�tbC
pL=�N$,"."):�DzC
z@TRM$=�N$,(L+1),�(N$)-L):�(TRM$)>TRM � TRM$=�TRM$,TRM):�tXC
�6�(TRM$)<TRM � TRM$=TRM$+�(TRM-�(TRM$)),"0"):�tXC
�	�tbC
�N$=�N$,L)+TRM$
��
����BLANC:�G=1�25:RE$(G,1)="":RE$(G,2)="":RE$(G,3)="":RE$(G,4)="":RE$(G,5)="":�G:TIL$="":SU$="":FT$="":SAMS%=0:T%=�("0"):A%=T%:M1%=T%:M2%=T%:S%=T%:GP%=0:QF%=0:RP%=0:FWR%=1
��
�I��CONV(V1%,V2%):V1$=�(V1%):�(V1$)>V2%�V1$=�V1$,V2%):V1%=�(V1$):�dTC
�*V1$=�(V1%)+�V2%-�(V1$)," "):V1%=�(V1$)
��
ށPEJ%=2:�"CLOSE":B=��MyFile(FO$):C=��MyFile(FI$):�#B=(�(SOL$)-1)*61+109:�#B,ATI$:CR%=1:�SO$="1"��#C=REC%-10:�#C,CR$:CR%=�(CR$)
�p�#C=(CR%-1)*REC%+�(ATI$):�#C,GF$:�#B=(�(SOL$)-1)*61+101:�#B,ATY$:ST%=�(GF$):�GTY%=3�GTY%=4�GF$=�(234)+�(109)
�ST%=�(GF$)
�"�GTY%=3�GTY%=4�ST%=(ST%-BD%)-1
	�tzI
bRE$(1,0)=�(SAMS%)+�(T%)+�(A%)+�(M1%)+�(M2%)+�(RP%)+�(DS%)+SO$:RE$(2,0)=�(SF%):RE$(3,0)=�(RLE%)
V�3,20);"Enter Report Filename: ";:X=�:Y=20:L%=10:�TEXT:�T$=""��3,20);�(50):�D\H
$Z�"CLOSE":X=��MyFile(T$):�I=0�5:�F=0�25:�#X,RE$(F,I):�F:�I:�"CLOSE":�3,20);�(50):�D\H
.%X=62:Y=L:L%=1:�TEXT:�T$=""�T$="0"
8 RE$(I,5)=T$:�62,L);T$:�dmB
B��FIELDS:�FWR%=0��D~D
L#� RP%=1 � SAMS%=1 � � �(LB%+1);
Vb�J=1�SF%:N$=�RE$(J,1),4):�(N$)>�(RE$(J,2))�N$=�N$,�(RE$(J,2))):�N$=N$+Ļ(RE$(J,2))-�(N$)," ")
`�N$;:�J<SF%��" ";:��
j&�J:� RP%=1 � SAMS%=1 � � �(LB%+1);
t)�J=1�SF%:�Ļ(RE$(J,2)),"-");" ";:�J:�
~�
�\��INIT:�F=1�25:P(F,1)=0:P(F,2)=0:P(F,3)=0:P(F,4)=0:P(F,5)=99999999:P(F,6)=-99999999:�F:�
�&�SCR%=1��129:�19,0,4,0,0,0:SCR%=39
�&�SCR%=3��16:�19,0,4,0,0,0:SCR%=131
��SCR%=2�SCR%=79
��:�RLE%>255�RLE%=255
��FWR%=0�HH$=" ":�HH$="-"
�-�:�SPL%=3��"SPOOL <DataVision$Dir>."+asf$
��PIN%=1��2
�;�DS%=1��"Report date: ";��$,15)':�SEL%=1 � TIL$<>""��''
�/�PIN%=1��1,27:�1,104:�1,0:�1,27:�1,106:�1,9
��SU$=""��TTE
�>�:D=(RLE%-�(SU$))/2:D=D/2:�(D);:�PIN%=1��1,27:�1,87:�1,49
"�SU$:�PIN%=1��1,27:�1,87:�1,48

�
&�FIELDS:� GTY%<>2 ��28,0,29,SCR%,�
FCO%=0:�I=1�NOR%:�SO$="1"��#C=(I*REC%)-10:�#C,CR$:CR%=�(CR$):�CR%=I
(TNT%=T%:�QF%=1��TrO
2T%=TNT%:�GP%=1��T\G
<DCO%=CO%+1:�RP%=1���LB%-�(�(I)),"0");I;" ";:��SAMS%=1�� �(LB%+1);
F��J=1�SF%:�#B=(�(RE$(J,1))-1)*61+109:�#B,TI$:�#C=(CR%-1)*REC%+�(TI$):�#C,N$:�#B=(�(RE$(J,1))-1)*61+101:�#B,TY$:�RE$(J,3),2,1)="1"�P(J,1)=P(J,1)+�(N$)
P+�RE$(J,3),3,1)="1"�P(J,2)=P(J,2)+�(N$)
Z?�RE$(J,3),4,1)="1"��(N$)<P(J,5)�P(J,3)=�(N$):P(J,5)=�(N$)
d?�RE$(J,3),5,1)="1"��(N$)>P(J,6)�P(J,4)=�(N$):P(J,6)=�(N$)
n?�RE$(J,3),1,1)="1"��N$=RE$(J,4)�N$=Ļ(RE$(J,2))," "):�tLE
xRE$(J,4)=N$
�2�TY$="7"�TY$="8"�TY$="0"�TRM=�(RE$(J,5)):�TRIM
�0�(N$)>�(RE$(J,2))�N$=�N$,�(RE$(J,2))):�tjE
�@�TY$="7"�TY$="8"�TY$="0"�N$=Ļ(RE$(J,2))-�(N$)," ")+N$:�tjE
�!N$=N$+Ļ(RE$(J,2))-�(N$)," ")
��N$;:�J=SF%��:��" ";
��J
�|T%=TNT%:�I:��RLE%,HH$):�PROPS:D=(RLE%-�(SU$))/2:�'�(D);FT$:�3:�"SPOOL":�"(End of Report)":�"FX21,9":�:ȗ U,U,BUT:� BUT=2
�,�15:�:ȗ�:�FG%:�19,1,24,0,69,200:�:�t|B
���PROPS
��SAMS%=0��TRG
��T%=0��TlF
��"Tot."+�LB%-4," ")+" ";
�:�J=1�SF%:�RE$(J,3),2,1)="0"��Ļ(RE$(J,2))," ");:�TXF
XN$=�(P(J,1)):TRM=�(RE$(J,5)):�TRIM:�(N$)>�(RE$(J,2))�N$=�N$,�(RE$(J,2))):�N$;:�TXF
 �Ļ(RE$(J,2))-�(N$)," ")+N$;
�J=SF%��:��" ";
"�J
,�A%=0��tFF
6�CO%=0�CO%=1
@!�J=1�SF%:P(J,2)=P(J,2)/CO%:�J
J�"Avg."+�LB%-4," ")+" ";
T:�J=1�SF%:�RE$(J,3),3,1)="0"��Ļ(RE$(J,2))," ");:�DrF
^XN$=�(P(J,2)):TRM=�(RE$(J,5)):�TRIM:�(N$)>�(RE$(J,2))�N$=�N$,�(RE$(J,2))):�N$;:�DrF
h �Ļ(RE$(J,2))-�(N$)," ")+N$;
r�J=SF%��:��" ";
|�J
��M1%=0��dLF
��"Min."+�LB%-4," ")+" ";
�:�J=1�SF%:�RE$(J,3),4,1)="0"��Ļ(RE$(J,2))," ");:�txF
�XN$=�(P(J,3)):TRM=�(RE$(J,5)):�TRIM:�(N$)>�(RE$(J,2))�N$=�N$,�(RE$(J,2))):�N$;:�txF
� �Ļ(RE$(J,2))-�(N$)," ")+N$;
��J=SF%��:��" ";
��J
��M2%=0��TRG
��"Max."+�LB%-4," ")+" ";
�:�J=1�SF%:�RE$(J,3),5,1)="0"��Ļ(RE$(J,2))," ");:�d~F
�XN$=�(P(J,4)):TRM=�(RE$(J,5)):�TRIM:�(N$)>�(RE$(J,2))�N$=�N$,�(RE$(J,2))):�N$;:�d~F
� �Ļ(RE$(J,2))-�(N$)," ")+N$;
��J=SF%��:��" ";
�J
�
b�#C=(CR%-1)*REC%+�(ATI$):�#C,GT$:�ATY$="1"�ATY$="2"�ATY$="3"�ATY$="4"�ATY$="9"��GT$<>GF$��DbG
&)�ATY$="5"��GT$,7,2)<>�GF$,7,2)��DbG
0)�ATY$="6"��GT$,1,2)<>�GF$,1,2)��DbG
:@�ATY$="7"�ATY$="8"�ATY$="0"��(GT$)>ST%+BD%�ST%=�(GT$):�DbG
D	�T|E
N
��EJECT:�
X�
bGF$=GT$
l�GTY%=1��':�EJECT:�T|E
vC�GTY%=2���RLE%,"-"):�PROPS:�EJECT:�INIT:�'':�FIELDS:CO%=0:�T|E
�2�';:�RP%=1���LB%," ");" ";:��SAMS%=1��"     ";
�HE$=GF$:�GTY%=4�HE$=GHT$
��CO%>0��EJECT
��HE$:�T|E
�dSPL%=1:PIN%=1:SCR%=2:GP%=0:GTY%=0:RP%=1:FWR%=1:DS%=0:QF%=0:SU$="":FT$="":DI%=2:BD$="100":BD%=100
�'�:�180:X=1:Y=1:W%=60:L%=15:�LWN:�45
�c�3,2);"Header:";�3,3);"Footer:";�3,5);"Report to: Printer";�14,6);"Screen";�14,7);"ASCII File"
�E�33,5);"Screen Mode: 40 x 32";�46,6);"80 x 32";�46,7);"132 x 32"
�X�3,9);"Record Numbers:";�3,10);"Field Titles:";�3,11);"Date Stamp";�3,12);"Filter:"
�p�33,9);"Grouping: Seperate";�43,10);"New Report";�43,11);"Sub-Report";�43,12);"No Grouping";�33,14);"Band:"
�Q�3,16);"Summaries: ";�(128);"  Save Report: ";�(128);"  Run Report: ";�(128)
�F�127:�FG%:�P1:�P2:�P3:�P4:�11,2);SU$;�11,3);FT$;�39,14);BD$:�D\H
�H��P1:�26,5);�(130);�26,6);�(130);�26,7);�(130):�26,DI%+4);�(131):�
I��P2:�56,5);�(130);�56,6);�(130);�56,7);�(130):�56,SCR%+4);�(131):�
[��P4:�56,9);�(130);�56,10);�(130);�56,11);�(130);�56,12);�(130):�GP%=0��56,12);�(131)
�GP%=1��56,GTY%+8);�(131)
 �
*.��P3:�RP%=1��26,9);�(133):��26,9);�(130)
4,�FWR%=1��26,10);�(133):��26,10);�(130)
>+�DS%=1��26,11);�(133):��26,11);�(130)
H+�QF%=1��26,12);�(133):��26,12);�(130)
R�
\8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��D\H
f�7
p�YP=2��DVI
z�YP=3��D`I
��YP=14��DjI
��YP=16��DtI
��YP<8 � XP=26��dJH
��YP<8 � XP=56��d^H
��YP<13 � XP=26��drH
��YP<13 � XP=56��TnI
�	�D\H
��YP<5��D\H
�DI%=YP-4:�P1:�D\H
��YP<5��D\H
�SCR%=YP-4:�P2:�D\H
��YP<9��D\H
� �YP=9�RP%=RP%+1:�RP%>1�RP%=0
	%�YP=10�FWR%=FWR%+1:�FWR%>1�FWR%=0
	!�YP=11�DS%=DS%+1:�DS%>1�DS%=0
	!�YP=12�QF%=QF%+1:�QF%>1�QF%=0
	$�:ȗ U,U,B:�B=0:�P3:�D\H
	.�YP<9��D\H
	8�YP=12�GP%=0:�DLI
	BGP%=1:GTY%=YP-8
	L
�P4:�D\H
	V3�11,2);�(42):X=11:Y=2:L%=40:�TEXT:SU$=T$:�D\H
	`3�11,3);�(42):X=11:Y=3:L%=40:�TEXT:FT$=T$:�D\H
	jm�39,14);�(20):X=39:Y=14:L%=18:�TEXT:BD$=T$:BD%=�(BD$):�T$=""�BD$="100":BD%=100:�39,14);BD$:�D\H:��D\H
	t�XP=45��t\I
	~�XP=14��T@J
	��XP=30��TPD
	�	�D\H
	�)LB%=4:�RP%=1�NOR%>9999�LB%=�(�(NOR%))
	� �RP%=1�SAMS%=1�RLE%=RLE%+LB%
	�+PIN%=DI%:SPL%=DI%:�SO$="1"��d^C:�GP%=0
	�W�SPL%=3��3,20);"Enter ASCII Filename: ";:X=�:Y=20:L%=10:�TEXT:asf$=T$:�T$=""��tzI
	�TNT%=T%:�QF%=1��:�DzM
	�?T%=TNT%:�"CLOSE":B=��MyFile(FO$):C=��MyFile(FI$):�T%>0�T%=1
	��A%>0�A%=1
	��M1%>0�M1%=1
	��M2%>0�M2%=1
	��INIT:�tRD
��:�180:X=2:Y=2:W%=63:L%=SF%+2:�LWN:�3,3);"Field                 Sum  Avg  Min  Max  Print  Decimal Places";�3,4);�63,�(241))

c�I=1�SF%:�3,I+4);�RE$(I,1),4):L=25:�F=2�6:�RE$(I,3),F,1)="0"��L,I+4);�(132):��L,I+4);�(128)
@L=L+5:�F:�RE$(I,3),1)="0"��45,I+4);"all":��45,I+4);"once"
=�RE$(I,5)="10"��52,I+4);"as entered":��52,I+4);RE$(I,5)
(�I
28ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��TrJ
<�BUT=1��FG%:�ttJ
F#CL%=YP-4:�CL%<1 � CL%>SF%��TrJ
P�XP>44 � XP<49 ��dfJ
Z�XP>51 � XP<62 ��TDK
dL=0:�XP=25 �L=2
n�XP=30 �L=3
x�XP=35 �L=4
��XP=40 �L=5
��L=0��TrJ
�\T1$=�RE$(CL%,3),L-1):T2$=�RE$(CL%,3),L+1):T3$=�RE$(CL%,3),L,1):�T3$="0"�T3$="1":�T3$="0"
�DRE$(CL%,3)=T1$+T3$+T2$:�T3$="0"��XP,YP);�(132):��XP,YP);�(128)
��:ȗ U,U,B:�B=0:�TrJ
�NSAMS%=0:T%=0:A%=0:M1%=0:M2%=0:�I=1�SF%:�RE$(I,3),2,1)="1"�T%=T%+1:SAMS%=1
�'�RE$(I,3),3,1)="1"�A%=A%+1:SAMS%=1
�)�RE$(I,3),4,1)="1"�M1%=M1%+1:SAMS%=1
�)�RE$(I,3),5,1)="1"�M2%=M2%+1:SAMS%=1
��I:�trG
�0T3$=�RE$(CL%,3),1):�T3$="0"�T3$="1":�T3$="0"
�KRE$(CL%,3)=T3$+�RE$(CL%,3),5):�T3$="0"��45,YP);"all ":��45,YP);"once"
��:ȗ U,U,B:�B=0:�TrJ
B�52,YP);�(10):X=52:Y=YP:L%=1:�TEXT:�T$=""�T$="2":�T$=�(�(T$))
=RE$(CL%,5)=T$:�T$="10"��52,YP);"as entered":��52,YP);T$
	�dzJ
"y�:COL%=1:LIN%=1:�131:�29,1);"Label Design Screen":�180:X=0:Y=3:W%=78:L%=8:�LWN:�I=1�8:�1,I+3);"Line ";I;":":�I:�FG%
,6�I=1�8:�F=1�6:LA%(F,I)=0:�F:�I:�I=1�5:ACR%(I)=0:�I
6�X=6:Y=15:W%=30:L%=6:�LWN:�7,16);"Line :";�7,17);"Field:";�7,19);"Left Button  : Select field";�7,20);"Middle Button: Next line";�7,21);"Right Button : End design"
@�9,LIN%+3);"";:x=�:y=�
J��14,16);LIN%;�14,17);COL%;:�131:�x,y);�(255):�FG%:�SEL2:�x,y);FL$;" ";:x=�:y=�:LA%(COL%,LIN%)=SF%:COL%=COL%+1:�COL%>6��x,y);" ":�DTK:��DJK
TCLIN%=LIN%+1:�LIN%>8��DhK:��9,LIN%+3);"";:x=�:y=�:COL%=1:�DJK
^&�COL%=1��DJK:��x,y);�(136):�DTK
h|�x,y);�(136):FG%=180:�FG%:�28,0,31,79,15:�:�26:LAW%=36:LAD%=9:LAC%=1:X=40:Y=15:W%=19:L%=3:�LWN:X=6:Y=15:W%=26:L%=5:�LWN
r�LIN%=1�COL%=1��TbK
|�COL%=1�LIN%=LIN%-1
�p�41,16);"Labels across: ";LAC%;"  ";�41,17);"Label width  : ";LAW%;"  ";�41,18);"Label depth  : ";LAD%;"  "
��ME$(1)="Change parameters":ME$(2)="Save label design":ME$(3)="Print labels":ME$(4)="Print labels with filter":ME$(5)="Abandon label":X=7:Y=16:L%=5:�SELECT
��SEL%=5��t|B
�! � SEL% � �tnK,�dVK,�d~K,�djK
�g�56,16);�(3);�56,17);�(3);�56,18);�(3):X=56:Y=16:L%=1:�TEXT:LAC%=�(T$):�T$=""�LAC%=1:�56,16);LAC%
�@X=56:Y=17:L%=2:�TEXT:LAW%=�(T$):�T$=""�LAW%=36:�56,17);LAW%
�?X=56:Y=18:L%=2:�TEXT:LAD%=�(T$):�T$=""�LAD%=9:�56,18);LAD%
�	�tPK
փWW%=W%:X=6:Y=23:W%=34:L%=1:�LWN:W%=WW%:�7,24);"Enter label filename: ";:X=�:Y=24:L%=10:�TEXT:�T$=""��28,6,25,42,23:�:�26:�tPK
�LA%(1,0)=LAC%:LA%(2,0)=LAW%:LA%(3,0)=LAD%:LA%(4,0)=LIN%:�"CLOSE":X=��MyFile(T$):�I=0�8:�F=1�6:�#X,�(LA%(F,I)):�F:�I:�"CLOSE":�28,6,25,42,23:�:�26:�tPK
�QF%=1:�:�DzM:�d~K
�	�d~K
�N�:�2:AR%=1:�"CLOSE":A=��MyFile(FO$):C=��MyFile(FI$):�LIN%>LAD%�LAD%=LIN%+1
.LAB%=1:�J=1�9:ACR%(J)=0:�J:�AR%>NOR%��dFL
9CR%=AR%:�SO$="1"��#C=(AR%*REC%)-10:�#C,CR$:CR%=�(CR$)
�QF%=1��TrO
&9ACR%(LAB%)=CR%:LAB%=LAB%+1:�LAB%>LAC%�AR%=AR%+1:�DDL
0*AR%=AR%+1:�AR%>NOR%�ACR%(LAB%)=0:�DDL
:	�TRL
D�ACR%(1)=0��dFL
N$�I=1�LIN%:CLAB%=1:FLD%=1:LABL%=0
Xk�#A=(LA%(FLD%,I)-1)*61+109:�#A,TI$:�#C=(ACR%(CLAB%)-1)*REC%+�(TI$):�#C,N$:�N$;" ";:LABL%=LABL%+�(N$)+1:
b+FLD%=FLD%+1:�LA%(FLD%,I)=0��DlL:��DXL
l\�(LAW%-LABL%);:CLAB%=CLAB%+1:�CLAB%>LAC% � ACR%(CLAB%)=0��:FLD%=1:LABL%=0:CLAB%=1:�t@L
vLABL%=0:FLD%=1:�DXL
�*�I:SBL%=LAD%-LIN%:�I=1�SBL%:�:�I:�THL
�bX=10:Y=13:W%=35:L%=1:�LWN:�11,14);"Enter label filename: ";:X=�:Y=14:L%=10:�TEXT:�T$=""��t|B
���trL
���"CLOSE":X=��MyFile(T$):�I=0�8:�F=1�6:�#X,L$:LA%(F,I)=�(L$):�F:�I:�"CLOSE":LAC%=LA%(1,0):LAW%=LA%(2,0):LAD%=LA%(3,0):LIN%=LA%(4,0):��TVR
�>�:X=40:Y=15:W%=19:L%=3:�LWN:X=6:Y=15:W%=26:L%=5:�LWN:�tFK
���TVR
�r�ERWIN:�180:�20,12);"Cannot find the ";T$;" label:";�20,14);"Click mouse to continue...":�7:�FG%:�MKLIK:�t|B
�k�3:�':�131:�0,29);"Label printing finished. Click mouse to continue...":�FG%:�:ȗ U,U,BUT:�BUT>0:�t|B
��
�6��SELECT:ED%=Y+(L%-1):BG%=X+(W%-1):SSEL%=1:*FX15,0
�>�I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
�+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
��YP<Y � YP>ED%��ddL

�XP<X � XP>BG%��ddL

rSEL%=(YP-Y)+1:�CLEA:� 131:�127:�X,YP);"  ";ME$(SEL%);�(W%-2)-�(ME$(SEL%))," "):� FG%:�127:�BUT=4��TVM:��dnL

�7:�

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

*SSEL%=SEL%:�

4�

> 

H 

R 

\ 

f	 � #0

p
 �Quit

zl�:�1,1);"Ad-Hoc Query";�1,2);�12,�(241)):P$(1)="=":P$(2)="<>":P$(3)="<":P$(4)=">":P$(5)="<=":P$(6)=">="

�u�0,4);�(154);�78,�(159));�(158);�1,4);"Li";�4,4);"Field";�25,4);"Op";�29,4);"Constant/Expression";�74,4);"Logic"

�;�3,4);�(233);�24,4);�(233);�28,4);�(233);�73,4);�(233)

�u�F=5�14:�3-�(�(F-4)),F);F-4;�0,F);�(155);�3,F);�(231);�24,F);�(231);�28,F);�(231);�73,F);�(231);�79,F);�(157):�F

�I=1

��"CLOSE":C=��MyFile(FO$)

�4X=4:Y=I+4:L%=20:�TEXT:N$=T$:�CL:�CHEK:Q$(I,1)=N$

�5X=25:Y=I+4:L%=2:�TEXT:N$=T$:�CL:�CHEK2:Q$(I,2)=N$

�9�Q$(I,7)="9"� �(Q$(I,7))<5 � �(Q$(I,6))>6��dTM��dhM

�W�CL:�20,1);"Invalid Operator. Want to continue?";�20,2);"(Y/N)":I$=�:�I$="N"��t|B

�	�d@M

�X=29:Y=I+4:L%=44

�&�Q$(I,7)="5"��TY5:Q$(I,3)=N$:�TPN

�&�Q$(I,7)="6"��TY6:Q$(I,3)=N$:�TPN
�TEXT:N$=T$:Q$(I,3)=N$
U�74,I+4);�(255):I$=�:�I$="A"� I$="O"� I$="E"� I$="a"� I$="o"� I$="e"��TZN��TPN
�I$="A"� I$="a"�I$="AND"
$�I$="E"� I$="e"�I$="END"
.�I$="O"� I$="o"�I$="OR"
8�74,I+4);I$:Q$(I,4)=I$
B�I$="END"�tt%=I:�dDN
L#I=I+1:�I>10�tt%=10:�dDN:��tvM
V
��CHEK
`�L%=0:�F=1�NOF%:�#C=(F-1)*61+63:�#C,FL$:�N$=FL$��#C=(F-1)*61+63+46:�#C,TI$:Q$(I,5)=TI$:�#C=(F-1)*61+63+38:�#C,TY$:Q$(I,7)=TY$:F=NOF%:L%=1
j\�F:�L%=1��d@M��CL:�20,1);"Field is not on file. Want to continue?";�20,2);"(Y/N)":I$=�
t�I$="N"��t|B:��tvM
~�
���CHEK2
�/L%=0:�F=1�6:�N$=P$(F)�Q$(I,6)=�(F):L%=1:F=8
�X�F:�L%=1��dJM��CL:�20,1);"Invalid Operator. Want to continue?";�20,2);"(Y/N)":I$=�
��I$="N"��t|B:��d@M
��
�+��CL:�20,1);�60," ");�20,2);�60," "):�
�BMC$=�20,"0"):RC$=MC$:�Q$(1,4)="OR"�MC$="1"+�9,"0")+"1"+�9,"0")
��
��F=1�tt%
��Q$(F,4)="OR"��T^O
�CB1$=�MC$,10):B2$="":�J=1�10:�J=F �B2$=B2$+"1"�B2$=B2$+�MC$,J,1)
��J
#MC$=B2$+B1$:B1$=�MC$,10):B2$=""

5�J=11�20:�J=(F+10) �B2$=B2$+"1"�B2$=B2$+�MC$,J,1)
�J:MC$=B1$+B2$

�F:�RTV1%
(#�:S%=0:�"CLOSE":X=��MyFile(FI$)
2F%=1:RC$=�20,"0")
<�Q$(1,4)="OR"��D|P
Fc�#C=(CR%-1)*REC%+�(Q$(F%,5)):�#C,C$:N$=Q$(F%,3):TP$="1":OP$=Q$(F%,6):�TYPE:�COMPARE:�COM%=1��FB
P�Q$(F%,4)="END"�COM%=1��SB
Z#�Q$(F%,4)="END"��RC$=MC$��RTV2%
d$F%=F%+1:�F%>tt%�F%=tt%:�SB:�tBO
n�Q$(F%,4)="OR"��TXP
xF%=F%-1:�SB:F%=F%+1:�DFO
�
�RTV3%
�
��TYPE
�E�Q$(F%,7)="7"�Q$(F%,7)="8"�Q$(F%,7)="0"� N=�(N$):NO=�(C$):TP$="2"
�8�Q$(F%,7)="5"�X$=N$:�CONDI:N=NO:X$=C$:�CONDI:TP$="2"
�8�Q$(F%,7)="6"�X$=N$:�CONTI:N=NO:X$=C$:�CONTI:TP$="2"
��
���FB
�DB1$=�RC$,10):B2$="":�J=1�10:�J=F% �B2$=B2$+"1"�B2$=B2$+�RC$,J,1)
��J:RC$=B2$+B1$
��
���SB
�B1$=�RC$,10):B2$=""
�6�J=11�20:�J=(F%+10) �B2$=B2$+"1"�B2$=B2$+�RC$,J,1)
�J:RC$=B1$+B2$
�
SP%=(F%-1)
"~�#C=(CR%-1)*REC%+�(Q$(F%,5)):�#C,C$:N$=Q$(F%,3):TP$="1":OP$=Q$(F%,6):�TYPE:�COMPARE:�COM%=1�SA%=F%:F%=SP%:�SB:F%=SA%:�DJP
,�Q$(F%,4)="END"��tBO
6)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�DFO
@F%=F%+1:�TbP
J)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�DFO
T$�Q$(F%,4)="END"��FB:COM%=1:�DPO
^)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�DFO
h$�Q$(F%,4)="END"��FB:COM%=1:�DPO
rF%=F%+1:�D^P
|
SP%=F%
���#C=(CR%-1)*REC%+�(Q$(F%,5)):�#C,C$:N$=Q$(F%,3):TP$="1":OP$=Q$(F%,6):�TYPE:�COMPARE:�COM%=1�SA%=F%:F%=SP%:�FB:�SB:F%=SA%:�DJP
��Q$(F%,4)="END"��tBO
�)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�DFO
�F%=F%+1:�tFP
�
��COMPARE
�
COM%=0
��TP$="2"��T\Q
��N$,1)="*"��t@Q
� �OP$="1"��N$=C$�COM%=1:�thQ
�!�OP$="2"��N$<>C$�COM%=1:�thQ
� �OP$="3"��N$>C$�COM%=1:�thQ
� �OP$="4"��N$<C$�COM%=1:�thQ
�!�OP$="5"��N$>=C$�COM%=1:�thQ
!�OP$="6"��N$<=C$�COM%=1:�thQ
	�thQ
�TY$="5"�X$=C$:�CONDI
&�TY$="6"�X$=C$:�CONTI
0 �OP$="1"��N=NO �COM%=1:�thQ
:!�OP$="2"��N<>NO �COM%=1:�thQ
D �OP$="3"��N>NO �COM%=1:�thQ
N �OP$="4"��N<NO �COM%=1:�thQ
X!�OP$="5"��N>=NO �COM%=1:�thQ
b,�OP$="7"��NO >VL1 �NO <VL2 �COM%=1:�thQ
l!�OP$="6"��N<=NO �COM%=1:�thQ
v	�thQ
��(N$)=1��dVP
�2�OP$="1"�COM%=�C$,�N$,2,�(N$))):�COM%>1�COM%=1
�9�(OP$)>1�COM%=�C$,�N$,2,�(N$))):�COM%=0�COM%=1:�thQ
��(OP$)>1��COM%>0�COM%=0
��
���CONDI
�7XX$="":XX$=XX$+�X$,7,2)+�X$,4,2)+�X$,1,2):NO=�(XX$)
��
���CONTI
�.XX$="":XX$=XX$+�X$,1,2)+�X$,4,2):NO=�(XX$)
��
���OUTPUT:B=��MyFile(FO$)
�4�O(7)=0�A(35)=CR%:TEMP%=CR%:�OUTPUT1:�:CR%=TEMP%
4�O(7)=1�A(35)=CR%:TEMP%=CR%:�OUTPUT2:�:CR%=TEMP%
	�#B:�
�3:�26:�#0:�=17 � �Quit
  
*FG%=180
4�go%=0��DRR
>K�ERWIN:�180:�20,12);"System Reported Error #";�;":";�20,14);�$:�7:�FG%
H�"CLOSE":�3:�26:�dHE
R{�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(does not exist/not a DataVision file)":�FG%:�7:�MKLIK:�T~M
\	��TY5
f�X,Y);"../../..":N$=""
pX3=X:�DAT:�DE=1��DfR
z&N$=N$+DAT$:X3=X+3:�DAT:�DE=1��DfR
�.N$=N$+"/"+DAT$+"/":X3=X+6:�DAT:�DE=1��DfR
�N$=N$+DAT$
�IN=�:�IN=13��tlR
��IN=127��DfR��tXR
��
�	��DAT
�DE=0:DAT$="":X4=X3
�IN=�:�IN=127�DE=1:�drR
�#�IN<48�IN>57��1,-15,100,2:�dJR
�:�X3,Y);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��drR
�	�dJR
��
�	��TY6
�X,Y);"..:..":N$=""
X3=X:�DAT:�DE=1��TFS
N$=N$+DAT$+":":X3=X+3:�DAT
$N$=N$+DAT$
.IN=�:�IN=13��DBS
8�IN=127��TFS��TnS
B�
L��SEL:*FX15,0
Vo�128:FG%=128:X=50:Y=2:W%=21:L%=23:�LWN:�FG%:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241))
`6SSF%=1:SF%=1:Y2=6:SR%=SF%:�"CLOSE":A=��MyFile(FO$)
j!FR%=SR%+19:�FR%>NOF%�FR%=NOF%
t{L=6:LL=1:�I=SR%�FR%:�#A=(I-1)*61+63:�#A,FL$:�52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:�I:� LL<21 � � I=LL �20:ME$(I)=" ":�I
~Aȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=1�FG%=180:�FG%:�
� �XP=67 � YP=3 � BUT=4 ��tpS
� �XP=69 � YP=3 � BUT=4 ��dDS
�@� XP>71 � XP<51 � YP>25 � YP<6 �SSF%=0:�CLEAF:SSF%=SF%:�D~S
�rYP=YP-5:SF%=(YP+SR%)-1:�CLEAF:�131:�52,YP+5);ME$(YP);�(20-�(ME$(YP))):�FG%:�BUT=4 � SF%<(NOF%+1)��dXS:��D~S
��FR%=NOF%��D~S
�nSR%=SR%+20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�DjS
��SR%=1��D~S
�nSR%=SR%-20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�DjS
؀�7:�#A=(SF%-1)*61+63:�#A,FL$:�#A=(SF%-1)*61+101:�#A,TY$:�#A=(SF%-1)*61+117:�#A,TR$:�#A=(SF%-1)*61+104:�#A,IN$:�FG%:FG%=180:�
�B��CLEAF:�SSF%<>SF%��I=1�20:�52,I+5);ME$(I);�(20-�(ME$(I))):�I
�SSF%=SF%:�
�,��YN:xp=�:yp=�:�" ";:�131:�"YES/NO":�FG%
8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��T@T

�YP<>yp ��T@T
+�XP=xp+1 � XP=xp+2 � XP=xp+3�YN=1:�TrT
"�XP=xp+5 � XP=xp+6 �YN=0:�TrT
(	�T@T
2�xp,yp);" YES/NO":�7:�
<
��SEL2
Fr�128:FG%=128:X=50:Y=15:W%=21:L%=13:�LWN:�FG%:�51,16);"Select a Field: ";�(138);" ";�(139);�51,17);�21,�(241))
P7SSF%=1:SF%=1:Y2=19:SR%=SF%:�"CLOSE":A=��MyFile(FO$)
Z FR%=SR%+9:�FR%>NOF%�FR%=NOF%
d|L=19:LL=1:�I=SR%�FR%:�#A=(I-1)*61+63:�#A,FL$:�52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:�I:� LL<11 � � I=LL �10:ME$(I)=" ":�I
n+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
x�BUT=2��D^K
��BUT=1��DhK
�!�XP=67 � YP=16 � BUT=4 ��ttT
�!�XP=69 � YP=16 � BUT=4 ��dHT
�B� XP>71 � XP<51 � YP>28 � YP<19 �SSF%=0:�CLEAF2:SSF%=SF%:�DnT
�uYP=YP-18:SF%=(YP+SR%)-1:�CLEAF2:�131:�52,YP+18);ME$(YP);�(20-�(ME$(YP))):�FG%:�BUT=4 � SF%<(NOF%+1)��d\T:��DnT
��FR%=NOF%��DnT
�qSR%=SR%+10:X=50:Y=15:W%=21:L%=13:�LWN:�51,16);"Select a Field: ";�(138);" ";�(139);�51,17);�21,�(241)):�DZT
��SR%=1��DnT
�qSR%=SR%-10:X=50:Y=15:W%=21:L%=13:�LWN:�51,16);"Select a Field: ";�(138);" ";�(139);�51,17);�21,�(241)):�DZT
�z�7:�#A=(SF%-1)*61+63:�#A,FL$:�#A=(SF%-1)*61+101:�#A,TY$:�#A=(SF%-1)*61+117:�#A,TR$:�FG%:FG%=180:�:ȗ U,U,BUT:� BUT=0:�
�D��CLEAF2:�SSF%<>SF%��I=1�10:�52,I+18);ME$(I);�(20-�(ME$(I))):�I
�SSF%=SF%:�
�ݤMyFile(file$)

=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 39 0d  00 0f 1e c8 99 20 22 57  |is.!dv9...... "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 56 52  |180:.........TVR|
00000050  0d 00 28 29 c8 97 20 ee  3a 87 3a 46 47 25 3d 31  |..().. .:.:FG%=1|
00000060  38 30 3a 42 44 25 3d 31  30 30 3a 61 73 66 24 3d  |80:BD%=100:asf$=|
00000070  22 64 76 61 73 63 69 69  22 0d 00 32 18 de 4c 41  |"dvascii"..2..LA|
00000080  25 28 38 2c 31 30 29 3a  de 41 43 52 25 28 31 30  |%(8,10):.ACR%(10|
00000090  29 0d 00 3c 31 de 51 24  28 31 30 2c 37 29 3a de  |)..<1.Q$(10,7):.|
000000a0  4d 45 24 28 32 30 29 3a  de 52 45 24 28 32 35 2c  |ME$(20):.RE$(25,|
000000b0  35 29 3a de 50 28 32 35  2c 36 29 3a de 50 24 28  |5):.P(25,6):.P$(|
000000c0  36 29 0d 00 46 58 54 25  3d bb 28 22 30 22 29 3a  |6)..FXT%=.("0"):|
000000d0  41 25 3d 54 25 3a 4d 31  25 3d 54 25 3a 4d 32 25  |A%=T%:M1%=T%:M2%|
000000e0  3d 54 25 3a 53 25 3d 54  25 3a 53 41 4d 53 25 3d  |=T%:S%=T%:SAMS%=|
000000f0  54 25 3a 47 50 25 3d 30  3a 51 46 25 3d 30 3a 52  |T%:GP%=0:QF%=0:R|
00000100  50 25 3d 30 3a 54 49 4c  24 3d 22 22 3a 53 55 24  |P%=0:TIL$="":SU$|
00000110  3d 22 22 3a 46 54 24 3d  22 22 0d 00 50 66 ff 22  |="":FT$=""..Pf."|
00000120  43 4c 4f 53 45 22 3a 53  54 24 3d 22 33 22 3a 58  |CLOSE":ST$="3":X|
00000130  3d ad 20 a4 4d 79 46 69  6c 65 28 22 4e 49 4d 22  |=. .MyFile("NIM"|
00000140  29 3a e8 23 58 2c 46 49  24 2c 53 54 24 2c 44 41  |):.#X,FI$,ST$,DA|
00000150  24 2c 44 52 24 2c 5a 5a  24 2c 4d 44 24 3a ff 22  |$,DR$,ZZ$,MD$:."|
00000160  43 4c 4f 53 45 22 3a 46  4f 24 3d 46 49 24 2b 22  |CLOSE":FO$=FI$+"|
00000170  41 22 3a 53 54 24 3d 22  31 22 3a e5 8d 74 72 42  |A":ST$="1":..trB|
00000180  0d 00 5a 10 dd f2 4d 41  49 4e 3a 67 6f 25 3d 30  |..Z...MAIN:go%=0|
00000190  0d 00 64 41 e7 53 54 24  3d 22 31 22 8c 20 54 41  |..dA.ST$="1". TA|
000001a0  24 3d 46 49 24 2b 22 4e  22 3a 58 3d ad a4 4d 79  |$=FI$+"N":X=..My|
000001b0  46 69 6c 65 28 54 41 24  29 3a e8 23 58 2c 44 49  |File(TA$):.#X,DI|
000001c0  24 3a f2 44 69 72 28 44  49 24 29 3a e5 8d 74 60  |$:.Dir(DI$):..t`|
000001d0  40 0d 00 6e 09 e5 8d 74  42 40 0d 00 78 61 f2 45  |@..n...tB@..xa.E|
000001e0  52 57 49 4e 3a fb 31 38  30 3a f1 8a 32 30 2c 31  |RWIN:.180:..20,1|
000001f0  32 29 3b 22 43 61 6e 6e  6f 74 20 72 65 61 64 20  |2);"Cannot read |
00000200  74 68 65 20 66 69 6c 65  20 3a 22 3b 46 49 24 3b  |the file :";FI$;|
00000210  8a 32 30 2c 31 34 29 3b  22 28 66 69 6c 65 20 65  |.20,14);"(file e|
00000220  6d 70 74 79 29 22 3a fb  46 47 25 3a ef 37 3a f2  |mpty)":.FG%:.7:.|
00000230  4d 4b 4c 49 4b 3a e5 8d  54 7e 4d 0d 00 82 37 e7  |MKLIK:..T~M...7.|
00000240  53 54 24 3d 22 32 22 8c  20 54 41 24 3d 46 49 24  |ST$="2". TA$=FI$|
00000250  2b 22 4e 22 3a 58 3d ad  a4 4d 79 46 69 6c 65 28  |+"N":X=..MyFile(|
00000260  54 41 24 29 3a e8 23 58  2c 44 49 24 3a e5 8d 74  |TA$):.#X,DI$:..t|
00000270  60 40 0d 00 8c 35 dd f2  4d 4b 4c 49 4b 3a f5 3a  |`@...5..MKLIK:.:|
00000280  c8 97 20 55 2c 55 2c 42  55 54 3a fd 42 55 54 3d  |.. U,U,BUT:.BUT=|
00000290  30 3a f5 3a c8 97 20 55  2c 55 2c 42 55 54 3a fd  |0:.:.. U,U,BUT:.|
000002a0  42 55 54 3d 34 3a e1 0d  00 96 31 dd f2 45 52 57  |BUT=4:....1..ERW|
000002b0  49 4e 3a 58 3d 31 39 3a  59 3d 31 31 3a 57 25 3d  |IN:X=19:Y=11:W%=|
000002c0  34 30 3a 4c 25 3d 33 3a  fb 31 38 30 3a f2 4c 57  |40:L%=3:.180:.LW|
000002d0  4e 3a fb 46 47 25 3a e1  0d 00 a0 96 d9 23 30 3a  |N:.FG%:......#0:|
000002e0  58 3d ad 20 a4 4d 79 46  69 6c 65 28 46 4f 24 29  |X=. .MyFile(FO$)|
000002f0  3a cf 23 58 3d 30 3a e8  23 58 2c 5a 5a 24 3a 4e  |:.#X=0:.#X,ZZ$:N|
00000300  4f 46 25 3d bb 28 5a 5a  24 29 3a cf 23 58 3d 35  |OF%=.(ZZ$):.#X=5|
00000310  3a e8 23 58 2c 5a 5a 24  3a 4e 4f 52 25 3d bb 28  |:.#X,ZZ$:NOR%=.(|
00000320  5a 5a 24 29 3a cf 23 58  3d 31 35 3a e8 23 58 2c  |ZZ$):.#X=15:.#X,|
00000330  5a 5a 24 3a 52 45 43 25  3d bb 28 5a 5a 24 29 3a  |ZZ$:REC%=.(ZZ$):|
00000340  cf 23 58 3d 34 35 3a e8  23 58 2c 53 4f 24 3a cf  |.#X=45:.#X,SO$:.|
00000350  23 58 3d 34 38 3a e8 23  58 2c 52 45 4c 24 3a cf  |#X=48:.#X,REL$:.|
00000360  23 58 3d 32 33 3a e8 23  58 2c 53 4f 4c 24 0d 00  |#X=23:.#X,SOL$..|
00000370  aa 15 e7 bb 28 53 4f 24  29 3e 30 8c 53 4f 24 3d  |....(SO$)>0.SO$=|
00000380  22 31 22 0d 00 b4 11 e7  4e 4f 52 25 3d 30 8c e5  |"1".....NOR%=0..|
00000390  8d 44 78 40 0d 00 be 0b  67 6f 25 3d 31 3a e1 0d  |.Dx@....go%=1:..|
000003a0  00 c8 0c dd f2 46 4f 50  4f 55 54 0d 00 d2 2f ff  |.....FOPOUT.../.|
000003b0  22 43 4c 4f 53 45 22 3a  58 3d ad 20 a4 4d 79 46  |"CLOSE":X=. .MyF|
000003c0  69 6c 65 28 46 4f 24 29  3a 50 4f 49 3d 28 43 46  |ile(FO$):POI=(CF|
000003d0  25 2d 31 29 2a 36 31 2b  36 33 0d 00 dc 13 cf 23  |%-1)*61+63.....#|
000003e0  58 3d 50 4f 49 3a e8 23  58 2c 46 4c 24 0d 00 e6  |X=POI:.#X,FL$...|
000003f0  20 cf 23 58 3d 50 4f 49  2b 32 32 3a e8 23 58 2c  | .#X=POI+22:.#X,|
00000400  5a 5a 24 3a 58 31 3d bb  28 5a 5a 24 29 0d 00 f0  |ZZ$:X1=.(ZZ$)...|
00000410  20 cf 23 58 3d 50 4f 49  2b 32 36 3a e8 23 58 2c  | .#X=POI+26:.#X,|
00000420  5a 5a 24 3a 59 31 3d bb  28 5a 5a 24 29 0d 00 fa  |ZZ$:Y1=.(ZZ$)...|
00000430  20 cf 23 58 3d 50 4f 49  2b 33 30 3a e8 23 58 2c  | .#X=POI+30:.#X,|
00000440  5a 5a 24 3a 58 32 3d bb  28 5a 5a 24 29 0d 01 04  |ZZ$:X2=.(ZZ$)...|
00000450  20 cf 23 58 3d 50 4f 49  2b 33 34 3a e8 23 58 2c  | .#X=POI+34:.#X,|
00000460  5a 5a 24 3a 59 32 3d bb  28 5a 5a 24 29 0d 01 0e  |ZZ$:Y2=.(ZZ$)...|
00000470  16 cf 23 58 3d 50 4f 49  2b 33 38 3a e8 23 58 2c  |..#X=POI+38:.#X,|
00000480  54 59 24 0d 01 18 21 cf  23 58 3d 50 4f 49 2b 34  |TY$...!.#X=POI+4|
00000490  31 3a e8 23 58 2c 5a 5a  24 3a 49 4e 25 3d bb 28  |1:.#X,ZZ$:IN%=.(|
000004a0  5a 5a 24 29 0d 01 22 21  cf 23 58 3d 50 4f 49 2b  |ZZ$).."!.#X=POI+|
000004b0  34 36 3a e8 23 58 2c 5a  5a 24 3a 54 49 25 3d bb  |46:.#X,ZZ$:TI%=.|
000004c0  28 5a 5a 24 29 0d 01 2c  16 cf 23 58 3d 50 4f 49  |(ZZ$)..,..#X=POI|
000004d0  2b 35 34 3a e8 23 58 2c  54 52 24 0d 01 36 16 cf  |+54:.#X,TR$..6..|
000004e0  23 58 3d 50 4f 49 2b 35  38 3a e8 23 58 2c 4e 50  |#X=POI+58:.#X,NP|
000004f0  24 0d 01 40 05 e1 0d 01  4a 09 dd f2 4c 57 4e 0d  |$..@....J...LWN.|
00000500  01 54 79 f1 8a 58 2c 59  29 3b bd 28 31 35 34 29  |.Ty..X,Y);.(154)|
00000510  3b c4 57 25 2c bd 28 31  35 39 29 29 3b bd 28 31  |;.W%,.(159));.(1|
00000520  35 38 29 3a e3 49 3d 59  2b 31 b8 59 2b 4c 25 3a  |58):.I=Y+1.Y+L%:|
00000530  f1 8a 58 2c 49 29 3b bd  28 31 35 35 29 3b c4 57  |..X,I);.(155);.W|
00000540  25 2c 22 20 22 29 3b bd  28 31 35 37 29 3a ed 49  |%," ");.(157):.I|
00000550  3a f1 8a 58 2c 59 2b 28  4c 25 2b 31 29 29 3b bd  |:..X,Y+(L%+1));.|
00000560  28 31 35 36 29 3b c4 57  25 2c bd 28 31 36 30 29  |(156);.W%,.(160)|
00000570  29 3b bd 28 31 36 31 29  0d 01 5e 05 e1 0d 01 68  |);.(161)..^....h|
00000580  0a dd f2 54 49 4d 45 0d  01 72 5e 53 25 3d 28 91  |...TIME..r^S%=(.|
00000590  20 81 31 30 30 29 83 36  30 3a 4d 25 3d 28 91 20  | .100).60:M%=(. |
000005a0  81 36 30 30 30 29 83 36  30 3a 48 25 3d 28 91 20  |.6000).60:H%=(. |
000005b0  81 33 36 30 30 30 30 29  83 32 34 3a f1 8a 37 33  |.360000).24:..73|
000005c0  2c 30 29 3b 22 3a 22 3b  8a 37 36 2c 30 29 3b 22  |,0);":";.76,0);"|
000005d0  3a 22 3a e7 53 25 3c 31  30 8c f1 8a 37 37 2c 30  |:":.S%<10...77,0|
000005e0  29 3b 22 30 22 0d 01 7c  16 e7 4d 25 3c 31 30 8c  |);"0"..|..M%<10.|
000005f0  f1 8a 37 34 2c 30 29 3b  22 30 22 0d 01 86 16 e7  |..74,0);"0".....|
00000600  48 25 3c 31 30 8c f1 8a  37 31 2c 30 29 3b 22 30  |H%<10...71,0);"0|
00000610  22 0d 01 90 3d f1 8a 37  33 2d a9 28 c3 28 48 25  |"...=..73-.(.(H%|
00000620  29 29 2c 30 29 3b 48 25  3b 8a 37 36 2d a9 28 c3  |)),0);H%;.76-.(.|
00000630  28 4d 25 29 29 2c 30 29  3b 4d 25 3b 8a 37 39 2d  |(M%)),0);M%;.79-|
00000640  a9 28 c3 28 53 25 29 29  2c 30 29 3b 53 25 0d 01  |.(.(S%)),0);S%..|
00000650  9a 05 e1 0d 01 a4 12 dd  f2 54 45 58 54 3a 2a 46  |.........TEXT:*F|
00000660  58 32 31 2c 30 0d 01 ae  0e 54 24 3d 22 22 3a 4c  |X21,0....T$="":L|
00000670  31 3d 30 0d 01 b8 18 e7  4c 31 3c 4c 25 8c f1 8a  |1=0.....L1<L%...|
00000680  58 2c 59 29 3b bd 28 32  35 35 29 0d 01 c2 08 49  |X,Y);.(255)....I|
00000690  4e 3d a5 0d 01 cc 16 e7  49 4e 3d 31 33 8c 4e 50  |N=......IN=13.NP|
000006a0  25 3d 30 3a e5 8d 54 66  42 0d 01 d6 11 e7 49 4e  |%=0:..TfB.....IN|
000006b0  3d 31 32 37 8c e5 8d 54  48 42 0d 01 e0 15 e7 49  |=127...THB.....I|
000006c0  4e 3d 39 8c 4e 50 25 3d  31 3a e5 8d 54 66 42 0d  |N=9.NP%=1:..TfB.|
000006d0  01 ea 10 e7 4c 31 3d 4c  25 8c e5 8d 64 42 41 0d  |....L1=L%...dBA.|
000006e0  01 f4 2a f1 8a 58 2c 59  29 3b bd 28 49 4e 29 3a  |..*..X,Y);.(IN):|
000006f0  54 24 3d 54 24 2b bd 28  49 4e 29 3a 4c 31 3d 4c  |T$=T$+.(IN):L1=L|
00000700  31 2b 31 3a 58 3d 58 2b  31 0d 01 fe 09 e5 8d 74  |1+1:X=X+1......t|
00000710  78 41 0d 02 08 0f e7 4c  31 3d 30 8c e5 8d 74 6e  |xA.....L1=0...tn|
00000720  41 0d 02 12 27 f1 8a 58  2c 59 29 3b 22 20 22 3a  |A...'..X,Y);" ":|
00000730  58 3d 58 2d 31 3a 4c 31  3d 4c 31 2d 31 3a 54 24  |X=X-1:L1=L1-1:T$|
00000740  3d c0 54 24 2c 4c 31 29  0d 02 1c 09 e5 8d 74 78  |=.T$,L1)......tx|
00000750  41 0d 02 26 0e f1 8a 58  2c 59 29 3b 22 20 22 0d  |A..&...X,Y);" ".|
00000760  02 30 05 e1 0d 02 3a a8  db 3a 58 3d 32 3a 59 3d  |.0....:..:X=2:Y=|
00000770  32 3a 57 25 3d 35 30 3a  4c 25 3d 33 3a f2 4c 57  |2:W%=50:L%=3:.LW|
00000780  4e 3a f1 8a 33 2c 33 29  3b 22 46 69 65 6c 64 73  |N:..3,3);"Fields|
00000790  20 69 6e 20 22 3b 46 49  24 3b 22 20 66 69 6c 65  | in ";FI$;" file|
000007a0  3a 20 22 3b 4e 4f 46 25  3b 8a 33 2c 35 29 3b 22  |: ";NOF%;.3,5);"|
000007b0  48 6f 77 20 6d 61 6e 79  20 66 69 65 6c 64 73 20  |How many fields |
000007c0  69 6e 20 72 65 70 6f 72  74 3f 3a 20 22 3a 58 3d  |in report?: ":X=|
000007d0  33 31 3a 59 3d 35 3a 4c  25 3d 33 3a f2 54 45 58  |31:Y=5:L%=3:.TEX|
000007e0  54 3a e7 54 24 3d 22 22  8c e5 8d 74 7c 42 3a 53  |T:.T$=""...t|B:S|
000007f0  46 25 3d bb 28 54 24 29  3a e7 53 46 25 3c 31 84  |F%=.(T$):.SF%<1.|
00000800  53 46 25 3e 32 35 8c e5  8d 74 7c 42 0d 02 44 21  |SF%>25...t|B..D!|
00000810  53 46 25 3d bb 28 54 24  29 3a e7 53 46 25 3c 31  |SF%=.(T$):.SF%<1|
00000820  84 53 46 25 3e 32 35 8c  e5 8d 74 7c 42 0d 02 4e  |.SF%>25...t|B..N|
00000830  13 e7 53 46 25 3e 4e 4f  46 25 8c e5 8d 74 7c 42  |..SF%>NOF%...t|B|
00000840  0d 02 58 a5 52 4c 45 25  3d 30 3a f2 42 4c 41 4e  |..X.RLE%=0:.BLAN|
00000850  43 3a ff 22 43 4c 4f 53  45 22 3a 58 3d ad a4 4d  |C:."CLOSE":X=..M|
00000860  79 46 69 6c 65 28 46 4f  24 29 3a e3 49 3d 31 b8  |yFile(FO$):.I=1.|
00000870  53 46 25 3a cf 23 58 3d  28 49 2d 31 29 2a 36 31  |SF%:.#X=(I-1)*61|
00000880  2b 36 33 3a e8 23 58 2c  46 4c 24 3a f2 43 4f 4e  |+63:.#X,FL$:.CON|
00000890  56 28 49 2c 33 29 3a 52  45 24 28 49 2c 31 29 3d  |V(I,3):RE$(I,1)=|
000008a0  56 31 24 2b 46 4c 24 3a  cf 23 58 3d 28 49 2d 31  |V1$+FL$:.#X=(I-1|
000008b0  29 2a 36 31 2b 31 30 34  3a e8 23 58 2c 49 4e 24  |)*61+104:.#X,IN$|
000008c0  3a 49 49 4e 25 3d bb 28  49 4e 24 29 3a e7 a9 28  |:IIN%=.(IN$):..(|
000008d0  46 4c 24 29 3e 49 49 4e  25 8c 49 49 4e 25 3d a9  |FL$)>IIN%.IIN%=.|
000008e0  28 46 4c 24 29 0d 02 62  5e 52 45 24 28 49 2c 32  |(FL$)..b^RE$(I,2|
000008f0  29 3d c3 28 49 49 4e 25  29 3a 52 4c 45 25 3d 52  |)=.(IIN%):RLE%=R|
00000900  4c 45 25 2b 28 49 49 4e  25 2b 31 29 3a 52 45 24  |LE%+(IIN%+1):RE$|
00000910  28 49 2c 33 29 3d 22 30  30 30 30 30 30 22 3a 52  |(I,3)="000000":R|
00000920  45 24 28 49 2c 34 29 3d  22 22 3a 52 45 24 28 49  |E$(I,4)="":RE$(I|
00000930  2c 35 29 3d 22 31 30 22  3a ed 49 3a db 3a e5 8d  |,5)="10":.I:.:..|
00000940  64 78 42 0d 02 6c 9f db  3a f2 42 4c 41 4e 43 3a  |dxB..l..:.BLANC:|
00000950  fb 31 38 30 3a 58 3d 32  3a 59 3d 32 3a 57 25 3d  |.180:X=2:Y=2:W%=|
00000960  34 33 3a 4c 25 3d 32 33  3a f2 4c 57 4e 3a f1 8a  |43:L%=23:.LWN:..|
00000970  33 2c 33 29 3b 22 52 65  70 6f 72 74 20 44 65 66  |3,3);"Report Def|
00000980  69 6e 69 74 69 6f 6e 20  54 61 62 6c 65 22 3b 8a  |inition Table";.|
00000990  33 2c 34 29 3b c4 57 25  2c bd 28 32 34 31 29 29  |3,4);.W%,.(241))|
000009a0  3a fb 31 33 31 3a e3 49  3d 31 b8 32 30 3a f1 8a  |:.131:.I=1.20:..|
000009b0  33 2c 49 2b 35 29 3b 22  43 6f 6e 74 65 6e 74 73  |3,I+5);"Contents|
000009c0  20 6f 66 20 43 6f 6c 75  6d 6e 20 22 3b c4 32 2d  | of Column ";.2-|
000009d0  a9 28 c3 28 49 29 29 2c  22 30 22 29 3b 49 3b 22  |.(.(I)),"0");I;"|
000009e0  3a 22 0d 02 76 0b ed 49  3a fb 46 47 25 0d 02 80  |:"..v..I:.FG%...|
000009f0  16 52 4c 45 25 3d 30 3a  53 53 53 46 25 3d 30 3a  |.RLE%=0:SSSF%=0:|
00000a00  4a 3d 31 0d 02 8a 6d f5  3a c8 97 20 55 2c 55 2c  |J=1...m.:.. U,U,|
00000a10  42 55 54 3a fd 20 42 55  54 3d 30 3a f2 53 45 4c  |BUT:. BUT=0:.SEL|
00000a20  3a e7 42 55 54 3d 31 20  8c e5 8d 74 68 42 3a 8b  |:.BUT=1 ...thB:.|
00000a30  53 53 53 46 25 3d 53 53  53 46 25 2b 31 3a f1 8a  |SSSF%=SSSF%+1:..|
00000a40  32 36 2c 4a 2b 35 29 3b  46 4c 24 3a 49 49 4e 25  |26,J+5);FL$:IIN%|
00000a50  3d bb 28 49 4e 24 29 3a  e7 a9 28 46 4c 24 29 3e  |=.(IN$):..(FL$)>|
00000a60  49 49 4e 25 8c 49 49 4e  25 3d a9 28 46 4c 24 29  |IIN%.IIN%=.(FL$)|
00000a70  0d 02 94 70 f2 43 4f 4e  56 28 53 46 25 2c 33 29  |...p.CONV(SF%,3)|
00000a80  3a 52 45 24 28 4a 2c 31  29 3d 56 31 24 2b 46 4c  |:RE$(J,1)=V1$+FL|
00000a90  24 3a 52 45 24 28 4a 2c  32 29 3d c3 28 49 49 4e  |$:RE$(J,2)=.(IIN|
00000aa0  25 29 3a 52 4c 45 25 3d  52 4c 45 25 2b 28 49 49  |%):RLE%=RLE%+(II|
00000ab0  4e 25 2b 31 29 3a 52 45  24 28 4a 2c 33 29 3d 22  |N%+1):RE$(J,3)="|
00000ac0  30 30 30 30 30 30 22 3a  52 45 24 28 4a 2c 34 29  |000000":RE$(J,4)|
00000ad0  3d 22 22 3a 52 45 24 28  4a 2c 35 29 3d 22 32 22  |="":RE$(J,5)="2"|
00000ae0  0d 02 9e 34 f1 8a 33 33  2c 33 29 3b 22 4c 65 6e  |...4..33,3);"Len|
00000af0  67 74 68 3a 20 22 3b 52  4c 45 25 3a 4a 3d 4a 2b  |gth: ";RLE%:J=J+|
00000b00  31 3a e7 4a 3e 32 30 8c  e5 8d 74 68 42 3a 8b e5  |1:.J>20...thB:..|
00000b10  8d 74 4a 42 0d 02 a8 23  e7 53 53 53 46 25 3d 30  |.tJB...#.SSSF%=0|
00000b20  8c e5 8d 74 7c 42 3a 8b  53 46 25 3d 53 53 53 46  |...t|B:.SF%=SSSF|
00000b30  25 3a e5 8d 74 68 47 0d  02 b2 09 f2 4d 41 49 4e  |%:..thG.....MAIN|
00000b40  0d 02 bc 1d 58 3d 34 30  3a 59 3d 31 33 3a 57 25  |....X=40:Y=13:W%|
00000b50  3d 31 35 3a 4c 25 3d 35  3a f2 4c 57 4e 0d 02 c6  |=15:L%=5:.LWN...|
00000b60  7e 4d 45 24 28 31 29 3d  22 44 65 73 69 67 6e 20  |~ME$(1)="Design |
00000b70  52 65 70 6f 72 74 22 3a  4d 45 24 28 32 29 3d 22  |Report":ME$(2)="|
00000b80  44 65 73 69 67 6e 20 4c  61 62 65 6c 22 3a 4d 45  |Design Label":ME|
00000b90  24 28 33 29 3d 22 4c 6f  61 64 20 52 65 70 6f 72  |$(3)="Load Repor|
00000ba0  74 22 3a 4d 45 24 28 34  29 3d 22 4c 6f 61 64 20  |t":ME$(4)="Load |
00000bb0  4c 61 62 65 6c 22 3a 4d  45 24 28 35 29 3d 22 51  |Label":ME$(5)="Q|
00000bc0  75 69 74 22 3a 58 3d 34  31 3a 59 3d 31 34 3a 4c  |uit":X=41:Y=14:L|
00000bd0  25 3d 35 3a f2 53 45 4c  45 43 54 0d 02 d0 38 e7  |%=5:.SELECT...8.|
00000be0  53 45 4c 25 3d 31 8c 52  54 56 31 25 3d 32 35 31  |SEL%=1.RTV1%=251|
00000bf0  30 3a 52 54 56 32 25 3d  31 33 33 30 3a 52 54 56  |0:RTV2%=1330:RTV|
00000c00  33 25 3d 31 34 37 30 3a  51 46 25 3d 30 3a e5 8d  |3%=1470:QF%=0:..|
00000c10  44 6c 42 0d 02 da 3f e7  53 45 4c 25 3d 33 8c 52  |DlB...?.SEL%=3.R|
00000c20  54 56 31 25 3d 32 35 31  30 3a 52 54 56 32 25 3d  |TV1%=2510:RTV2%=|
00000c30  31 33 33 30 3a 52 54 56  33 25 3d 31 34 37 30 3a  |1330:RTV3%=1470:|
00000c40  51 46 25 3d 30 3a f2 42  4c 41 4e 43 3a e5 8d 54  |QF%=0:.BLANC:..T|
00000c50  4c 43 0d 02 e4 38 e7 53  45 4c 25 3d 34 8c 52 54  |LC...8.SEL%=4.RT|
00000c60  56 31 25 3d 33 30 36 30  3a 52 54 56 32 25 3d 33  |V1%=3060:RTV2%=3|
00000c70  31 31 30 3a 52 54 56 33  25 3d 33 31 32 30 3a 51  |110:RTV3%=3120:Q|
00000c80  46 25 3d 30 3a e5 8d 74  4a 4c 0d 02 ee 11 e7 53  |F%=0:..tJL.....S|
00000c90  45 4c 25 3d 35 8c e5 8d  54 7e 4d 0d 02 f8 38 e7  |EL%=5...T~M...8.|
00000ca0  53 45 4c 25 3d 32 8c 52  54 56 31 25 3d 33 30 36  |SEL%=2.RTV1%=306|
00000cb0  30 3a 52 54 56 32 25 3d  33 31 31 30 3a 52 54 56  |0:RTV2%=3110:RTV|
00000cc0  33 25 3d 33 31 32 30 3a  51 46 25 3d 30 3a e5 8d  |3%=3120:QF%=0:..|
00000cd0  54 62 4b 0d 03 02 09 e5  8d 64 46 42 0d 03 0c 63  |TbK......dFB...c|
00000ce0  58 3d 31 30 3a 59 3d 31  33 3a 57 25 3d 33 35 3a  |X=10:Y=13:W%=35:|
00000cf0  4c 25 3d 31 3a f2 4c 57  4e 3a f1 8a 31 31 2c 31  |L%=1:.LWN:..11,1|
00000d00  34 29 3b 22 45 6e 74 65  72 20 52 65 70 6f 72 74  |4);"Enter Report|
00000d10  20 46 69 6c 65 6e 61 6d  65 3a 20 22 3b 3a 58 3d  | Filename: ";:X=|
00000d20  b1 3a 59 3d 31 34 3a 4c  25 3d 31 30 3a f2 54 45  |.:Y=14:L%=10:.TE|
00000d30  58 54 3a e7 54 24 3d 22  22 8c e5 8d 74 7c 42 0d  |XT:.T$=""...t|B.|
00000d40  03 16 0b ee 85 e5 8d 54  7e 43 0d 03 20 b4 ff 22  |.......T~C.. .."|
00000d50  43 4c 4f 53 45 22 3a 58  3d ad a4 4d 79 46 69 6c  |CLOSE":X=..MyFil|
00000d60  65 28 54 24 29 3a e3 49  3d 30 b8 35 3a e3 46 3d  |e(T$):.I=0.5:.F=|
00000d70  30 b8 32 35 3a e8 23 58  2c 52 45 24 28 46 2c 49  |0.25:.#X,RE$(F,I|
00000d80  29 3a ed 46 3a ed 49 3a  ff 22 43 4c 4f 53 45 22  |):.F:.I:."CLOSE"|
00000d90  3a 53 41 4d 53 25 3d bb  28 c1 52 45 24 28 31 2c  |:SAMS%=.(.RE$(1,|
00000da0  30 29 2c 31 2c 31 29 29  3a 54 25 3d bb 28 c1 52  |0),1,1)):T%=.(.R|
00000db0  45 24 28 31 2c 30 29 2c  32 2c 31 29 29 3a 41 25  |E$(1,0),2,1)):A%|
00000dc0  3d bb 28 c1 52 45 24 28  31 2c 30 29 2c 33 2c 31  |=.(.RE$(1,0),3,1|
00000dd0  29 29 3a 4d 31 25 3d bb  28 c1 52 45 24 28 31 2c  |)):M1%=.(.RE$(1,|
00000de0  30 29 2c 34 2c 31 29 29  3a 4d 32 25 3d bb 28 c1  |0),4,1)):M2%=.(.|
00000df0  52 45 24 28 31 2c 30 29  2c 35 2c 31 29 29 0d 03  |RE$(1,0),5,1))..|
00000e00  2a 2c 53 46 25 3d bb 28  52 45 24 28 32 2c 30 29  |*,SF%=.(RE$(2,0)|
00000e10  29 3a 52 4c 45 25 3d bb  28 52 45 24 28 33 2c 30  |):RLE%=.(RE$(3,0|
00000e20  29 29 3a ee 85 e5 8d 54  56 52 0d 03 34 09 e5 8d  |)):....TVR..4...|
00000e30  74 68 47 0d 03 3e 0b ee  85 e5 8d 54 56 52 0d 03  |thG..>.....TVR..|
00000e40  48 73 f2 45 52 57 49 4e  3a fb 31 38 30 3a f1 8a  |Hs.ERWIN:.180:..|
00000e50  32 30 2c 31 32 29 3b 22  43 61 6e 6e 6f 74 20 66  |20,12);"Cannot f|
00000e60  69 6e 64 20 74 68 65 20  22 3b 54 24 3b 22 20 72  |ind the ";T$;" r|
00000e70  65 70 6f 72 74 3a 22 3b  8a 32 30 2c 31 34 29 3b  |eport:";.20,14);|
00000e80  22 43 6c 69 63 6b 20 6d  6f 75 73 65 20 74 6f 20  |"Click mouse to |
00000e90  63 6f 6e 74 69 6e 75 65  2e 2e 2e 22 3a ef 37 3a  |continue...":.7:|
00000ea0  fb 46 47 25 3a f2 4d 4b  4c 49 4b 3a e5 8d 74 7c  |.FG%:.MKLIK:..t||
00000eb0  42 0d 03 52 26 dd f2 54  52 49 4d 3a 54 52 4e 3d  |B..R&..TRIM:TRN=|
00000ec0  bb 28 4e 24 29 3a 4c 3d  31 3a e7 54 52 4d 3d 31  |.(N$):L=1:.TRM=1|
00000ed0  30 8c e5 8d 74 62 43 0d  03 5c 1d e7 54 52 4d 3d  |0...tbC..\..TRM=|
00000ee0  30 8c 4e 24 3d c3 28 a8  28 54 52 4e 29 29 3a e5  |0.N$=.(.(TRN)):.|
00000ef0  8d 74 62 43 0d 03 66 30  e7 54 52 4e 3d a8 28 54  |.tbC..f0.TRN=.(T|
00000f00  52 4e 29 8c 4e 24 3d c3  28 a8 28 54 52 4e 29 29  |RN).N$=.(.(TRN))|
00000f10  2b 22 2e 22 2b c4 54 52  4d 2c 22 30 22 29 3a e5  |+"."+.TRM,"0"):.|
00000f20  8d 74 62 43 0d 03 70 14  4c 3d a7 4e 24 2c 22 2e  |.tbC..p.L=.N$,".|
00000f30  22 29 3a e5 8d 44 7a 43  0d 03 7a 40 54 52 4d 24  |"):..DzC..z@TRM$|
00000f40  3d c1 4e 24 2c 28 4c 2b  31 29 2c a9 28 4e 24 29  |=.N$,(L+1),.(N$)|
00000f50  2d 4c 29 3a e7 a9 28 54  52 4d 24 29 3e 54 52 4d  |-L):..(TRM$)>TRM|
00000f60  20 8c 20 54 52 4d 24 3d  c0 54 52 4d 24 2c 54 52  | . TRM$=.TRM$,TR|
00000f70  4d 29 3a e5 8d 74 58 43  0d 03 84 36 e7 a9 28 54  |M):..tXC...6..(T|
00000f80  52 4d 24 29 3c 54 52 4d  20 8c 20 54 52 4d 24 3d  |RM$)<TRM . TRM$=|
00000f90  54 52 4d 24 2b c4 28 54  52 4d 2d a9 28 54 52 4d  |TRM$+.(TRM-.(TRM|
00000fa0  24 29 29 2c 22 30 22 29  3a e5 8d 74 58 43 0d 03  |$)),"0"):..tXC..|
00000fb0  8e 09 e5 8d 74 62 43 0d  03 98 12 4e 24 3d c0 4e  |....tbC....N$=.N|
00000fc0  24 2c 4c 29 2b 54 52 4d  24 0d 03 a2 05 e1 0d 03  |$,L)+TRM$.......|
00000fd0  ac ad dd f2 42 4c 41 4e  43 3a e3 47 3d 31 b8 32  |....BLANC:.G=1.2|
00000fe0  35 3a 52 45 24 28 47 2c  31 29 3d 22 22 3a 52 45  |5:RE$(G,1)="":RE|
00000ff0  24 28 47 2c 32 29 3d 22  22 3a 52 45 24 28 47 2c  |$(G,2)="":RE$(G,|
00001000  33 29 3d 22 22 3a 52 45  24 28 47 2c 34 29 3d 22  |3)="":RE$(G,4)="|
00001010  22 3a 52 45 24 28 47 2c  35 29 3d 22 22 3a ed 47  |":RE$(G,5)="":.G|
00001020  3a 54 49 4c 24 3d 22 22  3a 53 55 24 3d 22 22 3a  |:TIL$="":SU$="":|
00001030  46 54 24 3d 22 22 3a 53  41 4d 53 25 3d 30 3a 54  |FT$="":SAMS%=0:T|
00001040  25 3d bb 28 22 30 22 29  3a 41 25 3d 54 25 3a 4d  |%=.("0"):A%=T%:M|
00001050  31 25 3d 54 25 3a 4d 32  25 3d 54 25 3a 53 25 3d  |1%=T%:M2%=T%:S%=|
00001060  54 25 3a 47 50 25 3d 30  3a 51 46 25 3d 30 3a 52  |T%:GP%=0:QF%=0:R|
00001070  50 25 3d 30 3a 46 57 52  25 3d 31 0d 03 b6 05 e1  |P%=0:FWR%=1.....|
00001080  0d 03 c0 49 dd f2 43 4f  4e 56 28 56 31 25 2c 56  |...I..CONV(V1%,V|
00001090  32 25 29 3a 56 31 24 3d  c3 28 56 31 25 29 3a e7  |2%):V1$=.(V1%):.|
000010a0  a9 28 56 31 24 29 3e 56  32 25 8c 56 31 24 3d c0  |.(V1$)>V2%.V1$=.|
000010b0  56 31 24 2c 56 32 25 29  3a 56 31 25 3d bb 28 56  |V1$,V2%):V1%=.(V|
000010c0  31 24 29 3a e5 8d 64 54  43 0d 03 ca 2a 56 31 24  |1$):..dTC...*V1$|
000010d0  3d c3 28 56 31 25 29 2b  c4 56 32 25 2d a9 28 56  |=.(V1%)+.V2%-.(V|
000010e0  31 24 29 2c 22 20 22 29  3a 56 31 25 3d bb 28 56  |1$)," "):V1%=.(V|
000010f0  31 24 29 0d 03 d4 05 e1  0d 03 de 81 50 45 4a 25  |1$).........PEJ%|
00001100  3d 32 3a ff 22 43 4c 4f  53 45 22 3a 42 3d ad a4  |=2:."CLOSE":B=..|
00001110  4d 79 46 69 6c 65 28 46  4f 24 29 3a 43 3d ad a4  |MyFile(FO$):C=..|
00001120  4d 79 46 69 6c 65 28 46  49 24 29 3a cf 23 42 3d  |MyFile(FI$):.#B=|
00001130  28 bb 28 53 4f 4c 24 29  2d 31 29 2a 36 31 2b 31  |(.(SOL$)-1)*61+1|
00001140  30 39 3a e8 23 42 2c 41  54 49 24 3a 43 52 25 3d  |09:.#B,ATI$:CR%=|
00001150  31 3a e7 53 4f 24 3d 22  31 22 8c cf 23 43 3d 52  |1:.SO$="1"..#C=R|
00001160  45 43 25 2d 31 30 3a e8  23 43 2c 43 52 24 3a 43  |EC%-10:.#C,CR$:C|
00001170  52 25 3d bb 28 43 52 24  29 0d 03 e8 70 cf 23 43  |R%=.(CR$)...p.#C|
00001180  3d 28 43 52 25 2d 31 29  2a 52 45 43 25 2b bb 28  |=(CR%-1)*REC%+.(|
00001190  41 54 49 24 29 3a e8 23  43 2c 47 46 24 3a cf 23  |ATI$):.#C,GF$:.#|
000011a0  42 3d 28 bb 28 53 4f 4c  24 29 2d 31 29 2a 36 31  |B=(.(SOL$)-1)*61|
000011b0  2b 31 30 31 3a e8 23 42  2c 41 54 59 24 3a 53 54  |+101:.#B,ATY$:ST|
000011c0  25 3d bb 28 47 46 24 29  3a e7 47 54 59 25 3d 33  |%=.(GF$):.GTY%=3|
000011d0  84 47 54 59 25 3d 34 8c  47 46 24 3d bd 28 32 33  |.GTY%=4.GF$=.(23|
000011e0  34 29 2b bd 28 31 30 39  29 0d 03 f2 0e 53 54 25  |4)+.(109)....ST%|
000011f0  3d bb 28 47 46 24 29 0d  03 fc 22 e7 47 54 59 25  |=.(GF$)...".GTY%|
00001200  3d 33 84 47 54 59 25 3d  34 8c 53 54 25 3d 28 53  |=3.GTY%=4.ST%=(S|
00001210  54 25 2d 42 44 25 29 2d  31 0d 04 06 09 e5 8d 74  |T%-BD%)-1......t|
00001220  7a 49 0d 04 10 62 52 45  24 28 31 2c 30 29 3d c3  |zI...bRE$(1,0)=.|
00001230  28 53 41 4d 53 25 29 2b  c3 28 54 25 29 2b c3 28  |(SAMS%)+.(T%)+.(|
00001240  41 25 29 2b c3 28 4d 31  25 29 2b c3 28 4d 32 25  |A%)+.(M1%)+.(M2%|
00001250  29 2b c3 28 52 50 25 29  2b c3 28 44 53 25 29 2b  |)+.(RP%)+.(DS%)+|
00001260  53 4f 24 3a 52 45 24 28  32 2c 30 29 3d c3 28 53  |SO$:RE$(2,0)=.(S|
00001270  46 25 29 3a 52 45 24 28  33 2c 30 29 3d c3 28 52  |F%):RE$(3,0)=.(R|
00001280  4c 45 25 29 0d 04 1a 56  f1 8a 33 2c 32 30 29 3b  |LE%)...V..3,20);|
00001290  22 45 6e 74 65 72 20 52  65 70 6f 72 74 20 46 69  |"Enter Report Fi|
000012a0  6c 65 6e 61 6d 65 3a 20  22 3b 3a 58 3d b1 3a 59  |lename: ";:X=.:Y|
000012b0  3d 32 30 3a 4c 25 3d 31  30 3a f2 54 45 58 54 3a  |=20:L%=10:.TEXT:|
000012c0  e7 54 24 3d 22 22 8c f1  8a 33 2c 32 30 29 3b 89  |.T$=""...3,20);.|
000012d0  28 35 30 29 3a e5 8d 44  5c 48 0d 04 24 5a ff 22  |(50):..D\H..$Z."|
000012e0  43 4c 4f 53 45 22 3a 58  3d ae a4 4d 79 46 69 6c  |CLOSE":X=..MyFil|
000012f0  65 28 54 24 29 3a e3 49  3d 30 b8 35 3a e3 46 3d  |e(T$):.I=0.5:.F=|
00001300  30 b8 32 35 3a f1 23 58  2c 52 45 24 28 46 2c 49  |0.25:.#X,RE$(F,I|
00001310  29 3a ed 46 3a ed 49 3a  ff 22 43 4c 4f 53 45 22  |):.F:.I:."CLOSE"|
00001320  3a f1 8a 33 2c 32 30 29  3b 89 28 35 30 29 3a e5  |:..3,20);.(50):.|
00001330  8d 44 5c 48 0d 04 2e 25  58 3d 36 32 3a 59 3d 4c  |.D\H...%X=62:Y=L|
00001340  3a 4c 25 3d 31 3a f2 54  45 58 54 3a e7 54 24 3d  |:L%=1:.TEXT:.T$=|
00001350  22 22 8c 54 24 3d 22 30  22 0d 04 38 20 52 45 24  |"".T$="0"..8 RE$|
00001360  28 49 2c 35 29 3d 54 24  3a f1 8a 36 32 2c 4c 29  |(I,5)=T$:..62,L)|
00001370  3b 54 24 3a e5 8d 64 6d  42 0d 04 42 1a dd f2 46  |;T$:..dmB..B...F|
00001380  49 45 4c 44 53 3a e7 46  57 52 25 3d 30 8c e5 8d  |IELDS:.FWR%=0...|
00001390  44 7e 44 0d 04 4c 23 e7  20 52 50 25 3d 31 20 84  |D~D..L#. RP%=1 .|
000013a0  20 53 41 4d 53 25 3d 31  20 8c 20 f1 20 89 28 4c  | SAMS%=1 . . .(L|
000013b0  42 25 2b 31 29 3b 0d 04  56 62 e3 4a 3d 31 b8 53  |B%+1);..Vb.J=1.S|
000013c0  46 25 3a 4e 24 3d c1 52  45 24 28 4a 2c 31 29 2c  |F%:N$=.RE$(J,1),|
000013d0  34 29 3a e7 a9 28 4e 24  29 3e bb 28 52 45 24 28  |4):..(N$)>.(RE$(|
000013e0  4a 2c 32 29 29 8c 4e 24  3d c0 4e 24 2c bb 28 52  |J,2)).N$=.N$,.(R|
000013f0  45 24 28 4a 2c 32 29 29  29 3a 8b 4e 24 3d 4e 24  |E$(J,2))):.N$=N$|
00001400  2b c4 bb 28 52 45 24 28  4a 2c 32 29 29 2d a9 28  |+..(RE$(J,2))-.(|
00001410  4e 24 29 2c 22 20 22 29  0d 04 60 18 f1 4e 24 3b  |N$)," ")..`..N$;|
00001420  3a e7 4a 3c 53 46 25 8c  f1 22 20 22 3b 3a 8b f1  |:.J<SF%.." ";:..|
00001430  0d 04 6a 26 ed 4a 3a e7  20 52 50 25 3d 31 20 84  |..j&.J:. RP%=1 .|
00001440  20 53 41 4d 53 25 3d 31  20 8c 20 f1 20 89 28 4c  | SAMS%=1 . . .(L|
00001450  42 25 2b 31 29 3b 0d 04  74 29 e3 4a 3d 31 b8 53  |B%+1);..t).J=1.S|
00001460  46 25 3a f1 c4 bb 28 52  45 24 28 4a 2c 32 29 29  |F%:...(RE$(J,2))|
00001470  2c 22 2d 22 29 3b 22 20  22 3b 3a ed 4a 3a f1 0d  |,"-");" ";:.J:..|
00001480  04 7e 05 e1 0d 04 88 5c  dd f2 49 4e 49 54 3a e3  |.~.....\..INIT:.|
00001490  46 3d 31 b8 32 35 3a 50  28 46 2c 31 29 3d 30 3a  |F=1.25:P(F,1)=0:|
000014a0  50 28 46 2c 32 29 3d 30  3a 50 28 46 2c 33 29 3d  |P(F,2)=0:P(F,3)=|
000014b0  30 3a 50 28 46 2c 34 29  3d 30 3a 50 28 46 2c 35  |0:P(F,4)=0:P(F,5|
000014c0  29 3d 39 39 39 39 39 39  39 39 3a 50 28 46 2c 36  |)=99999999:P(F,6|
000014d0  29 3d 2d 39 39 39 39 39  39 39 39 3a ed 46 3a e1  |)=-99999999:.F:.|
000014e0  0d 04 92 26 e7 53 43 52  25 3d 31 8c eb 31 32 39  |...&.SCR%=1..129|
000014f0  3a ef 31 39 2c 30 2c 34  2c 30 2c 30 2c 30 3a 53  |:.19,0,4,0,0,0:S|
00001500  43 52 25 3d 33 39 0d 04  9c 26 e7 53 43 52 25 3d  |CR%=39...&.SCR%=|
00001510  33 8c eb 31 36 3a ef 31  39 2c 30 2c 34 2c 30 2c  |3..16:.19,0,4,0,|
00001520  30 2c 30 3a 53 43 52 25  3d 31 33 31 0d 04 a6 13  |0,0:SCR%=131....|
00001530  e7 53 43 52 25 3d 32 8c  53 43 52 25 3d 37 39 0d  |.SCR%=2.SCR%=79.|
00001540  04 b0 18 87 3a e7 52 4c  45 25 3e 32 35 35 8c 52  |....:.RLE%>255.R|
00001550  4c 45 25 3d 32 35 35 0d  04 ba 1c e7 46 57 52 25  |LE%=255.....FWR%|
00001560  3d 30 8c 48 48 24 3d 22  20 22 3a 8b 48 48 24 3d  |=0.HH$=" ":.HH$=|
00001570  22 2d 22 0d 04 c4 2d db  3a e7 53 50 4c 25 3d 33  |"-"...-.:.SPL%=3|
00001580  8c ff 22 53 50 4f 4f 4c  20 3c 44 61 74 61 56 69  |.."SPOOL <DataVi|
00001590  73 69 6f 6e 24 44 69 72  3e 2e 22 2b 61 73 66 24  |sion$Dir>."+asf$|
000015a0  0d 04 ce 0e e7 50 49 4e  25 3d 31 8c ef 32 0d 04  |.....PIN%=1..2..|
000015b0  d8 3b e7 44 53 25 3d 31  8c f1 22 52 65 70 6f 72  |.;.DS%=1.."Repor|
000015c0  74 20 64 61 74 65 3a 20  22 3b c0 91 24 2c 31 35  |t date: ";..$,15|
000015d0  29 27 3a e7 53 45 4c 25  3d 31 20 80 20 54 49 4c  |)':.SEL%=1 . TIL|
000015e0  24 3c 3e 22 22 8c f1 27  27 0d 04 e2 2f e7 50 49  |$<>""..''.../.PI|
000015f0  4e 25 3d 31 8c ef 31 2c  32 37 3a ef 31 2c 31 30  |N%=1..1,27:.1,10|
00001600  34 3a ef 31 2c 30 3a ef  31 2c 32 37 3a ef 31 2c  |4:.1,0:.1,27:.1,|
00001610  31 30 36 3a ef 31 2c 39  0d 04 ec 11 e7 53 55 24  |106:.1,9.....SU$|
00001620  3d 22 22 8c e5 8d 54 54  45 0d 04 f6 3e f1 3a 44  |=""...TTE...>.:D|
00001630  3d 28 52 4c 45 25 2d a9  28 53 55 24 29 29 2f 32  |=(RLE%-.(SU$))/2|
00001640  3a 44 3d 44 2f 32 3a f1  89 28 44 29 3b 3a e7 50  |:D=D/2:..(D);:.P|
00001650  49 4e 25 3d 31 8c ef 31  2c 32 37 3a ef 31 2c 38  |IN%=1..1,27:.1,8|
00001660  37 3a ef 31 2c 34 39 0d  05 00 22 f1 53 55 24 3a  |7:.1,49...".SU$:|
00001670  e7 50 49 4e 25 3d 31 8c  ef 31 2c 32 37 3a ef 31  |.PIN%=1..1,27:.1|
00001680  2c 38 37 3a ef 31 2c 34  38 0d 05 0a 05 f1 0d 05  |,87:.1,48.......|
00001690  14 26 f2 46 49 45 4c 44  53 3a e7 20 47 54 59 25  |.&.FIELDS:. GTY%|
000016a0  3c 3e 32 20 8c ef 32 38  2c 30 2c 32 39 2c 53 43  |<>2 ..28,0,29,SC|
000016b0  52 25 2c bc 0d 05 1e 46  43 4f 25 3d 30 3a e3 49  |R%,....FCO%=0:.I|
000016c0  3d 31 b8 4e 4f 52 25 3a  e7 53 4f 24 3d 22 31 22  |=1.NOR%:.SO$="1"|
000016d0  8c cf 23 43 3d 28 49 2a  52 45 43 25 29 2d 31 30  |..#C=(I*REC%)-10|
000016e0  3a e8 23 43 2c 43 52 24  3a 43 52 25 3d bb 28 43  |:.#C,CR$:CR%=.(C|
000016f0  52 24 29 3a 8b 43 52 25  3d 49 0d 05 28 18 54 4e  |R$):.CR%=I..(.TN|
00001700  54 25 3d 54 25 3a e7 51  46 25 3d 31 8c e5 8d 54  |T%=T%:.QF%=1...T|
00001710  72 4f 0d 05 32 18 54 25  3d 54 4e 54 25 3a e7 47  |rO..2.T%=TNT%:.G|
00001720  50 25 3d 31 8c e5 8d 54  5c 47 0d 05 3c 44 43 4f  |P%=1...T\G..<DCO|
00001730  25 3d 43 4f 25 2b 31 3a  e7 52 50 25 3d 31 8c f1  |%=CO%+1:.RP%=1..|
00001740  c4 4c 42 25 2d a9 28 c3  28 49 29 29 2c 22 30 22  |.LB%-.(.(I)),"0"|
00001750  29 3b 49 3b 22 20 22 3b  3a 8b e7 53 41 4d 53 25  |);I;" ";:..SAMS%|
00001760  3d 31 8c f1 20 89 28 4c  42 25 2b 31 29 3b 0d 05  |=1.. .(LB%+1);..|
00001770  46 99 e3 4a 3d 31 b8 53  46 25 3a cf 23 42 3d 28  |F..J=1.SF%:.#B=(|
00001780  bb 28 52 45 24 28 4a 2c  31 29 29 2d 31 29 2a 36  |.(RE$(J,1))-1)*6|
00001790  31 2b 31 30 39 3a e8 23  42 2c 54 49 24 3a cf 23  |1+109:.#B,TI$:.#|
000017a0  43 3d 28 43 52 25 2d 31  29 2a 52 45 43 25 2b bb  |C=(CR%-1)*REC%+.|
000017b0  28 54 49 24 29 3a e8 23  43 2c 4e 24 3a cf 23 42  |(TI$):.#C,N$:.#B|
000017c0  3d 28 bb 28 52 45 24 28  4a 2c 31 29 29 2d 31 29  |=(.(RE$(J,1))-1)|
000017d0  2a 36 31 2b 31 30 31 3a  e8 23 42 2c 54 59 24 3a  |*61+101:.#B,TY$:|
000017e0  e7 c1 52 45 24 28 4a 2c  33 29 2c 32 2c 31 29 3d  |..RE$(J,3),2,1)=|
000017f0  22 31 22 8c 50 28 4a 2c  31 29 3d 50 28 4a 2c 31  |"1".P(J,1)=P(J,1|
00001800  29 2b bb 28 4e 24 29 0d  05 50 2b e7 c1 52 45 24  |)+.(N$)..P+..RE$|
00001810  28 4a 2c 33 29 2c 33 2c  31 29 3d 22 31 22 8c 50  |(J,3),3,1)="1".P|
00001820  28 4a 2c 32 29 3d 50 28  4a 2c 32 29 2b bb 28 4e  |(J,2)=P(J,2)+.(N|
00001830  24 29 0d 05 5a 3f e7 c1  52 45 24 28 4a 2c 33 29  |$)..Z?..RE$(J,3)|
00001840  2c 34 2c 31 29 3d 22 31  22 8c e7 bb 28 4e 24 29  |,4,1)="1"...(N$)|
00001850  3c 50 28 4a 2c 35 29 8c  50 28 4a 2c 33 29 3d bb  |<P(J,5).P(J,3)=.|
00001860  28 4e 24 29 3a 50 28 4a  2c 35 29 3d bb 28 4e 24  |(N$):P(J,5)=.(N$|
00001870  29 0d 05 64 3f e7 c1 52  45 24 28 4a 2c 33 29 2c  |)..d?..RE$(J,3),|
00001880  35 2c 31 29 3d 22 31 22  8c e7 bb 28 4e 24 29 3e  |5,1)="1"...(N$)>|
00001890  50 28 4a 2c 36 29 8c 50  28 4a 2c 34 29 3d bb 28  |P(J,6).P(J,4)=.(|
000018a0  4e 24 29 3a 50 28 4a 2c  36 29 3d bb 28 4e 24 29  |N$):P(J,6)=.(N$)|
000018b0  0d 05 6e 3f e7 c1 52 45  24 28 4a 2c 33 29 2c 31  |..n?..RE$(J,3),1|
000018c0  2c 31 29 3d 22 31 22 8c  e7 4e 24 3d 52 45 24 28  |,1)="1"..N$=RE$(|
000018d0  4a 2c 34 29 8c 4e 24 3d  c4 bb 28 52 45 24 28 4a  |J,4).N$=..(RE$(J|
000018e0  2c 32 29 29 2c 22 20 22  29 3a e5 8d 74 4c 45 0d  |,2))," "):..tLE.|
000018f0  05 78 0f 52 45 24 28 4a  2c 34 29 3d 4e 24 0d 05  |.x.RE$(J,4)=N$..|
00001900  82 32 e7 54 59 24 3d 22  37 22 84 54 59 24 3d 22  |.2.TY$="7".TY$="|
00001910  38 22 84 54 59 24 3d 22  30 22 8c 54 52 4d 3d bb  |8".TY$="0".TRM=.|
00001920  28 52 45 24 28 4a 2c 35  29 29 3a f2 54 52 49 4d  |(RE$(J,5)):.TRIM|
00001930  0d 05 8c 30 e7 a9 28 4e  24 29 3e bb 28 52 45 24  |...0..(N$)>.(RE$|
00001940  28 4a 2c 32 29 29 8c 4e  24 3d c0 4e 24 2c bb 28  |(J,2)).N$=.N$,.(|
00001950  52 45 24 28 4a 2c 32 29  29 29 3a e5 8d 74 6a 45  |RE$(J,2))):..tjE|
00001960  0d 05 96 40 e7 54 59 24  3d 22 37 22 84 54 59 24  |...@.TY$="7".TY$|
00001970  3d 22 38 22 84 54 59 24  3d 22 30 22 8c 4e 24 3d  |="8".TY$="0".N$=|
00001980  c4 bb 28 52 45 24 28 4a  2c 32 29 29 2d a9 28 4e  |..(RE$(J,2))-.(N|
00001990  24 29 2c 22 20 22 29 2b  4e 24 3a e5 8d 74 6a 45  |$)," ")+N$:..tjE|
000019a0  0d 05 a0 21 4e 24 3d 4e  24 2b c4 bb 28 52 45 24  |...!N$=N$+..(RE$|
000019b0  28 4a 2c 32 29 29 2d a9  28 4e 24 29 2c 22 20 22  |(J,2))-.(N$)," "|
000019c0  29 0d 05 aa 18 f1 4e 24  3b 3a e7 4a 3d 53 46 25  |).....N$;:.J=SF%|
000019d0  8c f1 3a 8b f1 22 20 22  3b 0d 05 b4 06 ed 4a 0d  |..:.." ";.....J.|
000019e0  05 be 7c 54 25 3d 54 4e  54 25 3a ed 49 3a f1 c4  |..|T%=TNT%:.I:..|
000019f0  52 4c 45 25 2c 48 48 24  29 3a f2 50 52 4f 50 53  |RLE%,HH$):.PROPS|
00001a00  3a 44 3d 28 52 4c 45 25  2d a9 28 53 55 24 29 29  |:D=(RLE%-.(SU$))|
00001a10  2f 32 3a f1 27 89 28 44  29 3b 46 54 24 3a ef 33  |/2:.'.(D);FT$:.3|
00001a20  3a ff 22 53 50 4f 4f 4c  22 3a f1 22 28 45 6e 64  |:."SPOOL":."(End|
00001a30  20 6f 66 20 52 65 70 6f  72 74 29 22 3a ff 22 46  | of Report)":."F|
00001a40  58 32 31 2c 39 22 3a f5  3a c8 97 20 55 2c 55 2c  |X21,9":.:.. U,U,|
00001a50  42 55 54 3a fd 20 42 55  54 3d 32 0d 05 c8 2c eb  |BUT:. BUT=2...,.|
00001a60  31 35 3a 87 3a c8 97 ee  3a fb 46 47 25 3a ef 31  |15:.:...:.FG%:.1|
00001a70  39 2c 31 2c 32 34 2c 30  2c 36 39 2c 32 30 30 3a  |9,1,24,0,69,200:|
00001a80  db 3a e5 8d 74 7c 42 0d  05 d2 0b dd f2 50 52 4f  |.:..t|B......PRO|
00001a90  50 53 0d 05 dc 12 e7 53  41 4d 53 25 3d 30 8c e5  |PS.....SAMS%=0..|
00001aa0  8d 54 52 47 0d 05 e6 0f  e7 54 25 3d 30 8c e5 8d  |.TRG.....T%=0...|
00001ab0  54 6c 46 0d 05 f0 1c f1  22 54 6f 74 2e 22 2b c4  |TlF....."Tot."+.|
00001ac0  4c 42 25 2d 34 2c 22 20  22 29 2b 22 20 22 3b 0d  |LB%-4," ")+" ";.|
00001ad0  05 fa 3a e3 4a 3d 31 b8  53 46 25 3a e7 c1 52 45  |..:.J=1.SF%:..RE|
00001ae0  24 28 4a 2c 33 29 2c 32  2c 31 29 3d 22 30 22 8c  |$(J,3),2,1)="0".|
00001af0  f1 c4 bb 28 52 45 24 28  4a 2c 32 29 29 2c 22 20  |...(RE$(J,2))," |
00001b00  22 29 3b 3a e5 8d 54 58  46 0d 06 04 58 4e 24 3d  |");:..TXF...XN$=|
00001b10  c3 28 50 28 4a 2c 31 29  29 3a 54 52 4d 3d bb 28  |.(P(J,1)):TRM=.(|
00001b20  52 45 24 28 4a 2c 35 29  29 3a f2 54 52 49 4d 3a  |RE$(J,5)):.TRIM:|
00001b30  e7 a9 28 4e 24 29 3e bb  28 52 45 24 28 4a 2c 32  |..(N$)>.(RE$(J,2|
00001b40  29 29 8c 4e 24 3d c2 4e  24 2c bb 28 52 45 24 28  |)).N$=.N$,.(RE$(|
00001b50  4a 2c 32 29 29 29 3a f1  4e 24 3b 3a e5 8d 54 58  |J,2))):.N$;:..TX|
00001b60  46 0d 06 0e 20 f1 c4 bb  28 52 45 24 28 4a 2c 32  |F... ...(RE$(J,2|
00001b70  29 29 2d a9 28 4e 24 29  2c 22 20 22 29 2b 4e 24  |))-.(N$)," ")+N$|
00001b80  3b 0d 06 18 13 e7 4a 3d  53 46 25 8c f1 3a 8b f1  |;.....J=SF%..:..|
00001b90  22 20 22 3b 0d 06 22 06  ed 4a 0d 06 2c 0f e7 41  |" ";.."..J..,..A|
00001ba0  25 3d 30 8c e5 8d 74 46  46 0d 06 36 10 e7 43 4f  |%=0...tFF..6..CO|
00001bb0  25 3d 30 8c 43 4f 25 3d  31 0d 06 40 21 e3 4a 3d  |%=0.CO%=1..@!.J=|
00001bc0  31 b8 53 46 25 3a 50 28  4a 2c 32 29 3d 50 28 4a  |1.SF%:P(J,2)=P(J|
00001bd0  2c 32 29 2f 43 4f 25 3a  ed 4a 0d 06 4a 1c f1 22  |,2)/CO%:.J..J.."|
00001be0  41 76 67 2e 22 2b c4 4c  42 25 2d 34 2c 22 20 22  |Avg."+.LB%-4," "|
00001bf0  29 2b 22 20 22 3b 0d 06  54 3a e3 4a 3d 31 b8 53  |)+" ";..T:.J=1.S|
00001c00  46 25 3a e7 c1 52 45 24  28 4a 2c 33 29 2c 33 2c  |F%:..RE$(J,3),3,|
00001c10  31 29 3d 22 30 22 8c f1  c4 bb 28 52 45 24 28 4a  |1)="0"....(RE$(J|
00001c20  2c 32 29 29 2c 22 20 22  29 3b 3a e5 8d 44 72 46  |,2))," ");:..DrF|
00001c30  0d 06 5e 58 4e 24 3d c3  28 50 28 4a 2c 32 29 29  |..^XN$=.(P(J,2))|
00001c40  3a 54 52 4d 3d bb 28 52  45 24 28 4a 2c 35 29 29  |:TRM=.(RE$(J,5))|
00001c50  3a f2 54 52 49 4d 3a e7  a9 28 4e 24 29 3e bb 28  |:.TRIM:..(N$)>.(|
00001c60  52 45 24 28 4a 2c 32 29  29 8c 4e 24 3d c2 4e 24  |RE$(J,2)).N$=.N$|
00001c70  2c bb 28 52 45 24 28 4a  2c 32 29 29 29 3a f1 4e  |,.(RE$(J,2))):.N|
00001c80  24 3b 3a e5 8d 44 72 46  0d 06 68 20 f1 c4 bb 28  |$;:..DrF..h ...(|
00001c90  52 45 24 28 4a 2c 32 29  29 2d a9 28 4e 24 29 2c  |RE$(J,2))-.(N$),|
00001ca0  22 20 22 29 2b 4e 24 3b  0d 06 72 13 e7 4a 3d 53  |" ")+N$;..r..J=S|
00001cb0  46 25 8c f1 3a 8b f1 22  20 22 3b 0d 06 7c 06 ed  |F%..:.." ";..|..|
00001cc0  4a 0d 06 86 10 e7 4d 31  25 3d 30 8c e5 8d 64 4c  |J.....M1%=0...dL|
00001cd0  46 0d 06 90 1c f1 22 4d  69 6e 2e 22 2b c4 4c 42  |F....."Min."+.LB|
00001ce0  25 2d 34 2c 22 20 22 29  2b 22 20 22 3b 0d 06 9a  |%-4," ")+" ";...|
00001cf0  3a e3 4a 3d 31 b8 53 46  25 3a e7 c1 52 45 24 28  |:.J=1.SF%:..RE$(|
00001d00  4a 2c 33 29 2c 34 2c 31  29 3d 22 30 22 8c f1 c4  |J,3),4,1)="0"...|
00001d10  bb 28 52 45 24 28 4a 2c  32 29 29 2c 22 20 22 29  |.(RE$(J,2))," ")|
00001d20  3b 3a e5 8d 74 78 46 0d  06 a4 58 4e 24 3d c3 28  |;:..txF...XN$=.(|
00001d30  50 28 4a 2c 33 29 29 3a  54 52 4d 3d bb 28 52 45  |P(J,3)):TRM=.(RE|
00001d40  24 28 4a 2c 35 29 29 3a  f2 54 52 49 4d 3a e7 a9  |$(J,5)):.TRIM:..|
00001d50  28 4e 24 29 3e bb 28 52  45 24 28 4a 2c 32 29 29  |(N$)>.(RE$(J,2))|
00001d60  8c 4e 24 3d c2 4e 24 2c  bb 28 52 45 24 28 4a 2c  |.N$=.N$,.(RE$(J,|
00001d70  32 29 29 29 3a f1 4e 24  3b 3a e5 8d 74 78 46 0d  |2))):.N$;:..txF.|
00001d80  06 ae 20 f1 c4 bb 28 52  45 24 28 4a 2c 32 29 29  |.. ...(RE$(J,2))|
00001d90  2d a9 28 4e 24 29 2c 22  20 22 29 2b 4e 24 3b 0d  |-.(N$)," ")+N$;.|
00001da0  06 b8 13 e7 4a 3d 53 46  25 8c f1 3a 8b f1 22 20  |....J=SF%..:.." |
00001db0  22 3b 0d 06 c2 06 ed 4a  0d 06 cc 10 e7 4d 32 25  |";.....J.....M2%|
00001dc0  3d 30 8c e5 8d 54 52 47  0d 06 d6 1c f1 22 4d 61  |=0...TRG....."Ma|
00001dd0  78 2e 22 2b c4 4c 42 25  2d 34 2c 22 20 22 29 2b  |x."+.LB%-4," ")+|
00001de0  22 20 22 3b 0d 06 e0 3a  e3 4a 3d 31 b8 53 46 25  |" ";...:.J=1.SF%|
00001df0  3a e7 c1 52 45 24 28 4a  2c 33 29 2c 35 2c 31 29  |:..RE$(J,3),5,1)|
00001e00  3d 22 30 22 8c f1 c4 bb  28 52 45 24 28 4a 2c 32  |="0"....(RE$(J,2|
00001e10  29 29 2c 22 20 22 29 3b  3a e5 8d 64 7e 46 0d 06  |))," ");:..d~F..|
00001e20  ea 58 4e 24 3d c3 28 50  28 4a 2c 34 29 29 3a 54  |.XN$=.(P(J,4)):T|
00001e30  52 4d 3d bb 28 52 45 24  28 4a 2c 35 29 29 3a f2  |RM=.(RE$(J,5)):.|
00001e40  54 52 49 4d 3a e7 a9 28  4e 24 29 3e bb 28 52 45  |TRIM:..(N$)>.(RE|
00001e50  24 28 4a 2c 32 29 29 8c  4e 24 3d c2 4e 24 2c bb  |$(J,2)).N$=.N$,.|
00001e60  28 52 45 24 28 4a 2c 32  29 29 29 3a f1 4e 24 3b  |(RE$(J,2))):.N$;|
00001e70  3a e5 8d 64 7e 46 0d 06  f4 20 f1 c4 bb 28 52 45  |:..d~F... ...(RE|
00001e80  24 28 4a 2c 32 29 29 2d  a9 28 4e 24 29 2c 22 20  |$(J,2))-.(N$)," |
00001e90  22 29 2b 4e 24 3b 0d 06  fe 13 e7 4a 3d 53 46 25  |")+N$;.....J=SF%|
00001ea0  8c f1 3a 8b f1 22 20 22  3b 0d 07 08 06 ed 4a 0d  |..:.." ";.....J.|
00001eb0  07 12 05 e1 0d 07 1c 62  cf 23 43 3d 28 43 52 25  |.......b.#C=(CR%|
00001ec0  2d 31 29 2a 52 45 43 25  2b bb 28 41 54 49 24 29  |-1)*REC%+.(ATI$)|
00001ed0  3a e8 23 43 2c 47 54 24  3a e7 41 54 59 24 3d 22  |:.#C,GT$:.ATY$="|
00001ee0  31 22 84 41 54 59 24 3d  22 32 22 84 41 54 59 24  |1".ATY$="2".ATY$|
00001ef0  3d 22 33 22 84 41 54 59  24 3d 22 34 22 84 41 54  |="3".ATY$="4".AT|
00001f00  59 24 3d 22 39 22 8c e7  47 54 24 3c 3e 47 46 24  |Y$="9"..GT$<>GF$|
00001f10  8c e5 8d 44 62 47 0d 07  26 29 e7 41 54 59 24 3d  |...DbG..&).ATY$=|
00001f20  22 35 22 8c e7 c1 47 54  24 2c 37 2c 32 29 3c 3e  |"5"...GT$,7,2)<>|
00001f30  c1 47 46 24 2c 37 2c 32  29 8c e5 8d 44 62 47 0d  |.GF$,7,2)...DbG.|
00001f40  07 30 29 e7 41 54 59 24  3d 22 36 22 8c e7 c1 47  |.0).ATY$="6"...G|
00001f50  54 24 2c 31 2c 32 29 3c  3e c1 47 46 24 2c 31 2c  |T$,1,2)<>.GF$,1,|
00001f60  32 29 8c e5 8d 44 62 47  0d 07 3a 40 e7 41 54 59  |2)...DbG..:@.ATY|
00001f70  24 3d 22 37 22 84 41 54  59 24 3d 22 38 22 84 41  |$="7".ATY$="8".A|
00001f80  54 59 24 3d 22 30 22 8c  e7 bb 28 47 54 24 29 3e  |TY$="0"...(GT$)>|
00001f90  53 54 25 2b 42 44 25 8c  53 54 25 3d bb 28 47 54  |ST%+BD%.ST%=.(GT|
00001fa0  24 29 3a e5 8d 44 62 47  0d 07 44 09 e5 8d 54 7c  |$):..DbG..D...T||
00001fb0  45 0d 07 4e 0d dd f2 45  4a 45 43 54 3a e1 0d 07  |E..N...EJECT:...|
00001fc0  58 05 e1 0d 07 62 0b 47  46 24 3d 47 54 24 0d 07  |X....b.GF$=GT$..|
00001fd0  6c 1b e7 47 54 59 25 3d  31 8c f1 27 3a f2 45 4a  |l..GTY%=1..':.EJ|
00001fe0  45 43 54 3a e5 8d 54 7c  45 0d 07 76 43 e7 47 54  |ECT:..T|E..vC.GT|
00001ff0  59 25 3d 32 8c f1 c4 52  4c 45 25 2c 22 2d 22 29  |Y%=2...RLE%,"-")|
00002000  3a f2 50 52 4f 50 53 3a  f2 45 4a 45 43 54 3a f2  |:.PROPS:.EJECT:.|
00002010  49 4e 49 54 3a f1 27 27  3a f2 46 49 45 4c 44 53  |INIT:.'':.FIELDS|
00002020  3a 43 4f 25 3d 30 3a e5  8d 54 7c 45 0d 07 80 32  |:CO%=0:..T|E...2|
00002030  f1 27 3b 3a e7 52 50 25  3d 31 8c f1 c4 4c 42 25  |.';:.RP%=1...LB%|
00002040  2c 22 20 22 29 3b 22 20  22 3b 3a 8b e7 53 41 4d  |," ");" ";:..SAM|
00002050  53 25 3d 31 8c f1 22 20  20 20 20 20 22 3b 0d 07  |S%=1.."     ";..|
00002060  8a 1c 48 45 24 3d 47 46  24 3a e7 47 54 59 25 3d  |..HE$=GF$:.GTY%=|
00002070  34 8c 48 45 24 3d 47 48  54 24 0d 07 94 11 e7 43  |4.HE$=GHT$.....C|
00002080  4f 25 3e 30 8c f2 45 4a  45 43 54 0d 07 9e 0e f1  |O%>0..EJECT.....|
00002090  48 45 24 3a e5 8d 54 7c  45 0d 07 a8 64 53 50 4c  |HE$:..T|E...dSPL|
000020a0  25 3d 31 3a 50 49 4e 25  3d 31 3a 53 43 52 25 3d  |%=1:PIN%=1:SCR%=|
000020b0  32 3a 47 50 25 3d 30 3a  47 54 59 25 3d 30 3a 52  |2:GP%=0:GTY%=0:R|
000020c0  50 25 3d 31 3a 46 57 52  25 3d 31 3a 44 53 25 3d  |P%=1:FWR%=1:DS%=|
000020d0  30 3a 51 46 25 3d 30 3a  53 55 24 3d 22 22 3a 46  |0:QF%=0:SU$="":F|
000020e0  54 24 3d 22 22 3a 44 49  25 3d 32 3a 42 44 24 3d  |T$="":DI%=2:BD$=|
000020f0  22 31 30 30 22 3a 42 44  25 3d 31 30 30 0d 07 b2  |"100":BD%=100...|
00002100  27 db 3a fb 31 38 30 3a  58 3d 31 3a 59 3d 31 3a  |'.:.180:X=1:Y=1:|
00002110  57 25 3d 36 30 3a 4c 25  3d 31 35 3a f2 4c 57 4e  |W%=60:L%=15:.LWN|
00002120  3a fb 34 35 0d 07 bc 63  f1 8a 33 2c 32 29 3b 22  |:.45...c..3,2);"|
00002130  48 65 61 64 65 72 3a 22  3b 8a 33 2c 33 29 3b 22  |Header:";.3,3);"|
00002140  46 6f 6f 74 65 72 3a 22  3b 8a 33 2c 35 29 3b 22  |Footer:";.3,5);"|
00002150  52 65 70 6f 72 74 20 74  6f 3a 20 50 72 69 6e 74  |Report to: Print|
00002160  65 72 22 3b 8a 31 34 2c  36 29 3b 22 53 63 72 65  |er";.14,6);"Scre|
00002170  65 6e 22 3b 8a 31 34 2c  37 29 3b 22 41 53 43 49  |en";.14,7);"ASCI|
00002180  49 20 46 69 6c 65 22 0d  07 c6 45 f1 8a 33 33 2c  |I File"...E..33,|
00002190  35 29 3b 22 53 63 72 65  65 6e 20 4d 6f 64 65 3a  |5);"Screen Mode:|
000021a0  20 34 30 20 78 20 33 32  22 3b 8a 34 36 2c 36 29  | 40 x 32";.46,6)|
000021b0  3b 22 38 30 20 78 20 33  32 22 3b 8a 34 36 2c 37  |;"80 x 32";.46,7|
000021c0  29 3b 22 31 33 32 20 78  20 33 32 22 0d 07 d0 58  |);"132 x 32"...X|
000021d0  f1 8a 33 2c 39 29 3b 22  52 65 63 6f 72 64 20 4e  |..3,9);"Record N|
000021e0  75 6d 62 65 72 73 3a 22  3b 8a 33 2c 31 30 29 3b  |umbers:";.3,10);|
000021f0  22 46 69 65 6c 64 20 54  69 74 6c 65 73 3a 22 3b  |"Field Titles:";|
00002200  8a 33 2c 31 31 29 3b 22  44 61 74 65 20 53 74 61  |.3,11);"Date Sta|
00002210  6d 70 22 3b 8a 33 2c 31  32 29 3b 22 46 69 6c 74  |mp";.3,12);"Filt|
00002220  65 72 3a 22 0d 07 da 70  f1 8a 33 33 2c 39 29 3b  |er:"...p..33,9);|
00002230  22 47 72 6f 75 70 69 6e  67 3a 20 53 65 70 65 72  |"Grouping: Seper|
00002240  61 74 65 22 3b 8a 34 33  2c 31 30 29 3b 22 4e 65  |ate";.43,10);"Ne|
00002250  77 20 52 65 70 6f 72 74  22 3b 8a 34 33 2c 31 31  |w Report";.43,11|
00002260  29 3b 22 53 75 62 2d 52  65 70 6f 72 74 22 3b 8a  |);"Sub-Report";.|
00002270  34 33 2c 31 32 29 3b 22  4e 6f 20 47 72 6f 75 70  |43,12);"No Group|
00002280  69 6e 67 22 3b 8a 33 33  2c 31 34 29 3b 22 42 61  |ing";.33,14);"Ba|
00002290  6e 64 3a 22 0d 07 e4 51  f1 8a 33 2c 31 36 29 3b  |nd:"...Q..3,16);|
000022a0  22 53 75 6d 6d 61 72 69  65 73 3a 20 22 3b bd 28  |"Summaries: ";.(|
000022b0  31 32 38 29 3b 22 20 20  53 61 76 65 20 52 65 70  |128);"  Save Rep|
000022c0  6f 72 74 3a 20 22 3b bd  28 31 32 38 29 3b 22 20  |ort: ";.(128);" |
000022d0  20 52 75 6e 20 52 65 70  6f 72 74 3a 20 22 3b bd  | Run Report: ";.|
000022e0  28 31 32 38 29 0d 07 ee  46 fb 31 32 37 3a fb 46  |(128)...F.127:.F|
000022f0  47 25 3a f2 50 31 3a f2  50 32 3a f2 50 33 3a f2  |G%:.P1:.P2:.P3:.|
00002300  50 34 3a f1 8a 31 31 2c  32 29 3b 53 55 24 3b 8a  |P4:..11,2);SU$;.|
00002310  31 31 2c 33 29 3b 46 54  24 3b 8a 33 39 2c 31 34  |11,3);FT$;.39,14|
00002320  29 3b 42 44 24 3a e5 8d  44 5c 48 0d 07 f8 48 dd  |);BD$:..D\H...H.|
00002330  f2 50 31 3a f1 8a 32 36  2c 35 29 3b bd 28 31 33  |.P1:..26,5);.(13|
00002340  30 29 3b 8a 32 36 2c 36  29 3b bd 28 31 33 30 29  |0);.26,6);.(130)|
00002350  3b 8a 32 36 2c 37 29 3b  bd 28 31 33 30 29 3a f1  |;.26,7);.(130):.|
00002360  8a 32 36 2c 44 49 25 2b  34 29 3b bd 28 31 33 31  |.26,DI%+4);.(131|
00002370  29 3a e1 0d 08 02 49 dd  f2 50 32 3a f1 8a 35 36  |):....I..P2:..56|
00002380  2c 35 29 3b bd 28 31 33  30 29 3b 8a 35 36 2c 36  |,5);.(130);.56,6|
00002390  29 3b bd 28 31 33 30 29  3b 8a 35 36 2c 37 29 3b  |);.(130);.56,7);|
000023a0  bd 28 31 33 30 29 3a f1  8a 35 36 2c 53 43 52 25  |.(130):..56,SCR%|
000023b0  2b 34 29 3b bd 28 31 33  31 29 3a e1 0d 08 0c 5b  |+4);.(131):....[|
000023c0  dd f2 50 34 3a f1 8a 35  36 2c 39 29 3b bd 28 31  |..P4:..56,9);.(1|
000023d0  33 30 29 3b 8a 35 36 2c  31 30 29 3b bd 28 31 33  |30);.56,10);.(13|
000023e0  30 29 3b 8a 35 36 2c 31  31 29 3b bd 28 31 33 30  |0);.56,11);.(130|
000023f0  29 3b 8a 35 36 2c 31 32  29 3b bd 28 31 33 30 29  |);.56,12);.(130)|
00002400  3a e7 47 50 25 3d 30 8c  f1 8a 35 36 2c 31 32 29  |:.GP%=0...56,12)|
00002410  3b bd 28 31 33 31 29 0d  08 16 1e e7 47 50 25 3d  |;.(131).....GP%=|
00002420  31 8c f1 8a 35 36 2c 47  54 59 25 2b 38 29 3b bd  |1...56,GTY%+8);.|
00002430  28 31 33 31 29 0d 08 20  05 e1 0d 08 2a 2e dd f2  |(131).. ....*...|
00002440  50 33 3a e7 52 50 25 3d  31 8c f1 8a 32 36 2c 39  |P3:.RP%=1...26,9|
00002450  29 3b bd 28 31 33 33 29  3a 8b f1 8a 32 36 2c 39  |);.(133):...26,9|
00002460  29 3b bd 28 31 33 30 29  0d 08 34 2c e7 46 57 52  |);.(130)..4,.FWR|
00002470  25 3d 31 8c f1 8a 32 36  2c 31 30 29 3b bd 28 31  |%=1...26,10);.(1|
00002480  33 33 29 3a 8b f1 8a 32  36 2c 31 30 29 3b bd 28  |33):...26,10);.(|
00002490  31 33 30 29 0d 08 3e 2b  e7 44 53 25 3d 31 8c f1  |130)..>+.DS%=1..|
000024a0  8a 32 36 2c 31 31 29 3b  bd 28 31 33 33 29 3a 8b  |.26,11);.(133):.|
000024b0  f1 8a 32 36 2c 31 31 29  3b bd 28 31 33 30 29 0d  |..26,11);.(130).|
000024c0  08 48 2b e7 51 46 25 3d  31 8c f1 8a 32 36 2c 31  |.H+.QF%=1...26,1|
000024d0  32 29 3b bd 28 31 33 33  29 3a 8b f1 8a 32 36 2c  |2);.(133):...26,|
000024e0  31 32 29 3b bd 28 31 33  30 29 0d 08 52 05 e1 0d  |12);.(130)..R...|
000024f0  08 5c 38 c8 97 20 58 50  2c 59 50 2c 42 55 54 3a  |.\8.. XP,YP,BUT:|
00002500  58 50 3d a8 28 58 50 2f  31 36 29 3a 59 50 3d 33  |XP=.(XP/16):YP=3|
00002510  31 2d a8 28 59 50 2f 33  32 29 3a e7 42 55 54 3d  |1-.(YP/32):.BUT=|
00002520  30 8c e5 8d 44 5c 48 0d  08 66 06 ef 37 0d 08 70  |0...D\H..f..7..p|
00002530  0f e7 59 50 3d 32 8c e5  8d 44 56 49 0d 08 7a 0f  |..YP=2...DVI..z.|
00002540  e7 59 50 3d 33 8c e5 8d  44 60 49 0d 08 84 10 e7  |.YP=3...D`I.....|
00002550  59 50 3d 31 34 8c e5 8d  44 6a 49 0d 08 8e 10 e7  |YP=14...DjI.....|
00002560  59 50 3d 31 36 8c e5 8d  44 74 49 0d 08 98 17 e7  |YP=16...DtI.....|
00002570  59 50 3c 38 20 80 20 58  50 3d 32 36 8c e5 8d 64  |YP<8 . XP=26...d|
00002580  4a 48 0d 08 a2 17 e7 59  50 3c 38 20 80 20 58 50  |JH.....YP<8 . XP|
00002590  3d 35 36 8c e5 8d 64 5e  48 0d 08 ac 18 e7 59 50  |=56...d^H.....YP|
000025a0  3c 31 33 20 80 20 58 50  3d 32 36 8c e5 8d 64 72  |<13 . XP=26...dr|
000025b0  48 0d 08 b6 18 e7 59 50  3c 31 33 20 80 20 58 50  |H.....YP<13 . XP|
000025c0  3d 35 36 8c e5 8d 54 6e  49 0d 08 c0 09 e5 8d 44  |=56...TnI......D|
000025d0  5c 48 0d 08 ca 0f e7 59  50 3c 35 8c e5 8d 44 5c  |\H.....YP<5...D\|
000025e0  48 0d 08 d4 16 44 49 25  3d 59 50 2d 34 3a f2 50  |H....DI%=YP-4:.P|
000025f0  31 3a e5 8d 44 5c 48 0d  08 de 0f e7 59 50 3c 35  |1:..D\H.....YP<5|
00002600  8c e5 8d 44 5c 48 0d 08  e8 17 53 43 52 25 3d 59  |...D\H....SCR%=Y|
00002610  50 2d 34 3a f2 50 32 3a  e5 8d 44 5c 48 0d 08 f2  |P-4:.P2:..D\H...|
00002620  0f e7 59 50 3c 39 8c e5  8d 44 5c 48 0d 08 fc 20  |..YP<9...D\H... |
00002630  e7 59 50 3d 39 8c 52 50  25 3d 52 50 25 2b 31 3a  |.YP=9.RP%=RP%+1:|
00002640  e7 52 50 25 3e 31 8c 52  50 25 3d 30 0d 09 06 25  |.RP%>1.RP%=0...%|
00002650  e7 59 50 3d 31 30 8c 46  57 52 25 3d 46 57 52 25  |.YP=10.FWR%=FWR%|
00002660  2b 31 3a e7 46 57 52 25  3e 31 8c 46 57 52 25 3d  |+1:.FWR%>1.FWR%=|
00002670  30 0d 09 10 21 e7 59 50  3d 31 31 8c 44 53 25 3d  |0...!.YP=11.DS%=|
00002680  44 53 25 2b 31 3a e7 44  53 25 3e 31 8c 44 53 25  |DS%+1:.DS%>1.DS%|
00002690  3d 30 0d 09 1a 21 e7 59  50 3d 31 32 8c 51 46 25  |=0...!.YP=12.QF%|
000026a0  3d 51 46 25 2b 31 3a e7  51 46 25 3e 31 8c 51 46  |=QF%+1:.QF%>1.QF|
000026b0  25 3d 30 0d 09 24 1d f5  3a c8 97 20 55 2c 55 2c  |%=0..$..:.. U,U,|
000026c0  42 3a fd 42 3d 30 3a f2  50 33 3a e5 8d 44 5c 48  |B:.B=0:.P3:..D\H|
000026d0  0d 09 2e 0f e7 59 50 3c  39 8c e5 8d 44 5c 48 0d  |.....YP<9...D\H.|
000026e0  09 38 16 e7 59 50 3d 31  32 8c 47 50 25 3d 30 3a  |.8..YP=12.GP%=0:|
000026f0  e5 8d 44 4c 49 0d 09 42  13 47 50 25 3d 31 3a 47  |..DLI..B.GP%=1:G|
00002700  54 59 25 3d 59 50 2d 38  0d 09 4c 0d f2 50 34 3a  |TY%=YP-8..L..P4:|
00002710  e5 8d 44 5c 48 0d 09 56  33 f1 8a 31 31 2c 32 29  |..D\H..V3..11,2)|
00002720  3b 89 28 34 32 29 3a 58  3d 31 31 3a 59 3d 32 3a  |;.(42):X=11:Y=2:|
00002730  4c 25 3d 34 30 3a f2 54  45 58 54 3a 53 55 24 3d  |L%=40:.TEXT:SU$=|
00002740  54 24 3a e5 8d 44 5c 48  0d 09 60 33 f1 8a 31 31  |T$:..D\H..`3..11|
00002750  2c 33 29 3b 89 28 34 32  29 3a 58 3d 31 31 3a 59  |,3);.(42):X=11:Y|
00002760  3d 33 3a 4c 25 3d 34 30  3a f2 54 45 58 54 3a 46  |=3:L%=40:.TEXT:F|
00002770  54 24 3d 54 24 3a e5 8d  44 5c 48 0d 09 6a 6d f1  |T$=T$:..D\H..jm.|
00002780  8a 33 39 2c 31 34 29 3b  89 28 32 30 29 3a 58 3d  |.39,14);.(20):X=|
00002790  33 39 3a 59 3d 31 34 3a  4c 25 3d 31 38 3a f2 54  |39:Y=14:L%=18:.T|
000027a0  45 58 54 3a 42 44 24 3d  54 24 3a 42 44 25 3d bb  |EXT:BD$=T$:BD%=.|
000027b0  28 42 44 24 29 3a e7 54  24 3d 22 22 8c 42 44 24  |(BD$):.T$="".BD$|
000027c0  3d 22 31 30 30 22 3a 42  44 25 3d 31 30 30 3a f1  |="100":BD%=100:.|
000027d0  8a 33 39 2c 31 34 29 3b  42 44 24 3a e5 8d 44 5c  |.39,14);BD$:..D\|
000027e0  48 3a 8b e5 8d 44 5c 48  0d 09 74 10 e7 58 50 3d  |H:...D\H..t..XP=|
000027f0  34 35 8c e5 8d 74 5c 49  0d 09 7e 10 e7 58 50 3d  |45...t\I..~..XP=|
00002800  31 34 8c e5 8d 54 40 4a  0d 09 88 10 e7 58 50 3d  |14...T@J.....XP=|
00002810  33 30 8c e5 8d 54 50 44  0d 09 92 09 e5 8d 44 5c  |30...TPD......D\|
00002820  48 0d 09 9c 29 4c 42 25  3d 34 3a e7 52 50 25 3d  |H...)LB%=4:.RP%=|
00002830  31 80 4e 4f 52 25 3e 39  39 39 39 8c 4c 42 25 3d  |1.NOR%>9999.LB%=|
00002840  a9 28 c3 28 4e 4f 52 25  29 29 0d 09 a6 20 e7 52  |.(.(NOR%))... .R|
00002850  50 25 3d 31 84 53 41 4d  53 25 3d 31 8c 52 4c 45  |P%=1.SAMS%=1.RLE|
00002860  25 3d 52 4c 45 25 2b 4c  42 25 0d 09 b0 2b 50 49  |%=RLE%+LB%...+PI|
00002870  4e 25 3d 44 49 25 3a 53  50 4c 25 3d 44 49 25 3a  |N%=DI%:SPL%=DI%:|
00002880  e7 53 4f 24 3d 22 31 22  8c e5 8d 64 5e 43 3a 8b  |.SO$="1"...d^C:.|
00002890  47 50 25 3d 30 0d 09 ba  57 e7 53 50 4c 25 3d 33  |GP%=0...W.SPL%=3|
000028a0  8c f1 8a 33 2c 32 30 29  3b 22 45 6e 74 65 72 20  |...3,20);"Enter |
000028b0  41 53 43 49 49 20 46 69  6c 65 6e 61 6d 65 3a 20  |ASCII Filename: |
000028c0  22 3b 3a 58 3d b1 3a 59  3d 32 30 3a 4c 25 3d 31  |";:X=.:Y=20:L%=1|
000028d0  30 3a f2 54 45 58 54 3a  61 73 66 24 3d 54 24 3a  |0:.TEXT:asf$=T$:|
000028e0  e7 54 24 3d 22 22 8c e5  8d 74 7a 49 0d 09 c4 1a  |.T$=""...tzI....|
000028f0  54 4e 54 25 3d 54 25 3a  e7 51 46 25 3d 31 8c db  |TNT%=T%:.QF%=1..|
00002900  3a e5 8d 44 7a 4d 0d 09  ce 3f 54 25 3d 54 4e 54  |:..DzM...?T%=TNT|
00002910  25 3a ff 22 43 4c 4f 53  45 22 3a 42 3d ad a4 4d  |%:."CLOSE":B=..M|
00002920  79 46 69 6c 65 28 46 4f  24 29 3a 43 3d ad a4 4d  |yFile(FO$):C=..M|
00002930  79 46 69 6c 65 28 46 49  24 29 3a e7 54 25 3e 30  |yFile(FI$):.T%>0|
00002940  8c 54 25 3d 31 0d 09 d8  0e e7 41 25 3e 30 8c 41  |.T%=1.....A%>0.A|
00002950  25 3d 31 0d 09 e2 10 e7  4d 31 25 3e 30 8c 4d 31  |%=1.....M1%>0.M1|
00002960  25 3d 31 0d 09 ec 10 e7  4d 32 25 3e 30 8c 4d 32  |%=1.....M2%>0.M2|
00002970  25 3d 31 0d 09 f6 0f f2  49 4e 49 54 3a e5 8d 74  |%=1.....INIT:..t|
00002980  52 44 0d 0a 00 81 db 3a  fb 31 38 30 3a 58 3d 32  |RD.....:.180:X=2|
00002990  3a 59 3d 32 3a 57 25 3d  36 33 3a 4c 25 3d 53 46  |:Y=2:W%=63:L%=SF|
000029a0  25 2b 32 3a f2 4c 57 4e  3a f1 8a 33 2c 33 29 3b  |%+2:.LWN:..3,3);|
000029b0  22 46 69 65 6c 64 20 20  20 20 20 20 20 20 20 20  |"Field          |
000029c0  20 20 20 20 20 20 20 53  75 6d 20 20 41 76 67 20  |       Sum  Avg |
000029d0  20 4d 69 6e 20 20 4d 61  78 20 20 50 72 69 6e 74  | Min  Max  Print|
000029e0  20 20 44 65 63 69 6d 61  6c 20 50 6c 61 63 65 73  |  Decimal Places|
000029f0  22 3b 8a 33 2c 34 29 3b  c4 36 33 2c bd 28 32 34  |";.3,4);.63,.(24|
00002a00  31 29 29 0d 0a 0a 63 e3  49 3d 31 b8 53 46 25 3a  |1))...c.I=1.SF%:|
00002a10  f1 8a 33 2c 49 2b 34 29  3b c1 52 45 24 28 49 2c  |..3,I+4);.RE$(I,|
00002a20  31 29 2c 34 29 3a 4c 3d  32 35 3a e3 46 3d 32 b8  |1),4):L=25:.F=2.|
00002a30  36 3a e7 c1 52 45 24 28  49 2c 33 29 2c 46 2c 31  |6:..RE$(I,3),F,1|
00002a40  29 3d 22 30 22 8c f1 8a  4c 2c 49 2b 34 29 3b bd  |)="0"...L,I+4);.|
00002a50  28 31 33 32 29 3a 8b f1  8a 4c 2c 49 2b 34 29 3b  |(132):...L,I+4);|
00002a60  bd 28 31 32 38 29 0d 0a  14 40 4c 3d 4c 2b 35 3a  |.(128)...@L=L+5:|
00002a70  ed 46 3a e7 c0 52 45 24  28 49 2c 33 29 2c 31 29  |.F:..RE$(I,3),1)|
00002a80  3d 22 30 22 8c f1 8a 34  35 2c 49 2b 34 29 3b 22  |="0"...45,I+4);"|
00002a90  61 6c 6c 22 3a 8b f1 8a  34 35 2c 49 2b 34 29 3b  |all":...45,I+4);|
00002aa0  22 6f 6e 63 65 22 0d 0a  1e 3d e7 52 45 24 28 49  |"once"...=.RE$(I|
00002ab0  2c 35 29 3d 22 31 30 22  8c f1 8a 35 32 2c 49 2b  |,5)="10"...52,I+|
00002ac0  34 29 3b 22 61 73 20 65  6e 74 65 72 65 64 22 3a  |4);"as entered":|
00002ad0  8b f1 8a 35 32 2c 49 2b  34 29 3b 52 45 24 28 49  |...52,I+4);RE$(I|
00002ae0  2c 35 29 0d 0a 28 06 ed  49 0d 0a 32 38 c8 97 20  |,5)..(..I..28.. |
00002af0  58 50 2c 59 50 2c 42 55  54 3a 58 50 3d a8 28 58  |XP,YP,BUT:XP=.(X|
00002b00  50 2f 31 36 29 3a 59 50  3d 33 31 2d a8 28 59 50  |P/16):YP=31-.(YP|
00002b10  2f 33 32 29 3a e7 42 55  54 3d 30 8c e5 8d 54 72  |/32):.BUT=0...Tr|
00002b20  4a 0d 0a 3c 15 e7 42 55  54 3d 31 8c fb 46 47 25  |J..<..BUT=1..FG%|
00002b30  3a e5 8d 74 74 4a 0d 0a  46 23 43 4c 25 3d 59 50  |:..ttJ..F#CL%=YP|
00002b40  2d 34 3a e7 43 4c 25 3c  31 20 84 20 43 4c 25 3e  |-4:.CL%<1 . CL%>|
00002b50  53 46 25 8c e5 8d 54 72  4a 0d 0a 50 19 e7 58 50  |SF%...TrJ..P..XP|
00002b60  3e 34 34 20 80 20 58 50  3c 34 39 20 8c e5 8d 64  |>44 . XP<49 ...d|
00002b70  66 4a 0d 0a 5a 19 e7 58  50 3e 35 31 20 80 20 58  |fJ..Z..XP>51 . X|
00002b80  50 3c 36 32 20 8c e5 8d  54 44 4b 0d 0a 64 13 4c  |P<62 ...TDK..d.L|
00002b90  3d 30 3a e7 58 50 3d 32  35 20 8c 4c 3d 32 0d 0a  |=0:.XP=25 .L=2..|
00002ba0  6e 0f e7 58 50 3d 33 30  20 8c 4c 3d 33 0d 0a 78  |n..XP=30 .L=3..x|
00002bb0  0f e7 58 50 3d 33 35 20  8c 4c 3d 34 0d 0a 82 0f  |..XP=35 .L=4....|
00002bc0  e7 58 50 3d 34 30 20 8c  4c 3d 35 0d 0a 8c 0e e7  |.XP=40 .L=5.....|
00002bd0  4c 3d 30 8c e5 8d 54 72  4a 0d 0a 96 5c 54 31 24  |L=0...TrJ...\T1$|
00002be0  3d c0 52 45 24 28 43 4c  25 2c 33 29 2c 4c 2d 31  |=.RE$(CL%,3),L-1|
00002bf0  29 3a 54 32 24 3d c1 52  45 24 28 43 4c 25 2c 33  |):T2$=.RE$(CL%,3|
00002c00  29 2c 4c 2b 31 29 3a 54  33 24 3d c1 52 45 24 28  |),L+1):T3$=.RE$(|
00002c10  43 4c 25 2c 33 29 2c 4c  2c 31 29 3a e7 54 33 24  |CL%,3),L,1):.T3$|
00002c20  3d 22 30 22 8c 54 33 24  3d 22 31 22 3a 8b 54 33  |="0".T3$="1":.T3|
00002c30  24 3d 22 30 22 0d 0a a0  44 52 45 24 28 43 4c 25  |$="0"...DRE$(CL%|
00002c40  2c 33 29 3d 54 31 24 2b  54 33 24 2b 54 32 24 3a  |,3)=T1$+T3$+T2$:|
00002c50  e7 54 33 24 3d 22 30 22  8c f1 8a 58 50 2c 59 50  |.T3$="0"...XP,YP|
00002c60  29 3b bd 28 31 33 32 29  3a 8b f1 8a 58 50 2c 59  |);.(132):...XP,Y|
00002c70  50 29 3b bd 28 31 32 38  29 0d 0a aa 19 f5 3a c8  |P);.(128).....:.|
00002c80  97 20 55 2c 55 2c 42 3a  fd 42 3d 30 3a e5 8d 54  |. U,U,B:.B=0:..T|
00002c90  72 4a 0d 0a b4 4e 53 41  4d 53 25 3d 30 3a 54 25  |rJ...NSAMS%=0:T%|
00002ca0  3d 30 3a 41 25 3d 30 3a  4d 31 25 3d 30 3a 4d 32  |=0:A%=0:M1%=0:M2|
00002cb0  25 3d 30 3a e3 49 3d 31  b8 53 46 25 3a e7 c1 52  |%=0:.I=1.SF%:..R|
00002cc0  45 24 28 49 2c 33 29 2c  32 2c 31 29 3d 22 31 22  |E$(I,3),2,1)="1"|
00002cd0  8c 54 25 3d 54 25 2b 31  3a 53 41 4d 53 25 3d 31  |.T%=T%+1:SAMS%=1|
00002ce0  0d 0a be 27 e7 c1 52 45  24 28 49 2c 33 29 2c 33  |...'..RE$(I,3),3|
00002cf0  2c 31 29 3d 22 31 22 8c  41 25 3d 41 25 2b 31 3a  |,1)="1".A%=A%+1:|
00002d00  53 41 4d 53 25 3d 31 0d  0a c8 29 e7 c1 52 45 24  |SAMS%=1...)..RE$|
00002d10  28 49 2c 33 29 2c 34 2c  31 29 3d 22 31 22 8c 4d  |(I,3),4,1)="1".M|
00002d20  31 25 3d 4d 31 25 2b 31  3a 53 41 4d 53 25 3d 31  |1%=M1%+1:SAMS%=1|
00002d30  0d 0a d2 29 e7 c1 52 45  24 28 49 2c 33 29 2c 35  |...)..RE$(I,3),5|
00002d40  2c 31 29 3d 22 31 22 8c  4d 32 25 3d 4d 32 25 2b  |,1)="1".M2%=M2%+|
00002d50  31 3a 53 41 4d 53 25 3d  31 0d 0a dc 0c ed 49 3a  |1:SAMS%=1.....I:|
00002d60  e5 8d 74 72 47 0d 0a e6  30 54 33 24 3d c0 52 45  |..trG...0T3$=.RE|
00002d70  24 28 43 4c 25 2c 33 29  2c 31 29 3a e7 54 33 24  |$(CL%,3),1):.T3$|
00002d80  3d 22 30 22 8c 54 33 24  3d 22 31 22 3a 8b 54 33  |="0".T3$="1":.T3|
00002d90  24 3d 22 30 22 0d 0a f0  4b 52 45 24 28 43 4c 25  |$="0"...KRE$(CL%|
00002da0  2c 33 29 3d 54 33 24 2b  c2 52 45 24 28 43 4c 25  |,3)=T3$+.RE$(CL%|
00002db0  2c 33 29 2c 35 29 3a e7  54 33 24 3d 22 30 22 8c  |,3),5):.T3$="0".|
00002dc0  f1 8a 34 35 2c 59 50 29  3b 22 61 6c 6c 20 22 3a  |..45,YP);"all ":|
00002dd0  8b f1 8a 34 35 2c 59 50  29 3b 22 6f 6e 63 65 22  |...45,YP);"once"|
00002de0  0d 0a fa 19 f5 3a c8 97  20 55 2c 55 2c 42 3a fd  |.....:.. U,U,B:.|
00002df0  42 3d 30 3a e5 8d 54 72  4a 0d 0b 04 42 f1 8a 35  |B=0:..TrJ...B..5|
00002e00  32 2c 59 50 29 3b 89 28  31 30 29 3a 58 3d 35 32  |2,YP);.(10):X=52|
00002e10  3a 59 3d 59 50 3a 4c 25  3d 31 3a f2 54 45 58 54  |:Y=YP:L%=1:.TEXT|
00002e20  3a e7 54 24 3d 22 22 8c  54 24 3d 22 32 22 3a 8b  |:.T$="".T$="2":.|
00002e30  54 24 3d c3 28 bb 28 54  24 29 29 0d 0b 0e 3d 52  |T$=.(.(T$))...=R|
00002e40  45 24 28 43 4c 25 2c 35  29 3d 54 24 3a e7 54 24  |E$(CL%,5)=T$:.T$|
00002e50  3d 22 31 30 22 8c f1 8a  35 32 2c 59 50 29 3b 22  |="10"...52,YP);"|
00002e60  61 73 20 65 6e 74 65 72  65 64 22 3a 8b f1 8a 35  |as entered":...5|
00002e70  32 2c 59 50 29 3b 54 24  0d 0b 18 09 e5 8d 64 7a  |2,YP);T$......dz|
00002e80  4a 0d 0b 22 79 db 3a 43  4f 4c 25 3d 31 3a 4c 49  |J.."y.:COL%=1:LI|
00002e90  4e 25 3d 31 3a fb 31 33  31 3a f1 8a 32 39 2c 31  |N%=1:.131:..29,1|
00002ea0  29 3b 22 4c 61 62 65 6c  20 44 65 73 69 67 6e 20  |);"Label Design |
00002eb0  53 63 72 65 65 6e 22 3a  fb 31 38 30 3a 58 3d 30  |Screen":.180:X=0|
00002ec0  3a 59 3d 33 3a 57 25 3d  37 38 3a 4c 25 3d 38 3a  |:Y=3:W%=78:L%=8:|
00002ed0  f2 4c 57 4e 3a e3 49 3d  31 b8 38 3a f1 8a 31 2c  |.LWN:.I=1.8:..1,|
00002ee0  49 2b 33 29 3b 22 4c 69  6e 65 20 22 3b 49 3b 22  |I+3);"Line ";I;"|
00002ef0  3a 22 3a ed 49 3a fb 46  47 25 0d 0b 2c 36 e3 49  |:":.I:.FG%..,6.I|
00002f00  3d 31 b8 38 3a e3 46 3d  31 b8 36 3a 4c 41 25 28  |=1.8:.F=1.6:LA%(|
00002f10  46 2c 49 29 3d 30 3a ed  46 3a ed 49 3a e3 49 3d  |F,I)=0:.F:.I:.I=|
00002f20  31 b8 35 3a 41 43 52 25  28 49 29 3d 30 3a ed 49  |1.5:ACR%(I)=0:.I|
00002f30  0d 0b 36 a7 58 3d 36 3a  59 3d 31 35 3a 57 25 3d  |..6.X=6:Y=15:W%=|
00002f40  33 30 3a 4c 25 3d 36 3a  f2 4c 57 4e 3a f1 8a 37  |30:L%=6:.LWN:..7|
00002f50  2c 31 36 29 3b 22 4c 69  6e 65 20 3a 22 3b 8a 37  |,16);"Line :";.7|
00002f60  2c 31 37 29 3b 22 46 69  65 6c 64 3a 22 3b 8a 37  |,17);"Field:";.7|
00002f70  2c 31 39 29 3b 22 4c 65  66 74 20 42 75 74 74 6f  |,19);"Left Butto|
00002f80  6e 20 20 3a 20 53 65 6c  65 63 74 20 66 69 65 6c  |n  : Select fiel|
00002f90  64 22 3b 8a 37 2c 32 30  29 3b 22 4d 69 64 64 6c  |d";.7,20);"Middl|
00002fa0  65 20 42 75 74 74 6f 6e  3a 20 4e 65 78 74 20 6c  |e Button: Next l|
00002fb0  69 6e 65 22 3b 8a 37 2c  32 31 29 3b 22 52 69 67  |ine";.7,21);"Rig|
00002fc0  68 74 20 42 75 74 74 6f  6e 20 3a 20 45 6e 64 20  |ht Button : End |
00002fd0  64 65 73 69 67 6e 22 0d  0b 40 1b f1 8a 39 2c 4c  |design"..@...9,L|
00002fe0  49 4e 25 2b 33 29 3b 22  22 3b 3a 78 3d b1 3a 79  |IN%+3);"";:x=.:y|
00002ff0  3d bc 0d 0b 4a 94 f1 8a  31 34 2c 31 36 29 3b 4c  |=...J...14,16);L|
00003000  49 4e 25 3b 8a 31 34 2c  31 37 29 3b 43 4f 4c 25  |IN%;.14,17);COL%|
00003010  3b 3a fb 31 33 31 3a f1  8a 78 2c 79 29 3b bd 28  |;:.131:..x,y);.(|
00003020  32 35 35 29 3a fb 46 47  25 3a f2 53 45 4c 32 3a  |255):.FG%:.SEL2:|
00003030  f1 8a 78 2c 79 29 3b 46  4c 24 3b 22 20 22 3b 3a  |..x,y);FL$;" ";:|
00003040  78 3d b1 3a 79 3d bc 3a  4c 41 25 28 43 4f 4c 25  |x=.:y=.:LA%(COL%|
00003050  2c 4c 49 4e 25 29 3d 53  46 25 3a 43 4f 4c 25 3d  |,LIN%)=SF%:COL%=|
00003060  43 4f 4c 25 2b 31 3a e7  43 4f 4c 25 3e 36 8c f1  |COL%+1:.COL%>6..|
00003070  8a 78 2c 79 29 3b 22 20  22 3a e5 8d 44 54 4b 3a  |.x,y);" ":..DTK:|
00003080  8b e5 8d 44 4a 4b 0d 0b  54 43 4c 49 4e 25 3d 4c  |...DJK..TCLIN%=L|
00003090  49 4e 25 2b 31 3a e7 4c  49 4e 25 3e 38 8c e5 8d  |IN%+1:.LIN%>8...|
000030a0  44 68 4b 3a 8b f1 8a 39  2c 4c 49 4e 25 2b 33 29  |DhK:...9,LIN%+3)|
000030b0  3b 22 22 3b 3a 78 3d b1  3a 79 3d bc 3a 43 4f 4c  |;"";:x=.:y=.:COL|
000030c0  25 3d 31 3a e5 8d 44 4a  4b 0d 0b 5e 26 e7 43 4f  |%=1:..DJK..^&.CO|
000030d0  4c 25 3d 31 8c e5 8d 44  4a 4b 3a 8b f1 8a 78 2c  |L%=1...DJK:...x,|
000030e0  79 29 3b bd 28 31 33 36  29 3a e5 8d 44 54 4b 0d  |y);.(136):..DTK.|
000030f0  0b 68 7c f1 8a 78 2c 79  29 3b bd 28 31 33 36 29  |.h|..x,y);.(136)|
00003100  3a 46 47 25 3d 31 38 30  3a fb 46 47 25 3a ef 32  |:FG%=180:.FG%:.2|
00003110  38 2c 30 2c 33 31 2c 37  39 2c 31 35 3a db 3a ef  |8,0,31,79,15:.:.|
00003120  32 36 3a 4c 41 57 25 3d  33 36 3a 4c 41 44 25 3d  |26:LAW%=36:LAD%=|
00003130  39 3a 4c 41 43 25 3d 31  3a 58 3d 34 30 3a 59 3d  |9:LAC%=1:X=40:Y=|
00003140  31 35 3a 57 25 3d 31 39  3a 4c 25 3d 33 3a f2 4c  |15:W%=19:L%=3:.L|
00003150  57 4e 3a 58 3d 36 3a 59  3d 31 35 3a 57 25 3d 32  |WN:X=6:Y=15:W%=2|
00003160  36 3a 4c 25 3d 35 3a f2  4c 57 4e 0d 0b 72 18 e7  |6:L%=5:.LWN..r..|
00003170  4c 49 4e 25 3d 31 80 43  4f 4c 25 3d 31 8c e5 8d  |LIN%=1.COL%=1...|
00003180  54 62 4b 0d 0b 7c 17 e7  43 4f 4c 25 3d 31 8c 4c  |TbK..|..COL%=1.L|
00003190  49 4e 25 3d 4c 49 4e 25  2d 31 0d 0b 86 70 f1 8a  |IN%=LIN%-1...p..|
000031a0  34 31 2c 31 36 29 3b 22  4c 61 62 65 6c 73 20 61  |41,16);"Labels a|
000031b0  63 72 6f 73 73 3a 20 22  3b 4c 41 43 25 3b 22 20  |cross: ";LAC%;" |
000031c0  20 22 3b 8a 34 31 2c 31  37 29 3b 22 4c 61 62 65  | ";.41,17);"Labe|
000031d0  6c 20 77 69 64 74 68 20  20 3a 20 22 3b 4c 41 57  |l width  : ";LAW|
000031e0  25 3b 22 20 20 22 3b 8a  34 31 2c 31 38 29 3b 22  |%;"  ";.41,18);"|
000031f0  4c 61 62 65 6c 20 64 65  70 74 68 20 20 3a 20 22  |Label depth  : "|
00003200  3b 4c 41 44 25 3b 22 20  20 22 0d 0b 90 9e 4d 45  |;LAD%;"  "....ME|
00003210  24 28 31 29 3d 22 43 68  61 6e 67 65 20 70 61 72  |$(1)="Change par|
00003220  61 6d 65 74 65 72 73 22  3a 4d 45 24 28 32 29 3d  |ameters":ME$(2)=|
00003230  22 53 61 76 65 20 6c 61  62 65 6c 20 64 65 73 69  |"Save label desi|
00003240  67 6e 22 3a 4d 45 24 28  33 29 3d 22 50 72 69 6e  |gn":ME$(3)="Prin|
00003250  74 20 6c 61 62 65 6c 73  22 3a 4d 45 24 28 34 29  |t labels":ME$(4)|
00003260  3d 22 50 72 69 6e 74 20  6c 61 62 65 6c 73 20 77  |="Print labels w|
00003270  69 74 68 20 66 69 6c 74  65 72 22 3a 4d 45 24 28  |ith filter":ME$(|
00003280  35 29 3d 22 41 62 61 6e  64 6f 6e 20 6c 61 62 65  |5)="Abandon labe|
00003290  6c 22 3a 58 3d 37 3a 59  3d 31 36 3a 4c 25 3d 35  |l":X=7:Y=16:L%=5|
000032a0  3a f2 53 45 4c 45 43 54  0d 0b 9a 11 e7 53 45 4c  |:.SELECT.....SEL|
000032b0  25 3d 35 8c e5 8d 74 7c  42 0d 0b a4 21 20 ee 20  |%=5...t|B...! . |
000032c0  53 45 4c 25 20 e5 20 8d  74 6e 4b 2c 8d 64 56 4b  |SEL% . .tnK,.dVK|
000032d0  2c 8d 64 7e 4b 2c 8d 64  6a 4b 0d 0b ae 67 f1 8a  |,.d~K,.djK...g..|
000032e0  35 36 2c 31 36 29 3b 89  28 33 29 3b 8a 35 36 2c  |56,16);.(3);.56,|
000032f0  31 37 29 3b 89 28 33 29  3b 8a 35 36 2c 31 38 29  |17);.(3);.56,18)|
00003300  3b 89 28 33 29 3a 58 3d  35 36 3a 59 3d 31 36 3a  |;.(3):X=56:Y=16:|
00003310  4c 25 3d 31 3a f2 54 45  58 54 3a 4c 41 43 25 3d  |L%=1:.TEXT:LAC%=|
00003320  bb 28 54 24 29 3a e7 54  24 3d 22 22 8c 4c 41 43  |.(T$):.T$="".LAC|
00003330  25 3d 31 3a f1 8a 35 36  2c 31 36 29 3b 4c 41 43  |%=1:..56,16);LAC|
00003340  25 0d 0b b8 40 58 3d 35  36 3a 59 3d 31 37 3a 4c  |%...@X=56:Y=17:L|
00003350  25 3d 32 3a f2 54 45 58  54 3a 4c 41 57 25 3d bb  |%=2:.TEXT:LAW%=.|
00003360  28 54 24 29 3a e7 54 24  3d 22 22 8c 4c 41 57 25  |(T$):.T$="".LAW%|
00003370  3d 33 36 3a f1 8a 35 36  2c 31 37 29 3b 4c 41 57  |=36:..56,17);LAW|
00003380  25 0d 0b c2 3f 58 3d 35  36 3a 59 3d 31 38 3a 4c  |%...?X=56:Y=18:L|
00003390  25 3d 32 3a f2 54 45 58  54 3a 4c 41 44 25 3d bb  |%=2:.TEXT:LAD%=.|
000033a0  28 54 24 29 3a e7 54 24  3d 22 22 8c 4c 41 44 25  |(T$):.T$="".LAD%|
000033b0  3d 39 3a f1 8a 35 36 2c  31 38 29 3b 4c 41 44 25  |=9:..56,18);LAD%|
000033c0  0d 0b cc 09 e5 8d 74 50  4b 0d 0b d6 83 57 57 25  |......tPK....WW%|
000033d0  3d 57 25 3a 58 3d 36 3a  59 3d 32 33 3a 57 25 3d  |=W%:X=6:Y=23:W%=|
000033e0  33 34 3a 4c 25 3d 31 3a  f2 4c 57 4e 3a 57 25 3d  |34:L%=1:.LWN:W%=|
000033f0  57 57 25 3a f1 8a 37 2c  32 34 29 3b 22 45 6e 74  |WW%:..7,24);"Ent|
00003400  65 72 20 6c 61 62 65 6c  20 66 69 6c 65 6e 61 6d  |er label filenam|
00003410  65 3a 20 22 3b 3a 58 3d  b1 3a 59 3d 32 34 3a 4c  |e: ";:X=.:Y=24:L|
00003420  25 3d 31 30 3a f2 54 45  58 54 3a e7 54 24 3d 22  |%=10:.TEXT:.T$="|
00003430  22 8c ef 32 38 2c 36 2c  32 35 2c 34 32 2c 32 33  |"..28,6,25,42,23|
00003440  3a db 3a ef 32 36 3a e5  8d 74 50 4b 0d 0b e0 9b  |:.:.26:..tPK....|
00003450  4c 41 25 28 31 2c 30 29  3d 4c 41 43 25 3a 4c 41  |LA%(1,0)=LAC%:LA|
00003460  25 28 32 2c 30 29 3d 4c  41 57 25 3a 4c 41 25 28  |%(2,0)=LAW%:LA%(|
00003470  33 2c 30 29 3d 4c 41 44  25 3a 4c 41 25 28 34 2c  |3,0)=LAD%:LA%(4,|
00003480  30 29 3d 4c 49 4e 25 3a  ff 22 43 4c 4f 53 45 22  |0)=LIN%:."CLOSE"|
00003490  3a 58 3d ae a4 4d 79 46  69 6c 65 28 54 24 29 3a  |:X=..MyFile(T$):|
000034a0  e3 49 3d 30 b8 38 3a e3  46 3d 31 b8 36 3a f1 23  |.I=0.8:.F=1.6:.#|
000034b0  58 2c c3 28 4c 41 25 28  46 2c 49 29 29 3a ed 46  |X,.(LA%(F,I)):.F|
000034c0  3a ed 49 3a ff 22 43 4c  4f 53 45 22 3a ef 32 38  |:.I:."CLOSE":.28|
000034d0  2c 36 2c 32 35 2c 34 32  2c 32 33 3a db 3a ef 32  |,6,25,42,23:.:.2|
000034e0  36 3a e5 8d 74 50 4b 0d  0b ea 17 51 46 25 3d 31  |6:..tPK....QF%=1|
000034f0  3a db 3a e5 8d 44 7a 4d  3a e5 8d 64 7e 4b 0d 0b  |:.:..DzM:..d~K..|
00003500  f4 09 e5 8d 64 7e 4b 0d  0b fe 4e db 3a ef 32 3a  |....d~K...N.:.2:|
00003510  41 52 25 3d 31 3a ff 22  43 4c 4f 53 45 22 3a 41  |AR%=1:."CLOSE":A|
00003520  3d ad a4 4d 79 46 69 6c  65 28 46 4f 24 29 3a 43  |=..MyFile(FO$):C|
00003530  3d ad a4 4d 79 46 69 6c  65 28 46 49 24 29 3a e7  |=..MyFile(FI$):.|
00003540  4c 49 4e 25 3e 4c 41 44  25 8c 4c 41 44 25 3d 4c  |LIN%>LAD%.LAD%=L|
00003550  49 4e 25 2b 31 0d 0c 08  2e 4c 41 42 25 3d 31 3a  |IN%+1....LAB%=1:|
00003560  e3 4a 3d 31 b8 39 3a 41  43 52 25 28 4a 29 3d 30  |.J=1.9:ACR%(J)=0|
00003570  3a ed 4a 3a e7 41 52 25  3e 4e 4f 52 25 8c e5 8d  |:.J:.AR%>NOR%...|
00003580  64 46 4c 0d 0c 12 39 43  52 25 3d 41 52 25 3a e7  |dFL...9CR%=AR%:.|
00003590  53 4f 24 3d 22 31 22 8c  cf 23 43 3d 28 41 52 25  |SO$="1"..#C=(AR%|
000035a0  2a 52 45 43 25 29 2d 31  30 3a e8 23 43 2c 43 52  |*REC%)-10:.#C,CR|
000035b0  24 3a 43 52 25 3d bb 28  43 52 24 29 0d 0c 1c 10  |$:CR%=.(CR$)....|
000035c0  e7 51 46 25 3d 31 8c e5  8d 54 72 4f 0d 0c 26 39  |.QF%=1...TrO..&9|
000035d0  41 43 52 25 28 4c 41 42  25 29 3d 43 52 25 3a 4c  |ACR%(LAB%)=CR%:L|
000035e0  41 42 25 3d 4c 41 42 25  2b 31 3a e7 4c 41 42 25  |AB%=LAB%+1:.LAB%|
000035f0  3e 4c 41 43 25 8c 41 52  25 3d 41 52 25 2b 31 3a  |>LAC%.AR%=AR%+1:|
00003600  e5 8d 44 44 4c 0d 0c 30  2a 41 52 25 3d 41 52 25  |..DDL..0*AR%=AR%|
00003610  2b 31 3a e7 41 52 25 3e  4e 4f 52 25 8c 41 43 52  |+1:.AR%>NOR%.ACR|
00003620  25 28 4c 41 42 25 29 3d  30 3a e5 8d 44 44 4c 0d  |%(LAB%)=0:..DDL.|
00003630  0c 3a 09 e5 8d 54 52 4c  0d 0c 44 14 e7 41 43 52  |.:...TRL..D..ACR|
00003640  25 28 31 29 3d 30 8c e5  8d 64 46 4c 0d 0c 4e 24  |%(1)=0...dFL..N$|
00003650  e3 49 3d 31 b8 4c 49 4e  25 3a 43 4c 41 42 25 3d  |.I=1.LIN%:CLAB%=|
00003660  31 3a 46 4c 44 25 3d 31  3a 4c 41 42 4c 25 3d 30  |1:FLD%=1:LABL%=0|
00003670  0d 0c 58 6b cf 23 41 3d  28 4c 41 25 28 46 4c 44  |..Xk.#A=(LA%(FLD|
00003680  25 2c 49 29 2d 31 29 2a  36 31 2b 31 30 39 3a e8  |%,I)-1)*61+109:.|
00003690  23 41 2c 54 49 24 3a cf  23 43 3d 28 41 43 52 25  |#A,TI$:.#C=(ACR%|
000036a0  28 43 4c 41 42 25 29 2d  31 29 2a 52 45 43 25 2b  |(CLAB%)-1)*REC%+|
000036b0  bb 28 54 49 24 29 3a e8  23 43 2c 4e 24 3a f1 4e  |.(TI$):.#C,N$:.N|
000036c0  24 3b 22 20 22 3b 3a 4c  41 42 4c 25 3d 4c 41 42  |$;" ";:LABL%=LAB|
000036d0  4c 25 2b a9 28 4e 24 29  2b 31 3a 0d 0c 62 2b 46  |L%+.(N$)+1:..b+F|
000036e0  4c 44 25 3d 46 4c 44 25  2b 31 3a e7 4c 41 25 28  |LD%=FLD%+1:.LA%(|
000036f0  46 4c 44 25 2c 49 29 3d  30 8c e5 8d 44 6c 4c 3a  |FLD%,I)=0...DlL:|
00003700  8b e5 8d 44 58 4c 0d 0c  6c 5c f1 89 28 4c 41 57  |...DXL..l\..(LAW|
00003710  25 2d 4c 41 42 4c 25 29  3b 3a 43 4c 41 42 25 3d  |%-LABL%);:CLAB%=|
00003720  43 4c 41 42 25 2b 31 3a  e7 43 4c 41 42 25 3e 4c  |CLAB%+1:.CLAB%>L|
00003730  41 43 25 20 84 20 41 43  52 25 28 43 4c 41 42 25  |AC% . ACR%(CLAB%|
00003740  29 3d 30 8c f1 3a 46 4c  44 25 3d 31 3a 4c 41 42  |)=0..:FLD%=1:LAB|
00003750  4c 25 3d 30 3a 43 4c 41  42 25 3d 31 3a e5 8d 74  |L%=0:CLAB%=1:..t|
00003760  40 4c 0d 0c 76 18 4c 41  42 4c 25 3d 30 3a 46 4c  |@L..v.LABL%=0:FL|
00003770  44 25 3d 31 3a e5 8d 44  58 4c 0d 0c 80 2a ed 49  |D%=1:..DXL...*.I|
00003780  3a 53 42 4c 25 3d 4c 41  44 25 2d 4c 49 4e 25 3a  |:SBL%=LAD%-LIN%:|
00003790  e3 49 3d 31 b8 53 42 4c  25 3a f1 3a ed 49 3a e5  |.I=1.SBL%:.:.I:.|
000037a0  8d 54 48 4c 0d 0c 8a 62  58 3d 31 30 3a 59 3d 31  |.THL...bX=10:Y=1|
000037b0  33 3a 57 25 3d 33 35 3a  4c 25 3d 31 3a f2 4c 57  |3:W%=35:L%=1:.LW|
000037c0  4e 3a f1 8a 31 31 2c 31  34 29 3b 22 45 6e 74 65  |N:..11,14);"Ente|
000037d0  72 20 6c 61 62 65 6c 20  66 69 6c 65 6e 61 6d 65  |r label filename|
000037e0  3a 20 22 3b 3a 58 3d b1  3a 59 3d 31 34 3a 4c 25  |: ";:X=.:Y=14:L%|
000037f0  3d 31 30 3a f2 54 45 58  54 3a e7 54 24 3d 22 22  |=10:.TEXT:.T$=""|
00003800  8c e5 8d 74 7c 42 0d 0c  94 0b ee 85 e5 8d 74 72  |...t|B........tr|
00003810  4c 0d 0c 9e 8e ff 22 43  4c 4f 53 45 22 3a 58 3d  |L....."CLOSE":X=|
00003820  ad a4 4d 79 46 69 6c 65  28 54 24 29 3a e3 49 3d  |..MyFile(T$):.I=|
00003830  30 b8 38 3a e3 46 3d 31  b8 36 3a e8 23 58 2c 4c  |0.8:.F=1.6:.#X,L|
00003840  24 3a 4c 41 25 28 46 2c  49 29 3d bb 28 4c 24 29  |$:LA%(F,I)=.(L$)|
00003850  3a ed 46 3a ed 49 3a ff  22 43 4c 4f 53 45 22 3a  |:.F:.I:."CLOSE":|
00003860  4c 41 43 25 3d 4c 41 25  28 31 2c 30 29 3a 4c 41  |LAC%=LA%(1,0):LA|
00003870  57 25 3d 4c 41 25 28 32  2c 30 29 3a 4c 41 44 25  |W%=LA%(2,0):LAD%|
00003880  3d 4c 41 25 28 33 2c 30  29 3a 4c 49 4e 25 3d 4c  |=LA%(3,0):LIN%=L|
00003890  41 25 28 34 2c 30 29 3a  ee 85 e5 8d 54 56 52 0d  |A%(4,0):....TVR.|
000038a0  0c a8 3e db 3a 58 3d 34  30 3a 59 3d 31 35 3a 57  |..>.:X=40:Y=15:W|
000038b0  25 3d 31 39 3a 4c 25 3d  33 3a f2 4c 57 4e 3a 58  |%=19:L%=3:.LWN:X|
000038c0  3d 36 3a 59 3d 31 35 3a  57 25 3d 32 36 3a 4c 25  |=6:Y=15:W%=26:L%|
000038d0  3d 35 3a f2 4c 57 4e 3a  e5 8d 74 46 4b 0d 0c b2  |=5:.LWN:..tFK...|
000038e0  0b ee 85 e5 8d 54 56 52  0d 0c bc 72 f2 45 52 57  |.....TVR...r.ERW|
000038f0  49 4e 3a fb 31 38 30 3a  f1 8a 32 30 2c 31 32 29  |IN:.180:..20,12)|
00003900  3b 22 43 61 6e 6e 6f 74  20 66 69 6e 64 20 74 68  |;"Cannot find th|
00003910  65 20 22 3b 54 24 3b 22  20 6c 61 62 65 6c 3a 22  |e ";T$;" label:"|
00003920  3b 8a 32 30 2c 31 34 29  3b 22 43 6c 69 63 6b 20  |;.20,14);"Click |
00003930  6d 6f 75 73 65 20 74 6f  20 63 6f 6e 74 69 6e 75  |mouse to continu|
00003940  65 2e 2e 2e 22 3a ef 37  3a fb 46 47 25 3a f2 4d  |e...":.7:.FG%:.M|
00003950  4b 4c 49 4b 3a e5 8d 74  7c 42 0d 0c c6 6b ef 33  |KLIK:..t|B...k.3|
00003960  3a f1 27 3a fb 31 33 31  3a f1 8a 30 2c 32 39 29  |:.':.131:..0,29)|
00003970  3b 22 4c 61 62 65 6c 20  70 72 69 6e 74 69 6e 67  |;"Label printing|
00003980  20 66 69 6e 69 73 68 65  64 2e 20 43 6c 69 63 6b  | finished. Click|
00003990  20 6d 6f 75 73 65 20 74  6f 20 63 6f 6e 74 69 6e  | mouse to contin|
000039a0  75 65 2e 2e 2e 22 3a fb  46 47 25 3a f5 3a c8 97  |ue...":.FG%:.:..|
000039b0  20 55 2c 55 2c 42 55 54  3a fd 42 55 54 3e 30 3a  | U,U,BUT:.BUT>0:|
000039c0  e5 8d 74 7c 42 0d 0c d0  05 fa 0d 0c da 36 dd f2  |..t|B........6..|
000039d0  53 45 4c 45 43 54 3a 45  44 25 3d 59 2b 28 4c 25  |SELECT:ED%=Y+(L%|
000039e0  2d 31 29 3a 42 47 25 3d  58 2b 28 57 25 2d 31 29  |-1):BG%=X+(W%-1)|
000039f0  3a 53 53 45 4c 25 3d 31  3a 2a 46 58 31 35 2c 30  |:SSEL%=1:*FX15,0|
00003a00  0d 0c e4 3e e3 49 3d 31  b8 4c 25 3a f1 8a 58 2c  |...>.I=1.L%:..X,|
00003a10  59 2b 28 49 2d 31 29 29  3b 22 20 20 22 3b 4d 45  |Y+(I-1));"  ";ME|
00003a20  24 28 49 29 3b c4 28 57  25 2d 32 29 2d a9 28 4d  |$(I);.(W%-2)-.(M|
00003a30  45 24 28 49 29 29 2c 22  20 22 29 3a ed 49 0d 0c  |E$(I))," "):.I..|
00003a40  ee 2b c8 97 20 58 50 2c  59 50 2c 42 55 54 3a 58  |.+.. XP,YP,BUT:X|
00003a50  50 3d a8 28 58 50 2f 31  36 29 3a 59 50 3d 33 31  |P=.(XP/16):YP=31|
00003a60  2d a8 28 59 50 2f 33 32  29 0d 0c f8 18 e7 59 50  |-.(YP/32).....YP|
00003a70  3c 59 20 84 20 59 50 3e  45 44 25 8c e5 8d 64 64  |<Y . YP>ED%...dd|
00003a80  4c 0d 0d 02 18 e7 58 50  3c 58 20 84 20 58 50 3e  |L.....XP<X . XP>|
00003a90  42 47 25 8c e5 8d 64 64  4c 0d 0d 0c 72 53 45 4c  |BG%...ddL...rSEL|
00003aa0  25 3d 28 59 50 2d 59 29  2b 31 3a f2 43 4c 45 41  |%=(YP-Y)+1:.CLEA|
00003ab0  3a fb 20 31 33 31 3a fb  31 32 37 3a f1 8a 58 2c  |:. 131:.127:..X,|
00003ac0  59 50 29 3b 22 20 20 22  3b 4d 45 24 28 53 45 4c  |YP);"  ";ME$(SEL|
00003ad0  25 29 3b c4 28 57 25 2d  32 29 2d a9 28 4d 45 24  |%);.(W%-2)-.(ME$|
00003ae0  28 53 45 4c 25 29 29 2c  22 20 22 29 3a fb 20 46  |(SEL%))," "):. F|
00003af0  47 25 3a fb 31 32 37 3a  e7 42 55 54 3d 34 8c e5  |G%:.127:.BUT=4..|
00003b00  8d 54 56 4d 3a 8b e5 8d  64 6e 4c 0d 0d 16 08 ef  |.TVM:...dnL.....|
00003b10  37 3a e1 0d 0d 20 52 dd  f2 43 4c 45 41 3a e7 53  |7:... R..CLEA:.S|
00003b20  53 45 4c 25 3c 3e 53 45  4c 25 8c e3 49 3d 31 b8  |SEL%<>SEL%..I=1.|
00003b30  4c 25 3a f1 8a 58 2c 59  2b 28 49 2d 31 29 29 3b  |L%:..X,Y+(I-1));|
00003b40  22 20 20 22 3b 4d 45 24  28 49 29 3b c4 28 57 25  |"  ";ME$(I);.(W%|
00003b50  2d 32 29 2d a9 28 4d 45  24 28 49 29 29 2c 22 20  |-2)-.(ME$(I))," |
00003b60  22 29 3a ed 49 0d 0d 2a  10 53 53 45 4c 25 3d 53  |"):.I..*.SSEL%=S|
00003b70  45 4c 25 3a e1 0d 0d 34  05 fa 0d 0d 3e 05 20 0d  |EL%:...4....>. .|
00003b80  0d 48 05 20 0d 0d 52 05  20 0d 0d 5c 05 20 0d 0d  |.H. ..R. ..\. ..|
00003b90  66 09 20 d9 20 23 30 0d  0d 70 0a 20 f2 51 75 69  |f. . #0..p. .Qui|
00003ba0  74 0d 0d 7a 6c db 3a f1  8a 31 2c 31 29 3b 22 41  |t..zl.:..1,1);"A|
00003bb0  64 2d 48 6f 63 20 51 75  65 72 79 22 3b 8a 31 2c  |d-Hoc Query";.1,|
00003bc0  32 29 3b c4 31 32 2c bd  28 32 34 31 29 29 3a 50  |2);.12,.(241)):P|
00003bd0  24 28 31 29 3d 22 3d 22  3a 50 24 28 32 29 3d 22  |$(1)="=":P$(2)="|
00003be0  3c 3e 22 3a 50 24 28 33  29 3d 22 3c 22 3a 50 24  |<>":P$(3)="<":P$|
00003bf0  28 34 29 3d 22 3e 22 3a  50 24 28 35 29 3d 22 3c  |(4)=">":P$(5)="<|
00003c00  3d 22 3a 50 24 28 36 29  3d 22 3e 3d 22 0d 0d 84  |=":P$(6)=">="...|
00003c10  75 f1 8a 30 2c 34 29 3b  bd 28 31 35 34 29 3b c4  |u..0,4);.(154);.|
00003c20  37 38 2c bd 28 31 35 39  29 29 3b bd 28 31 35 38  |78,.(159));.(158|
00003c30  29 3b 8a 31 2c 34 29 3b  22 4c 69 22 3b 8a 34 2c  |);.1,4);"Li";.4,|
00003c40  34 29 3b 22 46 69 65 6c  64 22 3b 8a 32 35 2c 34  |4);"Field";.25,4|
00003c50  29 3b 22 4f 70 22 3b 8a  32 39 2c 34 29 3b 22 43  |);"Op";.29,4);"C|
00003c60  6f 6e 73 74 61 6e 74 2f  45 78 70 72 65 73 73 69  |onstant/Expressi|
00003c70  6f 6e 22 3b 8a 37 34 2c  34 29 3b 22 4c 6f 67 69  |on";.74,4);"Logi|
00003c80  63 22 0d 0d 8e 3b f1 8a  33 2c 34 29 3b bd 28 32  |c"...;..3,4);.(2|
00003c90  33 33 29 3b 8a 32 34 2c  34 29 3b bd 28 32 33 33  |33);.24,4);.(233|
00003ca0  29 3b 8a 32 38 2c 34 29  3b bd 28 32 33 33 29 3b  |);.28,4);.(233);|
00003cb0  8a 37 33 2c 34 29 3b bd  28 32 33 33 29 0d 0d 98  |.73,4);.(233)...|
00003cc0  75 e3 46 3d 35 b8 31 34  3a f1 8a 33 2d a9 28 c3  |u.F=5.14:..3-.(.|
00003cd0  28 46 2d 34 29 29 2c 46  29 3b 46 2d 34 3b 8a 30  |(F-4)),F);F-4;.0|
00003ce0  2c 46 29 3b bd 28 31 35  35 29 3b 8a 33 2c 46 29  |,F);.(155);.3,F)|
00003cf0  3b bd 28 32 33 31 29 3b  8a 32 34 2c 46 29 3b bd  |;.(231);.24,F);.|
00003d00  28 32 33 31 29 3b 8a 32  38 2c 46 29 3b bd 28 32  |(231);.28,F);.(2|
00003d10  33 31 29 3b 8a 37 33 2c  46 29 3b bd 28 32 33 31  |31);.73,F);.(231|
00003d20  29 3b 8a 37 39 2c 46 29  3b bd 28 31 35 37 29 3a  |);.79,F);.(157):|
00003d30  ed 46 0d 0d a2 07 49 3d  31 0d 0d ac 1c ff 22 43  |.F....I=1....."C|
00003d40  4c 4f 53 45 22 3a 43 3d  ad a4 4d 79 46 69 6c 65  |LOSE":C=..MyFile|
00003d50  28 46 4f 24 29 0d 0d b6  34 58 3d 34 3a 59 3d 49  |(FO$)...4X=4:Y=I|
00003d60  2b 34 3a 4c 25 3d 32 30  3a f2 54 45 58 54 3a 4e  |+4:L%=20:.TEXT:N|
00003d70  24 3d 54 24 3a f2 43 4c  3a f2 43 48 45 4b 3a 51  |$=T$:.CL:.CHEK:Q|
00003d80  24 28 49 2c 31 29 3d 4e  24 0d 0d c0 35 58 3d 32  |$(I,1)=N$...5X=2|
00003d90  35 3a 59 3d 49 2b 34 3a  4c 25 3d 32 3a f2 54 45  |5:Y=I+4:L%=2:.TE|
00003da0  58 54 3a 4e 24 3d 54 24  3a f2 43 4c 3a f2 43 48  |XT:N$=T$:.CL:.CH|
00003db0  45 4b 32 3a 51 24 28 49  2c 32 29 3d 4e 24 0d 0d  |EK2:Q$(I,2)=N$..|
00003dc0  ca 39 e7 51 24 28 49 2c  37 29 3d 22 39 22 84 20  |.9.Q$(I,7)="9". |
00003dd0  bb 28 51 24 28 49 2c 37  29 29 3c 35 20 80 20 bb  |.(Q$(I,7))<5 . .|
00003de0  28 51 24 28 49 2c 36 29  29 3e 36 8c e5 8d 64 54  |(Q$(I,6))>6...dT|
00003df0  4d 8b e5 8d 64 68 4d 0d  0d d4 57 f2 43 4c 3a f1  |M...dhM...W.CL:.|
00003e00  8a 32 30 2c 31 29 3b 22  49 6e 76 61 6c 69 64 20  |.20,1);"Invalid |
00003e10  4f 70 65 72 61 74 6f 72  2e 20 57 61 6e 74 20 74  |Operator. Want t|
00003e20  6f 20 63 6f 6e 74 69 6e  75 65 3f 22 3b 8a 32 30  |o continue?";.20|
00003e30  2c 32 29 3b 22 28 59 2f  4e 29 22 3a 49 24 3d be  |,2);"(Y/N)":I$=.|
00003e40  3a e7 49 24 3d 22 4e 22  8c e5 8d 74 7c 42 0d 0d  |:.I$="N"...t|B..|
00003e50  de 09 e5 8d 64 40 4d 0d  0d e8 14 58 3d 32 39 3a  |....d@M....X=29:|
00003e60  59 3d 49 2b 34 3a 4c 25  3d 34 34 0d 0d f2 26 e7  |Y=I+4:L%=44...&.|
00003e70  51 24 28 49 2c 37 29 3d  22 35 22 8c f2 54 59 35  |Q$(I,7)="5"..TY5|
00003e80  3a 51 24 28 49 2c 33 29  3d 4e 24 3a e5 8d 54 50  |:Q$(I,3)=N$:..TP|
00003e90  4e 0d 0d fc 26 e7 51 24  28 49 2c 37 29 3d 22 36  |N...&.Q$(I,7)="6|
00003ea0  22 8c f2 54 59 36 3a 51  24 28 49 2c 33 29 3d 4e  |"..TY6:Q$(I,3)=N|
00003eb0  24 3a e5 8d 54 50 4e 0d  0e 06 1a f2 54 45 58 54  |$:..TPN.....TEXT|
00003ec0  3a 4e 24 3d 54 24 3a 51  24 28 49 2c 33 29 3d 4e  |:N$=T$:Q$(I,3)=N|
00003ed0  24 0d 0e 10 55 f1 8a 37  34 2c 49 2b 34 29 3b bd  |$...U..74,I+4);.|
00003ee0  28 32 35 35 29 3a 49 24  3d be 3a e7 49 24 3d 22  |(255):I$=.:.I$="|
00003ef0  41 22 84 20 49 24 3d 22  4f 22 84 20 49 24 3d 22  |A". I$="O". I$="|
00003f00  45 22 84 20 49 24 3d 22  61 22 84 20 49 24 3d 22  |E". I$="a". I$="|
00003f10  6f 22 84 20 49 24 3d 22  65 22 8c e5 8d 54 5a 4e  |o". I$="e"...TZN|
00003f20  8b e5 8d 54 50 4e 0d 0e  1a 1c e7 49 24 3d 22 41  |...TPN.....I$="A|
00003f30  22 84 20 49 24 3d 22 61  22 8c 49 24 3d 22 41 4e  |". I$="a".I$="AN|
00003f40  44 22 0d 0e 24 1c e7 49  24 3d 22 45 22 84 20 49  |D"..$..I$="E". I|
00003f50  24 3d 22 65 22 8c 49 24  3d 22 45 4e 44 22 0d 0e  |$="e".I$="END"..|
00003f60  2e 1b e7 49 24 3d 22 4f  22 84 20 49 24 3d 22 6f  |...I$="O". I$="o|
00003f70  22 8c 49 24 3d 22 4f 52  22 0d 0e 38 1b f1 8a 37  |".I$="OR"..8...7|
00003f80  34 2c 49 2b 34 29 3b 49  24 3a 51 24 28 49 2c 34  |4,I+4);I$:Q$(I,4|
00003f90  29 3d 49 24 0d 0e 42 19  e7 49 24 3d 22 45 4e 44  |)=I$..B..I$="END|
00003fa0  22 8c 74 74 25 3d 49 3a  e5 8d 64 44 4e 0d 0e 4c  |".tt%=I:..dDN..L|
00003fb0  23 49 3d 49 2b 31 3a e7  49 3e 31 30 8c 74 74 25  |#I=I+1:.I>10.tt%|
00003fc0  3d 31 30 3a e5 8d 64 44  4e 3a 8b e5 8d 74 76 4d  |=10:..dDN:...tvM|
00003fd0  0d 0e 56 0a dd f2 43 48  45 4b 0d 0e 60 8c 4c 25  |..V...CHEK..`.L%|
00003fe0  3d 30 3a e3 46 3d 31 b8  4e 4f 46 25 3a cf 23 43  |=0:.F=1.NOF%:.#C|
00003ff0  3d 28 46 2d 31 29 2a 36  31 2b 36 33 3a e8 23 43  |=(F-1)*61+63:.#C|
00004000  2c 46 4c 24 3a e7 4e 24  3d 46 4c 24 8c cf 23 43  |,FL$:.N$=FL$..#C|
00004010  3d 28 46 2d 31 29 2a 36  31 2b 36 33 2b 34 36 3a  |=(F-1)*61+63+46:|
00004020  e8 23 43 2c 54 49 24 3a  51 24 28 49 2c 35 29 3d  |.#C,TI$:Q$(I,5)=|
00004030  54 49 24 3a cf 23 43 3d  28 46 2d 31 29 2a 36 31  |TI$:.#C=(F-1)*61|
00004040  2b 36 33 2b 33 38 3a e8  23 43 2c 54 59 24 3a 51  |+63+38:.#C,TY$:Q|
00004050  24 28 49 2c 37 29 3d 54  59 24 3a 46 3d 4e 4f 46  |$(I,7)=TY$:F=NOF|
00004060  25 3a 4c 25 3d 31 0d 0e  6a 5c ed 46 3a e7 4c 25  |%:L%=1..j\.F:.L%|
00004070  3d 31 8c e5 8d 64 40 4d  8b f2 43 4c 3a f1 8a 32  |=1...d@M..CL:..2|
00004080  30 2c 31 29 3b 22 46 69  65 6c 64 20 69 73 20 6e  |0,1);"Field is n|
00004090  6f 74 20 6f 6e 20 66 69  6c 65 2e 20 57 61 6e 74  |ot on file. Want|
000040a0  20 74 6f 20 63 6f 6e 74  69 6e 75 65 3f 22 3b 8a  | to continue?";.|
000040b0  32 30 2c 32 29 3b 22 28  59 2f 4e 29 22 3a 49 24  |20,2);"(Y/N)":I$|
000040c0  3d be 0d 0e 74 18 e7 49  24 3d 22 4e 22 8c e5 8d  |=...t..I$="N"...|
000040d0  74 7c 42 3a 8b e5 8d 74  76 4d 0d 0e 7e 05 e1 0d  |t|B:...tvM..~...|
000040e0  0e 88 0b dd f2 43 48 45  4b 32 0d 0e 92 2f 4c 25  |.....CHEK2.../L%|
000040f0  3d 30 3a e3 46 3d 31 b8  36 3a e7 4e 24 3d 50 24  |=0:.F=1.6:.N$=P$|
00004100  28 46 29 8c 51 24 28 49  2c 36 29 3d c3 28 46 29  |(F).Q$(I,6)=.(F)|
00004110  3a 4c 25 3d 31 3a 46 3d  38 0d 0e 9c 58 ed 46 3a  |:L%=1:F=8...X.F:|
00004120  e7 4c 25 3d 31 8c e5 8d  64 4a 4d 8b f2 43 4c 3a  |.L%=1...dJM..CL:|
00004130  f1 8a 32 30 2c 31 29 3b  22 49 6e 76 61 6c 69 64  |..20,1);"Invalid|
00004140  20 4f 70 65 72 61 74 6f  72 2e 20 57 61 6e 74 20  | Operator. Want |
00004150  74 6f 20 63 6f 6e 74 69  6e 75 65 3f 22 3b 8a 32  |to continue?";.2|
00004160  30 2c 32 29 3b 22 28 59  2f 4e 29 22 3a 49 24 3d  |0,2);"(Y/N)":I$=|
00004170  be 0d 0e a6 18 e7 49 24  3d 22 4e 22 8c e5 8d 74  |......I$="N"...t|
00004180  7c 42 3a 8b e5 8d 64 40  4d 0d 0e b0 05 e1 0d 0e  ||B:...d@M.......|
00004190  ba 2b dd f2 43 4c 3a f1  8a 32 30 2c 31 29 3b c4  |.+..CL:..20,1);.|
000041a0  36 30 2c 22 20 22 29 3b  8a 32 30 2c 32 29 3b c4  |60," ");.20,2);.|
000041b0  36 30 2c 22 20 22 29 3a  e1 0d 0e c4 42 4d 43 24  |60," "):....BMC$|
000041c0  3d c4 32 30 2c 22 30 22  29 3a 52 43 24 3d 4d 43  |=.20,"0"):RC$=MC|
000041d0  24 3a e7 51 24 28 31 2c  34 29 3d 22 4f 52 22 8c  |$:.Q$(1,4)="OR".|
000041e0  4d 43 24 3d 22 31 22 2b  c4 39 2c 22 30 22 29 2b  |MC$="1"+.9,"0")+|
000041f0  22 31 22 2b c4 39 2c 22  30 22 29 0d 0e ce 05 db  |"1"+.9,"0").....|
00004200  0d 0e d8 0c e3 46 3d 31  b8 74 74 25 0d 0e e2 17  |.....F=1.tt%....|
00004210  e7 51 24 28 46 2c 34 29  3d 22 4f 52 22 8c e5 8d  |.Q$(F,4)="OR"...|
00004220  54 5e 4f 0d 0e ec 43 42  31 24 3d c2 4d 43 24 2c  |T^O...CB1$=.MC$,|
00004230  31 30 29 3a 42 32 24 3d  22 22 3a e3 4a 3d 31 b8  |10):B2$="":.J=1.|
00004240  31 30 3a e7 4a 3d 46 20  8c 42 32 24 3d 42 32 24  |10:.J=F .B2$=B2$|
00004250  2b 22 31 22 8b 42 32 24  3d 42 32 24 2b c1 4d 43  |+"1".B2$=B2$+.MC|
00004260  24 2c 4a 2c 31 29 0d 0e  f6 06 ed 4a 0d 0f 00 23  |$,J,1).....J...#|
00004270  4d 43 24 3d 42 32 24 2b  42 31 24 3a 42 31 24 3d  |MC$=B2$+B1$:B1$=|
00004280  c0 4d 43 24 2c 31 30 29  3a 42 32 24 3d 22 22 0d  |.MC$,10):B2$="".|
00004290  0f 0a 35 e3 4a 3d 31 31  b8 32 30 3a e7 4a 3d 28  |..5.J=11.20:.J=(|
000042a0  46 2b 31 30 29 20 8c 42  32 24 3d 42 32 24 2b 22  |F+10) .B2$=B2$+"|
000042b0  31 22 8b 42 32 24 3d 42  32 24 2b c1 4d 43 24 2c  |1".B2$=B2$+.MC$,|
000042c0  4a 2c 31 29 0d 0f 14 12  ed 4a 3a 4d 43 24 3d 42  |J,1).....J:MC$=B|
000042d0  31 24 2b 42 32 24 0d 0f  1e 0d ed 46 3a e5 52 54  |1$+B2$.....F:.RT|
000042e0  56 31 25 0d 0f 28 23 db  3a 53 25 3d 30 3a ff 22  |V1%..(#.:S%=0:."|
000042f0  43 4c 4f 53 45 22 3a 58  3d ad a4 4d 79 46 69 6c  |CLOSE":X=..MyFil|
00004300  65 28 46 49 24 29 0d 0f  32 15 46 25 3d 31 3a 52  |e(FI$)..2.F%=1:R|
00004310  43 24 3d c4 32 30 2c 22  30 22 29 0d 0f 3c 17 e7  |C$=.20,"0")..<..|
00004320  51 24 28 31 2c 34 29 3d  22 4f 52 22 8c e5 8d 44  |Q$(1,4)="OR"...D|
00004330  7c 50 0d 0f 46 63 cf 23  43 3d 28 43 52 25 2d 31  ||P..Fc.#C=(CR%-1|
00004340  29 2a 52 45 43 25 2b bb  28 51 24 28 46 25 2c 35  |)*REC%+.(Q$(F%,5|
00004350  29 29 3a e8 23 43 2c 43  24 3a 4e 24 3d 51 24 28  |)):.#C,C$:N$=Q$(|
00004360  46 25 2c 33 29 3a 54 50  24 3d 22 31 22 3a 4f 50  |F%,3):TP$="1":OP|
00004370  24 3d 51 24 28 46 25 2c  36 29 3a f2 54 59 50 45  |$=Q$(F%,6):.TYPE|
00004380  3a f2 43 4f 4d 50 41 52  45 3a e7 43 4f 4d 25 3d  |:.COMPARE:.COM%=|
00004390  31 8c f2 46 42 0d 0f 50  1e e7 51 24 28 46 25 2c  |1..FB..P..Q$(F%,|
000043a0  34 29 3d 22 45 4e 44 22  80 43 4f 4d 25 3d 31 8c  |4)="END".COM%=1.|
000043b0  f2 53 42 0d 0f 5a 23 e7  51 24 28 46 25 2c 34 29  |.SB..Z#.Q$(F%,4)|
000043c0  3d 22 45 4e 44 22 8c e7  52 43 24 3d 4d 43 24 8c  |="END"..RC$=MC$.|
000043d0  e5 52 54 56 32 25 0d 0f  64 24 46 25 3d 46 25 2b  |.RTV2%..d$F%=F%+|
000043e0  31 3a e7 46 25 3e 74 74  25 8c 46 25 3d 74 74 25  |1:.F%>tt%.F%=tt%|
000043f0  3a f2 53 42 3a e5 8d 74  42 4f 0d 0f 6e 18 e7 51  |:.SB:..tBO..n..Q|
00004400  24 28 46 25 2c 34 29 3d  22 4f 52 22 8c e5 8d 54  |$(F%,4)="OR"...T|
00004410  58 50 0d 0f 78 1d 46 25  3d 46 25 2d 31 3a f2 53  |XP..x.F%=F%-1:.S|
00004420  42 3a 46 25 3d 46 25 2b  31 3a e5 8d 44 46 4f 0d  |B:F%=F%+1:..DFO.|
00004430  0f 82 0a e5 52 54 56 33  25 0d 0f 8c 0a dd f2 54  |....RTV3%......T|
00004440  59 50 45 0d 0f 96 45 e7  51 24 28 46 25 2c 37 29  |YPE...E.Q$(F%,7)|
00004450  3d 22 37 22 84 51 24 28  46 25 2c 37 29 3d 22 38  |="7".Q$(F%,7)="8|
00004460  22 84 51 24 28 46 25 2c  37 29 3d 22 30 22 8c 20  |".Q$(F%,7)="0". |
00004470  4e 3d bb 28 4e 24 29 3a  4e 4f 3d bb 28 43 24 29  |N=.(N$):NO=.(C$)|
00004480  3a 54 50 24 3d 22 32 22  0d 0f a0 38 e7 51 24 28  |:TP$="2"...8.Q$(|
00004490  46 25 2c 37 29 3d 22 35  22 8c 58 24 3d 4e 24 3a  |F%,7)="5".X$=N$:|
000044a0  f2 43 4f 4e 44 49 3a 4e  3d 4e 4f 3a 58 24 3d 43  |.CONDI:N=NO:X$=C|
000044b0  24 3a f2 43 4f 4e 44 49  3a 54 50 24 3d 22 32 22  |$:.CONDI:TP$="2"|
000044c0  0d 0f aa 38 e7 51 24 28  46 25 2c 37 29 3d 22 36  |...8.Q$(F%,7)="6|
000044d0  22 8c 58 24 3d 4e 24 3a  f2 43 4f 4e 54 49 3a 4e  |".X$=N$:.CONTI:N|
000044e0  3d 4e 4f 3a 58 24 3d 43  24 3a f2 43 4f 4e 54 49  |=NO:X$=C$:.CONTI|
000044f0  3a 54 50 24 3d 22 32 22  0d 0f b4 05 e1 0d 0f be  |:TP$="2"........|
00004500  08 dd f2 46 42 0d 0f c8  44 42 31 24 3d c2 52 43  |...FB...DB1$=.RC|
00004510  24 2c 31 30 29 3a 42 32  24 3d 22 22 3a e3 4a 3d  |$,10):B2$="":.J=|
00004520  31 b8 31 30 3a e7 4a 3d  46 25 20 8c 42 32 24 3d  |1.10:.J=F% .B2$=|
00004530  42 32 24 2b 22 31 22 8b  42 32 24 3d 42 32 24 2b  |B2$+"1".B2$=B2$+|
00004540  c1 52 43 24 2c 4a 2c 31  29 0d 0f d2 12 ed 4a 3a  |.RC$,J,1).....J:|
00004550  52 43 24 3d 42 32 24 2b  42 31 24 0d 0f dc 05 e1  |RC$=B2$+B1$.....|
00004560  0d 0f e6 08 dd f2 53 42  0d 0f f0 17 42 31 24 3d  |......SB....B1$=|
00004570  c0 52 43 24 2c 31 30 29  3a 42 32 24 3d 22 22 0d  |.RC$,10):B2$="".|
00004580  0f fa 36 e3 4a 3d 31 31  b8 32 30 3a e7 4a 3d 28  |..6.J=11.20:.J=(|
00004590  46 25 2b 31 30 29 20 8c  42 32 24 3d 42 32 24 2b  |F%+10) .B2$=B2$+|
000045a0  22 31 22 8b 42 32 24 3d  42 32 24 2b c1 52 43 24  |"1".B2$=B2$+.RC$|
000045b0  2c 4a 2c 31 29 0d 10 04  12 ed 4a 3a 52 43 24 3d  |,J,1).....J:RC$=|
000045c0  42 31 24 2b 42 32 24 0d  10 0e 05 e1 0d 10 18 0e  |B1$+B2$.........|
000045d0  53 50 25 3d 28 46 25 2d  31 29 0d 10 22 7e cf 23  |SP%=(F%-1).."~.#|
000045e0  43 3d 28 43 52 25 2d 31  29 2a 52 45 43 25 2b bb  |C=(CR%-1)*REC%+.|
000045f0  28 51 24 28 46 25 2c 35  29 29 3a e8 23 43 2c 43  |(Q$(F%,5)):.#C,C|
00004600  24 3a 4e 24 3d 51 24 28  46 25 2c 33 29 3a 54 50  |$:N$=Q$(F%,3):TP|
00004610  24 3d 22 31 22 3a 4f 50  24 3d 51 24 28 46 25 2c  |$="1":OP$=Q$(F%,|
00004620  36 29 3a f2 54 59 50 45  3a f2 43 4f 4d 50 41 52  |6):.TYPE:.COMPAR|
00004630  45 3a e7 43 4f 4d 25 3d  31 8c 53 41 25 3d 46 25  |E:.COM%=1.SA%=F%|
00004640  3a 46 25 3d 53 50 25 3a  f2 53 42 3a 46 25 3d 53  |:F%=SP%:.SB:F%=S|
00004650  41 25 3a e5 8d 44 4a 50  0d 10 2c 19 e7 51 24 28  |A%:..DJP..,..Q$(|
00004660  46 25 2c 34 29 3d 22 45  4e 44 22 8c e5 8d 74 42  |F%,4)="END"...tB|
00004670  4f 0d 10 36 29 e7 51 24  28 46 25 2c 34 29 3d 22  |O..6).Q$(F%,4)="|
00004680  41 4e 44 22 8c f2 46 42  3a f2 53 42 3a 46 25 3d  |AND"..FB:.SB:F%=|
00004690  46 25 2b 31 3a e5 8d 44  46 4f 0d 10 40 11 46 25  |F%+1:..DFO..@.F%|
000046a0  3d 46 25 2b 31 3a e5 8d  54 62 50 0d 10 4a 29 e7  |=F%+1:..TbP..J).|
000046b0  51 24 28 46 25 2c 34 29  3d 22 41 4e 44 22 8c f2  |Q$(F%,4)="AND"..|
000046c0  46 42 3a f2 53 42 3a 46  25 3d 46 25 2b 31 3a e5  |FB:.SB:F%=F%+1:.|
000046d0  8d 44 46 4f 0d 10 54 24  e7 51 24 28 46 25 2c 34  |.DFO..T$.Q$(F%,4|
000046e0  29 3d 22 45 4e 44 22 8c  f2 46 42 3a 43 4f 4d 25  |)="END"..FB:COM%|
000046f0  3d 31 3a e5 8d 44 50 4f  0d 10 5e 29 e7 51 24 28  |=1:..DPO..^).Q$(|
00004700  46 25 2c 34 29 3d 22 41  4e 44 22 8c f2 46 42 3a  |F%,4)="AND"..FB:|
00004710  f2 53 42 3a 46 25 3d 46  25 2b 31 3a e5 8d 44 46  |.SB:F%=F%+1:..DF|
00004720  4f 0d 10 68 24 e7 51 24  28 46 25 2c 34 29 3d 22  |O..h$.Q$(F%,4)="|
00004730  45 4e 44 22 8c f2 46 42  3a 43 4f 4d 25 3d 31 3a  |END"..FB:COM%=1:|
00004740  e5 8d 44 50 4f 0d 10 72  11 46 25 3d 46 25 2b 31  |..DPO..r.F%=F%+1|
00004750  3a e5 8d 44 5e 50 0d 10  7c 0a 53 50 25 3d 46 25  |:..D^P..|.SP%=F%|
00004760  0d 10 86 82 cf 23 43 3d  28 43 52 25 2d 31 29 2a  |.....#C=(CR%-1)*|
00004770  52 45 43 25 2b bb 28 51  24 28 46 25 2c 35 29 29  |REC%+.(Q$(F%,5))|
00004780  3a e8 23 43 2c 43 24 3a  4e 24 3d 51 24 28 46 25  |:.#C,C$:N$=Q$(F%|
00004790  2c 33 29 3a 54 50 24 3d  22 31 22 3a 4f 50 24 3d  |,3):TP$="1":OP$=|
000047a0  51 24 28 46 25 2c 36 29  3a f2 54 59 50 45 3a f2  |Q$(F%,6):.TYPE:.|
000047b0  43 4f 4d 50 41 52 45 3a  e7 43 4f 4d 25 3d 31 8c  |COMPARE:.COM%=1.|
000047c0  53 41 25 3d 46 25 3a 46  25 3d 53 50 25 3a f2 46  |SA%=F%:F%=SP%:.F|
000047d0  42 3a f2 53 42 3a 46 25  3d 53 41 25 3a e5 8d 44  |B:.SB:F%=SA%:..D|
000047e0  4a 50 0d 10 90 19 e7 51  24 28 46 25 2c 34 29 3d  |JP.....Q$(F%,4)=|
000047f0  22 45 4e 44 22 8c e5 8d  74 42 4f 0d 10 9a 29 e7  |"END"...tBO...).|
00004800  51 24 28 46 25 2c 34 29  3d 22 41 4e 44 22 8c f2  |Q$(F%,4)="AND"..|
00004810  46 42 3a f2 53 42 3a 46  25 3d 46 25 2b 31 3a e5  |FB:.SB:F%=F%+1:.|
00004820  8d 44 46 4f 0d 10 a4 11  46 25 3d 46 25 2b 31 3a  |.DFO....F%=F%+1:|
00004830  e5 8d 74 46 50 0d 10 ae  0d dd f2 43 4f 4d 50 41  |..tFP......COMPA|
00004840  52 45 0d 10 b8 0a 43 4f  4d 25 3d 30 0d 10 c2 12  |RE....COM%=0....|
00004850  e7 54 50 24 3d 22 32 22  8c e5 8d 54 5c 51 0d 10  |.TP$="2"...T\Q..|
00004860  cc 15 e7 c0 4e 24 2c 31  29 3d 22 2a 22 8c e5 8d  |....N$,1)="*"...|
00004870  74 40 51 0d 10 d6 20 e7  4f 50 24 3d 22 31 22 8c  |t@Q... .OP$="1".|
00004880  e7 4e 24 3d 43 24 8c 43  4f 4d 25 3d 31 3a e5 8d  |.N$=C$.COM%=1:..|
00004890  74 68 51 0d 10 e0 21 e7  4f 50 24 3d 22 32 22 8c  |thQ...!.OP$="2".|
000048a0  e7 4e 24 3c 3e 43 24 8c  43 4f 4d 25 3d 31 3a e5  |.N$<>C$.COM%=1:.|
000048b0  8d 74 68 51 0d 10 ea 20  e7 4f 50 24 3d 22 33 22  |.thQ... .OP$="3"|
000048c0  8c e7 4e 24 3e 43 24 8c  43 4f 4d 25 3d 31 3a e5  |..N$>C$.COM%=1:.|
000048d0  8d 74 68 51 0d 10 f4 20  e7 4f 50 24 3d 22 34 22  |.thQ... .OP$="4"|
000048e0  8c e7 4e 24 3c 43 24 8c  43 4f 4d 25 3d 31 3a e5  |..N$<C$.COM%=1:.|
000048f0  8d 74 68 51 0d 10 fe 21  e7 4f 50 24 3d 22 35 22  |.thQ...!.OP$="5"|
00004900  8c e7 4e 24 3e 3d 43 24  8c 43 4f 4d 25 3d 31 3a  |..N$>=C$.COM%=1:|
00004910  e5 8d 74 68 51 0d 11 08  21 e7 4f 50 24 3d 22 36  |..thQ...!.OP$="6|
00004920  22 8c e7 4e 24 3c 3d 43  24 8c 43 4f 4d 25 3d 31  |"..N$<=C$.COM%=1|
00004930  3a e5 8d 74 68 51 0d 11  12 09 e5 8d 74 68 51 0d  |:..thQ......thQ.|
00004940  11 1c 19 e7 54 59 24 3d  22 35 22 8c 58 24 3d 43  |....TY$="5".X$=C|
00004950  24 3a f2 43 4f 4e 44 49  0d 11 26 19 e7 54 59 24  |$:.CONDI..&..TY$|
00004960  3d 22 36 22 8c 58 24 3d  43 24 3a f2 43 4f 4e 54  |="6".X$=C$:.CONT|
00004970  49 0d 11 30 20 e7 4f 50  24 3d 22 31 22 8c e7 4e  |I..0 .OP$="1"..N|
00004980  3d 4e 4f 20 8c 43 4f 4d  25 3d 31 3a e5 8d 74 68  |=NO .COM%=1:..th|
00004990  51 0d 11 3a 21 e7 4f 50  24 3d 22 32 22 8c e7 4e  |Q..:!.OP$="2"..N|
000049a0  3c 3e 4e 4f 20 8c 43 4f  4d 25 3d 31 3a e5 8d 74  |<>NO .COM%=1:..t|
000049b0  68 51 0d 11 44 20 e7 4f  50 24 3d 22 33 22 8c e7  |hQ..D .OP$="3"..|
000049c0  4e 3e 4e 4f 20 8c 43 4f  4d 25 3d 31 3a e5 8d 74  |N>NO .COM%=1:..t|
000049d0  68 51 0d 11 4e 20 e7 4f  50 24 3d 22 34 22 8c e7  |hQ..N .OP$="4"..|
000049e0  4e 3c 4e 4f 20 8c 43 4f  4d 25 3d 31 3a e5 8d 74  |N<NO .COM%=1:..t|
000049f0  68 51 0d 11 58 21 e7 4f  50 24 3d 22 35 22 8c e7  |hQ..X!.OP$="5"..|
00004a00  4e 3e 3d 4e 4f 20 8c 43  4f 4d 25 3d 31 3a e5 8d  |N>=NO .COM%=1:..|
00004a10  74 68 51 0d 11 62 2c e7  4f 50 24 3d 22 37 22 8c  |thQ..b,.OP$="7".|
00004a20  e7 4e 4f 20 3e 56 4c 31  20 80 4e 4f 20 3c 56 4c  |.NO >VL1 .NO <VL|
00004a30  32 20 8c 43 4f 4d 25 3d  31 3a e5 8d 74 68 51 0d  |2 .COM%=1:..thQ.|
00004a40  11 6c 21 e7 4f 50 24 3d  22 36 22 8c e7 4e 3c 3d  |.l!.OP$="6"..N<=|
00004a50  4e 4f 20 8c 43 4f 4d 25  3d 31 3a e5 8d 74 68 51  |NO .COM%=1:..thQ|
00004a60  0d 11 76 09 e5 8d 74 68  51 0d 11 80 12 e7 a9 28  |..v...thQ......(|
00004a70  4e 24 29 3d 31 8c e5 8d  64 56 50 0d 11 8a 32 e7  |N$)=1...dVP...2.|
00004a80  4f 50 24 3d 22 31 22 8c  43 4f 4d 25 3d a7 43 24  |OP$="1".COM%=.C$|
00004a90  2c c1 4e 24 2c 32 2c a9  28 4e 24 29 29 29 3a e7  |,.N$,2,.(N$))):.|
00004aa0  43 4f 4d 25 3e 31 8c 43  4f 4d 25 3d 31 0d 11 94  |COM%>1.COM%=1...|
00004ab0  39 e7 bb 28 4f 50 24 29  3e 31 8c 43 4f 4d 25 3d  |9..(OP$)>1.COM%=|
00004ac0  a7 43 24 2c c1 4e 24 2c  32 2c a9 28 4e 24 29 29  |.C$,.N$,2,.(N$))|
00004ad0  29 3a e7 43 4f 4d 25 3d  30 8c 43 4f 4d 25 3d 31  |):.COM%=0.COM%=1|
00004ae0  3a e5 8d 74 68 51 0d 11  9e 1c e7 bb 28 4f 50 24  |:..thQ......(OP$|
00004af0  29 3e 31 8c e7 43 4f 4d  25 3e 30 8c 43 4f 4d 25  |)>1..COM%>0.COM%|
00004b00  3d 30 0d 11 a8 05 e1 0d  11 b2 0b dd f2 43 4f 4e  |=0...........CON|
00004b10  44 49 0d 11 bc 37 58 58  24 3d 22 22 3a 58 58 24  |DI...7XX$="":XX$|
00004b20  3d 58 58 24 2b c1 58 24  2c 37 2c 32 29 2b c1 58  |=XX$+.X$,7,2)+.X|
00004b30  24 2c 34 2c 32 29 2b c1  58 24 2c 31 2c 32 29 3a  |$,4,2)+.X$,1,2):|
00004b40  4e 4f 3d bb 28 58 58 24  29 0d 11 c6 05 e1 0d 11  |NO=.(XX$).......|
00004b50  d0 0b dd f2 43 4f 4e 54  49 0d 11 da 2e 58 58 24  |....CONTI....XX$|
00004b60  3d 22 22 3a 58 58 24 3d  58 58 24 2b c1 58 24 2c  |="":XX$=XX$+.X$,|
00004b70  31 2c 32 29 2b c1 58 24  2c 34 2c 32 29 3a 4e 4f  |1,2)+.X$,4,2):NO|
00004b80  3d bb 28 58 58 24 29 0d  11 e4 05 e1 0d 11 ee 1c  |=.(XX$).........|
00004b90  dd f2 4f 55 54 50 55 54  3a 42 3d ad a4 4d 79 46  |..OUTPUT:B=..MyF|
00004ba0  69 6c 65 28 46 4f 24 29  0d 11 f8 34 e7 4f 28 37  |ile(FO$)...4.O(7|
00004bb0  29 3d 30 8c 41 28 33 35  29 3d 43 52 25 3a 54 45  |)=0.A(35)=CR%:TE|
00004bc0  4d 50 25 3d 43 52 25 3a  f2 4f 55 54 50 55 54 31  |MP%=CR%:.OUTPUT1|
00004bd0  3a f1 3a 43 52 25 3d 54  45 4d 50 25 0d 12 02 34  |:.:CR%=TEMP%...4|
00004be0  e7 4f 28 37 29 3d 31 8c  41 28 33 35 29 3d 43 52  |.O(7)=1.A(35)=CR|
00004bf0  25 3a 54 45 4d 50 25 3d  43 52 25 3a f2 4f 55 54  |%:TEMP%=CR%:.OUT|
00004c00  50 55 54 32 3a f1 3a 43  52 25 3d 54 45 4d 50 25  |PUT2:.:CR%=TEMP%|
00004c10  0d 12 0c 09 d9 23 42 3a  e1 0d 12 16 1c ef 33 3a  |.....#B:......3:|
00004c20  ef 32 36 3a d9 23 30 3a  e7 9f 3d 31 37 20 8c 20  |.26:.#0:..=17 . |
00004c30  f2 51 75 69 74 0d 12 20  05 20 0d 12 2a 0b 46 47  |.Quit.. . ..*.FG|
00004c40  25 3d 31 38 30 0d 12 34  10 e7 67 6f 25 3d 30 8c  |%=180..4..go%=0.|
00004c50  e5 8d 44 52 52 0d 12 3e  4b f2 45 52 57 49 4e 3a  |..DRR..>K.ERWIN:|
00004c60  fb 31 38 30 3a f1 8a 32  30 2c 31 32 29 3b 22 53  |.180:..20,12);"S|
00004c70  79 73 74 65 6d 20 52 65  70 6f 72 74 65 64 20 45  |ystem Reported E|
00004c80  72 72 6f 72 20 23 22 3b  9f 3b 22 3a 22 3b 8a 32  |rror #";.;":";.2|
00004c90  30 2c 31 34 29 3b f6 24  3a ef 37 3a fb 46 47 25  |0,14);.$:.7:.FG%|
00004ca0  0d 12 48 19 ff 22 43 4c  4f 53 45 22 3a ef 33 3a  |..H.."CLOSE":.3:|
00004cb0  ef 32 36 3a e5 8d 64 48  45 0d 12 52 7b f2 45 52  |.26:..dHE..R{.ER|
00004cc0  57 49 4e 3a fb 31 38 30  3a f1 8a 32 30 2c 31 32  |WIN:.180:..20,12|
00004cd0  29 3b 22 43 61 6e 6e 6f  74 20 72 65 61 64 20 74  |);"Cannot read t|
00004ce0  68 65 20 66 69 6c 65 20  3a 22 3b 46 49 24 3b 8a  |he file :";FI$;.|
00004cf0  32 30 2c 31 34 29 3b 22  28 64 6f 65 73 20 6e 6f  |20,14);"(does no|
00004d00  74 20 65 78 69 73 74 2f  6e 6f 74 20 61 20 44 61  |t exist/not a Da|
00004d10  74 61 56 69 73 69 6f 6e  20 66 69 6c 65 29 22 3a  |taVision file)":|
00004d20  fb 46 47 25 3a ef 37 3a  f2 4d 4b 4c 49 4b 3a e5  |.FG%:.7:.MKLIK:.|
00004d30  8d 54 7e 4d 0d 12 5c 09  dd f2 54 59 35 0d 12 66  |.T~M..\...TY5..f|
00004d40  1b f1 8a 58 2c 59 29 3b  22 2e 2e 2f 2e 2e 2f 2e  |...X,Y);"../../.|
00004d50  2e 22 3a 4e 24 3d 22 22  0d 12 70 19 58 33 3d 58  |.":N$=""..p.X3=X|
00004d60  3a f2 44 41 54 3a e7 44  45 3d 31 8c e5 8d 44 66  |:.DAT:.DE=1...Df|
00004d70  52 0d 12 7a 26 4e 24 3d  4e 24 2b 44 41 54 24 3a  |R..z&N$=N$+DAT$:|
00004d80  58 33 3d 58 2b 33 3a f2  44 41 54 3a e7 44 45 3d  |X3=X+3:.DAT:.DE=|
00004d90  31 8c e5 8d 44 66 52 0d  12 84 2e 4e 24 3d 4e 24  |1...DfR....N$=N$|
00004da0  2b 22 2f 22 2b 44 41 54  24 2b 22 2f 22 3a 58 33  |+"/"+DAT$+"/":X3|
00004db0  3d 58 2b 36 3a f2 44 41  54 3a e7 44 45 3d 31 8c  |=X+6:.DAT:.DE=1.|
00004dc0  e5 8d 44 66 52 0d 12 8e  0e 4e 24 3d 4e 24 2b 44  |..DfR....N$=N$+D|
00004dd0  41 54 24 0d 12 98 15 49  4e 3d a5 3a e7 49 4e 3d  |AT$....IN=.:.IN=|
00004de0  31 33 8c e5 8d 74 6c 52  0d 12 a2 17 e7 49 4e 3d  |13...tlR.....IN=|
00004df0  31 32 37 8c e5 8d 44 66  52 8b e5 8d 74 58 52 0d  |127...DfR...tXR.|
00004e00  12 ac 05 e1 0d 12 b6 09  dd f2 44 41 54 0d 12 c0  |..........DAT...|
00004e10  16 44 45 3d 30 3a 44 41  54 24 3d 22 22 3a 58 34  |.DE=0:DAT$="":X4|
00004e20  3d 58 33 0d 12 ca 1b 49  4e 3d a5 3a e7 49 4e 3d  |=X3....IN=.:.IN=|
00004e30  31 32 37 8c 44 45 3d 31  3a e5 8d 64 72 52 0d 12  |127.DE=1:..drR..|
00004e40  d4 23 e7 49 4e 3c 34 38  84 49 4e 3e 35 37 8c d4  |.#.IN<48.IN>57..|
00004e50  31 2c 2d 31 35 2c 31 30  30 2c 32 3a e5 8d 64 4a  |1,-15,100,2:..dJ|
00004e60  52 0d 12 de 3a f1 8a 58  33 2c 59 29 3b bd 28 49  |R...:..X3,Y);.(I|
00004e70  4e 29 3a 44 41 54 24 3d  44 41 54 24 2b bd 28 49  |N):DAT$=DAT$+.(I|
00004e80  4e 29 3a 58 33 3d 58 33  2b 31 3a e7 58 33 3e 28  |N):X3=X3+1:.X3>(|
00004e90  58 34 2b 31 29 8c e5 8d  64 72 52 0d 12 e8 09 e5  |X4+1)...drR.....|
00004ea0  8d 64 4a 52 0d 12 f2 05  e1 0d 12 fc 09 dd f2 54  |.dJR...........T|
00004eb0  59 36 0d 13 06 18 f1 8a  58 2c 59 29 3b 22 2e 2e  |Y6......X,Y);"..|
00004ec0  3a 2e 2e 22 3a 4e 24 3d  22 22 0d 13 10 19 58 33  |:..":N$=""....X3|
00004ed0  3d 58 3a f2 44 41 54 3a  e7 44 45 3d 31 8c e5 8d  |=X:.DAT:.DE=1...|
00004ee0  54 46 53 0d 13 1a 1e 4e  24 3d 4e 24 2b 44 41 54  |TFS....N$=N$+DAT|
00004ef0  24 2b 22 3a 22 3a 58 33  3d 58 2b 33 3a f2 44 41  |$+":":X3=X+3:.DA|
00004f00  54 0d 13 24 0e 4e 24 3d  4e 24 2b 44 41 54 24 0d  |T..$.N$=N$+DAT$.|
00004f10  13 2e 15 49 4e 3d a5 3a  e7 49 4e 3d 31 33 8c e5  |...IN=.:.IN=13..|
00004f20  8d 44 42 53 0d 13 38 17  e7 49 4e 3d 31 32 37 8c  |.DBS..8..IN=127.|
00004f30  e5 8d 54 46 53 8b e5 8d  54 6e 53 0d 13 42 05 e1  |..TFS...TnS..B..|
00004f40  0d 13 4c 11 dd f2 53 45  4c 3a 2a 46 58 31 35 2c  |..L...SEL:*FX15,|
00004f50  30 0d 13 56 6f fb 31 32  38 3a 46 47 25 3d 31 32  |0..Vo.128:FG%=12|
00004f60  38 3a 58 3d 35 30 3a 59  3d 32 3a 57 25 3d 32 31  |8:X=50:Y=2:W%=21|
00004f70  3a 4c 25 3d 32 33 3a f2  4c 57 4e 3a fb 46 47 25  |:L%=23:.LWN:.FG%|
00004f80  3a f1 8a 35 31 2c 33 29  3b 22 53 65 6c 65 63 74  |:..51,3);"Select|
00004f90  20 61 20 46 69 65 6c 64  3a 20 22 3b bd 28 31 33  | a Field: ";.(13|
00004fa0  38 29 3b 22 20 22 3b bd  28 31 33 39 29 3b 8a 35  |8);" ";.(139);.5|
00004fb0  31 2c 34 29 3b c4 32 31  2c bd 28 32 34 31 29 29  |1,4);.21,.(241))|
00004fc0  0d 13 60 36 53 53 46 25  3d 31 3a 53 46 25 3d 31  |..`6SSF%=1:SF%=1|
00004fd0  3a 59 32 3d 36 3a 53 52  25 3d 53 46 25 3a ff 22  |:Y2=6:SR%=SF%:."|
00004fe0  43 4c 4f 53 45 22 3a 41  3d ad a4 4d 79 46 69 6c  |CLOSE":A=..MyFil|
00004ff0  65 28 46 4f 24 29 0d 13  6a 21 46 52 25 3d 53 52  |e(FO$)..j!FR%=SR|
00005000  25 2b 31 39 3a e7 46 52  25 3e 4e 4f 46 25 8c 46  |%+19:.FR%>NOF%.F|
00005010  52 25 3d 4e 4f 46 25 0d  13 74 7b 4c 3d 36 3a 4c  |R%=NOF%..t{L=6:L|
00005020  4c 3d 31 3a e3 49 3d 53  52 25 b8 46 52 25 3a cf  |L=1:.I=SR%.FR%:.|
00005030  23 41 3d 28 49 2d 31 29  2a 36 31 2b 36 33 3a e8  |#A=(I-1)*61+63:.|
00005040  23 41 2c 46 4c 24 3a f1  8a 35 32 2c 4c 29 3b 46  |#A,FL$:..52,L);F|
00005050  4c 24 3a 4d 45 24 28 4c  4c 29 3d 46 4c 24 3a 4c  |L$:ME$(LL)=FL$:L|
00005060  3d 4c 2b 31 3a 4c 4c 3d  4c 4c 2b 31 3a ed 49 3a  |=L+1:LL=LL+1:.I:|
00005070  e7 20 4c 4c 3c 32 31 20  8c 20 e3 20 49 3d 4c 4c  |. LL<21 . . I=LL|
00005080  20 b8 32 30 3a 4d 45 24  28 49 29 3d 22 20 22 3a  | .20:ME$(I)=" ":|
00005090  ed 49 0d 13 7e 41 c8 97  20 58 50 2c 59 50 2c 42  |.I..~A.. XP,YP,B|
000050a0  55 54 3a 58 50 3d a8 28  58 50 2f 31 36 29 3a 59  |UT:XP=.(XP/16):Y|
000050b0  50 3d 33 31 2d a8 28 59  50 2f 33 32 29 3a e7 42  |P=31-.(YP/32):.B|
000050c0  55 54 3d 31 8c 46 47 25  3d 31 38 30 3a fb 46 47  |UT=1.FG%=180:.FG|
000050d0  25 3a e1 0d 13 88 20 e7  58 50 3d 36 37 20 80 20  |%:.... .XP=67 . |
000050e0  59 50 3d 33 20 80 20 42  55 54 3d 34 20 8c e5 8d  |YP=3 . BUT=4 ...|
000050f0  74 70 53 0d 13 92 20 e7  58 50 3d 36 39 20 80 20  |tpS... .XP=69 . |
00005100  59 50 3d 33 20 80 20 42  55 54 3d 34 20 8c e5 8d  |YP=3 . BUT=4 ...|
00005110  64 44 53 0d 13 9c 40 e7  20 58 50 3e 37 31 20 84  |dDS...@. XP>71 .|
00005120  20 58 50 3c 35 31 20 84  20 59 50 3e 32 35 20 84  | XP<51 . YP>25 .|
00005130  20 59 50 3c 36 20 8c 53  53 46 25 3d 30 3a f2 43  | YP<6 .SSF%=0:.C|
00005140  4c 45 41 46 3a 53 53 46  25 3d 53 46 25 3a e5 8d  |LEAF:SSF%=SF%:..|
00005150  44 7e 53 0d 13 a6 72 59  50 3d 59 50 2d 35 3a 53  |D~S...rYP=YP-5:S|
00005160  46 25 3d 28 59 50 2b 53  52 25 29 2d 31 3a f2 43  |F%=(YP+SR%)-1:.C|
00005170  4c 45 41 46 3a fb 31 33  31 3a f1 8a 35 32 2c 59  |LEAF:.131:..52,Y|
00005180  50 2b 35 29 3b 4d 45 24  28 59 50 29 3b 89 28 32  |P+5);ME$(YP);.(2|
00005190  30 2d a9 28 4d 45 24 28  59 50 29 29 29 3a fb 46  |0-.(ME$(YP))):.F|
000051a0  47 25 3a e7 42 55 54 3d  34 20 80 20 53 46 25 3c  |G%:.BUT=4 . SF%<|
000051b0  28 4e 4f 46 25 2b 31 29  8c e5 8d 64 58 53 3a 8b  |(NOF%+1)...dXS:.|
000051c0  e5 8d 44 7e 53 0d 13 b0  13 e7 46 52 25 3d 4e 4f  |..D~S.....FR%=NO|
000051d0  46 25 8c e5 8d 44 7e 53  0d 13 ba 6e 53 52 25 3d  |F%...D~S...nSR%=|
000051e0  53 52 25 2b 32 30 3a 58  3d 35 30 3a 59 3d 32 3a  |SR%+20:X=50:Y=2:|
000051f0  57 25 3d 32 31 3a 4c 25  3d 32 33 3a f2 4c 57 4e  |W%=21:L%=23:.LWN|
00005200  3a f1 8a 35 31 2c 33 29  3b 22 53 65 6c 65 63 74  |:..51,3);"Select|
00005210  20 61 20 46 69 65 6c 64  3a 20 22 3b bd 28 31 33  | a Field: ";.(13|
00005220  38 29 3b 22 20 22 3b bd  28 31 33 39 29 3b 8a 35  |8);" ";.(139);.5|
00005230  31 2c 34 29 3b c4 32 31  2c bd 28 32 34 31 29 29  |1,4);.21,.(241))|
00005240  3a e5 8d 44 6a 53 0d 13  c4 10 e7 53 52 25 3d 31  |:..DjS.....SR%=1|
00005250  8c e5 8d 44 7e 53 0d 13  ce 6e 53 52 25 3d 53 52  |...D~S...nSR%=SR|
00005260  25 2d 32 30 3a 58 3d 35  30 3a 59 3d 32 3a 57 25  |%-20:X=50:Y=2:W%|
00005270  3d 32 31 3a 4c 25 3d 32  33 3a f2 4c 57 4e 3a f1  |=21:L%=23:.LWN:.|
00005280  8a 35 31 2c 33 29 3b 22  53 65 6c 65 63 74 20 61  |.51,3);"Select a|
00005290  20 46 69 65 6c 64 3a 20  22 3b bd 28 31 33 38 29  | Field: ";.(138)|
000052a0  3b 22 20 22 3b bd 28 31  33 39 29 3b 8a 35 31 2c  |;" ";.(139);.51,|
000052b0  34 29 3b c4 32 31 2c bd  28 32 34 31 29 29 3a e5  |4);.21,.(241)):.|
000052c0  8d 44 6a 53 0d 13 d8 80  ef 37 3a cf 23 41 3d 28  |.DjS.....7:.#A=(|
000052d0  53 46 25 2d 31 29 2a 36  31 2b 36 33 3a e8 23 41  |SF%-1)*61+63:.#A|
000052e0  2c 46 4c 24 3a cf 23 41  3d 28 53 46 25 2d 31 29  |,FL$:.#A=(SF%-1)|
000052f0  2a 36 31 2b 31 30 31 3a  e8 23 41 2c 54 59 24 3a  |*61+101:.#A,TY$:|
00005300  cf 23 41 3d 28 53 46 25  2d 31 29 2a 36 31 2b 31  |.#A=(SF%-1)*61+1|
00005310  31 37 3a e8 23 41 2c 54  52 24 3a cf 23 41 3d 28  |17:.#A,TR$:.#A=(|
00005320  53 46 25 2d 31 29 2a 36  31 2b 31 30 34 3a e8 23  |SF%-1)*61+104:.#|
00005330  41 2c 49 4e 24 3a fb 46  47 25 3a 46 47 25 3d 31  |A,IN$:.FG%:FG%=1|
00005340  38 30 3a e1 0d 13 e2 42  dd f2 43 4c 45 41 46 3a  |80:....B..CLEAF:|
00005350  e7 53 53 46 25 3c 3e 53  46 25 8c e3 49 3d 31 b8  |.SSF%<>SF%..I=1.|
00005360  32 30 3a f1 8a 35 32 2c  49 2b 35 29 3b 4d 45 24  |20:..52,I+5);ME$|
00005370  28 49 29 3b 89 28 32 30  2d a9 28 4d 45 24 28 49  |(I);.(20-.(ME$(I|
00005380  29 29 29 3a ed 49 0d 13  ec 0e 53 53 46 25 3d 53  |))):.I....SSF%=S|
00005390  46 25 3a e1 0d 13 f6 2c  dd f2 59 4e 3a 78 70 3d  |F%:....,..YN:xp=|
000053a0  b1 3a 79 70 3d bc 3a f1  22 20 22 3b 3a fb 31 33  |.:yp=.:." ";:.13|
000053b0  31 3a f1 22 59 45 53 2f  4e 4f 22 3a fb 46 47 25  |1:."YES/NO":.FG%|
000053c0  0d 14 00 38 c8 97 20 58  50 2c 59 50 2c 42 55 54  |...8.. XP,YP,BUT|
000053d0  3a 58 50 3d a8 28 58 50  2f 31 36 29 3a 59 50 3d  |:XP=.(XP/16):YP=|
000053e0  33 31 2d a8 28 59 50 2f  33 32 29 3a e7 42 55 54  |31-.(YP/32):.BUT|
000053f0  3d 30 8c e5 8d 54 40 54  0d 14 0a 12 e7 59 50 3c  |=0...T@T.....YP<|
00005400  3e 79 70 20 8c e5 8d 54  40 54 0d 14 14 2b e7 58  |>yp ...T@T...+.X|
00005410  50 3d 78 70 2b 31 20 84  20 58 50 3d 78 70 2b 32  |P=xp+1 . XP=xp+2|
00005420  20 84 20 58 50 3d 78 70  2b 33 8c 59 4e 3d 31 3a  | . XP=xp+3.YN=1:|
00005430  e5 8d 54 72 54 0d 14 1e  22 e7 58 50 3d 78 70 2b  |..TrT...".XP=xp+|
00005440  35 20 84 20 58 50 3d 78  70 2b 36 20 8c 59 4e 3d  |5 . XP=xp+6 .YN=|
00005450  30 3a e5 8d 54 72 54 0d  14 28 09 e5 8d 54 40 54  |0:..TrT..(...T@T|
00005460  0d 14 32 1b f1 8a 78 70  2c 79 70 29 3b 22 20 59  |..2...xp,yp);" Y|
00005470  45 53 2f 4e 4f 22 3a ef  37 3a e1 0d 14 3c 0a dd  |ES/NO":.7:...<..|
00005480  f2 53 45 4c 32 0d 14 46  72 fb 31 32 38 3a 46 47  |.SEL2..Fr.128:FG|
00005490  25 3d 31 32 38 3a 58 3d  35 30 3a 59 3d 31 35 3a  |%=128:X=50:Y=15:|
000054a0  57 25 3d 32 31 3a 4c 25  3d 31 33 3a f2 4c 57 4e  |W%=21:L%=13:.LWN|
000054b0  3a fb 46 47 25 3a f1 8a  35 31 2c 31 36 29 3b 22  |:.FG%:..51,16);"|
000054c0  53 65 6c 65 63 74 20 61  20 46 69 65 6c 64 3a 20  |Select a Field: |
000054d0  22 3b bd 28 31 33 38 29  3b 22 20 22 3b bd 28 31  |";.(138);" ";.(1|
000054e0  33 39 29 3b 8a 35 31 2c  31 37 29 3b c4 32 31 2c  |39);.51,17);.21,|
000054f0  bd 28 32 34 31 29 29 0d  14 50 37 53 53 46 25 3d  |.(241))..P7SSF%=|
00005500  31 3a 53 46 25 3d 31 3a  59 32 3d 31 39 3a 53 52  |1:SF%=1:Y2=19:SR|
00005510  25 3d 53 46 25 3a ff 22  43 4c 4f 53 45 22 3a 41  |%=SF%:."CLOSE":A|
00005520  3d ad a4 4d 79 46 69 6c  65 28 46 4f 24 29 0d 14  |=..MyFile(FO$)..|
00005530  5a 20 46 52 25 3d 53 52  25 2b 39 3a e7 46 52 25  |Z FR%=SR%+9:.FR%|
00005540  3e 4e 4f 46 25 8c 46 52  25 3d 4e 4f 46 25 0d 14  |>NOF%.FR%=NOF%..|
00005550  64 7c 4c 3d 31 39 3a 4c  4c 3d 31 3a e3 49 3d 53  |d|L=19:LL=1:.I=S|
00005560  52 25 b8 46 52 25 3a cf  23 41 3d 28 49 2d 31 29  |R%.FR%:.#A=(I-1)|
00005570  2a 36 31 2b 36 33 3a e8  23 41 2c 46 4c 24 3a f1  |*61+63:.#A,FL$:.|
00005580  8a 35 32 2c 4c 29 3b 46  4c 24 3a 4d 45 24 28 4c  |.52,L);FL$:ME$(L|
00005590  4c 29 3d 46 4c 24 3a 4c  3d 4c 2b 31 3a 4c 4c 3d  |L)=FL$:L=L+1:LL=|
000055a0  4c 4c 2b 31 3a ed 49 3a  e7 20 4c 4c 3c 31 31 20  |LL+1:.I:. LL<11 |
000055b0  8c 20 e3 20 49 3d 4c 4c  20 b8 31 30 3a 4d 45 24  |. . I=LL .10:ME$|
000055c0  28 49 29 3d 22 20 22 3a  ed 49 0d 14 6e 2b c8 97  |(I)=" ":.I..n+..|
000055d0  20 58 50 2c 59 50 2c 42  55 54 3a 58 50 3d a8 28  | XP,YP,BUT:XP=.(|
000055e0  58 50 2f 31 36 29 3a 59  50 3d 33 31 2d a8 28 59  |XP/16):YP=31-.(Y|
000055f0  50 2f 33 32 29 0d 14 78  10 e7 42 55 54 3d 32 8c  |P/32)..x..BUT=2.|
00005600  e5 8d 44 5e 4b 0d 14 82  10 e7 42 55 54 3d 31 8c  |..D^K.....BUT=1.|
00005610  e5 8d 44 68 4b 0d 14 8c  21 e7 58 50 3d 36 37 20  |..DhK...!.XP=67 |
00005620  80 20 59 50 3d 31 36 20  80 20 42 55 54 3d 34 20  |. YP=16 . BUT=4 |
00005630  8c e5 8d 74 74 54 0d 14  96 21 e7 58 50 3d 36 39  |...ttT...!.XP=69|
00005640  20 80 20 59 50 3d 31 36  20 80 20 42 55 54 3d 34  | . YP=16 . BUT=4|
00005650  20 8c e5 8d 64 48 54 0d  14 a0 42 e7 20 58 50 3e  | ...dHT...B. XP>|
00005660  37 31 20 84 20 58 50 3c  35 31 20 84 20 59 50 3e  |71 . XP<51 . YP>|
00005670  32 38 20 84 20 59 50 3c  31 39 20 8c 53 53 46 25  |28 . YP<19 .SSF%|
00005680  3d 30 3a f2 43 4c 45 41  46 32 3a 53 53 46 25 3d  |=0:.CLEAF2:SSF%=|
00005690  53 46 25 3a e5 8d 44 6e  54 0d 14 aa 75 59 50 3d  |SF%:..DnT...uYP=|
000056a0  59 50 2d 31 38 3a 53 46  25 3d 28 59 50 2b 53 52  |YP-18:SF%=(YP+SR|
000056b0  25 29 2d 31 3a f2 43 4c  45 41 46 32 3a fb 31 33  |%)-1:.CLEAF2:.13|
000056c0  31 3a f1 8a 35 32 2c 59  50 2b 31 38 29 3b 4d 45  |1:..52,YP+18);ME|
000056d0  24 28 59 50 29 3b 89 28  32 30 2d a9 28 4d 45 24  |$(YP);.(20-.(ME$|
000056e0  28 59 50 29 29 29 3a fb  46 47 25 3a e7 42 55 54  |(YP))):.FG%:.BUT|
000056f0  3d 34 20 80 20 53 46 25  3c 28 4e 4f 46 25 2b 31  |=4 . SF%<(NOF%+1|
00005700  29 8c e5 8d 64 5c 54 3a  8b e5 8d 44 6e 54 0d 14  |)...d\T:...DnT..|
00005710  b4 13 e7 46 52 25 3d 4e  4f 46 25 8c e5 8d 44 6e  |...FR%=NOF%...Dn|
00005720  54 0d 14 be 71 53 52 25  3d 53 52 25 2b 31 30 3a  |T...qSR%=SR%+10:|
00005730  58 3d 35 30 3a 59 3d 31  35 3a 57 25 3d 32 31 3a  |X=50:Y=15:W%=21:|
00005740  4c 25 3d 31 33 3a f2 4c  57 4e 3a f1 8a 35 31 2c  |L%=13:.LWN:..51,|
00005750  31 36 29 3b 22 53 65 6c  65 63 74 20 61 20 46 69  |16);"Select a Fi|
00005760  65 6c 64 3a 20 22 3b bd  28 31 33 38 29 3b 22 20  |eld: ";.(138);" |
00005770  22 3b bd 28 31 33 39 29  3b 8a 35 31 2c 31 37 29  |";.(139);.51,17)|
00005780  3b c4 32 31 2c bd 28 32  34 31 29 29 3a e5 8d 44  |;.21,.(241)):..D|
00005790  5a 54 0d 14 c8 10 e7 53  52 25 3d 31 8c e5 8d 44  |ZT.....SR%=1...D|
000057a0  6e 54 0d 14 d2 71 53 52  25 3d 53 52 25 2d 31 30  |nT...qSR%=SR%-10|
000057b0  3a 58 3d 35 30 3a 59 3d  31 35 3a 57 25 3d 32 31  |:X=50:Y=15:W%=21|
000057c0  3a 4c 25 3d 31 33 3a f2  4c 57 4e 3a f1 8a 35 31  |:L%=13:.LWN:..51|
000057d0  2c 31 36 29 3b 22 53 65  6c 65 63 74 20 61 20 46  |,16);"Select a F|
000057e0  69 65 6c 64 3a 20 22 3b  bd 28 31 33 38 29 3b 22  |ield: ";.(138);"|
000057f0  20 22 3b bd 28 31 33 39  29 3b 8a 35 31 2c 31 37  | ";.(139);.51,17|
00005800  29 3b c4 32 31 2c bd 28  32 34 31 29 29 3a e5 8d  |);.21,.(241)):..|
00005810  44 5a 54 0d 14 dc 7a ef  37 3a cf 23 41 3d 28 53  |DZT...z.7:.#A=(S|
00005820  46 25 2d 31 29 2a 36 31  2b 36 33 3a e8 23 41 2c  |F%-1)*61+63:.#A,|
00005830  46 4c 24 3a cf 23 41 3d  28 53 46 25 2d 31 29 2a  |FL$:.#A=(SF%-1)*|
00005840  36 31 2b 31 30 31 3a e8  23 41 2c 54 59 24 3a cf  |61+101:.#A,TY$:.|
00005850  23 41 3d 28 53 46 25 2d  31 29 2a 36 31 2b 31 31  |#A=(SF%-1)*61+11|
00005860  37 3a e8 23 41 2c 54 52  24 3a fb 46 47 25 3a 46  |7:.#A,TR$:.FG%:F|
00005870  47 25 3d 31 38 30 3a f5  3a c8 97 20 55 2c 55 2c  |G%=180:.:.. U,U,|
00005880  42 55 54 3a fd 20 42 55  54 3d 30 3a e1 0d 14 e6  |BUT:. BUT=0:....|
00005890  44 dd f2 43 4c 45 41 46  32 3a e7 53 53 46 25 3c  |D..CLEAF2:.SSF%<|
000058a0  3e 53 46 25 8c e3 49 3d  31 b8 31 30 3a f1 8a 35  |>SF%..I=1.10:..5|
000058b0  32 2c 49 2b 31 38 29 3b  4d 45 24 28 49 29 3b 89  |2,I+18);ME$(I);.|
000058c0  28 32 30 2d a9 28 4d 45  24 28 49 29 29 29 3a ed  |(20-.(ME$(I))):.|
000058d0  49 0d 14 f0 0e 53 53 46  25 3d 53 46 25 3a e1 0d  |I....SSF%=SF%:..|
000058e0  14 fa 13 dd a4 4d 79 46  69 6c 65 28 66 69 6c 65  |.....MyFile(file|
000058f0  24 29 0d 15 04 0a 3d 66  69 6c 65 24 0d 15 0e 0b  |$)....=file$....|
00005900  dd 20 f2 51 75 69 74 0d  15 18 1e c8 99 20 22 57  |. .Quit...... "W|
00005910  69 6d 70 5f 43 6f 6d 6d  61 6e 64 57 69 6e 64 6f  |imp_CommandWindo|
00005920  77 22 2c 2d 31 0d 15 22  06 c8 98 0d 15 2c 05 e1  |w",-1..".....,..|
00005930  0d 9c 40 0d dd f2 44 69  72 28 64 24 29 0d 9c 4a  |..@...Dir(d$)..J|
00005940  29 e7 20 64 24 20 3c 3e  20 22 22 20 8c 20 ff 20  |). d$ <> "" . . |
00005950  22 44 69 72 20 22 2b a4  4d 79 46 69 6c 65 28 c1  |"Dir "+.MyFile(.|
00005960  64 24 2c 32 29 29 0d 9c  54 05 e1 0d ff           |d$,2))..T....|
0000596d