�"�DATA BASE V3�"
 �"�BOB ANDERSON 1985�"
:
(
 � � �
2 �7:�=&4500:�initialise
< � � �checkerror
F:
P �
Z
 *FX200,0
d �flag2=0�setscreen
n flag2=0
x *FX15,0
� K=�
� �K=70�f
� �K=66�b
� � K=70 � K=66 �TbA
� �K=65�a
� �K=68�d
� �K=69�e
� �K=72�h
� �K=75�k
� �K=76�l
� �K=78�n
� �K=42�o
�
 �K=79�or

 �K=80�p

 �K=82�r

 �K=83�s

" � �

,:

6 ��initialise

@
 *FX200,0

J *FX4,2

TP flag=0:flag2=0:file$="":record=0:starta=&4501:�f$(16),le(16),len(16):�clear

^ �

h:

r/ ��checkerror:�7:�'"��: ERROR :��";:�:�sp:�

|:

� ��setscreen

�
 �26:�

�+ �getbytes(56):�H>0 � record=0 record=1

�� A$=�148+"���������������������������������������":�"�"�157;�13,0);"�DATA BASE"�0,4)A$;�0,22)A$;�0,23)"�RECORD NOS : ";record:�20,23);"FILE SIZE : ";:�getbytes(56):�;H;�0,24);"�RECORD SPACE : ";

�4 �getbytes(54):�;H;�20,24);"FILE NAME : ";file$;

� �topw:�options

�[ �botw:� ?(starta+12)=0 �A=0�1:�7,A+7)�141"�FILE NOT INITIALISED":� � �pfield:�precord

� �

�:

�0 ��a:�title("ADD"):� ?(starta+12)=0�nexist:�

� �getbytes(54):�H=0�

�: �9,1);"�RETURN�]select field";�12,2);"�TAB�]finish";

�
 *FX200,1
d �getbytes(54):H=H-1:�putbytes(54):�getbytes(56):H=H+1:�putbytes(56):�9,0);"�RECORD NO'S :�";H;
 �inputrec1
 �getbytes(16):A=H
&6 �getbytes(56):?(A)=(H �255):?(A+1)=(H �255):A=A+2
0' �B=0�16:C=le(B)-�(f$(B)):�C=0�DDB
: �D=1�C:f$(B)=f$(B)+�(32):�
D# �:�B=0�16:$A=f$(B):A=A+le(B):�
N H=A:�putbytes(16)
X �
b:
l ��b:*FX200,1
v- � ?(starta+12)=0�title("BACK"):�nexist:�
� �record=1�
�0 �getbytes(56):�H=0�title("BACK"):�nrecord:�
�/ �record>1 record=record-1:�precord:flag2=1
� �
�:
�3 ��d:�title("DELETE"):� ?(starta+12)=0�nexist:�
�! �getbytes(56):�H=0�nrecord:�
� �sure:�ss=1�
�
 *FX200,1
�3 �title("DELETE"):�11,1);"��DELETING RECORD�";
�* �getbytes(14):A%=H:�getbytes(52):B%=H
� A%=A%+(B%*(record-1)):
� �getbytes(56):D%=H
 �C%=record � D%-1
& ?(A%)=(C% �255):?(A%+1)=(C% �255)
 A%=A%+2
 ( �E%=A% � (A%+B%)-2:?(E%)=?(E%+B%):�
* A%=(A%+B%)-2:�
4 H=A%:�putbytes(16)
>& �getbytes(54):H=H+1:�putbytes(54)
H) H=D%-1:�putbytes(56):record=record-1
R �
\:
f1 ��e:�title("EDIT"):� ?(starta+12)=0�nexist:�
p! �getbytes(56):�H=0�nrecord:�
z �9,1);"�PLEASE WAIT�";
�
 *FX200,1
�P a=18:�A=0�16:f$(A)="":le(A)=(?(starta+(a+17))):len(A)=(?(starta+a)):a=a+1:�
�U �getbytes(14):A=H:�getbytes(52):B=H:A=A-B:�:A=A+B:�getbytes(A-starta):� H=record
�J A=A+2:I=A:�B=0�16:�C=1�le(B):f$(B)=f$(B)+�(?(A+C-1)):�le(B)=0f$(B)=""
� �:A$="":a=0:�f$(B)=""�d@C
�0 �:A$=�f$(B),le(B)-a,1):a=a+1:�A$<>" ":a=a-1
�& f$(B)=�f$(B),le(B)-a):A=A+le(B):�
�o �9,1);"�RETURN�]select field";�12,2);"�TAB�]finish";:�botw:f=-1:�:f=f+1:�le(f)<>0:�31,(len(f)+�(f$(f))),f
� �:A=�:�A=9�TdD
� �A=13�f=16f=0��A=13f=f+1
� � le(f)=0 �d^C
� �A=13 �TZD
�N �A=127� �(f$(f))<>0 �127:f$(f)=�f$(f),(�(f$(f))-1)):�TZD � � A=127 �TZD
 � �(f$(f))=le(f) �TZD
 f$(f)=f$(f)+�(A)
 �len(f),f);f$(f);
$	 �A=9
.' �B=0�16:C=le(B)-�(f$(B)):�C=0�DBD
8 �D=1�C:f$(B)=f$(B)+�(32):�
BE �:�getbytes(52):C=(?(I+H-2)):�B=0�16:$I=f$(B):I=I+le(B):�:?(I)=C
L �
V:
`4 ��f:� ?(starta+12)=0�title("FORWARD"):�nexist:�
j3 �getbytes(56):�H=0�title("FORWARD"):�nrecord:�
t �record=H �
~
 *FX200,1
�/ �record<H record=record+1:�precord:flag2=1
� �
�:
� ��h:*FX200,1
�K �title("HELP"):�botw:�:��TfL:�A=0�13:�A$,B$:�5,A)A$;�9)"_ "B$:�:�sp:�
�:
�1 ��k:�title("KEEP"):� ?(starta+12)=0�nexist:�
�- �botw:�:�0,5)"�SAVE THE FILE.�":�gfname
�
 *FX200,1
� �getbytes(16)
�7 �oscli("*SAVE"+�34+file$+�34+" "+�~starta+" "+�~H)
� �
:

1 ��l:�title("LOAD"):� ?(starta+12)=1 �exist:�
- �botw:�:�0,5)"�LOAD THE FILE.�":�gfname

 *FX200,1
(J �''"�TYPE IN SECURITY PASSWORD."'"�(DEFAULT IS 'DATABASE').":�152:�C$
2+ �oscli("*LOAD"+�34+file$+�34+�~starta)
<z A$="":�B=starta � starta+11:A$=A$+�(?(B)):�:�A$<>"BOB ANDERSON"�7:�''"��THIS IS NOT A DATABASE�FILE!!��":�sp:�clear:�
Fr �$(starta+58)<>C$ �7:�''"��SECURITY BREACH - THE USER IS NOT"'"��PERMITTED TO ACCESS THIS FILE.":�sp:�clear:�
P, �getbytes(56):� H=0 record=0 � record=1
Z �
d:
n0 ��n:�title("NEW"):� ?(starta+12)=1 �exist:�
x
 *FX200,1
�k �9,0);"�-DEFINE FIELD TITLES."�9,1);"�Use�RETURN�to select next"'"�field,and�TAB�to finish.";:�botw:�
�5 $(starta)="BOB ANDERSON":?(starta+12)=1:record=0
�# �A=0�16:�0,A)"<>";:f$(A)="":�
� f=0:�31,2,0:�
� A=�:� A=9�dpE
�! � A=13 � f=16f=0� �A=13f=f+1
� �A=13 �dfE
�! l=�(f$(f)):�l>36�A<>127�dpE
� �A=127��<3�dpE
�8 �A=127f$(f)=�f$(f),((�(f$(f)))-1))�f$(f)=f$(f)+�(A)
�# �1,f);f$(f);">";:�A=127�9;127
�	 �A=9
�:
. a=18:�A=0�16:?(starta+a)=�(f$(A)):a=a+1:�
:
[ a=80:�A=0�16:$(starta+a)=f$(A):a=a+�(f$(A)):?(starta+a)=7:a=a+1:�:?(starta+a)=29:a=a+1
":
,| ?(starta+14)=((starta+a)�255):?(starta+15)=((starta+a)�255):?(starta+16)=((starta+a)�255):?(starta+17)=((starta+a)�255)
6:
@� �pfield:�topw:�:�title("NEW"):�9,0);"�-DEFINE FIELD LENGTHS."�9,1);"�SPACE-BAR�]enter field length.�TAB�]finish.�RETURN�]select field";:�botw
J �31,(�(f$(0))),0:f=0:�
T! A=�:�A=13�f=16f=0��A=13f=f+1
^ �A=13�D|F
h) �A=127 � le(f)>0 le(f)=le(f)-1:�D|F
r6 �A=32 � (�(f$(f))+le(f))<39 le(f)=le(f)+1 � �tFF
| �(f$(f))+le(f),f);
�
 � A=9
�:
�+ b=35:�A=0�16:?(starta+b)=le(A):b=b+1:�
�. A=2:�B=0�16:A=A+le(B):�:H=A:�putbytes(52)
�3 �getbytes(14):B=H:H=(&7C00-B)� A:�putbytes(54)
�� �title("NEW"):�9,0);"�NOW TYPE IN SECURITY PASSWORD.";�9,1);"�(max of 15 characters).";�0,2)"�DEFAULT IS 'DATABASE'.";:�A$:�A$="" A$="DATABASE"
� �(A$)>15 �7:�txF
�- �A=58�73:?(starta+A)=0:�:$(starta+58)=A$
� �
�:
�` ��o:�title("OS"):�botw:�:�0,2)"�Enter operating system command now:":�" *"$&A00:X%=0:Y%=&A
�
 *FX200,1
� �&FFF7:�sp:�
:
2 ��p:�title("PRINT"):� ?(starta+12)=0�nexist:�
! �getbytes(56):�H=0�nrecord:�
&� �11,1);"�Print All or just displayed �record.(A/D)";:flag3=�:�title("PRINT"):�11,1);"�What kind of inter-record";�0,2);"�space character do you want ";:E=�:�;�(E);:�botw
0
 *FX200,1
: �B=0�16:f$(B)="":�
D A=80:�B=0�16
N � ?(starta+A)=7 �DbG
X+ f$(B)=f$(B)+�(?(starta+A)):A=A+1:�DNG
b A=A+1:�
l flag=1
v A$="":�F=1�40:A$=A$+�(E):�
�! �2:�"FILENAME : ";file$'':�3
�/ �flag3<>65 �2:�precord:�A$:�3:flag=0:�thG
�9 �getbytes(56):�2:�F=1 � H:record=F:�precord:�A$:�:�3
� record=1:flag=0
� �
�:
�3 ��s:�title("SEARCH"):� ?(starta+12)=0�nexist:�
�! �getbytes(56):�H=0�nrecord:�
�: �3,2);"�SEARCH FOR RECORD NUMBER?(Y/N)";:� �=78�dnG
�_ �3,2);"�ENTER RECORD NUMBER.(1 TO ";:�getbytes(56):�;H;")";:�A:A=�(A):�A<1 � A>H �7:�dZG
� record=A:�
�:
�
 *FX200,1
k �title("SEARCH"):�11,0);"�ENTER SEARCH RECORD:";�11,1);"�RETURN�]select field";�14,2);"�TAB�]finish";
 �inputrec1
Q �title("SEARCH"):�11,1);"�PLEASE WAIT, SEARCHING";�11,2);"�CLOSEST MATCH:";
 ( T%=0:S%=0:R%=1:�getbytes(14):D%=H+2
* �getbytes(56):F=H
4 �A%=1 � F
> �B%=0 � 16
H � f$(B%)="" �DfH
R1 A$="":�C%=1 � �f$(B%):A$=A$+�(?(D%+C%-1)):�:
\ � A$=f$(B%) T%=T%+1
f D%=D%+le(B%):�
p D%=D%+2
z$ � T%>S% S%=T%:R%=A%:�26,2);A%;
�	 T%=0
� �
� record=R%
� �
�:
�) ��r:�title("RESET"):�sure:�ss=1� � �
�:
�3 ��or:�title("ORDER"):� ?(starta+12)=0�nexist:�
�! �getbytes(56):�H=0�nrecord:�
�
 *FX200,1
