� > $.!DataVis.!dv5
ș"Wimp_CommandWindow",-1
� 15:� 180:�
>� : � 1,"Not enough memory to start the WordProcessor"
(ml%=�-�:nol%=�(ml%/70)-2000
2$ȗ�:�:FG%=180:go%=1:WW%=1:INS%=1
<1�Q$(10,7):�P$(6):QF%=0:PM%=0:MAIL%=0:*FX225,1
Fu�"FX219,9":�"FX226,140":�"FX227,150":�"FX228,160":�ME$(15):�TS%(11):�I=1�11:TS%(I)=I*6:�I:�"FX222,240":*FX223,200
PG�:�DO$(nol%):DOC$="no file":B$=�80," "):�A(5):TL%=0:DO$(1)=�70," ")
U��t\N
Ze�"CLOSE":X=��MyFile("NIM"):�#X,FI$,ST$,DA$,DR$,ZZ$,MD$:�"CLOSE":FO$=FI$+"A":ST$="1":ZB$=ST$:�TjC
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:�D`N
�7�ST$="2"�:TA$=FI$+"N":X=��MyFile(TA$):�#X,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%:�
�u�#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$
��(SO$)>0�SO$="1"
��NOR%=0��tB@
�go%=1:�
���FOPOUT
�.�"CLOSE":X=��MyFile(FO$):POI=(CF%-1)*61+63
��#X=POI:�#X,FL$
� �#X=POI+22:�#X,ZZ$:X1=�(ZZ$)
� �#X=POI+26:�#X,ZZ$:Y1=�(ZZ$)

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

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

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

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

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

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

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

J�

T	��LWN

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

h�

r��TEXT:*FX15,0

|
T$="":L=0

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

�IN=�

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

��IN=127��dVA

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

��L=L%��tPA

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

�	�tFA

��L=0��D|A

�$�X,Y);" ":X=X-1:L=L-1:T$=�T$,L)

�	�tFA

��X,Y);" "

��
v�:�128:�2,2);"PRINTOUT ABORTED DUE TO INCORRECT INSERTION STRUCTURE IN LINE ";I;":":�FG%:�2,6);DO$(I):�7:*FX21,3
"ȗ U,U,BUT:�BUT=0��TRB:��TtC
���DNSC:�ERWIN:�20,12);"Document Still In Memory!";�20,14);"Continue? ";:�YN:�YN=1��I=1�TL%:DO$(I)="":�I:DO$(1)=�70," "):LI%=1:TL%=1:SL%=1:DOC$="no file"
&�
0A�0,Y2);DO$(LI%):PS%=X2+1:A%=�(�DO$(LI%),PS%,1)):�PS%=1��TJE
:=PS%=PS%-1:�DO$(LI%),PS%,1)=" "��DNB:��PS%<=1�X2=0:�TJE
D A%=�(�DO$(LI%),PS%,1)):�TzB
N'�A%=32�A%=�(�DO$(LI%),PS%,1)):�TzB
XX2=PS%-1:�TJE
bB�0,Y2);DO$(LI%):PS%=X2+1:A%=�(�DO$(LI%),PS%,1)):�PS%=70��TJE
l?PS%=PS%+1:�DO$(LI%),PS%,1)=" "��t@B:��PS%>=70�X2=69:�TJE
v A%=�(�DO$(LI%),PS%,1)):�DlB
�'�A%=32�A%=�(�DO$(LI%),PS%,1)):�DlB
�X2=PS%-1:�TJE
��T1$=�DO$(LI%),X2):T2$=�DO$(LI%),(70-X2)):DO$(LI%)=T1$+�(IN)+T2$:��DO$(LI%),1)=" "�DO$(LI%)=�DO$(LI%),70):�0,Y2);DO$(LI%):�dnB
�8�WW%=0�DO$(LI%)=�DO$(LI%),70):�0,Y2);DO$(LI%):�dnB
�
SLI%=LI%:
�kPS%=�(DO$(SLI%)):WW$=�DO$(SLI%),�(DO$(SLI%))-70):�WW$=ĩ(WW$)," ")�DO$(SLI%)=�DO$(SLI%),70):�BUDG:�dnB
�6�DO$(SLI%),PS%,1)=" " � PS%<=70 ��dPB:�PS%=PS%-1
�?�PS%<1�DO$(LI%)=�DO$(LI%),70):�0,Y2);DO$(LI%):�dnB:��t|B
�LWW2$=�DO$(SLI%),(PS%+1)):DO$(SLI%)=�DO$(SLI%),PS%)+�70-PS%," "):�WW2TRIM
�<SLI%=SLI%+1:�SLI%>TL%�TL%=TL%+1:�TLCHK:DO$(TL%)=�70," ")
�&DO$(SLI%)=WW2$+" "+DO$(SLI%):�trB
�X2=X2+1:�TJE
�$��TLCHK:�TL%>nol%�TL%=nol%:�TJE
�
/��WW2TRIM:WW2%=�(WW2$):��WW2$,1)<>" "��T`C
A�WW2$,WW2%,1)<>" "�WW2$=�WW2$,WW2%):�T`C:�WW2%=WW2%-1:�TVC
 �
*�FI$="*NONE*"��TtC:��MAIN
4Zȗ �:�:�15:X=23:Y=4:W%=30:L%=1:�LWN:�131:�24,5);"DataVision Word Processor Menu":�FG%
>uX=16:Y=24:L%=1:W%=46:�128:�LWN:�17,25);"Document Name: ";:�131:�DOC$:�128:�42,25);"File Name: ";:�131:�FI$:�FG%
H�X=29:Y=9:W%=18:L%=11:�LWN:ME$(1)="Create         ":ME$(2)="Edit":ME$(3)="Load Document":ME$(4)="Save Document":ME$(5)="Export Document":ME$(6)="Import Document":ME$(7)="Mailmerge":ME$(8)="Print Document":ME$(9)="System"
RBME$(10)="View Document":ME$(11)="Quit":X=30:Y=10:L%=11:�SELECT
\�SEL%=8��TvK
f�SEL%=6��DfM
p�SEL%=11��d^C
z�SEL%=9��t@L
��SEL%=3��DBD
��SEL%=1��tfD
��DOC$="no file"��DHC
��SEL%=2��dXD
��SEL%=8��TvK
��SEL%=7��D^K
��SEL%=4��TFD
��SEL%=5��TzL
��SEL%=10��DlL
�,�DOC$="no file"��D`N:��DNSC:�YN=0��TtC
�	�D`N
�	�DHC
�z�:�2,2);"Enter new filename or press RETURN to return to the menu...":X=2:Y=4:L%=10:�TEXT:�T$=""��TtC:�DOC$=T$:�TFD
�DOC$="no file"��TtC
xX=20:Y=14:W%=22:L%=3:�LWN:ME$(1)="Save now":ME$(2)="Change document name":ME$(3)="Abort save":X=21:Y=15:L%=3:�SELECT
� SEL% � �TdD,�TxD,�TtC
$0�"CLOSE":DO$(0)=�(TL%):�TL%=0��"CLOSE":�TtC
.:X=��MyFile(DOC$):�I=0�TL%:�#X,DO$(I):�I:�"CLOSE":�TtC
8tX=20:Y=20:W%=37:L%=1:�LWN:�21,21);"Enter Document filename: ";:X=�:Y=21:L%=10:�TEXT:�T$=""��TtC:�DOC$=T$:�TtC
B&�DOC$<>"no file"��DNSC:�YN=0��TtC
L��D~D
V}�:�"CAT <DataVision$Dir>":X=2:Y=16:W%=40:L%=1:�LWN:�3,17);"Enter Document filename: ";:X=�:Y=17:L%=10:�TEXT:�T$=""��tRD
`j�"CLOSE":X=��MyFile(T$):�#X,DO$(0):�I=1��(DO$(0)):�#X,DO$(I):�I:�"CLOSE":DOC$=T$:TL%=�(DO$(0)):��t\N
j	�TtC
t�:�,�:�
~w�ERWIN:�180:�20,12);"Cannot find the ";T$;" document:";�20,14);"Click mouse to continue...":�7:�FG%:�MKLIK:��t\N
�	�TtC
���t\N
�	�TtC
�&�DOC$<>"no file"��DNSC:�YN=0��TtC
�8DOC$="Untitled":LI%=1:TL%=1:X2=0:Y2=5:SL%=1:�"FX4,1"
��:�dvD
�I��IO:�INS%=1��55,2);"INSERT MODE     ":��55,2);"OVERWRITE MODE    "
��
�"LI%=1:X2=0:Y2=5:SL%=1:�"FX4,1"
�&�DOC$="no file"��1,-15,150,5:�TtC
�(�:L=5:�I=1�25:�0,L);DO$(I):L=L+1:�I
�3ȗ �:�120:�0,4);�11,"������");"����":�127:�FG%
	�TJE

��131:�0:�X2,Y2);�DO$(LI%),X2+1,1):�FG%:�127:�6,3);"Line: ";LI%;"  Col: ";X2;"  Document: ";DOC$;"       ";:�IO:�WW%=1��55,3);"WORDWRAP ON ":��55,3);"WORDWRAP OFF"
�FG%:ȗ �:IN=�
�IN=136��ttE
(�IN=8��dLF
2�IN=137��TbF
<�IN=138��D@F
F�IN=139��DhF
P�IN=127��d`F
Z�IN=13��dzE
d�IN>=140��d~F
n�IN=9��txF
x�IN<32��TTE
���X2,Y2);�(IN):�INS%=0 � X2=69 �T1$=�DO$(LI%),X2):L%=(X2+1):T2$=�DO$(LI%),(70-L%)):DO$(LI%)=T1$+�(IN)+T2$:X2=X2+1:�X2>69��t`E
��INS%=0��TJE
�	�tTB
��LI%=nol%�X2=69:�TJE
��WRAP:�dzE
��X2=0��T@E
�,�(-2)=� �IN=148:�d~F:� �(-1)=� ��TpB
�"X2=X2-1:�0,Y2);DO$(LI%):�T@E
�
��BUDG
�CFL%=SL%+24:�"FX21,0":�FL%>nol%�FL%=nol% � � FL%>TL% � FL% = TL%
�=L=5:�I=SL%�FL%:�0,L);DO$(I):L=L+1:�I:�28,0,31,79,L:�:�26
��
�$�0,Y2);DO$(LI%):�LI%=nol%��TJE
(�TL%=LI%�TL%=TL%+1:DO$(TL%)=�70," ")
V�Y2=29�SL%=SL%+1:�28,0,29,79,5:�0,23);':�26:LI%=LI%+1:X2=0:�0,29);DO$(LI%):�dvD
 Y2=Y2+1:LI%=LI%+1:X2=0:�T@E
"�X2=69��TJE
,,�(-2)=� �IN=149:�d~F:� �(-1)=� ��DbB
6"X2=X2+1:�0,Y2);DO$(LI%):�T@E
@3�(-1)=� �IN=146:�d~F:� �(-2)=� �IN=157:�d~F
J#�0,Y2);DO$(LI%):�LI%=TL%��TJE
TQ�Y2=29�SL%=SL%+1:�28,0,29,79,5:�0,23);':�26:LI%=LI%+1:�0,29);DO$(LI%):�dvD
^Y2=Y2+1:LI%=LI%+1:�TJE
h2�(-1)=� �IN=145:�d~F:��(-2)=� �IN=147:�d~F
r!�0,Y2);DO$(LI%):�LI%=1��TJE
|)�Y2=5�SL%=SL%-1:�BUDG:LI%=LI%-1:�dvD
�Y2=Y2-1:LI%=LI%-1:�TJE
��X2=0��T@E
�-�X2=69�T1$=�DO$(LI%),79):DO$(LI%)=T1$+" "
�X2=X2-1
�bT1$=�DO$(LI%),X2):L%=(X2+1):T2$=�DO$(LI%),(70-L%)):DO$(LI%)=T1$+" "+T2$:�0,Y2);DO$(LI%):�TJE
�+L=1:�X2>65�X2=69:�0,Y2);DO$(LI%):�TJE
�<�X2<TS%(L)�X2=TS%(L):�0,Y2);DO$(LI%):�TJE:�L=L+1:�dBF
�*L=11:�X2<7�X2=0:�0,Y2);DO$(LI%):�TJE
�<�X2>TS%(L)�X2=TS%(L):�0,Y2);DO$(LI%):�TJE:�L=L-1:�dVF
��INS%=0��tPF
�&�DO$(LI%),X2+1)=�70-X2," ")��tPF
�IN=142:�d~F
�#�IN=145�SL%=SL%-15:�SL%<1�SL%=1
8�IN=145�LI%=SL%:Y2=5:�28,0,29,79,5:�:�26:�BUDG:�TJE
�IN=210�IN=245:�DxE
3�IN=146�SL%=SL%+15:�SL%>TL%�SL%=SL%-15:�7:�TJE
&8�IN=146�LI%=SL%:Y2=5:�28,0,29,79,5:�:�26:�BUDG:�TJE
0�IN=253��TdI
:�IN=151�IN=246:�DxE
D�IN=152�IN=247:�DxE
N�IN=153�IN=249:�DxE
X�IN=154�IN=248:�DxE
b�IN=155�IN=250:�DxE
l�IN=158��TtC
v<�IN=147�SL%=1:LI%=1:Y2=5:�28,0,29,79,5:�:�26:�BUDG:�TJE
�#�IN=157�SL%=TL%-15:�SL%<1�SL%=1
�8�IN=157�LI%=SL%:Y2=5:�28,0,29,79,5:�:�26:�BUDG:�TJE
�'�IN=148��0,Y2);DO$(LI%):X2=0:�TJE
�(�IN=149��0,Y2);DO$(LI%):X2=69:�TJE
��IN=143��D\H
��IN=144��tDH
��IN=141��tvH
��IN=142��dJH
��IN=156��T`H
��IN=159��DHH
��IN=250��dnL
��IN=251��TBM
��IN=252��TLH
	�DxE
WW%=WW%+1:�WW%>1�WW%=0
	�TJE
 =AS%=�(�DO$(LI%),(X2+1),1)):�AS%>64�AS%<91�IN=AS%+32:�DxE
*#�AS%>96�AS%<122�IN=AS%-32:�DxE
4�AS%>=244��TJE
>IN=AS%:�DxE
HS�DOCWIN:�11,11);"Enter function key number: ";:X=�:Y=11:L%=2:�TEXT:I$=�(�(T$))
RT�11,13);"Enter Macro text:":X=11:Y=15:L%=30:�TEXT:�"KEY "+I$+" "+T$:�BUDG:�TJE
\.TLS%=TL%+1:SSL%=LI%+1:�TLS%>nol%�TLS%=nol%
f�LI%=nol%��TJE
pT�I=TLS%�SSL%�-1:DO$(I)=DO$(I-1):�I:DO$(LI%)=�B$,70):TL%=TL%+1:�TL%>nol%�TL%=nol%
z�BUDG:�TJE
��LI%=TL%��tXH
�OSSL%=TL%-1:�I=LI%�SSL%:DO$(I)=DO$(I+1):�I:DO$(TL%)=B$:TL%=TL%-1:�BUDG:�TJE
�,�TL%=1�DO$(TL%)=B$:�0,5);DO$(TL%):�TJE
�Q�0,Y2);B$:DO$(LI%)=B$:LI%=LI%-1:TL%=TL%-1:Y2=Y2-1:�Y2=4�Y2=5:SL%=SL%-1:�BUDG
�	�TJE
�INS%=INS%+1:�INS%>1�INS%=0
�	�TJE
��X2=69��TJE
�rT1$=�DO$(LI%),X2):T2$=�DO$(LI%),X2+2):DO$(LI%)=T1$+T2$+" ":�0,Y2);DO$(LI%);"   ":DO$(LI%)=�DO$(LI%),70):�TJE
���WRAP:l%=70:�WW%=0��TZI
��LI%=nol%��TZI
���DO$(LI%),1)=" "��TZI
��DO$(LI%),l%,1)=" "��TPI
	l%=l%-1:�l%=0��TZI:��d|H
	kWW$=�DO$(LI%),(70-l%)):DO$(LI%)=�DO$(LI%),l%)+�70-l%," "):�i%=1��(WW$):�"FX138,0,"+�(�(�WW$,i%,1))):�i%
	�
	$�X2>=55��TJE
	.�FI$="*NONE*"��TJE
	8/�X2,Y2);�(244):XX=X2+1:TMP$=DO$(LI%):N$=""
	B�XX,Y2);�(255):I=�
	L�I=253��D~I
	V�I=127�N$="0":�D~I
	`�I<48�I>57��DBI
	j+�XX,Y2);�(I):N$=N$+�(I):�(N$)=3��D~I
	tXX=XX+1:�DBI
	~-N%=�(N$):�N%=0�N%>NOF%��0,Y2);TMP$:�TJE
	�"N$=�(244)+�(N%)+�(244):L=�(N$)
	�|T1$=�DO$(LI%),X2):L%=X2:T2$=�DO$(LI%),(70-L%)):DO$(LI%)=T1$+N$+T2$:X2=X2+L:DO$(LI%)=�DO$(LI%),70):�0,Y2);DO$(LI%):�TJE
	��J=1�5:A(J)=0:�J
	�^CR%=1:DOR%=1:�"CLOSE":A=��MyFile(FO$):X=��MyFile(FI$):�SO$="1"��#X=REC%-10:�#X,CR$:CR%=CR$
	��3:�:�2
	��H%>0��I=1�H%:�B$:�I
	�'�I=1�TL%:��LM%," ");:�F=1��(DO$(F))
	�.LE%=�(DO$(I)):�DO$(I)=�LE%," ")�F=70:�tjJ
	��(�DO$(I),F,1))<127��t`J
	�>�DO$(I),F,1)=�(245)�A(1)=0�A(1)=1:�1,27:�1,45:�1,49:�tjJ
	�>�DO$(I),F,1)=�(245)�A(1)=1�A(1)=0:�1,27:�1,45:�1,48:�tjJ
	�&�DO$(I),F,1)=�(244)�MAIL%=1��DdJ
>�DO$(I),F,1)=�(246)�A(2)=0�A(2)=1:�1,27:�1,83:�1,48:�tjJ

8�DO$(I),F,1)=�(246)�A(2)=1�A(2)=0:�1,27:�1,84:�tjJ
>�DO$(I),F,1)=�(247)�A(3)=0�A(3)=1:�1,27:�1,83:�1,49:�tjJ
8�DO$(I),F,1)=�(247)�A(3)=1�A(3)=0:�1,27:�1,84:�tjJ
(8�DO$(I),F,1)=�(248)�A(4)=0�A(4)=1:�1,27:�1,69:�tjJ
28�DO$(I),F,1)=�(248)�A(4)=1�A(4)=0:�1,27:�1,70:�tjJ
<>�DO$(I),F,1)=�(249)�A(5)=0�A(5)=1:�1,27:�1,87:�1,49:�tjJ
F>�DO$(I),F,1)=�(249)�A(5)=1�A(5)=0:�1,27:�1,87:�1,48:�tjJ
P#�DO$(I),F,1)=�(250)�F=70:�tjJ
Z	�t`J
dAN$="":FO%=0:�J=(F+1)�70:�DO$(I),J,1)=�(244)�FO%=1:J=70:�DxJ
nN$=N$+�DO$(I),J,1)
x)�J:�FO%=0��"FX21,3":�3:�"CLOSE":�THB
�?CF%=�(�(N$)):�CF%<1 � CF%>NOF% ��"FX21,3":�3:�"CLOSE":�THB
�[�#A=(CF%-1)*61+109:�#A,TI$:�#C=(CR%-1)*REC%+�(TI$):�#C,C$:�C$;:F=F+(1+�(N$)):�F>70�F=70
�	�tjJ
��DO$(I),F,1);
��F
�'�:�I:�J=1�F%:�:�J:�MAIL%=0��3:�TtC
�	�dpJ
�.�:�"CLOSE":A=��MyFile(FO$):C=��MyFile(FI$)
�H�SAF%=1�NOR%:CR%=SAF%:�SO$="1"��#C=(SAF%*REC%)-10:�#C,CR$:CR%=�(CR$)
��QF%=1��tFP
�k�PM%=0��3:�:�2,2);"Press RETURN to print document for record ";SAF%;":":I$=�:�:�2:�tzI:��3:�:�2:�tzI
��SAF%:�3:�"CLOSE":�TtC
���CONFIG
;�20,10);"Header Space: ":X=34:Y=10:L%=3:�TEXT:H%=�(T$)
;�20,12);"Footer Space: ":X=34:Y=12:L%=3:�TEXT:F%=�(T$)
A�20,14);"Left Margin Space: ":X=39:Y=14:L%=2:�TEXT:LM%=�(T$)
"'�20,18);"Details correct? ";:�YN:�
,�
6�X=20:Y=18:W%=27:L%=3:�LWN:ME$(1)="Print document in memory":ME$(2)="Print ASCII file":ME$(3)="Display ASCII file":X=21:Y=19:L%=3:�SELECT:�SEL%>1��txK
@�DOC$="no file"��TtC
JB�:�1,1);"Printout of document in memory:":�CONFIG:�YN=0��TtC
T5ML%=0:CR%=1:DOR%=1:MAIL%=0:�I=1�5:A(I)=0:�I:�tpI
^�FI$="*NONE*"��TtC
hL�:�1,1);"Printout of Document. (Mailmerge engaged)":�CONFIG:�YN=0��TtC
rML%=H%:MAIL%=1
|��:X=2:Y=2:W%=35:L%=3:�LWN:ME$(1)="Print "+DOC$+" for all records":ME$(2)="Filter records":ME$(3)="Abandon printing":X=3:Y=3:L%=Y:�SELECT
��SEL%=1�QF%=0:�tdK
��SEL%=3��TtC
��SEL%=2�QF%=1:�dXN
��X=2:Y=8:W%=24:L%=2:�LWN:ME$(1)="Continuous printing":ME$(2)="Request each printout":X=3:Y=9:L%=2:�SELECT:PM%=SEL%:�SEL%=2�PM%=0
�H%=ML%:�dHJ
�eX=20:Y=24:W%=37:L%=1:�LWN:�21,25);"Enter Document filename: ";:X=�:Y=25:L%=10:�TEXT:�T$=""��TtC
��SEL%=3��djK
�%�:�2:�"EXEC <DataVision$Dir>."+T$
�I$=�(0):�I$=""��3:�TtC
��I$;:�dVK
�K�:�131:�0,0);"Press SHIFT to view next page...":�FG%:�28,0,29,79,2:�14
� �"EXEC <DataVision$Dir>."+T$
�I$=�(0):�I$=""��TRL
�I$;:�d~K
O�26:�15:�131:�0,0);"Press RETURN to return to the menu...":�FG%:I$=�:�TtC

��TEST
&�I$="E"��TtC
0�
:�DOC$="no file"��TtC
DfX=20:Y=15:W%=17:L%=2:�LWN:ME$(1)="Export new file":ME$(2)="Append old file":X=21:Y=16:L%=2:�SELECT
NeX=20:Y=20:W%=37:L%=1:�LWN:�21,21);"Enter Document filename: ";:X=�:Y=21:L%=10:�TEXT:�T$=""��TtC
XL�:�SEL%=1��"SPOOL <DataVision$Dir>."+T$:��"SPOOLON <DataVision$Dir>."+T$
b&�I=1�TL%:�DO$(I):�I:�"SPOOL":�TtC
l�DOC$="no file"��TtC
v��:�131:�"Press SHIFT to view next page...":�FG%:�28,0,29,79,2:�14:�I=1�TL%:�DO$(I):�I:�15:�26:�131:�0,0);"Press RETURN to return to the menu...":�FG%:I$=�:�TtC
�F�:�131:�"Press RETURN to return to the Word Processor Menu":�FG%:�
�� � "*" T$:��trL
��T$=""��dPL
��:�T$:�:��t\N
�	�tJL
���t\N
��:�$:�tJL
�I$=�:�t@L
���t\N
�	�TtC
�8��DOCWIN:�128:X=10:Y=10:W%=50:L%=10:�LWN:�FG%:ȗ �:�
�L�DOCWIN:�11,11);"Delete Document: Are you sure?";:�YN:�BUDG:�YN=0��TJE
�P�I=1�TL%:DO$(I)="":DO$(1)=�70," "):�I:LI%=1:TL%=1:SL%=1:DOC$="no file":�TtC

��DOCWIN:�11,11);"Search and Replace";�11,13);"Replace:":�131:�20,13);�(30):X=20:Y=13:L%=30:�TEXT:REP$=T$:�FG%:�11,15);"With:   ":�131:�20,15);�(30):X=20:Y=15:L%=30:�TEXT

2WIT$=T$:�FG%:�REP$="" � REP$=WIT$ ��BUDG:�TJE

7�11,18);"Details Correct? ";:�YN:�YN=0��BUDG:�TJE

 LAST%=0:�I=1�TL%

*5G=�DO$(I),REP$):�G=0 � G=LAST% ��DRM � LAST% = G

4bLS$=�DO$(I),(G-1)):RS$=�DO$(I),G+�(REP$)):DO$(I)=LS$+WIT$+RS$:�(DO$(I))>70�DO$(I)=�DO$(I),70)

>2�(DO$(I))<70�DO$(I)=DO$(I)+�70-�(DO$(I))," ")

H	�TjM

RLAST%=0:�I:�BUDG:�TJE

\�3

f&�DOC$<>"no file"��DNSC:�YN=0��TtC

p}�:�"CAT <DataVision$Dir>":X=2:Y=16:W%=40:L%=1:�LWN:�3,17);"Enter Document filename: ";:X=�:Y=17:L%=10:�TEXT:�T$=""��TtC

z+�:�2,2);"Importing document ";T$;"..."

�0TL%=1:DO$(1)="":�"EXEC <DataVision$Dir>."+T$

�I$=�(0):�I$=""��d@M

�*�(I$)=13�TL%=TL%+1:DO$(TL%)="":� �tNM

��(I$)<32��tNM

�DO$(TL%)=DO$(TL%)+I$:�tNM

�zTL%=TL%+1:DO$(TL%)="":�TL%=(nol%+1):��:�128:�2,2);"UNABLE TO READ ENTIRE DOCUMENT":�FG%:�:I$=�(0):�I$="":�d@M:��tNM

�TL%=TL%-1:�TL%=0��TtC

�3�I=1�TL%:�(DO$(I))>70�DO$(I)=�DO$(I),70):�d^M

�2�(DO$(I))<70�DO$(I)=DO$(I)+�70-�(DO$(I))," ")

��I:DOC$=T$:�TtC

�%�:I$=�(0):��(I$)>31 � I$="":�drM

��I$=""��d@M:��tlM

�.��SELECT:ED%=Y+(L%-1):BG%=X+(W%-1):SSEL%=1
>�I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
+ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32)
�YP<Y � YP>ED%��TFN
$�XP<X � XP>BG%��TFN
.rSEL%=(YP-Y)+1:�CLEA:� 131:�127:�X,YP);"  ";ME$(SEL%);�(W%-2)-�(ME$(SEL%))," "):� FG%:�127:�BUT=4��TxN:��TPN
8�7:�
BR��CLEA:�SSEL%<>SEL%��I=1�L%:�X,Y+(I-1));"  ";ME$(I);�(W%-2)-�(ME$(I))," "):�I
LSSEL%=SEL%:�
V�
` 
j 
t 
~ 
�	 � #0
�
 �Quit
�&�3:�26:� #0:�"FX21,0":�go%=0��dNN
��=17� � �TtC
���=214��ERWIN:�180:�20,12);"Cannot read ASCII file...";�20,14);"Click mouse to continue...":�7:�FG%:�MKLIK:�"CLOSE":�3:�26:�TtC
�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:�D`N
�l�:�1,1);"Ad-Hoc Query";�1,2);�12,�(241)):P$(1)="=":P$(2)="<>":P$(3)="<":P$(4)=">":P$(5)="<=":P$(6)=">="
�u�0,4);�(154);�78,�(159));�(158);�1,4);"Li";�4,4);"Field";�25,4);"Op";�29,4);"Constant/Expression";�74,4);"Logic"
�;�3,4);�(233);�24,4);�(233);�28,4);�(233);�73,4);�(233)
�u�F=5�14:�3-�(�(F-4)),F);F-4;�0,F);�(155);�3,F);�(231);�24,F);�(231);�28,F);�(231);�73,F);�(231);�79,F);�(157):�F
 �"CLOSE":C=��MyFile(FO$):I=1

