� > $.!DataVis.!dv10

TY$=""
ș "Wimp_CommandWindow",-1

TY$=""
� 15:� 180:�
��D^P
(ȗ �:�:FG%=180
2�ME$(20):LOD%=0
<_�A(3):�O$(8):�P$(8):�SU$(10):�QBE$(30,2):�Q$(10,4):�I=1�8:�O$(I):�I:�I=1�8:�P$(I):�I:COM%=0
Fy�"Equal to","Not Equal to","Less Than","Greater Than","Less or Equal","Greater or Equal","Within Range","Approximate"
P-�"=","<>","<",">","<=",">=","VIEW","LINK"
Z}�"CLOSE":X=� �MyFile("NIM"):�#X,FI$,ST$,DA$,DR$,ZZ$,MD$:�"CLOSE":FO$=FI$+"A":ST$="1":SE$="Processing query on "+FI$:�T`C
d��MAIN:go%=0
nA�ST$="1"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�Dir(DI$):�tj@
x	�tL@
�a�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(file empty)":�FG%:�7:�MKLIK:�TbP
�A�ST$="2"� TA$=FI$+"N":X=��MyFile(TA$):�#X,DI$:�Dir(DI$):�tj@
�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=23:�#X,SOL$
��NOR%=0��tB@
�go%=1:�
���SC
Ҏ�128:�0,0);�80,�(241));�0,22);�80,�(241)):�28,0,31,79,23:�:�26:�2,24);"Viewing record ";I;" of ";NOR%:�131:�71,0);"PAGE";�(241);P%:�FG%
��
���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$

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

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

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

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

^�

h	��LWN

ry�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)

|�

�
��TIME

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

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

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

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

��

���TEXT:*FX15,0

�
T$="":L=0

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

�IN=�

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

��IN=127��TfB

��IN=9�NP%=1:�DDB
�L=L%��d`A
(�X,Y);�(IN):T$=T$+�(IN):L=L+1:X=X+1
	�dVA
&�L=0��dLA
0$�X,Y);" ":X=X-1:L=L-1:T$=�T$,L)
:	�dVA
D�X,Y);" "
N�
X��CEPT:�
b+�A(2)=1�X=40:Y=13:W%=22:L%=5:�LWN:�t@B
l�A(3)=1��dp@
v	�dPB
���41,14);"Printer is ON.";�41,15);"Do you wish to include";�41,16);"a printout header?";�41,17);"(Y/N)":IN$=�:�IN$="N"�HE$="":PO%=0:�DlB
��IN$<>"Y"��t@B
�fX=0:Y=16:W%=78:L%=2:�LWN:�1,17);"Please enter Header:":X2=1:Y2=18:IN%=230:�TY1:HE$=N$:PO%=1:�DlB
���D^P
�z�ERWIN:�180:�20,12);"Cannot find the ";N$;" query:";�20,14);"Click mouse to continue...":FG%=180:�FG%:�7:�MKLIK:�TtC
���D^P
�TTA$=N$+"A":�"CLOSE":X=��MyFile(TA$):�#X=5:�#X,ZZ$:SCR%=�(ZZ$):SCR%=SCR%+1:SC$=N$
�
*CLOSE
��
�0��CLICK:�:ȗ U1,U2,BUT:�BUT>0:�7:� "FX 15,0"
��BUT=2��"CLOSE":�TtC
��
�A(2)=A(2)+1:�A(2)>1�A(2)=0
�OUT:�ttO
2��OUT:�A(2)=0��51,21);�(132):��51,21);�(128)
�
 	�MAIN
*��T~C:� A(1),A(2),A(3)
4JX=41:Y=12:W%=17:L%=9:�LWN:PO%=0:COU%=0:LIN%=0:�42,21);"Printer:":�OUT
>� 1,0,0
H�ME$(1)="Fast Search":ME$(2)="Compare Fields":ME$(3)="Minimum Search":ME$(4)="Maximum Search":ME$(5)="Ad-Hoc Query":ME$(6)="Load a Query":ME$(7)="Quit":X=42:Y=13:L%=7:�SELECT
R�SEL%=1��CEPT:�tXC
\�SEL%=5��D`I
f�SEL%=3��CEPT:�dPL
p�SEL%=6��tHN
z�SEL%=4��CEPT:�TtM
��SEL%=7��TbP
��SEL%=2��CEPT:�TFN
�?�:�2,2);"Fast Search";�2,3);�11,�(241)):�SEL:CF%=SF%:�tbC
�D�FOPOUT:�TY$="1"�TY$="2"�TY$="3"�TY$="4"�TY$="9"�TP$="1"�TP$="2"
�\X=1:Y=2:W%=45:L%=2:�LWN:�TP$="1"��2,3);"Please enter expression:":X2=2:Y2=4:IN%=40:�TY1
�Z�TY$="7"�TY$="8"�TY$="0"�X2=2:Y2=4:HI%=18:�2,3);"Please enter constant:":�TY7:N=�(N$)
�T�TY$="5"�X2=2:Y2=4:�2,3);"Please enter date to compare:":�TY5:X$=N$:�CONDI:N=NO
�T�TY$="6"�X2=2:Y2=4:�2,3);"Please enter time to compare:":�TY6:X$=N$:�CONTI:N=NO
�	�DVD
��:�SE$:�(OP$)>1��drC
��SO$="1"�SO$="2"��INDEX
�SR%=1:S%=0
�"�"CLOSE":X=��MyFile(FI$):J=SR%
K�LIN%=0��#X=(J-1)*REC%+TI%:�#X,C$:NO=�(C$):�COMPARE:�COM%=1�I=J:�OUTPUT
A�LIN%=1��#X=(J*REC%)-10:�#X,LK$:I=�(LK$):�I>NOR%�J=NOR%:�TnD
M�LIN%=1��#X=(I-1)*REC%+TI%:�#X,C$:NO=�(C$):�CHKL:�COMPARE:�COM%=1��OUTPUT
$�LIN%=1�I=I-1
.J=J+1:�J>NOR%��TxD:��TFD
8!�COU%=0�COU%>1�X$="s "�X$=" "
BM�A(3)=1��"CLOSE":TA$=SC$+"A":X=��MyFile(TA$):�#X=5:�#X,�(SCR%-1):�"CLOSE"
LA�'"Query completed. ";COU%;" record"+X$+"found.":�CLICK:�TtC
VX=8:Y=8:W%=19:L%=7:�LWN
`J�9,9);"Select operator:":�F=1�6:ME$(F)=O$(F):�F:X=9:Y=10:L%=6:�SELECT
jOP$=�(SEL%):�d^C
t�OP$="7"�TP$="2"��t\D
~�OP$="8"�TP$="1"��DjD
��OP$="7"�TP$="1"��DjD
�	�d^C
�[X=30:Y=8:W%=19:L%=4:�LWN:�31,9);"Enter Lower value:":X2=31:Y2=10:HI%=18:�TY7:VL1=�(N$)
�D�31,11);"Enter Higher value:":X2=31:Y2=12:HI%=18:�TY7:VL2=�(N$)
��VL2<=VL1 ��tfD
�	�d^C
�
��COMPARE
�
COM%=0
��TP$="2"��TrE
��N$,1)="*"��tVE
� �OP$="1"��N$=C$�COM%=1:�t~E
�!�OP$="2"��N$<>C$�COM%=1:�t~E
 �OP$="3"��N$>C$�COM%=1:�t~E

 �OP$="4"��N$<C$�COM%=1:�t~E
!�OP$="5"��N$>=C$�COM%=1:�t~E
!�OP$="6"��N$<=C$�COM%=1:�t~E
(	�t~E
2�TY$="5"�X$=C$:�CONDI
<�TY$="6"�X$=C$:�CONTI
F �OP$="1"��N=NO �COM%=1:�t~E
P!�OP$="2"��N<>NO �COM%=1:�t~E
Z �OP$="3"��N>NO �COM%=1:�t~E
d �OP$="4"��N<NO �COM%=1:�t~E
n!�OP$="5"��N>=NO �COM%=1:�t~E
x,�OP$="7"��NO >VL1 �NO <VL2 �COM%=1:�t~E
�!�OP$="6"��N<=NO �COM%=1:�t~E
�	�t~E
��(N$)=1��dlD
�2�OP$="1"�COM%=�C$,�N$,2,�(N$))):�COM%>1�COM%=1
�9�(OP$)>1�COM%=�C$,�N$,2,�(N$))):�COM%=0�COM%=1:�t~E
��(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$)
��
��CHKL:�LIN%=0��TlF
'�TL$="1"��C$,1)<>LIN$�J=NOR%:�TnD
)�TL$="2"��C$,7,2)<>LIN$�J=NOR%:�TnD
")�TL$="3"��C$,1,2)<>LIN$�J=NOR%:�TnD
,�
6�
@	��TY1
JN$="":PT=0
T�PT<IN%��X2,Y2);�(255)
^IN=�
h�IN=13��X2,Y2);" ":�txF
r�IN=127��tZF
|�PT=IN%��D^F
�B�X2,Y2);�(IN):N$=N$+�(IN):PT=PT+1:X2=X2+1:�X2>79�Y2=Y2+1:X2=0
�	�DTF
��PT=0��DTF
�?�X2,Y2);" ":PT=PT-1:N$=�N$,PT):X2=X2-1:�X2<0�Y2=Y2-1:X2=79
�	�DTF
��
�	��TY7
�3X2=X2+(HI%-1):X3=X2:N$="":PT=0:PO=0:�HI%=9�PO=1
��PT=0��X2,Y2);"0"
�IN=�
��IN=13��DvG
��IN=127��TzG
��IN=46�PO=0�PO=1:�TfG
�IN=46�PO=1��dVF
�IN=45�PT=0��TpG
"�IN<48�IN>57��1,-15,90,2:�dVF
&�PT=HI%��dVF
01N$=N$+�(IN):PT=PT+1:�X2,Y2);N$:X2=X2-1:�dVF
:�PT=0��dVF
D�N$,PT,1)="."�PO=0
NGX2=X2+1:�X2,Y2);" ":X2=X2+1:PT=PT-1:N$=�N$,PT):�N$<>""��X2,Y2);N$
XX2=X2-1
b�X2>X3 �X2=X3
l	�dVF
v�N$=""�N$="0"
��
�	��TY5
��X2,Y2);"../../..":N$=""
�X3=X2:�DAT:�DE=1��tTG
�'N$=N$+DAT$:X3=X2+3:�DAT:�DE=1��tTG
�/N$=N$+"/"+DAT$+"/":X3=X2+6:�DAT:�DE=1��tTG
�N$=N$+DAT$
�IN=�:�IN=13��dZG
��IN=127��tTG��dFG
��
�	��DAT
�DE=0:DAT$="":X4=X3
�IN=�:�IN=127�DE=1:�T`H
#�IN<48�IN>57��1,-15,100,2:�dxG
;�X3,Y2);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��T`H
	�dxG
 �
*	��TY6
4�X2,Y2);"..:..":N$=""
>X3=X2:�DAT:�DE=1��TtH
HN$=N$+DAT$+":":X3=X2+3:�DAT
RN$=N$+DAT$
\IN=�:�IN=13��DpH
f�IN=127��TtH��D\H
p�
z��OUTPUT
�S%=1:COU%=COU%+1
��A(2)=1��2:�d@H
�	�dhH
��A(1)=0��dhH
��
�	�DBI
�F�"Record ";I;" of ";NOR%':�"CLOSE":A=��MyFile(FO$):X=��MyFile(FI$)
�
�F=1�NOF%
�l�#A=(F-1)*61+63:�#A,FL$:�#A=(F-1)*61+109:�#A,TI$:�#X=(I-1)*REC%+�(TI$):�#X,T$:�FL$+�22-�(FL$)," ")+T$:�F
�$�:�3:�44:��80,�(241)):�127:�tlH
�;�:P%=1:F=1:�"CLOSE":A=��MyFile(FO$):X=��MyFile(FI$):�SC
�5POI=(F-1)*61+63:�#A=POI+58:�#A,NP$:�NP$="1"��dTC
��POI=(F-1)*61+63:�#A=POI:�#A,FL$:�#A=POI+22:�#A,ZZ$:X1=�(ZZ$):�#A=POI+26:�#A,ZZ$:Y1=�(ZZ$):�#A=POI+30:�#A,ZZ$:X5=�(ZZ$):�#A=POI+34:�#A,ZZ$:Y5=�(ZZ$):�#A=POI+46:�#A,ZZ$:Ti%=�(ZZ$)
	K�#X=(I-1)*REC%+Ti%:�#X,T$:�X1,Y1);FL$:�FPNT:F=F+1:�F>NOF%��TPI:��drH
	��131:�45:�2,28);"Continue Search:";�2,29);"Next Page      :";�33,28);"Quit Search:":�128:�120:�19,28);"Left Button";�19,29);"Right Button";�46,28);"Middle Button":�127:�FG%
	�CLICK:�BUT=4��:�DVI
	$�BUT<>1��TZI
	. �F>NOF%��:P%=1:F=1:�SC:�drH
	8P%=P%+1:�SC:�drH
	B�A(2)=1�A(3)=1��DVI
	L
�CLICK
	V�
	`-�:�1,1);"Ad-Hoc Query";�1,2);�12,�(241))
	ju�0,4);�(154);�78,�(159));�(158);�1,4);"Li";�4,4);"Field";�25,4);"Op";�29,4);"Constant/Expression";�74,4);"Logic"
	t;�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=0�10:�F=0�4:Q$(I,F)="":�F:�I
	� �"CLOSE":C=��MyFile(FO$):I=1
	�)X=4:Y=I+4:L%=20:�TEXT:N$=T$:�CL:�CHEK
	�*X=25:Y=I+4:L%=2:�TEXT:N$=T$:�CL:�CHEK2
	�9�Q$(I,4)="9"� �(Q$(I,4))<5 � �(Q$(I,3))>6��tzI��dNI
	�F�CL:�20,1);"Invalid Operator. Want to continue?";:�YN:�YN=0��DqB
	�B�20,1);"                                              ":�tfI
	�X=29:Y=I+4:L%=44:X2=X:Y2=Y
	�&�Q$(I,4)="5"��TY5:Q$(I,0)=N$:�dvI
	�&�Q$(I,4)="6"��TY6:Q$(I,0)=N$:�dvI
	��TEXT:N$=T$:Q$(I,0)=N$
	�U�74,I+4);�(255):I$=�:�I$="A"� I$="O"� I$="E"� I$="a"� I$="o"� I$="e"��T@J��dvI
�I$="A"� I$="a"�I$="AND"

�I$="E"� I$="e"�I$="END"
�I$="O"� I$="o"�I$="OR"
�74,I+4);I$:Q$(I,1)=I$
(�I$="END"�T%=I:�ttJ
2"I=I+1:�I>10�T%=10:�ttJ:��t\I
<
��CHEK
F�L%=0:�F=1�NOF%:�#C=(F-1)*61+63:�#C,FL$:�N$=FL$��#C=(F-1)*61+63+46:�#C,TI$:Q$(I,2)=TI$:�#C=(F-1)*61+63+38:�#C,TY$:Q$(I,4)=TY$:F=NOF%:L%=1
P�F
ZY�L%=1��DnJ:��CL:�20,1);"Incorrect field title spelling. Continue?";:�YN:�YN=0��TtC
d
�CL:�t\I
n�
x��CHEK2
�/L%=0:�F=1�6:�N$=P$(F)�Q$(I,3)=�(F):L%=1:F=8
�V�F:�L%=1��t`J:��CL:�20,1);"Invalid Operator. Want to continue?";:�YN:�YN=0��DqB
�
�CL:�tfI
��
�+��CL:�20,1);�60," ");�20,2);�60," "):�
�BMC$=�20,"0"):RC$=MC$:�Q$(1,1)="OR"�MC$="1"+�9,"0")+"1"+�9,"0")
��
��F=1�T%
��Q$(F,1)="OR"��TNK
�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
�LOD%=0��trL
"/�:S%=0:�"CLOSE":C=��MyFile(FI$):LOD%=0:�SE$
,!�CR%=1�NOR%:F%=1:RC$=�20,"0")
6�Q$(1,1)="OR"��DvL
@c�#C=(CR%-1)*REC%+�(Q$(F%,2)):�#C,C$:N$=Q$(F%,0):TP$="1":OP$=Q$(F%,3):�TYPE:�COMPARE:�COM%=1��FB
J�Q$(F%,1)="END"�COM%=1��SB
TI�Q$(F%,1)="END"��RC$=MC$�I=CR%:�OUTPUT:�"CLOSE":C=��MyFile(FI$):�D|K
^"F%=F%+1:�F%>T%�F%=T%:�SB:�D|K
h�Q$(F%,1)="OR"��TRL
rF%=F%-1:�SB:F%=F%+1:�D@K
|�CR%:�TxD
�
��TYPE
�E�Q$(F%,4)="7"�Q$(F%,4)="8"�Q$(F%,4)="0"� N=�(N$):NO=�(C$):TP$="2"
�8�Q$(F%,4)="5"�X$=N$:�CONDI:N=NO:X$=C$:�CONDI:TP$="2"
�8�Q$(F%,4)="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%,2)):�#C,C$:N$=Q$(F%,0):TP$="1":OP$=Q$(F%,3):�TYPE:�COMPARE:�COM%=1�SA%=F%:F%=SP%:�SB:F%=SA%:�DDL
&�Q$(F%,1)="END"��D|K
0)�Q$(F%,1)="AND"��FB:�SB:F%=F%+1:�D@K
:F%=F%+1:�T\L
D)�Q$(F%,1)="AND"��FB:�SB:F%=F%+1:�D@K
N$�Q$(F%,1)="END"��FB:COM%=1:�DJK
X)�Q$(F%,1)="AND"��FB:�SB:F%=F%+1:�D@K
b$�Q$(F%,1)="END"��FB:COM%=1:�DJK
lF%=F%+1:�DXL
v
SP%=F%
���#C=(CR%-1)*REC%+�(Q$(F%,2)):�#C,C$:N$=Q$(F%,0):TP$="1":OP$=Q$(F%,3):�TYPE:�COMPARE:�COM%=1�SA%=F%:F%=SP%:�FB:�SB:F%=SA%:�DDL
��Q$(F%,1)="END"��D|K
�)�Q$(F%,1)="AND"��FB:�SB:F%=F%+1:�D@K
�F%=F%+1:�t@L
�)F%=�(�N$,2)):�F%<1�F%>NOF%�L%=0:�DZJ
�}�:X=2:Y=2:W%=26:L%=2:�LWN:ME$(1)="Run This Query Now":ME$(2)="Save And Run This Query":X=3:Y=X:L%=2:�SELECT:�SEL%=1��TbK
�nX=10:Y=10:W%=37:L%=1:�LWN:�11,11);"Enter Filename for Query: ";:X=�:Y=11:L%=10:�TEXT:�T$=FI$�T$=FO$��trL
ƅ�"CLOSE":X=�("<DataVision$Dir>."+T$):Q$(0,0)=�(T%):Q$(0,1)=FI$:Q$(0,3)="ADHOC":Q$(0,2)=MC$:�I=0�T%:�F=0�4:�#X,Q$(I,F):�F:�I:�TbK
�D�:�2,2);"Minimum Search";�2,3);�14,�(241)):�SEL:CF%=SF%:�FOPOUT
�>MIN=99999999:AR%=0:ASO%=90:�"CLOSE":X=��MyFile(FI$):�:�SE$
�'�I=1�NOR%:�#X=(I-1)*REC%+TI%:�#X,C$
�A�TY$="7"�TY$="8"�TY$="0"�NO=�(C$):�NO<MIN �MIN=NO:AR%=I:�T`M
�5�TY$="5"�X$=C$:�CONDI:�NO<MIN �MIN=NO:AR%=I:�T`M

5�TY$="6"�X$=C$:�CONTI:�NO<MIN �MIN=NO:AR%=I:�T`M