� �getbytes(56)
�@ �12,0);"�Input 1st record nos :";A%:� A%<1 � A%>H �7:�drH
�A �12,1);"�Input 2nd record nos :";B%;:� B%<1 � B%>H �7:�d|H
	* �getbytes(14):C%=H:�getbytes(52):D%=H
	 E%=C%+(D%*(A%-1))+2
	2 G%=&C00:� F%=E% � (E%+D%-2):?G%=?F%:G%=G%+1:�
	$ I%=C%+(D%*(B%-1))+2
	.0 G%=E%:� F%=I% � (I%+D%-2):?G%=?F%:G%=G%+1:�
	84 G%=I%:� F%=&C00 � (&C00+D%-2):?G%=?F%:G%=G%+1:�
	B �
	L:
	V ��topw:�28,0,3,39,1:�
	`:
	j ��botw:�28,0,21,39,5:�
	t:
	~@ ��options:��TfL:�A=0�2:�B=0�34�7:�A$,B$:�B,A);"�";A$;:�,:�
	�:
	�` ��title(A$):�topw:�:B$="":�A=0��(A$)+1:B$=B$+",":�:�148;"j�";A$;�148;"5"'�148;"*";B$;"%":�
	�:
	�8 ��sp:�'�6)"�Press�SPACE BAR�to continue.";:���=32:�
	�:
	�D ��sure:�7:�13,1);"��Are you sure ?";:�<>89ss=1�ss=0:�;"Y";:�7
	� �
	�:
	� ��clear:*FX200,1
	�
 file$=""
	�$ �A%=starta � starta+400:?A%=0:�
	� �
:

 ��precord
; �flag=0�26:�14,23);record;"   ";:��"RECORD : ";record

 �botw
( �getbytes(56):�H=0�tVJ
2# � "�Print out current record�"
< �getbytes(14):A%=H
F �getbytes(52):B%=H
P A%=A%+(B%*(record-1))
Z* A%=A%+2:B%=0:�C%=0�16:�flag=1�f$(C%);
d) F%=starta+C%:G%=?(F%+18):I%=?(F%+35)
n �(?(F%+35))=0 �tBJ
x< �G%,C%);:�D%=G% � ((I%+G%)-1):�;�(?(A%+B%));:B%=B%+1:�
�
 �flag=1�
� �
� �
�:
�
 ��pfield
� �botw:�:A%=80:�B%=0�16
� C%=starta+A%
� � ?C%=7 �d\J
� �(?C%);:A%=A%+1:�t~J
� A%=A%+1:�B%<>16�
� �:�
�:
�F ��gfname:�'"�TYPE IN FILENAME (not to exceed�7�"'"�characters.)�"
7 �file$:� �(file$)>7 � �(file$)<1 file$="":�7:�TDK
 �
:
"> ��exist:�7:�9,1);"��FILE EXISTS�- ( use�RESET�).";:�sp:�
,:
6: ��nexist:�7:�13,1);"��NO FILE�- ( use�NEW�).";:�sp:�
@:
J> ��nrecord:�7:�12,1);"��NO RECORDS�- ( use�ADD�).";:�sp:�
T:
^: ��getbytes(G):H=((?(starta+G))+(?(starta+G+1)*255)):�
h:
r< ��putbytes(G):?(starta+G)=H �255:?(starta+G+1)=H �255:�
|:
�- ��oscli(A$):$&A00=A$:X%=0:Y%=&A:�&FFF7:�
�:
� ��inputrec1
� �botw:�pfield
�n a=18:�A=0�16:f$(A)="":le(A)=(?(starta+(a+17))):len(A)=(?(starta+a)):a=a+1:�:f=-1:�:f=f+1:�le(f)<>0 � f>20
�# �31,(len(f)),f:�:A=�:�A=9�THL
� �A=13�f=16f=0��A=13f=f+1
� � le(f)=0 �dBK
� �A=13 �d~K
�N �A=127� �(f$(f))<>0 �127:f$(f)=�f$(f),(�(f$(f))-1)):�d~K � � A=127 �d~K
� � �(f$(f))=le(f) �d~K
� f$(f)=f$(f)+�(A)
� �len(f),f);f$(f);

 � A=9
 �
:
&� � Add,add a new record,Back,backstep through file,Delete,delete a record,Edit,edit a record,Forward,forwardstep through file,Help,details of commands,Keep,save the file,Load,load the file,New,define new file,Order,re-arrange file
0j � *os,enter OS command,Print,send file to printer,Reset,reset DATA BASE,Search,search for a record, ,
�

00000000  0d 00 0a 16 20 f4 22 81  44 41 54 41 20 42 41 53  |.... .".DATA BAS|
00000010  45 20 56 33 87 22 0d 00  14 1b 20 f4 22 82 42 4f  |E V3.".... .".BO|
00000020  42 20 41 4e 44 45 52 53  4f 4e 20 31 39 38 35 87  |B ANDERSON 1985.|
00000030  22 0d 00 1e 05 3a 0d 00  28 0a 20 ee 20 85 20 f9  |"....:..(. . . .|
00000040  0d 00 32 1b 20 eb 37 3a  d3 3d 26 34 35 30 30 3a  |..2. .7:.=&4500:|
00000050  f2 69 6e 69 74 69 61 6c  69 73 65 0d 00 3c 14 20  |.initialise..<. |
00000060  ee 20 85 20 f2 63 68 65  63 6b 65 72 72 6f 72 0d  |. . .checkerror.|
00000070  00 46 05 3a 0d 00 50 06  20 f5 0d 00 5a 0d 20 2a  |.F.:..P. ...Z. *|
00000080  46 58 32 30 30 2c 30 0d  00 64 17 20 e7 66 6c 61  |FX200,0..d. .fla|
00000090  67 32 3d 30 f2 73 65 74  73 63 72 65 65 6e 0d 00  |g2=0.setscreen..|
000000a0  6e 0c 20 66 6c 61 67 32  3d 30 0d 00 78 0c 20 2a  |n. flag2=0..x. *|
000000b0  46 58 31 35 2c 30 0d 00  82 08 20 4b 3d a5 0d 00  |FX15,0.... K=...|
000000c0  8c 0c 20 e7 4b 3d 37 30  f2 66 0d 00 96 0c 20 e7  |.. .K=70.f.... .|
000000d0  4b 3d 36 36 f2 62 0d 00  a0 18 20 e7 20 4b 3d 37  |K=66.b.... . K=7|
000000e0  30 20 84 20 4b 3d 36 36  20 e5 8d 54 62 41 0d 00  |0 . K=66 ..TbA..|
000000f0  aa 0c 20 e7 4b 3d 36 35  f2 61 0d 00 b4 0c 20 e7  |.. .K=65.a.... .|
00000100  4b 3d 36 38 f2 64 0d 00  be 0c 20 e7 4b 3d 36 39  |K=68.d.... .K=69|
00000110  f2 65 0d 00 c8 0c 20 e7  4b 3d 37 32 f2 68 0d 00  |.e.... .K=72.h..|
00000120  d2 0c 20 e7 4b 3d 37 35  f2 6b 0d 00 dc 0c 20 e7  |.. .K=75.k.... .|
00000130  4b 3d 37 36 f2 6c 0d 00  e6 0c 20 e7 4b 3d 37 38  |K=76.l.... .K=78|
00000140  f2 6e 0d 00 f0 0c 20 e7  4b 3d 34 32 f2 6f 0d 00  |.n.... .K=42.o..|
00000150  fa 0d 20 e7 4b 3d 37 39  f2 6f 72 0d 01 04 0c 20  |.. .K=79.or.... |
00000160  e7 4b 3d 38 30 f2 70 0d  01 0e 0c 20 e7 4b 3d 38  |.K=80.p.... .K=8|
00000170  32 f2 72 0d 01 18 0c 20  e7 4b 3d 38 33 f2 73 0d  |2.r.... .K=83.s.|
00000180  01 22 08 20 fd 20 a3 0d  01 2c 05 3a 0d 01 36 11  |.". . ...,.:..6.|
00000190  20 dd f2 69 6e 69 74 69  61 6c 69 73 65 0d 01 40  | ..initialise..@|
000001a0  0d 20 2a 46 58 32 30 30  2c 30 0d 01 4a 0b 20 2a  |. *FX200,0..J. *|
000001b0  46 58 34 2c 32 0d 01 54  50 20 66 6c 61 67 3d 30  |FX4,2..TP flag=0|
000001c0  3a 66 6c 61 67 32 3d 30  3a 66 69 6c 65 24 3d 22  |:flag2=0:file$="|
000001d0  22 3a 72 65 63 6f 72 64  3d 30 3a 73 74 61 72 74  |":record=0:start|
000001e0  61 3d 26 34 35 30 31 3a  de 66 24 28 31 36 29 2c  |a=&4501:.f$(16),|
000001f0  6c 65 28 31 36 29 2c 6c  65 6e 28 31 36 29 3a f2  |le(16),len(16):.|
00000200  63 6c 65 61 72 0d 01 5e  06 20 e1 0d 01 68 05 3a  |clear..^. ...h.:|
00000210  0d 01 72 2f 20 dd f2 63  68 65 63 6b 65 72 72 6f  |..r/ ..checkerro|
00000220  72 3a ef 37 3a f1 27 22  88 81 3a 20 45 52 52 4f  |r:.7:.'"..: ERRO|
00000230  52 20 3a 89 87 22 3b 3a  f6 3a f2 73 70 3a e1 0d  |R :..";:.:.sp:..|
00000240  01 7c 05 3a 0d 01 86 10  20 dd f2 73 65 74 73 63  |.|.:.... ..setsc|
00000250  72 65 65 6e 0d 01 90 0a  20 ef 32 36 3a db 0d 01  |reen.... .26:...|
00000260  9a 2b 20 f2 67 65 74 62  79 74 65 73 28 35 36 29  |.+ .getbytes(56)|
00000270  3a e7 48 3e 30 20 80 20  72 65 63 6f 72 64 3d 30  |:.H>0 . record=0|
00000280  20 72 65 63 6f 72 64 3d  31 0d 01 a4 c7 20 41 24  | record=1.... A$|
00000290  3d bd 31 34 38 2b 22 ac  ac ac ac ac ac ac ac ac  |=.148+".........|
000002a0  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac ac ac  |................|
000002b0  ac ac ac ac ac ac ac ac  ac ac ac ac ac ac 22 3a  |..............":|
000002c0  f1 22 84 22 bd 31 35 37  3b 8a 31 33 2c 30 29 3b  |.".".157;.13,0);|
000002d0  22 83 44 41 54 41 20 42  41 53 45 22 8a 30 2c 34  |".DATA BASE".0,4|
000002e0  29 41 24 3b 8a 30 2c 32  32 29 41 24 3b 8a 30 2c  |)A$;.0,22)A$;.0,|
000002f0  32 33 29 22 83 52 45 43  4f 52 44 20 4e 4f 53 20  |23)".RECORD NOS |
00000300  3a 20 22 3b 72 65 63 6f  72 64 3a f1 8a 32 30 2c  |: ";record:..20,|
00000310  32 33 29 3b 22 46 49 4c  45 20 53 49 5a 45 20 3a  |23);"FILE SIZE :|
00000320  20 22 3b 3a f2 67 65 74  62 79 74 65 73 28 35 36  | ";:.getbytes(56|
00000330  29 3a f1 3b 48 3b 8a 30  2c 32 34 29 3b 22 83 52  |):.;H;.0,24);".R|
00000340  45 43 4f 52 44 20 53 50  41 43 45 20 3a 20 22 3b  |ECORD SPACE : ";|
00000350  0d 01 ae 34 20 f2 67 65  74 62 79 74 65 73 28 35  |...4 .getbytes(5|
00000360  34 29 3a f1 3b 48 3b 8a  32 30 2c 32 34 29 3b 22  |4):.;H;.20,24);"|
00000370  46 49 4c 45 20 4e 41 4d  45 20 3a 20 22 3b 66 69  |FILE NAME : ";fi|
00000380  6c 65 24 3b 0d 01 b8 13  20 f2 74 6f 70 77 3a f2  |le$;.... .topw:.|
00000390  6f 70 74 69 6f 6e 73 0d  01 c2 5b 20 f2 62 6f 74  |options...[ .bot|
000003a0  77 3a e7 20 3f 28 73 74  61 72 74 61 2b 31 32 29  |w:. ?(starta+12)|
000003b0  3d 30 20 e3 41 3d 30 b8  31 3a f1 8a 37 2c 41 2b  |=0 .A=0.1:..7,A+|
000003c0  37 29 bd 31 34 31 22 88  46 49 4c 45 20 4e 4f 54  |7).141".FILE NOT|
000003d0  20 49 4e 49 54 49 41 4c  49 53 45 44 22 3a ed 20  | INITIALISED":. |
000003e0  8b 20 f2 70 66 69 65 6c  64 3a f2 70 72 65 63 6f  |. .pfield:.preco|
000003f0  72 64 0d 01 cc 06 20 e1  0d 01 d6 05 3a 0d 01 e0  |rd.... .....:...|
00000400  30 20 dd f2 61 3a f2 74  69 74 6c 65 28 22 41 44  |0 ..a:.title("AD|
00000410  44 22 29 3a e7 20 3f 28  73 74 61 72 74 61 2b 31  |D"):. ?(starta+1|
00000420  32 29 3d 30 f2 6e 65 78  69 73 74 3a e1 0d 01 ea  |2)=0.nexist:....|
00000430  18 20 f2 67 65 74 62 79  74 65 73 28 35 34 29 3a  |. .getbytes(54):|
00000440  e7 48 3d 30 e1 0d 01 f4  3a 20 f1 8a 39 2c 31 29  |.H=0....: ..9,1)|
00000450  3b 22 82 52 45 54 55 52  4e 86 5d 73 65 6c 65 63  |;".RETURN.]selec|
00000460  74 20 66 69 65 6c 64 22  3b 8a 31 32 2c 32 29 3b  |t field";.12,2);|
00000470  22 82 54 41 42 86 5d 66  69 6e 69 73 68 22 3b 0d  |".TAB.]finish";.|
00000480  01 fe 0d 20 2a 46 58 32  30 30 2c 31 0d 02 08 64  |... *FX200,1...d|
00000490  20 f2 67 65 74 62 79 74  65 73 28 35 34 29 3a 48  | .getbytes(54):H|
000004a0  3d 48 2d 31 3a f2 70 75  74 62 79 74 65 73 28 35  |=H-1:.putbytes(5|
000004b0  34 29 3a f2 67 65 74 62  79 74 65 73 28 35 36 29  |4):.getbytes(56)|
000004c0  3a 48 3d 48 2b 31 3a f2  70 75 74 62 79 74 65 73  |:H=H+1:.putbytes|
000004d0  28 35 36 29 3a f1 8a 39  2c 30 29 3b 22 86 52 45  |(56):..9,0);".RE|
000004e0  43 4f 52 44 20 4e 4f 27  53 20 3a 83 22 3b 48 3b  |CORD NO'S :.";H;|
000004f0  0d 02 12 0f 20 f2 69 6e  70 75 74 72 65 63 31 0d  |.... .inputrec1.|
00000500  02 1c 16 20 f2 67 65 74  62 79 74 65 73 28 31 36  |... .getbytes(16|
00000510  29 3a 41 3d 48 0d 02 26  36 20 f2 67 65 74 62 79  |):A=H..&6 .getby|
00000520  74 65 73 28 35 36 29 3a  3f 28 41 29 3d 28 48 20  |tes(56):?(A)=(H |
00000530  83 32 35 35 29 3a 3f 28  41 2b 31 29 3d 28 48 20  |.255):?(A+1)=(H |
00000540  81 32 35 35 29 3a 41 3d  41 2b 32 0d 02 30 27 20  |.255):A=A+2..0' |
00000550  e3 42 3d 30 b8 31 36 3a  43 3d 6c 65 28 42 29 2d  |.B=0.16:C=le(B)-|
00000560  a9 28 66 24 28 42 29 29  3a e7 43 3d 30 e5 8d 44  |.(f$(B)):.C=0..D|
00000570  44 42 0d 02 3a 1f 20 e3  44 3d 31 b8 43 3a 66 24  |DB..:. .D=1.C:f$|
00000580  28 42 29 3d 66 24 28 42  29 2b bd 28 33 32 29 3a  |(B)=f$(B)+.(32):|
00000590  ed 0d 02 44 23 20 ed 3a  e3 42 3d 30 b8 31 36 3a  |...D# .:.B=0.16:|
000005a0  24 41 3d 66 24 28 42 29  3a 41 3d 41 2b 6c 65 28  |$A=f$(B):A=A+le(|
000005b0  42 29 3a ed 0d 02 4e 16  20 48 3d 41 3a f2 70 75  |B):...N. H=A:.pu|
000005c0  74 62 79 74 65 73 28 31  36 29 0d 02 58 06 20 e1  |tbytes(16)..X. .|
000005d0  0d 02 62 05 3a 0d 02 6c  11 20 dd f2 62 3a 2a 46  |..b.:..l. ..b:*F|
000005e0  58 32 30 30 2c 31 0d 02  76 2d 20 e7 20 3f 28 73  |X200,1..v- . ?(s|
000005f0  74 61 72 74 61 2b 31 32  29 3d 30 f2 74 69 74 6c  |tarta+12)=0.titl|
00000600  65 28 22 42 41 43 4b 22  29 3a f2 6e 65 78 69 73  |e("BACK"):.nexis|
00000610  74 3a e1 0d 02 80 0f 20  e7 72 65 63 6f 72 64 3d  |t:..... .record=|
00000620  31 e1 0d 02 8a 30 20 f2  67 65 74 62 79 74 65 73  |1....0 .getbytes|
00000630  28 35 36 29 3a e7 48 3d  30 f2 74 69 74 6c 65 28  |(56):.H=0.title(|
00000640  22 42 41 43 4b 22 29 3a  f2 6e 72 65 63 6f 72 64  |"BACK"):.nrecord|
00000650  3a e1 0d 02 94 2f 20 e7  72 65 63 6f 72 64 3e 31  |:..../ .record>1|
00000660  20 72 65 63 6f 72 64 3d  72 65 63 6f 72 64 2d 31  | record=record-1|
00000670  3a f2 70 72 65 63 6f 72  64 3a 66 6c 61 67 32 3d  |:.precord:flag2=|
00000680  31 0d 02 9e 06 20 e1 0d  02 a8 05 3a 0d 02 b2 33  |1.... .....:...3|
00000690  20 dd f2 64 3a f2 74 69  74 6c 65 28 22 44 45 4c  | ..d:.title("DEL|
000006a0  45 54 45 22 29 3a e7 20  3f 28 73 74 61 72 74 61  |ETE"):. ?(starta|
000006b0  2b 31 32 29 3d 30 f2 6e  65 78 69 73 74 3a e1 0d  |+12)=0.nexist:..|
000006c0  02 bc 21 20 f2 67 65 74  62 79 74 65 73 28 35 36  |..! .getbytes(56|
000006d0  29 3a e7 48 3d 30 f2 6e  72 65 63 6f 72 64 3a e1  |):.H=0.nrecord:.|
000006e0  0d 02 c6 11 20 f2 73 75  72 65 3a e7 73 73 3d 31  |.... .sure:.ss=1|
000006f0  e1 0d 02 d0 0d 20 2a 46  58 32 30 30 2c 31 0d 02  |..... *FX200,1..|
00000700  da 33 20 f2 74 69 74 6c  65 28 22 44 45 4c 45 54  |.3 .title("DELET|
00000710  45 22 29 3a f1 8a 31 31  2c 31 29 3b 22 81 88 44  |E"):..11,1);"..D|
00000720  45 4c 45 54 49 4e 47 20  52 45 43 4f 52 44 89 22  |ELETING RECORD."|
00000730  3b 0d 02 e4 2a 20 f2 67  65 74 62 79 74 65 73 28  |;...* .getbytes(|
00000740  31 34 29 3a 41 25 3d 48  3a f2 67 65 74 62 79 74  |14):A%=H:.getbyt|
00000750  65 73 28 35 32 29 3a 42  25 3d 48 0d 02 ee 1b 20  |es(52):B%=H.... |
00000760  41 25 3d 41 25 2b 28 42  25 2a 28 72 65 63 6f 72  |A%=A%+(B%*(recor|
00000770  64 2d 31 29 29 3a 0d 02  f8 17 20 f2 67 65 74 62  |d-1)):.... .getb|
00000780  79 74 65 73 28 35 36 29  3a 44 25 3d 48 0d 03 02  |ytes(56):D%=H...|
00000790  16 20 e3 43 25 3d 72 65  63 6f 72 64 20 b8 20 44  |. .C%=record . D|
000007a0  25 2d 31 0d 03 0c 26 20  3f 28 41 25 29 3d 28 43  |%-1...& ?(A%)=(C|
000007b0  25 20 83 32 35 35 29 3a  3f 28 41 25 2b 31 29 3d  |% .255):?(A%+1)=|
000007c0  28 43 25 20 81 32 35 35  29 0d 03 16 0c 20 41 25  |(C% .255).... A%|
000007d0  3d 41 25 2b 32 0d 03 20  28 20 e3 45 25 3d 41 25  |=A%+2.. ( .E%=A%|
000007e0  20 b8 20 28 41 25 2b 42  25 29 2d 32 3a 3f 28 45  | . (A%+B%)-2:?(E|
000007f0  25 29 3d 3f 28 45 25 2b  42 25 29 3a ed 0d 03 2a  |%)=?(E%+B%):...*|
00000800  13 20 41 25 3d 28 41 25  2b 42 25 29 2d 32 3a ed  |. A%=(A%+B%)-2:.|
00000810  0d 03 34 17 20 48 3d 41  25 3a f2 70 75 74 62 79  |..4. H=A%:.putby|
00000820  74 65 73 28 31 36 29 0d  03 3e 26 20 f2 67 65 74  |tes(16)..>& .get|
00000830  62 79 74 65 73 28 35 34  29 3a 48 3d 48 2b 31 3a  |bytes(54):H=H+1:|
00000840  f2 70 75 74 62 79 74 65  73 28 35 34 29 0d 03 48  |.putbytes(54)..H|
00000850  29 20 48 3d 44 25 2d 31  3a f2 70 75 74 62 79 74  |) H=D%-1:.putbyt|
00000860  65 73 28 35 36 29 3a 72  65 63 6f 72 64 3d 72 65  |es(56):record=re|
00000870  63 6f 72 64 2d 31 0d 03  52 06 20 e1 0d 03 5c 05  |cord-1..R. ...\.|
00000880  3a 0d 03 66 31 20 dd f2  65 3a f2 74 69 74 6c 65  |:..f1 ..e:.title|
00000890  28 22 45 44 49 54 22 29  3a e7 20 3f 28 73 74 61  |("EDIT"):. ?(sta|
000008a0  72 74 61 2b 31 32 29 3d  30 f2 6e 65 78 69 73 74  |rta+12)=0.nexist|
000008b0  3a e1 0d 03 70 21 20 f2  67 65 74 62 79 74 65 73  |:...p! .getbytes|
000008c0  28 35 36 29 3a e7 48 3d  30 f2 6e 72 65 63 6f 72  |(56):.H=0.nrecor|
000008d0  64 3a e1 0d 03 7a 1c 20  f1 8a 39 2c 31 29 3b 22  |d:...z. ..9,1);"|
000008e0  86 50 4c 45 41 53 45 20  57 41 49 54 87 22 3b 0d  |.PLEASE WAIT.";.|
000008f0  03 84 0d 20 2a 46 58 32  30 30 2c 31 0d 03 8e 50  |... *FX200,1...P|
00000900  20 61 3d 31 38 3a e3 41  3d 30 b8 31 36 3a 66 24  | a=18:.A=0.16:f$|
00000910  28 41 29 3d 22 22 3a 6c  65 28 41 29 3d 28 3f 28  |(A)="":le(A)=(?(|
00000920  73 74 61 72 74 61 2b 28  61 2b 31 37 29 29 29 3a  |starta+(a+17))):|
00000930  6c 65 6e 28 41 29 3d 28  3f 28 73 74 61 72 74 61  |len(A)=(?(starta|
00000940  2b 61 29 29 3a 61 3d 61  2b 31 3a ed 0d 03 98 55  |+a)):a=a+1:....U|
00000950  20 f2 67 65 74 62 79 74  65 73 28 31 34 29 3a 41  | .getbytes(14):A|
00000960  3d 48 3a f2 67 65 74 62  79 74 65 73 28 35 32 29  |=H:.getbytes(52)|
00000970  3a 42 3d 48 3a 41 3d 41  2d 42 3a f5 3a 41 3d 41  |:B=H:A=A-B:.:A=A|
00000980  2b 42 3a f2 67 65 74 62  79 74 65 73 28 41 2d 73  |+B:.getbytes(A-s|
00000990  74 61 72 74 61 29 3a fd  20 48 3d 72 65 63 6f 72  |tarta):. H=recor|
000009a0  64 0d 03 a2 4a 20 41 3d  41 2b 32 3a 49 3d 41 3a  |d...J A=A+2:I=A:|
000009b0  e3 42 3d 30 b8 31 36 3a  e3 43 3d 31 b8 6c 65 28  |.B=0.16:.C=1.le(|
000009c0  42 29 3a 66 24 28 42 29  3d 66 24 28 42 29 2b bd  |B):f$(B)=f$(B)+.|
000009d0  28 3f 28 41 2b 43 2d 31  29 29 3a e7 6c 65 28 42  |(?(A+C-1)):.le(B|
000009e0  29 3d 30 66 24 28 42 29  3d 22 22 0d 03 ac 1f 20  |)=0f$(B)="".... |
000009f0  ed 3a 41 24 3d 22 22 3a  61 3d 30 3a e7 66 24 28  |.:A$="":a=0:.f$(|
00000a00  42 29 3d 22 22 e5 8d 64  40 43 0d 03 b6 30 20 f5  |B)=""..d@C...0 .|
00000a10  3a 41 24 3d c1 66 24 28  42 29 2c 6c 65 28 42 29  |:A$=.f$(B),le(B)|
00000a20  2d 61 2c 31 29 3a 61 3d  61 2b 31 3a fd 41 24 3c  |-a,1):a=a+1:.A$<|
00000a30  3e 22 20 22 3a 61 3d 61  2d 31 0d 03 c0 26 20 66  |>" ":a=a-1...& f|
00000a40  24 28 42 29 3d c0 66 24  28 42 29 2c 6c 65 28 42  |$(B)=.f$(B),le(B|
00000a50  29 2d 61 29 3a 41 3d 41  2b 6c 65 28 42 29 3a ed  |)-a):A=A+le(B):.|
00000a60  0d 03 ca 6f 20 f1 8a 39  2c 31 29 3b 22 82 52 45  |...o ..9,1);".RE|
00000a70  54 55 52 4e 86 5d 73 65  6c 65 63 74 20 66 69 65  |TURN.]select fie|
00000a80  6c 64 22 3b 8a 31 32 2c  32 29 3b 22 82 54 41 42  |ld";.12,2);".TAB|
00000a90  86 5d 66 69 6e 69 73 68  22 3b 3a f2 62 6f 74 77  |.]finish";:.botw|
00000aa0  3a 66 3d 2d 31 3a f5 3a  66 3d 66 2b 31 3a fd 6c  |:f=-1:.:f=f+1:.l|
00000ab0  65 28 66 29 3c 3e 30 3a  ef 33 31 2c 28 6c 65 6e  |e(f)<>0:.31,(len|
00000ac0  28 66 29 2b a9 28 66 24  28 66 29 29 29 2c 66 0d  |(f)+.(f$(f))),f.|
00000ad0  03 d4 14 20 f5 3a 41 3d  a5 3a e7 41 3d 39 e5 8d  |... .:A=.:.A=9..|
00000ae0  54 64 44 0d 03 de 1d 20  e7 41 3d 31 33 80 66 3d  |TdD.... .A=13.f=|
00000af0  31 36 66 3d 30 8b e7 41  3d 31 33 66 3d 66 2b 31  |16f=0..A=13f=f+1|
00000b00  0d 03 e8 14 20 e7 20 6c  65 28 66 29 3d 30 20 e5  |.... . le(f)=0 .|
00000b10  8d 64 5e 43 0d 03 f2 10  20 e7 41 3d 31 33 20 e5  |.d^C.... .A=13 .|
00000b20  8d 54 5a 44 0d 03 fc 4e  20 e7 41 3d 31 32 37 80  |.TZD...N .A=127.|
00000b30  20 a9 28 66 24 28 66 29  29 3c 3e 30 20 ef 31 32  | .(f$(f))<>0 .12|
00000b40  37 3a 66 24 28 66 29 3d  c0 66 24 28 66 29 2c 28  |7:f$(f)=.f$(f),(|
00000b50  a9 28 66 24 28 66 29 29  2d 31 29 29 3a e5 8d 54  |.(f$(f))-1)):..T|
00000b60  5a 44 20 8b 20 e7 20 41  3d 31 32 37 20 e5 8d 54  |ZD . . A=127 ..T|
00000b70  5a 44 0d 04 06 1b 20 e7  20 a9 28 66 24 28 66 29  |ZD.... . .(f$(f)|
00000b80  29 3d 6c 65 28 66 29 20  e5 8d 54 5a 44 0d 04 10  |)=le(f) ..TZD...|
00000b90  15 20 66 24 28 66 29 3d  66 24 28 66 29 2b bd 28  |. f$(f)=f$(f)+.(|
00000ba0  41 29 0d 04 1a 17 20 f1  8a 6c 65 6e 28 66 29 2c  |A).... ..len(f),|
00000bb0  66 29 3b 66 24 28 66 29  3b 0d 04 24 09 20 fd 41  |f);f$(f);..$. .A|
00000bc0  3d 39 0d 04 2e 27 20 e3  42 3d 30 b8 31 36 3a 43  |=9...' .B=0.16:C|
00000bd0  3d 6c 65 28 42 29 2d a9  28 66 24 28 42 29 29 3a  |=le(B)-.(f$(B)):|
00000be0  e7 43 3d 30 e5 8d 44 42  44 0d 04 38 1f 20 e3 44  |.C=0..DBD..8. .D|
00000bf0  3d 31 b8 43 3a 66 24 28  42 29 3d 66 24 28 42 29  |=1.C:f$(B)=f$(B)|
00000c00  2b bd 28 33 32 29 3a ed  0d 04 42 45 20 ed 3a f2  |+.(32):...BE .:.|
00000c10  67 65 74 62 79 74 65 73  28 35 32 29 3a 43 3d 28  |getbytes(52):C=(|
00000c20  3f 28 49 2b 48 2d 32 29  29 3a e3 42 3d 30 b8 31  |?(I+H-2)):.B=0.1|
00000c30  36 3a 24 49 3d 66 24 28  42 29 3a 49 3d 49 2b 6c  |6:$I=f$(B):I=I+l|
00000c40  65 28 42 29 3a ed 3a 3f  28 49 29 3d 43 0d 04 4c  |e(B):.:?(I)=C..L|
00000c50  06 20 e1 0d 04 56 05 3a  0d 04 60 34 20 dd f2 66  |. ...V.:..`4 ..f|
00000c60  3a e7 20 3f 28 73 74 61  72 74 61 2b 31 32 29 3d  |:. ?(starta+12)=|
00000c70  30 f2 74 69 74 6c 65 28  22 46 4f 52 57 41 52 44  |0.title("FORWARD|
00000c80  22 29 3a f2 6e 65 78 69  73 74 3a e1 0d 04 6a 33  |"):.nexist:...j3|
00000c90  20 f2 67 65 74 62 79 74  65 73 28 35 36 29 3a e7  | .getbytes(56):.|
00000ca0  48 3d 30 f2 74 69 74 6c  65 28 22 46 4f 52 57 41  |H=0.title("FORWA|
00000cb0  52 44 22 29 3a f2 6e 72  65 63 6f 72 64 3a e1 0d  |RD"):.nrecord:..|
00000cc0  04 74 10 20 e7 72 65 63  6f 72 64 3d 48 20 e1 0d  |.t. .record=H ..|
00000cd0  04 7e 0d 20 2a 46 58 32  30 30 2c 31 0d 04 88 2f  |.~. *FX200,1.../|
00000ce0  20 e7 72 65 63 6f 72 64  3c 48 20 72 65 63 6f 72  | .record<H recor|
00000cf0  64 3d 72 65 63 6f 72 64  2b 31 3a f2 70 72 65 63  |d=record+1:.prec|
00000d00  6f 72 64 3a 66 6c 61 67  32 3d 31 0d 04 92 06 20  |ord:flag2=1.... |
00000d10  e1 0d 04 9c 05 3a 0d 04  a6 11 20 dd f2 68 3a 2a  |.....:.... ..h:*|
00000d20  46 58 32 30 30 2c 31 0d  04 b0 4b 20 f2 74 69 74  |FX200,1...K .tit|
00000d30  6c 65 28 22 48 45 4c 50  22 29 3a f2 62 6f 74 77  |le("HELP"):.botw|
00000d40  3a db 3a f7 8d 54 66 4c  3a e3 41 3d 30 b8 31 33  |:.:..TfL:.A=0.13|
00000d50  3a f3 41 24 2c 42 24 3a  f1 8a 35 2c 41 29 41 24  |:.A$,B$:..5,A)A$|
00000d60  3b 8a 39 29 22 5f 20 22  42 24 3a ed 3a f2 73 70  |;.9)"_ "B$:.:.sp|
00000d70  3a e1 0d 04 ba 05 3a 0d  04 c4 31 20 dd f2 6b 3a  |:.....:...1 ..k:|
00000d80  f2 74 69 74 6c 65 28 22  4b 45 45 50 22 29 3a e7  |.title("KEEP"):.|
00000d90  20 3f 28 73 74 61 72 74  61 2b 31 32 29 3d 30 f2  | ?(starta+12)=0.|
00000da0  6e 65 78 69 73 74 3a e1  0d 04 ce 2d 20 f2 62 6f  |nexist:....- .bo|
00000db0  74 77 3a db 3a f1 8a 30  2c 35 29 22 83 53 41 56  |tw:.:..0,5)".SAV|
00000dc0  45 20 54 48 45 20 46 49  4c 45 2e 87 22 3a f2 67  |E THE FILE..":.g|
00000dd0  66 6e 61 6d 65 0d 04 d8  0d 20 2a 46 58 32 30 30  |fname.... *FX200|
00000de0  2c 31 0d 04 e2 12 20 f2  67 65 74 62 79 74 65 73  |,1.... .getbytes|
00000df0  28 31 36 29 0d 04 ec 37  20 f2 6f 73 63 6c 69 28  |(16)...7 .oscli(|
00000e00  22 2a 53 41 56 45 22 2b  bd 33 34 2b 66 69 6c 65  |"*SAVE"+.34+file|
00000e10  24 2b bd 33 34 2b 22 20  22 2b c3 7e 73 74 61 72  |$+.34+" "+.~star|
00000e20  74 61 2b 22 20 22 2b c3  7e 48 29 0d 04 f6 06 20  |ta+" "+.~H).... |
00000e30  e1 0d 05 00 05 3a 0d 05  0a 31 20 dd f2 6c 3a f2  |.....:...1 ..l:.|
00000e40  74 69 74 6c 65 28 22 4c  4f 41 44 22 29 3a e7 20  |title("LOAD"):. |
00000e50  3f 28 73 74 61 72 74 61  2b 31 32 29 3d 31 20 f2  |?(starta+12)=1 .|
00000e60  65 78 69 73 74 3a e1 0d  05 14 2d 20 f2 62 6f 74  |exist:....- .bot|
00000e70  77 3a db 3a f1 8a 30 2c  35 29 22 83 4c 4f 41 44  |w:.:..0,5)".LOAD|
00000e80  20 54 48 45 20 46 49 4c  45 2e 87 22 3a f2 67 66  | THE FILE..":.gf|
00000e90  6e 61 6d 65 0d 05 1e 0d  20 2a 46 58 32 30 30 2c  |name.... *FX200,|
00000ea0  31 0d 05 28 4a 20 f1 27  27 22 86 54 59 50 45 20  |1..(J .''".TYPE |
00000eb0  49 4e 20 53 45 43 55 52  49 54 59 20 50 41 53 53  |IN SECURITY PASS|
00000ec0  57 4f 52 44 2e 22 27 22  86 28 44 45 46 41 55 4c  |WORD."'".(DEFAUL|
00000ed0  54 20 49 53 20 27 44 41  54 41 42 41 53 45 27 29  |T IS 'DATABASE')|
00000ee0  2e 22 3a ef 31 35 32 3a  e8 43 24 0d 05 32 2b 20  |.":.152:.C$..2+ |
00000ef0  f2 6f 73 63 6c 69 28 22  2a 4c 4f 41 44 22 2b bd  |.oscli("*LOAD"+.|
00000f00  33 34 2b 66 69 6c 65 24  2b bd 33 34 2b c3 7e 73  |34+file$+.34+.~s|
00000f10  74 61 72 74 61 29 0d 05  3c 7a 20 41 24 3d 22 22  |tarta)..<z A$=""|
00000f20  3a e3 42 3d 73 74 61 72  74 61 20 b8 20 73 74 61  |:.B=starta . sta|
00000f30  72 74 61 2b 31 31 3a 41  24 3d 41 24 2b bd 28 3f  |rta+11:A$=A$+.(?|
00000f40  28 42 29 29 3a ed 3a e7  41 24 3c 3e 22 42 4f 42  |(B)):.:.A$<>"BOB|
00000f50  20 41 4e 44 45 52 53 4f  4e 22 ef 37 3a f1 27 27  | ANDERSON".7:.''|
00000f60  22 81 88 54 48 49 53 20  49 53 20 4e 4f 54 20 41  |"..THIS IS NOT A|
00000f70  20 44 41 54 41 42 41 53  45 81 46 49 4c 45 21 21  | DATABASE.FILE!!|
00000f80  87 89 22 3a f2 73 70 3a  f2 63 6c 65 61 72 3a e1  |..":.sp:.clear:.|
00000f90  0d 05 46 72 20 e7 24 28  73 74 61 72 74 61 2b 35  |..Fr .$(starta+5|
00000fa0  38 29 3c 3e 43 24 20 ef  37 3a f1 27 27 22 81 88  |8)<>C$ .7:.''"..|
00000fb0  53 45 43 55 52 49 54 59  20 42 52 45 41 43 48 20  |SECURITY BREACH |
00000fc0  2d 20 54 48 45 20 55 53  45 52 20 49 53 20 4e 4f  |- THE USER IS NO|
00000fd0  54 22 27 22 81 88 50 45  52 4d 49 54 54 45 44 20  |T"'"..PERMITTED |
00000fe0  54 4f 20 41 43 43 45 53  53 20 54 48 49 53 20 46  |TO ACCESS THIS F|
00000ff0  49 4c 45 2e 22 3a f2 73  70 3a f2 63 6c 65 61 72  |ILE.":.sp:.clear|
00001000  3a e1 0d 05 50 2c 20 f2  67 65 74 62 79 74 65 73  |:...P, .getbytes|
00001010  28 35 36 29 3a e7 20 48  3d 30 20 72 65 63 6f 72  |(56):. H=0 recor|
00001020  64 3d 30 20 8b 20 72 65  63 6f 72 64 3d 31 0d 05  |d=0 . record=1..|
00001030  5a 06 20 e1 0d 05 64 05  3a 0d 05 6e 30 20 dd f2  |Z. ...d.:..n0 ..|
00001040  6e 3a f2 74 69 74 6c 65  28 22 4e 45 57 22 29 3a  |n:.title("NEW"):|
00001050  e7 20 3f 28 73 74 61 72  74 61 2b 31 32 29 3d 31  |. ?(starta+12)=1|
00001060  20 f2 65 78 69 73 74 3a  e1 0d 05 78 0d 20 2a 46  | .exist:...x. *F|
00001070  58 32 30 30 2c 31 0d 05  82 6b 20 f1 8a 39 2c 30  |X200,1...k ..9,0|
00001080  29 3b 22 83 2d 44 45 46  49 4e 45 20 46 49 45 4c  |);".-DEFINE FIEL|
00001090  44 20 54 49 54 4c 45 53  2e 22 8a 39 2c 31 29 3b  |D TITLES.".9,1);|
000010a0  22 86 55 73 65 82 52 45  54 55 52 4e 86 74 6f 20  |".Use.RETURN.to |
000010b0  73 65 6c 65 63 74 20 6e  65 78 74 22 27 22 86 66  |select next"'".f|
000010c0  69 65 6c 64 2c 61 6e 64  82 54 41 42 86 74 6f 20  |ield,and.TAB.to |
000010d0  66 69 6e 69 73 68 2e 22  3b 3a f2 62 6f 74 77 3a  |finish.";:.botw:|
000010e0  db 0d 05 8c 35 20 24 28  73 74 61 72 74 61 29 3d  |....5 $(starta)=|
000010f0  22 42 4f 42 20 41 4e 44  45 52 53 4f 4e 22 3a 3f  |"BOB ANDERSON":?|
00001100  28 73 74 61 72 74 61 2b  31 32 29 3d 31 3a 72 65  |(starta+12)=1:re|
00001110  63 6f 72 64 3d 30 0d 05  96 23 20 e3 41 3d 30 b8  |cord=0...# .A=0.|
00001120  31 36 3a f1 8a 30 2c 41  29 22 3c 3e 22 3b 3a 66  |16:..0,A)"<>";:f|
00001130  24 28 41 29 3d 22 22 3a  ed 0d 05 a0 12 20 66 3d  |$(A)="":..... f=|
00001140  30 3a ef 33 31 2c 32 2c  30 3a f5 0d 05 aa 13 20  |0:.31,2,0:..... |
00001150  41 3d a5 3a e7 20 41 3d  39 e5 8d 64 70 45 0d 05  |A=.:. A=9..dpE..|
00001160  b4 21 20 e7 20 41 3d 31  33 20 80 20 66 3d 31 36  |.! . A=13 . f=16|
00001170  66 3d 30 8b 20 e7 41 3d  31 33 66 3d 66 2b 31 0d  |f=0. .A=13f=f+1.|
00001180  05 be 10 20 e7 41 3d 31  33 20 e5 8d 64 66 45 0d  |... .A=13 ..dfE.|
00001190  05 c8 21 20 6c 3d a9 28  66 24 28 66 29 29 3a e7  |..! l=.(f$(f)):.|
000011a0  6c 3e 33 36 80 41 3c 3e  31 32 37 e5 8d 64 70 45  |l>36.A<>127..dpE|
000011b0  0d 05 d2 14 20 e7 41 3d  31 32 37 80 b1 3c 33 e5  |.... .A=127..<3.|
000011c0  8d 64 70 45 0d 05 dc 38  20 e7 41 3d 31 32 37 66  |.dpE...8 .A=127f|
000011d0  24 28 66 29 3d c0 66 24  28 66 29 2c 28 28 a9 28  |$(f)=.f$(f),((.(|
000011e0  66 24 28 66 29 29 29 2d  31 29 29 8b 66 24 28 66  |f$(f)))-1)).f$(f|
000011f0  29 3d 66 24 28 66 29 2b  bd 28 41 29 0d 05 e6 23  |)=f$(f)+.(A)...#|
00001200  20 f1 8a 31 2c 66 29 3b  66 24 28 66 29 3b 22 3e  | ..1,f);f$(f);">|
00001210  22 3b 3a e7 41 3d 31 32  37 ef 39 3b 31 32 37 0d  |";:.A=127.9;127.|
00001220  05 f0 09 20 fd 41 3d 39  0d 05 fa 05 3a 0d 06 04  |... .A=9....:...|
00001230  2e 20 61 3d 31 38 3a e3  41 3d 30 b8 31 36 3a 3f  |. a=18:.A=0.16:?|
00001240  28 73 74 61 72 74 61 2b  61 29 3d a9 28 66 24 28  |(starta+a)=.(f$(|
00001250  41 29 29 3a 61 3d 61 2b  31 3a ed 0d 06 0e 05 3a  |A)):a=a+1:.....:|
00001260  0d 06 18 5b 20 61 3d 38  30 3a e3 41 3d 30 b8 31  |...[ a=80:.A=0.1|
00001270  36 3a 24 28 73 74 61 72  74 61 2b 61 29 3d 66 24  |6:$(starta+a)=f$|
00001280  28 41 29 3a 61 3d 61 2b  a9 28 66 24 28 41 29 29  |(A):a=a+.(f$(A))|
00001290  3a 3f 28 73 74 61 72 74  61 2b 61 29 3d 37 3a 61  |:?(starta+a)=7:a|
000012a0  3d 61 2b 31 3a ed 3a 3f  28 73 74 61 72 74 61 2b  |=a+1:.:?(starta+|
000012b0  61 29 3d 32 39 3a 61 3d  61 2b 31 0d 06 22 05 3a  |a)=29:a=a+1..".:|
000012c0  0d 06 2c 7c 20 3f 28 73  74 61 72 74 61 2b 31 34  |..,| ?(starta+14|
000012d0  29 3d 28 28 73 74 61 72  74 61 2b 61 29 83 32 35  |)=((starta+a).25|
000012e0  35 29 3a 3f 28 73 74 61  72 74 61 2b 31 35 29 3d  |5):?(starta+15)=|
000012f0  28 28 73 74 61 72 74 61  2b 61 29 81 32 35 35 29  |((starta+a).255)|
00001300  3a 3f 28 73 74 61 72 74  61 2b 31 36 29 3d 28 28  |:?(starta+16)=((|
00001310  73 74 61 72 74 61 2b 61  29 83 32 35 35 29 3a 3f  |starta+a).255):?|
00001320  28 73 74 61 72 74 61 2b  31 37 29 3d 28 28 73 74  |(starta+17)=((st|
00001330  61 72 74 61 2b 61 29 81  32 35 35 29 0d 06 36 05  |arta+a).255)..6.|
00001340  3a 0d 06 40 93 20 f2 70  66 69 65 6c 64 3a f2 74  |:..@. .pfield:.t|
00001350  6f 70 77 3a db 3a f2 74  69 74 6c 65 28 22 4e 45  |opw:.:.title("NE|
00001360  57 22 29 3a f1 8a 39 2c  30 29 3b 22 83 2d 44 45  |W"):..9,0);".-DE|
00001370  46 49 4e 45 20 46 49 45  4c 44 20 4c 45 4e 47 54  |FINE FIELD LENGT|
00001380  48 53 2e 22 8a 39 2c 31  29 3b 22 82 53 50 41 43  |HS.".9,1);".SPAC|
00001390  45 2d 42 41 52 86 5d 65  6e 74 65 72 20 66 69 65  |E-BAR.]enter fie|
000013a0  6c 64 20 6c 65 6e 67 74  68 2e 82 54 41 42 86 5d  |ld length..TAB.]|
000013b0  66 69 6e 69 73 68 2e 82  52 45 54 55 52 4e 86 5d  |finish..RETURN.]|
000013c0  73 65 6c 65 63 74 20 66  69 65 6c 64 22 3b 3a f2  |select field";:.|
000013d0  62 6f 74 77 0d 06 4a 1b  20 ef 33 31 2c 28 a9 28  |botw..J. .31,(.(|
000013e0  66 24 28 30 29 29 29 2c  30 3a 66 3d 30 3a f5 0d  |f$(0))),0:f=0:..|
000013f0  06 54 21 20 41 3d a5 3a  e7 41 3d 31 33 80 66 3d  |.T! A=.:.A=13.f=|
00001400  31 36 66 3d 30 8b e7 41  3d 31 33 66 3d 66 2b 31  |16f=0..A=13f=f+1|
00001410  0d 06 5e 0f 20 e7 41 3d  31 33 e5 8d 44 7c 46 0d  |..^. .A=13..D|F.|
00001420  06 68 29 20 e7 41 3d 31  32 37 20 80 20 6c 65 28  |.h) .A=127 . le(|
00001430  66 29 3e 30 20 6c 65 28  66 29 3d 6c 65 28 66 29  |f)>0 le(f)=le(f)|
00001440  2d 31 3a e5 8d 44 7c 46  0d 06 72 36 20 e7 41 3d  |-1:..D|F..r6 .A=|
00001450  33 32 20 80 20 28 a9 28  66 24 28 66 29 29 2b 6c  |32 . (.(f$(f))+l|
00001460  65 28 66 29 29 3c 33 39  20 6c 65 28 66 29 3d 6c  |e(f))<39 le(f)=l|
00001470  65 28 66 29 2b 31 20 8b  20 e5 8d 74 46 46 0d 06  |e(f)+1 . ..tFF..|
00001480  7c 19 20 f1 8a a9 28 66  24 28 66 29 29 2b 6c 65  ||. ...(f$(f))+le|
00001490  28 66 29 2c 66 29 3b 0d  06 86 0a 20 fd 20 41 3d  |(f),f);.... . A=|
000014a0  39 0d 06 90 05 3a 0d 06  9a 2b 20 62 3d 33 35 3a  |9....:...+ b=35:|
000014b0  e3 41 3d 30 b8 31 36 3a  3f 28 73 74 61 72 74 61  |.A=0.16:?(starta|
000014c0  2b 62 29 3d 6c 65 28 41  29 3a 62 3d 62 2b 31 3a  |+b)=le(A):b=b+1:|
000014d0  ed 0d 06 a4 2e 20 41 3d  32 3a e3 42 3d 30 b8 31  |..... A=2:.B=0.1|
000014e0  36 3a 41 3d 41 2b 6c 65  28 42 29 3a ed 3a 48 3d  |6:A=A+le(B):.:H=|
000014f0  41 3a f2 70 75 74 62 79  74 65 73 28 35 32 29 0d  |A:.putbytes(52).|
00001500  06 ae 33 20 f2 67 65 74  62 79 74 65 73 28 31 34  |..3 .getbytes(14|
00001510  29 3a 42 3d 48 3a 48 3d  28 26 37 43 30 30 2d 42  |):B=H:H=(&7C00-B|
00001520  29 81 20 41 3a f2 70 75  74 62 79 74 65 73 28 35  |). A:.putbytes(5|
00001530  34 29 0d 06 b8 95 20 f2  74 69 74 6c 65 28 22 4e  |4).... .title("N|
00001540  45 57 22 29 3a f1 8a 39  2c 30 29 3b 22 86 4e 4f  |EW"):..9,0);".NO|
00001550  57 20 54 59 50 45 20 49  4e 20 53 45 43 55 52 49  |W TYPE IN SECURI|
00001560  54 59 20 50 41 53 53 57  4f 52 44 2e 22 3b 8a 39  |TY PASSWORD.";.9|
00001570  2c 31 29 3b 22 86 28 6d  61 78 20 6f 66 20 31 35  |,1);".(max of 15|
00001580  20 63 68 61 72 61 63 74  65 72 73 29 2e 22 3b 8a  | characters).";.|
00001590  30 2c 32 29 22 86 44 45  46 41 55 4c 54 20 49 53  |0,2)".DEFAULT IS|
000015a0  20 27 44 41 54 41 42 41  53 45 27 2e 22 3b 3a e8  | 'DATABASE'.";:.|
000015b0  41 24 3a e7 41 24 3d 22  22 20 41 24 3d 22 44 41  |A$:.A$="" A$="DA|
000015c0  54 41 42 41 53 45 22 0d  06 c2 17 20 e7 a9 28 41  |TABASE".... ..(A|
000015d0  24 29 3e 31 35 20 ef 37  3a e5 8d 74 78 46 0d 06  |$)>15 .7:..txF..|
000015e0  cc 2d 20 e3 41 3d 35 38  b8 37 33 3a 3f 28 73 74  |.- .A=58.73:?(st|
000015f0  61 72 74 61 2b 41 29 3d  30 3a ed 3a 24 28 73 74  |arta+A)=0:.:$(st|
00001600  61 72 74 61 2b 35 38 29  3d 41 24 0d 06 d6 06 20  |arta+58)=A$.... |
00001610  e1 0d 06 e0 05 3a 0d 06  ea 60 20 dd f2 6f 3a f2  |.....:...` ..o:.|
00001620  74 69 74 6c 65 28 22 4f  53 22 29 3a f2 62 6f 74  |title("OS"):.bot|
00001630  77 3a db 3a f1 8a 30 2c  32 29 22 83 45 6e 74 65  |w:.:..0,2)".Ente|
00001640  72 20 6f 70 65 72 61 74  69 6e 67 20 73 79 73 74  |r operating syst|
00001650  65 6d 20 63 6f 6d 6d 61  6e 64 20 6e 6f 77 3a 22  |em command now:"|
00001660  3a e8 22 20 2a 22 24 26  41 30 30 3a 58 25 3d 30  |:." *"$&A00:X%=0|
00001670  3a 59 25 3d 26 41 0d 06  f4 0d 20 2a 46 58 32 30  |:Y%=&A.... *FX20|
00001680  30 2c 31 0d 06 fe 11 20  d6 26 46 46 46 37 3a f2  |0,1.... .&FFF7:.|
00001690  73 70 3a e1 0d 07 08 05  3a 0d 07 12 32 20 dd f2  |sp:.....:...2 ..|
000016a0  70 3a f2 74 69 74 6c 65  28 22 50 52 49 4e 54 22  |p:.title("PRINT"|
000016b0  29 3a e7 20 3f 28 73 74  61 72 74 61 2b 31 32 29  |):. ?(starta+12)|
000016c0  3d 30 f2 6e 65 78 69 73  74 3a e1 0d 07 1c 21 20  |=0.nexist:....! |
000016d0  f2 67 65 74 62 79 74 65  73 28 35 36 29 3a e7 48  |.getbytes(56):.H|
000016e0  3d 30 f2 6e 72 65 63 6f  72 64 3a e1 0d 07 26 b0  |=0.nrecord:...&.|
000016f0  20 f1 8a 31 31 2c 31 29  3b 22 86 50 72 69 6e 74  | ..11,1);".Print|
00001700  20 41 6c 6c 20 6f 72 20  6a 75 73 74 20 64 69 73  | All or just dis|
00001710  70 6c 61 79 65 64 20 86  72 65 63 6f 72 64 2e 28  |played .record.(|
00001720  41 2f 44 29 22 3b 3a 66  6c 61 67 33 3d a5 3a f2  |A/D)";:flag3=.:.|
00001730  74 69 74 6c 65 28 22 50  52 49 4e 54 22 29 3a f1  |title("PRINT"):.|
00001740  8a 31 31 2c 31 29 3b 22  86 57 68 61 74 20 6b 69  |.11,1);".What ki|
00001750  6e 64 20 6f 66 20 69 6e  74 65 72 2d 72 65 63 6f  |nd of inter-reco|
00001760  72 64 22 3b 8a 30 2c 32  29 3b 22 86 73 70 61 63  |rd";.0,2);".spac|
00001770  65 20 63 68 61 72 61 63  74 65 72 20 64 6f 20 79  |e character do y|
00001780  6f 75 20 77 61 6e 74 20  22 3b 3a 45 3d a5 3a f1  |ou want ";:E=.:.|
00001790  3b bd 28 45 29 3b 3a f2  62 6f 74 77 0d 07 30 0d  |;.(E);:.botw..0.|
000017a0  20 2a 46 58 32 30 30 2c  31 0d 07 3a 17 20 e3 42  | *FX200,1..:. .B|
000017b0  3d 30 b8 31 36 3a 66 24  28 42 29 3d 22 22 3a ed  |=0.16:f$(B)="":.|
000017c0  0d 07 44 11 20 41 3d 38  30 3a e3 42 3d 30 b8 31  |..D. A=80:.B=0.1|
000017d0  36 0d 07 4e 1a 20 e7 20  3f 28 73 74 61 72 74 61  |6..N. . ?(starta|
000017e0  2b 41 29 3d 37 20 e5 8d  44 62 47 0d 07 58 2b 20  |+A)=7 ..DbG..X+ |
000017f0  66 24 28 42 29 3d 66 24  28 42 29 2b bd 28 3f 28  |f$(B)=f$(B)+.(?(|
00001800  73 74 61 72 74 61 2b 41  29 29 3a 41 3d 41 2b 31  |starta+A)):A=A+1|
00001810  3a e5 8d 44 4e 47 0d 07  62 0c 20 41 3d 41 2b 31  |:..DNG..b. A=A+1|
00001820  3a ed 0d 07 6c 0b 20 66  6c 61 67 3d 31 0d 07 76  |:...l. flag=1..v|
00001830  1f 20 41 24 3d 22 22 3a  e3 46 3d 31 b8 34 30 3a  |. A$="":.F=1.40:|
00001840  41 24 3d 41 24 2b bd 28  45 29 3a ed 0d 07 80 21  |A$=A$+.(E):....!|
00001850  20 ef 32 3a f1 22 46 49  4c 45 4e 41 4d 45 20 3a  | .2:."FILENAME :|
00001860  20 22 3b 66 69 6c 65 24  27 27 3a ef 33 0d 07 8a  | ";file$'':.3...|
00001870  2f 20 e7 66 6c 61 67 33  3c 3e 36 35 20 ef 32 3a  |/ .flag3<>65 .2:|
00001880  f2 70 72 65 63 6f 72 64  3a f1 41 24 3a ef 33 3a  |.precord:.A$:.3:|
00001890  66 6c 61 67 3d 30 3a e5  8d 74 68 47 0d 07 94 39  |flag=0:..thG...9|
000018a0  20 f2 67 65 74 62 79 74  65 73 28 35 36 29 3a ef  | .getbytes(56):.|
000018b0  32 3a e3 46 3d 31 20 b8  20 48 3a 72 65 63 6f 72  |2:.F=1 . H:recor|
000018c0  64 3d 46 3a f2 70 72 65  63 6f 72 64 3a f1 41 24  |d=F:.precord:.A$|
000018d0  3a ed 3a ef 33 0d 07 9e  14 20 72 65 63 6f 72 64  |:.:.3.... record|
000018e0  3d 31 3a 66 6c 61 67 3d  30 0d 07 a8 06 20 e1 0d  |=1:flag=0.... ..|
000018f0  07 b2 05 3a 0d 07 bc 33  20 dd f2 73 3a f2 74 69  |...:...3 ..s:.ti|
00001900  74 6c 65 28 22 53 45 41  52 43 48 22 29 3a e7 20  |tle("SEARCH"):. |
00001910  3f 28 73 74 61 72 74 61  2b 31 32 29 3d 30 f2 6e  |?(starta+12)=0.n|
00001920  65 78 69 73 74 3a e1 0d  07 c6 21 20 f2 67 65 74  |exist:....! .get|
00001930  62 79 74 65 73 28 35 36  29 3a e7 48 3d 30 f2 6e  |bytes(56):.H=0.n|
00001940  72 65 63 6f 72 64 3a e1  0d 07 d0 3a 20 f1 8a 33  |record:....: ..3|
00001950  2c 32 29 3b 22 86 53 45  41 52 43 48 20 46 4f 52  |,2);".SEARCH FOR|
00001960  20 52 45 43 4f 52 44 20  4e 55 4d 42 45 52 3f 28  | RECORD NUMBER?(|
00001970  59 2f 4e 29 22 3b 3a e7  20 a5 3d 37 38 e5 8d 64  |Y/N)";:. .=78..d|
00001980  6e 47 0d 07 da 5f 20 f1  8a 33 2c 32 29 3b 22 86  |nG..._ ..3,2);".|
00001990  45 4e 54 45 52 20 52 45  43 4f 52 44 20 4e 55 4d  |ENTER RECORD NUM|
000019a0  42 45 52 2e 28 31 20 54  4f 20 22 3b 3a f2 67 65  |BER.(1 TO ";:.ge|
000019b0  74 62 79 74 65 73 28 35  36 29 3a f1 3b 48 3b 22  |tbytes(56):.;H;"|
000019c0  29 22 3b 3a e8 41 3a 41  3d a8 28 41 29 3a e7 41  |)";:.A:A=.(A):.A|
000019d0  3c 31 20 84 20 41 3e 48  20 ef 37 3a e5 8d 64 5a  |<1 . A>H .7:..dZ|
000019e0  47 0d 07 e4 0f 20 72 65  63 6f 72 64 3d 41 3a e1  |G.... record=A:.|
000019f0  0d 07 ee 05 3a 0d 07 f8  0d 20 2a 46 58 32 30 30  |....:.... *FX200|
00001a00  2c 31 0d 08 02 6b 20 f2  74 69 74 6c 65 28 22 53  |,1...k .title("S|
00001a10  45 41 52 43 48 22 29 3a  f1 8a 31 31 2c 30 29 3b  |EARCH"):..11,0);|
00001a20  22 86 45 4e 54 45 52 20  53 45 41 52 43 48 20 52  |".ENTER SEARCH R|
00001a30  45 43 4f 52 44 3a 22 3b  8a 31 31 2c 31 29 3b 22  |ECORD:";.11,1);"|
00001a40  82 52 45 54 55 52 4e 86  5d 73 65 6c 65 63 74 20  |.RETURN.]select |
00001a50  66 69 65 6c 64 22 3b 8a  31 34 2c 32 29 3b 22 82  |field";.14,2);".|
00001a60  54 41 42 86 5d 66 69 6e  69 73 68 22 3b 0d 08 0c  |TAB.]finish";...|
00001a70  0f 20 f2 69 6e 70 75 74  72 65 63 31 0d 08 16 51  |. .inputrec1...Q|
00001a80  20 f2 74 69 74 6c 65 28  22 53 45 41 52 43 48 22  | .title("SEARCH"|
00001a90  29 3a f1 8a 31 31 2c 31  29 3b 22 86 50 4c 45 41  |):..11,1);".PLEA|
00001aa0  53 45 20 57 41 49 54 2c  20 53 45 41 52 43 48 49  |SE WAIT, SEARCHI|
00001ab0  4e 47 22 3b 8a 31 31 2c  32 29 3b 22 86 43 4c 4f  |NG";.11,2);".CLO|
00001ac0  53 45 53 54 20 4d 41 54  43 48 3a 22 3b 0d 08 20  |SEST MATCH:";.. |
00001ad0  28 20 54 25 3d 30 3a 53  25 3d 30 3a 52 25 3d 31  |( T%=0:S%=0:R%=1|
00001ae0  3a f2 67 65 74 62 79 74  65 73 28 31 34 29 3a 44  |:.getbytes(14):D|
00001af0  25 3d 48 2b 32 0d 08 2a  16 20 f2 67 65 74 62 79  |%=H+2..*. .getby|
00001b00  74 65 73 28 35 36 29 3a  46 3d 48 0d 08 34 0e 20  |tes(56):F=H..4. |
00001b10  e3 41 25 3d 31 20 b8 20  46 0d 08 3e 0f 20 e3 42  |.A%=1 . F..>. .B|
00001b20  25 3d 30 20 b8 20 31 36  0d 08 48 16 20 e7 20 66  |%=0 . 16..H. . f|
00001b30  24 28 42 25 29 3d 22 22  20 e5 8d 44 66 48 0d 08  |$(B%)="" ..DfH..|
00001b40  52 31 20 41 24 3d 22 22  3a e3 43 25 3d 31 20 b8  |R1 A$="":.C%=1 .|
00001b50  20 a9 66 24 28 42 25 29  3a 41 24 3d 41 24 2b bd  | .f$(B%):A$=A$+.|
00001b60  28 3f 28 44 25 2b 43 25  2d 31 29 29 3a ed 3a 0d  |(?(D%+C%-1)):.:.|
00001b70  08 5c 18 20 e7 20 41 24  3d 66 24 28 42 25 29 20  |.\. . A$=f$(B%) |
00001b80  54 25 3d 54 25 2b 31 0d  08 66 13 20 44 25 3d 44  |T%=T%+1..f. D%=D|
00001b90  25 2b 6c 65 28 42 25 29  3a ed 0d 08 70 0c 20 44  |%+le(B%):...p. D|
00001ba0  25 3d 44 25 2b 32 0d 08  7a 24 20 e7 20 54 25 3e  |%=D%+2..z$ . T%>|
00001bb0  53 25 20 53 25 3d 54 25  3a 52 25 3d 41 25 3a f1  |S% S%=T%:R%=A%:.|
00001bc0  8a 32 36 2c 32 29 3b 41  25 3b 0d 08 84 09 20 54  |.26,2);A%;.... T|
00001bd0  25 3d 30 0d 08 8e 06 20  ed 0d 08 98 0e 20 72 65  |%=0.... ..... re|
00001be0  63 6f 72 64 3d 52 25 0d  08 a2 06 20 e1 0d 08 ac  |cord=R%.... ....|
00001bf0  05 3a 0d 08 b6 29 20 dd  f2 72 3a f2 74 69 74 6c  |.:...) ..r:.titl|
00001c00  65 28 22 52 45 53 45 54  22 29 3a f2 73 75 72 65  |e("RESET"):.sure|
00001c10  3a e7 73 73 3d 31 e1 20  8b 20 f9 0d 08 c0 05 3a  |:.ss=1. . .....:|
00001c20  0d 08 ca 33 20 dd f2 6f  72 3a f2 74 69 74 6c 65  |...3 ..or:.title|
00001c30  28 22 4f 52 44 45 52 22  29 3a e7 20 3f 28 73 74  |("ORDER"):. ?(st|
00001c40  61 72 74 61 2b 31 32 29  3d 30 f2 6e 65 78 69 73  |arta+12)=0.nexis|
00001c50  74 3a e1 0d 08 d4 21 20  f2 67 65 74 62 79 74 65  |t:....! .getbyte|
00001c60  73 28 35 36 29 3a e7 48  3d 30 f2 6e 72 65 63 6f  |s(56):.H=0.nreco|
00001c70  72 64 3a e1 0d 08 de 0d  20 2a 46 58 32 30 30 2c  |rd:..... *FX200,|
00001c80  31 0d 08 e8 12 20 f2 67  65 74 62 79 74 65 73 28  |1.... .getbytes(|
00001c90  35 36 29 0d 08 f2 40 20  e8 8a 31 32 2c 30 29 3b  |56)...@ ..12,0);|
00001ca0  22 86 49 6e 70 75 74 20  31 73 74 20 72 65 63 6f  |".Input 1st reco|
00001cb0  72 64 20 6e 6f 73 20 3a  22 3b 41 25 3a e7 20 41  |rd nos :";A%:. A|
00001cc0  25 3c 31 20 84 20 41 25  3e 48 20 ef 37 3a e5 8d  |%<1 . A%>H .7:..|
00001cd0  64 72 48 0d 08 fc 41 20  e8 8a 31 32 2c 31 29 3b  |drH...A ..12,1);|
00001ce0  22 86 49 6e 70 75 74 20  32 6e 64 20 72 65 63 6f  |".Input 2nd reco|
00001cf0  72 64 20 6e 6f 73 20 3a  22 3b 42 25 3b 3a e7 20  |rd nos :";B%;:. |
00001d00  42 25 3c 31 20 84 20 42  25 3e 48 20 ef 37 3a e5  |B%<1 . B%>H .7:.|
00001d10  8d 64 7c 48 0d 09 06 2a  20 f2 67 65 74 62 79 74  |.d|H...* .getbyt|
00001d20  65 73 28 31 34 29 3a 43  25 3d 48 3a f2 67 65 74  |es(14):C%=H:.get|
00001d30  62 79 74 65 73 28 35 32  29 3a 44 25 3d 48 0d 09  |bytes(52):D%=H..|
00001d40  10 18 20 45 25 3d 43 25  2b 28 44 25 2a 28 41 25  |.. E%=C%+(D%*(A%|
00001d50  2d 31 29 29 2b 32 0d 09  1a 32 20 47 25 3d 26 43  |-1))+2...2 G%=&C|
00001d60  30 30 3a e3 20 46 25 3d  45 25 20 b8 20 28 45 25  |00:. F%=E% . (E%|
00001d70  2b 44 25 2d 32 29 3a 3f  47 25 3d 3f 46 25 3a 47  |+D%-2):?G%=?F%:G|
00001d80  25 3d 47 25 2b 31 3a ed  0d 09 24 18 20 49 25 3d  |%=G%+1:...$. I%=|
00001d90  43 25 2b 28 44 25 2a 28  42 25 2d 31 29 29 2b 32  |C%+(D%*(B%-1))+2|
00001da0  0d 09 2e 30 20 47 25 3d  45 25 3a e3 20 46 25 3d  |...0 G%=E%:. F%=|
00001db0  49 25 20 b8 20 28 49 25  2b 44 25 2d 32 29 3a 3f  |I% . (I%+D%-2):?|
00001dc0  47 25 3d 3f 46 25 3a 47  25 3d 47 25 2b 31 3a ed  |G%=?F%:G%=G%+1:.|
00001dd0  0d 09 38 34 20 47 25 3d  49 25 3a e3 20 46 25 3d  |..84 G%=I%:. F%=|
00001de0  26 43 30 30 20 b8 20 28  26 43 30 30 2b 44 25 2d  |&C00 . (&C00+D%-|
00001df0  32 29 3a 3f 47 25 3d 3f  46 25 3a 47 25 3d 47 25  |2):?G%=?F%:G%=G%|
00001e00  2b 31 3a ed 0d 09 42 06  20 e1 0d 09 4c 05 3a 0d  |+1:...B. ...L.:.|
00001e10  09 56 1a 20 dd f2 74 6f  70 77 3a ef 32 38 2c 30  |.V. ..topw:.28,0|
00001e20  2c 33 2c 33 39 2c 31 3a  e1 0d 09 60 05 3a 0d 09  |,3,39,1:...`.:..|
00001e30  6a 1b 20 dd f2 62 6f 74  77 3a ef 32 38 2c 30 2c  |j. ..botw:.28,0,|
00001e40  32 31 2c 33 39 2c 35 3a  e1 0d 09 74 05 3a 0d 09  |21,39,5:...t.:..|
00001e50  7e 40 20 dd f2 6f 70 74  69 6f 6e 73 3a f7 8d 54  |~@ ..options:..T|
00001e60  66 4c 3a e3 41 3d 30 b8  32 3a e3 42 3d 30 b8 33  |fL:.A=0.2:.B=0.3|
00001e70  34 88 37 3a f3 41 24 2c  42 24 3a f1 8a 42 2c 41  |4.7:.A$,B$:..B,A|
00001e80  29 3b 22 86 22 3b 41 24  3b 3a ed 2c 3a e1 0d 09  |);".";A$;:.,:...|
00001e90  88 05 3a 0d 09 92 60 20  dd f2 74 69 74 6c 65 28  |..:...` ..title(|
00001ea0  41 24 29 3a f2 74 6f 70  77 3a db 3a 42 24 3d 22  |A$):.topw:.:B$="|
00001eb0  22 3a e3 41 3d 30 b8 a9  28 41 24 29 2b 31 3a 42  |":.A=0..(A$)+1:B|
00001ec0  24 3d 42 24 2b 22 2c 22  3a ed 3a f1 bd 31 34 38  |$=B$+",":.:..148|
00001ed0  3b 22 6a 83 22 3b 41 24  3b bd 31 34 38 3b 22 35  |;"j.";A$;.148;"5|
00001ee0  22 27 bd 31 34 38 3b 22  2a 22 3b 42 24 3b 22 25  |"'.148;"*";B$;"%|
00001ef0  22 3a e1 0d 09 9c 05 3a  0d 09 a6 38 20 dd f2 73  |":.....:...8 ..s|
00001f00  70 3a f1 27 8a 36 29 22  86 50 72 65 73 73 82 53  |p:.'.6)".Press.S|
00001f10  50 41 43 45 20 42 41 52  86 74 6f 20 63 6f 6e 74  |PACE BAR.to cont|
00001f20  69 6e 75 65 2e 22 3b 3a  f5 fd a5 3d 33 32 3a e1  |inue.";:...=32:.|
00001f30  0d 09 b0 05 3a 0d 09 ba  44 20 dd f2 73 75 72 65  |....:...D ..sure|
00001f40  3a ef 37 3a f1 8a 31 33  2c 31 29 3b 22 88 86 41  |:.7:..13,1);"..A|
00001f50  72 65 20 79 6f 75 20 73  75 72 65 20 3f 22 3b 3a  |re you sure ?";:|
00001f60  e7 a5 3c 3e 38 39 73 73  3d 31 8b 73 73 3d 30 3a  |..<>89ss=1.ss=0:|
00001f70  f1 3b 22 59 22 3b 3a ef  37 0d 09 c4 06 20 e1 0d  |.;"Y";:.7.... ..|
00001f80  09 ce 05 3a 0d 09 d8 15  20 dd f2 63 6c 65 61 72  |...:.... ..clear|
00001f90  3a 2a 46 58 32 30 30 2c  31 0d 09 e2 0d 20 66 69  |:*FX200,1.... fi|
00001fa0  6c 65 24 3d 22 22 0d 09  ec 24 20 e3 41 25 3d 73  |le$=""...$ .A%=s|
00001fb0  74 61 72 74 61 20 b8 20  73 74 61 72 74 61 2b 34  |tarta . starta+4|
00001fc0  30 30 3a 3f 41 25 3d 30  3a ed 0d 09 f6 06 20 e1  |00:?A%=0:..... .|
00001fd0  0d 0a 00 05 3a 0d 0a 0a  0e 20 dd f2 70 72 65 63  |....:.... ..prec|
00001fe0  6f 72 64 0d 0a 14 3b 20  e7 66 6c 61 67 3d 30 ef  |ord...; .flag=0.|
00001ff0  32 36 3a f1 8a 31 34 2c  32 33 29 3b 72 65 63 6f  |26:..14,23);reco|
00002000  72 64 3b 22 20 20 20 22  3b 3a 8b f1 22 52 45 43  |rd;"   ";:.."REC|
00002010  4f 52 44 20 3a 20 22 3b  72 65 63 6f 72 64 0d 0a  |ORD : ";record..|
00002020  1e 0a 20 f2 62 6f 74 77  0d 0a 28 1c 20 f2 67 65  |.. .botw..(. .ge|
00002030  74 62 79 74 65 73 28 35  36 29 3a e7 48 3d 30 e5  |tbytes(56):.H=0.|
00002040  8d 74 56 4a 0d 0a 32 23  20 f4 20 22 81 50 72 69  |.tVJ..2# . ".Pri|
00002050  6e 74 20 6f 75 74 20 63  75 72 72 65 6e 74 20 72  |nt out current r|
00002060  65 63 6f 72 64 87 22 0d  0a 3c 17 20 f2 67 65 74  |ecord."..<. .get|
00002070  62 79 74 65 73 28 31 34  29 3a 41 25 3d 48 0d 0a  |bytes(14):A%=H..|
00002080  46 17 20 f2 67 65 74 62  79 74 65 73 28 35 32 29  |F. .getbytes(52)|
00002090  3a 42 25 3d 48 0d 0a 50  1a 20 41 25 3d 41 25 2b  |:B%=H..P. A%=A%+|
000020a0  28 42 25 2a 28 72 65 63  6f 72 64 2d 31 29 29 0d  |(B%*(record-1)).|
000020b0  0a 5a 2a 20 41 25 3d 41  25 2b 32 3a 42 25 3d 30  |.Z* A%=A%+2:B%=0|
000020c0  3a e3 43 25 3d 30 b8 31  36 3a e7 66 6c 61 67 3d  |:.C%=0.16:.flag=|
000020d0  31 f1 66 24 28 43 25 29  3b 0d 0a 64 29 20 46 25  |1.f$(C%);..d) F%|
000020e0  3d 73 74 61 72 74 61 2b  43 25 3a 47 25 3d 3f 28  |=starta+C%:G%=?(|
000020f0  46 25 2b 31 38 29 3a 49  25 3d 3f 28 46 25 2b 33  |F%+18):I%=?(F%+3|
00002100  35 29 0d 0a 6e 18 20 e7  28 3f 28 46 25 2b 33 35  |5)..n. .(?(F%+35|
00002110  29 29 3d 30 20 e5 8d 74  42 4a 0d 0a 78 3c 20 f1  |))=0 ..tBJ..x< .|
00002120  8a 47 25 2c 43 25 29 3b  3a e3 44 25 3d 47 25 20  |.G%,C%);:.D%=G% |
00002130  b8 20 28 28 49 25 2b 47  25 29 2d 31 29 3a f1 3b  |. ((I%+G%)-1):.;|
00002140  bd 28 3f 28 41 25 2b 42  25 29 29 3b 3a 42 25 3d  |.(?(A%+B%));:B%=|
00002150  42 25 2b 31 3a ed 0d 0a  82 0d 20 e7 66 6c 61 67  |B%+1:..... .flag|
00002160  3d 31 f1 0d 0a 8c 06 20  ed 0d 0a 96 06 20 e1 0d  |=1..... ..... ..|
00002170  0a a0 05 3a 0d 0a aa 0d  20 dd f2 70 66 69 65 6c  |...:.... ..pfiel|
00002180  64 0d 0a b4 1b 20 f2 62  6f 74 77 3a db 3a 41 25  |d.... .botw:.:A%|
00002190  3d 38 30 3a e3 42 25 3d  30 b8 31 36 0d 0a be 11  |=80:.B%=0.16....|
000021a0  20 43 25 3d 73 74 61 72  74 61 2b 41 25 0d 0a c8  | C%=starta+A%...|
000021b0  12 20 e7 20 3f 43 25 3d  37 20 e5 8d 64 5c 4a 0d  |. . ?C%=7 ..d\J.|
000021c0  0a d2 1b 20 f1 bd 28 3f  43 25 29 3b 3a 41 25 3d  |... ..(?C%);:A%=|
000021d0  41 25 2b 31 3a e5 8d 74  7e 4a 0d 0a dc 15 20 41  |A%+1:..t~J.... A|
000021e0  25 3d 41 25 2b 31 3a e7  42 25 3c 3e 31 36 f1 0d  |%=A%+1:.B%<>16..|
000021f0  0a e6 08 20 ed 3a e1 0d  0a f0 05 3a 0d 0a fa 46  |... .:.....:...F|
00002200  20 dd f2 67 66 6e 61 6d  65 3a f1 27 22 86 54 59  | ..gfname:.'".TY|
00002210  50 45 20 49 4e 20 46 49  4c 45 4e 41 4d 45 20 28  |PE IN FILENAME (|
00002220  6e 6f 74 20 74 6f 20 65  78 63 65 65 64 88 37 89  |not to exceed.7.|
00002230  22 27 22 86 63 68 61 72  61 63 74 65 72 73 2e 29  |"'".characters.)|
00002240  87 22 0d 0b 04 37 20 e8  66 69 6c 65 24 3a e7 20  |."...7 .file$:. |
00002250  a9 28 66 69 6c 65 24 29  3e 37 20 84 20 a9 28 66  |.(file$)>7 . .(f|
00002260  69 6c 65 24 29 3c 31 20  66 69 6c 65 24 3d 22 22  |ile$)<1 file$=""|
00002270  3a ef 37 3a e5 8d 54 44  4b 0d 0b 0e 06 20 e1 0d  |:.7:..TDK.... ..|
00002280  0b 18 05 3a 0d 0b 22 3e  20 dd f2 65 78 69 73 74  |...:.."> ..exist|
00002290  3a ef 37 3a f1 8a 39 2c  31 29 3b 22 86 88 46 49  |:.7:..9,1);"..FI|
000022a0  4c 45 20 45 58 49 53 54  53 89 2d 20 28 20 75 73  |LE EXISTS.- ( us|
000022b0  65 83 52 45 53 45 54 86  29 2e 22 3b 3a f2 73 70  |e.RESET.).";:.sp|
000022c0  3a e1 0d 0b 2c 05 3a 0d  0b 36 3a 20 dd f2 6e 65  |:...,.:..6: ..ne|
000022d0  78 69 73 74 3a ef 37 3a  f1 8a 31 33 2c 31 29 3b  |xist:.7:..13,1);|
000022e0  22 86 88 4e 4f 20 46 49  4c 45 89 2d 20 28 20 75  |"..NO FILE.- ( u|
000022f0  73 65 83 4e 45 57 86 29  2e 22 3b 3a f2 73 70 3a  |se.NEW.).";:.sp:|
00002300  e1 0d 0b 40 05 3a 0d 0b  4a 3e 20 dd f2 6e 72 65  |...@.:..J> ..nre|
00002310  63 6f 72 64 3a ef 37 3a  f1 8a 31 32 2c 31 29 3b  |cord:.7:..12,1);|
00002320  22 86 88 4e 4f 20 52 45  43 4f 52 44 53 89 2d 20  |"..NO RECORDS.- |
00002330  28 20 75 73 65 83 41 44  44 86 29 2e 22 3b 3a f2  |( use.ADD.).";:.|
00002340  73 70 3a e1 0d 0b 54 05  3a 0d 0b 5e 3a 20 dd f2  |sp:...T.:..^: ..|
00002350  67 65 74 62 79 74 65 73  28 47 29 3a 48 3d 28 28  |getbytes(G):H=((|
00002360  3f 28 73 74 61 72 74 61  2b 47 29 29 2b 28 3f 28  |?(starta+G))+(?(|
00002370  73 74 61 72 74 61 2b 47  2b 31 29 2a 32 35 35 29  |starta+G+1)*255)|
00002380  29 3a e1 0d 0b 68 05 3a  0d 0b 72 3c 20 dd f2 70  |):...h.:..r< ..p|
00002390  75 74 62 79 74 65 73 28  47 29 3a 3f 28 73 74 61  |utbytes(G):?(sta|
000023a0  72 74 61 2b 47 29 3d 48  20 83 32 35 35 3a 3f 28  |rta+G)=H .255:?(|
000023b0  73 74 61 72 74 61 2b 47  2b 31 29 3d 48 20 81 32  |starta+G+1)=H .2|
000023c0  35 35 3a e1 0d 0b 7c 05  3a 0d 0b 86 2d 20 dd f2  |55:...|.:...- ..|
000023d0  6f 73 63 6c 69 28 41 24  29 3a 24 26 41 30 30 3d  |oscli(A$):$&A00=|
000023e0  41 24 3a 58 25 3d 30 3a  59 25 3d 26 41 3a d6 26  |A$:X%=0:Y%=&A:.&|
000023f0  46 46 46 37 3a e1 0d 0b  90 05 3a 0d 0b 9a 10 20  |FFF7:.....:.... |
00002400  dd f2 69 6e 70 75 74 72  65 63 31 0d 0b a4 12 20  |..inputrec1.... |
00002410  f2 62 6f 74 77 3a f2 70  66 69 65 6c 64 0d 0b ae  |.botw:.pfield...|
00002420  6e 20 61 3d 31 38 3a e3  41 3d 30 b8 31 36 3a 66  |n a=18:.A=0.16:f|
00002430  24 28 41 29 3d 22 22 3a  6c 65 28 41 29 3d 28 3f  |$(A)="":le(A)=(?|
00002440  28 73 74 61 72 74 61 2b  28 61 2b 31 37 29 29 29  |(starta+(a+17)))|
00002450  3a 6c 65 6e 28 41 29 3d  28 3f 28 73 74 61 72 74  |:len(A)=(?(start|
00002460  61 2b 61 29 29 3a 61 3d  61 2b 31 3a ed 3a 66 3d  |a+a)):a=a+1:.:f=|
00002470  2d 31 3a f5 3a 66 3d 66  2b 31 3a fd 6c 65 28 66  |-1:.:f=f+1:.le(f|
00002480  29 3c 3e 30 20 84 20 66  3e 32 30 0d 0b b8 23 20  |)<>0 . f>20...# |
00002490  ef 33 31 2c 28 6c 65 6e  28 66 29 29 2c 66 3a f5  |.31,(len(f)),f:.|
000024a0  3a 41 3d a5 3a e7 41 3d  39 e5 8d 54 48 4c 0d 0b  |:A=.:.A=9..THL..|
000024b0  c2 1d 20 e7 41 3d 31 33  80 66 3d 31 36 66 3d 30  |.. .A=13.f=16f=0|
000024c0  8b e7 41 3d 31 33 66 3d  66 2b 31 0d 0b cc 14 20  |..A=13f=f+1.... |
000024d0  e7 20 6c 65 28 66 29 3d  30 20 e5 8d 64 42 4b 0d  |. le(f)=0 ..dBK.|
000024e0  0b d6 10 20 e7 41 3d 31  33 20 e5 8d 64 7e 4b 0d  |... .A=13 ..d~K.|
000024f0  0b e0 4e 20 e7 41 3d 31  32 37 80 20 a9 28 66 24  |..N .A=127. .(f$|
00002500  28 66 29 29 3c 3e 30 20  ef 31 32 37 3a 66 24 28  |(f))<>0 .127:f$(|
00002510  66 29 3d c0 66 24 28 66  29 2c 28 a9 28 66 24 28  |f)=.f$(f),(.(f$(|
00002520  66 29 29 2d 31 29 29 3a  e5 8d 64 7e 4b 20 8b 20  |f))-1)):..d~K . |
00002530  e7 20 41 3d 31 32 37 20  e5 8d 64 7e 4b 0d 0b ea  |. A=127 ..d~K...|
00002540  1b 20 e7 20 a9 28 66 24  28 66 29 29 3d 6c 65 28  |. . .(f$(f))=le(|
00002550  66 29 20 e5 8d 64 7e 4b  0d 0b f4 15 20 66 24 28  |f) ..d~K.... f$(|
00002560  66 29 3d 66 24 28 66 29  2b bd 28 41 29 0d 0b fe  |f)=f$(f)+.(A)...|
00002570  17 20 f1 8a 6c 65 6e 28  66 29 2c 66 29 3b 66 24  |. ..len(f),f);f$|
00002580  28 66 29 3b 0d 0c 08 0a  20 fd 20 41 3d 39 0d 0c  |(f);.... . A=9..|
00002590  12 06 20 e1 0d 0c 1c 05  3a 0d 0c 26 ea 20 dc 20  |.. .....:..&. . |
000025a0  41 64 64 2c 61 64 64 20  61 20 6e 65 77 20 72 65  |Add,add a new re|
000025b0  63 6f 72 64 2c 42 61 63  6b 2c 62 61 63 6b 73 74  |cord,Back,backst|
000025c0  65 70 20 74 68 72 6f 75  67 68 20 66 69 6c 65 2c  |ep through file,|
000025d0  44 65 6c 65 74 65 2c 64  65 6c 65 74 65 20 61 20  |Delete,delete a |
000025e0  72 65 63 6f 72 64 2c 45  64 69 74 2c 65 64 69 74  |record,Edit,edit|
000025f0  20 61 20 72 65 63 6f 72  64 2c 46 6f 72 77 61 72  | a record,Forwar|
00002600  64 2c 66 6f 72 77 61 72  64 73 74 65 70 20 74 68  |d,forwardstep th|
00002610  72 6f 75 67 68 20 66 69  6c 65 2c 48 65 6c 70 2c  |rough file,Help,|
00002620  64 65 74 61 69 6c 73 20  6f 66 20 63 6f 6d 6d 61  |details of comma|
00002630  6e 64 73 2c 4b 65 65 70  2c 73 61 76 65 20 74 68  |nds,Keep,save th|
00002640  65 20 66 69 6c 65 2c 4c  6f 61 64 2c 6c 6f 61 64  |e file,Load,load|
00002650  20 74 68 65 20 66 69 6c  65 2c 4e 65 77 2c 64 65  | the file,New,de|
00002660  66 69 6e 65 20 6e 65 77  20 66 69 6c 65 2c 4f 72  |fine new file,Or|
00002670  64 65 72 2c 72 65 2d 61  72 72 61 6e 67 65 20 66  |der,re-arrange f|
00002680  69 6c 65 0d 0c 30 6a 20  dc 20 2a 6f 73 2c 65 6e  |ile..0j . *os,en|
00002690  74 65 72 20 4f 53 20 63  6f 6d 6d 61 6e 64 2c 50  |ter OS command,P|
000026a0  72 69 6e 74 2c 73 65 6e  64 20 66 69 6c 65 20 74  |rint,send file t|
000026b0  6f 20 70 72 69 6e 74 65  72 2c 52 65 73 65 74 2c  |o printer,Reset,|
000026c0  72 65 73 65 74 20 44 41  54 41 20 42 41 53 45 2c  |reset DATA BASE,|
000026d0  53 65 61 72 63 68 2c 73  65 61 72 63 68 20 66 6f  |Search,search fo|
000026e0  72 20 61 20 72 65 63 6f  72 64 2c 20 2c 0d ff     |r a record, ,..|
000026ef