4X=4:Y=I+4:L%=20:�TEXT:N$=T$:�CL:�CHEK:Q$(I,1)=N$
5X=25:Y=I+4:L%=2:�TEXT:N$=T$:�CL:�CHEK2:Q$(I,2)=N$
9�Q$(I,7)="9"� �(Q$(I,7))<5 � �(Q$(I,6))>6��ThO��T|O
(W�CL:�20,1);"Invalid Operator. Want to continue?";�20,2);"(Y/N)":I$=�:�I$="N"��TtC
2	�TTO
<X=29:Y=I+4:L%=44
F&�Q$(I,7)="5"��TY5:Q$(I,3)=N$:�DdO
P&�Q$(I,7)="6"��TY6:Q$(I,3)=N$:�DdO
Z�TEXT:N$=T$:Q$(I,3)=N$
dU�74,I+4);�(255):I$=�:�I$="A"� I$="O"� I$="E"� I$="a"� I$="o"� I$="e"��DnO��DdO
n�I$="A"� I$="a"�I$="AND"
x�I$="E"� I$="e"�I$="END"
��I$="O"� I$="o"�I$="OR"
��74,I+4);I$:Q$(I,4)=I$
��I$="END"�T%=I:�TXP
�"I=I+1:�I>10�T%=10:�TXP:��TJO
�
��CHEK
��L%=0:�F=1�NOF%:�#C=(F-1)*61+63:�#C,FL$:�N$=FL$��#C=(F-1)*61+63+46:�#C,TI$:Q$(I,5)=TI$:�#C=(F-1)*61+63+38:�#C,TY$:Q$(I,7)=TY$:F=NOF%:L%=1
�\�F:�L%=1��TTO��CL:�20,1);"Field is not on file. Want to continue?";�20,2);"(Y/N)":I$=�
��I$="N"��TtC��TJO
��
���CHEK2
�/L%=0:�F=1�6:�N$=P$(F)�Q$(I,6)=�(F):L%=1:F=8
�X�F:�L%=1��T^O��CL:�20,1);"Invalid Operator. Want to continue?";�20,2);"(Y/N)":I$=�
��I$="N"��TtC��TTO
�
+��CL:�20,1);�60," ");�20,2);�60," "):�
BMC$=�20,"0"):RC$=MC$:�Q$(1,4)="OR"�MC$="1"+�9,"0")+"1"+�9,"0")
"�
,�F=1�T%
6�Q$(F,4)="OR"��DrP
@CB1$=�MC$,10):B2$="":�J=1�10:�J=F �B2$=B2$+"1"�B2$=B2$+�MC$,J,1)
J�J
T#MC$=B2$+B1$:B1$=�MC$,10):B2$=""
^5�J=11�20:�J=(F+10) �B2$=B2$+"1"�B2$=B2$+�MC$,J,1)
h�J:MC$=B1$+B2$
r�F:�tdK
|#�:S%=0:�"CLOSE":X=��MyFile(FI$)
�F%=1:RC$=�20,"0")
��Q$(1,4)="OR"��dPQ
�c�#C=(CR%-1)*REC%+�(Q$(F%,5)):�#C,C$:N$=Q$(F%,3):TP$="1":OP$=Q$(F%,6):�TYPE:�COMPARE:�COM%=1��FB
��Q$(F%,4)="END"�COM%=1��SB
�"�Q$(F%,4)="END"��RC$=MC$��dfJ
�"F%=F%+1:�F%>T%�F%=T%:�SB:�dVP
��Q$(F%,4)="OR"��DlQ
�F%=F%-1:�SB:F%=F%+1:�tZP
�	�dpJ
�
��TYPE
�E�Q$(F%,7)="7"�Q$(F%,7)="8"�Q$(F%,7)="0"� N=�(N$):NO=�(C$):TP$="2"
�8�Q$(F%,7)="5"�X$=N$:�CONDI:N=NO:X$=C$:�CONDI:TP$="2"
�8�Q$(F%,7)="6"�X$=N$:�CONTI:N=NO:X$=C$:�CONTI:TP$="2"
�
��FB
DB1$=�RC$,10):B2$="":�J=1�10:�J=F% �B2$=B2$+"1"�B2$=B2$+�RC$,J,1)
&�J:RC$=B2$+B1$
0�
:��SB
DB1$=�RC$,10):B2$=""
N6�J=11�20:�J=(F%+10) �B2$=B2$+"1"�B2$=B2$+�RC$,J,1)
X�J:RC$=B1$+B2$
b�
lSP%=(F%-1)
v~�#C=(CR%-1)*REC%+�(Q$(F%,5)):�#C,C$:N$=Q$(F%,3):TP$="1":OP$=Q$(F%,6):�TYPE:�COMPARE:�COM%=1�SA%=F%:F%=SP%:�SB:F%=SA%:�t^Q
��Q$(F%,4)="END"��dVP
�)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�tZP
�F%=F%+1:�DvQ
�)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�tZP
�$�Q$(F%,4)="END"��FB:COM%=1:�tdP
�)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�tZP
�$�Q$(F%,4)="END"��FB:COM%=1:�tdP
�F%=F%+1:�trQ
�
SP%=F%
ڂ�#C=(CR%-1)*REC%+�(Q$(F%,5)):�#C,C$:N$=Q$(F%,3):TP$="1":OP$=Q$(F%,6):�TYPE:�COMPARE:�COM%=1�SA%=F%:F%=SP%:�FB:�SB:F%=SA%:�t^Q
��Q$(F%,4)="END"��dVP
�)�Q$(F%,4)="AND"��FB:�SB:F%=F%+1:�tZP
�F%=F%+1:�dZQ

��COMPARE

COM%=0
�TP$="2"��DpR
 �N$,1)="*"��dTR