8�TY$="1"�TY$="2"�TY$="3"�TY$="4"�TY$="9"��TVM��T`M

 �ASO%>�(C$)�ASO%=�(C$):AR%=I

 �I:�AR%=0�S%=0:�TxD

*I=AR%:�OUTPUT:S%=1:�TxD

4D�:�2,2);"Maximum Search";�2,3);�14,�(241)):�SEL:CF%=SF%:�FOPOUT

>?MAX=-99999999:AR%=0:ASO%=32:�"CLOSE":X=��MyFile(FI$):�:�SE$

H'�I=1�NOR%:�#X=(I-1)*REC%+TI%:�#X,C$

RC�TY$="7"�TY$="8"�TY$="0"� NO=�(C$):�NO>MAX � MAX=NO:AR%=I:�tDM

\5�TY$="5"�X$=C$:�CONDI:�NO>MAX �MAX=NO:AR%=I:�tDM

f5�TY$="6"�X$=C$:�CONTI:�NO>MAX �MAX=NO:AR%=I:�tDM

p8�TY$="1"�TY$="2"�TY$="3"�TY$="4"�TY$="9"��DzM��tDM

z �ASO%<�(C$)�ASO%=�(C$):AR%=I

��I:�AR%=0�S%=0:�TxD

�I=AR%:�OUTPUT:S%=1:�TxD

��I:�TxD

�.��CONV:�(STN$)>=LE%�STN$=�STN$,LE%):�tvM

�STN$=STN$+�LE%-�(STN$)," ")

��

�1��FCONV:EQ%=�STN$," "):�X>0�STN$=�STN$,EQ%-1)

��

�,��DECONV:EQ%=�N$,�(237)):N$=�N$,EQ%-1):�

�
��FCHK

�~�"CLOSE":X=��MyFile(FO$):�F=1�NOF%:�#X=(F-1)*61+63:�#X,FL$:�N$=FL$��#X=(F-1)*61+109:�#X,TI$:�#X=(F-1)*61+101:�#X,TY$:�d|M

��F:�TtC

��
��:�2,2);"Compare Fields Search";�2,3);�21,�(241));�5,5);"Select first field:":�SEL:�25,5);FL$:CF%=SF%:�FOPOUT:TI1%=TI%:TYY$=TY$
U�5,7);"Select Operator:":�F=1�6:ME$(F)=O$(F):�F:X=5:Y=9:L%=6:�SELECT:OP$=�(SEL%)
@�5,16);"Select second field:":�SEL:CF%=SF%:�FOPOUT:TI2%=TI%
$<�TY$="1"�TY$="2"�TY$="3"�TY$="4"�TY$="9"�TP$="1"�TP$="2"
.#�:�SE$:�"CLOSE":X=��MyFile(FI$)
8]�I=1�NOR%:�#X=(I-1)*REC%+TI1%:�#X,C$:�#X=(I-1)*REC%+TI2%:�#X,N$:N=�(N$):NO=�(C$):�COMPARE
B�COM%=1��OUTPUT
L�I:�TxD
Vp�:X=2:Y=2:W%=19:L%=3:�LWN:ME$(1)="Ad-Hoc Query":ME$(2)="Query-By-Example":ME$(3)="Quit":X=3:Y=3:L%=3:�SELECT
`�SEL%=3��TtC
j�SEL%=1��:�tHN
t�SEL%=2��:�dDN
~	�D`N
�fX=10:Y=10:W%=27:L%=2:�LWN:�11,11);"Load Query:";�11,12);"Enter filename:":X2=26:Y2=12:IN%=10:�TY1
���t^B
�Y�"CLOSE":X=��MyFile("<DataVision$Dir>."+N$):�L=0�4:�#X,Q$(0,L):�L:�Q$(0,1)<>FI$��t^B
���D^P
�5T%=�(Q$(0,0)):MC$=Q$(0,2):�Q$(0,3)<>"ADHOC"��t^B
�7�I=1�T%:�F=0�4:�#X,Q$(I,F):�F:�I:�CEPT:LOD%=1:�ttJ
�dX=10:Y=10:W%=27:L%=2:�LWN:�11,11);"Load QBE:";�11,12);"Enter filename:":X2=26:Y2=12:IN%=10:�TY1
���t^B
�I�"CLOSE":X=��MyFile(N$):�L=0�2:�#X,QBE$(0,L):�L:�QBE$(0,1)<>FI$��t^B
���D^P
�5QBB%=�(QBE$(0,0)):TY$="1":�QBE$(0,2)<>"QBE"��t^B
�E�I=1�QBB%:�F=0�2:�#X,QBE$(I,F):�F:�I:SUB%=A(3):A(3)=0:�CEPT:�DvG
	�TFI


��INDEX:�
�SO$="2"��dBK
�CF%<>�(SOL$)��drC
(�TY$="5"��DdO
2�TY$="6"��DxO
<"�TY$="7"�TY$="8"�TY$="0"��TZD
F&AS%=�(�N$,1)):�AS%<65�AS%>90��drC
PX�"CLOSE":TA$=FI$+"D":X=��MyFile(TA$):AS%=AS%-64:�#X=(AS%-1)*10:�#X,SR$:�SR$=""��TxD
Z/SR%=�(SR$):LIN%=1:LIN$=�N$,1):TL$="1":�d|C
d]AS%=�(�N$,7,2)):�"CLOSE":TA$=FI$+"D":X=��MyFile(TA$):�#X=(AS%-1)*10:�#X,SR$:�SR$=""��TxD
n1SR%=�(SR$):LIN%=1:LIN$=�N$,7,2):TL$="2":�d|C
x]AS%=�(�N$,1,2)):�"CLOSE":TA$=FI$+"D":X=��MyFile(TA$):�#X=(AS%-1)*10:�#X,SR$:�SR$=""��TxD
�1SR%=�(SR$):LIN%=1:LIN$=�N$,1,2):TL$="3":�d|C
� ��EJECT:�STL%=2�STL%=4��1,12
��
�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)
�"� XP=51 � YP=21 � BUT=4 ��TDP
��YP<Y � YP>ED%��tjO
��XP<X � XP>BG%��tjO
�rSEL%=(YP-Y)+1:�CLEA:� 131:�127:�X,YP);"  ";ME$(SEL%);�(W%-2)-�(ME$(SEL%))," "):� FG%:�127:�BUT=4��dfO:��ttO
��7:�
�R��CLEA:�SSEL%<>SEL%��I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
�SSEL%=SEL%:�
A(2)=A(2)+1:�A(2)>1�A(2)=0
"�:ȗ U,U,BUT:�BUT=0:�OUT:�ttO
�
" 
, 
6 
@ 
J	 � #0
T
 �Quit
^�26:� #0:�=17� �Quit
h�go%=0��tPP
rFG%=180
|R�ERWIN:�180:�20,12);"System Reported Error #";�;":";�20,14);�$:�7:�FG%:�MKLIK
��"CLOSE":�3:�26:�TtC
�{�ERWIN:�180:�20,12);"Cannot read the file :";FI$;�20,14);"(does not exist/not a DataVision file)":�FG%:�7:�MKLIK:�TbP
���SEL:*FX15,0
�o�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$)
�!FR%=SR%+19:�FR%>NOF%�FR%=NOF%
�{L=6:LL=1:�I=SR%�FR%:�#A=(I-1)*61+63:�#A,FL$:�52,L);FL$:ME$(LL)=FL$:L=L+1:LL=LL+1:�I:� LL<21 � � I=LL �20:ME$(I)=" ":�I
�+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
� �XP=67 � YP=3 � BUT=4 ��d~P
� �XP=69 � YP=3 � BUT=4 ��TRQ
�@� XP>71 � XP<51 � YP>25 � YP<6 �SSF%=0:�CLEAF:SSF%=SF%:�dLP
�rYP=YP-5:SF%=(YP+SR%)-1:�CLEAF:�131:�52,YP+5);ME$(YP);�(20-�(ME$(YP))):�FG%:�BUT=4 � SF%<(NOF%+1)��TfQ:��dLP
��FR%=NOF%��dLP
nSR%=SR%+20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�txP
�SR%=1��dLP
nSR%=SR%-20:X=50:Y=2:W%=21:L%=23:�LWN:�51,3);"Select a Field: ";�(138);" ";�(139);�51,4);�21,�(241)):�txP
&e�7:�#A=(SF%-1)*61+63:�#A,FL$:�#A=(SF%-1)*61+101:�#A,TY$:�#A=(SF%-1)*61+117:�#A,TR$:�180:FG%=180:�
0B��CLEAF:�SSF%<>SF%��I=1�20:�52,I+5);ME$(I);�(20-�(ME$(I))):�I
:SSF%=SF%:�
D,��YN:xp=�:yp=�:�" ";:�131:�"YES/NO":�FG%
N8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��DNQ
X�YP<>yp ��DNQ
b+�XP=xp+1 � XP=xp+2 � XP=xp+3�YN=1:�t@Q
l"�XP=xp+5 � XP=xp+6 �YN=0:�t@Q
v	�DNQ
��xp,yp);" YES/NO":�7:�
�
��FPNT
�5INN%=�(T$):LE%=80-X5:�INN%<=LE%��X5,Y5);T$:�thQ
�rNLD%=INN% � LE%:LB%=INN% � LE%:�J%=1�NLD%:�X5,Y5+(J%-1));�T$,((J%-1)*LE%)+1,LE%):�J%:�X5,Y5+(J%-1));�T$,LB%)
��
�6��FPRINT:LE%=80-X5:�IN%<=LE%��X5,Y5);�(IN%):�dFQ
�]NLD%=IN% � LE%:LB%=IN% � LE%:�J%=1�NLD%:�X5,Y5+(J%-1));�(LE%):�J%:�X5,Y5+(J%-1));�(LB%)
��
�ݤMyFile(file$)
�
=file$
�� �Quit
�ș "Wimp_CommandWindow",-1
�Ș
�
�@
��Dir(d$)
�J)� d$ <> "" � � "Dir "+�MyFile(�d$,2))
�T�
�

00000000  0d 00 0a 18 f4 20 3e 20  24 2e 21 44 61 74 61 56  |..... > $.!DataV|
00000010  69 73 2e 21 64 76 31 30  0d 00 0b 0a 54 59 24 3d  |is.!dv10....TY$=|
00000020  22 22 0d 00 0f 1e c8 99  20 22 57 69 6d 70 5f 43  |""...... "Wimp_C|
00000030  6f 6d 6d 61 6e 64 57 69  6e 64 6f 77 22 2c 2d 31  |ommandWindow",-1|
00000040  0d 00 10 0a 54 59 24 3d  22 22 0d 00 14 10 eb 20  |....TY$=""..... |
00000050  31 35 3a fb 20 31 38 30  3a db 0d 00 1e 0b ee 85  |15:. 180:.......|
00000060  e5 8d 44 5e 50 0d 00 28  12 c8 97 20 ee 3a 87 3a  |..D^P..(... .:.:|
00000070  46 47 25 3d 31 38 30 0d  00 32 13 de 4d 45 24 28  |FG%=180..2..ME$(|
00000080  32 30 29 3a 4c 4f 44 25  3d 30 0d 00 3c 5f de 41  |20):LOD%=0..<_.A|
00000090  28 33 29 3a de 4f 24 28  38 29 3a de 50 24 28 38  |(3):.O$(8):.P$(8|
000000a0  29 3a de 53 55 24 28 31  30 29 3a de 51 42 45 24  |):.SU$(10):.QBE$|
000000b0  28 33 30 2c 32 29 3a de  51 24 28 31 30 2c 34 29  |(30,2):.Q$(10,4)|
000000c0  3a e3 49 3d 31 b8 38 3a  f3 4f 24 28 49 29 3a ed  |:.I=1.8:.O$(I):.|
000000d0  49 3a e3 49 3d 31 b8 38  3a f3 50 24 28 49 29 3a  |I:.I=1.8:.P$(I):|
000000e0  ed 49 3a 43 4f 4d 25 3d  30 0d 00 46 79 dc 22 45  |.I:COM%=0..Fy."E|
000000f0  71 75 61 6c 20 74 6f 22  2c 22 4e 6f 74 20 45 71  |qual to","Not Eq|
00000100  75 61 6c 20 74 6f 22 2c  22 4c 65 73 73 20 54 68  |ual to","Less Th|
00000110  61 6e 22 2c 22 47 72 65  61 74 65 72 20 54 68 61  |an","Greater Tha|
00000120  6e 22 2c 22 4c 65 73 73  20 6f 72 20 45 71 75 61  |n","Less or Equa|
00000130  6c 22 2c 22 47 72 65 61  74 65 72 20 6f 72 20 45  |l","Greater or E|
00000140  71 75 61 6c 22 2c 22 57  69 74 68 69 6e 20 52 61  |qual","Within Ra|
00000150  6e 67 65 22 2c 22 41 70  70 72 6f 78 69 6d 61 74  |nge","Approximat|
00000160  65 22 0d 00 50 2d dc 22  3d 22 2c 22 3c 3e 22 2c  |e"..P-."=","<>",|
00000170  22 3c 22 2c 22 3e 22 2c  22 3c 3d 22 2c 22 3e 3d  |"<",">","<=",">=|
00000180  22 2c 22 56 49 45 57 22  2c 22 4c 49 4e 4b 22 0d  |","VIEW","LINK".|
00000190  00 5a 7d ff 22 43 4c 4f  53 45 22 3a 58 3d ad 20  |.Z}."CLOSE":X=. |
000001a0  a4 4d 79 46 69 6c 65 28  22 4e 49 4d 22 29 3a e8  |.MyFile("NIM"):.|
000001b0  23 58 2c 46 49 24 2c 53  54 24 2c 44 41 24 2c 44  |#X,FI$,ST$,DA$,D|
000001c0  52 24 2c 5a 5a 24 2c 4d  44 24 3a ff 22 43 4c 4f  |R$,ZZ$,MD$:."CLO|
000001d0  53 45 22 3a 46 4f 24 3d  46 49 24 2b 22 41 22 3a  |SE":FO$=FI$+"A":|
000001e0  53 54 24 3d 22 31 22 3a  53 45 24 3d 22 50 72 6f  |ST$="1":SE$="Pro|
000001f0  63 65 73 73 69 6e 67 20  71 75 65 72 79 20 6f 6e  |cessing query on|
00000200  20 22 2b 46 49 24 3a e5  8d 54 60 43 0d 00 64 10  | "+FI$:..T`C..d.|
00000210  dd f2 4d 41 49 4e 3a 67  6f 25 3d 30 0d 00 6e 41  |..MAIN:go%=0..nA|
00000220  e7 53 54 24 3d 22 31 22  8c 20 54 41 24 3d 46 49  |.ST$="1". TA$=FI|
00000230  24 2b 22 4e 22 3a 58 3d  ad a4 4d 79 46 69 6c 65  |$+"N":X=..MyFile|
00000240  28 54 41 24 29 3a e8 23  58 2c 44 49 24 3a f2 44  |(TA$):.#X,DI$:.D|
00000250  69 72 28 44 49 24 29 3a  e5 8d 74 6a 40 0d 00 78  |ir(DI$):..tj@..x|
00000260  09 e5 8d 74 4c 40 0d 00  82 61 f2 45 52 57 49 4e  |...tL@...a.ERWIN|
00000270  3a fb 31 38 30 3a f1 8a  32 30 2c 31 32 29 3b 22  |:.180:..20,12);"|
00000280  43 61 6e 6e 6f 74 20 72  65 61 64 20 74 68 65 20  |Cannot read the |
00000290  66 69 6c 65 20 3a 22 3b  46 49 24 3b 8a 32 30 2c  |file :";FI$;.20,|
000002a0  31 34 29 3b 22 28 66 69  6c 65 20 65 6d 70 74 79  |14);"(file empty|
000002b0  29 22 3a fb 46 47 25 3a  ef 37 3a f2 4d 4b 4c 49  |)":.FG%:.7:.MKLI|
000002c0  4b 3a e5 8d 54 62 50 0d  00 8c 41 e7 53 54 24 3d  |K:..TbP...A.ST$=|
000002d0  22 32 22 8c 20 54 41 24  3d 46 49 24 2b 22 4e 22  |"2". TA$=FI$+"N"|
000002e0  3a 58 3d ad a4 4d 79 46  69 6c 65 28 54 41 24 29  |:X=..MyFile(TA$)|
000002f0  3a e8 23 58 2c 44 49 24  3a f2 44 69 72 28 44 49  |:.#X,DI$:.Dir(DI|
00000300  24 29 3a e5 8d 74 6a 40  0d 00 96 35 dd f2 4d 4b  |$):..tj@...5..MK|
00000310  4c 49 4b 3a f5 3a c8 97  20 55 2c 55 2c 42 55 54  |LIK:.:.. U,U,BUT|
00000320  3a fd 42 55 54 3d 30 3a  f5 3a c8 97 20 55 2c 55  |:.BUT=0:.:.. U,U|
00000330  2c 42 55 54 3a fd 42 55  54 3d 34 3a e1 0d 00 a0  |,BUT:.BUT=4:....|
00000340  31 dd f2 45 52 57 49 4e  3a 58 3d 31 39 3a 59 3d  |1..ERWIN:X=19:Y=|
00000350  31 31 3a 57 25 3d 34 30  3a 4c 25 3d 33 3a fb 31  |11:W%=40:L%=3:.1|
00000360  38 30 3a f2 4c 57 4e 3a  fb 46 47 25 3a e1 0d 00  |80:.LWN:.FG%:...|
00000370  aa 86 d9 23 30 3a 58 3d  ad 20 a4 4d 79 46 69 6c  |...#0:X=. .MyFil|
00000380  65 28 46 4f 24 29 3a cf  23 58 3d 30 3a e8 23 58  |e(FO$):.#X=0:.#X|
00000390  2c 5a 5a 24 3a 4e 4f 46  25 3d bb 28 5a 5a 24 29  |,ZZ$:NOF%=.(ZZ$)|
000003a0  3a cf 23 58 3d 35 3a e8  23 58 2c 5a 5a 24 3a 4e  |:.#X=5:.#X,ZZ$:N|
000003b0  4f 52 25 3d bb 28 5a 5a  24 29 3a cf 23 58 3d 31  |OR%=.(ZZ$):.#X=1|
000003c0  35 3a e8 23 58 2c 5a 5a  24 3a 52 45 43 25 3d bb  |5:.#X,ZZ$:REC%=.|
000003d0  28 5a 5a 24 29 3a cf 23  58 3d 34 35 3a e8 23 58  |(ZZ$):.#X=45:.#X|
000003e0  2c 53 4f 24 3a cf 23 58  3d 32 33 3a e8 23 58 2c  |,SO$:.#X=23:.#X,|
000003f0  53 4f 4c 24 0d 00 b4 11  e7 4e 4f 52 25 3d 30 8c  |SOL$.....NOR%=0.|
00000400  e5 8d 74 42 40 0d 00 be  0b 67 6f 25 3d 31 3a e1  |..tB@....go%=1:.|
00000410  0d 00 c8 08 dd f2 53 43  0d 00 d2 8e fb 31 32 38  |......SC.....128|
00000420  3a f1 8a 30 2c 30 29 3b  c4 38 30 2c bd 28 32 34  |:..0,0);.80,.(24|
00000430  31 29 29 3b 8a 30 2c 32  32 29 3b c4 38 30 2c bd  |1));.0,22);.80,.|
00000440  28 32 34 31 29 29 3a ef  32 38 2c 30 2c 33 31 2c  |(241)):.28,0,31,|
00000450  37 39 2c 32 33 3a db 3a  ef 32 36 3a f1 8a 32 2c  |79,23:.:.26:..2,|
00000460  32 34 29 3b 22 56 69 65  77 69 6e 67 20 72 65 63  |24);"Viewing rec|
00000470  6f 72 64 20 22 3b 49 3b  22 20 6f 66 20 22 3b 4e  |ord ";I;" of ";N|
00000480  4f 52 25 3a fb 31 33 31  3a f1 8a 37 31 2c 30 29  |OR%:.131:..71,0)|
00000490  3b 22 50 41 47 45 22 3b  bd 28 32 34 31 29 3b 50  |;"PAGE";.(241);P|
000004a0  25 3a fb 46 47 25 0d 00  dc 05 e1 0d 00 e6 0c dd  |%:.FG%..........|
000004b0  f2 46 4f 50 4f 55 54 0d  00 f0 2f ff 22 43 4c 4f  |.FOPOUT.../."CLO|
000004c0  53 45 22 3a 58 3d ad 20  a4 4d 79 46 69 6c 65 28  |SE":X=. .MyFile(|
000004d0  46 4f 24 29 3a 50 4f 49  3d 28 43 46 25 2d 31 29  |FO$):POI=(CF%-1)|
000004e0  2a 36 31 2b 36 33 0d 00  fa 13 cf 23 58 3d 50 4f  |*61+63.....#X=PO|
000004f0  49 3a e8 23 58 2c 46 4c  24 0d 01 04 20 cf 23 58  |I:.#X,FL$... .#X|
00000500  3d 50 4f 49 2b 32 32 3a  e8 23 58 2c 5a 5a 24 3a  |=POI+22:.#X,ZZ$:|
00000510  58 31 3d bb 28 5a 5a 24  29 0d 01 0e 20 cf 23 58  |X1=.(ZZ$)... .#X|
00000520  3d 50 4f 49 2b 32 36 3a  e8 23 58 2c 5a 5a 24 3a  |=POI+26:.#X,ZZ$:|
00000530  59 31 3d bb 28 5a 5a 24  29 0d 01 18 20 cf 23 58  |Y1=.(ZZ$)... .#X|
00000540  3d 50 4f 49 2b 33 30 3a  e8 23 58 2c 5a 5a 24 3a  |=POI+30:.#X,ZZ$:|
00000550  58 32 3d bb 28 5a 5a 24  29 0d 01 22 20 cf 23 58  |X2=.(ZZ$).." .#X|
00000560  3d 50 4f 49 2b 33 34 3a  e8 23 58 2c 5a 5a 24 3a  |=POI+34:.#X,ZZ$:|
00000570  59 32 3d bb 28 5a 5a 24  29 0d 01 2c 16 cf 23 58  |Y2=.(ZZ$)..,..#X|
00000580  3d 50 4f 49 2b 33 38 3a  e8 23 58 2c 54 59 24 0d  |=POI+38:.#X,TY$.|
00000590  01 36 21 cf 23 58 3d 50  4f 49 2b 34 31 3a e8 23  |.6!.#X=POI+41:.#|
000005a0  58 2c 5a 5a 24 3a 49 4e  25 3d bb 28 5a 5a 24 29  |X,ZZ$:IN%=.(ZZ$)|
000005b0  0d 01 40 21 cf 23 58 3d  50 4f 49 2b 34 36 3a e8  |..@!.#X=POI+46:.|
000005c0  23 58 2c 5a 5a 24 3a 54  49 25 3d bb 28 5a 5a 24  |#X,ZZ$:TI%=.(ZZ$|
000005d0  29 0d 01 4a 16 cf 23 58  3d 50 4f 49 2b 35 34 3a  |)..J..#X=POI+54:|
000005e0  e8 23 58 2c 54 52 24 0d  01 54 16 cf 23 58 3d 50  |.#X,TR$..T..#X=P|
000005f0  4f 49 2b 35 38 3a e8 23  58 2c 4e 50 24 0d 01 5e  |OI+58:.#X,NP$..^|
00000600  05 e1 0d 01 68 09 dd f2  4c 57 4e 0d 01 72 79 f1  |....h...LWN..ry.|
00000610  8a 58 2c 59 29 3b bd 28  31 35 34 29 3b c4 57 25  |.X,Y);.(154);.W%|
00000620  2c bd 28 31 35 39 29 29  3b bd 28 31 35 38 29 3a  |,.(159));.(158):|
00000630  e3 49 3d 59 2b 31 b8 59  2b 4c 25 3a f1 8a 58 2c  |.I=Y+1.Y+L%:..X,|
00000640  49 29 3b bd 28 31 35 35  29 3b c4 57 25 2c 22 20  |I);.(155);.W%," |
00000650  22 29 3b bd 28 31 35 37  29 3a ed 49 3a f1 8a 58  |");.(157):.I:..X|
00000660  2c 59 2b 28 4c 25 2b 31  29 29 3b bd 28 31 35 36  |,Y+(L%+1));.(156|
00000670  29 3b c4 57 25 2c bd 28  31 36 30 29 29 3b bd 28  |);.W%,.(160));.(|
00000680  31 36 31 29 0d 01 7c 05  e1 0d 01 86 0a dd f2 54  |161)..|........T|
00000690  49 4d 45 0d 01 90 5e 53  25 3d 28 91 20 81 31 30  |IME...^S%=(. .10|
000006a0  30 29 83 36 30 3a 4d 25  3d 28 91 20 81 36 30 30  |0).60:M%=(. .600|
000006b0  30 29 83 36 30 3a 48 25  3d 28 91 20 81 33 36 30  |0).60:H%=(. .360|
000006c0  30 30 30 29 83 32 34 3a  f1 8a 37 33 2c 30 29 3b  |000).24:..73,0);|
000006d0  22 3a 22 3b 8a 37 36 2c  30 29 3b 22 3a 22 3a e7  |":";.76,0);":":.|
000006e0  53 25 3c 31 30 8c f1 8a  37 37 2c 30 29 3b 22 30  |S%<10...77,0);"0|
000006f0  22 0d 01 9a 16 e7 4d 25  3c 31 30 8c f1 8a 37 34  |".....M%<10...74|
00000700  2c 30 29 3b 22 30 22 0d  01 a4 16 e7 48 25 3c 31  |,0);"0".....H%<1|
00000710  30 8c f1 8a 37 31 2c 30  29 3b 22 30 22 0d 01 ae  |0...71,0);"0"...|
00000720  3d f1 8a 37 33 2d a9 28  c3 28 48 25 29 29 2c 30  |=..73-.(.(H%)),0|
00000730  29 3b 48 25 3b 8a 37 36  2d a9 28 c3 28 4d 25 29  |);H%;.76-.(.(M%)|
00000740  29 2c 30 29 3b 4d 25 3b  8a 37 39 2d a9 28 c3 28  |),0);M%;.79-.(.(|
00000750  53 25 29 29 2c 30 29 3b  53 25 0d 01 b8 05 e1 0d  |S%)),0);S%......|
00000760  01 c2 12 dd f2 54 45 58  54 3a 2a 46 58 31 35 2c  |.....TEXT:*FX15,|
00000770  30 0d 01 cc 0d 54 24 3d  22 22 3a 4c 3d 30 0d 01  |0....T$="":L=0..|
00000780  d6 17 e7 4c 3c 4c 25 8c  f1 8a 58 2c 59 29 3b bd  |...L<L%...X,Y);.|
00000790  28 32 35 35 29 0d 01 e0  08 49 4e 3d a5 0d 01 ea  |(255)....IN=....|
000007a0  16 e7 49 4e 3d 31 33 8c  4e 50 25 3d 30 3a e5 8d  |..IN=13.NP%=0:..|
000007b0  44 44 42 0d 01 f4 11 e7  49 4e 3d 31 32 37 8c e5  |DDB.....IN=127..|
000007c0  8d 54 66 42 0d 01 fe 15  e7 49 4e 3d 39 8c 4e 50  |.TfB.....IN=9.NP|
000007d0  25 3d 31 3a e5 8d 44 44  42 0d 02 08 0f e7 4c 3d  |%=1:..DDB.....L=|
000007e0  4c 25 8c e5 8d 64 60 41  0d 02 12 28 f1 8a 58 2c  |L%...d`A...(..X,|
000007f0  59 29 3b bd 28 49 4e 29  3a 54 24 3d 54 24 2b bd  |Y);.(IN):T$=T$+.|
00000800  28 49 4e 29 3a 4c 3d 4c  2b 31 3a 58 3d 58 2b 31  |(IN):L=L+1:X=X+1|
00000810  0d 02 1c 09 e5 8d 64 56  41 0d 02 26 0e e7 4c 3d  |......dVA..&..L=|
00000820  30 8c e5 8d 64 4c 41 0d  02 30 24 f1 8a 58 2c 59  |0...dLA..0$..X,Y|
00000830  29 3b 22 20 22 3a 58 3d  58 2d 31 3a 4c 3d 4c 2d  |);" ":X=X-1:L=L-|
00000840  31 3a 54 24 3d c0 54 24  2c 4c 29 0d 02 3a 09 e5  |1:T$=.T$,L)..:..|
00000850  8d 64 56 41 0d 02 44 0e  f1 8a 58 2c 59 29 3b 22  |.dVA..D...X,Y);"|
00000860  20 22 0d 02 4e 05 e1 0d  02 58 0c dd f2 43 45 50  | "..N....X...CEP|
00000870  54 3a e1 0d 02 62 2b e7  41 28 32 29 3d 31 8c 58  |T:...b+.A(2)=1.X|
00000880  3d 34 30 3a 59 3d 31 33  3a 57 25 3d 32 32 3a 4c  |=40:Y=13:W%=22:L|
00000890  25 3d 35 3a f2 4c 57 4e  3a e5 8d 74 40 42 0d 02  |%=5:.LWN:..t@B..|
000008a0  6c 11 e7 41 28 33 29 3d  31 8c e5 8d 64 70 40 0d  |l..A(3)=1...dp@.|
000008b0  02 76 09 e5 8d 64 50 42  0d 02 80 8d f1 8a 34 31  |.v...dPB......41|
000008c0  2c 31 34 29 3b 22 50 72  69 6e 74 65 72 20 69 73  |,14);"Printer is|
000008d0  20 4f 4e 2e 22 3b 8a 34  31 2c 31 35 29 3b 22 44  | ON.";.41,15);"D|
000008e0  6f 20 79 6f 75 20 77 69  73 68 20 74 6f 20 69 6e  |o you wish to in|
000008f0  63 6c 75 64 65 22 3b 8a  34 31 2c 31 36 29 3b 22  |clude";.41,16);"|
00000900  61 20 70 72 69 6e 74 6f  75 74 20 68 65 61 64 65  |a printout heade|
00000910  72 3f 22 3b 8a 34 31 2c  31 37 29 3b 22 28 59 2f  |r?";.41,17);"(Y/|
00000920  4e 29 22 3a 49 4e 24 3d  be 3a e7 49 4e 24 3d 22  |N)":IN$=.:.IN$="|
00000930  4e 22 8c 48 45 24 3d 22  22 3a 50 4f 25 3d 30 3a  |N".HE$="":PO%=0:|
00000940  e5 8d 44 6c 42 0d 02 8a  13 e7 49 4e 24 3c 3e 22  |..DlB.....IN$<>"|
00000950  59 22 8c e5 8d 74 40 42  0d 02 94 66 58 3d 30 3a  |Y"...t@B...fX=0:|
00000960  59 3d 31 36 3a 57 25 3d  37 38 3a 4c 25 3d 32 3a  |Y=16:W%=78:L%=2:|
00000970  f2 4c 57 4e 3a f1 8a 31  2c 31 37 29 3b 22 50 6c  |.LWN:..1,17);"Pl|
00000980  65 61 73 65 20 65 6e 74  65 72 20 48 65 61 64 65  |ease enter Heade|
00000990  72 3a 22 3a 58 32 3d 31  3a 59 32 3d 31 38 3a 49  |r:":X2=1:Y2=18:I|
000009a0  4e 25 3d 32 33 30 3a f2  54 59 31 3a 48 45 24 3d  |N%=230:.TY1:HE$=|
000009b0  4e 24 3a 50 4f 25 3d 31  3a e5 8d 44 6c 42 0d 02  |N$:PO%=1:..DlB..|
000009c0  9e 0b ee 85 e5 8d 44 5e  50 0d 02 a8 7a f2 45 52  |......D^P...z.ER|
000009d0  57 49 4e 3a fb 31 38 30  3a f1 8a 32 30 2c 31 32  |WIN:.180:..20,12|
000009e0  29 3b 22 43 61 6e 6e 6f  74 20 66 69 6e 64 20 74  |);"Cannot find t|
000009f0  68 65 20 22 3b 4e 24 3b  22 20 71 75 65 72 79 3a  |he ";N$;" query:|
00000a00  22 3b 8a 32 30 2c 31 34  29 3b 22 43 6c 69 63 6b  |";.20,14);"Click|
00000a10  20 6d 6f 75 73 65 20 74  6f 20 63 6f 6e 74 69 6e  | mouse to contin|
00000a20  75 65 2e 2e 2e 22 3a 46  47 25 3d 31 38 30 3a fb  |ue...":FG%=180:.|
00000a30  46 47 25 3a ef 37 3a f2  4d 4b 4c 49 4b 3a e5 8d  |FG%:.7:.MKLIK:..|
00000a40  54 74 43 0d 02 b2 0b ee  85 e5 8d 44 5e 50 0d 02  |TtC........D^P..|
00000a50  bc 54 54 41 24 3d 4e 24  2b 22 41 22 3a ff 22 43  |.TTA$=N$+"A":."C|
00000a60  4c 4f 53 45 22 3a 58 3d  ad a4 4d 79 46 69 6c 65  |LOSE":X=..MyFile|
00000a70  28 54 41 24 29 3a cf 23  58 3d 35 3a e8 23 58 2c  |(TA$):.#X=5:.#X,|
00000a80  5a 5a 24 3a 53 43 52 25  3d bb 28 5a 5a 24 29 3a  |ZZ$:SCR%=.(ZZ$):|
00000a90  53 43 52 25 3d 53 43 52  25 2b 31 3a 53 43 24 3d  |SCR%=SCR%+1:SC$=|
00000aa0  4e 24 0d 02 c6 0a 2a 43  4c 4f 53 45 0d 02 d0 05  |N$....*CLOSE....|
00000ab0  e1 0d 02 da 30 dd f2 43  4c 49 43 4b 3a f5 3a c8  |....0..CLICK:.:.|
00000ac0  97 20 55 31 2c 55 32 2c  42 55 54 3a fd 42 55 54  |. U1,U2,BUT:.BUT|
00000ad0  3e 30 3a ef 37 3a ff 20  22 46 58 20 31 35 2c 30  |>0:.7:. "FX 15,0|
00000ae0  22 0d 02 e4 19 e7 42 55  54 3d 32 8c ff 22 43 4c  |".....BUT=2.."CL|
00000af0  4f 53 45 22 3a e5 8d 54  74 43 0d 02 ee 05 e1 0d  |OSE":..TtC......|
00000b00  02 f8 1e 41 28 32 29 3d  41 28 32 29 2b 31 3a e7  |...A(2)=A(2)+1:.|
00000b10  41 28 32 29 3e 31 8c 41  28 32 29 3d 30 0d 03 02  |A(2)>1.A(2)=0...|
00000b20  0e f2 4f 55 54 3a e5 8d  74 74 4f 0d 03 0c 32 dd  |..OUT:..ttO...2.|
00000b30  f2 4f 55 54 3a e7 41 28  32 29 3d 30 8c f1 8a 35  |.OUT:.A(2)=0...5|
00000b40  31 2c 32 31 29 3b bd 28  31 33 32 29 3a 8b f1 8a  |1,21);.(132):...|
00000b50  35 31 2c 32 31 29 3b bd  28 31 32 38 29 0d 03 16  |51,21);.(128)...|
00000b60  05 e1 0d 03 20 09 f2 4d  41 49 4e 0d 03 2a 1a f7  |.... ..MAIN..*..|
00000b70  8d 54 7e 43 3a f3 20 41  28 31 29 2c 41 28 32 29  |.T~C:. A(1),A(2)|
00000b80  2c 41 28 33 29 0d 03 34  4a 58 3d 34 31 3a 59 3d  |,A(3)..4JX=41:Y=|
00000b90  31 32 3a 57 25 3d 31 37  3a 4c 25 3d 39 3a f2 4c  |12:W%=17:L%=9:.L|
00000ba0  57 4e 3a 50 4f 25 3d 30  3a 43 4f 55 25 3d 30 3a  |WN:PO%=0:COU%=0:|
00000bb0  4c 49 4e 25 3d 30 3a f1  8a 34 32 2c 32 31 29 3b  |LIN%=0:..42,21);|
00000bc0  22 50 72 69 6e 74 65 72  3a 22 3a f2 4f 55 54 0d  |"Printer:":.OUT.|
00000bd0  03 3e 0b dc 20 31 2c 30  2c 30 0d 03 48 b1 4d 45  |.>.. 1,0,0..H.ME|
00000be0  24 28 31 29 3d 22 46 61  73 74 20 53 65 61 72 63  |$(1)="Fast Searc|
00000bf0  68 22 3a 4d 45 24 28 32  29 3d 22 43 6f 6d 70 61  |h":ME$(2)="Compa|
00000c00  72 65 20 46 69 65 6c 64  73 22 3a 4d 45 24 28 33  |re Fields":ME$(3|
00000c10  29 3d 22 4d 69 6e 69 6d  75 6d 20 53 65 61 72 63  |)="Minimum Searc|
00000c20  68 22 3a 4d 45 24 28 34  29 3d 22 4d 61 78 69 6d  |h":ME$(4)="Maxim|
00000c30  75 6d 20 53 65 61 72 63  68 22 3a 4d 45 24 28 35  |um Search":ME$(5|
00000c40  29 3d 22 41 64 2d 48 6f  63 20 51 75 65 72 79 22  |)="Ad-Hoc Query"|
00000c50  3a 4d 45 24 28 36 29 3d  22 4c 6f 61 64 20 61 20  |:ME$(6)="Load a |
00000c60  51 75 65 72 79 22 3a 4d  45 24 28 37 29 3d 22 51  |Query":ME$(7)="Q|
00000c70  75 69 74 22 3a 58 3d 34  32 3a 59 3d 31 33 3a 4c  |uit":X=42:Y=13:L|
00000c80  25 3d 37 3a f2 53 45 4c  45 43 54 0d 03 52 17 e7  |%=7:.SELECT..R..|
00000c90  53 45 4c 25 3d 31 8c f2  43 45 50 54 3a e5 8d 74  |SEL%=1..CEPT:..t|
00000ca0  58 43 0d 03 5c 11 e7 53  45 4c 25 3d 35 8c e5 8d  |XC..\..SEL%=5...|
00000cb0  44 60 49 0d 03 66 17 e7  53 45 4c 25 3d 33 8c f2  |D`I..f..SEL%=3..|
00000cc0  43 45 50 54 3a e5 8d 64  50 4c 0d 03 70 11 e7 53  |CEPT:..dPL..p..S|
00000cd0  45 4c 25 3d 36 8c e5 8d  74 48 4e 0d 03 7a 17 e7  |EL%=6...tHN..z..|
00000ce0  53 45 4c 25 3d 34 8c f2  43 45 50 54 3a e5 8d 54  |SEL%=4..CEPT:..T|
00000cf0  74 4d 0d 03 84 11 e7 53  45 4c 25 3d 37 8c e5 8d  |tM.....SEL%=7...|
00000d00  54 62 50 0d 03 8e 17 e7  53 45 4c 25 3d 32 8c f2  |TbP.....SEL%=2..|
00000d10  43 45 50 54 3a e5 8d 54  46 4e 0d 03 98 3f db 3a  |CEPT:..TFN...?.:|
00000d20  f1 8a 32 2c 32 29 3b 22  46 61 73 74 20 53 65 61  |..2,2);"Fast Sea|
00000d30  72 63 68 22 3b 8a 32 2c  33 29 3b c4 31 31 2c bd  |rch";.2,3);.11,.|
00000d40  28 32 34 31 29 29 3a f2  53 45 4c 3a 43 46 25 3d  |(241)):.SEL:CF%=|
00000d50  53 46 25 3a e5 8d 74 62  43 0d 03 a2 44 f2 46 4f  |SF%:..tbC...D.FO|
00000d60  50 4f 55 54 3a e7 54 59  24 3d 22 31 22 84 54 59  |POUT:.TY$="1".TY|
00000d70  24 3d 22 32 22 84 54 59  24 3d 22 33 22 84 54 59  |$="2".TY$="3".TY|
00000d80  24 3d 22 34 22 84 54 59  24 3d 22 39 22 8c 54 50  |$="4".TY$="9".TP|
00000d90  24 3d 22 31 22 8b 54 50  24 3d 22 32 22 0d 03 ac  |$="1".TP$="2"...|
00000da0  5c 58 3d 31 3a 59 3d 32  3a 57 25 3d 34 35 3a 4c  |\X=1:Y=2:W%=45:L|
00000db0  25 3d 32 3a f2 4c 57 4e  3a e7 54 50 24 3d 22 31  |%=2:.LWN:.TP$="1|
00000dc0  22 8c f1 8a 32 2c 33 29  3b 22 50 6c 65 61 73 65  |"...2,3);"Please|
00000dd0  20 65 6e 74 65 72 20 65  78 70 72 65 73 73 69 6f  | enter expressio|
00000de0  6e 3a 22 3a 58 32 3d 32  3a 59 32 3d 34 3a 49 4e  |n:":X2=2:Y2=4:IN|
00000df0  25 3d 34 30 3a f2 54 59  31 0d 03 b6 5a e7 54 59  |%=40:.TY1...Z.TY|
00000e00  24 3d 22 37 22 84 54 59  24 3d 22 38 22 84 54 59  |$="7".TY$="8".TY|
00000e10  24 3d 22 30 22 8c 58 32  3d 32 3a 59 32 3d 34 3a  |$="0".X2=2:Y2=4:|
00000e20  48 49 25 3d 31 38 3a f1  8a 32 2c 33 29 3b 22 50  |HI%=18:..2,3);"P|
00000e30  6c 65 61 73 65 20 65 6e  74 65 72 20 63 6f 6e 73  |lease enter cons|
00000e40  74 61 6e 74 3a 22 3a f2  54 59 37 3a 4e 3d bb 28  |tant:":.TY7:N=.(|
00000e50  4e 24 29 0d 03 c0 54 e7  54 59 24 3d 22 35 22 8c  |N$)...T.TY$="5".|
00000e60  58 32 3d 32 3a 59 32 3d  34 3a f1 8a 32 2c 33 29  |X2=2:Y2=4:..2,3)|
00000e70  3b 22 50 6c 65 61 73 65  20 65 6e 74 65 72 20 64  |;"Please enter d|
00000e80  61 74 65 20 74 6f 20 63  6f 6d 70 61 72 65 3a 22  |ate to compare:"|
00000e90  3a f2 54 59 35 3a 58 24  3d 4e 24 3a f2 43 4f 4e  |:.TY5:X$=N$:.CON|
00000ea0  44 49 3a 4e 3d 4e 4f 0d  03 ca 54 e7 54 59 24 3d  |DI:N=NO...T.TY$=|
00000eb0  22 36 22 8c 58 32 3d 32  3a 59 32 3d 34 3a f1 8a  |"6".X2=2:Y2=4:..|
00000ec0  32 2c 33 29 3b 22 50 6c  65 61 73 65 20 65 6e 74  |2,3);"Please ent|
00000ed0  65 72 20 74 69 6d 65 20  74 6f 20 63 6f 6d 70 61  |er time to compa|
00000ee0  72 65 3a 22 3a f2 54 59  36 3a 58 24 3d 4e 24 3a  |re:":.TY6:X$=N$:|
00000ef0  f2 43 4f 4e 54 49 3a 4e  3d 4e 4f 0d 03 d4 09 e5  |.CONTI:N=NO.....|
00000f00  8d 44 56 44 0d 03 de 1a  db 3a f1 53 45 24 3a e7  |.DVD.....:.SE$:.|
00000f10  bb 28 4f 50 24 29 3e 31  8c e5 8d 64 72 43 0d 03  |.(OP$)>1...drC..|
00000f20  e8 1b e7 53 4f 24 3d 22  31 22 84 53 4f 24 3d 22  |...SO$="1".SO$="|
00000f30  32 22 8c f2 49 4e 44 45  58 0d 03 f2 0e 53 52 25  |2"..INDEX....SR%|
00000f40  3d 31 3a 53 25 3d 30 0d  03 fc 22 ff 22 43 4c 4f  |=1:S%=0..."."CLO|
00000f50  53 45 22 3a 58 3d ad a4  4d 79 46 69 6c 65 28 46  |SE":X=..MyFile(F|
00000f60  49 24 29 3a 4a 3d 53 52  25 0d 04 06 4b e7 4c 49  |I$):J=SR%...K.LI|
00000f70  4e 25 3d 30 8c cf 23 58  3d 28 4a 2d 31 29 2a 52  |N%=0..#X=(J-1)*R|
00000f80  45 43 25 2b 54 49 25 3a  e8 23 58 2c 43 24 3a 4e  |EC%+TI%:.#X,C$:N|
00000f90  4f 3d bb 28 43 24 29 3a  f2 43 4f 4d 50 41 52 45  |O=.(C$):.COMPARE|
00000fa0  3a e7 43 4f 4d 25 3d 31  8c 49 3d 4a 3a f2 4f 55  |:.COM%=1.I=J:.OU|
00000fb0  54 50 55 54 0d 04 10 41  e7 4c 49 4e 25 3d 31 8c  |TPUT...A.LIN%=1.|
00000fc0  cf 23 58 3d 28 4a 2a 52  45 43 25 29 2d 31 30 3a  |.#X=(J*REC%)-10:|
00000fd0  e8 23 58 2c 4c 4b 24 3a  49 3d bb 28 4c 4b 24 29  |.#X,LK$:I=.(LK$)|
00000fe0  3a e7 49 3e 4e 4f 52 25  8c 4a 3d 4e 4f 52 25 3a  |:.I>NOR%.J=NOR%:|
00000ff0  e5 8d 54 6e 44 0d 04 1a  4d e7 4c 49 4e 25 3d 31  |..TnD...M.LIN%=1|
00001000  8c cf 23 58 3d 28 49 2d  31 29 2a 52 45 43 25 2b  |..#X=(I-1)*REC%+|
00001010  54 49 25 3a e8 23 58 2c  43 24 3a 4e 4f 3d bb 28  |TI%:.#X,C$:NO=.(|
00001020  43 24 29 3a f2 43 48 4b  4c 3a f2 43 4f 4d 50 41  |C$):.CHKL:.COMPA|
00001030  52 45 3a e7 43 4f 4d 25  3d 31 8c f2 4f 55 54 50  |RE:.COM%=1..OUTP|
00001040  55 54 0d 04 24 11 e7 4c  49 4e 25 3d 31 8c 49 3d  |UT..$..LIN%=1.I=|
00001050  49 2d 31 0d 04 2e 1e 4a  3d 4a 2b 31 3a e7 4a 3e  |I-1....J=J+1:.J>|
00001060  4e 4f 52 25 8c e5 8d 54  78 44 3a 8b e5 8d 54 46  |NOR%...TxD:...TF|
00001070  44 0d 04 38 21 e7 43 4f  55 25 3d 30 84 43 4f 55  |D..8!.COU%=0.COU|
00001080  25 3e 31 8c 58 24 3d 22  73 20 22 8b 58 24 3d 22  |%>1.X$="s ".X$="|
00001090  20 22 0d 04 42 4d e7 41  28 33 29 3d 31 8c ff 22  | "..BM.A(3)=1.."|
000010a0  43 4c 4f 53 45 22 3a 54  41 24 3d 53 43 24 2b 22  |CLOSE":TA$=SC$+"|
000010b0  41 22 3a 58 3d ad a4 4d  79 46 69 6c 65 28 54 41  |A":X=..MyFile(TA|
000010c0  24 29 3a cf 23 58 3d 35  3a f1 23 58 2c c3 28 53  |$):.#X=5:.#X,.(S|
000010d0  43 52 25 2d 31 29 3a ff  22 43 4c 4f 53 45 22 0d  |CR%-1):."CLOSE".|
000010e0  04 4c 41 f1 27 22 51 75  65 72 79 20 63 6f 6d 70  |.LA.'"Query comp|
000010f0  6c 65 74 65 64 2e 20 22  3b 43 4f 55 25 3b 22 20  |leted. ";COU%;" |
00001100  72 65 63 6f 72 64 22 2b  58 24 2b 22 66 6f 75 6e  |record"+X$+"foun|
00001110  64 2e 22 3a f2 43 4c 49  43 4b 3a e5 8d 54 74 43  |d.":.CLICK:..TtC|
00001120  0d 04 56 1b 58 3d 38 3a  59 3d 38 3a 57 25 3d 31  |..V.X=8:Y=8:W%=1|
00001130  39 3a 4c 25 3d 37 3a f2  4c 57 4e 0d 04 60 4a f1  |9:L%=7:.LWN..`J.|
00001140  8a 39 2c 39 29 3b 22 53  65 6c 65 63 74 20 6f 70  |.9,9);"Select op|
00001150  65 72 61 74 6f 72 3a 22  3a e3 46 3d 31 b8 36 3a  |erator:":.F=1.6:|
00001160  4d 45 24 28 46 29 3d 4f  24 28 46 29 3a ed 46 3a  |ME$(F)=O$(F):.F:|
00001170  58 3d 39 3a 59 3d 31 30  3a 4c 25 3d 36 3a f2 53  |X=9:Y=10:L%=6:.S|
00001180  45 4c 45 43 54 0d 04 6a  15 4f 50 24 3d c3 28 53  |ELECT..j.OP$=.(S|
00001190  45 4c 25 29 3a e5 8d 64  5e 43 0d 04 74 1a e7 4f  |EL%):..d^C..t..O|
000011a0  50 24 3d 22 37 22 80 54  50 24 3d 22 32 22 8c e5  |P$="7".TP$="2"..|
000011b0  8d 74 5c 44 0d 04 7e 1a  e7 4f 50 24 3d 22 38 22  |.t\D..~..OP$="8"|
000011c0  80 54 50 24 3d 22 31 22  8c e5 8d 44 6a 44 0d 04  |.TP$="1"...DjD..|
000011d0  88 1a e7 4f 50 24 3d 22  37 22 80 54 50 24 3d 22  |...OP$="7".TP$="|
000011e0  31 22 8c e5 8d 44 6a 44  0d 04 92 09 e5 8d 64 5e  |1"...DjD......d^|
000011f0  43 0d 04 9c 5b 58 3d 33  30 3a 59 3d 38 3a 57 25  |C...[X=30:Y=8:W%|
00001200  3d 31 39 3a 4c 25 3d 34  3a f2 4c 57 4e 3a f1 8a  |=19:L%=4:.LWN:..|
00001210  33 31 2c 39 29 3b 22 45  6e 74 65 72 20 4c 6f 77  |31,9);"Enter Low|
00001220  65 72 20 76 61 6c 75 65  3a 22 3a 58 32 3d 33 31  |er value:":X2=31|
00001230  3a 59 32 3d 31 30 3a 48  49 25 3d 31 38 3a f2 54  |:Y2=10:HI%=18:.T|
00001240  59 37 3a 56 4c 31 3d bb  28 4e 24 29 0d 04 a6 44  |Y7:VL1=.(N$)...D|
00001250  f1 8a 33 31 2c 31 31 29  3b 22 45 6e 74 65 72 20  |..31,11);"Enter |
00001260  48 69 67 68 65 72 20 76  61 6c 75 65 3a 22 3a 58  |Higher value:":X|
00001270  32 3d 33 31 3a 59 32 3d  31 32 3a 48 49 25 3d 31  |2=31:Y2=12:HI%=1|
00001280  38 3a f2 54 59 37 3a 56  4c 32 3d bb 28 4e 24 29  |8:.TY7:VL2=.(N$)|
00001290  0d 04 b0 14 e7 56 4c 32  3c 3d 56 4c 31 20 8c e5  |.....VL2<=VL1 ..|
000012a0  8d 74 66 44 0d 04 ba 09  e5 8d 64 5e 43 0d 04 c4  |.tfD......d^C...|
000012b0  0d dd f2 43 4f 4d 50 41  52 45 0d 04 ce 0a 43 4f  |...COMPARE....CO|
000012c0  4d 25 3d 30 0d 04 d8 12  e7 54 50 24 3d 22 32 22  |M%=0.....TP$="2"|
000012d0  8c e5 8d 54 72 45 0d 04  e2 15 e7 c0 4e 24 2c 31  |...TrE......N$,1|
000012e0  29 3d 22 2a 22 8c e5 8d  74 56 45 0d 04 ec 20 e7  |)="*"...tVE... .|
000012f0  4f 50 24 3d 22 31 22 8c  e7 4e 24 3d 43 24 8c 43  |OP$="1"..N$=C$.C|
00001300  4f 4d 25 3d 31 3a e5 8d  74 7e 45 0d 04 f6 21 e7  |OM%=1:..t~E...!.|
00001310  4f 50 24 3d 22 32 22 8c  e7 4e 24 3c 3e 43 24 8c  |OP$="2"..N$<>C$.|
00001320  43 4f 4d 25 3d 31 3a e5  8d 74 7e 45 0d 05 00 20  |COM%=1:..t~E... |
00001330  e7 4f 50 24 3d 22 33 22  8c e7 4e 24 3e 43 24 8c  |.OP$="3"..N$>C$.|
00001340  43 4f 4d 25 3d 31 3a e5  8d 74 7e 45 0d 05 0a 20  |COM%=1:..t~E... |
00001350  e7 4f 50 24 3d 22 34 22  8c e7 4e 24 3c 43 24 8c  |.OP$="4"..N$<C$.|
00001360  43 4f 4d 25 3d 31 3a e5  8d 74 7e 45 0d 05 14 21  |COM%=1:..t~E...!|
00001370  e7 4f 50 24 3d 22 35 22  8c e7 4e 24 3e 3d 43 24  |.OP$="5"..N$>=C$|
00001380  8c 43 4f 4d 25 3d 31 3a  e5 8d 74 7e 45 0d 05 1e  |.COM%=1:..t~E...|
00001390  21 e7 4f 50 24 3d 22 36  22 8c e7 4e 24 3c 3d 43  |!.OP$="6"..N$<=C|
000013a0  24 8c 43 4f 4d 25 3d 31  3a e5 8d 74 7e 45 0d 05  |$.COM%=1:..t~E..|
000013b0  28 09 e5 8d 74 7e 45 0d  05 32 19 e7 54 59 24 3d  |(...t~E..2..TY$=|
000013c0  22 35 22 8c 58 24 3d 43  24 3a f2 43 4f 4e 44 49  |"5".X$=C$:.CONDI|
000013d0  0d 05 3c 19 e7 54 59 24  3d 22 36 22 8c 58 24 3d  |..<..TY$="6".X$=|
000013e0  43 24 3a f2 43 4f 4e 54  49 0d 05 46 20 e7 4f 50  |C$:.CONTI..F .OP|
000013f0  24 3d 22 31 22 8c e7 4e  3d 4e 4f 20 8c 43 4f 4d  |$="1"..N=NO .COM|
00001400  25 3d 31 3a e5 8d 74 7e  45 0d 05 50 21 e7 4f 50  |%=1:..t~E..P!.OP|
00001410  24 3d 22 32 22 8c e7 4e  3c 3e 4e 4f 20 8c 43 4f  |$="2"..N<>NO .CO|
00001420  4d 25 3d 31 3a e5 8d 74  7e 45 0d 05 5a 20 e7 4f  |M%=1:..t~E..Z .O|
00001430  50 24 3d 22 33 22 8c e7  4e 3e 4e 4f 20 8c 43 4f  |P$="3"..N>NO .CO|
00001440  4d 25 3d 31 3a e5 8d 74  7e 45 0d 05 64 20 e7 4f  |M%=1:..t~E..d .O|
00001450  50 24 3d 22 34 22 8c e7  4e 3c 4e 4f 20 8c 43 4f  |P$="4"..N<NO .CO|
00001460  4d 25 3d 31 3a e5 8d 74  7e 45 0d 05 6e 21 e7 4f  |M%=1:..t~E..n!.O|
00001470  50 24 3d 22 35 22 8c e7  4e 3e 3d 4e 4f 20 8c 43  |P$="5"..N>=NO .C|
00001480  4f 4d 25 3d 31 3a e5 8d  74 7e 45 0d 05 78 2c e7  |OM%=1:..t~E..x,.|
00001490  4f 50 24 3d 22 37 22 8c  e7 4e 4f 20 3e 56 4c 31  |OP$="7"..NO >VL1|
000014a0  20 80 4e 4f 20 3c 56 4c  32 20 8c 43 4f 4d 25 3d  | .NO <VL2 .COM%=|
000014b0  31 3a e5 8d 74 7e 45 0d  05 82 21 e7 4f 50 24 3d  |1:..t~E...!.OP$=|
000014c0  22 36 22 8c e7 4e 3c 3d  4e 4f 20 8c 43 4f 4d 25  |"6"..N<=NO .COM%|
000014d0  3d 31 3a e5 8d 74 7e 45  0d 05 8c 09 e5 8d 74 7e  |=1:..t~E......t~|
000014e0  45 0d 05 96 12 e7 a9 28  4e 24 29 3d 31 8c e5 8d  |E......(N$)=1...|
000014f0  64 6c 44 0d 05 a0 32 e7  4f 50 24 3d 22 31 22 8c  |dlD...2.OP$="1".|
00001500  43 4f 4d 25 3d a7 43 24  2c c1 4e 24 2c 32 2c a9  |COM%=.C$,.N$,2,.|
00001510  28 4e 24 29 29 29 3a e7  43 4f 4d 25 3e 31 8c 43  |(N$))):.COM%>1.C|
00001520  4f 4d 25 3d 31 0d 05 aa  39 e7 bb 28 4f 50 24 29  |OM%=1...9..(OP$)|
00001530  3e 31 8c 43 4f 4d 25 3d  a7 43 24 2c c1 4e 24 2c  |>1.COM%=.C$,.N$,|
00001540  32 2c a9 28 4e 24 29 29  29 3a e7 43 4f 4d 25 3d  |2,.(N$))):.COM%=|
00001550  30 8c 43 4f 4d 25 3d 31  3a e5 8d 74 7e 45 0d 05  |0.COM%=1:..t~E..|
00001560  b4 1c e7 bb 28 4f 50 24  29 3e 31 8c e7 43 4f 4d  |....(OP$)>1..COM|
00001570  25 3e 30 8c 43 4f 4d 25  3d 30 0d 05 be 05 e1 0d  |%>0.COM%=0......|
00001580  05 c8 0b dd f2 43 4f 4e  44 49 0d 05 d2 37 58 58  |.....CONDI...7XX|
00001590  24 3d 22 22 3a 58 58 24  3d 58 58 24 2b c1 58 24  |$="":XX$=XX$+.X$|
000015a0  2c 37 2c 32 29 2b c1 58  24 2c 34 2c 32 29 2b c1  |,7,2)+.X$,4,2)+.|
000015b0  58 24 2c 31 2c 32 29 3a  4e 4f 3d bb 28 58 58 24  |X$,1,2):NO=.(XX$|
000015c0  29 0d 05 dc 05 e1 0d 05  e6 0b dd f2 43 4f 4e 54  |)...........CONT|
000015d0  49 0d 05 f0 2e 58 58 24  3d 22 22 3a 58 58 24 3d  |I....XX$="":XX$=|
000015e0  58 58 24 2b c1 58 24 2c  31 2c 32 29 2b c1 58 24  |XX$+.X$,1,2)+.X$|
000015f0  2c 34 2c 32 29 3a 4e 4f  3d bb 28 58 58 24 29 0d  |,4,2):NO=.(XX$).|
00001600  05 fa 05 e1 0d 06 04 18  dd f2 43 48 4b 4c 3a e7  |..........CHKL:.|
00001610  4c 49 4e 25 3d 30 8c e5  8d 54 6c 46 0d 06 0e 27  |LIN%=0...TlF...'|
00001620  e7 54 4c 24 3d 22 31 22  8c e7 c0 43 24 2c 31 29  |.TL$="1"...C$,1)|
00001630  3c 3e 4c 49 4e 24 8c 4a  3d 4e 4f 52 25 3a e5 8d  |<>LIN$.J=NOR%:..|
00001640  54 6e 44 0d 06 18 29 e7  54 4c 24 3d 22 32 22 8c  |TnD...).TL$="2".|
00001650  e7 c1 43 24 2c 37 2c 32  29 3c 3e 4c 49 4e 24 8c  |..C$,7,2)<>LIN$.|
00001660  4a 3d 4e 4f 52 25 3a e5  8d 54 6e 44 0d 06 22 29  |J=NOR%:..TnD..")|
00001670  e7 54 4c 24 3d 22 33 22  8c e7 c1 43 24 2c 31 2c  |.TL$="3"...C$,1,|
00001680  32 29 3c 3e 4c 49 4e 24  8c 4a 3d 4e 4f 52 25 3a  |2)<>LIN$.J=NOR%:|
00001690  e5 8d 54 6e 44 0d 06 2c  05 e1 0d 06 36 05 fa 0d  |..TnD..,....6...|
000016a0  06 40 09 dd f2 54 59 31  0d 06 4a 0e 4e 24 3d 22  |.@...TY1..J.N$="|
000016b0  22 3a 50 54 3d 30 0d 06  54 1b e7 50 54 3c 49 4e  |":PT=0..T..PT<IN|
000016c0  25 8c f1 8a 58 32 2c 59  32 29 3b bd 28 32 35 35  |%...X2,Y2);.(255|
000016d0  29 0d 06 5e 08 49 4e 3d  a5 0d 06 68 1d e7 49 4e  |)..^.IN=...h..IN|
000016e0  3d 31 33 8c f1 8a 58 32  2c 59 32 29 3b 22 20 22  |=13...X2,Y2);" "|
000016f0  3a e5 8d 74 78 46 0d 06  72 11 e7 49 4e 3d 31 32  |:..txF..r..IN=12|
00001700  37 8c e5 8d 74 5a 46 0d  06 7c 11 e7 50 54 3d 49  |7...tZF..|..PT=I|
00001710  4e 25 8c e5 8d 44 5e 46  0d 06 86 42 f1 8a 58 32  |N%...D^F...B..X2|
00001720  2c 59 32 29 3b bd 28 49  4e 29 3a 4e 24 3d 4e 24  |,Y2);.(IN):N$=N$|
00001730  2b bd 28 49 4e 29 3a 50  54 3d 50 54 2b 31 3a 58  |+.(IN):PT=PT+1:X|
00001740  32 3d 58 32 2b 31 3a e7  58 32 3e 37 39 8c 59 32  |2=X2+1:.X2>79.Y2|
00001750  3d 59 32 2b 31 3a 58 32  3d 30 0d 06 90 09 e5 8d  |=Y2+1:X2=0......|
00001760  44 54 46 0d 06 9a 0f e7  50 54 3d 30 8c e5 8d 44  |DTF.....PT=0...D|
00001770  54 46 0d 06 a4 3f f1 8a  58 32 2c 59 32 29 3b 22  |TF...?..X2,Y2);"|
00001780  20 22 3a 50 54 3d 50 54  2d 31 3a 4e 24 3d c0 4e  | ":PT=PT-1:N$=.N|
00001790  24 2c 50 54 29 3a 58 32  3d 58 32 2d 31 3a e7 58  |$,PT):X2=X2-1:.X|
000017a0  32 3c 30 8c 59 32 3d 59  32 2d 31 3a 58 32 3d 37  |2<0.Y2=Y2-1:X2=7|
000017b0  39 0d 06 ae 09 e5 8d 44  54 46 0d 06 b8 05 e1 0d  |9......DTF......|
000017c0  06 c2 09 dd f2 54 59 37  0d 06 cc 33 58 32 3d 58  |.....TY7...3X2=X|
000017d0  32 2b 28 48 49 25 2d 31  29 3a 58 33 3d 58 32 3a  |2+(HI%-1):X3=X2:|
000017e0  4e 24 3d 22 22 3a 50 54  3d 30 3a 50 4f 3d 30 3a  |N$="":PT=0:PO=0:|
000017f0  e7 48 49 25 3d 39 8c 50  4f 3d 31 0d 06 d6 16 e7  |.HI%=9.PO=1.....|
00001800  50 54 3d 30 8c f1 8a 58  32 2c 59 32 29 3b 22 30  |PT=0...X2,Y2);"0|
00001810  22 0d 06 e0 08 49 4e 3d  a5 0d 06 ea 10 e7 49 4e  |"....IN=......IN|
00001820  3d 31 33 8c e5 8d 44 76  47 0d 06 f4 11 e7 49 4e  |=13...DvG.....IN|
00001830  3d 31 32 37 8c e5 8d 54  7a 47 0d 06 fe 1a e7 49  |=127...TzG.....I|
00001840  4e 3d 34 36 80 50 4f 3d  30 8c 50 4f 3d 31 3a e5  |N=46.PO=0.PO=1:.|
00001850  8d 54 66 47 0d 07 08 15  e7 49 4e 3d 34 36 80 50  |.TfG.....IN=46.P|
00001860  4f 3d 31 8c e5 8d 64 56  46 0d 07 12 15 e7 49 4e  |O=1...dVF.....IN|
00001870  3d 34 35 80 50 54 3d 30  8c e5 8d 54 70 47 0d 07  |=45.PT=0...TpG..|
00001880  1c 22 e7 49 4e 3c 34 38  84 49 4e 3e 35 37 8c d4  |.".IN<48.IN>57..|
00001890  31 2c 2d 31 35 2c 39 30  2c 32 3a e5 8d 64 56 46  |1,-15,90,2:..dVF|
000018a0  0d 07 26 11 e7 50 54 3d  48 49 25 8c e5 8d 64 56  |..&..PT=HI%...dV|
000018b0  46 0d 07 30 31 4e 24 3d  4e 24 2b bd 28 49 4e 29  |F..01N$=N$+.(IN)|
000018c0  3a 50 54 3d 50 54 2b 31  3a f1 8a 58 32 2c 59 32  |:PT=PT+1:..X2,Y2|
000018d0  29 3b 4e 24 3a 58 32 3d  58 32 2d 31 3a e5 8d 64  |);N$:X2=X2-1:..d|
000018e0  56 46 0d 07 3a 0f e7 50  54 3d 30 8c e5 8d 64 56  |VF..:..PT=0...dV|
000018f0  46 0d 07 44 17 e7 c1 4e  24 2c 50 54 2c 31 29 3d  |F..D...N$,PT,1)=|
00001900  22 2e 22 8c 50 4f 3d 30  0d 07 4e 47 58 32 3d 58  |".".PO=0..NGX2=X|
00001910  32 2b 31 3a f1 8a 58 32  2c 59 32 29 3b 22 20 22  |2+1:..X2,Y2);" "|
00001920  3a 58 32 3d 58 32 2b 31  3a 50 54 3d 50 54 2d 31  |:X2=X2+1:PT=PT-1|
00001930  3a 4e 24 3d c0 4e 24 2c  50 54 29 3a e7 4e 24 3c  |:N$=.N$,PT):.N$<|
00001940  3e 22 22 8c f1 8a 58 32  2c 59 32 29 3b 4e 24 0d  |>""...X2,Y2);N$.|
00001950  07 58 0b 58 32 3d 58 32  2d 31 0d 07 62 11 e7 58  |.X.X2=X2-1..b..X|
00001960  32 3e 58 33 20 8c 58 32  3d 58 33 0d 07 6c 09 e5  |2>X3 .X2=X3..l..|
00001970  8d 64 56 46 0d 07 76 11  e7 4e 24 3d 22 22 8c 4e  |.dVF..v..N$="".N|
00001980  24 3d 22 30 22 0d 07 80  05 e1 0d 07 8a 09 dd f2  |$="0"...........|
00001990  54 59 35 0d 07 94 1d f1  8a 58 32 2c 59 32 29 3b  |TY5......X2,Y2);|
000019a0  22 2e 2e 2f 2e 2e 2f 2e  2e 22 3a 4e 24 3d 22 22  |"../../..":N$=""|
000019b0  0d 07 9e 1a 58 33 3d 58  32 3a f2 44 41 54 3a e7  |....X3=X2:.DAT:.|
000019c0  44 45 3d 31 8c e5 8d 74  54 47 0d 07 a8 27 4e 24  |DE=1...tTG...'N$|
000019d0  3d 4e 24 2b 44 41 54 24  3a 58 33 3d 58 32 2b 33  |=N$+DAT$:X3=X2+3|
000019e0  3a f2 44 41 54 3a e7 44  45 3d 31 8c e5 8d 74 54  |:.DAT:.DE=1...tT|
000019f0  47 0d 07 b2 2f 4e 24 3d  4e 24 2b 22 2f 22 2b 44  |G.../N$=N$+"/"+D|
00001a00  41 54 24 2b 22 2f 22 3a  58 33 3d 58 32 2b 36 3a  |AT$+"/":X3=X2+6:|
00001a10  f2 44 41 54 3a e7 44 45  3d 31 8c e5 8d 74 54 47  |.DAT:.DE=1...tTG|
00001a20  0d 07 bc 0e 4e 24 3d 4e  24 2b 44 41 54 24 0d 07  |....N$=N$+DAT$..|
00001a30  c6 15 49 4e 3d a5 3a e7  49 4e 3d 31 33 8c e5 8d  |..IN=.:.IN=13...|
00001a40  64 5a 47 0d 07 d0 17 e7  49 4e 3d 31 32 37 8c e5  |dZG.....IN=127..|
00001a50  8d 74 54 47 8b e5 8d 64  46 47 0d 07 da 05 e1 0d  |.tTG...dFG......|
00001a60  07 e4 09 dd f2 44 41 54  0d 07 ee 16 44 45 3d 30  |.....DAT....DE=0|
00001a70  3a 44 41 54 24 3d 22 22  3a 58 34 3d 58 33 0d 07  |:DAT$="":X4=X3..|
00001a80  f8 1b 49 4e 3d a5 3a e7  49 4e 3d 31 32 37 8c 44  |..IN=.:.IN=127.D|
00001a90  45 3d 31 3a e5 8d 54 60  48 0d 08 02 23 e7 49 4e  |E=1:..T`H...#.IN|
00001aa0  3c 34 38 84 49 4e 3e 35  37 8c d4 31 2c 2d 31 35  |<48.IN>57..1,-15|
00001ab0  2c 31 30 30 2c 32 3a e5  8d 64 78 47 0d 08 0c 3b  |,100,2:..dxG...;|
00001ac0  f1 8a 58 33 2c 59 32 29  3b bd 28 49 4e 29 3a 44  |..X3,Y2);.(IN):D|
00001ad0  41 54 24 3d 44 41 54 24  2b bd 28 49 4e 29 3a 58  |AT$=DAT$+.(IN):X|
00001ae0  33 3d 58 33 2b 31 3a e7  58 33 3e 28 58 34 2b 31  |3=X3+1:.X3>(X4+1|
00001af0  29 8c e5 8d 54 60 48 0d  08 16 09 e5 8d 64 78 47  |)...T`H......dxG|
00001b00  0d 08 20 05 e1 0d 08 2a  09 dd f2 54 59 36 0d 08  |.. ....*...TY6..|
00001b10  34 1a f1 8a 58 32 2c 59  32 29 3b 22 2e 2e 3a 2e  |4...X2,Y2);"..:.|
00001b20  2e 22 3a 4e 24 3d 22 22  0d 08 3e 1a 58 33 3d 58  |.":N$=""..>.X3=X|
00001b30  32 3a f2 44 41 54 3a e7  44 45 3d 31 8c e5 8d 54  |2:.DAT:.DE=1...T|
00001b40  74 48 0d 08 48 1f 4e 24  3d 4e 24 2b 44 41 54 24  |tH..H.N$=N$+DAT$|
00001b50  2b 22 3a 22 3a 58 33 3d  58 32 2b 33 3a f2 44 41  |+":":X3=X2+3:.DA|
00001b60  54 0d 08 52 0e 4e 24 3d  4e 24 2b 44 41 54 24 0d  |T..R.N$=N$+DAT$.|
00001b70  08 5c 15 49 4e 3d a5 3a  e7 49 4e 3d 31 33 8c e5  |.\.IN=.:.IN=13..|
00001b80  8d 44 70 48 0d 08 66 17  e7 49 4e 3d 31 32 37 8c  |.DpH..f..IN=127.|
00001b90  e5 8d 54 74 48 8b e5 8d  44 5c 48 0d 08 70 05 e1  |..TtH...D\H..p..|
00001ba0  0d 08 7a 0c dd f2 4f 55  54 50 55 54 0d 08 84 14  |..z...OUTPUT....|
00001bb0  53 25 3d 31 3a 43 4f 55  25 3d 43 4f 55 25 2b 31  |S%=1:COU%=COU%+1|
00001bc0  0d 08 8e 14 e7 41 28 32  29 3d 31 8c ef 32 3a e5  |.....A(2)=1..2:.|
00001bd0  8d 64 40 48 0d 08 98 09  e5 8d 64 68 48 0d 08 a2  |.d@H......dhH...|
00001be0  11 e7 41 28 31 29 3d 30  8c e5 8d 64 68 48 0d 08  |..A(1)=0...dhH..|
00001bf0  ac 05 f4 0d 08 b6 09 e5  8d 44 42 49 0d 08 c0 46  |.........DBI...F|
00001c00  f1 22 52 65 63 6f 72 64  20 22 3b 49 3b 22 20 6f  |."Record ";I;" o|
00001c10  66 20 22 3b 4e 4f 52 25  27 3a ff 22 43 4c 4f 53  |f ";NOR%':."CLOS|
00001c20  45 22 3a 41 3d ad a4 4d  79 46 69 6c 65 28 46 4f  |E":A=..MyFile(FO|
00001c30  24 29 3a 58 3d ad a4 4d  79 46 69 6c 65 28 46 49  |$):X=..MyFile(FI|
00001c40  24 29 0d 08 ca 0d e3 46  3d 31 b8 4e 4f 46 25 0d  |$).....F=1.NOF%.|
00001c50  08 d4 6c cf 23 41 3d 28  46 2d 31 29 2a 36 31 2b  |..l.#A=(F-1)*61+|
00001c60  36 33 3a e8 23 41 2c 46  4c 24 3a cf 23 41 3d 28  |63:.#A,FL$:.#A=(|
00001c70  46 2d 31 29 2a 36 31 2b  31 30 39 3a e8 23 41 2c  |F-1)*61+109:.#A,|
00001c80  54 49 24 3a cf 23 58 3d  28 49 2d 31 29 2a 52 45  |TI$:.#X=(I-1)*RE|
00001c90  43 25 2b bb 28 54 49 24  29 3a e8 23 58 2c 54 24  |C%+.(TI$):.#X,T$|
00001ca0  3a f1 46 4c 24 2b c4 32  32 2d a9 28 46 4c 24 29  |:.FL$+.22-.(FL$)|
00001cb0  2c 22 20 22 29 2b 54 24  3a ed 46 0d 08 de 24 f1  |," ")+T$:.F...$.|
00001cc0  3a ef 33 3a fb 34 34 3a  f1 c4 38 30 2c bd 28 32  |:.3:.44:..80,.(2|
00001cd0  34 31 29 29 3a fb 31 32  37 3a e5 8d 74 6c 48 0d  |41)):.127:..tlH.|
00001ce0  08 e8 3b db 3a 50 25 3d  31 3a 46 3d 31 3a ff 22  |..;.:P%=1:F=1:."|
00001cf0  43 4c 4f 53 45 22 3a 41  3d ad a4 4d 79 46 69 6c  |CLOSE":A=..MyFil|
00001d00  65 28 46 4f 24 29 3a 58  3d ad a4 4d 79 46 69 6c  |e(FO$):X=..MyFil|
00001d10  65 28 46 49 24 29 3a f2  53 43 0d 08 f2 35 50 4f  |e(FI$):.SC...5PO|
00001d20  49 3d 28 46 2d 31 29 2a  36 31 2b 36 33 3a cf 23  |I=(F-1)*61+63:.#|
00001d30  41 3d 50 4f 49 2b 35 38  3a e8 23 41 2c 4e 50 24  |A=POI+58:.#A,NP$|
00001d40  3a e7 4e 50 24 3d 22 31  22 8c e5 8d 64 54 43 0d  |:.NP$="1"...dTC.|
00001d50  08 fc b5 50 4f 49 3d 28  46 2d 31 29 2a 36 31 2b  |...POI=(F-1)*61+|
00001d60  36 33 3a cf 23 41 3d 50  4f 49 3a e8 23 41 2c 46  |63:.#A=POI:.#A,F|
00001d70  4c 24 3a cf 23 41 3d 50  4f 49 2b 32 32 3a e8 23  |L$:.#A=POI+22:.#|
00001d80  41 2c 5a 5a 24 3a 58 31  3d bb 28 5a 5a 24 29 3a  |A,ZZ$:X1=.(ZZ$):|
00001d90  cf 23 41 3d 50 4f 49 2b  32 36 3a e8 23 41 2c 5a  |.#A=POI+26:.#A,Z|
00001da0  5a 24 3a 59 31 3d bb 28  5a 5a 24 29 3a cf 23 41  |Z$:Y1=.(ZZ$):.#A|
00001db0  3d 50 4f 49 2b 33 30 3a  e8 23 41 2c 5a 5a 24 3a  |=POI+30:.#A,ZZ$:|
00001dc0  58 35 3d bb 28 5a 5a 24  29 3a cf 23 41 3d 50 4f  |X5=.(ZZ$):.#A=PO|
00001dd0  49 2b 33 34 3a e8 23 41  2c 5a 5a 24 3a 59 35 3d  |I+34:.#A,ZZ$:Y5=|
00001de0  bb 28 5a 5a 24 29 3a cf  23 41 3d 50 4f 49 2b 34  |.(ZZ$):.#A=POI+4|
00001df0  36 3a e8 23 41 2c 5a 5a  24 3a 54 69 25 3d bb 28  |6:.#A,ZZ$:Ti%=.(|
00001e00  5a 5a 24 29 0d 09 06 4b  cf 23 58 3d 28 49 2d 31  |ZZ$)...K.#X=(I-1|
00001e10  29 2a 52 45 43 25 2b 54  69 25 3a e8 23 58 2c 54  |)*REC%+Ti%:.#X,T|
00001e20  24 3a f1 8a 58 31 2c 59  31 29 3b 46 4c 24 3a f2  |$:..X1,Y1);FL$:.|
00001e30  46 50 4e 54 3a 46 3d 46  2b 31 3a e7 46 3e 4e 4f  |FPNT:F=F+1:.F>NO|
00001e40  46 25 8c e5 8d 54 50 49  3a 8b e5 8d 64 72 48 0d  |F%...TPI:...drH.|
00001e50  09 10 b2 fb 31 33 31 3a  fb 34 35 3a f1 8a 32 2c  |....131:.45:..2,|
00001e60  32 38 29 3b 22 43 6f 6e  74 69 6e 75 65 20 53 65  |28);"Continue Se|
00001e70  61 72 63 68 3a 22 3b 8a  32 2c 32 39 29 3b 22 4e  |arch:";.2,29);"N|
00001e80  65 78 74 20 50 61 67 65  20 20 20 20 20 20 3a 22  |ext Page      :"|
00001e90  3b 8a 33 33 2c 32 38 29  3b 22 51 75 69 74 20 53  |;.33,28);"Quit S|
00001ea0  65 61 72 63 68 3a 22 3a  fb 31 32 38 3a fb 31 32  |earch:":.128:.12|
00001eb0  30 3a f1 8a 31 39 2c 32  38 29 3b 22 4c 65 66 74  |0:..19,28);"Left|
00001ec0  20 42 75 74 74 6f 6e 22  3b 8a 31 39 2c 32 39 29  | Button";.19,29)|
00001ed0  3b 22 52 69 67 68 74 20  42 75 74 74 6f 6e 22 3b  |;"Right Button";|
00001ee0  8a 34 36 2c 32 38 29 3b  22 4d 69 64 64 6c 65 20  |.46,28);"Middle |
00001ef0  42 75 74 74 6f 6e 22 3a  fb 31 32 37 3a fb 46 47  |Button":.127:.FG|
00001f00  25 0d 09 1a 19 f2 43 4c  49 43 4b 3a e7 42 55 54  |%.....CLICK:.BUT|
00001f10  3d 34 8c db 3a e5 8d 44  56 49 0d 09 24 11 e7 42  |=4..:..DVI..$..B|
00001f20  55 54 3c 3e 31 8c e5 8d  54 5a 49 0d 09 2e 20 e7  |UT<>1...TZI... .|
00001f30  46 3e 4e 4f 46 25 8c db  3a 50 25 3d 31 3a 46 3d  |F>NOF%..:P%=1:F=|
00001f40  31 3a f2 53 43 3a e5 8d  64 72 48 0d 09 38 15 50  |1:.SC:..drH..8.P|
00001f50  25 3d 50 25 2b 31 3a f2  53 43 3a e5 8d 64 72 48  |%=P%+1:.SC:..drH|
00001f60  0d 09 42 18 e7 41 28 32  29 3d 31 84 41 28 33 29  |..B..A(2)=1.A(3)|
00001f70  3d 31 8c e5 8d 44 56 49  0d 09 4c 0a f2 43 4c 49  |=1...DVI..L..CLI|
00001f80  43 4b 0d 09 56 05 e1 0d  09 60 2d db 3a f1 8a 31  |CK..V....`-.:..1|
00001f90  2c 31 29 3b 22 41 64 2d  48 6f 63 20 51 75 65 72  |,1);"Ad-Hoc Quer|
00001fa0  79 22 3b 8a 31 2c 32 29  3b c4 31 32 2c bd 28 32  |y";.1,2);.12,.(2|
00001fb0  34 31 29 29 0d 09 6a 75  f1 8a 30 2c 34 29 3b bd  |41))..ju..0,4);.|
00001fc0  28 31 35 34 29 3b c4 37  38 2c bd 28 31 35 39 29  |(154);.78,.(159)|
00001fd0  29 3b bd 28 31 35 38 29  3b 8a 31 2c 34 29 3b 22  |);.(158);.1,4);"|
00001fe0  4c 69 22 3b 8a 34 2c 34  29 3b 22 46 69 65 6c 64  |Li";.4,4);"Field|
00001ff0  22 3b 8a 32 35 2c 34 29  3b 22 4f 70 22 3b 8a 32  |";.25,4);"Op";.2|
00002000  39 2c 34 29 3b 22 43 6f  6e 73 74 61 6e 74 2f 45  |9,4);"Constant/E|
00002010  78 70 72 65 73 73 69 6f  6e 22 3b 8a 37 34 2c 34  |xpression";.74,4|
00002020  29 3b 22 4c 6f 67 69 63  22 0d 09 74 3b f1 8a 33  |);"Logic"..t;..3|
00002030  2c 34 29 3b bd 28 32 33  33 29 3b 8a 32 34 2c 34  |,4);.(233);.24,4|
00002040  29 3b bd 28 32 33 33 29  3b 8a 32 38 2c 34 29 3b  |);.(233);.28,4);|
00002050  bd 28 32 33 33 29 3b 8a  37 33 2c 34 29 3b bd 28  |.(233);.73,4);.(|
00002060  32 33 33 29 0d 09 7e 75  e3 46 3d 35 b8 31 34 3a  |233)..~u.F=5.14:|
00002070  f1 8a 33 2d a9 28 c3 28  46 2d 34 29 29 2c 46 29  |..3-.(.(F-4)),F)|
00002080  3b 46 2d 34 3b 8a 30 2c  46 29 3b bd 28 31 35 35  |;F-4;.0,F);.(155|
00002090  29 3b 8a 33 2c 46 29 3b  bd 28 32 33 31 29 3b 8a  |);.3,F);.(231);.|
000020a0  32 34 2c 46 29 3b bd 28  32 33 31 29 3b 8a 32 38  |24,F);.(231);.28|
000020b0  2c 46 29 3b bd 28 32 33  31 29 3b 8a 37 33 2c 46  |,F);.(231);.73,F|
000020c0  29 3b bd 28 32 33 31 29  3b 8a 37 39 2c 46 29 3b  |);.(231);.79,F);|
000020d0  bd 28 31 35 37 29 3a ed  46 0d 09 88 23 e3 49 3d  |.(157):.F...#.I=|
000020e0  30 b8 31 30 3a e3 46 3d  30 b8 34 3a 51 24 28 49  |0.10:.F=0.4:Q$(I|
000020f0  2c 46 29 3d 22 22 3a ed  46 3a ed 49 0d 09 92 20  |,F)="":.F:.I... |
00002100  ff 22 43 4c 4f 53 45 22  3a 43 3d ad a4 4d 79 46  |."CLOSE":C=..MyF|
00002110  69 6c 65 28 46 4f 24 29  3a 49 3d 31 0d 09 9c 29  |ile(FO$):I=1...)|
00002120  58 3d 34 3a 59 3d 49 2b  34 3a 4c 25 3d 32 30 3a  |X=4:Y=I+4:L%=20:|
00002130  f2 54 45 58 54 3a 4e 24  3d 54 24 3a f2 43 4c 3a  |.TEXT:N$=T$:.CL:|
00002140  f2 43 48 45 4b 0d 09 a6  2a 58 3d 32 35 3a 59 3d  |.CHEK...*X=25:Y=|
00002150  49 2b 34 3a 4c 25 3d 32  3a f2 54 45 58 54 3a 4e  |I+4:L%=2:.TEXT:N|
00002160  24 3d 54 24 3a f2 43 4c  3a f2 43 48 45 4b 32 0d  |$=T$:.CL:.CHEK2.|
00002170  09 b0 39 e7 51 24 28 49  2c 34 29 3d 22 39 22 84  |..9.Q$(I,4)="9".|
00002180  20 bb 28 51 24 28 49 2c  34 29 29 3c 35 20 80 20  | .(Q$(I,4))<5 . |
00002190  bb 28 51 24 28 49 2c 33  29 29 3e 36 8c e5 8d 74  |.(Q$(I,3))>6...t|
000021a0  7a 49 8b e5 8d 64 4e 49  0d 09 ba 46 f2 43 4c 3a  |zI...dNI...F.CL:|
000021b0  f1 8a 32 30 2c 31 29 3b  22 49 6e 76 61 6c 69 64  |..20,1);"Invalid|
000021c0  20 4f 70 65 72 61 74 6f  72 2e 20 57 61 6e 74 20  | Operator. Want |
000021d0  74 6f 20 63 6f 6e 74 69  6e 75 65 3f 22 3b 3a f2  |to continue?";:.|
000021e0  59 4e 3a e7 59 4e 3d 30  8c e5 8d 44 71 42 0d 09  |YN:.YN=0...DqB..|
000021f0  c4 42 f1 8a 32 30 2c 31  29 3b 22 20 20 20 20 20  |.B..20,1);"     |
00002200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00002220  20 20 20 20 20 20 20 20  20 22 3a e5 8d 74 66 49  |         ":..tfI|
00002230  0d 09 ce 1e 58 3d 32 39  3a 59 3d 49 2b 34 3a 4c  |....X=29:Y=I+4:L|
00002240  25 3d 34 34 3a 58 32 3d  58 3a 59 32 3d 59 0d 09  |%=44:X2=X:Y2=Y..|
00002250  d8 26 e7 51 24 28 49 2c  34 29 3d 22 35 22 8c f2  |.&.Q$(I,4)="5"..|
00002260  54 59 35 3a 51 24 28 49  2c 30 29 3d 4e 24 3a e5  |TY5:Q$(I,0)=N$:.|
00002270  8d 64 76 49 0d 09 e2 26  e7 51 24 28 49 2c 34 29  |.dvI...&.Q$(I,4)|
00002280  3d 22 36 22 8c f2 54 59  36 3a 51 24 28 49 2c 30  |="6"..TY6:Q$(I,0|
00002290  29 3d 4e 24 3a e5 8d 64  76 49 0d 09 ec 1a f2 54  |)=N$:..dvI.....T|
000022a0  45 58 54 3a 4e 24 3d 54  24 3a 51 24 28 49 2c 30  |EXT:N$=T$:Q$(I,0|
000022b0  29 3d 4e 24 0d 09 f6 55  f1 8a 37 34 2c 49 2b 34  |)=N$...U..74,I+4|
000022c0  29 3b bd 28 32 35 35 29  3a 49 24 3d be 3a e7 49  |);.(255):I$=.:.I|
000022d0  24 3d 22 41 22 84 20 49  24 3d 22 4f 22 84 20 49  |$="A". I$="O". I|
000022e0  24 3d 22 45 22 84 20 49  24 3d 22 61 22 84 20 49  |$="E". I$="a". I|
000022f0  24 3d 22 6f 22 84 20 49  24 3d 22 65 22 8c e5 8d  |$="o". I$="e"...|
00002300  54 40 4a 8b e5 8d 64 76  49 0d 0a 00 1c e7 49 24  |T@J...dvI.....I$|
00002310  3d 22 41 22 84 20 49 24  3d 22 61 22 8c 49 24 3d  |="A". I$="a".I$=|
00002320  22 41 4e 44 22 0d 0a 0a  1c e7 49 24 3d 22 45 22  |"AND".....I$="E"|
00002330  84 20 49 24 3d 22 65 22  8c 49 24 3d 22 45 4e 44  |. I$="e".I$="END|
00002340  22 0d 0a 14 1b e7 49 24  3d 22 4f 22 84 20 49 24  |".....I$="O". I$|
00002350  3d 22 6f 22 8c 49 24 3d  22 4f 52 22 0d 0a 1e 1b  |="o".I$="OR"....|
00002360  f1 8a 37 34 2c 49 2b 34  29 3b 49 24 3a 51 24 28  |..74,I+4);I$:Q$(|
00002370  49 2c 31 29 3d 49 24 0d  0a 28 18 e7 49 24 3d 22  |I,1)=I$..(..I$="|
00002380  45 4e 44 22 8c 54 25 3d  49 3a e5 8d 74 74 4a 0d  |END".T%=I:..ttJ.|
00002390  0a 32 22 49 3d 49 2b 31  3a e7 49 3e 31 30 8c 54  |.2"I=I+1:.I>10.T|
000023a0  25 3d 31 30 3a e5 8d 74  74 4a 3a 8b e5 8d 74 5c  |%=10:..ttJ:...t\|
000023b0  49 0d 0a 3c 0a dd f2 43  48 45 4b 0d 0a 46 8c 4c  |I..<...CHEK..F.L|
000023c0  25 3d 30 3a e3 46 3d 31  b8 4e 4f 46 25 3a cf 23  |%=0:.F=1.NOF%:.#|
000023d0  43 3d 28 46 2d 31 29 2a  36 31 2b 36 33 3a e8 23  |C=(F-1)*61+63:.#|
000023e0  43 2c 46 4c 24 3a e7 4e  24 3d 46 4c 24 8c cf 23  |C,FL$:.N$=FL$..#|
000023f0  43 3d 28 46 2d 31 29 2a  36 31 2b 36 33 2b 34 36  |C=(F-1)*61+63+46|
00002400  3a e8 23 43 2c 54 49 24  3a 51 24 28 49 2c 32 29  |:.#C,TI$:Q$(I,2)|
00002410  3d 54 49 24 3a cf 23 43  3d 28 46 2d 31 29 2a 36  |=TI$:.#C=(F-1)*6|
00002420  31 2b 36 33 2b 33 38 3a  e8 23 43 2c 54 59 24 3a  |1+63+38:.#C,TY$:|
00002430  51 24 28 49 2c 34 29 3d  54 59 24 3a 46 3d 4e 4f  |Q$(I,4)=TY$:F=NO|
00002440  46 25 3a 4c 25 3d 31 0d  0a 50 06 ed 46 0d 0a 5a  |F%:L%=1..P..F..Z|
00002450  59 e7 4c 25 3d 31 8c e5  8d 44 6e 4a 3a 8b f2 43  |Y.L%=1...DnJ:..C|
00002460  4c 3a f1 8a 32 30 2c 31  29 3b 22 49 6e 63 6f 72  |L:..20,1);"Incor|
00002470  72 65 63 74 20 66 69 65  6c 64 20 74 69 74 6c 65  |rect field title|
00002480  20 73 70 65 6c 6c 69 6e  67 2e 20 43 6f 6e 74 69  | spelling. Conti|
00002490  6e 75 65 3f 22 3b 3a f2  59 4e 3a e7 59 4e 3d 30  |nue?";:.YN:.YN=0|
000024a0  8c e5 8d 54 74 43 0d 0a  64 0d f2 43 4c 3a e5 8d  |...TtC..d..CL:..|
000024b0  74 5c 49 0d 0a 6e 05 e1  0d 0a 78 0b dd f2 43 48  |t\I..n....x...CH|
000024c0  45 4b 32 0d 0a 82 2f 4c  25 3d 30 3a e3 46 3d 31  |EK2.../L%=0:.F=1|
000024d0  b8 36 3a e7 4e 24 3d 50  24 28 46 29 8c 51 24 28  |.6:.N$=P$(F).Q$(|
000024e0  49 2c 33 29 3d c3 28 46  29 3a 4c 25 3d 31 3a 46  |I,3)=.(F):L%=1:F|
000024f0  3d 38 0d 0a 8c 56 ed 46  3a e7 4c 25 3d 31 8c e5  |=8...V.F:.L%=1..|
00002500  8d 74 60 4a 3a 8b f2 43  4c 3a f1 8a 32 30 2c 31  |.t`J:..CL:..20,1|
00002510  29 3b 22 49 6e 76 61 6c  69 64 20 4f 70 65 72 61  |);"Invalid Opera|
00002520  74 6f 72 2e 20 57 61 6e  74 20 74 6f 20 63 6f 6e  |tor. Want to con|
00002530  74 69 6e 75 65 3f 22 3b  3a f2 59 4e 3a e7 59 4e  |tinue?";:.YN:.YN|
00002540  3d 30 8c e5 8d 44 71 42  0d 0a 96 0d f2 43 4c 3a  |=0...DqB.....CL:|
00002550  e5 8d 74 66 49 0d 0a a0  05 e1 0d 0a aa 2b dd f2  |..tfI........+..|
00002560  43 4c 3a f1 8a 32 30 2c  31 29 3b c4 36 30 2c 22  |CL:..20,1);.60,"|
00002570  20 22 29 3b 8a 32 30 2c  32 29 3b c4 36 30 2c 22  | ");.20,2);.60,"|
00002580  20 22 29 3a e1 0d 0a b4  42 4d 43 24 3d c4 32 30  | "):....BMC$=.20|
00002590  2c 22 30 22 29 3a 52 43  24 3d 4d 43 24 3a e7 51  |,"0"):RC$=MC$:.Q|
000025a0  24 28 31 2c 31 29 3d 22  4f 52 22 8c 4d 43 24 3d  |$(1,1)="OR".MC$=|
000025b0  22 31 22 2b c4 39 2c 22  30 22 29 2b 22 31 22 2b  |"1"+.9,"0")+"1"+|
000025c0  c4 39 2c 22 30 22 29 0d  0a be 05 db 0d 0a c8 0b  |.9,"0").........|
000025d0  e3 46 3d 31 b8 54 25 0d  0a d2 17 e7 51 24 28 46  |.F=1.T%.....Q$(F|
000025e0  2c 31 29 3d 22 4f 52 22  8c e5 8d 54 4e 4b 0d 0a  |,1)="OR"...TNK..|
000025f0  dc 43 42 31 24 3d c2 4d  43 24 2c 31 30 29 3a 42  |.CB1$=.MC$,10):B|
00002600  32 24 3d 22 22 3a e3 4a  3d 31 b8 31 30 3a e7 4a  |2$="":.J=1.10:.J|
00002610  3d 46 20 8c 42 32 24 3d  42 32 24 2b 22 31 22 8b  |=F .B2$=B2$+"1".|
00002620  42 32 24 3d 42 32 24 2b  c1 4d 43 24 2c 4a 2c 31  |B2$=B2$+.MC$,J,1|
00002630  29 0d 0a e6 06 ed 4a 0d  0a f0 23 4d 43 24 3d 42  |).....J...#MC$=B|
00002640  32 24 2b 42 31 24 3a 42  31 24 3d c0 4d 43 24 2c  |2$+B1$:B1$=.MC$,|
00002650  31 30 29 3a 42 32 24 3d  22 22 0d 0a fa 35 e3 4a  |10):B2$=""...5.J|
00002660  3d 31 31 b8 32 30 3a e7  4a 3d 28 46 2b 31 30 29  |=11.20:.J=(F+10)|
00002670  20 8c 42 32 24 3d 42 32  24 2b 22 31 22 8b 42 32  | .B2$=B2$+"1".B2|
00002680  24 3d 42 32 24 2b c1 4d  43 24 2c 4a 2c 31 29 0d  |$=B2$+.MC$,J,1).|
00002690  0b 04 12 ed 4a 3a 4d 43  24 3d 42 31 24 2b 42 32  |....J:MC$=B1$+B2|
000026a0  24 0d 0b 0e 06 ed 46 0d  0b 18 11 e7 4c 4f 44 25  |$.....F.....LOD%|
000026b0  3d 30 8c e5 8d 74 72 4c  0d 0b 22 2f db 3a 53 25  |=0...trL.."/.:S%|
000026c0  3d 30 3a ff 22 43 4c 4f  53 45 22 3a 43 3d ad a4  |=0:."CLOSE":C=..|
000026d0  4d 79 46 69 6c 65 28 46  49 24 29 3a 4c 4f 44 25  |MyFile(FI$):LOD%|
000026e0  3d 30 3a f1 53 45 24 0d  0b 2c 21 e3 43 52 25 3d  |=0:.SE$..,!.CR%=|
000026f0  31 b8 4e 4f 52 25 3a 46  25 3d 31 3a 52 43 24 3d  |1.NOR%:F%=1:RC$=|
00002700  c4 32 30 2c 22 30 22 29  0d 0b 36 17 e7 51 24 28  |.20,"0")..6..Q$(|
00002710  31 2c 31 29 3d 22 4f 52  22 8c e5 8d 44 76 4c 0d  |1,1)="OR"...DvL.|
00002720  0b 40 63 cf 23 43 3d 28  43 52 25 2d 31 29 2a 52  |.@c.#C=(CR%-1)*R|
00002730  45 43 25 2b bb 28 51 24  28 46 25 2c 32 29 29 3a  |EC%+.(Q$(F%,2)):|
00002740  e8 23 43 2c 43 24 3a 4e  24 3d 51 24 28 46 25 2c  |.#C,C$:N$=Q$(F%,|
00002750  30 29 3a 54 50 24 3d 22  31 22 3a 4f 50 24 3d 51  |0):TP$="1":OP$=Q|
00002760  24 28 46 25 2c 33 29 3a  f2 54 59 50 45 3a f2 43  |$(F%,3):.TYPE:.C|
00002770  4f 4d 50 41 52 45 3a e7  43 4f 4d 25 3d 31 8c f2  |OMPARE:.COM%=1..|
00002780  46 42 0d 0b 4a 1e e7 51  24 28 46 25 2c 31 29 3d  |FB..J..Q$(F%,1)=|
00002790  22 45 4e 44 22 80 43 4f  4d 25 3d 31 8c f2 53 42  |"END".COM%=1..SB|
000027a0  0d 0b 54 49 e7 51 24 28  46 25 2c 31 29 3d 22 45  |..TI.Q$(F%,1)="E|
000027b0  4e 44 22 8c e7 52 43 24  3d 4d 43 24 8c 49 3d 43  |ND"..RC$=MC$.I=C|
000027c0  52 25 3a f2 4f 55 54 50  55 54 3a ff 22 43 4c 4f  |R%:.OUTPUT:."CLO|
000027d0  53 45 22 3a 43 3d ad a4  4d 79 46 69 6c 65 28 46  |SE":C=..MyFile(F|
000027e0  49 24 29 3a e5 8d 44 7c  4b 0d 0b 5e 22 46 25 3d  |I$):..D|K..^"F%=|
000027f0  46 25 2b 31 3a e7 46 25  3e 54 25 8c 46 25 3d 54  |F%+1:.F%>T%.F%=T|
00002800  25 3a f2 53 42 3a e5 8d  44 7c 4b 0d 0b 68 18 e7  |%:.SB:..D|K..h..|
00002810  51 24 28 46 25 2c 31 29  3d 22 4f 52 22 8c e5 8d  |Q$(F%,1)="OR"...|
00002820  54 52 4c 0d 0b 72 1d 46  25 3d 46 25 2d 31 3a f2  |TRL..r.F%=F%-1:.|
00002830  53 42 3a 46 25 3d 46 25  2b 31 3a e5 8d 44 40 4b  |SB:F%=F%+1:..D@K|
00002840  0d 0b 7c 0e ed 43 52 25  3a e5 8d 54 78 44 0d 0b  |..|..CR%:..TxD..|
00002850  86 0a dd f2 54 59 50 45  0d 0b 90 45 e7 51 24 28  |....TYPE...E.Q$(|
00002860  46 25 2c 34 29 3d 22 37  22 84 51 24 28 46 25 2c  |F%,4)="7".Q$(F%,|
00002870  34 29 3d 22 38 22 84 51  24 28 46 25 2c 34 29 3d  |4)="8".Q$(F%,4)=|
00002880  22 30 22 8c 20 4e 3d bb  28 4e 24 29 3a 4e 4f 3d  |"0". N=.(N$):NO=|
00002890  bb 28 43 24 29 3a 54 50  24 3d 22 32 22 0d 0b 9a  |.(C$):TP$="2"...|
000028a0  38 e7 51 24 28 46 25 2c  34 29 3d 22 35 22 8c 58  |8.Q$(F%,4)="5".X|
000028b0  24 3d 4e 24 3a f2 43 4f  4e 44 49 3a 4e 3d 4e 4f  |$=N$:.CONDI:N=NO|
000028c0  3a 58 24 3d 43 24 3a f2  43 4f 4e 44 49 3a 54 50  |:X$=C$:.CONDI:TP|
000028d0  24 3d 22 32 22 0d 0b a4  38 e7 51 24 28 46 25 2c  |$="2"...8.Q$(F%,|
000028e0  34 29 3d 22 36 22 8c 58  24 3d 4e 24 3a f2 43 4f  |4)="6".X$=N$:.CO|
000028f0  4e 54 49 3a 4e 3d 4e 4f  3a 58 24 3d 43 24 3a f2  |NTI:N=NO:X$=C$:.|
00002900  43 4f 4e 54 49 3a 54 50  24 3d 22 32 22 0d 0b ae  |CONTI:TP$="2"...|
00002910  05 e1 0d 0b b8 08 dd f2  46 42 0d 0b c2 44 42 31  |........FB...DB1|
00002920  24 3d c2 52 43 24 2c 31  30 29 3a 42 32 24 3d 22  |$=.RC$,10):B2$="|
00002930  22 3a e3 4a 3d 31 b8 31  30 3a e7 4a 3d 46 25 20  |":.J=1.10:.J=F% |
00002940  8c 42 32 24 3d 42 32 24  2b 22 31 22 8b 42 32 24  |.B2$=B2$+"1".B2$|
00002950  3d 42 32 24 2b c1 52 43  24 2c 4a 2c 31 29 0d 0b  |=B2$+.RC$,J,1)..|
00002960  cc 12 ed 4a 3a 52 43 24  3d 42 32 24 2b 42 31 24  |...J:RC$=B2$+B1$|
00002970  0d 0b d6 05 e1 0d 0b e0  08 dd f2 53 42 0d 0b ea  |...........SB...|
00002980  17 42 31 24 3d c0 52 43  24 2c 31 30 29 3a 42 32  |.B1$=.RC$,10):B2|
00002990  24 3d 22 22 0d 0b f4 36  e3 4a 3d 31 31 b8 32 30  |$=""...6.J=11.20|
000029a0  3a e7 4a 3d 28 46 25 2b  31 30 29 20 8c 42 32 24  |:.J=(F%+10) .B2$|
000029b0  3d 42 32 24 2b 22 31 22  8b 42 32 24 3d 42 32 24  |=B2$+"1".B2$=B2$|
000029c0  2b c1 52 43 24 2c 4a 2c  31 29 0d 0b fe 12 ed 4a  |+.RC$,J,1).....J|
000029d0  3a 52 43 24 3d 42 31 24  2b 42 32 24 0d 0c 08 05  |:RC$=B1$+B2$....|
000029e0  e1 0d 0c 12 0e 53 50 25  3d 28 46 25 2d 31 29 0d  |.....SP%=(F%-1).|
000029f0  0c 1c 7e cf 23 43 3d 28  43 52 25 2d 31 29 2a 52  |..~.#C=(CR%-1)*R|
00002a00  45 43 25 2b bb 28 51 24  28 46 25 2c 32 29 29 3a  |EC%+.(Q$(F%,2)):|
00002a10  e8 23 43 2c 43 24 3a 4e  24 3d 51 24 28 46 25 2c  |.#C,C$:N$=Q$(F%,|
00002a20  30 29 3a 54 50 24 3d 22  31 22 3a 4f 50 24 3d 51  |0):TP$="1":OP$=Q|
00002a30  24 28 46 25 2c 33 29 3a  f2 54 59 50 45 3a f2 43  |$(F%,3):.TYPE:.C|
00002a40  4f 4d 50 41 52 45 3a e7  43 4f 4d 25 3d 31 8c 53  |OMPARE:.COM%=1.S|
00002a50  41 25 3d 46 25 3a 46 25  3d 53 50 25 3a f2 53 42  |A%=F%:F%=SP%:.SB|
00002a60  3a 46 25 3d 53 41 25 3a  e5 8d 44 44 4c 0d 0c 26  |:F%=SA%:..DDL..&|
00002a70  19 e7 51 24 28 46 25 2c  31 29 3d 22 45 4e 44 22  |..Q$(F%,1)="END"|
00002a80  8c e5 8d 44 7c 4b 0d 0c  30 29 e7 51 24 28 46 25  |...D|K..0).Q$(F%|
00002a90  2c 31 29 3d 22 41 4e 44  22 8c f2 46 42 3a f2 53  |,1)="AND"..FB:.S|
00002aa0  42 3a 46 25 3d 46 25 2b  31 3a e5 8d 44 40 4b 0d  |B:F%=F%+1:..D@K.|
00002ab0  0c 3a 11 46 25 3d 46 25  2b 31 3a e5 8d 54 5c 4c  |.:.F%=F%+1:..T\L|
00002ac0  0d 0c 44 29 e7 51 24 28  46 25 2c 31 29 3d 22 41  |..D).Q$(F%,1)="A|
00002ad0  4e 44 22 8c f2 46 42 3a  f2 53 42 3a 46 25 3d 46  |ND"..FB:.SB:F%=F|
00002ae0  25 2b 31 3a e5 8d 44 40  4b 0d 0c 4e 24 e7 51 24  |%+1:..D@K..N$.Q$|
00002af0  28 46 25 2c 31 29 3d 22  45 4e 44 22 8c f2 46 42  |(F%,1)="END"..FB|
00002b00  3a 43 4f 4d 25 3d 31 3a  e5 8d 44 4a 4b 0d 0c 58  |:COM%=1:..DJK..X|
00002b10  29 e7 51 24 28 46 25 2c  31 29 3d 22 41 4e 44 22  |).Q$(F%,1)="AND"|
00002b20  8c f2 46 42 3a f2 53 42  3a 46 25 3d 46 25 2b 31  |..FB:.SB:F%=F%+1|
00002b30  3a e5 8d 44 40 4b 0d 0c  62 24 e7 51 24 28 46 25  |:..D@K..b$.Q$(F%|
00002b40  2c 31 29 3d 22 45 4e 44  22 8c f2 46 42 3a 43 4f  |,1)="END"..FB:CO|
00002b50  4d 25 3d 31 3a e5 8d 44  4a 4b 0d 0c 6c 11 46 25  |M%=1:..DJK..l.F%|
00002b60  3d 46 25 2b 31 3a e5 8d  44 58 4c 0d 0c 76 0a 53  |=F%+1:..DXL..v.S|
00002b70  50 25 3d 46 25 0d 0c 80  82 cf 23 43 3d 28 43 52  |P%=F%.....#C=(CR|
00002b80  25 2d 31 29 2a 52 45 43  25 2b bb 28 51 24 28 46  |%-1)*REC%+.(Q$(F|
00002b90  25 2c 32 29 29 3a e8 23  43 2c 43 24 3a 4e 24 3d  |%,2)):.#C,C$:N$=|
00002ba0  51 24 28 46 25 2c 30 29  3a 54 50 24 3d 22 31 22  |Q$(F%,0):TP$="1"|
00002bb0  3a 4f 50 24 3d 51 24 28  46 25 2c 33 29 3a f2 54  |:OP$=Q$(F%,3):.T|
00002bc0  59 50 45 3a f2 43 4f 4d  50 41 52 45 3a e7 43 4f  |YPE:.COMPARE:.CO|
00002bd0  4d 25 3d 31 8c 53 41 25  3d 46 25 3a 46 25 3d 53  |M%=1.SA%=F%:F%=S|
00002be0  50 25 3a f2 46 42 3a f2  53 42 3a 46 25 3d 53 41  |P%:.FB:.SB:F%=SA|
00002bf0  25 3a e5 8d 44 44 4c 0d  0c 8a 19 e7 51 24 28 46  |%:..DDL.....Q$(F|
00002c00  25 2c 31 29 3d 22 45 4e  44 22 8c e5 8d 44 7c 4b  |%,1)="END"...D|K|
00002c10  0d 0c 94 29 e7 51 24 28  46 25 2c 31 29 3d 22 41  |...).Q$(F%,1)="A|
00002c20  4e 44 22 8c f2 46 42 3a  f2 53 42 3a 46 25 3d 46  |ND"..FB:.SB:F%=F|
00002c30  25 2b 31 3a e5 8d 44 40  4b 0d 0c 9e 11 46 25 3d  |%+1:..D@K....F%=|
00002c40  46 25 2b 31 3a e5 8d 74  40 4c 0d 0c a8 29 46 25  |F%+1:..t@L...)F%|
00002c50  3d bb 28 c1 4e 24 2c 32  29 29 3a e7 46 25 3c 31  |=.(.N$,2)):.F%<1|
00002c60  84 46 25 3e 4e 4f 46 25  8c 4c 25 3d 30 3a e5 8d  |.F%>NOF%.L%=0:..|
00002c70  44 5a 4a 0d 0c b2 7d db  3a 58 3d 32 3a 59 3d 32  |DZJ...}.:X=2:Y=2|
00002c80  3a 57 25 3d 32 36 3a 4c  25 3d 32 3a f2 4c 57 4e  |:W%=26:L%=2:.LWN|
00002c90  3a 4d 45 24 28 31 29 3d  22 52 75 6e 20 54 68 69  |:ME$(1)="Run Thi|
00002ca0  73 20 51 75 65 72 79 20  4e 6f 77 22 3a 4d 45 24  |s Query Now":ME$|
00002cb0  28 32 29 3d 22 53 61 76  65 20 41 6e 64 20 52 75  |(2)="Save And Ru|
00002cc0  6e 20 54 68 69 73 20 51  75 65 72 79 22 3a 58 3d  |n This Query":X=|
00002cd0  33 3a 59 3d 58 3a 4c 25  3d 32 3a f2 53 45 4c 45  |3:Y=X:L%=2:.SELE|
00002ce0  43 54 3a e7 53 45 4c 25  3d 31 8c e5 8d 54 62 4b  |CT:.SEL%=1...TbK|
00002cf0  0d 0c bc 6e 58 3d 31 30  3a 59 3d 31 30 3a 57 25  |...nX=10:Y=10:W%|
00002d00  3d 33 37 3a 4c 25 3d 31  3a f2 4c 57 4e 3a f1 8a  |=37:L%=1:.LWN:..|
00002d10  31 31 2c 31 31 29 3b 22  45 6e 74 65 72 20 46 69  |11,11);"Enter Fi|
00002d20  6c 65 6e 61 6d 65 20 66  6f 72 20 51 75 65 72 79  |lename for Query|
00002d30  3a 20 22 3b 3a 58 3d b1  3a 59 3d 31 31 3a 4c 25  |: ";:X=.:Y=11:L%|
00002d40  3d 31 30 3a f2 54 45 58  54 3a e7 54 24 3d 46 49  |=10:.TEXT:.T$=FI|
00002d50  24 84 54 24 3d 46 4f 24  8c e5 8d 74 72 4c 0d 0c  |$.T$=FO$...trL..|
00002d60  c6 85 ff 22 43 4c 4f 53  45 22 3a 58 3d ae 28 22  |..."CLOSE":X=.("|
00002d70  3c 44 61 74 61 56 69 73  69 6f 6e 24 44 69 72 3e  |<DataVision$Dir>|
00002d80  2e 22 2b 54 24 29 3a 51  24 28 30 2c 30 29 3d c3  |."+T$):Q$(0,0)=.|
00002d90  28 54 25 29 3a 51 24 28  30 2c 31 29 3d 46 49 24  |(T%):Q$(0,1)=FI$|
00002da0  3a 51 24 28 30 2c 33 29  3d 22 41 44 48 4f 43 22  |:Q$(0,3)="ADHOC"|
00002db0  3a 51 24 28 30 2c 32 29  3d 4d 43 24 3a e3 49 3d  |:Q$(0,2)=MC$:.I=|
00002dc0  30 b8 54 25 3a e3 46 3d  30 b8 34 3a f1 23 58 2c  |0.T%:.F=0.4:.#X,|
00002dd0  51 24 28 49 2c 46 29 3a  ed 46 3a ed 49 3a e5 8d  |Q$(I,F):.F:.I:..|
00002de0  54 62 4b 0d 0c d0 44 db  3a f1 8a 32 2c 32 29 3b  |TbK...D.:..2,2);|
00002df0  22 4d 69 6e 69 6d 75 6d  20 53 65 61 72 63 68 22  |"Minimum Search"|
00002e00  3b 8a 32 2c 33 29 3b c4  31 34 2c bd 28 32 34 31  |;.2,3);.14,.(241|
00002e10  29 29 3a f2 53 45 4c 3a  43 46 25 3d 53 46 25 3a  |)):.SEL:CF%=SF%:|
00002e20  f2 46 4f 50 4f 55 54 0d  0c da 3e 4d 49 4e 3d 39  |.FOPOUT...>MIN=9|
00002e30  39 39 39 39 39 39 39 3a  41 52 25 3d 30 3a 41 53  |9999999:AR%=0:AS|
00002e40  4f 25 3d 39 30 3a ff 22  43 4c 4f 53 45 22 3a 58  |O%=90:."CLOSE":X|
00002e50  3d ad a4 4d 79 46 69 6c  65 28 46 49 24 29 3a db  |=..MyFile(FI$):.|
00002e60  3a f1 53 45 24 0d 0c e4  27 e3 49 3d 31 b8 4e 4f  |:.SE$...'.I=1.NO|
00002e70  52 25 3a cf 23 58 3d 28  49 2d 31 29 2a 52 45 43  |R%:.#X=(I-1)*REC|
00002e80  25 2b 54 49 25 3a e8 23  58 2c 43 24 0d 0c ee 41  |%+TI%:.#X,C$...A|
00002e90  e7 54 59 24 3d 22 37 22  84 54 59 24 3d 22 38 22  |.TY$="7".TY$="8"|
00002ea0  84 54 59 24 3d 22 30 22  8c 4e 4f 3d bb 28 43 24  |.TY$="0".NO=.(C$|
00002eb0  29 3a e7 4e 4f 3c 4d 49  4e 20 8c 4d 49 4e 3d 4e  |):.NO<MIN .MIN=N|
00002ec0  4f 3a 41 52 25 3d 49 3a  e5 8d 54 60 4d 0d 0c f8  |O:AR%=I:..T`M...|
00002ed0  35 e7 54 59 24 3d 22 35  22 8c 58 24 3d 43 24 3a  |5.TY$="5".X$=C$:|
00002ee0  f2 43 4f 4e 44 49 3a e7  4e 4f 3c 4d 49 4e 20 8c  |.CONDI:.NO<MIN .|
00002ef0  4d 49 4e 3d 4e 4f 3a 41  52 25 3d 49 3a e5 8d 54  |MIN=NO:AR%=I:..T|
00002f00  60 4d 0d 0d 02 35 e7 54  59 24 3d 22 36 22 8c 58  |`M...5.TY$="6".X|
00002f10  24 3d 43 24 3a f2 43 4f  4e 54 49 3a e7 4e 4f 3c  |$=C$:.CONTI:.NO<|
00002f20  4d 49 4e 20 8c 4d 49 4e  3d 4e 4f 3a 41 52 25 3d  |MIN .MIN=NO:AR%=|
00002f30  49 3a e5 8d 54 60 4d 0d  0d 0c 38 e7 54 59 24 3d  |I:..T`M...8.TY$=|
00002f40  22 31 22 84 54 59 24 3d  22 32 22 84 54 59 24 3d  |"1".TY$="2".TY$=|
00002f50  22 33 22 84 54 59 24 3d  22 34 22 84 54 59 24 3d  |"3".TY$="4".TY$=|
00002f60  22 39 22 8c e5 8d 54 56  4d 8b e5 8d 54 60 4d 0d  |"9"...TVM...T`M.|
00002f70  0d 16 20 e7 41 53 4f 25  3e 97 28 43 24 29 8c 41  |.. .ASO%>.(C$).A|
00002f80  53 4f 25 3d 97 28 43 24  29 3a 41 52 25 3d 49 0d  |SO%=.(C$):AR%=I.|
00002f90  0d 20 18 ed 49 3a e7 41  52 25 3d 30 8c 53 25 3d  |. ..I:.AR%=0.S%=|
00002fa0  30 3a e5 8d 54 78 44 0d  0d 2a 1c 49 3d 41 52 25  |0:..TxD..*.I=AR%|
00002fb0  3a f2 4f 55 54 50 55 54  3a 53 25 3d 31 3a e5 8d  |:.OUTPUT:S%=1:..|
00002fc0  54 78 44 0d 0d 34 44 db  3a f1 8a 32 2c 32 29 3b  |TxD..4D.:..2,2);|
00002fd0  22 4d 61 78 69 6d 75 6d  20 53 65 61 72 63 68 22  |"Maximum Search"|
00002fe0  3b 8a 32 2c 33 29 3b c4  31 34 2c bd 28 32 34 31  |;.2,3);.14,.(241|
00002ff0  29 29 3a f2 53 45 4c 3a  43 46 25 3d 53 46 25 3a  |)):.SEL:CF%=SF%:|
00003000  f2 46 4f 50 4f 55 54 0d  0d 3e 3f 4d 41 58 3d 2d  |.FOPOUT..>?MAX=-|
00003010  39 39 39 39 39 39 39 39  3a 41 52 25 3d 30 3a 41  |99999999:AR%=0:A|
00003020  53 4f 25 3d 33 32 3a ff  22 43 4c 4f 53 45 22 3a  |SO%=32:."CLOSE":|
00003030  58 3d ad a4 4d 79 46 69  6c 65 28 46 49 24 29 3a  |X=..MyFile(FI$):|
00003040  db 3a f1 53 45 24 0d 0d  48 27 e3 49 3d 31 b8 4e  |.:.SE$..H'.I=1.N|
00003050  4f 52 25 3a cf 23 58 3d  28 49 2d 31 29 2a 52 45  |OR%:.#X=(I-1)*RE|
00003060  43 25 2b 54 49 25 3a e8  23 58 2c 43 24 0d 0d 52  |C%+TI%:.#X,C$..R|
00003070  43 e7 54 59 24 3d 22 37  22 84 54 59 24 3d 22 38  |C.TY$="7".TY$="8|
00003080  22 84 54 59 24 3d 22 30  22 8c 20 4e 4f 3d bb 28  |".TY$="0". NO=.(|
00003090  43 24 29 3a e7 4e 4f 3e  4d 41 58 20 8c 20 4d 41  |C$):.NO>MAX . MA|
000030a0  58 3d 4e 4f 3a 41 52 25  3d 49 3a e5 8d 74 44 4d  |X=NO:AR%=I:..tDM|
000030b0  0d 0d 5c 35 e7 54 59 24  3d 22 35 22 8c 58 24 3d  |..\5.TY$="5".X$=|
000030c0  43 24 3a f2 43 4f 4e 44  49 3a e7 4e 4f 3e 4d 41  |C$:.CONDI:.NO>MA|
000030d0  58 20 8c 4d 41 58 3d 4e  4f 3a 41 52 25 3d 49 3a  |X .MAX=NO:AR%=I:|
000030e0  e5 8d 74 44 4d 0d 0d 66  35 e7 54 59 24 3d 22 36  |..tDM..f5.TY$="6|
000030f0  22 8c 58 24 3d 43 24 3a  f2 43 4f 4e 54 49 3a e7  |".X$=C$:.CONTI:.|
00003100  4e 4f 3e 4d 41 58 20 8c  4d 41 58 3d 4e 4f 3a 41  |NO>MAX .MAX=NO:A|
00003110  52 25 3d 49 3a e5 8d 74  44 4d 0d 0d 70 38 e7 54  |R%=I:..tDM..p8.T|
00003120  59 24 3d 22 31 22 84 54  59 24 3d 22 32 22 84 54  |Y$="1".TY$="2".T|
00003130  59 24 3d 22 33 22 84 54  59 24 3d 22 34 22 84 54  |Y$="3".TY$="4".T|
00003140  59 24 3d 22 39 22 8c e5  8d 44 7a 4d 8b e5 8d 74  |Y$="9"...DzM...t|
00003150  44 4d 0d 0d 7a 20 e7 41  53 4f 25 3c 97 28 43 24  |DM..z .ASO%<.(C$|
00003160  29 8c 41 53 4f 25 3d 97  28 43 24 29 3a 41 52 25  |).ASO%=.(C$):AR%|
00003170  3d 49 0d 0d 84 18 ed 49  3a e7 41 52 25 3d 30 8c  |=I.....I:.AR%=0.|
00003180  53 25 3d 30 3a e5 8d 54  78 44 0d 0d 8e 1c 49 3d  |S%=0:..TxD....I=|
00003190  41 52 25 3a f2 4f 55 54  50 55 54 3a 53 25 3d 31  |AR%:.OUTPUT:S%=1|
000031a0  3a e5 8d 54 78 44 0d 0d  98 0c ed 49 3a e5 8d 54  |:..TxD.....I:..T|
000031b0  78 44 0d 0d a2 2e dd f2  43 4f 4e 56 3a e7 a9 28  |xD......CONV:..(|
000031c0  53 54 4e 24 29 3e 3d 4c  45 25 8c 53 54 4e 24 3d  |STN$)>=LE%.STN$=|
000031d0  c0 53 54 4e 24 2c 4c 45  25 29 3a e5 8d 74 76 4d  |.STN$,LE%):..tvM|
000031e0  0d 0d ac 1f 53 54 4e 24  3d 53 54 4e 24 2b c4 4c  |....STN$=STN$+.L|
000031f0  45 25 2d a9 28 53 54 4e  24 29 2c 22 20 22 29 0d  |E%-.(STN$)," ").|
00003200  0d b6 05 e1 0d 0d c0 31  dd f2 46 43 4f 4e 56 3a  |.......1..FCONV:|
00003210  45 51 25 3d a7 53 54 4e  24 2c 22 20 22 29 3a e7  |EQ%=.STN$," "):.|
00003220  58 3e 30 8c 53 54 4e 24  3d c0 53 54 4e 24 2c 45  |X>0.STN$=.STN$,E|
00003230  51 25 2d 31 29 0d 0d ca  05 e1 0d 0d d4 2c dd f2  |Q%-1)........,..|
00003240  44 45 43 4f 4e 56 3a 45  51 25 3d a7 4e 24 2c bd  |DECONV:EQ%=.N$,.|
00003250  28 32 33 37 29 29 3a 4e  24 3d c0 4e 24 2c 45 51  |(237)):N$=.N$,EQ|
00003260  25 2d 31 29 3a e1 0d 0d  de 0a dd f2 46 43 48 4b  |%-1):.......FCHK|
00003270  0d 0d e8 7e ff 22 43 4c  4f 53 45 22 3a 58 3d ad  |...~."CLOSE":X=.|
00003280  a4 4d 79 46 69 6c 65 28  46 4f 24 29 3a e3 46 3d  |.MyFile(FO$):.F=|
00003290  31 b8 4e 4f 46 25 3a cf  23 58 3d 28 46 2d 31 29  |1.NOF%:.#X=(F-1)|
000032a0  2a 36 31 2b 36 33 3a e8  23 58 2c 46 4c 24 3a e7  |*61+63:.#X,FL$:.|
000032b0  4e 24 3d 46 4c 24 8c cf  23 58 3d 28 46 2d 31 29  |N$=FL$..#X=(F-1)|
000032c0  2a 36 31 2b 31 30 39 3a  e8 23 58 2c 54 49 24 3a  |*61+109:.#X,TI$:|
000032d0  cf 23 58 3d 28 46 2d 31  29 2a 36 31 2b 31 30 31  |.#X=(F-1)*61+101|
000032e0  3a e8 23 58 2c 54 59 24  3a e5 8d 64 7c 4d 0d 0d  |:.#X,TY$:..d|M..|
000032f0  f2 0c ed 46 3a e5 8d 54  74 43 0d 0d fc 05 e1 0d  |...F:..TtC......|
00003300  0e 06 85 db 3a f1 8a 32  2c 32 29 3b 22 43 6f 6d  |....:..2,2);"Com|
00003310  70 61 72 65 20 46 69 65  6c 64 73 20 53 65 61 72  |pare Fields Sear|
00003320  63 68 22 3b 8a 32 2c 33  29 3b c4 32 31 2c bd 28  |ch";.2,3);.21,.(|
00003330  32 34 31 29 29 3b 8a 35  2c 35 29 3b 22 53 65 6c  |241));.5,5);"Sel|
00003340  65 63 74 20 66 69 72 73  74 20 66 69 65 6c 64 3a  |ect first field:|
00003350  22 3a f2 53 45 4c 3a f1  8a 32 35 2c 35 29 3b 46  |":.SEL:..25,5);F|
00003360  4c 24 3a 43 46 25 3d 53  46 25 3a f2 46 4f 50 4f  |L$:CF%=SF%:.FOPO|
00003370  55 54 3a 54 49 31 25 3d  54 49 25 3a 54 59 59 24  |UT:TI1%=TI%:TYY$|
00003380  3d 54 59 24 0d 0e 10 55  f1 8a 35 2c 37 29 3b 22  |=TY$...U..5,7);"|
00003390  53 65 6c 65 63 74 20 4f  70 65 72 61 74 6f 72 3a  |Select Operator:|
000033a0  22 3a e3 46 3d 31 b8 36  3a 4d 45 24 28 46 29 3d  |":.F=1.6:ME$(F)=|
000033b0  4f 24 28 46 29 3a ed 46  3a 58 3d 35 3a 59 3d 39  |O$(F):.F:X=5:Y=9|
000033c0  3a 4c 25 3d 36 3a f2 53  45 4c 45 43 54 3a 4f 50  |:L%=6:.SELECT:OP|
000033d0  24 3d c3 28 53 45 4c 25  29 0d 0e 1a 40 f1 8a 35  |$=.(SEL%)...@..5|
000033e0  2c 31 36 29 3b 22 53 65  6c 65 63 74 20 73 65 63  |,16);"Select sec|
000033f0  6f 6e 64 20 66 69 65 6c  64 3a 22 3a f2 53 45 4c  |ond field:":.SEL|
00003400  3a 43 46 25 3d 53 46 25  3a f2 46 4f 50 4f 55 54  |:CF%=SF%:.FOPOUT|
00003410  3a 54 49 32 25 3d 54 49  25 0d 0e 24 3c e7 54 59  |:TI2%=TI%..$<.TY|
00003420  24 3d 22 31 22 84 54 59  24 3d 22 32 22 84 54 59  |$="1".TY$="2".TY|
00003430  24 3d 22 33 22 84 54 59  24 3d 22 34 22 84 54 59  |$="3".TY$="4".TY|
00003440  24 3d 22 39 22 8c 54 50  24 3d 22 31 22 8b 54 50  |$="9".TP$="1".TP|
00003450  24 3d 22 32 22 0d 0e 2e  23 db 3a f1 53 45 24 3a  |$="2"...#.:.SE$:|
00003460  ff 22 43 4c 4f 53 45 22  3a 58 3d ad a4 4d 79 46  |."CLOSE":X=..MyF|
00003470  69 6c 65 28 46 49 24 29  0d 0e 38 5d e3 49 3d 31  |ile(FI$)..8].I=1|
00003480  b8 4e 4f 52 25 3a cf 23  58 3d 28 49 2d 31 29 2a  |.NOR%:.#X=(I-1)*|
00003490  52 45 43 25 2b 54 49 31  25 3a e8 23 58 2c 43 24  |REC%+TI1%:.#X,C$|
000034a0  3a cf 23 58 3d 28 49 2d  31 29 2a 52 45 43 25 2b  |:.#X=(I-1)*REC%+|
000034b0  54 49 32 25 3a e8 23 58  2c 4e 24 3a 4e 3d bb 28  |TI2%:.#X,N$:N=.(|
000034c0  4e 24 29 3a 4e 4f 3d bb  28 43 24 29 3a f2 43 4f  |N$):NO=.(C$):.CO|
000034d0  4d 50 41 52 45 0d 0e 42  13 e7 43 4f 4d 25 3d 31  |MPARE..B..COM%=1|
000034e0  8c f2 4f 55 54 50 55 54  0d 0e 4c 0c ed 49 3a e5  |..OUTPUT..L..I:.|
000034f0  8d 54 78 44 0d 0e 56 70  db 3a 58 3d 32 3a 59 3d  |.TxD..Vp.:X=2:Y=|
00003500  32 3a 57 25 3d 31 39 3a  4c 25 3d 33 3a f2 4c 57  |2:W%=19:L%=3:.LW|
00003510  4e 3a 4d 45 24 28 31 29  3d 22 41 64 2d 48 6f 63  |N:ME$(1)="Ad-Hoc|
00003520  20 51 75 65 72 79 22 3a  4d 45 24 28 32 29 3d 22  | Query":ME$(2)="|
00003530  51 75 65 72 79 2d 42 79  2d 45 78 61 6d 70 6c 65  |Query-By-Example|
00003540  22 3a 4d 45 24 28 33 29  3d 22 51 75 69 74 22 3a  |":ME$(3)="Quit":|
00003550  58 3d 33 3a 59 3d 33 3a  4c 25 3d 33 3a f2 53 45  |X=3:Y=3:L%=3:.SE|
00003560  4c 45 43 54 0d 0e 60 11  e7 53 45 4c 25 3d 33 8c  |LECT..`..SEL%=3.|
00003570  e5 8d 54 74 43 0d 0e 6a  13 e7 53 45 4c 25 3d 31  |..TtC..j..SEL%=1|
00003580  8c db 3a e5 8d 74 48 4e  0d 0e 74 13 e7 53 45 4c  |..:..tHN..t..SEL|
00003590  25 3d 32 8c db 3a e5 8d  64 44 4e 0d 0e 7e 09 e5  |%=2..:..dDN..~..|
000035a0  8d 44 60 4e 0d 0e 88 66  58 3d 31 30 3a 59 3d 31  |.D`N...fX=10:Y=1|
000035b0  30 3a 57 25 3d 32 37 3a  4c 25 3d 32 3a f2 4c 57  |0:W%=27:L%=2:.LW|
000035c0  4e 3a f1 8a 31 31 2c 31  31 29 3b 22 4c 6f 61 64  |N:..11,11);"Load|
000035d0  20 51 75 65 72 79 3a 22  3b 8a 31 31 2c 31 32 29  | Query:";.11,12)|
000035e0  3b 22 45 6e 74 65 72 20  66 69 6c 65 6e 61 6d 65  |;"Enter filename|
000035f0  3a 22 3a 58 32 3d 32 36  3a 59 32 3d 31 32 3a 49  |:":X2=26:Y2=12:I|
00003600  4e 25 3d 31 30 3a f2 54  59 31 0d 0e 92 0b ee 85  |N%=10:.TY1......|
00003610  e5 8d 74 5e 42 0d 0e 9c  59 ff 22 43 4c 4f 53 45  |..t^B...Y."CLOSE|
00003620  22 3a 58 3d ad a4 4d 79  46 69 6c 65 28 22 3c 44  |":X=..MyFile("<D|
00003630  61 74 61 56 69 73 69 6f  6e 24 44 69 72 3e 2e 22  |ataVision$Dir>."|
00003640  2b 4e 24 29 3a e3 4c 3d  30 b8 34 3a e8 23 58 2c  |+N$):.L=0.4:.#X,|
00003650  51 24 28 30 2c 4c 29 3a  ed 4c 3a e7 51 24 28 30  |Q$(0,L):.L:.Q$(0|
00003660  2c 31 29 3c 3e 46 49 24  8c e5 8d 74 5e 42 0d 0e  |,1)<>FI$...t^B..|
00003670  a6 0b ee 85 e5 8d 44 5e  50 0d 0e b0 35 54 25 3d  |......D^P...5T%=|
00003680  bb 28 51 24 28 30 2c 30  29 29 3a 4d 43 24 3d 51  |.(Q$(0,0)):MC$=Q|
00003690  24 28 30 2c 32 29 3a e7  51 24 28 30 2c 33 29 3c  |$(0,2):.Q$(0,3)<|
000036a0  3e 22 41 44 48 4f 43 22  8c e5 8d 74 5e 42 0d 0e  |>"ADHOC"...t^B..|
000036b0  ba 37 e3 49 3d 31 b8 54  25 3a e3 46 3d 30 b8 34  |.7.I=1.T%:.F=0.4|
000036c0  3a e8 23 58 2c 51 24 28  49 2c 46 29 3a ed 46 3a  |:.#X,Q$(I,F):.F:|
000036d0  ed 49 3a f2 43 45 50 54  3a 4c 4f 44 25 3d 31 3a  |.I:.CEPT:LOD%=1:|
000036e0  e5 8d 74 74 4a 0d 0e c4  64 58 3d 31 30 3a 59 3d  |..ttJ...dX=10:Y=|
000036f0  31 30 3a 57 25 3d 32 37  3a 4c 25 3d 32 3a f2 4c  |10:W%=27:L%=2:.L|
00003700  57 4e 3a f1 8a 31 31 2c  31 31 29 3b 22 4c 6f 61  |WN:..11,11);"Loa|
00003710  64 20 51 42 45 3a 22 3b  8a 31 31 2c 31 32 29 3b  |d QBE:";.11,12);|
00003720  22 45 6e 74 65 72 20 66  69 6c 65 6e 61 6d 65 3a  |"Enter filename:|
00003730  22 3a 58 32 3d 32 36 3a  59 32 3d 31 32 3a 49 4e  |":X2=26:Y2=12:IN|
00003740  25 3d 31 30 3a f2 54 59  31 0d 0e ce 0b ee 85 e5  |%=10:.TY1.......|
00003750  8d 74 5e 42 0d 0e d8 49  ff 22 43 4c 4f 53 45 22  |.t^B...I."CLOSE"|
00003760  3a 58 3d ad a4 4d 79 46  69 6c 65 28 4e 24 29 3a  |:X=..MyFile(N$):|
00003770  e3 4c 3d 30 b8 32 3a e8  23 58 2c 51 42 45 24 28  |.L=0.2:.#X,QBE$(|
00003780  30 2c 4c 29 3a ed 4c 3a  e7 51 42 45 24 28 30 2c  |0,L):.L:.QBE$(0,|
00003790  31 29 3c 3e 46 49 24 8c  e5 8d 74 5e 42 0d 0e e2  |1)<>FI$...t^B...|
000037a0  0b ee 85 e5 8d 44 5e 50  0d 0e ec 35 51 42 42 25  |.....D^P...5QBB%|
000037b0  3d bb 28 51 42 45 24 28  30 2c 30 29 29 3a 54 59  |=.(QBE$(0,0)):TY|
000037c0  24 3d 22 31 22 3a e7 51  42 45 24 28 30 2c 32 29  |$="1":.QBE$(0,2)|
000037d0  3c 3e 22 51 42 45 22 8c  e5 8d 74 5e 42 0d 0e f6  |<>"QBE"...t^B...|
000037e0  45 e3 49 3d 31 b8 51 42  42 25 3a e3 46 3d 30 b8  |E.I=1.QBB%:.F=0.|
000037f0  32 3a e8 23 58 2c 51 42  45 24 28 49 2c 46 29 3a  |2:.#X,QBE$(I,F):|
00003800  ed 46 3a ed 49 3a 53 55  42 25 3d 41 28 33 29 3a  |.F:.I:SUB%=A(3):|
00003810  41 28 33 29 3d 30 3a f2  43 45 50 54 3a e5 8d 44  |A(3)=0:.CEPT:..D|
00003820  76 47 0d 0f 00 09 e5 8d  54 46 49 0d 0f 0a 0d dd  |vG......TFI.....|
00003830  f2 49 4e 44 45 58 3a e1  0d 0f 14 12 e7 53 4f 24  |.INDEX:......SO$|
00003840  3d 22 32 22 8c e5 8d 64  42 4b 0d 0f 1e 17 e7 43  |="2"...dBK.....C|
00003850  46 25 3c 3e bb 28 53 4f  4c 24 29 8c e5 8d 64 72  |F%<>.(SOL$)...dr|
00003860  43 0d 0f 28 12 e7 54 59  24 3d 22 35 22 8c e5 8d  |C..(..TY$="5"...|
00003870  44 64 4f 0d 0f 32 12 e7  54 59 24 3d 22 36 22 8c  |DdO..2..TY$="6".|
00003880  e5 8d 44 78 4f 0d 0f 3c  22 e7 54 59 24 3d 22 37  |..DxO..<".TY$="7|
00003890  22 84 54 59 24 3d 22 38  22 84 54 59 24 3d 22 30  |".TY$="8".TY$="0|
000038a0  22 8c e5 8d 54 5a 44 0d  0f 46 26 41 53 25 3d 97  |"...TZD..F&AS%=.|
000038b0  28 c0 4e 24 2c 31 29 29  3a e7 41 53 25 3c 36 35  |(.N$,1)):.AS%<65|
000038c0  84 41 53 25 3e 39 30 8c  e5 8d 64 72 43 0d 0f 50  |.AS%>90...drC..P|
000038d0  58 ff 22 43 4c 4f 53 45  22 3a 54 41 24 3d 46 49  |X."CLOSE":TA$=FI|
000038e0  24 2b 22 44 22 3a 58 3d  ad a4 4d 79 46 69 6c 65  |$+"D":X=..MyFile|
000038f0  28 54 41 24 29 3a 41 53  25 3d 41 53 25 2d 36 34  |(TA$):AS%=AS%-64|
00003900  3a cf 23 58 3d 28 41 53  25 2d 31 29 2a 31 30 3a  |:.#X=(AS%-1)*10:|
00003910  e8 23 58 2c 53 52 24 3a  e7 53 52 24 3d 22 22 8c  |.#X,SR$:.SR$="".|
00003920  e5 8d 54 78 44 0d 0f 5a  2f 53 52 25 3d bb 28 53  |..TxD..Z/SR%=.(S|
00003930  52 24 29 3a 4c 49 4e 25  3d 31 3a 4c 49 4e 24 3d  |R$):LIN%=1:LIN$=|
00003940  c0 4e 24 2c 31 29 3a 54  4c 24 3d 22 31 22 3a e5  |.N$,1):TL$="1":.|
00003950  8d 64 7c 43 0d 0f 64 5d  41 53 25 3d bb 28 c1 4e  |.d|C..d]AS%=.(.N|
00003960  24 2c 37 2c 32 29 29 3a  ff 22 43 4c 4f 53 45 22  |$,7,2)):."CLOSE"|
00003970  3a 54 41 24 3d 46 49 24  2b 22 44 22 3a 58 3d ad  |:TA$=FI$+"D":X=.|
00003980  a4 4d 79 46 69 6c 65 28  54 41 24 29 3a cf 23 58  |.MyFile(TA$):.#X|
00003990  3d 28 41 53 25 2d 31 29  2a 31 30 3a e8 23 58 2c  |=(AS%-1)*10:.#X,|
000039a0  53 52 24 3a e7 53 52 24  3d 22 22 8c e5 8d 54 78  |SR$:.SR$=""...Tx|
000039b0  44 0d 0f 6e 31 53 52 25  3d bb 28 53 52 24 29 3a  |D..n1SR%=.(SR$):|
000039c0  4c 49 4e 25 3d 31 3a 4c  49 4e 24 3d c1 4e 24 2c  |LIN%=1:LIN$=.N$,|
000039d0  37 2c 32 29 3a 54 4c 24  3d 22 32 22 3a e5 8d 64  |7,2):TL$="2":..d|
000039e0  7c 43 0d 0f 78 5d 41 53  25 3d bb 28 c1 4e 24 2c  ||C..x]AS%=.(.N$,|
000039f0  31 2c 32 29 29 3a ff 22  43 4c 4f 53 45 22 3a 54  |1,2)):."CLOSE":T|
00003a00  41 24 3d 46 49 24 2b 22  44 22 3a 58 3d ad a4 4d  |A$=FI$+"D":X=..M|
00003a10  79 46 69 6c 65 28 54 41  24 29 3a cf 23 58 3d 28  |yFile(TA$):.#X=(|
00003a20  41 53 25 2d 31 29 2a 31  30 3a e8 23 58 2c 53 52  |AS%-1)*10:.#X,SR|
00003a30  24 3a e7 53 52 24 3d 22  22 8c e5 8d 54 78 44 0d  |$:.SR$=""...TxD.|
00003a40  0f 82 31 53 52 25 3d bb  28 53 52 24 29 3a 4c 49  |..1SR%=.(SR$):LI|
00003a50  4e 25 3d 31 3a 4c 49 4e  24 3d c1 4e 24 2c 31 2c  |N%=1:LIN$=.N$,1,|
00003a60  32 29 3a 54 4c 24 3d 22  33 22 3a e5 8d 64 7c 43  |2):TL$="3":..d|C|
00003a70  0d 0f 8c 20 dd f2 45 4a  45 43 54 3a e7 53 54 4c  |... ..EJECT:.STL|
00003a80  25 3d 32 84 53 54 4c 25  3d 34 8c ef 31 2c 31 32  |%=2.STL%=4..1,12|
00003a90  0d 0f 96 05 e1 0d 0f a0  36 dd f2 53 45 4c 45 43  |........6..SELEC|
00003aa0  54 3a 45 44 25 3d 59 2b  28 4c 25 2d 31 29 3a 42  |T:ED%=Y+(L%-1):B|
00003ab0  47 25 3d 58 2b 28 57 25  2d 31 29 3a 53 53 45 4c  |G%=X+(W%-1):SSEL|
00003ac0  25 3d 31 3a 2a 46 58 31  35 2c 30 0d 0f aa 3e e3  |%=1:*FX15,0...>.|
00003ad0  49 3d 31 b8 4c 25 3a f1  8a 58 2c 59 2b 28 49 2d  |I=1.L%:..X,Y+(I-|
00003ae0  31 29 29 3b 22 20 20 22  3b 4d 45 24 28 49 29 3b  |1));"  ";ME$(I);|
00003af0  c4 28 57 25 2d 32 29 2d  a9 28 4d 45 24 28 49 29  |.(W%-2)-.(ME$(I)|
00003b00  29 2c 22 20 22 29 3a ed  49 0d 0f b4 2b c8 97 20  |)," "):.I...+.. |
00003b10  58 50 2c 59 50 2c 42 55  54 3a 58 50 3d a8 28 58  |XP,YP,BUT:XP=.(X|
00003b20  50 2f 31 36 29 3a 59 50  3d 33 31 2d a8 28 59 50  |P/16):YP=31-.(YP|
00003b30  2f 33 32 29 0d 0f be 22  e7 20 58 50 3d 35 31 20  |/32)...". XP=51 |
00003b40  80 20 59 50 3d 32 31 20  80 20 42 55 54 3d 34 20  |. YP=21 . BUT=4 |
00003b50  8c e5 8d 54 44 50 0d 0f  c8 18 e7 59 50 3c 59 20  |...TDP.....YP<Y |
00003b60  84 20 59 50 3e 45 44 25  8c e5 8d 74 6a 4f 0d 0f  |. YP>ED%...tjO..|
00003b70  d2 18 e7 58 50 3c 58 20  84 20 58 50 3e 42 47 25  |...XP<X . XP>BG%|
00003b80  8c e5 8d 74 6a 4f 0d 0f  dc 72 53 45 4c 25 3d 28  |...tjO...rSEL%=(|
00003b90  59 50 2d 59 29 2b 31 3a  f2 43 4c 45 41 3a fb 20  |YP-Y)+1:.CLEA:. |
00003ba0  31 33 31 3a fb 31 32 37  3a f1 8a 58 2c 59 50 29  |131:.127:..X,YP)|
00003bb0  3b 22 20 20 22 3b 4d 45  24 28 53 45 4c 25 29 3b  |;"  ";ME$(SEL%);|
00003bc0  c4 28 57 25 2d 32 29 2d  a9 28 4d 45 24 28 53 45  |.(W%-2)-.(ME$(SE|
00003bd0  4c 25 29 29 2c 22 20 22  29 3a fb 20 46 47 25 3a  |L%))," "):. FG%:|
00003be0  fb 31 32 37 3a e7 42 55  54 3d 34 8c e5 8d 64 66  |.127:.BUT=4...df|
00003bf0  4f 3a 8b e5 8d 74 74 4f  0d 0f e6 08 ef 37 3a e1  |O:...ttO.....7:.|
00003c00  0d 0f f0 52 dd f2 43 4c  45 41 3a e7 53 53 45 4c  |...R..CLEA:.SSEL|
00003c10  25 3c 3e 53 45 4c 25 8c  e3 49 3d 31 b8 4c 25 3a  |%<>SEL%..I=1.L%:|
00003c20  f1 8a 58 2c 59 2b 28 49  2d 31 29 29 3b 22 20 20  |..X,Y+(I-1));"  |
00003c30  22 3b 4d 45 24 28 49 29  3b c4 28 57 25 2d 32 29  |";ME$(I);.(W%-2)|
00003c40  2d a9 28 4d 45 24 28 49  29 29 2c 22 20 22 29 3a  |-.(ME$(I))," "):|
00003c50  ed 49 0d 0f fa 10 53 53  45 4c 25 3d 53 45 4c 25  |.I....SSEL%=SEL%|
00003c60  3a e1 0d 10 04 1e 41 28  32 29 3d 41 28 32 29 2b  |:.....A(2)=A(2)+|
00003c70  31 3a e7 41 28 32 29 3e  31 8c 41 28 32 29 3d 30  |1:.A(2)>1.A(2)=0|
00003c80  0d 10 0e 22 f5 3a c8 97  20 55 2c 55 2c 42 55 54  |...".:.. U,U,BUT|
00003c90  3a fd 42 55 54 3d 30 3a  f2 4f 55 54 3a e5 8d 74  |:.BUT=0:.OUT:..t|
00003ca0  74 4f 0d 10 18 05 fa 0d  10 22 05 20 0d 10 2c 05  |tO.......". ..,.|
00003cb0  20 0d 10 36 05 20 0d 10  40 05 20 0d 10 4a 09 20  | ..6. ..@. ..J. |
00003cc0  d9 20 23 30 0d 10 54 0a  20 f2 51 75 69 74 0d 10  |. #0..T. .Quit..|
00003cd0  5e 19 ef 32 36 3a d9 20  23 30 3a e7 9f 3d 31 37  |^..26:. #0:..=17|
00003ce0  8c 20 f2 51 75 69 74 0d  10 68 10 e7 67 6f 25 3d  |. .Quit..h..go%=|
00003cf0  30 8c e5 8d 74 50 50 0d  10 72 0b 46 47 25 3d 31  |0...tPP..r.FG%=1|
00003d00  38 30 0d 10 7c 52 f2 45  52 57 49 4e 3a fb 31 38  |80..|R.ERWIN:.18|
00003d10  30 3a f1 8a 32 30 2c 31  32 29 3b 22 53 79 73 74  |0:..20,12);"Syst|
00003d20  65 6d 20 52 65 70 6f 72  74 65 64 20 45 72 72 6f  |em Reported Erro|
00003d30  72 20 23 22 3b 9f 3b 22  3a 22 3b 8a 32 30 2c 31  |r #";.;":";.20,1|
00003d40  34 29 3b f6 24 3a ef 37  3a fb 46 47 25 3a f2 4d  |4);.$:.7:.FG%:.M|
00003d50  4b 4c 49 4b 0d 10 86 19  ff 22 43 4c 4f 53 45 22  |KLIK....."CLOSE"|
00003d60  3a ef 33 3a ef 32 36 3a  e5 8d 54 74 43 0d 10 90  |:.3:.26:..TtC...|
00003d70  7b f2 45 52 57 49 4e 3a  fb 31 38 30 3a f1 8a 32  |{.ERWIN:.180:..2|
00003d80  30 2c 31 32 29 3b 22 43  61 6e 6e 6f 74 20 72 65  |0,12);"Cannot re|
00003d90  61 64 20 74 68 65 20 66  69 6c 65 20 3a 22 3b 46  |ad the file :";F|
00003da0  49 24 3b 8a 32 30 2c 31  34 29 3b 22 28 64 6f 65  |I$;.20,14);"(doe|
00003db0  73 20 6e 6f 74 20 65 78  69 73 74 2f 6e 6f 74 20  |s not exist/not |
00003dc0  61 20 44 61 74 61 56 69  73 69 6f 6e 20 66 69 6c  |a DataVision fil|
00003dd0  65 29 22 3a fb 46 47 25  3a ef 37 3a f2 4d 4b 4c  |e)":.FG%:.7:.MKL|
00003de0  49 4b 3a e5 8d 54 62 50  0d 10 9a 11 dd f2 53 45  |IK:..TbP......SE|
00003df0  4c 3a 2a 46 58 31 35 2c  30 0d 10 a4 6f fb 31 32  |L:*FX15,0...o.12|
00003e00  38 3a 46 47 25 3d 31 32  38 3a 58 3d 35 30 3a 59  |8:FG%=128:X=50:Y|
00003e10  3d 32 3a 57 25 3d 32 31  3a 4c 25 3d 32 33 3a f2  |=2:W%=21:L%=23:.|
00003e20  4c 57 4e 3a fb 46 47 25  3a f1 8a 35 31 2c 33 29  |LWN:.FG%:..51,3)|
00003e30  3b 22 53 65 6c 65 63 74  20 61 20 46 69 65 6c 64  |;"Select a Field|
00003e40  3a 20 22 3b bd 28 31 33  38 29 3b 22 20 22 3b bd  |: ";.(138);" ";.|
00003e50  28 31 33 39 29 3b 8a 35  31 2c 34 29 3b c4 32 31  |(139);.51,4);.21|
00003e60  2c bd 28 32 34 31 29 29  0d 10 ae 36 53 53 46 25  |,.(241))...6SSF%|
00003e70  3d 31 3a 53 46 25 3d 31  3a 59 32 3d 36 3a 53 52  |=1:SF%=1:Y2=6:SR|
00003e80  25 3d 53 46 25 3a ff 22  43 4c 4f 53 45 22 3a 41  |%=SF%:."CLOSE":A|
00003e90  3d ad a4 4d 79 46 69 6c  65 28 46 4f 24 29 0d 10  |=..MyFile(FO$)..|
00003ea0  b8 21 46 52 25 3d 53 52  25 2b 31 39 3a e7 46 52  |.!FR%=SR%+19:.FR|
00003eb0  25 3e 4e 4f 46 25 8c 46  52 25 3d 4e 4f 46 25 0d  |%>NOF%.FR%=NOF%.|
00003ec0  10 c2 7b 4c 3d 36 3a 4c  4c 3d 31 3a e3 49 3d 53  |..{L=6:LL=1:.I=S|
00003ed0  52 25 b8 46 52 25 3a cf  23 41 3d 28 49 2d 31 29  |R%.FR%:.#A=(I-1)|
00003ee0  2a 36 31 2b 36 33 3a e8  23 41 2c 46 4c 24 3a f1  |*61+63:.#A,FL$:.|
00003ef0  8a 35 32 2c 4c 29 3b 46  4c 24 3a 4d 45 24 28 4c  |.52,L);FL$:ME$(L|
00003f00  4c 29 3d 46 4c 24 3a 4c  3d 4c 2b 31 3a 4c 4c 3d  |L)=FL$:L=L+1:LL=|
00003f10  4c 4c 2b 31 3a ed 49 3a  e7 20 4c 4c 3c 32 31 20  |LL+1:.I:. LL<21 |
00003f20  8c 20 e3 20 49 3d 4c 4c  20 b8 32 30 3a 4d 45 24  |. . I=LL .20:ME$|
00003f30  28 49 29 3d 22 20 22 3a  ed 49 0d 10 cc 2b c8 97  |(I)=" ":.I...+..|
00003f40  20 58 50 2c 59 50 2c 42  55 54 3a 58 50 3d a8 28  | XP,YP,BUT:XP=.(|
00003f50  58 50 2f 31 36 29 3a 59  50 3d 33 31 2d a8 28 59  |XP/16):YP=31-.(Y|
00003f60  50 2f 33 32 29 0d 10 d6  20 e7 58 50 3d 36 37 20  |P/32)... .XP=67 |
00003f70  80 20 59 50 3d 33 20 80  20 42 55 54 3d 34 20 8c  |. YP=3 . BUT=4 .|
00003f80  e5 8d 64 7e 50 0d 10 e0  20 e7 58 50 3d 36 39 20  |..d~P... .XP=69 |
00003f90  80 20 59 50 3d 33 20 80  20 42 55 54 3d 34 20 8c  |. YP=3 . BUT=4 .|
00003fa0  e5 8d 54 52 51 0d 10 ea  40 e7 20 58 50 3e 37 31  |..TRQ...@. XP>71|
00003fb0  20 84 20 58 50 3c 35 31  20 84 20 59 50 3e 32 35  | . XP<51 . YP>25|
00003fc0  20 84 20 59 50 3c 36 20  8c 53 53 46 25 3d 30 3a  | . YP<6 .SSF%=0:|
00003fd0  f2 43 4c 45 41 46 3a 53  53 46 25 3d 53 46 25 3a  |.CLEAF:SSF%=SF%:|
00003fe0  e5 8d 64 4c 50 0d 10 f4  72 59 50 3d 59 50 2d 35  |..dLP...rYP=YP-5|
00003ff0  3a 53 46 25 3d 28 59 50  2b 53 52 25 29 2d 31 3a  |:SF%=(YP+SR%)-1:|
00004000  f2 43 4c 45 41 46 3a fb  31 33 31 3a f1 8a 35 32  |.CLEAF:.131:..52|
00004010  2c 59 50 2b 35 29 3b 4d  45 24 28 59 50 29 3b 89  |,YP+5);ME$(YP);.|
00004020  28 32 30 2d a9 28 4d 45  24 28 59 50 29 29 29 3a  |(20-.(ME$(YP))):|
00004030  fb 46 47 25 3a e7 42 55  54 3d 34 20 80 20 53 46  |.FG%:.BUT=4 . SF|
00004040  25 3c 28 4e 4f 46 25 2b  31 29 8c e5 8d 54 66 51  |%<(NOF%+1)...TfQ|
00004050  3a 8b e5 8d 64 4c 50 0d  10 fe 13 e7 46 52 25 3d  |:...dLP.....FR%=|
00004060  4e 4f 46 25 8c e5 8d 64  4c 50 0d 11 08 6e 53 52  |NOF%...dLP...nSR|
00004070  25 3d 53 52 25 2b 32 30  3a 58 3d 35 30 3a 59 3d  |%=SR%+20:X=50:Y=|
00004080  32 3a 57 25 3d 32 31 3a  4c 25 3d 32 33 3a f2 4c  |2:W%=21:L%=23:.L|
00004090  57 4e 3a f1 8a 35 31 2c  33 29 3b 22 53 65 6c 65  |WN:..51,3);"Sele|
000040a0  63 74 20 61 20 46 69 65  6c 64 3a 20 22 3b bd 28  |ct a Field: ";.(|
000040b0  31 33 38 29 3b 22 20 22  3b bd 28 31 33 39 29 3b  |138);" ";.(139);|
000040c0  8a 35 31 2c 34 29 3b c4  32 31 2c bd 28 32 34 31  |.51,4);.21,.(241|
000040d0  29 29 3a e5 8d 74 78 50  0d 11 12 10 e7 53 52 25  |)):..txP.....SR%|
000040e0  3d 31 8c e5 8d 64 4c 50  0d 11 1c 6e 53 52 25 3d  |=1...dLP...nSR%=|
000040f0  53 52 25 2d 32 30 3a 58  3d 35 30 3a 59 3d 32 3a  |SR%-20:X=50:Y=2:|
00004100  57 25 3d 32 31 3a 4c 25  3d 32 33 3a f2 4c 57 4e  |W%=21:L%=23:.LWN|
00004110  3a f1 8a 35 31 2c 33 29  3b 22 53 65 6c 65 63 74  |:..51,3);"Select|
00004120  20 61 20 46 69 65 6c 64  3a 20 22 3b bd 28 31 33  | a Field: ";.(13|
00004130  38 29 3b 22 20 22 3b bd  28 31 33 39 29 3b 8a 35  |8);" ";.(139);.5|
00004140  31 2c 34 29 3b c4 32 31  2c bd 28 32 34 31 29 29  |1,4);.21,.(241))|
00004150  3a e5 8d 74 78 50 0d 11  26 65 ef 37 3a cf 23 41  |:..txP..&e.7:.#A|
00004160  3d 28 53 46 25 2d 31 29  2a 36 31 2b 36 33 3a e8  |=(SF%-1)*61+63:.|
00004170  23 41 2c 46 4c 24 3a cf  23 41 3d 28 53 46 25 2d  |#A,FL$:.#A=(SF%-|
00004180  31 29 2a 36 31 2b 31 30  31 3a e8 23 41 2c 54 59  |1)*61+101:.#A,TY|
00004190  24 3a cf 23 41 3d 28 53  46 25 2d 31 29 2a 36 31  |$:.#A=(SF%-1)*61|
000041a0  2b 31 31 37 3a e8 23 41  2c 54 52 24 3a fb 31 38  |+117:.#A,TR$:.18|
000041b0  30 3a 46 47 25 3d 31 38  30 3a e1 0d 11 30 42 dd  |0:FG%=180:...0B.|
000041c0  f2 43 4c 45 41 46 3a e7  53 53 46 25 3c 3e 53 46  |.CLEAF:.SSF%<>SF|
000041d0  25 8c e3 49 3d 31 b8 32  30 3a f1 8a 35 32 2c 49  |%..I=1.20:..52,I|
000041e0  2b 35 29 3b 4d 45 24 28  49 29 3b 89 28 32 30 2d  |+5);ME$(I);.(20-|
000041f0  a9 28 4d 45 24 28 49 29  29 29 3a ed 49 0d 11 3a  |.(ME$(I))):.I..:|
00004200  0e 53 53 46 25 3d 53 46  25 3a e1 0d 11 44 2c dd  |.SSF%=SF%:...D,.|
00004210  f2 59 4e 3a 78 70 3d b1  3a 79 70 3d bc 3a f1 22  |.YN:xp=.:yp=.:."|
00004220  20 22 3b 3a fb 31 33 31  3a f1 22 59 45 53 2f 4e  | ";:.131:."YES/N|
00004230  4f 22 3a fb 46 47 25 0d  11 4e 38 c8 97 20 58 50  |O":.FG%..N8.. XP|
00004240  2c 59 50 2c 42 55 54 3a  58 50 3d a8 28 58 50 2f  |,YP,BUT:XP=.(XP/|
00004250  31 36 29 3a 59 50 3d 33  31 2d a8 28 59 50 2f 33  |16):YP=31-.(YP/3|
00004260  32 29 3a e7 42 55 54 3d  30 8c e5 8d 44 4e 51 0d  |2):.BUT=0...DNQ.|
00004270  11 58 12 e7 59 50 3c 3e  79 70 20 8c e5 8d 44 4e  |.X..YP<>yp ...DN|
00004280  51 0d 11 62 2b e7 58 50  3d 78 70 2b 31 20 84 20  |Q..b+.XP=xp+1 . |
00004290  58 50 3d 78 70 2b 32 20  84 20 58 50 3d 78 70 2b  |XP=xp+2 . XP=xp+|
000042a0  33 8c 59 4e 3d 31 3a e5  8d 74 40 51 0d 11 6c 22  |3.YN=1:..t@Q..l"|
000042b0  e7 58 50 3d 78 70 2b 35  20 84 20 58 50 3d 78 70  |.XP=xp+5 . XP=xp|
000042c0  2b 36 20 8c 59 4e 3d 30  3a e5 8d 74 40 51 0d 11  |+6 .YN=0:..t@Q..|
000042d0  76 09 e5 8d 44 4e 51 0d  11 80 1b f1 8a 78 70 2c  |v...DNQ......xp,|
000042e0  79 70 29 3b 22 20 59 45  53 2f 4e 4f 22 3a ef 37  |yp);" YES/NO":.7|
000042f0  3a e1 0d 11 8a 0a dd f2  46 50 4e 54 0d 11 94 35  |:.......FPNT...5|
00004300  49 4e 4e 25 3d a9 28 54  24 29 3a 4c 45 25 3d 38  |INN%=.(T$):LE%=8|
00004310  30 2d 58 35 3a e7 49 4e  4e 25 3c 3d 4c 45 25 8c  |0-X5:.INN%<=LE%.|
00004320  f1 8a 58 35 2c 59 35 29  3b 54 24 3a e5 8d 74 68  |..X5,Y5);T$:..th|
00004330  51 0d 11 9e 72 4e 4c 44  25 3d 49 4e 4e 25 20 81  |Q...rNLD%=INN% .|
00004340  20 4c 45 25 3a 4c 42 25  3d 49 4e 4e 25 20 83 20  | LE%:LB%=INN% . |
00004350  4c 45 25 3a e3 4a 25 3d  31 b8 4e 4c 44 25 3a f1  |LE%:.J%=1.NLD%:.|
00004360  8a 58 35 2c 59 35 2b 28  4a 25 2d 31 29 29 3b c1  |.X5,Y5+(J%-1));.|
00004370  54 24 2c 28 28 4a 25 2d  31 29 2a 4c 45 25 29 2b  |T$,((J%-1)*LE%)+|
00004380  31 2c 4c 45 25 29 3a ed  4a 25 3a f1 8a 58 35 2c  |1,LE%):.J%:..X5,|
00004390  59 35 2b 28 4a 25 2d 31  29 29 3b c2 54 24 2c 4c  |Y5+(J%-1));.T$,L|
000043a0  42 25 29 0d 11 a8 05 e1  0d 11 b2 36 dd f2 46 50  |B%)........6..FP|
000043b0  52 49 4e 54 3a 4c 45 25  3d 38 30 2d 58 35 3a e7  |RINT:LE%=80-X5:.|
000043c0  49 4e 25 3c 3d 4c 45 25  8c f1 8a 58 35 2c 59 35  |IN%<=LE%...X5,Y5|
000043d0  29 3b 89 28 49 4e 25 29  3a e5 8d 64 46 51 0d 11  |);.(IN%):..dFQ..|
000043e0  bc 5d 4e 4c 44 25 3d 49  4e 25 20 81 20 4c 45 25  |.]NLD%=IN% . LE%|
000043f0  3a 4c 42 25 3d 49 4e 25  20 83 20 4c 45 25 3a e3  |:LB%=IN% . LE%:.|
00004400  4a 25 3d 31 b8 4e 4c 44  25 3a f1 8a 58 35 2c 59  |J%=1.NLD%:..X5,Y|
00004410  35 2b 28 4a 25 2d 31 29  29 3b 89 28 4c 45 25 29  |5+(J%-1));.(LE%)|
00004420  3a ed 4a 25 3a f1 8a 58  35 2c 59 35 2b 28 4a 25  |:.J%:..X5,Y5+(J%|
00004430  2d 31 29 29 3b 89 28 4c  42 25 29 0d 11 c6 05 e1  |-1));.(LB%).....|
00004440  0d 11 d0 13 dd a4 4d 79  46 69 6c 65 28 66 69 6c  |......MyFile(fil|
00004450  65 24 29 0d 11 da 0a 3d  66 69 6c 65 24 0d 11 e4  |e$)....=file$...|
00004460  0b dd 20 f2 51 75 69 74  0d 11 ee 1e c8 99 20 22  |.. .Quit...... "|
00004470  57 69 6d 70 5f 43 6f 6d  6d 61 6e 64 57 69 6e 64  |Wimp_CommandWind|
00004480  6f 77 22 2c 2d 31 0d 11  f8 06 c8 98 0d 12 02 05  |ow",-1..........|
00004490  e1 0d 9c 40 0d dd f2 44  69 72 28 64 24 29 0d 9c  |...@...Dir(d$)..|
000044a0  4a 29 e7 20 64 24 20 3c  3e 20 22 22 20 8c 20 ff  |J). d$ <> "" . .|
000044b0  20 22 44 69 72 20 22 2b  a4 4d 79 46 69 6c 65 28  | "Dir "+.MyFile(|
000044c0  c1 64 24 2c 32 29 29 0d  9c 54 05 e1 0d ff        |.d$,2))..T....|
000044ce