* �OP$="1"��N$=C$�COM%=1:�d|R
4!�OP$="2"��N$<>C$�COM%=1:�d|R
> �OP$="3"��N$>C$�COM%=1:�d|R
H �OP$="4"��N$<C$�COM%=1:�d|R
R!�OP$="5"��N$>=C$�COM%=1:�d|R
\!�OP$="6"��N$<=C$�COM%=1:�d|R
f	�d|R
p�TY$="5"�X$=C$:�CONDI
z�TY$="6"�X$=C$:�CONTI
� �OP$="1"��N=NO �COM%=1:�d|R
�!�OP$="2"��N<>NO �COM%=1:�d|R
� �OP$="3"��N>NO �COM%=1:�d|R
� �OP$="4"��N<NO �COM%=1:�d|R
�!�OP$="5"��N>=NO �COM%=1:�d|R
�,�OP$="7"��NO >VL1 �NO <VL2 �COM%=1:�d|R
�!�OP$="6"��N<=NO �COM%=1:�d|R
�	�d|R
��(N$)=1��TjR
�2�OP$="1"�COM%=�C$,�N$,2,�(N$))):�COM%>1�COM%=1
�9�(OP$)>1�COM%=�C$,�N$,2,�(N$))):�COM%=0�COM%=1:�d|R
��(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$)
8�
B	��TY5
L�X,Y);"../../..":N$=""
VX3=X:�DAT:�DE=1��DLS
`&N$=N$+DAT$:X3=X+3:�DAT:�DE=1��DLS
j.N$=N$+"/"+DAT$+"/":X3=X+6:�DAT:�DE=1��DLS
tN$=N$+DAT$
~IN=�:�IN=13��tRS
��IN=127��DLS��D~S
��
�	��DAT
�DE=0:DAT$="":X4=X3
�IN=�:�IN=127�DE=1:�dXS
�#�IN<48�IN>57��1,-15,100,2:�tpS
�:�X3,Y);�(IN):DAT$=DAT$+�(IN):X3=X3+1:�X3>(X4+1)��dXS
�	�tpS
��
�	��TY6
��X,Y);"..:..":N$=""
�X3=X:�DAT:�DE=1��dlS
N$=N$+DAT$+":":X3=X+3:�DAT

N$=N$+DAT$
IN=�:�IN=13��ThT
�IN=127��dlS��TTT
(�
2,��YN:xp=�:yp=�:�" ";:�131:�"YES/NO":�FG%
<8ȗ XP,YP,BUT:XP=�(XP/16):YP=31-�(YP/32):�BUT=0��T|T
F�YP<>yp ��T|T
P+�XP=xp+1 � XP=xp+2 � XP=xp+3�YN=1:�DnT
Z"�XP=xp+5 � XP=xp+6 �YN=0:�DnT
d	�T|T
n�xp,yp);" YES/NO":�7:�
xݤMyFile(file$)
�
=file$
�� �Quit
�!� SYS "Wimp_CommandWindow",-1
�Ș
��
�@
��Dir(d$)
�J)� d$ <> "" � � "Dir "+�MyFile(�d$,2))
�T�
�

00000000  0d 00 0a 17 f4 20 3e 20  24 2e 21 44 61 74 61 56  |..... > $.!DataV|
00000010  69 73 2e 21 64 76 35 0d  00 0f 1d c8 99 22 57 69  |is.!dv5......"Wi|
00000020  6d 70 5f 43 6f 6d 6d 61  6e 64 57 69 6e 64 6f 77  |mp_CommandWindow|
00000030  22 2c 2d 31 0d 00 14 10  eb 20 31 35 3a fb 20 31  |",-1..... 15:. 1|
00000040  38 30 3a db 0d 00 1e 3e  ee 85 20 ee 85 87 3a 20  |80:....>.. ...: |
00000050  85 20 31 2c 22 4e 6f 74  20 65 6e 6f 75 67 68 20  |. 1,"Not enough |
00000060  6d 65 6d 6f 72 79 20 74  6f 20 73 74 61 72 74 20  |memory to start |
00000070  74 68 65 20 57 6f 72 64  50 72 6f 63 65 73 73 6f  |the WordProcesso|
00000080  72 22 0d 00 28 1f 6d 6c  25 3d 93 2d e0 3a 6e 6f  |r"..(.ml%=.-.:no|
00000090  6c 25 3d a8 28 6d 6c 25  2f 37 30 29 2d 32 30 30  |l%=.(ml%/70)-200|
000000a0  30 0d 00 32 24 c8 97 ee  3a 87 3a 46 47 25 3d 31  |0..2$...:.:FG%=1|
000000b0  38 30 3a 67 6f 25 3d 31  3a 57 57 25 3d 31 3a 49  |80:go%=1:WW%=1:I|
000000c0  4e 53 25 3d 31 0d 00 3c  31 de 51 24 28 31 30 2c  |NS%=1..<1.Q$(10,|
000000d0  37 29 3a de 50 24 28 36  29 3a 51 46 25 3d 30 3a  |7):.P$(6):QF%=0:|
000000e0  50 4d 25 3d 30 3a 4d 41  49 4c 25 3d 30 3a 2a 46  |PM%=0:MAIL%=0:*F|
000000f0  58 32 32 35 2c 31 0d 00  46 75 ff 22 46 58 32 31  |X225,1..Fu."FX21|
00000100  39 2c 39 22 3a ff 22 46  58 32 32 36 2c 31 34 30  |9,9":."FX226,140|
00000110  22 3a ff 22 46 58 32 32  37 2c 31 35 30 22 3a ff  |":."FX227,150":.|
00000120  22 46 58 32 32 38 2c 31  36 30 22 3a de 4d 45 24  |"FX228,160":.ME$|
00000130  28 31 35 29 3a de 54 53  25 28 31 31 29 3a e3 49  |(15):.TS%(11):.I|
00000140  3d 31 b8 31 31 3a 54 53  25 28 49 29 3d 49 2a 36  |=1.11:TS%(I)=I*6|
00000150  3a ed 49 3a ff 22 46 58  32 32 32 2c 32 34 30 22  |:.I:."FX222,240"|
00000160  3a 2a 46 58 32 32 33 2c  32 30 30 0d 00 50 47 db  |:*FX223,200..PG.|
00000170  3a de 44 4f 24 28 6e 6f  6c 25 29 3a 44 4f 43 24  |:.DO$(nol%):DOC$|
00000180  3d 22 6e 6f 20 66 69 6c  65 22 3a 42 24 3d c4 38  |="no file":B$=.8|
00000190  30 2c 22 20 22 29 3a de  41 28 35 29 3a 54 4c 25  |0," "):.A(5):TL%|
000001a0  3d 30 3a 44 4f 24 28 31  29 3d c4 37 30 2c 22 20  |=0:DO$(1)=.70," |
000001b0  22 29 0d 00 55 0b ee 85  e5 8d 74 5c 4e 0d 00 5a  |")..U.....t\N..Z|
000001c0  65 ff 22 43 4c 4f 53 45  22 3a 58 3d ad a4 4d 79  |e."CLOSE":X=..My|
000001d0  46 69 6c 65 28 22 4e 49  4d 22 29 3a e8 23 58 2c  |File("NIM"):.#X,|
000001e0  46 49 24 2c 53 54 24 2c  44 41 24 2c 44 52 24 2c  |FI$,ST$,DA$,DR$,|
000001f0  5a 5a 24 2c 4d 44 24 3a  ff 22 43 4c 4f 53 45 22  |ZZ$,MD$:."CLOSE"|
00000200  3a 46 4f 24 3d 46 49 24  2b 22 41 22 3a 53 54 24  |:FO$=FI$+"A":ST$|
00000210  3d 22 31 22 3a 5a 42 24  3d 53 54 24 3a e5 8d 54  |="1":ZB$=ST$:..T|
00000220  6a 43 0d 00 64 10 dd f2  4d 41 49 4e 3a 67 6f 25  |jC..d...MAIN:go%|
00000230  3d 30 0d 00 6e 41 e7 53  54 24 3d 22 31 22 8c 20  |=0..nA.ST$="1". |
00000240  54 41 24 3d 46 49 24 2b  22 4e 22 3a 58 3d ad a4  |TA$=FI$+"N":X=..|
00000250  4d 79 46 69 6c 65 28 54  41 24 29 3a e8 23 58 2c  |MyFile(TA$):.#X,|
00000260  44 49 24 3a f2 44 69 72  28 44 49 24 29 3a e5 8d  |DI$:.Dir(DI$):..|
00000270  74 6a 40 0d 00 78 09 e5  8d 74 4c 40 0d 00 82 61  |tj@..x...tL@...a|
00000280  f2 45 52 57 49 4e 3a fb  31 38 30 3a f1 8a 32 30  |.ERWIN:.180:..20|
00000290  2c 31 32 29 3b 22 43 61  6e 6e 6f 74 20 72 65 61  |,12);"Cannot rea|
000002a0  64 20 74 68 65 20 66 69  6c 65 20 3a 22 3b 46 49  |d the file :";FI|
000002b0  24 3b 8a 32 30 2c 31 34  29 3b 22 28 66 69 6c 65  |$;.20,14);"(file|
000002c0  20 65 6d 70 74 79 29 22  3a fb 46 47 25 3a ef 37  | empty)":.FG%:.7|
000002d0  3a f2 4d 4b 4c 49 4b 3a  e5 8d 44 60 4e 0d 00 8c  |:.MKLIK:..D`N...|
000002e0  37 e7 53 54 24 3d 22 32  22 8c 3a 54 41 24 3d 46  |7.ST$="2".:TA$=F|
000002f0  49 24 2b 22 4e 22 3a 58  3d ad a4 4d 79 46 69 6c  |I$+"N":X=..MyFil|
00000300  65 28 54 41 24 29 3a e8  23 58 2c 44 49 24 3a e5  |e(TA$):.#X,DI$:.|
00000310  8d 74 6a 40 0d 00 96 35  dd f2 4d 4b 4c 49 4b 3a  |.tj@...5..MKLIK:|
00000320  f5 3a c8 97 20 55 2c 55  2c 42 55 54 3a fd 42 55  |.:.. U,U,BUT:.BU|
00000330  54 3d 30 3a f5 3a c8 97  20 55 2c 55 2c 42 55 54  |T=0:.:.. U,U,BUT|
00000340  3a fd 42 55 54 3d 34 3a  e1 0d 00 a0 31 dd f2 45  |:.BUT=4:....1..E|
00000350  52 57 49 4e 3a 58 3d 31  39 3a 59 3d 31 31 3a 57  |RWIN:X=19:Y=11:W|
00000360  25 3d 34 30 3a 4c 25 3d  33 3a fb 31 38 30 3a f2  |%=40:L%=3:.180:.|
00000370  4c 57 4e 3a fb 46 47 25  3a e1 0d 00 aa 75 d9 23  |LWN:.FG%:....u.#|
00000380  30 3a 58 3d ad a4 4d 79  46 69 6c 65 28 46 4f 24  |0:X=..MyFile(FO$|
00000390  29 3a cf 23 58 3d 30 3a  e8 23 58 2c 5a 5a 24 3a  |):.#X=0:.#X,ZZ$:|
000003a0  4e 4f 46 25 3d bb 28 5a  5a 24 29 3a cf 23 58 3d  |NOF%=.(ZZ$):.#X=|
000003b0  35 3a e8 23 58 2c 5a 5a  24 3a 4e 4f 52 25 3d bb  |5:.#X,ZZ$:NOR%=.|
000003c0  28 5a 5a 24 29 3a cf 23  58 3d 31 35 3a e8 23 58  |(ZZ$):.#X=15:.#X|
000003d0  2c 5a 5a 24 3a 52 45 43  25 3d bb 28 5a 5a 24 29  |,ZZ$:REC%=.(ZZ$)|
000003e0  3a cf 23 58 3d 34 35 3a  e8 23 58 2c 53 4f 24 0d  |:.#X=45:.#X,SO$.|
000003f0  00 b4 15 e7 bb 28 53 4f  24 29 3e 30 8c 53 4f 24  |.....(SO$)>0.SO$|
00000400  3d 22 31 22 0d 00 be 11  e7 4e 4f 52 25 3d 30 8c  |="1".....NOR%=0.|
00000410  e5 8d 74 42 40 0d 00 c8  0b 67 6f 25 3d 31 3a e1  |..tB@....go%=1:.|
00000420  0d 00 d2 0c dd f2 46 4f  50 4f 55 54 0d 00 dc 2e  |......FOPOUT....|
00000430  ff 22 43 4c 4f 53 45 22  3a 58 3d ad a4 4d 79 46  |."CLOSE":X=..MyF|
00000440  69 6c 65 28 46 4f 24 29  3a 50 4f 49 3d 28 43 46  |ile(FO$):POI=(CF|
00000450  25 2d 31 29 2a 36 31 2b  36 33 0d 00 e6 13 cf 23  |%-1)*61+63.....#|
00000460  58 3d 50 4f 49 3a e8 23  58 2c 46 4c 24 0d 00 f0  |X=POI:.#X,FL$...|
00000470  20 cf 23 58 3d 50 4f 49  2b 32 32 3a e8 23 58 2c  | .#X=POI+22:.#X,|
00000480  5a 5a 24 3a 58 31 3d bb  28 5a 5a 24 29 0d 00 fa  |ZZ$:X1=.(ZZ$)...|
00000490  20 cf 23 58 3d 50 4f 49  2b 32 36 3a e8 23 58 2c  | .#X=POI+26:.#X,|
000004a0  5a 5a 24 3a 59 31 3d bb  28 5a 5a 24 29 0d 01 04  |ZZ$:Y1=.(ZZ$)...|
000004b0  20 cf 23 58 3d 50 4f 49  2b 33 30 3a e8 23 58 2c  | .#X=POI+30:.#X,|
000004c0  5a 5a 24 3a 58 32 3d bb  28 5a 5a 24 29 0d 01 0e  |ZZ$:X2=.(ZZ$)...|
000004d0  20 cf 23 58 3d 50 4f 49  2b 33 34 3a e8 23 58 2c  | .#X=POI+34:.#X,|
000004e0  5a 5a 24 3a 59 32 3d bb  28 5a 5a 24 29 0d 01 18  |ZZ$:Y2=.(ZZ$)...|
000004f0  16 cf 23 58 3d 50 4f 49  2b 33 38 3a e8 23 58 2c  |..#X=POI+38:.#X,|
00000500  54 59 24 0d 01 22 21 cf  23 58 3d 50 4f 49 2b 34  |TY$.."!.#X=POI+4|
00000510  31 3a e8 23 58 2c 5a 5a  24 3a 49 4e 25 3d bb 28  |1:.#X,ZZ$:IN%=.(|
00000520  5a 5a 24 29 0d 01 2c 21  cf 23 58 3d 50 4f 49 2b  |ZZ$)..,!.#X=POI+|
00000530  34 36 3a e8 23 58 2c 5a  5a 24 3a 54 49 25 3d bb  |46:.#X,ZZ$:TI%=.|
00000540  28 5a 5a 24 29 0d 01 36  16 cf 23 58 3d 50 4f 49  |(ZZ$)..6..#X=POI|
00000550  2b 35 34 3a e8 23 58 2c  54 52 24 0d 01 40 16 cf  |+54:.#X,TR$..@..|
00000560  23 58 3d 50 4f 49 2b 35  38 3a e8 23 58 2c 4e 50  |#X=POI+58:.#X,NP|
00000570  24 0d 01 4a 05 e1 0d 01  54 09 dd f2 4c 57 4e 0d  |$..J....T...LWN.|
00000580  01 5e 79 f1 8a 58 2c 59  29 3b bd 28 31 35 34 29  |.^y..X,Y);.(154)|
00000590  3b c4 57 25 2c bd 28 31  35 39 29 29 3b bd 28 31  |;.W%,.(159));.(1|
000005a0  35 38 29 3a e3 49 3d 59  2b 31 b8 59 2b 4c 25 3a  |58):.I=Y+1.Y+L%:|
000005b0  f1 8a 58 2c 49 29 3b bd  28 31 35 35 29 3b c4 57  |..X,I);.(155);.W|
000005c0  25 2c 22 20 22 29 3b bd  28 31 35 37 29 3a ed 49  |%," ");.(157):.I|
000005d0  3a f1 8a 58 2c 59 2b 28  4c 25 2b 31 29 29 3b bd  |:..X,Y+(L%+1));.|
000005e0  28 31 35 36 29 3b c4 57  25 2c bd 28 31 36 30 29  |(156);.W%,.(160)|
000005f0  29 3b bd 28 31 36 31 29  0d 01 68 05 e1 0d 01 72  |);.(161)..h....r|
00000600  12 dd f2 54 45 58 54 3a  2a 46 58 31 35 2c 30 0d  |...TEXT:*FX15,0.|
00000610  01 7c 0d 54 24 3d 22 22  3a 4c 3d 30 0d 01 86 17  |.|.T$="":L=0....|
00000620  e7 4c 3c 4c 25 8c f1 8a  58 2c 59 29 3b bd 28 32  |.L<L%...X,Y);.(2|
00000630  35 35 29 0d 01 90 08 49  4e 3d a5 0d 01 9a 16 e7  |55)....IN=......|
00000640  49 4e 3d 31 33 8c 4e 50  25 3d 30 3a e5 8d 64 74  |IN=13.NP%=0:..dt|
00000650  41 0d 01 a4 11 e7 49 4e  3d 31 32 37 8c e5 8d 64  |A.....IN=127...d|
00000660  56 41 0d 01 ae 15 e7 49  4e 3d 39 8c 4e 50 25 3d  |VA.....IN=9.NP%=|
00000670  31 3a e5 8d 64 74 41 0d  01 b8 0f e7 4c 3d 4c 25  |1:..dtA.....L=L%|
00000680  8c e5 8d 74 50 41 0d 01  c2 28 f1 8a 58 2c 59 29  |...tPA...(..X,Y)|
00000690  3b bd 28 49 4e 29 3a 54  24 3d 54 24 2b bd 28 49  |;.(IN):T$=T$+.(I|
000006a0  4e 29 3a 4c 3d 4c 2b 31  3a 58 3d 58 2b 31 0d 01  |N):L=L+1:X=X+1..|
000006b0  cc 09 e5 8d 74 46 41 0d  01 d6 0e e7 4c 3d 30 8c  |....tFA.....L=0.|
000006c0  e5 8d 44 7c 41 0d 01 e0  24 f1 8a 58 2c 59 29 3b  |..D|A...$..X,Y);|
000006d0  22 20 22 3a 58 3d 58 2d  31 3a 4c 3d 4c 2d 31 3a  |" ":X=X-1:L=L-1:|
000006e0  54 24 3d c0 54 24 2c 4c  29 0d 01 ea 09 e5 8d 74  |T$=.T$,L)......t|
000006f0  46 41 0d 01 f4 0e f1 8a  58 2c 59 29 3b 22 20 22  |FA......X,Y);" "|
00000700  0d 01 fe 05 e1 0d 02 08  76 db 3a fb 31 32 38 3a  |........v.:.128:|
00000710  f1 8a 32 2c 32 29 3b 22  50 52 49 4e 54 4f 55 54  |..2,2);"PRINTOUT|
00000720  20 41 42 4f 52 54 45 44  20 44 55 45 20 54 4f 20  | ABORTED DUE TO |
00000730  49 4e 43 4f 52 52 45 43  54 20 49 4e 53 45 52 54  |INCORRECT INSERT|
00000740  49 4f 4e 20 53 54 52 55  43 54 55 52 45 20 49 4e  |ION STRUCTURE IN|
00000750  20 4c 49 4e 45 20 22 3b  49 3b 22 3a 22 3a fb 46  | LINE ";I;":":.F|
00000760  47 25 3a f1 8a 32 2c 36  29 3b 44 4f 24 28 49 29  |G%:..2,6);DO$(I)|
00000770  3a ef 37 3a 2a 46 58 32  31 2c 33 0d 02 12 22 c8  |:.7:*FX21,3...".|
00000780  97 20 55 2c 55 2c 42 55  54 3a e7 42 55 54 3d 30  |. U,U,BUT:.BUT=0|
00000790  8c e5 8d 54 52 42 3a 8b  e5 8d 54 74 43 0d 02 1c  |...TRB:...TtC...|
000007a0  9d dd f2 44 4e 53 43 3a  f2 45 52 57 49 4e 3a f1  |...DNSC:.ERWIN:.|
000007b0  8a 32 30 2c 31 32 29 3b  22 44 6f 63 75 6d 65 6e  |.20,12);"Documen|
000007c0  74 20 53 74 69 6c 6c 20  49 6e 20 4d 65 6d 6f 72  |t Still In Memor|
000007d0  79 21 22 3b 8a 32 30 2c  31 34 29 3b 22 43 6f 6e  |y!";.20,14);"Con|
000007e0  74 69 6e 75 65 3f 20 22  3b 3a f2 59 4e 3a e7 59  |tinue? ";:.YN:.Y|
000007f0  4e 3d 31 8c e3 49 3d 31  b8 54 4c 25 3a 44 4f 24  |N=1..I=1.TL%:DO$|
00000800  28 49 29 3d 22 22 3a ed  49 3a 44 4f 24 28 31 29  |(I)="":.I:DO$(1)|
00000810  3d c4 37 30 2c 22 20 22  29 3a 4c 49 25 3d 31 3a  |=.70," "):LI%=1:|
00000820  54 4c 25 3d 31 3a 53 4c  25 3d 31 3a 44 4f 43 24  |TL%=1:SL%=1:DOC$|
00000830  3d 22 6e 6f 20 66 69 6c  65 22 0d 02 26 05 e1 0d  |="no file"..&...|
00000840  02 30 41 f1 8a 30 2c 59  32 29 3b 44 4f 24 28 4c  |.0A..0,Y2);DO$(L|
00000850  49 25 29 3a 50 53 25 3d  58 32 2b 31 3a 41 25 3d  |I%):PS%=X2+1:A%=|
00000860  97 28 c1 44 4f 24 28 4c  49 25 29 2c 50 53 25 2c  |.(.DO$(LI%),PS%,|
00000870  31 29 29 3a e7 50 53 25  3d 31 8c e5 8d 54 4a 45  |1)):.PS%=1...TJE|
00000880  0d 02 3a 3d 50 53 25 3d  50 53 25 2d 31 3a e7 c1  |..:=PS%=PS%-1:..|
00000890  44 4f 24 28 4c 49 25 29  2c 50 53 25 2c 31 29 3d  |DO$(LI%),PS%,1)=|
000008a0  22 20 22 8c e5 8d 44 4e  42 3a 8b e7 50 53 25 3c  |" "...DNB:..PS%<|
000008b0  3d 31 8c 58 32 3d 30 3a  e5 8d 54 4a 45 0d 02 44  |=1.X2=0:..TJE..D|
000008c0  20 41 25 3d 97 28 c1 44  4f 24 28 4c 49 25 29 2c  | A%=.(.DO$(LI%),|
000008d0  50 53 25 2c 31 29 29 3a  e5 8d 54 7a 42 0d 02 4e  |PS%,1)):..TzB..N|
000008e0  27 e7 41 25 3d 33 32 8c  41 25 3d 97 28 c1 44 4f  |'.A%=32.A%=.(.DO|
000008f0  24 28 4c 49 25 29 2c 50  53 25 2c 31 29 29 3a e5  |$(LI%),PS%,1)):.|
00000900  8d 54 7a 42 0d 02 58 12  58 32 3d 50 53 25 2d 31  |.TzB..X.X2=PS%-1|
00000910  3a e5 8d 54 4a 45 0d 02  62 42 f1 8a 30 2c 59 32  |:..TJE..bB..0,Y2|
00000920  29 3b 44 4f 24 28 4c 49  25 29 3a 50 53 25 3d 58  |);DO$(LI%):PS%=X|
00000930  32 2b 31 3a 41 25 3d 97  28 c1 44 4f 24 28 4c 49  |2+1:A%=.(.DO$(LI|
00000940  25 29 2c 50 53 25 2c 31  29 29 3a e7 50 53 25 3d  |%),PS%,1)):.PS%=|
00000950  37 30 8c e5 8d 54 4a 45  0d 02 6c 3f 50 53 25 3d  |70...TJE..l?PS%=|
00000960  50 53 25 2b 31 3a e7 c1  44 4f 24 28 4c 49 25 29  |PS%+1:..DO$(LI%)|
00000970  2c 50 53 25 2c 31 29 3d  22 20 22 8c e5 8d 74 40  |,PS%,1)=" "...t@|
00000980  42 3a 8b e7 50 53 25 3e  3d 37 30 8c 58 32 3d 36  |B:..PS%>=70.X2=6|
00000990  39 3a e5 8d 54 4a 45 0d  02 76 20 41 25 3d 97 28  |9:..TJE..v A%=.(|
000009a0  c1 44 4f 24 28 4c 49 25  29 2c 50 53 25 2c 31 29  |.DO$(LI%),PS%,1)|
000009b0  29 3a e5 8d 44 6c 42 0d  02 80 27 e7 41 25 3d 33  |):..DlB...'.A%=3|
000009c0  32 8c 41 25 3d 97 28 c1  44 4f 24 28 4c 49 25 29  |2.A%=.(.DO$(LI%)|
000009d0  2c 50 53 25 2c 31 29 29  3a e5 8d 44 6c 42 0d 02  |,PS%,1)):..DlB..|
000009e0  8a 12 58 32 3d 50 53 25  2d 31 3a e5 8d 54 4a 45  |..X2=PS%-1:..TJE|
000009f0  0d 02 94 83 54 31 24 3d  c0 44 4f 24 28 4c 49 25  |....T1$=.DO$(LI%|
00000a00  29 2c 58 32 29 3a 54 32  24 3d c2 44 4f 24 28 4c  |),X2):T2$=.DO$(L|
00000a10  49 25 29 2c 28 37 30 2d  58 32 29 29 3a 44 4f 24  |I%),(70-X2)):DO$|
00000a20  28 4c 49 25 29 3d 54 31  24 2b bd 28 49 4e 29 2b  |(LI%)=T1$+.(IN)+|
00000a30  54 32 24 3a e7 c2 44 4f  24 28 4c 49 25 29 2c 31  |T2$:..DO$(LI%),1|
00000a40  29 3d 22 20 22 8c 44 4f  24 28 4c 49 25 29 3d c0  |)=" ".DO$(LI%)=.|
00000a50  44 4f 24 28 4c 49 25 29  2c 37 30 29 3a f1 8a 30  |DO$(LI%),70):..0|
00000a60  2c 59 32 29 3b 44 4f 24  28 4c 49 25 29 3a e5 8d  |,Y2);DO$(LI%):..|
00000a70  64 6e 42 0d 02 9e 38 e7  57 57 25 3d 30 8c 44 4f  |dnB...8.WW%=0.DO|
00000a80  24 28 4c 49 25 29 3d c0  44 4f 24 28 4c 49 25 29  |$(LI%)=.DO$(LI%)|
00000a90  2c 37 30 29 3a f1 8a 30  2c 59 32 29 3b 44 4f 24  |,70):..0,Y2);DO$|
00000aa0  28 4c 49 25 29 3a e5 8d  64 6e 42 0d 02 a8 0d 53  |(LI%):..dnB....S|
00000ab0  4c 49 25 3d 4c 49 25 3a  0d 02 b2 6b 50 53 25 3d  |LI%=LI%:...kPS%=|
00000ac0  a9 28 44 4f 24 28 53 4c  49 25 29 29 3a 57 57 24  |.(DO$(SLI%)):WW$|
00000ad0  3d c2 44 4f 24 28 53 4c  49 25 29 2c a9 28 44 4f  |=.DO$(SLI%),.(DO|
00000ae0  24 28 53 4c 49 25 29 29  2d 37 30 29 3a e7 57 57  |$(SLI%))-70):.WW|
00000af0  24 3d c4 a9 28 57 57 24  29 2c 22 20 22 29 8c 44  |$=..(WW$)," ").D|
00000b00  4f 24 28 53 4c 49 25 29  3d c0 44 4f 24 28 53 4c  |O$(SLI%)=.DO$(SL|
00000b10  49 25 29 2c 37 30 29 3a  f2 42 55 44 47 3a e5 8d  |I%),70):.BUDG:..|
00000b20  64 6e 42 0d 02 bc 36 e7  c1 44 4f 24 28 53 4c 49  |dnB...6..DO$(SLI|
00000b30  25 29 2c 50 53 25 2c 31  29 3d 22 20 22 20 80 20  |%),PS%,1)=" " . |
00000b40  50 53 25 3c 3d 37 30 20  8c e5 8d 64 50 42 3a 8b  |PS%<=70 ...dPB:.|
00000b50  50 53 25 3d 50 53 25 2d  31 0d 02 c6 3f e7 50 53  |PS%=PS%-1...?.PS|
00000b60  25 3c 31 8c 44 4f 24 28  4c 49 25 29 3d c0 44 4f  |%<1.DO$(LI%)=.DO|
00000b70  24 28 4c 49 25 29 2c 37  30 29 3a f1 8a 30 2c 59  |$(LI%),70):..0,Y|
00000b80  32 29 3b 44 4f 24 28 4c  49 25 29 3a e5 8d 64 6e  |2);DO$(LI%):..dn|
00000b90  42 3a 8b e5 8d 74 7c 42  0d 02 d0 4c 57 57 32 24  |B:...t|B...LWW2$|
00000ba0  3d c1 44 4f 24 28 53 4c  49 25 29 2c 28 50 53 25  |=.DO$(SLI%),(PS%|
00000bb0  2b 31 29 29 3a 44 4f 24  28 53 4c 49 25 29 3d c0  |+1)):DO$(SLI%)=.|
00000bc0  44 4f 24 28 53 4c 49 25  29 2c 50 53 25 29 2b c4  |DO$(SLI%),PS%)+.|
00000bd0  37 30 2d 50 53 25 2c 22  20 22 29 3a f2 57 57 32  |70-PS%," "):.WW2|
00000be0  54 52 49 4d 0d 02 da 3c  53 4c 49 25 3d 53 4c 49  |TRIM...<SLI%=SLI|
00000bf0  25 2b 31 3a e7 53 4c 49  25 3e 54 4c 25 8c 54 4c  |%+1:.SLI%>TL%.TL|
00000c00  25 3d 54 4c 25 2b 31 3a  f2 54 4c 43 48 4b 3a 44  |%=TL%+1:.TLCHK:D|
00000c10  4f 24 28 54 4c 25 29 3d  c4 37 30 2c 22 20 22 29  |O$(TL%)=.70," ")|
00000c20  0d 02 e4 26 44 4f 24 28  53 4c 49 25 29 3d 57 57  |...&DO$(SLI%)=WW|
00000c30  32 24 2b 22 20 22 2b 44  4f 24 28 53 4c 49 25 29  |2$+" "+DO$(SLI%)|
00000c40  3a e5 8d 74 72 42 0d 02  ee 11 58 32 3d 58 32 2b  |:..trB....X2=X2+|
00000c50  31 3a e5 8d 54 4a 45 0d  02 f8 24 dd f2 54 4c 43  |1:..TJE...$..TLC|
00000c60  48 4b 3a e7 54 4c 25 3e  6e 6f 6c 25 8c 54 4c 25  |HK:.TL%>nol%.TL%|
00000c70  3d 6e 6f 6c 25 3a e5 8d  54 4a 45 0d 03 02 05 e1  |=nol%:..TJE.....|
00000c80  0d 03 0c 2f dd f2 57 57  32 54 52 49 4d 3a 57 57  |.../..WW2TRIM:WW|
00000c90  32 25 3d a9 28 57 57 32  24 29 3a e7 c2 57 57 32  |2%=.(WW2$):..WW2|
00000ca0  24 2c 31 29 3c 3e 22 20  22 8c e5 8d 54 60 43 0d  |$,1)<>" "...T`C.|
00000cb0  03 16 41 e7 c1 57 57 32  24 2c 57 57 32 25 2c 31  |..A..WW2$,WW2%,1|
00000cc0  29 3c 3e 22 20 22 8c 57  57 32 24 3d c0 57 57 32  |)<>" ".WW2$=.WW2|
00000cd0  24 2c 57 57 32 25 29 3a  e5 8d 54 60 43 3a 8b 57  |$,WW2%):..T`C:.W|
00000ce0  57 32 25 3d 57 57 32 25  2d 31 3a e5 8d 54 56 43  |W2%=WW2%-1:..TVC|
00000cf0  0d 03 20 05 e1 0d 03 2a  1e e7 46 49 24 3d 22 2a  |.. ....*..FI$="*|
00000d00  4e 4f 4e 45 2a 22 8c e5  8d 54 74 43 3a 8b f2 4d  |NONE*"...TtC:..M|
00000d10  41 49 4e 0d 03 34 5a c8  97 20 ee 3a db 3a ef 31  |AIN..4Z.. .:.:.1|
00000d20  35 3a 58 3d 32 33 3a 59  3d 34 3a 57 25 3d 33 30  |5:X=23:Y=4:W%=30|
00000d30  3a 4c 25 3d 31 3a f2 4c  57 4e 3a fb 31 33 31 3a  |:L%=1:.LWN:.131:|
00000d40  f1 8a 32 34 2c 35 29 3b  22 44 61 74 61 56 69 73  |..24,5);"DataVis|
00000d50  69 6f 6e 20 57 6f 72 64  20 50 72 6f 63 65 73 73  |ion Word Process|
00000d60  6f 72 20 4d 65 6e 75 22  3a fb 46 47 25 0d 03 3e  |or Menu":.FG%..>|
00000d70  75 58 3d 31 36 3a 59 3d  32 34 3a 4c 25 3d 31 3a  |uX=16:Y=24:L%=1:|
00000d80  57 25 3d 34 36 3a fb 31  32 38 3a f2 4c 57 4e 3a  |W%=46:.128:.LWN:|
00000d90  f1 8a 31 37 2c 32 35 29  3b 22 44 6f 63 75 6d 65  |..17,25);"Docume|
00000da0  6e 74 20 4e 61 6d 65 3a  20 22 3b 3a fb 31 33 31  |nt Name: ";:.131|
00000db0  3a f1 44 4f 43 24 3a fb  31 32 38 3a f1 8a 34 32  |:.DOC$:.128:..42|
00000dc0  2c 32 35 29 3b 22 46 69  6c 65 20 4e 61 6d 65 3a  |,25);"File Name:|
00000dd0  20 22 3b 3a fb 31 33 31  3a f1 46 49 24 3a fb 46  | ";:.131:.FI$:.F|
00000de0  47 25 0d 03 48 df 58 3d  32 39 3a 59 3d 39 3a 57  |G%..H.X=29:Y=9:W|
00000df0  25 3d 31 38 3a 4c 25 3d  31 31 3a f2 4c 57 4e 3a  |%=18:L%=11:.LWN:|
00000e00  4d 45 24 28 31 29 3d 22  43 72 65 61 74 65 20 20  |ME$(1)="Create  |
00000e10  20 20 20 20 20 20 20 22  3a 4d 45 24 28 32 29 3d  |       ":ME$(2)=|
00000e20  22 45 64 69 74 22 3a 4d  45 24 28 33 29 3d 22 4c  |"Edit":ME$(3)="L|
00000e30  6f 61 64 20 44 6f 63 75  6d 65 6e 74 22 3a 4d 45  |oad Document":ME|
00000e40  24 28 34 29 3d 22 53 61  76 65 20 44 6f 63 75 6d  |$(4)="Save Docum|
00000e50  65 6e 74 22 3a 4d 45 24  28 35 29 3d 22 45 78 70  |ent":ME$(5)="Exp|
00000e60  6f 72 74 20 44 6f 63 75  6d 65 6e 74 22 3a 4d 45  |ort Document":ME|
00000e70  24 28 36 29 3d 22 49 6d  70 6f 72 74 20 44 6f 63  |$(6)="Import Doc|
00000e80  75 6d 65 6e 74 22 3a 4d  45 24 28 37 29 3d 22 4d  |ument":ME$(7)="M|
00000e90  61 69 6c 6d 65 72 67 65  22 3a 4d 45 24 28 38 29  |ailmerge":ME$(8)|
00000ea0  3d 22 50 72 69 6e 74 20  44 6f 63 75 6d 65 6e 74  |="Print Document|
00000eb0  22 3a 4d 45 24 28 39 29  3d 22 53 79 73 74 65 6d  |":ME$(9)="System|
00000ec0  22 0d 03 52 42 4d 45 24  28 31 30 29 3d 22 56 69  |"..RBME$(10)="Vi|
00000ed0  65 77 20 44 6f 63 75 6d  65 6e 74 22 3a 4d 45 24  |ew Document":ME$|
00000ee0  28 31 31 29 3d 22 51 75  69 74 22 3a 58 3d 33 30  |(11)="Quit":X=30|
00000ef0  3a 59 3d 31 30 3a 4c 25  3d 31 31 3a f2 53 45 4c  |:Y=10:L%=11:.SEL|
00000f00  45 43 54 0d 03 5c 11 e7  53 45 4c 25 3d 38 8c e5  |ECT..\..SEL%=8..|
00000f10  8d 54 76 4b 0d 03 66 11  e7 53 45 4c 25 3d 36 8c  |.TvK..f..SEL%=6.|
00000f20  e5 8d 44 66 4d 0d 03 70  12 e7 53 45 4c 25 3d 31  |..DfM..p..SEL%=1|
00000f30  31 8c e5 8d 64 5e 43 0d  03 7a 11 e7 53 45 4c 25  |1...d^C..z..SEL%|
00000f40  3d 39 8c e5 8d 74 40 4c  0d 03 84 11 e7 53 45 4c  |=9...t@L.....SEL|
00000f50  25 3d 33 8c e5 8d 44 42  44 0d 03 8e 11 e7 53 45  |%=3...DBD.....SE|
00000f60  4c 25 3d 31 8c e5 8d 74  66 44 0d 03 98 19 e7 44  |L%=1...tfD.....D|
00000f70  4f 43 24 3d 22 6e 6f 20  66 69 6c 65 22 8c e5 8d  |OC$="no file"...|
00000f80  44 48 43 0d 03 a2 11 e7  53 45 4c 25 3d 32 8c e5  |DHC.....SEL%=2..|
00000f90  8d 64 58 44 0d 03 ac 11  e7 53 45 4c 25 3d 38 8c  |.dXD.....SEL%=8.|
00000fa0  e5 8d 54 76 4b 0d 03 b6  11 e7 53 45 4c 25 3d 37  |..TvK.....SEL%=7|
00000fb0  8c e5 8d 44 5e 4b 0d 03  c0 11 e7 53 45 4c 25 3d  |...D^K.....SEL%=|
00000fc0  34 8c e5 8d 54 46 44 0d  03 ca 11 e7 53 45 4c 25  |4...TFD.....SEL%|
00000fd0  3d 35 8c e5 8d 54 7a 4c  0d 03 d4 12 e7 53 45 4c  |=5...TzL.....SEL|
00000fe0  25 3d 31 30 8c e5 8d 44  6c 4c 0d 03 de 2c e7 44  |%=10...DlL...,.D|
00000ff0  4f 43 24 3d 22 6e 6f 20  66 69 6c 65 22 8c e5 8d  |OC$="no file"...|
00001000  44 60 4e 3a 8b f2 44 4e  53 43 3a e7 59 4e 3d 30  |D`N:..DNSC:.YN=0|
00001010  8c e5 8d 54 74 43 0d 03  e8 09 e5 8d 44 60 4e 0d  |...TtC......D`N.|
00001020  03 f2 09 e5 8d 44 48 43  0d 03 fc 7a db 3a f1 8a  |.....DHC...z.:..|
00001030  32 2c 32 29 3b 22 45 6e  74 65 72 20 6e 65 77 20  |2,2);"Enter new |
00001040  66 69 6c 65 6e 61 6d 65  20 6f 72 20 70 72 65 73  |filename or pres|
00001050  73 20 52 45 54 55 52 4e  20 74 6f 20 72 65 74 75  |s RETURN to retu|
00001060  72 6e 20 74 6f 20 74 68  65 20 6d 65 6e 75 2e 2e  |rn to the menu..|
00001070  2e 22 3a 58 3d 32 3a 59  3d 34 3a 4c 25 3d 31 30  |.":X=2:Y=4:L%=10|
00001080  3a f2 54 45 58 54 3a e7  54 24 3d 22 22 8c e5 8d  |:.TEXT:.T$=""...|
00001090  54 74 43 3a 8b 44 4f 43  24 3d 54 24 3a e5 8d 54  |TtC:.DOC$=T$:..T|
000010a0  46 44 0d 04 06 19 e7 44  4f 43 24 3d 22 6e 6f 20  |FD.....DOC$="no |
000010b0  66 69 6c 65 22 8c e5 8d  54 74 43 0d 04 10 78 58  |file"...TtC...xX|
000010c0  3d 32 30 3a 59 3d 31 34  3a 57 25 3d 32 32 3a 4c  |=20:Y=14:W%=22:L|
000010d0  25 3d 33 3a f2 4c 57 4e  3a 4d 45 24 28 31 29 3d  |%=3:.LWN:ME$(1)=|
000010e0  22 53 61 76 65 20 6e 6f  77 22 3a 4d 45 24 28 32  |"Save now":ME$(2|
000010f0  29 3d 22 43 68 61 6e 67  65 20 64 6f 63 75 6d 65  |)="Change docume|
00001100  6e 74 20 6e 61 6d 65 22  3a 4d 45 24 28 33 29 3d  |nt name":ME$(3)=|
00001110  22 41 62 6f 72 74 20 73  61 76 65 22 3a 58 3d 32  |"Abort save":X=2|
00001120  31 3a 59 3d 31 35 3a 4c  25 3d 33 3a f2 53 45 4c  |1:Y=15:L%=3:.SEL|
00001130  45 43 54 0d 04 1a 1b ee  20 53 45 4c 25 20 e5 20  |ECT..... SEL% . |
00001140  8d 54 64 44 2c 8d 54 78  44 2c 8d 54 74 43 0d 04  |.TdD,.TxD,.TtC..|
00001150  24 30 ff 22 43 4c 4f 53  45 22 3a 44 4f 24 28 30  |$0."CLOSE":DO$(0|
00001160  29 3d c3 28 54 4c 25 29  3a e7 54 4c 25 3d 30 8c  |)=.(TL%):.TL%=0.|
00001170  ff 22 43 4c 4f 53 45 22  3a e5 8d 54 74 43 0d 04  |."CLOSE":..TtC..|
00001180  2e 3a 58 3d ae a4 4d 79  46 69 6c 65 28 44 4f 43  |.:X=..MyFile(DOC|
00001190  24 29 3a e3 49 3d 30 b8  54 4c 25 3a f1 23 58 2c  |$):.I=0.TL%:.#X,|
000011a0  44 4f 24 28 49 29 3a ed  49 3a ff 22 43 4c 4f 53  |DO$(I):.I:."CLOS|
000011b0  45 22 3a e5 8d 54 74 43  0d 04 38 74 58 3d 32 30  |E":..TtC..8tX=20|
000011c0  3a 59 3d 32 30 3a 57 25  3d 33 37 3a 4c 25 3d 31  |:Y=20:W%=37:L%=1|
000011d0  3a f2 4c 57 4e 3a f1 8a  32 31 2c 32 31 29 3b 22  |:.LWN:..21,21);"|
000011e0  45 6e 74 65 72 20 44 6f  63 75 6d 65 6e 74 20 66  |Enter Document f|
000011f0  69 6c 65 6e 61 6d 65 3a  20 22 3b 3a 58 3d b1 3a  |ilename: ";:X=.:|
00001200  59 3d 32 31 3a 4c 25 3d  31 30 3a f2 54 45 58 54  |Y=21:L%=10:.TEXT|
00001210  3a e7 54 24 3d 22 22 8c  e5 8d 54 74 43 3a 8b 44  |:.T$=""...TtC:.D|
00001220  4f 43 24 3d 54 24 3a e5  8d 54 74 43 0d 04 42 26  |OC$=T$:..TtC..B&|
00001230  e7 44 4f 43 24 3c 3e 22  6e 6f 20 66 69 6c 65 22  |.DOC$<>"no file"|
00001240  8c f2 44 4e 53 43 3a e7  59 4e 3d 30 8c e5 8d 54  |..DNSC:.YN=0...T|
00001250  74 43 0d 04 4c 0b ee 85  e5 8d 44 7e 44 0d 04 56  |tC..L.....D~D..V|
00001260  7d db 3a ff 22 43 41 54  20 3c 44 61 74 61 56 69  |}.:."CAT <DataVi|
00001270  73 69 6f 6e 24 44 69 72  3e 22 3a 58 3d 32 3a 59  |sion$Dir>":X=2:Y|
00001280  3d 31 36 3a 57 25 3d 34  30 3a 4c 25 3d 31 3a f2  |=16:W%=40:L%=1:.|
00001290  4c 57 4e 3a f1 8a 33 2c  31 37 29 3b 22 45 6e 74  |LWN:..3,17);"Ent|
000012a0  65 72 20 44 6f 63 75 6d  65 6e 74 20 66 69 6c 65  |er Document file|
000012b0  6e 61 6d 65 3a 20 22 3b  3a 58 3d b1 3a 59 3d 31  |name: ";:X=.:Y=1|
000012c0  37 3a 4c 25 3d 31 30 3a  f2 54 45 58 54 3a e7 54  |7:L%=10:.TEXT:.T|
000012d0  24 3d 22 22 8c e5 8d 74  52 44 0d 04 60 6a ff 22  |$=""...tRD..`j."|
000012e0  43 4c 4f 53 45 22 3a 58  3d ad a4 4d 79 46 69 6c  |CLOSE":X=..MyFil|
000012f0  65 28 54 24 29 3a e8 23  58 2c 44 4f 24 28 30 29  |e(T$):.#X,DO$(0)|
00001300  3a e3 49 3d 31 b8 bb 28  44 4f 24 28 30 29 29 3a  |:.I=1..(DO$(0)):|
00001310  e8 23 58 2c 44 4f 24 28  49 29 3a ed 49 3a ff 22  |.#X,DO$(I):.I:."|
00001320  43 4c 4f 53 45 22 3a 44  4f 43 24 3d 54 24 3a 54  |CLOSE":DOC$=T$:T|
00001330  4c 25 3d bb 28 44 4f 24  28 30 29 29 3a ee 85 e5  |L%=.(DO$(0)):...|
00001340  8d 74 5c 4e 0d 04 6a 09  e5 8d 54 74 43 0d 04 74  |.t\N..j...TtC..t|
00001350  0c f6 3a f1 9f 2c 9e 3a  fa 0d 04 7e 77 f2 45 52  |..:..,.:...~w.ER|
00001360  57 49 4e 3a fb 31 38 30  3a f1 8a 32 30 2c 31 32  |WIN:.180:..20,12|
00001370  29 3b 22 43 61 6e 6e 6f  74 20 66 69 6e 64 20 74  |);"Cannot find t|
00001380  68 65 20 22 3b 54 24 3b  22 20 64 6f 63 75 6d 65  |he ";T$;" docume|
00001390  6e 74 3a 22 3b 8a 32 30  2c 31 34 29 3b 22 43 6c  |nt:";.20,14);"Cl|
000013a0  69 63 6b 20 6d 6f 75 73  65 20 74 6f 20 63 6f 6e  |ick mouse to con|
000013b0  74 69 6e 75 65 2e 2e 2e  22 3a ef 37 3a fb 46 47  |tinue...":.7:.FG|
000013c0  25 3a f2 4d 4b 4c 49 4b  3a ee 85 e5 8d 74 5c 4e  |%:.MKLIK:....t\N|
000013d0  0d 04 88 09 e5 8d 54 74  43 0d 04 92 0b ee 85 e5  |......TtC.......|
000013e0  8d 74 5c 4e 0d 04 9c 09  e5 8d 54 74 43 0d 04 a6  |.t\N......TtC...|
000013f0  26 e7 44 4f 43 24 3c 3e  22 6e 6f 20 66 69 6c 65  |&.DOC$<>"no file|
00001400  22 8c f2 44 4e 53 43 3a  e7 59 4e 3d 30 8c e5 8d  |"..DNSC:.YN=0...|
00001410  54 74 43 0d 04 b0 38 44  4f 43 24 3d 22 55 6e 74  |TtC...8DOC$="Unt|
00001420  69 74 6c 65 64 22 3a 4c  49 25 3d 31 3a 54 4c 25  |itled":LI%=1:TL%|
00001430  3d 31 3a 58 32 3d 30 3a  59 32 3d 35 3a 53 4c 25  |=1:X2=0:Y2=5:SL%|
00001440  3d 31 3a ff 22 46 58 34  2c 31 22 0d 04 ba 0b db  |=1:."FX4,1".....|
00001450  3a e5 8d 64 76 44 0d 04  c4 49 dd f2 49 4f 3a e7  |:..dvD...I..IO:.|
00001460  49 4e 53 25 3d 31 8c f1  8a 35 35 2c 32 29 3b 22  |INS%=1...55,2);"|
00001470  49 4e 53 45 52 54 20 4d  4f 44 45 20 20 20 20 20  |INSERT MODE     |
00001480  22 3a 8b f1 8a 35 35 2c  32 29 3b 22 4f 56 45 52  |":...55,2);"OVER|
00001490  57 52 49 54 45 20 4d 4f  44 45 20 20 20 20 22 0d  |WRITE MODE    ".|
000014a0  04 ce 05 e1 0d 04 d8 22  4c 49 25 3d 31 3a 58 32  |......."LI%=1:X2|
000014b0  3d 30 3a 59 32 3d 35 3a  53 4c 25 3d 31 3a ff 22  |=0:Y2=5:SL%=1:."|
000014c0  46 58 34 2c 31 22 0d 04  e2 26 e7 44 4f 43 24 3d  |FX4,1"...&.DOC$=|
000014d0  22 6e 6f 20 66 69 6c 65  22 8c d4 31 2c 2d 31 35  |"no file"..1,-15|
000014e0  2c 31 35 30 2c 35 3a e5  8d 54 74 43 0d 04 ec 28  |,150,5:..TtC...(|
000014f0  db 3a 4c 3d 35 3a e3 49  3d 31 b8 32 35 3a f1 8a  |.:L=5:.I=1.25:..|
00001500  30 2c 4c 29 3b 44 4f 24  28 49 29 3a 4c 3d 4c 2b  |0,L);DO$(I):L=L+|
00001510  31 3a ed 49 0d 04 f6 33  c8 97 20 87 3a fb 31 32  |1:.I...3.. .:.12|
00001520  30 3a f1 8a 30 2c 34 29  3b c4 31 31 2c 22 86 87  |0:..0,4);.11,"..|
00001530  87 87 87 87 22 29 3b 22  86 87 87 87 22 3a fb 31  |....");"....":.1|
00001540  32 37 3a fb 46 47 25 0d  05 00 09 e5 8d 54 4a 45  |27:.FG%......TJE|
00001550  0d 05 0a aa fb 31 33 31  3a fb 30 3a f1 8a 58 32  |.....131:.0:..X2|
00001560  2c 59 32 29 3b c1 44 4f  24 28 4c 49 25 29 2c 58  |,Y2);.DO$(LI%),X|
00001570  32 2b 31 2c 31 29 3a fb  46 47 25 3a fb 31 32 37  |2+1,1):.FG%:.127|
00001580  3a f1 8a 36 2c 33 29 3b  22 4c 69 6e 65 3a 20 22  |:..6,3);"Line: "|
00001590  3b 4c 49 25 3b 22 20 20  43 6f 6c 3a 20 22 3b 58  |;LI%;"  Col: ";X|
000015a0  32 3b 22 20 20 44 6f 63  75 6d 65 6e 74 3a 20 22  |2;"  Document: "|
000015b0  3b 44 4f 43 24 3b 22 20  20 20 20 20 20 20 22 3b  |;DOC$;"       ";|
000015c0  3a f2 49 4f 3a e7 57 57  25 3d 31 8c f1 8a 35 35  |:.IO:.WW%=1...55|
000015d0  2c 33 29 3b 22 57 4f 52  44 57 52 41 50 20 4f 4e  |,3);"WORDWRAP ON|
000015e0  20 22 3a 8b f1 8a 35 35  2c 33 29 3b 22 57 4f 52  | ":...55,3);"WOR|
000015f0  44 57 52 41 50 20 4f 46  46 22 0d 05 14 12 fb 46  |DWRAP OFF".....F|
00001600  47 25 3a c8 97 20 87 3a  49 4e 3d a5 0d 05 1e 11  |G%:.. .:IN=.....|
00001610  e7 49 4e 3d 31 33 36 8c  e5 8d 74 74 45 0d 05 28  |.IN=136...ttE..(|
00001620  0f e7 49 4e 3d 38 8c e5  8d 64 4c 46 0d 05 32 11  |..IN=8...dLF..2.|
00001630  e7 49 4e 3d 31 33 37 8c  e5 8d 54 62 46 0d 05 3c  |.IN=137...TbF..<|
00001640  11 e7 49 4e 3d 31 33 38  8c e5 8d 44 40 46 0d 05  |..IN=138...D@F..|
00001650  46 11 e7 49 4e 3d 31 33  39 8c e5 8d 44 68 46 0d  |F..IN=139...DhF.|
00001660  05 50 11 e7 49 4e 3d 31  32 37 8c e5 8d 64 60 46  |.P..IN=127...d`F|
00001670  0d 05 5a 10 e7 49 4e 3d  31 33 8c e5 8d 64 7a 45  |..Z..IN=13...dzE|
00001680  0d 05 64 12 e7 49 4e 3e  3d 31 34 30 8c e5 8d 64  |..d..IN>=140...d|
00001690  7e 46 0d 05 6e 0f e7 49  4e 3d 39 8c e5 8d 74 78  |~F..n..IN=9...tx|
000016a0  46 0d 05 78 10 e7 49 4e  3c 33 32 8c e5 8d 54 54  |F..x..IN<32...TT|
000016b0  45 0d 05 82 82 f1 8a 58  32 2c 59 32 29 3b bd 28  |E......X2,Y2);.(|
000016c0  49 4e 29 3a e7 49 4e 53  25 3d 30 20 84 20 58 32  |IN):.INS%=0 . X2|
000016d0  3d 36 39 20 8c 54 31 24  3d c0 44 4f 24 28 4c 49  |=69 .T1$=.DO$(LI|
000016e0  25 29 2c 58 32 29 3a 4c  25 3d 28 58 32 2b 31 29  |%),X2):L%=(X2+1)|
000016f0  3a 54 32 24 3d c2 44 4f  24 28 4c 49 25 29 2c 28  |:T2$=.DO$(LI%),(|
00001700  37 30 2d 4c 25 29 29 3a  44 4f 24 28 4c 49 25 29  |70-L%)):DO$(LI%)|
00001710  3d 54 31 24 2b bd 28 49  4e 29 2b 54 32 24 3a 58  |=T1$+.(IN)+T2$:X|
00001720  32 3d 58 32 2b 31 3a e7  58 32 3e 36 39 8c e5 8d  |2=X2+1:.X2>69...|
00001730  74 60 45 0d 05 8c 11 e7  49 4e 53 25 3d 30 8c e5  |t`E.....INS%=0..|
00001740  8d 54 4a 45 0d 05 96 09  e5 8d 74 54 42 0d 05 a0  |.TJE......tTB...|
00001750  19 e7 4c 49 25 3d 6e 6f  6c 25 8c 58 32 3d 36 39  |..LI%=nol%.X2=69|
00001760  3a e5 8d 54 4a 45 0d 05  aa 0f f2 57 52 41 50 3a  |:..TJE.....WRAP:|
00001770  e5 8d 64 7a 45 0d 05 b4  0f e7 58 32 3d 30 8c e5  |..dzE.....X2=0..|
00001780  8d 54 40 45 0d 05 be 2c  e7 a6 28 2d 32 29 3d b9  |.T@E...,..(-2)=.|
00001790  20 8c 49 4e 3d 31 34 38  3a e5 8d 64 7e 46 3a 8b  | .IN=148:..d~F:.|
000017a0  20 e7 a6 28 2d 31 29 3d  b9 20 8c e5 8d 54 70 42  | ..(-1)=. ...TpB|
000017b0  0d 05 c8 22 58 32 3d 58  32 2d 31 3a f1 8a 30 2c  |..."X2=X2-1:..0,|
000017c0  59 32 29 3b 44 4f 24 28  4c 49 25 29 3a e5 8d 54  |Y2);DO$(LI%):..T|
000017d0  40 45 0d 05 d2 0a dd f2  42 55 44 47 0d 05 dc 43  |@E......BUDG...C|
000017e0  46 4c 25 3d 53 4c 25 2b  32 34 3a ff 22 46 58 32  |FL%=SL%+24:."FX2|
000017f0  31 2c 30 22 3a e7 46 4c  25 3e 6e 6f 6c 25 8c 46  |1,0":.FL%>nol%.F|
00001800  4c 25 3d 6e 6f 6c 25 20  8b 20 e7 20 46 4c 25 3e  |L%=nol% . . FL%>|
00001810  54 4c 25 20 8c 20 46 4c  25 20 3d 20 54 4c 25 0d  |TL% . FL% = TL%.|
00001820  05 e6 3d 4c 3d 35 3a e3  49 3d 53 4c 25 b8 46 4c  |..=L=5:.I=SL%.FL|
00001830  25 3a f1 8a 30 2c 4c 29  3b 44 4f 24 28 49 29 3a  |%:..0,L);DO$(I):|
00001840  4c 3d 4c 2b 31 3a ed 49  3a ef 32 38 2c 30 2c 33  |L=L+1:.I:.28,0,3|
00001850  31 2c 37 39 2c 4c 3a db  3a ef 32 36 0d 05 f0 05  |1,79,L:.:.26....|
00001860  e1 0d 05 fa 24 f1 8a 30  2c 59 32 29 3b 44 4f 24  |....$..0,Y2);DO$|
00001870  28 4c 49 25 29 3a e7 4c  49 25 3d 6e 6f 6c 25 8c  |(LI%):.LI%=nol%.|
00001880  e5 8d 54 4a 45 0d 06 04  28 e7 54 4c 25 3d 4c 49  |..TJE...(.TL%=LI|
00001890  25 8c 54 4c 25 3d 54 4c  25 2b 31 3a 44 4f 24 28  |%.TL%=TL%+1:DO$(|
000018a0  54 4c 25 29 3d c4 37 30  2c 22 20 22 29 0d 06 0e  |TL%)=.70," ")...|
000018b0  56 e7 59 32 3d 32 39 8c  53 4c 25 3d 53 4c 25 2b  |V.Y2=29.SL%=SL%+|
000018c0  31 3a ef 32 38 2c 30 2c  32 39 2c 37 39 2c 35 3a  |1:.28,0,29,79,5:|
000018d0  f1 8a 30 2c 32 33 29 3b  27 3a ef 32 36 3a 4c 49  |..0,23);':.26:LI|
000018e0  25 3d 4c 49 25 2b 31 3a  58 32 3d 30 3a f1 8a 30  |%=LI%+1:X2=0:..0|
000018f0  2c 32 39 29 3b 44 4f 24  28 4c 49 25 29 3a e5 8d  |,29);DO$(LI%):..|
00001900  64 76 44 0d 06 18 20 59  32 3d 59 32 2b 31 3a 4c  |dvD... Y2=Y2+1:L|
00001910  49 25 3d 4c 49 25 2b 31  3a 58 32 3d 30 3a e5 8d  |I%=LI%+1:X2=0:..|
00001920  54 40 45 0d 06 22 10 e7  58 32 3d 36 39 8c e5 8d  |T@E.."..X2=69...|
00001930  54 4a 45 0d 06 2c 2c e7  a6 28 2d 32 29 3d b9 20  |TJE..,,..(-2)=. |
00001940  8c 49 4e 3d 31 34 39 3a  e5 8d 64 7e 46 3a 8b 20  |.IN=149:..d~F:. |
00001950  e7 a6 28 2d 31 29 3d b9  20 8c e5 8d 44 62 42 0d  |..(-1)=. ...DbB.|
00001960  06 36 22 58 32 3d 58 32  2b 31 3a f1 8a 30 2c 59  |.6"X2=X2+1:..0,Y|
00001970  32 29 3b 44 4f 24 28 4c  49 25 29 3a e5 8d 54 40  |2);DO$(LI%):..T@|
00001980  45 0d 06 40 33 e7 a6 28  2d 31 29 3d b9 20 8c 49  |E..@3..(-1)=. .I|
00001990  4e 3d 31 34 36 3a e5 8d  64 7e 46 3a 8b 20 e7 a6  |N=146:..d~F:. ..|
000019a0  28 2d 32 29 3d b9 20 8c  49 4e 3d 31 35 37 3a e5  |(-2)=. .IN=157:.|
000019b0  8d 64 7e 46 0d 06 4a 23  f1 8a 30 2c 59 32 29 3b  |.d~F..J#..0,Y2);|
000019c0  44 4f 24 28 4c 49 25 29  3a e7 4c 49 25 3d 54 4c  |DO$(LI%):.LI%=TL|
000019d0  25 8c e5 8d 54 4a 45 0d  06 54 51 e7 59 32 3d 32  |%...TJE..TQ.Y2=2|
000019e0  39 8c 53 4c 25 3d 53 4c  25 2b 31 3a ef 32 38 2c  |9.SL%=SL%+1:.28,|
000019f0  30 2c 32 39 2c 37 39 2c  35 3a f1 8a 30 2c 32 33  |0,29,79,5:..0,23|
00001a00  29 3b 27 3a ef 32 36 3a  4c 49 25 3d 4c 49 25 2b  |);':.26:LI%=LI%+|
00001a10  31 3a f1 8a 30 2c 32 39  29 3b 44 4f 24 28 4c 49  |1:..0,29);DO$(LI|
00001a20  25 29 3a e5 8d 64 76 44  0d 06 5e 1b 59 32 3d 59  |%):..dvD..^.Y2=Y|
00001a30  32 2b 31 3a 4c 49 25 3d  4c 49 25 2b 31 3a e5 8d  |2+1:LI%=LI%+1:..|
00001a40  54 4a 45 0d 06 68 32 e7  a6 28 2d 31 29 3d b9 20  |TJE..h2..(-1)=. |
00001a50  8c 49 4e 3d 31 34 35 3a  e5 8d 64 7e 46 3a 8b e7  |.IN=145:..d~F:..|
00001a60  a6 28 2d 32 29 3d b9 20  8c 49 4e 3d 31 34 37 3a  |.(-2)=. .IN=147:|
00001a70  e5 8d 64 7e 46 0d 06 72  21 f1 8a 30 2c 59 32 29  |..d~F..r!..0,Y2)|
00001a80  3b 44 4f 24 28 4c 49 25  29 3a e7 4c 49 25 3d 31  |;DO$(LI%):.LI%=1|
00001a90  8c e5 8d 54 4a 45 0d 06  7c 29 e7 59 32 3d 35 8c  |...TJE..|).Y2=5.|
00001aa0  53 4c 25 3d 53 4c 25 2d  31 3a f2 42 55 44 47 3a  |SL%=SL%-1:.BUDG:|
00001ab0  4c 49 25 3d 4c 49 25 2d  31 3a e5 8d 64 76 44 0d  |LI%=LI%-1:..dvD.|
00001ac0  06 86 1b 59 32 3d 59 32  2d 31 3a 4c 49 25 3d 4c  |...Y2=Y2-1:LI%=L|
00001ad0  49 25 2d 31 3a e5 8d 54  4a 45 0d 06 90 0f e7 58  |I%-1:..TJE.....X|
00001ae0  32 3d 30 8c e5 8d 54 40  45 0d 06 9a 2d e7 58 32  |2=0...T@E...-.X2|
00001af0  3d 36 39 8c 54 31 24 3d  c0 44 4f 24 28 4c 49 25  |=69.T1$=.DO$(LI%|
00001b00  29 2c 37 39 29 3a 44 4f  24 28 4c 49 25 29 3d 54  |),79):DO$(LI%)=T|
00001b10  31 24 2b 22 20 22 0d 06  a4 0b 58 32 3d 58 32 2d  |1$+" "....X2=X2-|
00001b20  31 0d 06 ae 62 54 31 24  3d c0 44 4f 24 28 4c 49  |1...bT1$=.DO$(LI|
00001b30  25 29 2c 58 32 29 3a 4c  25 3d 28 58 32 2b 31 29  |%),X2):L%=(X2+1)|
00001b40  3a 54 32 24 3d c2 44 4f  24 28 4c 49 25 29 2c 28  |:T2$=.DO$(LI%),(|
00001b50  37 30 2d 4c 25 29 29 3a  44 4f 24 28 4c 49 25 29  |70-L%)):DO$(LI%)|
00001b60  3d 54 31 24 2b 22 20 22  2b 54 32 24 3a f1 8a 30  |=T1$+" "+T2$:..0|
00001b70  2c 59 32 29 3b 44 4f 24  28 4c 49 25 29 3a e5 8d  |,Y2);DO$(LI%):..|
00001b80  54 4a 45 0d 06 b8 2b 4c  3d 31 3a e7 58 32 3e 36  |TJE...+L=1:.X2>6|
00001b90  35 8c 58 32 3d 36 39 3a  f1 8a 30 2c 59 32 29 3b  |5.X2=69:..0,Y2);|
00001ba0  44 4f 24 28 4c 49 25 29  3a e5 8d 54 4a 45 0d 06  |DO$(LI%):..TJE..|
00001bb0  c2 3c e7 58 32 3c 54 53  25 28 4c 29 8c 58 32 3d  |.<.X2<TS%(L).X2=|
00001bc0  54 53 25 28 4c 29 3a f1  8a 30 2c 59 32 29 3b 44  |TS%(L):..0,Y2);D|
00001bd0  4f 24 28 4c 49 25 29 3a  e5 8d 54 4a 45 3a 8b 4c  |O$(LI%):..TJE:.L|
00001be0  3d 4c 2b 31 3a e5 8d 64  42 46 0d 06 cc 2a 4c 3d  |=L+1:..dBF...*L=|
00001bf0  31 31 3a e7 58 32 3c 37  8c 58 32 3d 30 3a f1 8a  |11:.X2<7.X2=0:..|
00001c00  30 2c 59 32 29 3b 44 4f  24 28 4c 49 25 29 3a e5  |0,Y2);DO$(LI%):.|
00001c10  8d 54 4a 45 0d 06 d6 3c  e7 58 32 3e 54 53 25 28  |.TJE...<.X2>TS%(|
00001c20  4c 29 8c 58 32 3d 54 53  25 28 4c 29 3a f1 8a 30  |L).X2=TS%(L):..0|
00001c30  2c 59 32 29 3b 44 4f 24  28 4c 49 25 29 3a e5 8d  |,Y2);DO$(LI%):..|
00001c40  54 4a 45 3a 8b 4c 3d 4c  2d 31 3a e5 8d 64 56 46  |TJE:.L=L-1:..dVF|
00001c50  0d 06 e0 11 e7 49 4e 53  25 3d 30 8c e5 8d 74 50  |.....INS%=0...tP|
00001c60  46 0d 06 ea 26 e7 c1 44  4f 24 28 4c 49 25 29 2c  |F...&..DO$(LI%),|
00001c70  58 32 2b 31 29 3d c4 37  30 2d 58 32 2c 22 20 22  |X2+1)=.70-X2," "|
00001c80  29 8c e5 8d 74 50 46 0d  06 f4 10 49 4e 3d 31 34  |)...tPF....IN=14|
00001c90  32 3a e5 8d 64 7e 46 0d  06 fe 23 e7 49 4e 3d 31  |2:..d~F...#.IN=1|
00001ca0  34 35 8c 53 4c 25 3d 53  4c 25 2d 31 35 3a e7 53  |45.SL%=SL%-15:.S|
00001cb0  4c 25 3c 31 8c 53 4c 25  3d 31 0d 07 08 38 e7 49  |L%<1.SL%=1...8.I|
00001cc0  4e 3d 31 34 35 8c 4c 49  25 3d 53 4c 25 3a 59 32  |N=145.LI%=SL%:Y2|
00001cd0  3d 35 3a ef 32 38 2c 30  2c 32 39 2c 37 39 2c 35  |=5:.28,0,29,79,5|
00001ce0  3a db 3a ef 32 36 3a f2  42 55 44 47 3a e5 8d 54  |:.:.26:.BUDG:..T|
00001cf0  4a 45 0d 07 12 18 e7 49  4e 3d 32 31 30 8c 49 4e  |JE.....IN=210.IN|
00001d00  3d 32 34 35 3a e5 8d 44  78 45 0d 07 1c 33 e7 49  |=245:..DxE...3.I|
00001d10  4e 3d 31 34 36 8c 53 4c  25 3d 53 4c 25 2b 31 35  |N=146.SL%=SL%+15|
00001d20  3a e7 53 4c 25 3e 54 4c  25 8c 53 4c 25 3d 53 4c  |:.SL%>TL%.SL%=SL|
00001d30  25 2d 31 35 3a ef 37 3a  e5 8d 54 4a 45 0d 07 26  |%-15:.7:..TJE..&|
00001d40  38 e7 49 4e 3d 31 34 36  8c 4c 49 25 3d 53 4c 25  |8.IN=146.LI%=SL%|
00001d50  3a 59 32 3d 35 3a ef 32  38 2c 30 2c 32 39 2c 37  |:Y2=5:.28,0,29,7|
00001d60  39 2c 35 3a db 3a ef 32  36 3a f2 42 55 44 47 3a  |9,5:.:.26:.BUDG:|
00001d70  e5 8d 54 4a 45 0d 07 30  11 e7 49 4e 3d 32 35 33  |..TJE..0..IN=253|
00001d80  8c e5 8d 54 64 49 0d 07  3a 18 e7 49 4e 3d 31 35  |...TdI..:..IN=15|
00001d90  31 8c 49 4e 3d 32 34 36  3a e5 8d 44 78 45 0d 07  |1.IN=246:..DxE..|
00001da0  44 18 e7 49 4e 3d 31 35  32 8c 49 4e 3d 32 34 37  |D..IN=152.IN=247|
00001db0  3a e5 8d 44 78 45 0d 07  4e 18 e7 49 4e 3d 31 35  |:..DxE..N..IN=15|
00001dc0  33 8c 49 4e 3d 32 34 39  3a e5 8d 44 78 45 0d 07  |3.IN=249:..DxE..|
00001dd0  58 18 e7 49 4e 3d 31 35  34 8c 49 4e 3d 32 34 38  |X..IN=154.IN=248|
00001de0  3a e5 8d 44 78 45 0d 07  62 18 e7 49 4e 3d 31 35  |:..DxE..b..IN=15|
00001df0  35 8c 49 4e 3d 32 35 30  3a e5 8d 44 78 45 0d 07  |5.IN=250:..DxE..|
00001e00  6c 11 e7 49 4e 3d 31 35  38 8c e5 8d 54 74 43 0d  |l..IN=158...TtC.|
00001e10  07 76 3c e7 49 4e 3d 31  34 37 8c 53 4c 25 3d 31  |.v<.IN=147.SL%=1|
00001e20  3a 4c 49 25 3d 31 3a 59  32 3d 35 3a ef 32 38 2c  |:LI%=1:Y2=5:.28,|
00001e30  30 2c 32 39 2c 37 39 2c  35 3a db 3a ef 32 36 3a  |0,29,79,5:.:.26:|
00001e40  f2 42 55 44 47 3a e5 8d  54 4a 45 0d 07 80 23 e7  |.BUDG:..TJE...#.|
00001e50  49 4e 3d 31 35 37 8c 53  4c 25 3d 54 4c 25 2d 31  |IN=157.SL%=TL%-1|
00001e60  35 3a e7 53 4c 25 3c 31  8c 53 4c 25 3d 31 0d 07  |5:.SL%<1.SL%=1..|
00001e70  8a 38 e7 49 4e 3d 31 35  37 8c 4c 49 25 3d 53 4c  |.8.IN=157.LI%=SL|
00001e80  25 3a 59 32 3d 35 3a ef  32 38 2c 30 2c 32 39 2c  |%:Y2=5:.28,0,29,|
00001e90  37 39 2c 35 3a db 3a ef  32 36 3a f2 42 55 44 47  |79,5:.:.26:.BUDG|
00001ea0  3a e5 8d 54 4a 45 0d 07  94 27 e7 49 4e 3d 31 34  |:..TJE...'.IN=14|
00001eb0  38 8c f1 8a 30 2c 59 32  29 3b 44 4f 24 28 4c 49  |8...0,Y2);DO$(LI|
00001ec0  25 29 3a 58 32 3d 30 3a  e5 8d 54 4a 45 0d 07 9e  |%):X2=0:..TJE...|
00001ed0  28 e7 49 4e 3d 31 34 39  8c f1 8a 30 2c 59 32 29  |(.IN=149...0,Y2)|
00001ee0  3b 44 4f 24 28 4c 49 25  29 3a 58 32 3d 36 39 3a  |;DO$(LI%):X2=69:|
00001ef0  e5 8d 54 4a 45 0d 07 a8  11 e7 49 4e 3d 31 34 33  |..TJE.....IN=143|
00001f00  8c e5 8d 44 5c 48 0d 07  b2 11 e7 49 4e 3d 31 34  |...D\H.....IN=14|
00001f10  34 8c e5 8d 74 44 48 0d  07 bc 11 e7 49 4e 3d 31  |4...tDH.....IN=1|
00001f20  34 31 8c e5 8d 74 76 48  0d 07 c6 11 e7 49 4e 3d  |41...tvH.....IN=|
00001f30  31 34 32 8c e5 8d 64 4a  48 0d 07 d0 11 e7 49 4e  |142...dJH.....IN|
00001f40  3d 31 35 36 8c e5 8d 54  60 48 0d 07 da 11 e7 49  |=156...T`H.....I|
00001f50  4e 3d 31 35 39 8c e5 8d  44 48 48 0d 07 e4 11 e7  |N=159...DHH.....|
00001f60  49 4e 3d 32 35 30 8c e5  8d 64 6e 4c 0d 07 ee 11  |IN=250...dnL....|
00001f70  e7 49 4e 3d 32 35 31 8c  e5 8d 54 42 4d 0d 07 f8  |.IN=251...TBM...|
00001f80  11 e7 49 4e 3d 32 35 32  8c e5 8d 54 4c 48 0d 08  |..IN=252...TLH..|
00001f90  02 09 e5 8d 44 78 45 0d  08 0c 1a 57 57 25 3d 57  |....DxE....WW%=W|
00001fa0  57 25 2b 31 3a e7 57 57  25 3e 31 8c 57 57 25 3d  |W%+1:.WW%>1.WW%=|
00001fb0  30 0d 08 16 09 e5 8d 54  4a 45 0d 08 20 3d 41 53  |0......TJE.. =AS|
00001fc0  25 3d 97 28 c1 44 4f 24  28 4c 49 25 29 2c 28 58  |%=.(.DO$(LI%),(X|
00001fd0  32 2b 31 29 2c 31 29 29  3a e7 41 53 25 3e 36 34  |2+1),1)):.AS%>64|
00001fe0  80 41 53 25 3c 39 31 8c  49 4e 3d 41 53 25 2b 33  |.AS%<91.IN=AS%+3|
00001ff0  32 3a e5 8d 44 78 45 0d  08 2a 23 e7 41 53 25 3e  |2:..DxE..*#.AS%>|
00002000  39 36 80 41 53 25 3c 31  32 32 8c 49 4e 3d 41 53  |96.AS%<122.IN=AS|
00002010  25 2d 33 32 3a e5 8d 44  78 45 0d 08 34 13 e7 41  |%-32:..DxE..4..A|
00002020  53 25 3e 3d 32 34 34 8c  e5 8d 54 4a 45 0d 08 3e  |S%>=244...TJE..>|
00002030  10 49 4e 3d 41 53 25 3a  e5 8d 44 78 45 0d 08 48  |.IN=AS%:..DxE..H|
00002040  53 f2 44 4f 43 57 49 4e  3a f1 8a 31 31 2c 31 31  |S.DOCWIN:..11,11|
00002050  29 3b 22 45 6e 74 65 72  20 66 75 6e 63 74 69 6f  |);"Enter functio|
00002060  6e 20 6b 65 79 20 6e 75  6d 62 65 72 3a 20 22 3b  |n key number: ";|
00002070  3a 58 3d b1 3a 59 3d 31  31 3a 4c 25 3d 32 3a f2  |:X=.:Y=11:L%=2:.|
00002080  54 45 58 54 3a 49 24 3d  c3 28 bb 28 54 24 29 29  |TEXT:I$=.(.(T$))|
00002090  0d 08 52 54 f1 8a 31 31  2c 31 33 29 3b 22 45 6e  |..RT..11,13);"En|
000020a0  74 65 72 20 4d 61 63 72  6f 20 74 65 78 74 3a 22  |ter Macro text:"|
000020b0  3a 58 3d 31 31 3a 59 3d  31 35 3a 4c 25 3d 33 30  |:X=11:Y=15:L%=30|
000020c0  3a f2 54 45 58 54 3a ff  22 4b 45 59 20 22 2b 49  |:.TEXT:."KEY "+I|
000020d0  24 2b 22 20 22 2b 54 24  3a f2 42 55 44 47 3a e5  |$+" "+T$:.BUDG:.|
000020e0  8d 54 4a 45 0d 08 5c 2e  54 4c 53 25 3d 54 4c 25  |.TJE..\.TLS%=TL%|
000020f0  2b 31 3a 53 53 4c 25 3d  4c 49 25 2b 31 3a e7 54  |+1:SSL%=LI%+1:.T|
00002100  4c 53 25 3e 6e 6f 6c 25  8c 54 4c 53 25 3d 6e 6f  |LS%>nol%.TLS%=no|
00002110  6c 25 0d 08 66 13 e7 4c  49 25 3d 6e 6f 6c 25 8c  |l%..f..LI%=nol%.|
00002120  e5 8d 54 4a 45 0d 08 70  54 e3 49 3d 54 4c 53 25  |..TJE..pT.I=TLS%|
00002130  b8 53 53 4c 25 88 2d 31  3a 44 4f 24 28 49 29 3d  |.SSL%.-1:DO$(I)=|
00002140  44 4f 24 28 49 2d 31 29  3a ed 49 3a 44 4f 24 28  |DO$(I-1):.I:DO$(|
00002150  4c 49 25 29 3d c0 42 24  2c 37 30 29 3a 54 4c 25  |LI%)=.B$,70):TL%|
00002160  3d 54 4c 25 2b 31 3a e7  54 4c 25 3e 6e 6f 6c 25  |=TL%+1:.TL%>nol%|
00002170  8c 54 4c 25 3d 6e 6f 6c  25 0d 08 7a 0f f2 42 55  |.TL%=nol%..z..BU|
00002180  44 47 3a e5 8d 54 4a 45  0d 08 84 12 e7 4c 49 25  |DG:..TJE.....LI%|
00002190  3d 54 4c 25 8c e5 8d 74  58 48 0d 08 8e 4f 53 53  |=TL%...tXH...OSS|
000021a0  4c 25 3d 54 4c 25 2d 31  3a e3 49 3d 4c 49 25 b8  |L%=TL%-1:.I=LI%.|
000021b0  53 53 4c 25 3a 44 4f 24  28 49 29 3d 44 4f 24 28  |SSL%:DO$(I)=DO$(|
000021c0  49 2b 31 29 3a ed 49 3a  44 4f 24 28 54 4c 25 29  |I+1):.I:DO$(TL%)|
000021d0  3d 42 24 3a 54 4c 25 3d  54 4c 25 2d 31 3a f2 42  |=B$:TL%=TL%-1:.B|
000021e0  55 44 47 3a e5 8d 54 4a  45 0d 08 98 2c e7 54 4c  |UDG:..TJE...,.TL|
000021f0  25 3d 31 8c 44 4f 24 28  54 4c 25 29 3d 42 24 3a  |%=1.DO$(TL%)=B$:|
00002200  f1 8a 30 2c 35 29 3b 44  4f 24 28 54 4c 25 29 3a  |..0,5);DO$(TL%):|
00002210  e5 8d 54 4a 45 0d 08 a2  51 f1 8a 30 2c 59 32 29  |..TJE...Q..0,Y2)|
00002220  3b 42 24 3a 44 4f 24 28  4c 49 25 29 3d 42 24 3a  |;B$:DO$(LI%)=B$:|
00002230  4c 49 25 3d 4c 49 25 2d  31 3a 54 4c 25 3d 54 4c  |LI%=LI%-1:TL%=TL|
00002240  25 2d 31 3a 59 32 3d 59  32 2d 31 3a e7 59 32 3d  |%-1:Y2=Y2-1:.Y2=|
00002250  34 8c 59 32 3d 35 3a 53  4c 25 3d 53 4c 25 2d 31  |4.Y2=5:SL%=SL%-1|
00002260  3a f2 42 55 44 47 0d 08  ac 09 e5 8d 54 4a 45 0d  |:.BUDG......TJE.|
00002270  08 b6 1e 49 4e 53 25 3d  49 4e 53 25 2b 31 3a e7  |...INS%=INS%+1:.|
00002280  49 4e 53 25 3e 31 8c 49  4e 53 25 3d 30 0d 08 c0  |INS%>1.INS%=0...|
00002290  09 e5 8d 54 4a 45 0d 08  ca 10 e7 58 32 3d 36 39  |...TJE.....X2=69|
000022a0  8c e5 8d 54 4a 45 0d 08  d4 72 54 31 24 3d c0 44  |...TJE...rT1$=.D|
000022b0  4f 24 28 4c 49 25 29 2c  58 32 29 3a 54 32 24 3d  |O$(LI%),X2):T2$=|
000022c0  c1 44 4f 24 28 4c 49 25  29 2c 58 32 2b 32 29 3a  |.DO$(LI%),X2+2):|
000022d0  44 4f 24 28 4c 49 25 29  3d 54 31 24 2b 54 32 24  |DO$(LI%)=T1$+T2$|
000022e0  2b 22 20 22 3a f1 8a 30  2c 59 32 29 3b 44 4f 24  |+" ":..0,Y2);DO$|
000022f0  28 4c 49 25 29 3b 22 20  20 20 22 3a 44 4f 24 28  |(LI%);"   ":DO$(|
00002300  4c 49 25 29 3d c0 44 4f  24 28 4c 49 25 29 2c 37  |LI%)=.DO$(LI%),7|
00002310  30 29 3a e5 8d 54 4a 45  0d 08 de 1d dd f2 57 52  |0):..TJE......WR|
00002320  41 50 3a 6c 25 3d 37 30  3a e7 57 57 25 3d 30 8c  |AP:l%=70:.WW%=0.|
00002330  e5 8d 54 5a 49 0d 08 e8  13 e7 4c 49 25 3d 6e 6f  |..TZI.....LI%=no|
00002340  6c 25 8c e5 8d 54 5a 49  0d 08 f2 1b e7 c2 44 4f  |l%...TZI......DO|
00002350  24 28 4c 49 25 29 2c 31  29 3d 22 20 22 8c e5 8d  |$(LI%),1)=" "...|
00002360  54 5a 49 0d 08 fc 1e e7  c1 44 4f 24 28 4c 49 25  |TZI......DO$(LI%|
00002370  29 2c 6c 25 2c 31 29 3d  22 20 22 8c e5 8d 54 50  |),l%,1)=" "...TP|
00002380  49 0d 09 06 1e 6c 25 3d  6c 25 2d 31 3a e7 6c 25  |I....l%=l%-1:.l%|
00002390  3d 30 8c e5 8d 54 5a 49  3a 8b e5 8d 64 7c 48 0d  |=0...TZI:...d|H.|
000023a0  09 10 6b 57 57 24 3d c2  44 4f 24 28 4c 49 25 29  |..kWW$=.DO$(LI%)|
000023b0  2c 28 37 30 2d 6c 25 29  29 3a 44 4f 24 28 4c 49  |,(70-l%)):DO$(LI|
000023c0  25 29 3d c0 44 4f 24 28  4c 49 25 29 2c 6c 25 29  |%)=.DO$(LI%),l%)|
000023d0  2b c4 37 30 2d 6c 25 2c  22 20 22 29 3a e3 69 25  |+.70-l%," "):.i%|
000023e0  3d 31 b8 a9 28 57 57 24  29 3a ff 22 46 58 31 33  |=1..(WW$):."FX13|
000023f0  38 2c 30 2c 22 2b c3 28  97 28 c1 57 57 24 2c 69  |8,0,"+.(.(.WW$,i|
00002400  25 2c 31 29 29 29 3a ed  69 25 0d 09 1a 05 e1 0d  |%,1))):.i%......|
00002410  09 24 11 e7 58 32 3e 3d  35 35 8c e5 8d 54 4a 45  |.$..X2>=55...TJE|
00002420  0d 09 2e 17 e7 46 49 24  3d 22 2a 4e 4f 4e 45 2a  |.....FI$="*NONE*|
00002430  22 8c e5 8d 54 4a 45 0d  09 38 2f f1 8a 58 32 2c  |"...TJE..8/..X2,|
00002440  59 32 29 3b bd 28 32 34  34 29 3a 58 58 3d 58 32  |Y2);.(244):XX=X2|
00002450  2b 31 3a 54 4d 50 24 3d  44 4f 24 28 4c 49 25 29  |+1:TMP$=DO$(LI%)|
00002460  3a 4e 24 3d 22 22 0d 09  42 17 f1 8a 58 58 2c 59  |:N$=""..B...XX,Y|
00002470  32 29 3b bd 28 32 35 35  29 3a 49 3d a5 0d 09 4c  |2);.(255):I=...L|
00002480  10 e7 49 3d 32 35 33 8c  e5 8d 44 7e 49 0d 09 56  |..I=253...D~I..V|
00002490  17 e7 49 3d 31 32 37 8c  4e 24 3d 22 30 22 3a e5  |..I=127.N$="0":.|
000024a0  8d 44 7e 49 0d 09 60 14  e7 49 3c 34 38 84 49 3e  |.D~I..`..I<48.I>|
000024b0  35 37 8c e5 8d 44 42 49  0d 09 6a 2b f1 8a 58 58  |57...DBI..j+..XX|
000024c0  2c 59 32 29 3b bd 28 49  29 3a 4e 24 3d 4e 24 2b  |,Y2);.(I):N$=N$+|
000024d0  bd 28 49 29 3a e7 a9 28  4e 24 29 3d 33 8c e5 8d  |.(I):..(N$)=3...|
000024e0  44 7e 49 0d 09 74 11 58  58 3d 58 58 2b 31 3a e5  |D~I..t.XX=XX+1:.|
000024f0  8d 44 42 49 0d 09 7e 2d  4e 25 3d bb 28 4e 24 29  |.DBI..~-N%=.(N$)|
00002500  3a e7 4e 25 3d 30 84 4e  25 3e 4e 4f 46 25 8c f1  |:.N%=0.N%>NOF%..|
00002510  8a 30 2c 59 32 29 3b 54  4d 50 24 3a e5 8d 54 4a  |.0,Y2);TMP$:..TJ|
00002520  45 0d 09 88 22 4e 24 3d  bd 28 32 34 34 29 2b c3  |E..."N$=.(244)+.|
00002530  28 4e 25 29 2b bd 28 32  34 34 29 3a 4c 3d a9 28  |(N%)+.(244):L=.(|
00002540  4e 24 29 0d 09 92 7c 54  31 24 3d c0 44 4f 24 28  |N$)...|T1$=.DO$(|
00002550  4c 49 25 29 2c 58 32 29  3a 4c 25 3d 58 32 3a 54  |LI%),X2):L%=X2:T|
00002560  32 24 3d c2 44 4f 24 28  4c 49 25 29 2c 28 37 30  |2$=.DO$(LI%),(70|
00002570  2d 4c 25 29 29 3a 44 4f  24 28 4c 49 25 29 3d 54  |-L%)):DO$(LI%)=T|
00002580  31 24 2b 4e 24 2b 54 32  24 3a 58 32 3d 58 32 2b  |1$+N$+T2$:X2=X2+|
00002590  4c 3a 44 4f 24 28 4c 49  25 29 3d c0 44 4f 24 28  |L:DO$(LI%)=.DO$(|
000025a0  4c 49 25 29 2c 37 30 29  3a f1 8a 30 2c 59 32 29  |LI%),70):..0,Y2)|
000025b0  3b 44 4f 24 28 4c 49 25  29 3a e5 8d 54 4a 45 0d  |;DO$(LI%):..TJE.|
000025c0  09 9c 14 e3 4a 3d 31 b8  35 3a 41 28 4a 29 3d 30  |....J=1.5:A(J)=0|
000025d0  3a ed 4a 0d 09 a6 5e 43  52 25 3d 31 3a 44 4f 52  |:.J...^CR%=1:DOR|
000025e0  25 3d 31 3a ff 22 43 4c  4f 53 45 22 3a 41 3d ad  |%=1:."CLOSE":A=.|
000025f0  a4 4d 79 46 69 6c 65 28  46 4f 24 29 3a 58 3d ad  |.MyFile(FO$):X=.|
00002600  a4 4d 79 46 69 6c 65 28  46 49 24 29 3a e7 53 4f  |.MyFile(FI$):.SO|
00002610  24 3d 22 31 22 8c cf 23  58 3d 52 45 43 25 2d 31  |$="1"..#X=REC%-1|
00002620  30 3a e8 23 58 2c 43 52  24 3a 43 52 25 3d 43 52  |0:.#X,CR$:CR%=CR|
00002630  24 0d 09 b0 0b ef 33 3a  db 3a ef 32 0d 09 ba 18  |$.....3:.:.2....|
00002640  e7 48 25 3e 30 8c e3 49  3d 31 b8 48 25 3a f1 42  |.H%>0..I=1.H%:.B|
00002650  24 3a ed 49 0d 09 c4 27  e3 49 3d 31 b8 54 4c 25  |$:.I...'.I=1.TL%|
00002660  3a f1 c4 4c 4d 25 2c 22  20 22 29 3b 3a e3 46 3d  |:..LM%," ");:.F=|
00002670  31 b8 a9 28 44 4f 24 28  46 29 29 0d 09 ce 2e 4c  |1..(DO$(F))....L|
00002680  45 25 3d a9 28 44 4f 24  28 49 29 29 3a e7 44 4f  |E%=.(DO$(I)):.DO|
00002690  24 28 49 29 3d c4 4c 45  25 2c 22 20 22 29 8c 46  |$(I)=.LE%," ").F|
000026a0  3d 37 30 3a e5 8d 74 6a  4a 0d 09 d8 1e e7 97 28  |=70:..tjJ......(|
000026b0  c1 44 4f 24 28 49 29 2c  46 2c 31 29 29 3c 31 32  |.DO$(I),F,1))<12|
000026c0  37 8c e5 8d 74 60 4a 0d  09 e2 3e e7 c1 44 4f 24  |7...t`J...>..DO$|
000026d0  28 49 29 2c 46 2c 31 29  3d bd 28 32 34 35 29 80  |(I),F,1)=.(245).|
000026e0  41 28 31 29 3d 30 8c 41  28 31 29 3d 31 3a ef 31  |A(1)=0.A(1)=1:.1|
000026f0  2c 32 37 3a ef 31 2c 34  35 3a ef 31 2c 34 39 3a  |,27:.1,45:.1,49:|
00002700  e5 8d 74 6a 4a 0d 09 ec  3e e7 c1 44 4f 24 28 49  |..tjJ...>..DO$(I|
00002710  29 2c 46 2c 31 29 3d bd  28 32 34 35 29 80 41 28  |),F,1)=.(245).A(|
00002720  31 29 3d 31 8c 41 28 31  29 3d 30 3a ef 31 2c 32  |1)=1.A(1)=0:.1,2|
00002730  37 3a ef 31 2c 34 35 3a  ef 31 2c 34 38 3a e5 8d  |7:.1,45:.1,48:..|
00002740  74 6a 4a 0d 09 f6 26 e7  c1 44 4f 24 28 49 29 2c  |tjJ...&..DO$(I),|
00002750  46 2c 31 29 3d bd 28 32  34 34 29 80 4d 41 49 4c  |F,1)=.(244).MAIL|
00002760  25 3d 31 8c e5 8d 44 64  4a 0d 0a 00 3e e7 c1 44  |%=1...DdJ...>..D|
00002770  4f 24 28 49 29 2c 46 2c  31 29 3d bd 28 32 34 36  |O$(I),F,1)=.(246|
00002780  29 80 41 28 32 29 3d 30  8c 41 28 32 29 3d 31 3a  |).A(2)=0.A(2)=1:|
00002790  ef 31 2c 32 37 3a ef 31  2c 38 33 3a ef 31 2c 34  |.1,27:.1,83:.1,4|
000027a0  38 3a e5 8d 74 6a 4a 0d  0a 0a 38 e7 c1 44 4f 24  |8:..tjJ...8..DO$|
000027b0  28 49 29 2c 46 2c 31 29  3d bd 28 32 34 36 29 80  |(I),F,1)=.(246).|
000027c0  41 28 32 29 3d 31 8c 41  28 32 29 3d 30 3a ef 31  |A(2)=1.A(2)=0:.1|
000027d0  2c 32 37 3a ef 31 2c 38  34 3a e5 8d 74 6a 4a 0d  |,27:.1,84:..tjJ.|
000027e0  0a 14 3e e7 c1 44 4f 24  28 49 29 2c 46 2c 31 29  |..>..DO$(I),F,1)|
000027f0  3d bd 28 32 34 37 29 80  41 28 33 29 3d 30 8c 41  |=.(247).A(3)=0.A|
00002800  28 33 29 3d 31 3a ef 31  2c 32 37 3a ef 31 2c 38  |(3)=1:.1,27:.1,8|
00002810  33 3a ef 31 2c 34 39 3a  e5 8d 74 6a 4a 0d 0a 1e  |3:.1,49:..tjJ...|
00002820  38 e7 c1 44 4f 24 28 49  29 2c 46 2c 31 29 3d bd  |8..DO$(I),F,1)=.|
00002830  28 32 34 37 29 80 41 28  33 29 3d 31 8c 41 28 33  |(247).A(3)=1.A(3|
00002840  29 3d 30 3a ef 31 2c 32  37 3a ef 31 2c 38 34 3a  |)=0:.1,27:.1,84:|
00002850  e5 8d 74 6a 4a 0d 0a 28  38 e7 c1 44 4f 24 28 49  |..tjJ..(8..DO$(I|
00002860  29 2c 46 2c 31 29 3d bd  28 32 34 38 29 80 41 28  |),F,1)=.(248).A(|
00002870  34 29 3d 30 8c 41 28 34  29 3d 31 3a ef 31 2c 32  |4)=0.A(4)=1:.1,2|
00002880  37 3a ef 31 2c 36 39 3a  e5 8d 74 6a 4a 0d 0a 32  |7:.1,69:..tjJ..2|
00002890  38 e7 c1 44 4f 24 28 49  29 2c 46 2c 31 29 3d bd  |8..DO$(I),F,1)=.|
000028a0  28 32 34 38 29 80 41 28  34 29 3d 31 8c 41 28 34  |(248).A(4)=1.A(4|
000028b0  29 3d 30 3a ef 31 2c 32  37 3a ef 31 2c 37 30 3a  |)=0:.1,27:.1,70:|
000028c0  e5 8d 74 6a 4a 0d 0a 3c  3e e7 c1 44 4f 24 28 49  |..tjJ..<>..DO$(I|
000028d0  29 2c 46 2c 31 29 3d bd  28 32 34 39 29 80 41 28  |),F,1)=.(249).A(|
000028e0  35 29 3d 30 8c 41 28 35  29 3d 31 3a ef 31 2c 32  |5)=0.A(5)=1:.1,2|
000028f0  37 3a ef 31 2c 38 37 3a  ef 31 2c 34 39 3a e5 8d  |7:.1,87:.1,49:..|
00002900  74 6a 4a 0d 0a 46 3e e7  c1 44 4f 24 28 49 29 2c  |tjJ..F>..DO$(I),|
00002910  46 2c 31 29 3d bd 28 32  34 39 29 80 41 28 35 29  |F,1)=.(249).A(5)|
00002920  3d 31 8c 41 28 35 29 3d  30 3a ef 31 2c 32 37 3a  |=1.A(5)=0:.1,27:|
00002930  ef 31 2c 38 37 3a ef 31  2c 34 38 3a e5 8d 74 6a  |.1,87:.1,48:..tj|
00002940  4a 0d 0a 50 23 e7 c1 44  4f 24 28 49 29 2c 46 2c  |J..P#..DO$(I),F,|
00002950  31 29 3d bd 28 32 35 30  29 8c 46 3d 37 30 3a e5  |1)=.(250).F=70:.|
00002960  8d 74 6a 4a 0d 0a 5a 09  e5 8d 74 60 4a 0d 0a 64  |.tjJ..Z...t`J..d|
00002970  41 4e 24 3d 22 22 3a 46  4f 25 3d 30 3a e3 4a 3d  |AN$="":FO%=0:.J=|
00002980  28 46 2b 31 29 b8 37 30  3a e7 c1 44 4f 24 28 49  |(F+1).70:..DO$(I|
00002990  29 2c 4a 2c 31 29 3d bd  28 32 34 34 29 8c 46 4f  |),J,1)=.(244).FO|
000029a0  25 3d 31 3a 4a 3d 37 30  3a e5 8d 44 78 4a 0d 0a  |%=1:J=70:..DxJ..|
000029b0  6e 16 4e 24 3d 4e 24 2b  c1 44 4f 24 28 49 29 2c  |n.N$=N$+.DO$(I),|
000029c0  4a 2c 31 29 0d 0a 78 29  ed 4a 3a e7 46 4f 25 3d  |J,1)..x).J:.FO%=|
000029d0  30 8c ff 22 46 58 32 31  2c 33 22 3a ef 33 3a ff  |0.."FX21,3":.3:.|
000029e0  22 43 4c 4f 53 45 22 3a  e5 8d 54 48 42 0d 0a 82  |"CLOSE":..THB...|
000029f0  3f 43 46 25 3d a8 28 bb  28 4e 24 29 29 3a e7 43  |?CF%=.(.(N$)):.C|
00002a00  46 25 3c 31 20 84 20 43  46 25 3e 4e 4f 46 25 20  |F%<1 . CF%>NOF% |
00002a10  8c ff 22 46 58 32 31 2c  33 22 3a ef 33 3a ff 22  |.."FX21,3":.3:."|
00002a20  43 4c 4f 53 45 22 3a e5  8d 54 48 42 0d 0a 8c 5b  |CLOSE":..THB...[|
00002a30  cf 23 41 3d 28 43 46 25  2d 31 29 2a 36 31 2b 31  |.#A=(CF%-1)*61+1|
00002a40  30 39 3a e8 23 41 2c 54  49 24 3a cf 23 43 3d 28  |09:.#A,TI$:.#C=(|
00002a50  43 52 25 2d 31 29 2a 52  45 43 25 2b bb 28 54 49  |CR%-1)*REC%+.(TI|
00002a60  24 29 3a e8 23 43 2c 43  24 3a f1 43 24 3b 3a 46  |$):.#C,C$:.C$;:F|
00002a70  3d 46 2b 28 31 2b a9 28  4e 24 29 29 3a e7 46 3e  |=F+(1+.(N$)):.F>|
00002a80  37 30 8c 46 3d 37 30 0d  0a 96 09 e5 8d 74 6a 4a  |70.F=70......tjJ|
00002a90  0d 0a a0 12 f1 c1 44 4f  24 28 49 29 2c 46 2c 31  |......DO$(I),F,1|
00002aa0  29 3b 0d 0a aa 06 ed 46  0d 0a b4 27 f1 3a ed 49  |);.....F...'.:.I|
00002ab0  3a e3 4a 3d 31 b8 46 25  3a f1 3a ed 4a 3a e7 4d  |:.J=1.F%:.:.J:.M|
00002ac0  41 49 4c 25 3d 30 8c ef  33 3a e5 8d 54 74 43 0d  |AIL%=0..3:..TtC.|
00002ad0  0a be 09 e5 8d 64 70 4a  0d 0a c8 2e db 3a ff 22  |.....dpJ.....:."|
00002ae0  43 4c 4f 53 45 22 3a 41  3d ad a4 4d 79 46 69 6c  |CLOSE":A=..MyFil|
00002af0  65 28 46 4f 24 29 3a 43  3d ad a4 4d 79 46 69 6c  |e(FO$):C=..MyFil|
00002b00  65 28 46 49 24 29 0d 0a  d2 48 e3 53 41 46 25 3d  |e(FI$)...H.SAF%=|
00002b10  31 b8 4e 4f 52 25 3a 43  52 25 3d 53 41 46 25 3a  |1.NOR%:CR%=SAF%:|
00002b20  e7 53 4f 24 3d 22 31 22  8c cf 23 43 3d 28 53 41  |.SO$="1"..#C=(SA|
00002b30  46 25 2a 52 45 43 25 29  2d 31 30 3a e8 23 43 2c  |F%*REC%)-10:.#C,|
00002b40  43 52 24 3a 43 52 25 3d  bb 28 43 52 24 29 0d 0a  |CR$:CR%=.(CR$)..|
00002b50  dc 10 e7 51 46 25 3d 31  8c e5 8d 74 46 50 0d 0a  |...QF%=1...tFP..|
00002b60  e6 6b e7 50 4d 25 3d 30  8c ef 33 3a db 3a f1 8a  |.k.PM%=0..3:.:..|
00002b70  32 2c 32 29 3b 22 50 72  65 73 73 20 52 45 54 55  |2,2);"Press RETU|
00002b80  52 4e 20 74 6f 20 70 72  69 6e 74 20 64 6f 63 75  |RN to print docu|
00002b90  6d 65 6e 74 20 66 6f 72  20 72 65 63 6f 72 64 20  |ment for record |
00002ba0  22 3b 53 41 46 25 3b 22  3a 22 3a 49 24 3d be 3a  |";SAF%;":":I$=.:|
00002bb0  db 3a ef 32 3a e5 8d 74  7a 49 3a 8b ef 33 3a db  |.:.2:..tzI:..3:.|
00002bc0  3a ef 32 3a e5 8d 74 7a  49 0d 0a f0 1b ed 53 41  |:.2:..tzI.....SA|
00002bd0  46 25 3a ef 33 3a ff 22  43 4c 4f 53 45 22 3a e5  |F%:.3:."CLOSE":.|
00002be0  8d 54 74 43 0d 0a fa 0c  dd f2 43 4f 4e 46 49 47  |.TtC......CONFIG|
00002bf0  0d 0b 04 3b f1 8a 32 30  2c 31 30 29 3b 22 48 65  |...;..20,10);"He|
00002c00  61 64 65 72 20 53 70 61  63 65 3a 20 22 3a 58 3d  |ader Space: ":X=|
00002c10  33 34 3a 59 3d 31 30 3a  4c 25 3d 33 3a f2 54 45  |34:Y=10:L%=3:.TE|
00002c20  58 54 3a 48 25 3d bb 28  54 24 29 0d 0b 0e 3b f1  |XT:H%=.(T$)...;.|
00002c30  8a 32 30 2c 31 32 29 3b  22 46 6f 6f 74 65 72 20  |.20,12);"Footer |
00002c40  53 70 61 63 65 3a 20 22  3a 58 3d 33 34 3a 59 3d  |Space: ":X=34:Y=|
00002c50  31 32 3a 4c 25 3d 33 3a  f2 54 45 58 54 3a 46 25  |12:L%=3:.TEXT:F%|
00002c60  3d bb 28 54 24 29 0d 0b  18 41 f1 8a 32 30 2c 31  |=.(T$)...A..20,1|
00002c70  34 29 3b 22 4c 65 66 74  20 4d 61 72 67 69 6e 20  |4);"Left Margin |
00002c80  53 70 61 63 65 3a 20 22  3a 58 3d 33 39 3a 59 3d  |Space: ":X=39:Y=|
00002c90  31 34 3a 4c 25 3d 32 3a  f2 54 45 58 54 3a 4c 4d  |14:L%=2:.TEXT:LM|
00002ca0  25 3d bb 28 54 24 29 0d  0b 22 27 f1 8a 32 30 2c  |%=.(T$).."'..20,|
00002cb0  31 38 29 3b 22 44 65 74  61 69 6c 73 20 63 6f 72  |18);"Details cor|
00002cc0  72 65 63 74 3f 20 22 3b  3a f2 59 4e 3a e1 0d 0b  |rect? ";:.YN:...|
00002cd0  2c 05 fa 0d 0b 36 9a 58  3d 32 30 3a 59 3d 31 38  |,....6.X=20:Y=18|
00002ce0  3a 57 25 3d 32 37 3a 4c  25 3d 33 3a f2 4c 57 4e  |:W%=27:L%=3:.LWN|
00002cf0  3a 4d 45 24 28 31 29 3d  22 50 72 69 6e 74 20 64  |:ME$(1)="Print d|
00002d00  6f 63 75 6d 65 6e 74 20  69 6e 20 6d 65 6d 6f 72  |ocument in memor|
00002d10  79 22 3a 4d 45 24 28 32  29 3d 22 50 72 69 6e 74  |y":ME$(2)="Print|
00002d20  20 41 53 43 49 49 20 66  69 6c 65 22 3a 4d 45 24  | ASCII file":ME$|
00002d30  28 33 29 3d 22 44 69 73  70 6c 61 79 20 41 53 43  |(3)="Display ASC|
00002d40  49 49 20 66 69 6c 65 22  3a 58 3d 32 31 3a 59 3d  |II file":X=21:Y=|
00002d50  31 39 3a 4c 25 3d 33 3a  f2 53 45 4c 45 43 54 3a  |19:L%=3:.SELECT:|
00002d60  e7 53 45 4c 25 3e 31 8c  e5 8d 74 78 4b 0d 0b 40  |.SEL%>1...txK..@|
00002d70  19 e7 44 4f 43 24 3d 22  6e 6f 20 66 69 6c 65 22  |..DOC$="no file"|
00002d80  8c e5 8d 54 74 43 0d 0b  4a 42 db 3a f1 8a 31 2c  |...TtC..JB.:..1,|
00002d90  31 29 3b 22 50 72 69 6e  74 6f 75 74 20 6f 66 20  |1);"Printout of |
00002da0  64 6f 63 75 6d 65 6e 74  20 69 6e 20 6d 65 6d 6f  |document in memo|
00002db0  72 79 3a 22 3a f2 43 4f  4e 46 49 47 3a e7 59 4e  |ry:":.CONFIG:.YN|
00002dc0  3d 30 8c e5 8d 54 74 43  0d 0b 54 35 4d 4c 25 3d  |=0...TtC..T5ML%=|
00002dd0  30 3a 43 52 25 3d 31 3a  44 4f 52 25 3d 31 3a 4d  |0:CR%=1:DOR%=1:M|
00002de0  41 49 4c 25 3d 30 3a e3  49 3d 31 b8 35 3a 41 28  |AIL%=0:.I=1.5:A(|
00002df0  49 29 3d 30 3a ed 49 3a  e5 8d 74 70 49 0d 0b 5e  |I)=0:.I:..tpI..^|
00002e00  17 e7 46 49 24 3d 22 2a  4e 4f 4e 45 2a 22 8c e5  |..FI$="*NONE*"..|
00002e10  8d 54 74 43 0d 0b 68 4c  db 3a f1 8a 31 2c 31 29  |.TtC..hL.:..1,1)|
00002e20  3b 22 50 72 69 6e 74 6f  75 74 20 6f 66 20 44 6f  |;"Printout of Do|
00002e30  63 75 6d 65 6e 74 2e 20  28 4d 61 69 6c 6d 65 72  |cument. (Mailmer|
00002e40  67 65 20 65 6e 67 61 67  65 64 29 22 3a f2 43 4f  |ge engaged)":.CO|
00002e50  4e 46 49 47 3a e7 59 4e  3d 30 8c e5 8d 54 74 43  |NFIG:.YN=0...TtC|
00002e60  0d 0b 72 12 4d 4c 25 3d  48 25 3a 4d 41 49 4c 25  |..r.ML%=H%:MAIL%|
00002e70  3d 31 0d 0b 7c 8c db 3a  58 3d 32 3a 59 3d 32 3a  |=1..|..:X=2:Y=2:|
00002e80  57 25 3d 33 35 3a 4c 25  3d 33 3a f2 4c 57 4e 3a  |W%=35:L%=3:.LWN:|
00002e90  4d 45 24 28 31 29 3d 22  50 72 69 6e 74 20 22 2b  |ME$(1)="Print "+|
00002ea0  44 4f 43 24 2b 22 20 66  6f 72 20 61 6c 6c 20 72  |DOC$+" for all r|
00002eb0  65 63 6f 72 64 73 22 3a  4d 45 24 28 32 29 3d 22  |ecords":ME$(2)="|
00002ec0  46 69 6c 74 65 72 20 72  65 63 6f 72 64 73 22 3a  |Filter records":|
00002ed0  4d 45 24 28 33 29 3d 22  41 62 61 6e 64 6f 6e 20  |ME$(3)="Abandon |
00002ee0  70 72 69 6e 74 69 6e 67  22 3a 58 3d 33 3a 59 3d  |printing":X=3:Y=|
00002ef0  33 3a 4c 25 3d 59 3a f2  53 45 4c 45 43 54 0d 0b  |3:L%=Y:.SELECT..|
00002f00  86 17 e7 53 45 4c 25 3d  31 8c 51 46 25 3d 30 3a  |...SEL%=1.QF%=0:|
00002f10  e5 8d 74 64 4b 0d 0b 90  11 e7 53 45 4c 25 3d 33  |..tdK.....SEL%=3|
00002f20  8c e5 8d 54 74 43 0d 0b  9a 17 e7 53 45 4c 25 3d  |...TtC.....SEL%=|
00002f30  32 8c 51 46 25 3d 31 3a  e5 8d 64 58 4e 0d 0b a4  |2.QF%=1:..dXN...|
00002f40  83 58 3d 32 3a 59 3d 38  3a 57 25 3d 32 34 3a 4c  |.X=2:Y=8:W%=24:L|
00002f50  25 3d 32 3a f2 4c 57 4e  3a 4d 45 24 28 31 29 3d  |%=2:.LWN:ME$(1)=|
00002f60  22 43 6f 6e 74 69 6e 75  6f 75 73 20 70 72 69 6e  |"Continuous prin|
00002f70  74 69 6e 67 22 3a 4d 45  24 28 32 29 3d 22 52 65  |ting":ME$(2)="Re|
00002f80  71 75 65 73 74 20 65 61  63 68 20 70 72 69 6e 74  |quest each print|
00002f90  6f 75 74 22 3a 58 3d 33  3a 59 3d 39 3a 4c 25 3d  |out":X=3:Y=9:L%=|
00002fa0  32 3a f2 53 45 4c 45 43  54 3a 50 4d 25 3d 53 45  |2:.SELECT:PM%=SE|
00002fb0  4c 25 3a e7 53 45 4c 25  3d 32 8c 50 4d 25 3d 30  |L%:.SEL%=2.PM%=0|
00002fc0  0d 0b ae 10 48 25 3d 4d  4c 25 3a e5 8d 64 48 4a  |....H%=ML%:..dHJ|
00002fd0  0d 0b b8 65 58 3d 32 30  3a 59 3d 32 34 3a 57 25  |...eX=20:Y=24:W%|
00002fe0  3d 33 37 3a 4c 25 3d 31  3a f2 4c 57 4e 3a f1 8a  |=37:L%=1:.LWN:..|
00002ff0  32 31 2c 32 35 29 3b 22  45 6e 74 65 72 20 44 6f  |21,25);"Enter Do|
00003000  63 75 6d 65 6e 74 20 66  69 6c 65 6e 61 6d 65 3a  |cument filename:|
00003010  20 22 3b 3a 58 3d b1 3a  59 3d 32 35 3a 4c 25 3d  | ";:X=.:Y=25:L%=|
00003020  31 30 3a f2 54 45 58 54  3a e7 54 24 3d 22 22 8c  |10:.TEXT:.T$="".|
00003030  e5 8d 54 74 43 0d 0b c2  11 e7 53 45 4c 25 3d 33  |..TtC.....SEL%=3|
00003040  8c e5 8d 64 6a 4b 0d 0b  cc 25 db 3a ef 32 3a ff  |...djK...%.:.2:.|
00003050  22 45 58 45 43 20 3c 44  61 74 61 56 69 73 69 6f  |"EXEC <DataVisio|
00003060  6e 24 44 69 72 3e 2e 22  2b 54 24 0d 0b d6 1b 49  |n$Dir>."+T$....I|
00003070  24 3d bf 28 30 29 3a e7  49 24 3d 22 22 8c ef 33  |$=.(0):.I$=""..3|
00003080  3a e5 8d 54 74 43 0d 0b  e0 0e f1 49 24 3b 3a e5  |:..TtC.....I$;:.|
00003090  8d 64 56 4b 0d 0b ea 4b  db 3a fb 31 33 31 3a f1  |.dVK...K.:.131:.|
000030a0  8a 30 2c 30 29 3b 22 50  72 65 73 73 20 53 48 49  |.0,0);"Press SHI|
000030b0  46 54 20 74 6f 20 76 69  65 77 20 6e 65 78 74 20  |FT to view next |
000030c0  70 61 67 65 2e 2e 2e 22  3a fb 46 47 25 3a ef 32  |page...":.FG%:.2|
000030d0  38 2c 30 2c 32 39 2c 37  39 2c 32 3a ef 31 34 0d  |8,0,29,79,2:.14.|
000030e0  0b f4 20 ff 22 45 58 45  43 20 3c 44 61 74 61 56  |.. ."EXEC <DataV|
000030f0  69 73 69 6f 6e 24 44 69  72 3e 2e 22 2b 54 24 0d  |ision$Dir>."+T$.|
00003100  0b fe 18 49 24 3d bf 28  30 29 3a e7 49 24 3d 22  |...I$=.(0):.I$="|
00003110  22 8c e5 8d 54 52 4c 0d  0c 08 0e f1 49 24 3b 3a  |"...TRL.....I$;:|
00003120  e5 8d 64 7e 4b 0d 0c 12  4f ef 32 36 3a ef 31 35  |..d~K...O.26:.15|
00003130  3a fb 31 33 31 3a f1 8a  30 2c 30 29 3b 22 50 72  |:.131:..0,0);"Pr|
00003140  65 73 73 20 52 45 54 55  52 4e 20 74 6f 20 72 65  |ess RETURN to re|
00003150  74 75 72 6e 20 74 6f 20  74 68 65 20 6d 65 6e 75  |turn to the menu|
00003160  2e 2e 2e 22 3a fb 46 47  25 3a 49 24 3d be 3a e5  |...":.FG%:I$=.:.|
00003170  8d 54 74 43 0d 0c 1c 0a  dd f2 54 45 53 54 0d 0c  |.TtC......TEST..|
00003180  26 11 e7 49 24 3d 22 45  22 8c e5 8d 54 74 43 0d  |&..I$="E"...TtC.|
00003190  0c 30 05 e1 0d 0c 3a 19  e7 44 4f 43 24 3d 22 6e  |.0....:..DOC$="n|
000031a0  6f 20 66 69 6c 65 22 8c  e5 8d 54 74 43 0d 0c 44  |o file"...TtC..D|
000031b0  66 58 3d 32 30 3a 59 3d  31 35 3a 57 25 3d 31 37  |fX=20:Y=15:W%=17|
000031c0  3a 4c 25 3d 32 3a f2 4c  57 4e 3a 4d 45 24 28 31  |:L%=2:.LWN:ME$(1|
000031d0  29 3d 22 45 78 70 6f 72  74 20 6e 65 77 20 66 69  |)="Export new fi|
000031e0  6c 65 22 3a 4d 45 24 28  32 29 3d 22 41 70 70 65  |le":ME$(2)="Appe|
000031f0  6e 64 20 6f 6c 64 20 66  69 6c 65 22 3a 58 3d 32  |nd old file":X=2|
00003200  31 3a 59 3d 31 36 3a 4c  25 3d 32 3a f2 53 45 4c  |1:Y=16:L%=2:.SEL|
00003210  45 43 54 0d 0c 4e 65 58  3d 32 30 3a 59 3d 32 30  |ECT..NeX=20:Y=20|
00003220  3a 57 25 3d 33 37 3a 4c  25 3d 31 3a f2 4c 57 4e  |:W%=37:L%=1:.LWN|
00003230  3a f1 8a 32 31 2c 32 31  29 3b 22 45 6e 74 65 72  |:..21,21);"Enter|
00003240  20 44 6f 63 75 6d 65 6e  74 20 66 69 6c 65 6e 61  | Document filena|
00003250  6d 65 3a 20 22 3b 3a 58  3d b1 3a 59 3d 32 31 3a  |me: ";:X=.:Y=21:|
00003260  4c 25 3d 31 30 3a f2 54  45 58 54 3a e7 54 24 3d  |L%=10:.TEXT:.T$=|
00003270  22 22 8c e5 8d 54 74 43  0d 0c 58 4c db 3a e7 53  |""...TtC..XL.:.S|
00003280  45 4c 25 3d 31 8c ff 22  53 50 4f 4f 4c 20 3c 44  |EL%=1.."SPOOL <D|
00003290  61 74 61 56 69 73 69 6f  6e 24 44 69 72 3e 2e 22  |ataVision$Dir>."|
000032a0  2b 54 24 3a 8b ff 22 53  50 4f 4f 4c 4f 4e 20 3c  |+T$:.."SPOOLON <|
000032b0  44 61 74 61 56 69 73 69  6f 6e 24 44 69 72 3e 2e  |DataVision$Dir>.|
000032c0  22 2b 54 24 0d 0c 62 26  e3 49 3d 31 b8 54 4c 25  |"+T$..b&.I=1.TL%|
000032d0  3a f1 44 4f 24 28 49 29  3a ed 49 3a ff 22 53 50  |:.DO$(I):.I:."SP|
000032e0  4f 4f 4c 22 3a e5 8d 54  74 43 0d 0c 6c 19 e7 44  |OOL":..TtC..l..D|
000032f0  4f 43 24 3d 22 6e 6f 20  66 69 6c 65 22 8c e5 8d  |OC$="no file"...|
00003300  54 74 43 0d 0c 76 a5 db  3a fb 31 33 31 3a f1 22  |TtC..v..:.131:."|
00003310  50 72 65 73 73 20 53 48  49 46 54 20 74 6f 20 76  |Press SHIFT to v|
00003320  69 65 77 20 6e 65 78 74  20 70 61 67 65 2e 2e 2e  |iew next page...|
00003330  22 3a fb 46 47 25 3a ef  32 38 2c 30 2c 32 39 2c  |":.FG%:.28,0,29,|
00003340  37 39 2c 32 3a ef 31 34  3a e3 49 3d 31 b8 54 4c  |79,2:.14:.I=1.TL|
00003350  25 3a f1 44 4f 24 28 49  29 3a ed 49 3a ef 31 35  |%:.DO$(I):.I:.15|
00003360  3a ef 32 36 3a fb 31 33  31 3a f1 8a 30 2c 30 29  |:.26:.131:..0,0)|
00003370  3b 22 50 72 65 73 73 20  52 45 54 55 52 4e 20 74  |;"Press RETURN t|
00003380  6f 20 72 65 74 75 72 6e  20 74 6f 20 74 68 65 20  |o return to the |
00003390  6d 65 6e 75 2e 2e 2e 22  3a fb 46 47 25 3a 49 24  |menu...":.FG%:I$|
000033a0  3d be 3a e5 8d 54 74 43  0d 0c 80 46 db 3a fb 31  |=.:..TtC...F.:.1|
000033b0  33 31 3a f1 22 50 72 65  73 73 20 52 45 54 55 52  |31:."Press RETUR|
000033c0  4e 20 74 6f 20 72 65 74  75 72 6e 20 74 6f 20 74  |N to return to t|
000033d0  68 65 20 57 6f 72 64 20  50 72 6f 63 65 73 73 6f  |he Word Processo|
000033e0  72 20 4d 65 6e 75 22 3a  fb 46 47 25 3a f1 0d 0c  |r Menu":.FG%:...|
000033f0  8a 16 86 20 e8 20 22 2a  22 20 54 24 3a ee 85 e5  |... . "*" T$:...|
00003400  8d 74 72 4c 0d 0c 94 10  e7 54 24 3d 22 22 8c e5  |.trL.....T$=""..|
00003410  8d 64 50 4c 0d 0c 9e 13  f1 3a ff 54 24 3a f1 3a  |.dPL.....:.T$:.:|
00003420  ee 85 e5 8d 74 5c 4e 0d  0c a8 09 e5 8d 74 4a 4c  |....t\N......tJL|
00003430  0d 0c b2 0b ee 85 e5 8d  74 5c 4e 0d 0c bc 0f f1  |........t\N.....|
00003440  3a f1 f6 24 3a e5 8d 74  4a 4c 0d 0c c6 0e 49 24  |:..$:..tJL....I$|
00003450  3d be 3a e5 8d 74 40 4c  0d 0c d0 0b ee 85 e5 8d  |=.:..t@L........|
00003460  74 5c 4e 0d 0c da 09 e5  8d 54 74 43 0d 0c e4 38  |t\N......TtC...8|
00003470  dd f2 44 4f 43 57 49 4e  3a fb 31 32 38 3a 58 3d  |..DOCWIN:.128:X=|
00003480  31 30 3a 59 3d 31 30 3a  57 25 3d 35 30 3a 4c 25  |10:Y=10:W%=50:L%|
00003490  3d 31 30 3a f2 4c 57 4e  3a fb 46 47 25 3a c8 97  |=10:.LWN:.FG%:..|
000034a0  20 ee 3a e1 0d 0c ee 4c  f2 44 4f 43 57 49 4e 3a  | .:....L.DOCWIN:|
000034b0  f1 8a 31 31 2c 31 31 29  3b 22 44 65 6c 65 74 65  |..11,11);"Delete|
000034c0  20 44 6f 63 75 6d 65 6e  74 3a 20 41 72 65 20 79  | Document: Are y|
000034d0  6f 75 20 73 75 72 65 3f  22 3b 3a f2 59 4e 3a f2  |ou sure?";:.YN:.|
000034e0  42 55 44 47 3a e7 59 4e  3d 30 8c e5 8d 54 4a 45  |BUDG:.YN=0...TJE|
000034f0  0d 0c f8 50 e3 49 3d 31  b8 54 4c 25 3a 44 4f 24  |...P.I=1.TL%:DO$|
00003500  28 49 29 3d 22 22 3a 44  4f 24 28 31 29 3d c4 37  |(I)="":DO$(1)=.7|
00003510  30 2c 22 20 22 29 3a ed  49 3a 4c 49 25 3d 31 3a  |0," "):.I:LI%=1:|
00003520  54 4c 25 3d 31 3a 53 4c  25 3d 31 3a 44 4f 43 24  |TL%=1:SL%=1:DOC$|
00003530  3d 22 6e 6f 20 66 69 6c  65 22 3a e5 8d 54 74 43  |="no file":..TtC|
00003540  0d 0d 02 b1 f2 44 4f 43  57 49 4e 3a f1 8a 31 31  |.....DOCWIN:..11|
00003550  2c 31 31 29 3b 22 53 65  61 72 63 68 20 61 6e 64  |,11);"Search and|
00003560  20 52 65 70 6c 61 63 65  22 3b 8a 31 31 2c 31 33  | Replace";.11,13|
00003570  29 3b 22 52 65 70 6c 61  63 65 3a 22 3a fb 31 33  |);"Replace:":.13|
00003580  31 3a f1 8a 32 30 2c 31  33 29 3b 89 28 33 30 29  |1:..20,13);.(30)|
00003590  3a 58 3d 32 30 3a 59 3d  31 33 3a 4c 25 3d 33 30  |:X=20:Y=13:L%=30|
000035a0  3a f2 54 45 58 54 3a 52  45 50 24 3d 54 24 3a fb  |:.TEXT:REP$=T$:.|
000035b0  46 47 25 3a f1 8a 31 31  2c 31 35 29 3b 22 57 69  |FG%:..11,15);"Wi|
000035c0  74 68 3a 20 20 20 22 3a  fb 31 33 31 3a f1 8a 32  |th:   ":.131:..2|
000035d0  30 2c 31 35 29 3b 89 28  33 30 29 3a 58 3d 32 30  |0,15);.(30):X=20|
000035e0  3a 59 3d 31 35 3a 4c 25  3d 33 30 3a f2 54 45 58  |:Y=15:L%=30:.TEX|
000035f0  54 0d 0d 0c 32 57 49 54  24 3d 54 24 3a fb 46 47  |T...2WIT$=T$:.FG|
00003600  25 3a e7 52 45 50 24 3d  22 22 20 84 20 52 45 50  |%:.REP$="" . REP|
00003610  24 3d 57 49 54 24 20 8c  f2 42 55 44 47 3a e5 8d  |$=WIT$ ..BUDG:..|
00003620  54 4a 45 0d 0d 16 37 f1  8a 31 31 2c 31 38 29 3b  |TJE...7..11,18);|
00003630  22 44 65 74 61 69 6c 73  20 43 6f 72 72 65 63 74  |"Details Correct|
00003640  3f 20 22 3b 3a f2 59 4e  3a e7 59 4e 3d 30 8c f2  |? ";:.YN:.YN=0..|
00003650  42 55 44 47 3a e5 8d 54  4a 45 0d 0d 20 14 4c 41  |BUDG:..TJE.. .LA|
00003660  53 54 25 3d 30 3a e3 49  3d 31 b8 54 4c 25 0d 0d  |ST%=0:.I=1.TL%..|
00003670  2a 35 47 3d a7 44 4f 24  28 49 29 2c 52 45 50 24  |*5G=.DO$(I),REP$|
00003680  29 3a e7 47 3d 30 20 84  20 47 3d 4c 41 53 54 25  |):.G=0 . G=LAST%|
00003690  20 8c e5 8d 44 52 4d 20  8b 20 4c 41 53 54 25 20  | ...DRM . LAST% |
000036a0  3d 20 47 0d 0d 34 62 4c  53 24 3d c0 44 4f 24 28  |= G..4bLS$=.DO$(|
000036b0  49 29 2c 28 47 2d 31 29  29 3a 52 53 24 3d c1 44  |I),(G-1)):RS$=.D|
000036c0  4f 24 28 49 29 2c 47 2b  a9 28 52 45 50 24 29 29  |O$(I),G+.(REP$))|
000036d0  3a 44 4f 24 28 49 29 3d  4c 53 24 2b 57 49 54 24  |:DO$(I)=LS$+WIT$|
000036e0  2b 52 53 24 3a e7 a9 28  44 4f 24 28 49 29 29 3e  |+RS$:..(DO$(I))>|
000036f0  37 30 8c 44 4f 24 28 49  29 3d c0 44 4f 24 28 49  |70.DO$(I)=.DO$(I|
00003700  29 2c 37 30 29 0d 0d 3e  32 e7 a9 28 44 4f 24 28  |),70)..>2..(DO$(|
00003710  49 29 29 3c 37 30 8c 44  4f 24 28 49 29 3d 44 4f  |I))<70.DO$(I)=DO|
00003720  24 28 49 29 2b c4 37 30  2d a9 28 44 4f 24 28 49  |$(I)+.70-.(DO$(I|
00003730  29 29 2c 22 20 22 29 0d  0d 48 09 e5 8d 54 6a 4d  |))," ")..H...TjM|
00003740  0d 0d 52 1a 4c 41 53 54  25 3d 30 3a ed 49 3a f2  |..R.LAST%=0:.I:.|
00003750  42 55 44 47 3a e5 8d 54  4a 45 0d 0d 5c 06 ef 33  |BUDG:..TJE..\..3|
00003760  0d 0d 66 26 e7 44 4f 43  24 3c 3e 22 6e 6f 20 66  |..f&.DOC$<>"no f|
00003770  69 6c 65 22 8c f2 44 4e  53 43 3a e7 59 4e 3d 30  |ile"..DNSC:.YN=0|
00003780  8c e5 8d 54 74 43 0d 0d  70 7d db 3a ff 22 43 41  |...TtC..p}.:."CA|
00003790  54 20 3c 44 61 74 61 56  69 73 69 6f 6e 24 44 69  |T <DataVision$Di|
000037a0  72 3e 22 3a 58 3d 32 3a  59 3d 31 36 3a 57 25 3d  |r>":X=2:Y=16:W%=|
000037b0  34 30 3a 4c 25 3d 31 3a  f2 4c 57 4e 3a f1 8a 33  |40:L%=1:.LWN:..3|
000037c0  2c 31 37 29 3b 22 45 6e  74 65 72 20 44 6f 63 75  |,17);"Enter Docu|
000037d0  6d 65 6e 74 20 66 69 6c  65 6e 61 6d 65 3a 20 22  |ment filename: "|
000037e0  3b 3a 58 3d b1 3a 59 3d  31 37 3a 4c 25 3d 31 30  |;:X=.:Y=17:L%=10|
000037f0  3a f2 54 45 58 54 3a e7  54 24 3d 22 22 8c e5 8d  |:.TEXT:.T$=""...|
00003800  54 74 43 0d 0d 7a 2b db  3a f1 8a 32 2c 32 29 3b  |TtC..z+.:..2,2);|
00003810  22 49 6d 70 6f 72 74 69  6e 67 20 64 6f 63 75 6d  |"Importing docum|
00003820  65 6e 74 20 22 3b 54 24  3b 22 2e 2e 2e 22 0d 0d  |ent ";T$;"..."..|
00003830  84 30 54 4c 25 3d 31 3a  44 4f 24 28 31 29 3d 22  |.0TL%=1:DO$(1)="|
00003840  22 3a ff 22 45 58 45 43  20 3c 44 61 74 61 56 69  |":."EXEC <DataVi|
00003850  73 69 6f 6e 24 44 69 72  3e 2e 22 2b 54 24 0d 0d  |sion$Dir>."+T$..|
00003860  8e 18 49 24 3d bf 28 30  29 3a e7 49 24 3d 22 22  |..I$=.(0):.I$=""|
00003870  8c e5 8d 64 40 4d 0d 0d  98 2a e7 97 28 49 24 29  |...d@M...*..(I$)|
00003880  3d 31 33 8c 54 4c 25 3d  54 4c 25 2b 31 3a 44 4f  |=13.TL%=TL%+1:DO|
00003890  24 28 54 4c 25 29 3d 22  22 3a e5 20 8d 74 4e 4d  |$(TL%)="":. .tNM|
000038a0  0d 0d a2 13 e7 97 28 49  24 29 3c 33 32 8c e5 8d  |......(I$)<32...|
000038b0  74 4e 4d 0d 0d ac 1e 44  4f 24 28 54 4c 25 29 3d  |tNM....DO$(TL%)=|
000038c0  44 4f 24 28 54 4c 25 29  2b 49 24 3a e5 8d 74 4e  |DO$(TL%)+I$:..tN|
000038d0  4d 0d 0d b6 7a 54 4c 25  3d 54 4c 25 2b 31 3a 44  |M...zTL%=TL%+1:D|
000038e0  4f 24 28 54 4c 25 29 3d  22 22 3a e7 54 4c 25 3d  |O$(TL%)="":.TL%=|
000038f0  28 6e 6f 6c 25 2b 31 29  3a 8c db 3a fb 31 32 38  |(nol%+1):..:.128|
00003900  3a f1 8a 32 2c 32 29 3b  22 55 4e 41 42 4c 45 20  |:..2,2);"UNABLE |
00003910  54 4f 20 52 45 41 44 20  45 4e 54 49 52 45 20 44  |TO READ ENTIRE D|
00003920  4f 43 55 4d 45 4e 54 22  3a fb 46 47 25 3a f5 3a  |OCUMENT":.FG%:.:|
00003930  49 24 3d bf 28 30 29 3a  fd 49 24 3d 22 22 3a e5  |I$=.(0):.I$="":.|
00003940  8d 64 40 4d 3a 8b e5 8d  74 4e 4d 0d 0d c0 1a 54  |.d@M:...tNM....T|
00003950  4c 25 3d 54 4c 25 2d 31  3a e7 54 4c 25 3d 30 8c  |L%=TL%-1:.TL%=0.|
00003960  e5 8d 54 74 43 0d 0d ca  33 e3 49 3d 31 b8 54 4c  |..TtC...3.I=1.TL|
00003970  25 3a e7 a9 28 44 4f 24  28 49 29 29 3e 37 30 8c  |%:..(DO$(I))>70.|
00003980  44 4f 24 28 49 29 3d c0  44 4f 24 28 49 29 2c 37  |DO$(I)=.DO$(I),7|
00003990  30 29 3a e5 8d 64 5e 4d  0d 0d d4 32 e7 a9 28 44  |0):..d^M...2..(D|
000039a0  4f 24 28 49 29 29 3c 37  30 8c 44 4f 24 28 49 29  |O$(I))<70.DO$(I)|
000039b0  3d 44 4f 24 28 49 29 2b  c4 37 30 2d a9 28 44 4f  |=DO$(I)+.70-.(DO|
000039c0  24 28 49 29 29 2c 22 20  22 29 0d 0d de 14 ed 49  |$(I))," ").....I|
000039d0  3a 44 4f 43 24 3d 54 24  3a e5 8d 54 74 43 0d 0d  |:DOC$=T$:..TtC..|
000039e0  e8 25 f5 3a 49 24 3d bf  28 30 29 3a fd 97 28 49  |.%.:I$=.(0):..(I|
000039f0  24 29 3e 33 31 20 84 20  49 24 3d 22 22 3a e5 8d  |$)>31 . I$="":..|
00003a00  64 72 4d 0d 0d f2 17 e7  49 24 3d 22 22 8c e5 8d  |drM.....I$=""...|
00003a10  64 40 4d 3a 8b e5 8d 74  6c 4d 0d 0d fc 2e dd f2  |d@M:...tlM......|
00003a20  53 45 4c 45 43 54 3a 45  44 25 3d 59 2b 28 4c 25  |SELECT:ED%=Y+(L%|
00003a30  2d 31 29 3a 42 47 25 3d  58 2b 28 57 25 2d 31 29  |-1):BG%=X+(W%-1)|
00003a40  3a 53 53 45 4c 25 3d 31  0d 0e 06 3e e3 49 3d 31  |:SSEL%=1...>.I=1|
00003a50  b8 4c 25 3a f1 8a 58 2c  59 2b 28 49 2d 31 29 29  |.L%:..X,Y+(I-1))|
00003a60  3b 22 20 20 22 3b 4d 45  24 28 49 29 3b c4 28 57  |;"  ";ME$(I);.(W|
00003a70  25 2d 32 29 2d a9 28 4d  45 24 28 49 29 29 2c 22  |%-2)-.(ME$(I)),"|
00003a80  20 22 29 3a ed 49 0d 0e  10 2b c8 97 20 58 50 2c  | "):.I...+.. XP,|
00003a90  59 50 2c 42 55 54 3a 58  50 3d a8 28 58 50 2f 31  |YP,BUT:XP=.(XP/1|
00003aa0  36 29 3a 59 50 3d 33 31  2d a8 28 59 50 2f 33 32  |6):YP=31-.(YP/32|
00003ab0  29 0d 0e 1a 18 e7 59 50  3c 59 20 84 20 59 50 3e  |).....YP<Y . YP>|
00003ac0  45 44 25 8c e5 8d 54 46  4e 0d 0e 24 18 e7 58 50  |ED%...TFN..$..XP|
00003ad0  3c 58 20 84 20 58 50 3e  42 47 25 8c e5 8d 54 46  |<X . XP>BG%...TF|
00003ae0  4e 0d 0e 2e 72 53 45 4c  25 3d 28 59 50 2d 59 29  |N...rSEL%=(YP-Y)|
00003af0  2b 31 3a f2 43 4c 45 41  3a fb 20 31 33 31 3a fb  |+1:.CLEA:. 131:.|
00003b00  31 32 37 3a f1 8a 58 2c  59 50 29 3b 22 20 20 22  |127:..X,YP);"  "|
00003b10  3b 4d 45 24 28 53 45 4c  25 29 3b c4 28 57 25 2d  |;ME$(SEL%);.(W%-|
00003b20  32 29 2d a9 28 4d 45 24  28 53 45 4c 25 29 29 2c  |2)-.(ME$(SEL%)),|
00003b30  22 20 22 29 3a fb 20 46  47 25 3a fb 31 32 37 3a  |" "):. FG%:.127:|
00003b40  e7 42 55 54 3d 34 8c e5  8d 54 78 4e 3a 8b e5 8d  |.BUT=4...TxN:...|
00003b50  54 50 4e 0d 0e 38 08 ef  37 3a e1 0d 0e 42 52 dd  |TPN..8..7:...BR.|
00003b60  f2 43 4c 45 41 3a e7 53  53 45 4c 25 3c 3e 53 45  |.CLEA:.SSEL%<>SE|
00003b70  4c 25 8c e3 49 3d 31 b8  4c 25 3a f1 8a 58 2c 59  |L%..I=1.L%:..X,Y|
00003b80  2b 28 49 2d 31 29 29 3b  22 20 20 22 3b 4d 45 24  |+(I-1));"  ";ME$|
00003b90  28 49 29 3b c4 28 57 25  2d 32 29 2d a9 28 4d 45  |(I);.(W%-2)-.(ME|
00003ba0  24 28 49 29 29 2c 22 20  22 29 3a ed 49 0d 0e 4c  |$(I))," "):.I..L|
00003bb0  10 53 53 45 4c 25 3d 53  45 4c 25 3a e1 0d 0e 56  |.SSEL%=SEL%:...V|
00003bc0  05 fa 0d 0e 60 05 20 0d  0e 6a 05 20 0d 0e 74 05  |....`. ..j. ..t.|
00003bd0  20 0d 0e 7e 05 20 0d 0e  88 09 20 d9 20 23 30 0d  | ..~. .... . #0.|
00003be0  0e 92 0a 20 f2 51 75 69  74 0d 0e 9c 26 ef 33 3a  |... .Quit...&.3:|
00003bf0  ef 32 36 3a d9 20 23 30  3a ff 22 46 58 32 31 2c  |.26:. #0:."FX21,|
00003c00  30 22 3a e7 67 6f 25 3d  30 8c e5 8d 64 4e 4e 0d  |0":.go%=0...dNN.|
00003c10  0e a6 11 e7 9f 3d 31 37  8c 20 e5 20 8d 54 74 43  |.....=17. . .TtC|
00003c20  0d 0e b0 85 e7 9f 3d 32  31 34 8c f2 45 52 57 49  |......=214..ERWI|
00003c30  4e 3a fb 31 38 30 3a f1  8a 32 30 2c 31 32 29 3b  |N:.180:..20,12);|
00003c40  22 43 61 6e 6e 6f 74 20  72 65 61 64 20 41 53 43  |"Cannot read ASC|
00003c50  49 49 20 66 69 6c 65 2e  2e 2e 22 3b 8a 32 30 2c  |II file...";.20,|
00003c60  31 34 29 3b 22 43 6c 69  63 6b 20 6d 6f 75 73 65  |14);"Click mouse|
00003c70  20 74 6f 20 63 6f 6e 74  69 6e 75 65 2e 2e 2e 22  | to continue..."|
00003c80  3a ef 37 3a fb 46 47 25  3a f2 4d 4b 4c 49 4b 3a  |:.7:.FG%:.MKLIK:|
00003c90  ff 22 43 4c 4f 53 45 22  3a ef 33 3a ef 32 36 3a  |."CLOSE":.3:.26:|
00003ca0  e5 8d 54 74 43 0d 0e ba  52 f2 45 52 57 49 4e 3a  |..TtC...R.ERWIN:|
00003cb0  fb 31 38 30 3a f1 8a 32  30 2c 31 32 29 3b 22 53  |.180:..20,12);"S|
00003cc0  79 73 74 65 6d 20 52 65  70 6f 72 74 65 64 20 45  |ystem Reported E|
00003cd0  72 72 6f 72 20 23 22 3b  9f 3b 22 3a 22 3b 8a 32  |rror #";.;":";.2|
00003ce0  30 2c 31 34 29 3b f6 24  3a ef 37 3a fb 46 47 25  |0,14);.$:.7:.FG%|
00003cf0  3a f2 4d 4b 4c 49 4b 0d  0e c4 19 ff 22 43 4c 4f  |:.MKLIK....."CLO|
00003d00  53 45 22 3a ef 33 3a ef  32 36 3a e5 8d 54 74 43  |SE":.3:.26:..TtC|
00003d10  0d 0e ce 7b f2 45 52 57  49 4e 3a fb 31 38 30 3a  |...{.ERWIN:.180:|
00003d20  f1 8a 32 30 2c 31 32 29  3b 22 43 61 6e 6e 6f 74  |..20,12);"Cannot|
00003d30  20 72 65 61 64 20 74 68  65 20 66 69 6c 65 20 3a  | read the file :|
00003d40  22 3b 46 49 24 3b 8a 32  30 2c 31 34 29 3b 22 28  |";FI$;.20,14);"(|
00003d50  64 6f 65 73 20 6e 6f 74  20 65 78 69 73 74 2f 6e  |does not exist/n|
00003d60  6f 74 20 61 20 44 61 74  61 56 69 73 69 6f 6e 20  |ot a DataVision |
00003d70  66 69 6c 65 29 22 3a fb  46 47 25 3a ef 37 3a f2  |file)":.FG%:.7:.|
00003d80  4d 4b 4c 49 4b 3a e5 8d  44 60 4e 0d 0e d8 6c db  |MKLIK:..D`N...l.|
00003d90  3a f1 8a 31 2c 31 29 3b  22 41 64 2d 48 6f 63 20  |:..1,1);"Ad-Hoc |
00003da0  51 75 65 72 79 22 3b 8a  31 2c 32 29 3b c4 31 32  |Query";.1,2);.12|
00003db0  2c bd 28 32 34 31 29 29  3a 50 24 28 31 29 3d 22  |,.(241)):P$(1)="|
00003dc0  3d 22 3a 50 24 28 32 29  3d 22 3c 3e 22 3a 50 24  |=":P$(2)="<>":P$|
00003dd0  28 33 29 3d 22 3c 22 3a  50 24 28 34 29 3d 22 3e  |(3)="<":P$(4)=">|
00003de0  22 3a 50 24 28 35 29 3d  22 3c 3d 22 3a 50 24 28  |":P$(5)="<=":P$(|
00003df0  36 29 3d 22 3e 3d 22 0d  0e e2 75 f1 8a 30 2c 34  |6)=">="...u..0,4|
00003e00  29 3b bd 28 31 35 34 29  3b c4 37 38 2c bd 28 31  |);.(154);.78,.(1|
00003e10  35 39 29 29 3b bd 28 31  35 38 29 3b 8a 31 2c 34  |59));.(158);.1,4|
00003e20  29 3b 22 4c 69 22 3b 8a  34 2c 34 29 3b 22 46 69  |);"Li";.4,4);"Fi|
00003e30  65 6c 64 22 3b 8a 32 35  2c 34 29 3b 22 4f 70 22  |eld";.25,4);"Op"|
00003e40  3b 8a 32 39 2c 34 29 3b  22 43 6f 6e 73 74 61 6e  |;.29,4);"Constan|
00003e50  74 2f 45 78 70 72 65 73  73 69 6f 6e 22 3b 8a 37  |t/Expression";.7|
00003e60  34 2c 34 29 3b 22 4c 6f  67 69 63 22 0d 0e ec 3b  |4,4);"Logic"...;|
00003e70  f1 8a 33 2c 34 29 3b bd  28 32 33 33 29 3b 8a 32  |..3,4);.(233);.2|
00003e80  34 2c 34 29 3b bd 28 32  33 33 29 3b 8a 32 38 2c  |4,4);.(233);.28,|
00003e90  34 29 3b bd 28 32 33 33  29 3b 8a 37 33 2c 34 29  |4);.(233);.73,4)|
00003ea0  3b bd 28 32 33 33 29 0d  0e f6 75 e3 46 3d 35 b8  |;.(233)...u.F=5.|
00003eb0  31 34 3a f1 8a 33 2d a9  28 c3 28 46 2d 34 29 29  |14:..3-.(.(F-4))|
00003ec0  2c 46 29 3b 46 2d 34 3b  8a 30 2c 46 29 3b bd 28  |,F);F-4;.0,F);.(|
00003ed0  31 35 35 29 3b 8a 33 2c  46 29 3b bd 28 32 33 31  |155);.3,F);.(231|
00003ee0  29 3b 8a 32 34 2c 46 29  3b bd 28 32 33 31 29 3b  |);.24,F);.(231);|
00003ef0  8a 32 38 2c 46 29 3b bd  28 32 33 31 29 3b 8a 37  |.28,F);.(231);.7|
00003f00  33 2c 46 29 3b bd 28 32  33 31 29 3b 8a 37 39 2c  |3,F);.(231);.79,|
00003f10  46 29 3b bd 28 31 35 37  29 3a ed 46 0d 0f 00 20  |F);.(157):.F... |
00003f20  ff 22 43 4c 4f 53 45 22  3a 43 3d ad a4 4d 79 46  |."CLOSE":C=..MyF|
00003f30  69 6c 65 28 46 4f 24 29  3a 49 3d 31 0d 0f 0a 34  |ile(FO$):I=1...4|
00003f40  58 3d 34 3a 59 3d 49 2b  34 3a 4c 25 3d 32 30 3a  |X=4:Y=I+4:L%=20:|
00003f50  f2 54 45 58 54 3a 4e 24  3d 54 24 3a f2 43 4c 3a  |.TEXT:N$=T$:.CL:|
00003f60  f2 43 48 45 4b 3a 51 24  28 49 2c 31 29 3d 4e 24  |.CHEK:Q$(I,1)=N$|
00003f70  0d 0f 14 35 58 3d 32 35  3a 59 3d 49 2b 34 3a 4c  |...5X=25:Y=I+4:L|
00003f80  25 3d 32 3a f2 54 45 58  54 3a 4e 24 3d 54 24 3a  |%=2:.TEXT:N$=T$:|
00003f90  f2 43 4c 3a f2 43 48 45  4b 32 3a 51 24 28 49 2c  |.CL:.CHEK2:Q$(I,|
00003fa0  32 29 3d 4e 24 0d 0f 1e  39 e7 51 24 28 49 2c 37  |2)=N$...9.Q$(I,7|
00003fb0  29 3d 22 39 22 84 20 bb  28 51 24 28 49 2c 37 29  |)="9". .(Q$(I,7)|
00003fc0  29 3c 35 20 80 20 bb 28  51 24 28 49 2c 36 29 29  |)<5 . .(Q$(I,6))|
00003fd0  3e 36 8c e5 8d 54 68 4f  8b e5 8d 54 7c 4f 0d 0f  |>6...ThO...T|O..|
00003fe0  28 57 f2 43 4c 3a f1 8a  32 30 2c 31 29 3b 22 49  |(W.CL:..20,1);"I|
00003ff0  6e 76 61 6c 69 64 20 4f  70 65 72 61 74 6f 72 2e  |nvalid Operator.|
00004000  20 57 61 6e 74 20 74 6f  20 63 6f 6e 74 69 6e 75  | Want to continu|
00004010  65 3f 22 3b 8a 32 30 2c  32 29 3b 22 28 59 2f 4e  |e?";.20,2);"(Y/N|
00004020  29 22 3a 49 24 3d be 3a  e7 49 24 3d 22 4e 22 8c  |)":I$=.:.I$="N".|
00004030  e5 8d 54 74 43 0d 0f 32  09 e5 8d 54 54 4f 0d 0f  |..TtC..2...TTO..|
00004040  3c 14 58 3d 32 39 3a 59  3d 49 2b 34 3a 4c 25 3d  |<.X=29:Y=I+4:L%=|
00004050  34 34 0d 0f 46 26 e7 51  24 28 49 2c 37 29 3d 22  |44..F&.Q$(I,7)="|
00004060  35 22 8c f2 54 59 35 3a  51 24 28 49 2c 33 29 3d  |5"..TY5:Q$(I,3)=|
00004070  4e 24 3a e5 8d 44 64 4f  0d 0f 50 26 e7 51 24 28  |N$:..DdO..P&.Q$(|
00004080  49 2c 37 29 3d 22 36 22  8c f2 54 59 36 3a 51 24  |I,7)="6"..TY6:Q$|
00004090  28 49 2c 33 29 3d 4e 24  3a e5 8d 44 64 4f 0d 0f  |(I,3)=N$:..DdO..|
000040a0  5a 1a f2 54 45 58 54 3a  4e 24 3d 54 24 3a 51 24  |Z..TEXT:N$=T$:Q$|
000040b0  28 49 2c 33 29 3d 4e 24  0d 0f 64 55 f1 8a 37 34  |(I,3)=N$..dU..74|
000040c0  2c 49 2b 34 29 3b bd 28  32 35 35 29 3a 49 24 3d  |,I+4);.(255):I$=|
000040d0  be 3a e7 49 24 3d 22 41  22 84 20 49 24 3d 22 4f  |.:.I$="A". I$="O|
000040e0  22 84 20 49 24 3d 22 45  22 84 20 49 24 3d 22 61  |". I$="E". I$="a|
000040f0  22 84 20 49 24 3d 22 6f  22 84 20 49 24 3d 22 65  |". I$="o". I$="e|
00004100  22 8c e5 8d 44 6e 4f 8b  e5 8d 44 64 4f 0d 0f 6e  |"...DnO...DdO..n|
00004110  1c e7 49 24 3d 22 41 22  84 20 49 24 3d 22 61 22  |..I$="A". I$="a"|
00004120  8c 49 24 3d 22 41 4e 44  22 0d 0f 78 1c e7 49 24  |.I$="AND"..x..I$|
00004130  3d 22 45 22 84 20 49 24  3d 22 65 22 8c 49 24 3d  |="E". I$="e".I$=|
00004140  22 45 4e 44 22 0d 0f 82  1b e7 49 24 3d 22 4f 22  |"END".....I$="O"|
00004150  84 20 49 24 3d 22 6f 22  8c 49 24 3d 22 4f 52 22  |. I$="o".I$="OR"|
00004160  0d 0f 8c 1b f1 8a 37 34  2c 49 2b 34 29 3b 49 24  |......74,I+4);I$|
00004170  3a 51 24 28 49 2c 34 29  3d 49 24 0d 0f 96 18 e7  |:Q$(I,4)=I$.....|
00004180  49 24 3d 22 45 4e 44 22  8c 54 25 3d 49 3a e5 8d  |I$="END".T%=I:..|
00004190  54 58 50 0d 0f a0 22 49  3d 49 2b 31 3a e7 49 3e  |TXP..."I=I+1:.I>|
000041a0  31 30 8c 54 25 3d 31 30  3a e5 8d 54 58 50 3a 8b  |10.T%=10:..TXP:.|
000041b0  e5 8d 54 4a 4f 0d 0f aa  0a dd f2 43 48 45 4b 0d  |..TJO......CHEK.|
000041c0  0f b4 8c 4c 25 3d 30 3a  e3 46 3d 31 b8 4e 4f 46  |...L%=0:.F=1.NOF|
000041d0  25 3a cf 23 43 3d 28 46  2d 31 29 2a 36 31 2b 36  |%:.#C=(F-1)*61+6|
000041e0  33 3a e8 23 43 2c 46 4c  24 3a e7 4e 24 3d 46 4c  |3:.#C,FL$:.N$=FL|
000041f0  24 8c cf 23 43 3d 28 46  2d 31 29 2a 36 31 2b 36  |$..#C=(F-1)*61+6|
00004200  33 2b 34 36 3a e8 23 43  2c 54 49 24 3a 51 24 28  |3+46:.#C,TI$:Q$(|
00004210  49 2c 35 29 3d 54 49 24  3a cf 23 43 3d 28 46 2d  |I,5)=TI$:.#C=(F-|
00004220  31 29 2a 36 31 2b 36 33  2b 33 38 3a e8 23 43 2c  |1)*61+63+38:.#C,|
00004230  54 59 24 3a 51 24 28 49  2c 37 29 3d 54 59 24 3a  |TY$:Q$(I,7)=TY$:|
00004240  46 3d 4e 4f 46 25 3a 4c  25 3d 31 0d 0f be 5c ed  |F=NOF%:L%=1...\.|
00004250  46 3a e7 4c 25 3d 31 8c  e5 8d 54 54 4f 8b f2 43  |F:.L%=1...TTO..C|
00004260  4c 3a f1 8a 32 30 2c 31  29 3b 22 46 69 65 6c 64  |L:..20,1);"Field|
00004270  20 69 73 20 6e 6f 74 20  6f 6e 20 66 69 6c 65 2e  | is not on file.|
00004280  20 57 61 6e 74 20 74 6f  20 63 6f 6e 74 69 6e 75  | Want to continu|
00004290  65 3f 22 3b 8a 32 30 2c  32 29 3b 22 28 59 2f 4e  |e?";.20,2);"(Y/N|
000042a0  29 22 3a 49 24 3d be 0d  0f c8 17 e7 49 24 3d 22  |)":I$=......I$="|
000042b0  4e 22 8c e5 8d 54 74 43  8b e5 8d 54 4a 4f 0d 0f  |N"...TtC...TJO..|
000042c0  d2 05 e1 0d 0f dc 0b dd  f2 43 48 45 4b 32 0d 0f  |.........CHEK2..|
000042d0  e6 2f 4c 25 3d 30 3a e3  46 3d 31 b8 36 3a e7 4e  |./L%=0:.F=1.6:.N|
000042e0  24 3d 50 24 28 46 29 8c  51 24 28 49 2c 36 29 3d  |$=P$(F).Q$(I,6)=|
000042f0  c3 28 46 29 3a 4c 25 3d  31 3a 46 3d 38 0d 0f f0  |.(F):L%=1:F=8...|
00004300  58 ed 46 3a e7 4c 25 3d  31 8c e5 8d 54 5e 4f 8b  |X.F:.L%=1...T^O.|
00004310  f2 43 4c 3a f1 8a 32 30  2c 31 29 3b 22 49 6e 76  |.CL:..20,1);"Inv|
00004320  61 6c 69 64 20 4f 70 65  72 61 74 6f 72 2e 20 57  |alid Operator. W|
00004330  61 6e 74 20 74 6f 20 63  6f 6e 74 69 6e 75 65 3f  |ant to continue?|
00004340  22 3b 8a 32 30 2c 32 29  3b 22 28 59 2f 4e 29 22  |";.20,2);"(Y/N)"|
00004350  3a 49 24 3d be 0d 0f fa  17 e7 49 24 3d 22 4e 22  |:I$=......I$="N"|
00004360  8c e5 8d 54 74 43 8b e5  8d 54 54 4f 0d 10 04 05  |...TtC...TTO....|
00004370  e1 0d 10 0e 2b dd f2 43  4c 3a f1 8a 32 30 2c 31  |....+..CL:..20,1|
00004380  29 3b c4 36 30 2c 22 20  22 29 3b 8a 32 30 2c 32  |);.60," ");.20,2|
00004390  29 3b c4 36 30 2c 22 20  22 29 3a e1 0d 10 18 42  |);.60," "):....B|
000043a0  4d 43 24 3d c4 32 30 2c  22 30 22 29 3a 52 43 24  |MC$=.20,"0"):RC$|
000043b0  3d 4d 43 24 3a e7 51 24  28 31 2c 34 29 3d 22 4f  |=MC$:.Q$(1,4)="O|
000043c0  52 22 8c 4d 43 24 3d 22  31 22 2b c4 39 2c 22 30  |R".MC$="1"+.9,"0|
000043d0  22 29 2b 22 31 22 2b c4  39 2c 22 30 22 29 0d 10  |")+"1"+.9,"0")..|
000043e0  22 05 db 0d 10 2c 0b e3  46 3d 31 b8 54 25 0d 10  |"....,..F=1.T%..|
000043f0  36 17 e7 51 24 28 46 2c  34 29 3d 22 4f 52 22 8c  |6..Q$(F,4)="OR".|
00004400  e5 8d 44 72 50 0d 10 40  43 42 31 24 3d c2 4d 43  |..DrP..@CB1$=.MC|
00004410  24 2c 31 30 29 3a 42 32  24 3d 22 22 3a e3 4a 3d  |$,10):B2$="":.J=|
00004420  31 b8 31 30 3a e7 4a 3d  46 20 8c 42 32 24 3d 42  |1.10:.J=F .B2$=B|
00004430  32 24 2b 22 31 22 8b 42  32 24 3d 42 32 24 2b c1  |2$+"1".B2$=B2$+.|
00004440  4d 43 24 2c 4a 2c 31 29  0d 10 4a 06 ed 4a 0d 10  |MC$,J,1)..J..J..|
00004450  54 23 4d 43 24 3d 42 32  24 2b 42 31 24 3a 42 31  |T#MC$=B2$+B1$:B1|
00004460  24 3d c0 4d 43 24 2c 31  30 29 3a 42 32 24 3d 22  |$=.MC$,10):B2$="|
00004470  22 0d 10 5e 35 e3 4a 3d  31 31 b8 32 30 3a e7 4a  |"..^5.J=11.20:.J|
00004480  3d 28 46 2b 31 30 29 20  8c 42 32 24 3d 42 32 24  |=(F+10) .B2$=B2$|
00004490  2b 22 31 22 8b 42 32 24  3d 42 32 24 2b c1 4d 43  |+"1".B2$=B2$+.MC|
000044a0  24 2c 4a 2c 31 29 0d 10  68 12 ed 4a 3a 4d 43 24  |$,J,1)..h..J:MC$|
000044b0  3d 42 31 24 2b 42 32 24  0d 10 72 0c ed 46 3a e5  |=B1$+B2$..r..F:.|
000044c0  8d 74 64 4b 0d 10 7c 23  db 3a 53 25 3d 30 3a ff  |.tdK..|#.:S%=0:.|
000044d0  22 43 4c 4f 53 45 22 3a  58 3d ad a4 4d 79 46 69  |"CLOSE":X=..MyFi|
000044e0  6c 65 28 46 49 24 29 0d  10 86 15 46 25 3d 31 3a  |le(FI$)....F%=1:|
000044f0  52 43 24 3d c4 32 30 2c  22 30 22 29 0d 10 90 17  |RC$=.20,"0")....|
00004500  e7 51 24 28 31 2c 34 29  3d 22 4f 52 22 8c e5 8d  |.Q$(1,4)="OR"...|
00004510  64 50 51 0d 10 9a 63 cf  23 43 3d 28 43 52 25 2d  |dPQ...c.#C=(CR%-|
00004520  31 29 2a 52 45 43 25 2b  bb 28 51 24 28 46 25 2c  |1)*REC%+.(Q$(F%,|
00004530  35 29 29 3a e8 23 43 2c  43 24 3a 4e 24 3d 51 24  |5)):.#C,C$:N$=Q$|
00004540  28 46 25 2c 33 29 3a 54  50 24 3d 22 31 22 3a 4f  |(F%,3):TP$="1":O|
00004550  50 24 3d 51 24 28 46 25  2c 36 29 3a f2 54 59 50  |P$=Q$(F%,6):.TYP|
00004560  45 3a f2 43 4f 4d 50 41  52 45 3a e7 43 4f 4d 25  |E:.COMPARE:.COM%|
00004570  3d 31 8c f2 46 42 0d 10  a4 1e e7 51 24 28 46 25  |=1..FB.....Q$(F%|
00004580  2c 34 29 3d 22 45 4e 44  22 80 43 4f 4d 25 3d 31  |,4)="END".COM%=1|
00004590  8c f2 53 42 0d 10 ae 22  e7 51 24 28 46 25 2c 34  |..SB...".Q$(F%,4|
000045a0  29 3d 22 45 4e 44 22 8c  e7 52 43 24 3d 4d 43 24  |)="END"..RC$=MC$|
000045b0  8c e5 8d 64 66 4a 0d 10  b8 22 46 25 3d 46 25 2b  |...dfJ..."F%=F%+|
000045c0  31 3a e7 46 25 3e 54 25  8c 46 25 3d 54 25 3a f2  |1:.F%>T%.F%=T%:.|
000045d0  53 42 3a e5 8d 64 56 50  0d 10 c2 18 e7 51 24 28  |SB:..dVP.....Q$(|
000045e0  46 25 2c 34 29 3d 22 4f  52 22 8c e5 8d 44 6c 51  |F%,4)="OR"...DlQ|
000045f0  0d 10 cc 1d 46 25 3d 46  25 2d 31 3a f2 53 42 3a  |....F%=F%-1:.SB:|
00004600  46 25 3d 46 25 2b 31 3a  e5 8d 74 5a 50 0d 10 d6  |F%=F%+1:..tZP...|
00004610  09 e5 8d 64 70 4a 0d 10  e0 0a dd f2 54 59 50 45  |...dpJ......TYPE|
00004620  0d 10 ea 45 e7 51 24 28  46 25 2c 37 29 3d 22 37  |...E.Q$(F%,7)="7|
00004630  22 84 51 24 28 46 25 2c  37 29 3d 22 38 22 84 51  |".Q$(F%,7)="8".Q|
00004640  24 28 46 25 2c 37 29 3d  22 30 22 8c 20 4e 3d bb  |$(F%,7)="0". N=.|
00004650  28 4e 24 29 3a 4e 4f 3d  bb 28 43 24 29 3a 54 50  |(N$):NO=.(C$):TP|
00004660  24 3d 22 32 22 0d 10 f4  38 e7 51 24 28 46 25 2c  |$="2"...8.Q$(F%,|
00004670  37 29 3d 22 35 22 8c 58  24 3d 4e 24 3a f2 43 4f  |7)="5".X$=N$:.CO|
00004680  4e 44 49 3a 4e 3d 4e 4f  3a 58 24 3d 43 24 3a f2  |NDI:N=NO:X$=C$:.|
00004690  43 4f 4e 44 49 3a 54 50  24 3d 22 32 22 0d 10 fe  |CONDI:TP$="2"...|
000046a0  38 e7 51 24 28 46 25 2c  37 29 3d 22 36 22 8c 58  |8.Q$(F%,7)="6".X|
000046b0  24 3d 4e 24 3a f2 43 4f  4e 54 49 3a 4e 3d 4e 4f  |$=N$:.CONTI:N=NO|
000046c0  3a 58 24 3d 43 24 3a f2  43 4f 4e 54 49 3a 54 50  |:X$=C$:.CONTI:TP|
000046d0  24 3d 22 32 22 0d 11 08  05 e1 0d 11 12 08 dd f2  |$="2"...........|
000046e0  46 42 0d 11 1c 44 42 31  24 3d c2 52 43 24 2c 31  |FB...DB1$=.RC$,1|
000046f0  30 29 3a 42 32 24 3d 22  22 3a e3 4a 3d 31 b8 31  |0):B2$="":.J=1.1|
00004700  30 3a e7 4a 3d 46 25 20  8c 42 32 24 3d 42 32 24  |0:.J=F% .B2$=B2$|
00004710  2b 22 31 22 8b 42 32 24  3d 42 32 24 2b c1 52 43  |+"1".B2$=B2$+.RC|
00004720  24 2c 4a 2c 31 29 0d 11  26 12 ed 4a 3a 52 43 24  |$,J,1)..&..J:RC$|
00004730  3d 42 32 24 2b 42 31 24  0d 11 30 05 e1 0d 11 3a  |=B2$+B1$..0....:|
00004740  08 dd f2 53 42 0d 11 44  17 42 31 24 3d c0 52 43  |...SB..D.B1$=.RC|
00004750  24 2c 31 30 29 3a 42 32  24 3d 22 22 0d 11 4e 36  |$,10):B2$=""..N6|
00004760  e3 4a 3d 31 31 b8 32 30  3a e7 4a 3d 28 46 25 2b  |.J=11.20:.J=(F%+|
00004770  31 30 29 20 8c 42 32 24  3d 42 32 24 2b 22 31 22  |10) .B2$=B2$+"1"|
00004780  8b 42 32 24 3d 42 32 24  2b c1 52 43 24 2c 4a 2c  |.B2$=B2$+.RC$,J,|
00004790  31 29 0d 11 58 12 ed 4a  3a 52 43 24 3d 42 31 24  |1)..X..J:RC$=B1$|
000047a0  2b 42 32 24 0d 11 62 05  e1 0d 11 6c 0e 53 50 25  |+B2$..b....l.SP%|
000047b0  3d 28 46 25 2d 31 29 0d  11 76 7e cf 23 43 3d 28  |=(F%-1)..v~.#C=(|
000047c0  43 52 25 2d 31 29 2a 52  45 43 25 2b bb 28 51 24  |CR%-1)*REC%+.(Q$|
000047d0  28 46 25 2c 35 29 29 3a  e8 23 43 2c 43 24 3a 4e  |(F%,5)):.#C,C$:N|
000047e0  24 3d 51 24 28 46 25 2c  33 29 3a 54 50 24 3d 22  |$=Q$(F%,3):TP$="|
000047f0  31 22 3a 4f 50 24 3d 51  24 28 46 25 2c 36 29 3a  |1":OP$=Q$(F%,6):|
00004800  f2 54 59 50 45 3a f2 43  4f 4d 50 41 52 45 3a e7  |.TYPE:.COMPARE:.|
00004810  43 4f 4d 25 3d 31 8c 53  41 25 3d 46 25 3a 46 25  |COM%=1.SA%=F%:F%|
00004820  3d 53 50 25 3a f2 53 42  3a 46 25 3d 53 41 25 3a  |=SP%:.SB:F%=SA%:|
00004830  e5 8d 74 5e 51 0d 11 80  19 e7 51 24 28 46 25 2c  |..t^Q.....Q$(F%,|
00004840  34 29 3d 22 45 4e 44 22  8c e5 8d 64 56 50 0d 11  |4)="END"...dVP..|
00004850  8a 29 e7 51 24 28 46 25  2c 34 29 3d 22 41 4e 44  |.).Q$(F%,4)="AND|
00004860  22 8c f2 46 42 3a f2 53  42 3a 46 25 3d 46 25 2b  |"..FB:.SB:F%=F%+|
00004870  31 3a e5 8d 74 5a 50 0d  11 94 11 46 25 3d 46 25  |1:..tZP....F%=F%|
00004880  2b 31 3a e5 8d 44 76 51  0d 11 9e 29 e7 51 24 28  |+1:..DvQ...).Q$(|
00004890  46 25 2c 34 29 3d 22 41  4e 44 22 8c f2 46 42 3a  |F%,4)="AND"..FB:|
000048a0  f2 53 42 3a 46 25 3d 46  25 2b 31 3a e5 8d 74 5a  |.SB:F%=F%+1:..tZ|
000048b0  50 0d 11 a8 24 e7 51 24  28 46 25 2c 34 29 3d 22  |P...$.Q$(F%,4)="|
000048c0  45 4e 44 22 8c f2 46 42  3a 43 4f 4d 25 3d 31 3a  |END"..FB:COM%=1:|
000048d0  e5 8d 74 64 50 0d 11 b2  29 e7 51 24 28 46 25 2c  |..tdP...).Q$(F%,|
000048e0  34 29 3d 22 41 4e 44 22  8c f2 46 42 3a f2 53 42  |4)="AND"..FB:.SB|
000048f0  3a 46 25 3d 46 25 2b 31  3a e5 8d 74 5a 50 0d 11  |:F%=F%+1:..tZP..|
00004900  bc 24 e7 51 24 28 46 25  2c 34 29 3d 22 45 4e 44  |.$.Q$(F%,4)="END|
00004910  22 8c f2 46 42 3a 43 4f  4d 25 3d 31 3a e5 8d 74  |"..FB:COM%=1:..t|
00004920  64 50 0d 11 c6 11 46 25  3d 46 25 2b 31 3a e5 8d  |dP....F%=F%+1:..|
00004930  74 72 51 0d 11 d0 0a 53  50 25 3d 46 25 0d 11 da  |trQ....SP%=F%...|
00004940  82 cf 23 43 3d 28 43 52  25 2d 31 29 2a 52 45 43  |..#C=(CR%-1)*REC|
00004950  25 2b bb 28 51 24 28 46  25 2c 35 29 29 3a e8 23  |%+.(Q$(F%,5)):.#|
00004960  43 2c 43 24 3a 4e 24 3d  51 24 28 46 25 2c 33 29  |C,C$:N$=Q$(F%,3)|
00004970  3a 54 50 24 3d 22 31 22  3a 4f 50 24 3d 51 24 28  |:TP$="1":OP$=Q$(|
00004980  46 25 2c 36 29 3a f2 54  59 50 45 3a f2 43 4f 4d  |F%,6):.TYPE:.COM|
00004990  50 41 52 45 3a e7 43 4f  4d 25 3d 31 8c 53 41 25  |PARE:.COM%=1.SA%|
000049a0  3d 46 25 3a 46 25 3d 53  50 25 3a f2 46 42 3a f2  |=F%:F%=SP%:.FB:.|
000049b0  53 42 3a 46 25 3d 53 41  25 3a e5 8d 74 5e 51 0d  |SB:F%=SA%:..t^Q.|
000049c0  11 e4 19 e7 51 24 28 46  25 2c 34 29 3d 22 45 4e  |....Q$(F%,4)="EN|
000049d0  44 22 8c e5 8d 64 56 50  0d 11 ee 29 e7 51 24 28  |D"...dVP...).Q$(|
000049e0  46 25 2c 34 29 3d 22 41  4e 44 22 8c f2 46 42 3a  |F%,4)="AND"..FB:|
000049f0  f2 53 42 3a 46 25 3d 46  25 2b 31 3a e5 8d 74 5a  |.SB:F%=F%+1:..tZ|
00004a00  50 0d 11 f8 11 46 25 3d  46 25 2b 31 3a e5 8d 64  |P....F%=F%+1:..d|
00004a10  5a 51 0d 12 02 0d dd f2  43 4f 4d 50 41 52 45 0d  |ZQ......COMPARE.|
00004a20  12 0c 0a 43 4f 4d 25 3d  30 0d 12 16 12 e7 54 50  |...COM%=0.....TP|
00004a30  24 3d 22 32 22 8c e5 8d  44 70 52 0d 12 20 15 e7  |$="2"...DpR.. ..|
00004a40  c0 4e 24 2c 31 29 3d 22  2a 22 8c e5 8d 64 54 52  |.N$,1)="*"...dTR|
00004a50  0d 12 2a 20 e7 4f 50 24  3d 22 31 22 8c e7 4e 24  |..* .OP$="1"..N$|
00004a60  3d 43 24 8c 43 4f 4d 25  3d 31 3a e5 8d 64 7c 52  |=C$.COM%=1:..d|R|
00004a70  0d 12 34 21 e7 4f 50 24  3d 22 32 22 8c e7 4e 24  |..4!.OP$="2"..N$|
00004a80  3c 3e 43 24 8c 43 4f 4d  25 3d 31 3a e5 8d 64 7c  |<>C$.COM%=1:..d||
00004a90  52 0d 12 3e 20 e7 4f 50  24 3d 22 33 22 8c e7 4e  |R..> .OP$="3"..N|
00004aa0  24 3e 43 24 8c 43 4f 4d  25 3d 31 3a e5 8d 64 7c  |$>C$.COM%=1:..d||
00004ab0  52 0d 12 48 20 e7 4f 50  24 3d 22 34 22 8c e7 4e  |R..H .OP$="4"..N|
00004ac0  24 3c 43 24 8c 43 4f 4d  25 3d 31 3a e5 8d 64 7c  |$<C$.COM%=1:..d||
00004ad0  52 0d 12 52 21 e7 4f 50  24 3d 22 35 22 8c e7 4e  |R..R!.OP$="5"..N|
00004ae0  24 3e 3d 43 24 8c 43 4f  4d 25 3d 31 3a e5 8d 64  |$>=C$.COM%=1:..d|
00004af0  7c 52 0d 12 5c 21 e7 4f  50 24 3d 22 36 22 8c e7  ||R..\!.OP$="6"..|
00004b00  4e 24 3c 3d 43 24 8c 43  4f 4d 25 3d 31 3a e5 8d  |N$<=C$.COM%=1:..|
00004b10  64 7c 52 0d 12 66 09 e5  8d 64 7c 52 0d 12 70 19  |d|R..f...d|R..p.|
00004b20  e7 54 59 24 3d 22 35 22  8c 58 24 3d 43 24 3a f2  |.TY$="5".X$=C$:.|
00004b30  43 4f 4e 44 49 0d 12 7a  19 e7 54 59 24 3d 22 36  |CONDI..z..TY$="6|
00004b40  22 8c 58 24 3d 43 24 3a  f2 43 4f 4e 54 49 0d 12  |".X$=C$:.CONTI..|
00004b50  84 20 e7 4f 50 24 3d 22  31 22 8c e7 4e 3d 4e 4f  |. .OP$="1"..N=NO|
00004b60  20 8c 43 4f 4d 25 3d 31  3a e5 8d 64 7c 52 0d 12  | .COM%=1:..d|R..|
00004b70  8e 21 e7 4f 50 24 3d 22  32 22 8c e7 4e 3c 3e 4e  |.!.OP$="2"..N<>N|
00004b80  4f 20 8c 43 4f 4d 25 3d  31 3a e5 8d 64 7c 52 0d  |O .COM%=1:..d|R.|
00004b90  12 98 20 e7 4f 50 24 3d  22 33 22 8c e7 4e 3e 4e  |.. .OP$="3"..N>N|
00004ba0  4f 20 8c 43 4f 4d 25 3d  31 3a e5 8d 64 7c 52 0d  |O .COM%=1:..d|R.|
00004bb0  12 a2 20 e7 4f 50 24 3d  22 34 22 8c e7 4e 3c 4e  |.. .OP$="4"..N<N|
00004bc0  4f 20 8c 43 4f 4d 25 3d  31 3a e5 8d 64 7c 52 0d  |O .COM%=1:..d|R.|
00004bd0  12 ac 21 e7 4f 50 24 3d  22 35 22 8c e7 4e 3e 3d  |..!.OP$="5"..N>=|
00004be0  4e 4f 20 8c 43 4f 4d 25  3d 31 3a e5 8d 64 7c 52  |NO .COM%=1:..d|R|
00004bf0  0d 12 b6 2c e7 4f 50 24  3d 22 37 22 8c e7 4e 4f  |...,.OP$="7"..NO|
00004c00  20 3e 56 4c 31 20 80 4e  4f 20 3c 56 4c 32 20 8c  | >VL1 .NO <VL2 .|
00004c10  43 4f 4d 25 3d 31 3a e5  8d 64 7c 52 0d 12 c0 21  |COM%=1:..d|R...!|
00004c20  e7 4f 50 24 3d 22 36 22  8c e7 4e 3c 3d 4e 4f 20  |.OP$="6"..N<=NO |
00004c30  8c 43 4f 4d 25 3d 31 3a  e5 8d 64 7c 52 0d 12 ca  |.COM%=1:..d|R...|
00004c40  09 e5 8d 64 7c 52 0d 12  d4 12 e7 a9 28 4e 24 29  |...d|R......(N$)|
00004c50  3d 31 8c e5 8d 54 6a 52  0d 12 de 32 e7 4f 50 24  |=1...TjR...2.OP$|
00004c60  3d 22 31 22 8c 43 4f 4d  25 3d a7 43 24 2c c1 4e  |="1".COM%=.C$,.N|
00004c70  24 2c 32 2c a9 28 4e 24  29 29 29 3a e7 43 4f 4d  |$,2,.(N$))):.COM|
00004c80  25 3e 31 8c 43 4f 4d 25  3d 31 0d 12 e8 39 e7 bb  |%>1.COM%=1...9..|
00004c90  28 4f 50 24 29 3e 31 8c  43 4f 4d 25 3d a7 43 24  |(OP$)>1.COM%=.C$|
00004ca0  2c c1 4e 24 2c 32 2c a9  28 4e 24 29 29 29 3a e7  |,.N$,2,.(N$))):.|
00004cb0  43 4f 4d 25 3d 30 8c 43  4f 4d 25 3d 31 3a e5 8d  |COM%=0.COM%=1:..|
00004cc0  64 7c 52 0d 12 f2 1c e7  bb 28 4f 50 24 29 3e 31  |d|R......(OP$)>1|
00004cd0  8c e7 43 4f 4d 25 3e 30  8c 43 4f 4d 25 3d 30 0d  |..COM%>0.COM%=0.|
00004ce0  12 fc 05 e1 0d 13 06 0b  dd f2 43 4f 4e 44 49 0d  |..........CONDI.|
00004cf0  13 10 37 58 58 24 3d 22  22 3a 58 58 24 3d 58 58  |..7XX$="":XX$=XX|
00004d00  24 2b c1 58 24 2c 37 2c  32 29 2b c1 58 24 2c 34  |$+.X$,7,2)+.X$,4|
00004d10  2c 32 29 2b c1 58 24 2c  31 2c 32 29 3a 4e 4f 3d  |,2)+.X$,1,2):NO=|
00004d20  bb 28 58 58 24 29 0d 13  1a 05 e1 0d 13 24 0b dd  |.(XX$).......$..|
00004d30  f2 43 4f 4e 54 49 0d 13  2e 2e 58 58 24 3d 22 22  |.CONTI....XX$=""|
00004d40  3a 58 58 24 3d 58 58 24  2b c1 58 24 2c 31 2c 32  |:XX$=XX$+.X$,1,2|
00004d50  29 2b c1 58 24 2c 34 2c  32 29 3a 4e 4f 3d bb 28  |)+.X$,4,2):NO=.(|
00004d60  58 58 24 29 0d 13 38 05  e1 0d 13 42 09 dd f2 54  |XX$)..8....B...T|
00004d70  59 35 0d 13 4c 1b f1 8a  58 2c 59 29 3b 22 2e 2e  |Y5..L...X,Y);"..|
00004d80  2f 2e 2e 2f 2e 2e 22 3a  4e 24 3d 22 22 0d 13 56  |/../..":N$=""..V|
00004d90  19 58 33 3d 58 3a f2 44  41 54 3a e7 44 45 3d 31  |.X3=X:.DAT:.DE=1|
00004da0  8c e5 8d 44 4c 53 0d 13  60 26 4e 24 3d 4e 24 2b  |...DLS..`&N$=N$+|
00004db0  44 41 54 24 3a 58 33 3d  58 2b 33 3a f2 44 41 54  |DAT$:X3=X+3:.DAT|
00004dc0  3a e7 44 45 3d 31 8c e5  8d 44 4c 53 0d 13 6a 2e  |:.DE=1...DLS..j.|
00004dd0  4e 24 3d 4e 24 2b 22 2f  22 2b 44 41 54 24 2b 22  |N$=N$+"/"+DAT$+"|
00004de0  2f 22 3a 58 33 3d 58 2b  36 3a f2 44 41 54 3a e7  |/":X3=X+6:.DAT:.|
00004df0  44 45 3d 31 8c e5 8d 44  4c 53 0d 13 74 0e 4e 24  |DE=1...DLS..t.N$|
00004e00  3d 4e 24 2b 44 41 54 24  0d 13 7e 15 49 4e 3d a5  |=N$+DAT$..~.IN=.|
00004e10  3a e7 49 4e 3d 31 33 8c  e5 8d 74 52 53 0d 13 88  |:.IN=13...tRS...|
00004e20  17 e7 49 4e 3d 31 32 37  8c e5 8d 44 4c 53 8b e5  |..IN=127...DLS..|
00004e30  8d 44 7e 53 0d 13 92 05  e1 0d 13 9c 09 dd f2 44  |.D~S...........D|
00004e40  41 54 0d 13 a6 16 44 45  3d 30 3a 44 41 54 24 3d  |AT....DE=0:DAT$=|
00004e50  22 22 3a 58 34 3d 58 33  0d 13 b0 1b 49 4e 3d a5  |"":X4=X3....IN=.|
00004e60  3a e7 49 4e 3d 31 32 37  8c 44 45 3d 31 3a e5 8d  |:.IN=127.DE=1:..|
00004e70  64 58 53 0d 13 ba 23 e7  49 4e 3c 34 38 84 49 4e  |dXS...#.IN<48.IN|
00004e80  3e 35 37 8c d4 31 2c 2d  31 35 2c 31 30 30 2c 32  |>57..1,-15,100,2|
00004e90  3a e5 8d 74 70 53 0d 13  c4 3a f1 8a 58 33 2c 59  |:..tpS...:..X3,Y|
00004ea0  29 3b bd 28 49 4e 29 3a  44 41 54 24 3d 44 41 54  |);.(IN):DAT$=DAT|
00004eb0  24 2b bd 28 49 4e 29 3a  58 33 3d 58 33 2b 31 3a  |$+.(IN):X3=X3+1:|
00004ec0  e7 58 33 3e 28 58 34 2b  31 29 8c e5 8d 64 58 53  |.X3>(X4+1)...dXS|
00004ed0  0d 13 ce 09 e5 8d 74 70  53 0d 13 d8 05 e1 0d 13  |......tpS.......|
00004ee0  e2 09 dd f2 54 59 36 0d  13 ec 18 f1 8a 58 2c 59  |....TY6......X,Y|
00004ef0  29 3b 22 2e 2e 3a 2e 2e  22 3a 4e 24 3d 22 22 0d  |);"..:..":N$="".|
00004f00  13 f6 19 58 33 3d 58 3a  f2 44 41 54 3a e7 44 45  |...X3=X:.DAT:.DE|
00004f10  3d 31 8c e5 8d 64 6c 53  0d 14 00 1e 4e 24 3d 4e  |=1...dlS....N$=N|
00004f20  24 2b 44 41 54 24 2b 22  3a 22 3a 58 33 3d 58 2b  |$+DAT$+":":X3=X+|
00004f30  33 3a f2 44 41 54 0d 14  0a 0e 4e 24 3d 4e 24 2b  |3:.DAT....N$=N$+|
00004f40  44 41 54 24 0d 14 14 15  49 4e 3d a5 3a e7 49 4e  |DAT$....IN=.:.IN|
00004f50  3d 31 33 8c e5 8d 54 68  54 0d 14 1e 17 e7 49 4e  |=13...ThT.....IN|
00004f60  3d 31 32 37 8c e5 8d 64  6c 53 8b e5 8d 54 54 54  |=127...dlS...TTT|
00004f70  0d 14 28 05 e1 0d 14 32  2c dd f2 59 4e 3a 78 70  |..(....2,..YN:xp|
00004f80  3d b1 3a 79 70 3d bc 3a  f1 22 20 22 3b 3a fb 31  |=.:yp=.:." ";:.1|
00004f90  33 31 3a f1 22 59 45 53  2f 4e 4f 22 3a fb 46 47  |31:."YES/NO":.FG|
00004fa0  25 0d 14 3c 38 c8 97 20  58 50 2c 59 50 2c 42 55  |%..<8.. XP,YP,BU|
00004fb0  54 3a 58 50 3d a8 28 58  50 2f 31 36 29 3a 59 50  |T:XP=.(XP/16):YP|
00004fc0  3d 33 31 2d a8 28 59 50  2f 33 32 29 3a e7 42 55  |=31-.(YP/32):.BU|
00004fd0  54 3d 30 8c e5 8d 54 7c  54 0d 14 46 12 e7 59 50  |T=0...T|T..F..YP|
00004fe0  3c 3e 79 70 20 8c e5 8d  54 7c 54 0d 14 50 2b e7  |<>yp ...T|T..P+.|
00004ff0  58 50 3d 78 70 2b 31 20  84 20 58 50 3d 78 70 2b  |XP=xp+1 . XP=xp+|
00005000  32 20 84 20 58 50 3d 78  70 2b 33 8c 59 4e 3d 31  |2 . XP=xp+3.YN=1|
00005010  3a e5 8d 44 6e 54 0d 14  5a 22 e7 58 50 3d 78 70  |:..DnT..Z".XP=xp|
00005020  2b 35 20 84 20 58 50 3d  78 70 2b 36 20 8c 59 4e  |+5 . XP=xp+6 .YN|
00005030  3d 30 3a e5 8d 44 6e 54  0d 14 64 09 e5 8d 54 7c  |=0:..DnT..d...T||
00005040  54 0d 14 6e 1b f1 8a 78  70 2c 79 70 29 3b 22 20  |T..n...xp,yp);" |
00005050  59 45 53 2f 4e 4f 22 3a  ef 37 3a e1 0d 14 78 13  |YES/NO":.7:...x.|
00005060  dd a4 4d 79 46 69 6c 65  28 66 69 6c 65 24 29 0d  |..MyFile(file$).|
00005070  14 82 0a 3d 66 69 6c 65  24 0d 14 8c 0b dd 20 f2  |...=file$..... .|
00005080  51 75 69 74 0d 14 96 21  f4 20 53 59 53 20 22 57  |Quit...!. SYS "W|
00005090  69 6d 70 5f 43 6f 6d 6d  61 6e 64 57 69 6e 64 6f  |imp_CommandWindo|
000050a0  77 22 2c 2d 31 0d 14 a0  06 c8 98 0d 14 aa 05 e1  |w",-1...........|
000050b0  0d 9c 40 0d dd f2 44 69  72 28 64 24 29 0d 9c 4a  |..@...Dir(d$)..J|
000050c0  29 e7 20 64 24 20 3c 3e  20 22 22 20 8c 20 ff 20  |). d$ <> "" . . |
000050d0  22 44 69 72 20 22 2b a4  4d 79 46 69 6c 65 28 c1  |"Dir "+.MyFile(.|
000050e0  64 24 2c 32 29 29 0d 9c  54 05 e1 0d ff           |d$,2))..T....|
000050ed