� > Database
1� Written & Designed by Richard Hull (c) 1989
�
(:
21� 128:intclock=�:� internal real time clock ?
<C� store% 1500,cb% 256,code% 25,var% 256,p$(600),lb$(50),lb%(50)
F�screen:�assemble:� � �err
P�:�twind(2):� 3,31,0,yp%,62
Z(� �("FN"+�exec(�input(&B2))):� 131:�
d:
nB� �screen:yp%=0:ch%=0:prime%=0:ovf%=0:tm%=0:ptr%=3:lf%=1:kf%=�
x>asc%=0:� �D|A:� k%=0 � 2:� x%,y%,a%,b%:�box(x%,y%,a%,b%):�
�1�twind(1):�"Database   v4.76    (inc. DPL/2)"
�C�'"Written and Designed by"'"Richard Hull (c) 1989":d%=�reset:�
�3� �twind(n%):� �tFA:� k%=1 � n%:� x%,y%,a%,b%:�
�� 28,x%,y%,a%,b%:�
�7� �box(x%,y%,a%,b%):� x%,y%:� a%,y%:� a%,b%:� x%,b%
�2� x%,y%:� x%+16,b%:� a%+16,b%:� 85,x%+16,b%-16
�>� 85,a%+16,b%-16:� a%+16,y%-16:� 85,a%,b%-16:� 85,a%,y%-16
��
�� �os($cb%):�call(&FFF7):�
�9� �input(n%):!cb%=cb%+&10:cb%?2=n%:cb%?3=32:cb%?4=127
�!A%=0:�call(&FFF1):=$(cb%+&10)
�:� �exec(text$):yp%=�:� text$="" � �text$,1)="\" :="cr"
�=$cb%=text$:c%=0:�:c%?cb%=c%?cb% � &20:c%=c%+1:� c%?cb%<33

%$cb%=�$cb%,�$cb%,"  ")-1):c%=c%+1

7� ?cb%=42 c%=1:�twind(3):�:�os(�str):="cr" � :=$cb%

1� �err:� 3:�os("fx21,3"):�twind(2):� 31,0,yp%

"+� �=29 � �=30 � '"No such command"; � �

,
�:yp%=�:�

6&� �filopen:� '"No file open":=�err

@� �err:yp%=�:fnd=�:=�

J.� �reset:� 2,1,27,1,64,1,27,1,81,1,76,3:=�

T4� �clear:� d%=store% � store%+1495 � 4:!d%=0:�:�

^E� �clock:A%=14:?cb%=1:�call(&FFF1):=�~(cb%?2)+�~(cb%?1)+�~(cb%?0)

h8� �wait(t):t=t*100:ti%=�:�:� ti%+t<=�:�os("fx21"):=�

r4� �call(addr%):X%=cb% �256:Y%=cb% �256:� addr%:�

|4� 0,1023,600,800,640,1023,1240,800,0,760,1240,20

�"� 1,5,36,1,41,5,76,1,1,30,76,9

�:

�� ## Options ##

�� �quit:d%=�close:=�

�� �cr:=�

�-� �cls:� n%=2 � 3:�twind(n%):�:�:yp%=0:=�

�'� �cat:�twind(3):�:�os("INFO *"):=�

�"� �calc:� ;� �str:yp%=yp%+1:=�

�7� �create:f$=�str:�twind(3):�:�"Creating file: ";f$

�5� '"No. of characters per record (Max 1400): ";:�

�*� �41,2)�(4)�41,2);:char%=�(�input(4))

�6� char%>0 � char%<=1400:char%=15+76*(char% � 76+1)

�5� '"No. of records in the file: ";:�:� �28,4)�(4)
2� �28,4);:len%=�(�input(4)):� len%>0:ch%=�(f$)
4� #ch%,char%:� �0,6)"Writing file: please wait."
B� #ch%=len%*char%+5:d%=�close:�twind(2):� 31,0,yp%:=�datestamp
&<� �datestamp:f$=�str:�wrt:�wrt_id_dt(f$,i$+"D",d$):=�err
0-� �wrt:� '"User id: ";:yp%=�:i$=�input(5)
:9� intclock d$=�clock:� ��"Date: ";:yp%=�:d$=�input(8)
Dd$=�d$,2)+�d$,4,2)+�d$,2):�
N9� �wrt_id_dt(f$,i$,d$):$(cb%+&12)=f$+�13:!cb%=cb%+&12
X@cb%!2=�("&"+i$):cb%!6=�("&"+d$):cb%!&E=3:A%=1:�call(&FFDD):�
b7� �rd_id_dt(f$):$(cb%+&12)=f$+�13:!cb%=cb%+&12:A%=5
l7�call(&FFDD):id$=�~cb%!2:dt$=�"000000"+�~cb%!6,6):�
v'� �open:d%=�close:f$=�str:ch%=�(f$)
� � ch%=0 � '"Not found":=�err
��wrt:�rd_id_dt(f$):yp%=�
�5� �id$,1)<>"D" �'"Not a Datafile":d%=�close:=�err
�/�twind(3):�:�"File ";f$;" last opened on ";
�$� �dt$,2)"/"�dt$,3,2)"/"�dt$,2);
�-�" by User ";�"00000"+�id$,�id$-1),5);"."
�9�wrt_id_dt(f$,i$+"D",d$):� #ch%,char%:len%=(� #ch%)-5
�*rec%=len%/char%:prime%=�prime(rec%):=�
�,� �close:�clear:prime%=0:ch%=0:� #ch%:=�
�.� �hash(t$):t$=�conv(t$):n%=0:� t%=1 � �t$
�4n%=n%+�(�t$,t%,1))*�(�t$,t%-1,1)):�:=n% � prime%
�5� �prime(t%):�:t%=t%-1:d%=1:�:d%=d%+1:� t% � d%=0
�� t%=d%:=t%
8� �read:� ovf%,g$,addr%:err%=�:� prime%=0 :=�filopen
1ovf%=-1:g$=�str:addr%=�hash(g$):�:ovf%=ovf%+1
@�grpr(addr%,char%,3):� �conv($store%)=�conv(g$) � $store%=""
 6� $store%="" � '"Record not found":yp%=�:err%=�:=�
*�twind(3):�:� kf% � ptr%
49�"Key field: ";$store%;�27);"Overflow: #";ovf%:� ptr%
>�:� print:� asc%<>0 �spool
H � n%=1 � lf%:� 1,13:�:� 3:=�
R"� �write:� prime%=0 :=�filopen
\n$=�str:� n$="" n$="1"
f� s%=1 � �(n$)
p=�twind(3):�:�"Key field: ";:g$=�input(14):addr%=�hash(g$)
zovf%=0:�:�grpr(addr%,15,3)
�8� �conv($store%)<>�conv(g$) � !store%<>0 ovf%=ovf%+1
�3� �conv($store%)=�conv(g$) � !store%=0 � � #ch%
�<� � #ch% �twind(2):� 31,0,yp%:� '"No room in file":=�err
�(� �27,0)"Overflow: #";ovf%�70,0);s%'
�3� tm% �28,1,31,76,9:�os("print "+tm$):�twind(3)
�/�editor(char%-15):�grpr(addr%,char%,1):�:=�
� � �erase:d%=�read:� err% :=�
�.�twind(2):� 31,0,yp%:� '"Are you sure ? ";
�-� �conv(�input(3))<>"yes" � '"Aborted":=�
�:� n%=0 � char%-1:n%?store%=0:�:�grpr(addr%,char%,1):=�
�� �edit:d%=�read:� err% :=�
�-�editor(char%-15):�grpr(addr%,char%,1):=�
�� �grpr(addr%,no%,wr%)
�4�gbpb(ch%,store%,no%,5+(addr%+ovf%)*char%,wr%):�
5� �gbpb(?cb%,cb%!1,cb%!5,cb%!9,A%):�call(&FFD1):�
:� �conv($cb%):� n%=0 � �($cb%)-1:n%?cb%=n%?cb% � &20:�

:=$cb%
$,� �char:A%=135:=(� &FFF4 � &FF00) � &100
.>� �editor(c%):depth%=2+c% � 76:�os("fx4,1"):�os("fx229,1")
8%� depth%<20 � �0,depth%)�76,"=");
B8x%=0:y%=2:� 31,0,2:�:g%=�:� g%>135 � g%<140 � g%-128
L"� �<2 � 10 � � �>depth%-1 � 11
V
� g%=13 �
`� g%=127 � 8,32,8
j� g%>31 � g%<127 � g%
t8� g%=27:�os("fx4"):�os("fx229"):$store%=g$+�13:n%=15
~&� 31,0,2:�:n%?store%=�char:n%=n%+1
�(� 9:� n%=char%:?(store%+char%)=&FF:�
�4� �template:tm$=�str:� �conv(tm$)="off" tm%=0:=�
�tm%=�(tm$):� #tm%
�.� tm%=0 � '"Template file not found":yp%=�
�:=�
�+� �build:tm$=�str:� prime%=0 :=�filopen
�5�twind(3):�:�"Building template file: ";tm$:g$=""
�(�editor(char%-15):tm%=�(tm$):n%=15:�
�6� #tm%,n%?store%:n%=n%+1:� n%?store%=&FF:� #tm%:=�
�3� �printer:ptr%=2:� �conv(�str)<>"on" ptr%=3:=�
�9� '"Print key ref. (y/n): ";:�:�os("fx21"):k%=� � &20
�:� k%=110 � k%=121:� k%:kf%=(k%=121):� ''"No. of LF: ";
1x%=�:y%=�:�:� �x%,y%)�32;�8;:lf%=�(�input(2))

� lf%>=0:=�err
:=�
� �search:se%=�
(� �extract:se%=�
2� prime%=0 :=�filopen
<�twind(3):�:f$=�str
F.�"Key references will be spooled to: ";f$'
P?�"String to be searched for: ";:target$=�conv(�input(14)):�
ZC�"Search concentrated on key reference or record data (k/r): ";
d:�:w%=� �&20:� w%=107 � w%=114:�w%:�se% � 28,1,30,76,15
n8ch2%=�(f$):�:� addr%=0 � rec%-1:�grpr(addr%,char%,3)
�"� w%=107 �krsearch � �rdsearch
�(�:� #ch2%:�:� '"Search complete.":=�
�V� �krsearch:� ��conv($store%),target$) � (target$="*" � !store%<>0) �krfound:� � �
�0� �krfound:�"Match found, Key ref.: "$store%
�� #ch2%,$store%:� se% �
�>�'"View record/Next match (v/n): ";:�:�os("fx21"):l%=��&20
�3� l%=110 � l%=118:� l%:� l%=118 �rdrec($store%)
��:�
�� �rdsearch:� !store%=0 �
�fnd%=�:n%=15:�
�2� (n%?store% � &20)=�(�target$,1)) fnd%=�match
�-n%=n%+1:� fnd% � n%=char%:� fnd% �krfound
��:�
�%� �match:f%=0:� o%=1 � �(target$)
I� (?(n%+store%+o%-1) � &20)=�(�target$,o%,1)) f%=f%+1 � o%=�(target$)
�:� f%=�(target$) :=� � :=�
!� �scan:� prime%=0 :=�filopen
"-�twind(3):�:f$=�str:ch2%=�(f$):�:�:err%=�
,=� #ch2%,key$:�"Key ref.: "key$;"   Skip or read (s/r): ";
63�:�os("fx21"):k%=� � &20:� k%=114 � k%=115:� k%
@� k%=114 �rdrec(key$)
J� � #ch2% � err%:� #ch2%:=�
T � �rdrec($(cb%+c%)):d%=�read
^;�48,0)"Press SPACE for next match";:�os("fx21"):d%=�:�
h%� �utility:f$=�str:f%=�(f$):� #f%
r,� f%=0 � '"Utility file not found":=�err
|8�'"Warning: All open files will"�(8)"now be closed."
�7� '"Press Return to continue";:�os("fx21"):�:� �=13
�)�os("key 0 CHAIN "+�34+f$+�34+"|L|M")
��os("fx138,0,128"):=�
�!� �ascii:ascfnam$=�str:asc%=0
�3� �conv(ascfnam$)="off":� '"Spooling off":=�err
�?asc%=�(ascfnam$):� #asc%:� '"Spooling records to: "ascfnam$
�
:=�err
�=� �spool:asc%=�(ascfnam$):�gbpb(asc%,store%,15,� #asc%,1)
�;� n%=15 � char% � 76:�gbpb(asc%,store%+n%,76,� #asc%,1)
�%� #asc%,13:�:$store%=�76,"=")+�13
�-�gbpb(asc%,store%,77,� #asc%,1):� #asc%:�
�� �list:f$=�str:ch2%=�(f$)
�:� ch2%=0 � #ch2%:� '"No such reference file":=�filopen
5�twind(3):� 12,ptr%:�"Listing key ref. file: "f$'
*n%=0:�:� #ch2%,key$:� �n% � 4*19)key$;
$n%=n%+1:� � #ch2%:� #ch2%:� 3:=�
&1� �display(i%,j%):�twind(3):t$=�str:�i%,j%);
0!� $(cb%+c%)="$" t$=�34+t$+�34
:'� �t$,�34)=1 �t$,2,�t$-2); � �t$;
D:=�
N%� �program:f$=�str:f%=�(f$):res=0
X2� f%=0 � '"Program file not found":� #f%:=�err
b'p%=0:�:p%=p%+1:p$(p%)="":�:k%=� #f%
l&� k%>31 � k%<127 p$(p%)=p$(p%)+�k%
v#� k%=13:� �p$(p%),1)="." �label
� � � #f%:� #f%:p%=0:�:p%=p%+1
�0� �("FN"+�exec(p$(p%))):yp%=0:�twind(2):�:=�
�4� �str:� �$(cb%+c%),1)="$" :=$var% � :=$(cb%+c%)
�!� �string:$var%=�$(cb%+c%):=�
�9� �label:lb%=lb%+1:lb$(lb%)=�conv(�p$(p%),�p$(p%)-1))
�lb%(lb%)=p%:p$(p%)="\":�
�(� �lbfnd(lb$):f%=�:co%=0:�:co%=co%+1
� � �conv(lb$)=lb$(co%) f%=co%
�� f% � co%=lb%:�
�� �jump:�lbfnd(�str)
�,� f%=� � '"Label not found: ";�str:=�err
�p%=lb%(f%):=�
�� �compare:c$=��str
� c$=$var% res=0
� c$>$var% res=+1
� c$<$var% res=-1
 :=0
* � �beq:� res=0 :=�jump � :=0
4!� �bne:� res<>0 :=�jump � :=0
>!� �bpl:� res=+1 :=�jump � :=0
H!� �bmi:� res=-1 :=�jump � :=0
R � �bnf:� fnd=� :=�jump � :=0
\ � �bfo:� fnd=� :=�jump � :=0
f5� �assemble:ptr=&70:st=store%+15:� pass=0 � 2 � 2
pAP%=code%:[OPT pass:.print LDA #st � 256:STA ptr:LDA #st � 256
zGSTA ptr+1:.pr2 LDY #0:.pl LDA (ptr),Y:BEQ stop:JSR &FFE3:INY:BNE pl
�%INC ptr+1:JMP pr2:.stop RTS:]:�:�
�

00000000  0d 00 0a 10 f4 20 3e 20  44 61 74 61 62 61 73 65  |..... > Database|
00000010  0d 00 14 31 f4 20 57 72  69 74 74 65 6e 20 26 20  |...1. Written & |
00000020  44 65 73 69 67 6e 65 64  20 62 79 20 52 69 63 68  |Designed by Rich|
00000030  61 72 64 20 48 75 6c 6c  20 28 63 29 20 31 39 38  |ard Hull (c) 198|
00000040  39 0d 00 1e 05 f4 0d 00  28 05 3a 0d 00 32 31 eb  |9.......(.:..21.|
00000050  20 31 32 38 3a 69 6e 74  63 6c 6f 63 6b 3d a3 3a  | 128:intclock=.:|
00000060  f4 20 69 6e 74 65 72 6e  61 6c 20 72 65 61 6c 20  |. internal real |
00000070  74 69 6d 65 20 63 6c 6f  63 6b 20 3f 0d 00 3c 43  |time clock ?..<C|
00000080  de 20 73 74 6f 72 65 25  20 31 35 30 30 2c 63 62  |. store% 1500,cb|
00000090  25 20 32 35 36 2c 63 6f  64 65 25 20 32 35 2c 76  |% 256,code% 25,v|
000000a0  61 72 25 20 32 35 36 2c  70 24 28 36 30 30 29 2c  |ar% 256,p$(600),|
000000b0  6c 62 24 28 35 30 29 2c  6c 62 25 28 35 30 29 0d  |lb$(50),lb%(50).|
000000c0  00 46 1e f2 73 63 72 65  65 6e 3a f2 61 73 73 65  |.F..screen:.asse|
000000d0  6d 62 6c 65 3a ee 20 85  20 f2 65 72 72 0d 00 50  |mble:. . .err..P|
000000e0  1f f5 3a f2 74 77 69 6e  64 28 32 29 3a ef 20 33  |..:.twind(2):. 3|
000000f0  2c 33 31 2c 30 2c 79 70  25 2c 36 32 0d 00 5a 28  |,31,0,yp%,62..Z(|
00000100  fd 20 a0 28 22 46 4e 22  2b a4 65 78 65 63 28 a4  |. .("FN"+.exec(.|
00000110  69 6e 70 75 74 28 26 42  32 29 29 29 3a eb 20 31  |input(&B2))):. 1|
00000120  33 31 3a e0 0d 00 64 05  3a 0d 00 6e 42 dd 20 f2  |31:...d.:..nB. .|
00000130  73 63 72 65 65 6e 3a 79  70 25 3d 30 3a 63 68 25  |screen:yp%=0:ch%|
00000140  3d 30 3a 70 72 69 6d 65  25 3d 30 3a 6f 76 66 25  |=0:prime%=0:ovf%|
00000150  3d 30 3a 74 6d 25 3d 30  3a 70 74 72 25 3d 33 3a  |=0:tm%=0:ptr%=3:|
00000160  6c 66 25 3d 31 3a 6b 66  25 3d a3 0d 00 78 3e 61  |lf%=1:kf%=...x>a|
00000170  73 63 25 3d 30 3a f7 20  8d 44 7c 41 3a e3 20 6b  |sc%=0:. .D|A:. k|
00000180  25 3d 30 20 b8 20 32 3a  f3 20 78 25 2c 79 25 2c  |%=0 . 2:. x%,y%,|
00000190  61 25 2c 62 25 3a f2 62  6f 78 28 78 25 2c 79 25  |a%,b%:.box(x%,y%|
000001a0  2c 61 25 2c 62 25 29 3a  ed 0d 00 82 31 f2 74 77  |,a%,b%):....1.tw|
000001b0  69 6e 64 28 31 29 3a f1  22 44 61 74 61 62 61 73  |ind(1):."Databas|
000001c0  65 20 20 20 76 34 2e 37  36 20 20 20 20 28 69 6e  |e   v4.76    (in|
000001d0  63 2e 20 44 50 4c 2f 32  29 22 0d 00 8c 43 f1 27  |c. DPL/2)"...C.'|
000001e0  22 57 72 69 74 74 65 6e  20 61 6e 64 20 44 65 73  |"Written and Des|
000001f0  69 67 6e 65 64 20 62 79  22 27 22 52 69 63 68 61  |igned by"'"Richa|
00000200  72 64 20 48 75 6c 6c 20  28 63 29 20 31 39 38 39  |rd Hull (c) 1989|
00000210  22 3a 64 25 3d a4 72 65  73 65 74 3a e1 0d 00 96  |":d%=.reset:....|
00000220  33 dd 20 f2 74 77 69 6e  64 28 6e 25 29 3a f7 20  |3. .twind(n%):. |
00000230  8d 74 46 41 3a e3 20 6b  25 3d 31 20 b8 20 6e 25  |.tFA:. k%=1 . n%|
00000240  3a f3 20 78 25 2c 79 25  2c 61 25 2c 62 25 3a ed  |:. x%,y%,a%,b%:.|
00000250  0d 00 a0 16 ef 20 32 38  2c 78 25 2c 79 25 2c 61  |..... 28,x%,y%,a|
00000260  25 2c 62 25 3a e1 0d 00  aa 37 dd 20 f2 62 6f 78  |%,b%:....7. .box|
00000270  28 78 25 2c 79 25 2c 61  25 2c 62 25 29 3a ec 20  |(x%,y%,a%,b%):. |
00000280  78 25 2c 79 25 3a df 20  61 25 2c 79 25 3a df 20  |x%,y%:. a%,y%:. |
00000290  61 25 2c 62 25 3a df 20  78 25 2c 62 25 0d 00 b4  |a%,b%:. x%,b%...|
000002a0  32 df 20 78 25 2c 79 25  3a ec 20 78 25 2b 31 36  |2. x%,y%:. x%+16|
000002b0  2c 62 25 3a ec 20 61 25  2b 31 36 2c 62 25 3a f0  |,b%:. a%+16,b%:.|
000002c0  20 38 35 2c 78 25 2b 31  36 2c 62 25 2d 31 36 0d  | 85,x%+16,b%-16.|
000002d0  00 be 3e f0 20 38 35 2c  61 25 2b 31 36 2c 62 25  |..>. 85,a%+16,b%|
000002e0  2d 31 36 3a ec 20 61 25  2b 31 36 2c 79 25 2d 31  |-16:. a%+16,y%-1|
000002f0  36 3a f0 20 38 35 2c 61  25 2c 62 25 2d 31 36 3a  |6:. 85,a%,b%-16:|
00000300  f0 20 38 35 2c 61 25 2c  79 25 2d 31 36 0d 00 c8  |. 85,a%,y%-16...|
00000310  05 e1 0d 00 d2 1e dd 20  f2 6f 73 28 24 63 62 25  |....... .os($cb%|
00000320  29 3a f2 63 61 6c 6c 28  26 46 46 46 37 29 3a e1  |):.call(&FFF7):.|
00000330  0d 00 dc 39 dd 20 a4 69  6e 70 75 74 28 6e 25 29  |...9. .input(n%)|
00000340  3a 21 63 62 25 3d 63 62  25 2b 26 31 30 3a 63 62  |:!cb%=cb%+&10:cb|
00000350  25 3f 32 3d 6e 25 3a 63  62 25 3f 33 3d 33 32 3a  |%?2=n%:cb%?3=32:|
00000360  63 62 25 3f 34 3d 31 32  37 0d 00 e6 21 41 25 3d  |cb%?4=127...!A%=|
00000370  30 3a f2 63 61 6c 6c 28  26 46 46 46 31 29 3a 3d  |0:.call(&FFF1):=|
00000380  24 28 63 62 25 2b 26 31  30 29 0d 00 f0 3a dd 20  |$(cb%+&10)...:. |
00000390  a4 65 78 65 63 28 74 65  78 74 24 29 3a 79 70 25  |.exec(text$):yp%|
000003a0  3d bc 3a e7 20 74 65 78  74 24 3d 22 22 20 84 20  |=.:. text$="" . |
000003b0  c0 74 65 78 74 24 2c 31  29 3d 22 5c 22 20 3a 3d  |.text$,1)="\" :=|
000003c0  22 63 72 22 0d 00 fa 3d  24 63 62 25 3d 74 65 78  |"cr"...=$cb%=tex|
000003d0  74 24 3a 63 25 3d 30 3a  f5 3a 63 25 3f 63 62 25  |t$:c%=0:.:c%?cb%|
000003e0  3d 63 25 3f 63 62 25 20  84 20 26 32 30 3a 63 25  |=c%?cb% . &20:c%|
000003f0  3d 63 25 2b 31 3a fd 20  63 25 3f 63 62 25 3c 33  |=c%+1:. c%?cb%<3|
00000400  33 0d 01 04 25 24 63 62  25 3d c0 24 63 62 25 2c  |3...%$cb%=.$cb%,|
00000410  a7 24 63 62 25 2c 22 20  20 22 29 2d 31 29 3a 63  |.$cb%,"  ")-1):c|
00000420  25 3d 63 25 2b 31 0d 01  0e 37 e7 20 3f 63 62 25  |%=c%+1...7. ?cb%|
00000430  3d 34 32 20 63 25 3d 31  3a f2 74 77 69 6e 64 28  |=42 c%=1:.twind(|
00000440  33 29 3a db 3a f2 6f 73  28 a4 73 74 72 29 3a 3d  |3):.:.os(.str):=|
00000450  22 63 72 22 20 8b 20 3a  3d 24 63 62 25 0d 01 18  |"cr" . :=$cb%...|
00000460  31 dd 20 f2 65 72 72 3a  ef 20 33 3a f2 6f 73 28  |1. .err:. 3:.os(|
00000470  22 66 78 32 31 2c 33 22  29 3a f2 74 77 69 6e 64  |"fx21,3"):.twind|
00000480  28 32 29 3a ef 20 33 31  2c 30 2c 79 70 25 0d 01  |(2):. 31,0,yp%..|
00000490  22 2b e7 20 9f 3d 32 39  20 84 20 9f 3d 33 30 20  |"+. .=29 . .=30 |
000004a0  f1 20 27 22 4e 6f 20 73  75 63 68 20 63 6f 6d 6d  |. '"No such comm|
000004b0  61 6e 64 22 3b 20 8b 20  f6 0d 01 2c 0d f1 3a 79  |and"; . ...,..:y|
000004c0  70 25 3d bc 3a e1 0d 01  36 26 dd 20 a4 66 69 6c  |p%=.:...6&. .fil|
000004d0  6f 70 65 6e 3a f1 20 27  22 4e 6f 20 66 69 6c 65  |open:. '"No file|
000004e0  20 6f 70 65 6e 22 3a 3d  a4 65 72 72 0d 01 40 19  | open":=.err..@.|
000004f0  dd 20 a4 65 72 72 3a 79  70 25 3d bc 3a 66 6e 64  |. .err:yp%=.:fnd|
00000500  3d b9 3a 3d a3 0d 01 4a  2e dd 20 a4 72 65 73 65  |=.:=...J.. .rese|
00000510  74 3a ef 20 32 2c 31 2c  32 37 2c 31 2c 36 34 2c  |t:. 2,1,27,1,64,|
00000520  31 2c 32 37 2c 31 2c 38  31 2c 31 2c 37 36 2c 33  |1,27,1,81,1,76,3|
00000530  3a 3d a3 0d 01 54 34 dd  20 f2 63 6c 65 61 72 3a  |:=...T4. .clear:|
00000540  e3 20 64 25 3d 73 74 6f  72 65 25 20 b8 20 73 74  |. d%=store% . st|
00000550  6f 72 65 25 2b 31 34 39  35 20 88 20 34 3a 21 64  |ore%+1495 . 4:!d|
00000560  25 3d 30 3a ed 3a e1 0d  01 5e 45 dd 20 a4 63 6c  |%=0:.:...^E. .cl|
00000570  6f 63 6b 3a 41 25 3d 31  34 3a 3f 63 62 25 3d 31  |ock:A%=14:?cb%=1|
00000580  3a f2 63 61 6c 6c 28 26  46 46 46 31 29 3a 3d c3  |:.call(&FFF1):=.|
00000590  7e 28 63 62 25 3f 32 29  2b c3 7e 28 63 62 25 3f  |~(cb%?2)+.~(cb%?|
000005a0  31 29 2b c3 7e 28 63 62  25 3f 30 29 0d 01 68 38  |1)+.~(cb%?0)..h8|
000005b0  dd 20 a4 77 61 69 74 28  74 29 3a 74 3d 74 2a 31  |. .wait(t):t=t*1|
000005c0  30 30 3a 74 69 25 3d 91  3a f5 3a fd 20 74 69 25  |00:ti%=.:.:. ti%|
000005d0  2b 74 3c 3d 91 3a f2 6f  73 28 22 66 78 32 31 22  |+t<=.:.os("fx21"|
000005e0  29 3a 3d a3 0d 01 72 34  dd 20 f2 63 61 6c 6c 28  |):=...r4. .call(|
000005f0  61 64 64 72 25 29 3a 58  25 3d 63 62 25 20 83 32  |addr%):X%=cb% .2|
00000600  35 36 3a 59 25 3d 63 62  25 20 81 32 35 36 3a d6  |56:Y%=cb% .256:.|
00000610  20 61 64 64 72 25 3a e1  0d 01 7c 34 dc 20 30 2c  | addr%:...|4. 0,|
00000620  31 30 32 33 2c 36 30 30  2c 38 30 30 2c 36 34 30  |1023,600,800,640|
00000630  2c 31 30 32 33 2c 31 32  34 30 2c 38 30 30 2c 30  |,1023,1240,800,0|
00000640  2c 37 36 30 2c 31 32 34  30 2c 32 30 0d 01 86 22  |,760,1240,20..."|
00000650  dc 20 31 2c 35 2c 33 36  2c 31 2c 34 31 2c 35 2c  |. 1,5,36,1,41,5,|
00000660  37 36 2c 31 2c 31 2c 33  30 2c 37 36 2c 39 0d 01  |76,1,1,30,76,9..|
00000670  90 05 3a 0d 01 9a 13 f4  20 23 23 20 4f 70 74 69  |..:..... ## Opti|
00000680  6f 6e 73 20 23 23 0d 01  a4 18 dd 20 a4 71 75 69  |ons ##..... .qui|
00000690  74 3a 64 25 3d a4 63 6c  6f 73 65 3a 3d b9 0d 01  |t:d%=.close:=...|
000006a0  ae 0c dd 20 a4 63 72 3a  3d a3 0d 01 b8 2d dd 20  |... .cr:=....-. |
000006b0  a4 63 6c 73 3a e3 20 6e  25 3d 32 20 b8 20 33 3a  |.cls:. n%=2 . 3:|
000006c0  f2 74 77 69 6e 64 28 6e  25 29 3a db 3a ed 3a 79  |.twind(n%):.:.:y|
000006d0  70 25 3d 30 3a 3d a3 0d  01 c2 27 dd 20 a4 63 61  |p%=0:=....'. .ca|
000006e0  74 3a f2 74 77 69 6e 64  28 33 29 3a db 3a f2 6f  |t:.twind(3):.:.o|
000006f0  73 28 22 49 4e 46 4f 20  2a 22 29 3a 3d a3 0d 01  |s("INFO *"):=...|
00000700  cc 22 dd 20 a4 63 61 6c  63 3a f1 20 3b a0 20 a4  |.". .calc:. ;. .|
00000710  73 74 72 3a 79 70 25 3d  79 70 25 2b 31 3a 3d a3  |str:yp%=yp%+1:=.|
00000720  0d 01 d6 37 dd 20 a4 63  72 65 61 74 65 3a 66 24  |...7. .create:f$|
00000730  3d a4 73 74 72 3a f2 74  77 69 6e 64 28 33 29 3a  |=.str:.twind(3):|
00000740  db 3a f1 22 43 72 65 61  74 69 6e 67 20 66 69 6c  |.:."Creating fil|
00000750  65 3a 20 22 3b 66 24 0d  01 e0 35 f1 20 27 22 4e  |e: ";f$...5. '"N|
00000760  6f 2e 20 6f 66 20 63 68  61 72 61 63 74 65 72 73  |o. of characters|
00000770  20 70 65 72 20 72 65 63  6f 72 64 20 28 4d 61 78  | per record (Max|
00000780  20 31 34 30 30 29 3a 20  22 3b 3a f5 0d 01 ea 2a  | 1400): ";:....*|
00000790  f1 20 8a 34 31 2c 32 29  89 28 34 29 8a 34 31 2c  |. .41,2).(4).41,|
000007a0  32 29 3b 3a 63 68 61 72  25 3d bb 28 a4 69 6e 70  |2);:char%=.(.inp|
000007b0  75 74 28 34 29 29 0d 01  f4 36 fd 20 63 68 61 72  |ut(4))...6. char|
000007c0  25 3e 30 20 80 20 63 68  61 72 25 3c 3d 31 34 30  |%>0 . char%<=140|
000007d0  30 3a 63 68 61 72 25 3d  31 35 2b 37 36 2a 28 63  |0:char%=15+76*(c|
000007e0  68 61 72 25 20 81 20 37  36 2b 31 29 0d 01 fe 35  |har% . 76+1)...5|
000007f0  f1 20 27 22 4e 6f 2e 20  6f 66 20 72 65 63 6f 72  |. '"No. of recor|
00000800  64 73 20 69 6e 20 74 68  65 20 66 69 6c 65 3a 20  |ds in the file: |
00000810  22 3b 3a f5 3a f1 20 8a  32 38 2c 34 29 89 28 34  |";:.:. .28,4).(4|
00000820  29 0d 02 08 32 f1 20 8a  32 38 2c 34 29 3b 3a 6c  |)...2. .28,4);:l|
00000830  65 6e 25 3d bb 28 a4 69  6e 70 75 74 28 34 29 29  |en%=.(.input(4))|
00000840  3a fd 20 6c 65 6e 25 3e  30 3a 63 68 25 3d ae 28  |:. len%>0:ch%=.(|
00000850  66 24 29 0d 02 12 34 f1  20 23 63 68 25 2c 63 68  |f$)...4. #ch%,ch|
00000860  61 72 25 3a f1 20 8a 30  2c 36 29 22 57 72 69 74  |ar%:. .0,6)"Writ|
00000870  69 6e 67 20 66 69 6c 65  3a 20 70 6c 65 61 73 65  |ing file: please|
00000880  20 77 61 69 74 2e 22 0d  02 1c 42 a2 20 23 63 68  | wait."...B. #ch|
00000890  25 3d 6c 65 6e 25 2a 63  68 61 72 25 2b 35 3a 64  |%=len%*char%+5:d|
000008a0  25 3d a4 63 6c 6f 73 65  3a f2 74 77 69 6e 64 28  |%=.close:.twind(|
000008b0  32 29 3a ef 20 33 31 2c  30 2c 79 70 25 3a 3d a4  |2):. 31,0,yp%:=.|
000008c0  64 61 74 65 73 74 61 6d  70 0d 02 26 3c dd 20 a4  |datestamp..&<. .|
000008d0  64 61 74 65 73 74 61 6d  70 3a 66 24 3d a4 73 74  |datestamp:f$=.st|
000008e0  72 3a f2 77 72 74 3a f2  77 72 74 5f 69 64 5f 64  |r:.wrt:.wrt_id_d|
000008f0  74 28 66 24 2c 69 24 2b  22 44 22 2c 64 24 29 3a  |t(f$,i$+"D",d$):|
00000900  3d a4 65 72 72 0d 02 30  2d dd 20 f2 77 72 74 3a  |=.err..0-. .wrt:|
00000910  f1 20 27 22 55 73 65 72  20 69 64 3a 20 22 3b 3a  |. '"User id: ";:|
00000920  79 70 25 3d bc 3a 69 24  3d a4 69 6e 70 75 74 28  |yp%=.:i$=.input(|
00000930  35 29 0d 02 3a 39 e7 20  69 6e 74 63 6c 6f 63 6b  |5)..:9. intclock|
00000940  20 64 24 3d a4 63 6c 6f  63 6b 3a e1 20 8b f1 22  | d$=.clock:. .."|
00000950  44 61 74 65 3a 20 22 3b  3a 79 70 25 3d bc 3a 64  |Date: ";:yp%=.:d|
00000960  24 3d a4 69 6e 70 75 74  28 38 29 0d 02 44 1f 64  |$=.input(8)..D.d|
00000970  24 3d c0 64 24 2c 32 29  2b c1 64 24 2c 34 2c 32  |$=.d$,2)+.d$,4,2|
00000980  29 2b c2 64 24 2c 32 29  3a e1 0d 02 4e 39 dd 20  |)+.d$,2):...N9. |
00000990  f2 77 72 74 5f 69 64 5f  64 74 28 66 24 2c 69 24  |.wrt_id_dt(f$,i$|
000009a0  2c 64 24 29 3a 24 28 63  62 25 2b 26 31 32 29 3d  |,d$):$(cb%+&12)=|
000009b0  66 24 2b bd 31 33 3a 21  63 62 25 3d 63 62 25 2b  |f$+.13:!cb%=cb%+|
000009c0  26 31 32 0d 02 58 40 63  62 25 21 32 3d a0 28 22  |&12..X@cb%!2=.("|
000009d0  26 22 2b 69 24 29 3a 63  62 25 21 36 3d a0 28 22  |&"+i$):cb%!6=.("|
000009e0  26 22 2b 64 24 29 3a 63  62 25 21 26 45 3d 33 3a  |&"+d$):cb%!&E=3:|
000009f0  41 25 3d 31 3a f2 63 61  6c 6c 28 26 46 46 44 44  |A%=1:.call(&FFDD|
00000a00  29 3a e1 0d 02 62 37 dd  20 f2 72 64 5f 69 64 5f  |):...b7. .rd_id_|
00000a10  64 74 28 66 24 29 3a 24  28 63 62 25 2b 26 31 32  |dt(f$):$(cb%+&12|
00000a20  29 3d 66 24 2b bd 31 33  3a 21 63 62 25 3d 63 62  |)=f$+.13:!cb%=cb|
00000a30  25 2b 26 31 32 3a 41 25  3d 35 0d 02 6c 37 f2 63  |%+&12:A%=5..l7.c|
00000a40  61 6c 6c 28 26 46 46 44  44 29 3a 69 64 24 3d c3  |all(&FFDD):id$=.|
00000a50  7e 63 62 25 21 32 3a 64  74 24 3d c2 22 30 30 30  |~cb%!2:dt$=."000|
00000a60  30 30 30 22 2b c3 7e 63  62 25 21 36 2c 36 29 3a  |000"+.~cb%!6,6):|
00000a70  e1 0d 02 76 27 dd 20 a4  6f 70 65 6e 3a 64 25 3d  |...v'. .open:d%=|
00000a80  a4 63 6c 6f 73 65 3a 66  24 3d a4 73 74 72 3a 63  |.close:f$=.str:c|
00000a90  68 25 3d ad 28 66 24 29  0d 02 80 20 e7 20 63 68  |h%=.(f$)... . ch|
00000aa0  25 3d 30 20 f1 20 27 22  4e 6f 74 20 66 6f 75 6e  |%=0 . '"Not foun|
00000ab0  64 22 3a 3d a4 65 72 72  0d 02 8a 1c f2 77 72 74  |d":=.err.....wrt|
00000ac0  3a f2 72 64 5f 69 64 5f  64 74 28 66 24 29 3a 79  |:.rd_id_dt(f$):y|
00000ad0  70 25 3d bc 0d 02 94 35  e7 20 c2 69 64 24 2c 31  |p%=....5. .id$,1|
00000ae0  29 3c 3e 22 44 22 20 f1  27 22 4e 6f 74 20 61 20  |)<>"D" .'"Not a |
00000af0  44 61 74 61 66 69 6c 65  22 3a 64 25 3d a4 63 6c  |Datafile":d%=.cl|
00000b00  6f 73 65 3a 3d a4 65 72  72 0d 02 9e 2f f2 74 77  |ose:=.err.../.tw|
00000b10  69 6e 64 28 33 29 3a db  3a f1 22 46 69 6c 65 20  |ind(3):.:."File |
00000b20  22 3b 66 24 3b 22 20 6c  61 73 74 20 6f 70 65 6e  |";f$;" last open|
00000b30  65 64 20 6f 6e 20 22 3b  0d 02 a8 24 f1 20 c0 64  |ed on ";...$. .d|
00000b40  74 24 2c 32 29 22 2f 22  c1 64 74 24 2c 33 2c 32  |t$,2)"/".dt$,3,2|
00000b50  29 22 2f 22 c2 64 74 24  2c 32 29 3b 0d 02 b2 2d  |)"/".dt$,2);...-|
00000b60  f1 22 20 62 79 20 55 73  65 72 20 22 3b c2 22 30  |." by User ";."0|
00000b70  30 30 30 30 22 2b c0 69  64 24 2c a9 69 64 24 2d  |0000"+.id$,.id$-|
00000b80  31 29 2c 35 29 3b 22 2e  22 0d 02 bc 39 f2 77 72  |1),5);"."...9.wr|
00000b90  74 5f 69 64 5f 64 74 28  66 24 2c 69 24 2b 22 44  |t_id_dt(f$,i$+"D|
00000ba0  22 2c 64 24 29 3a e8 20  23 63 68 25 2c 63 68 61  |",d$):. #ch%,cha|
00000bb0  72 25 3a 6c 65 6e 25 3d  28 a2 20 23 63 68 25 29  |r%:len%=(. #ch%)|
00000bc0  2d 35 0d 02 c6 2a 72 65  63 25 3d 6c 65 6e 25 2f  |-5...*rec%=len%/|
00000bd0  63 68 61 72 25 3a 70 72  69 6d 65 25 3d a4 70 72  |char%:prime%=.pr|
00000be0  69 6d 65 28 72 65 63 25  29 3a 3d a3 0d 02 d0 2c  |ime(rec%):=....,|
00000bf0  dd 20 a4 63 6c 6f 73 65  3a f2 63 6c 65 61 72 3a  |. .close:.clear:|
00000c00  70 72 69 6d 65 25 3d 30  3a 63 68 25 3d 30 3a d9  |prime%=0:ch%=0:.|
00000c10  20 23 63 68 25 3a 3d a3  0d 02 da 2e dd 20 a4 68  | #ch%:=...... .h|
00000c20  61 73 68 28 74 24 29 3a  74 24 3d a4 63 6f 6e 76  |ash(t$):t$=.conv|
00000c30  28 74 24 29 3a 6e 25 3d  30 3a e3 20 74 25 3d 31  |(t$):n%=0:. t%=1|
00000c40  20 b8 20 a9 74 24 0d 02  e4 34 6e 25 3d 6e 25 2b  | . .t$...4n%=n%+|
00000c50  97 28 c1 74 24 2c 74 25  2c 31 29 29 2a 97 28 c1  |.(.t$,t%,1))*.(.|
00000c60  74 24 2c 74 25 2d 31 2c  31 29 29 3a ed 3a 3d 6e  |t$,t%-1,1)):.:=n|
00000c70  25 20 83 20 70 72 69 6d  65 25 0d 02 ee 35 dd 20  |% . prime%...5. |
00000c80  a4 70 72 69 6d 65 28 74  25 29 3a f5 3a 74 25 3d  |.prime(t%):.:t%=|
00000c90  74 25 2d 31 3a 64 25 3d  31 3a f5 3a 64 25 3d 64  |t%-1:d%=1:.:d%=d|
00000ca0  25 2b 31 3a fd 20 74 25  20 83 20 64 25 3d 30 0d  |%+1:. t% . d%=0.|
00000cb0  02 f8 0f fd 20 74 25 3d  64 25 3a 3d 74 25 0d 03  |.... t%=d%:=t%..|
00000cc0  02 38 dd 20 a4 72 65 61  64 3a ea 20 6f 76 66 25  |.8. .read:. ovf%|
00000cd0  2c 67 24 2c 61 64 64 72  25 3a 65 72 72 25 3d a3  |,g$,addr%:err%=.|
00000ce0  3a e7 20 70 72 69 6d 65  25 3d 30 20 3a 3d a4 66  |:. prime%=0 :=.f|
00000cf0  69 6c 6f 70 65 6e 0d 03  0c 31 6f 76 66 25 3d 2d  |ilopen...1ovf%=-|
00000d00  31 3a 67 24 3d a4 73 74  72 3a 61 64 64 72 25 3d  |1:g$=.str:addr%=|
00000d10  a4 68 61 73 68 28 67 24  29 3a f5 3a 6f 76 66 25  |.hash(g$):.:ovf%|
00000d20  3d 6f 76 66 25 2b 31 0d  03 16 40 f2 67 72 70 72  |=ovf%+1...@.grpr|
00000d30  28 61 64 64 72 25 2c 63  68 61 72 25 2c 33 29 3a  |(addr%,char%,3):|
00000d40  fd 20 a4 63 6f 6e 76 28  24 73 74 6f 72 65 25 29  |. .conv($store%)|
00000d50  3d a4 63 6f 6e 76 28 67  24 29 20 84 20 24 73 74  |=.conv(g$) . $st|
00000d60  6f 72 65 25 3d 22 22 0d  03 20 36 e7 20 24 73 74  |ore%="".. 6. $st|
00000d70  6f 72 65 25 3d 22 22 20  f1 20 27 22 52 65 63 6f  |ore%="" . '"Reco|
00000d80  72 64 20 6e 6f 74 20 66  6f 75 6e 64 22 3a 79 70  |rd not found":yp|
00000d90  25 3d bc 3a 65 72 72 25  3d b9 3a 3d a3 0d 03 2a  |%=.:err%=.:=...*|
00000da0  1c f2 74 77 69 6e 64 28  33 29 3a db 3a e7 20 6b  |..twind(3):.:. k|
00000db0  66 25 20 ef 20 70 74 72  25 0d 03 34 39 f1 22 4b  |f% . ptr%..49."K|
00000dc0  65 79 20 66 69 65 6c 64  3a 20 22 3b 24 73 74 6f  |ey field: ";$sto|
00000dd0  72 65 25 3b 8a 32 37 29  3b 22 4f 76 65 72 66 6c  |re%;.27);"Overfl|
00000de0  6f 77 3a 20 23 22 3b 6f  76 66 25 3a ef 20 70 74  |ow: #";ovf%:. pt|
00000df0  72 25 0d 03 3e 1e f1 3a  d6 20 70 72 69 6e 74 3a  |r%..>..:. print:|
00000e00  e7 20 61 73 63 25 3c 3e  30 20 f2 73 70 6f 6f 6c  |. asc%<>0 .spool|
00000e10  0d 03 48 20 e3 20 6e 25  3d 31 20 b8 20 6c 66 25  |..H . n%=1 . lf%|
00000e20  3a ef 20 31 2c 31 33 3a  ed 3a ef 20 33 3a 3d a3  |:. 1,13:.:. 3:=.|
00000e30  0d 03 52 22 dd 20 a4 77  72 69 74 65 3a e7 20 70  |..R". .write:. p|
00000e40  72 69 6d 65 25 3d 30 20  3a 3d a4 66 69 6c 6f 70  |rime%=0 :=.filop|
00000e50  65 6e 0d 03 5c 1a 6e 24  3d a4 73 74 72 3a e7 20  |en..\.n$=.str:. |
00000e60  6e 24 3d 22 22 20 6e 24  3d 22 31 22 0d 03 66 12  |n$="" n$="1"..f.|
00000e70  e3 20 73 25 3d 31 20 b8  20 bb 28 6e 24 29 0d 03  |. s%=1 . .(n$)..|
00000e80  70 3d f2 74 77 69 6e 64  28 33 29 3a db 3a f1 22  |p=.twind(3):.:."|
00000e90  4b 65 79 20 66 69 65 6c  64 3a 20 22 3b 3a 67 24  |Key field: ";:g$|
00000ea0  3d a4 69 6e 70 75 74 28  31 34 29 3a 61 64 64 72  |=.input(14):addr|
00000eb0  25 3d a4 68 61 73 68 28  67 24 29 0d 03 7a 1e 6f  |%=.hash(g$)..z.o|
00000ec0  76 66 25 3d 30 3a f5 3a  f2 67 72 70 72 28 61 64  |vf%=0:.:.grpr(ad|
00000ed0  64 72 25 2c 31 35 2c 33  29 0d 03 84 38 e7 20 a4  |dr%,15,3)...8. .|
00000ee0  63 6f 6e 76 28 24 73 74  6f 72 65 25 29 3c 3e a4  |conv($store%)<>.|
00000ef0  63 6f 6e 76 28 67 24 29  20 80 20 21 73 74 6f 72  |conv(g$) . !stor|
00000f00  65 25 3c 3e 30 20 6f 76  66 25 3d 6f 76 66 25 2b  |e%<>0 ovf%=ovf%+|
00000f10  31 0d 03 8e 33 fd 20 a4  63 6f 6e 76 28 24 73 74  |1...3. .conv($st|
00000f20  6f 72 65 25 29 3d a4 63  6f 6e 76 28 67 24 29 20  |ore%)=.conv(g$) |
00000f30  84 20 21 73 74 6f 72 65  25 3d 30 20 84 20 c5 20  |. !store%=0 . . |
00000f40  23 63 68 25 0d 03 98 3c  e7 20 c5 20 23 63 68 25  |#ch%...<. . #ch%|
00000f50  20 f2 74 77 69 6e 64 28  32 29 3a ef 20 33 31 2c  | .twind(2):. 31,|
00000f60  30 2c 79 70 25 3a f1 20  27 22 4e 6f 20 72 6f 6f  |0,yp%:. '"No roo|
00000f70  6d 20 69 6e 20 66 69 6c  65 22 3a 3d a4 65 72 72  |m in file":=.err|
00000f80  0d 03 a2 28 f1 20 8a 32  37 2c 30 29 22 4f 76 65  |...(. .27,0)"Ove|
00000f90  72 66 6c 6f 77 3a 20 23  22 3b 6f 76 66 25 8a 37  |rflow: #";ovf%.7|
00000fa0  30 2c 30 29 3b 73 25 27  0d 03 a3 33 e7 20 74 6d  |0,0);s%'...3. tm|
00000fb0  25 20 ef 32 38 2c 31 2c  33 31 2c 37 36 2c 39 3a  |% .28,1,31,76,9:|
00000fc0  f2 6f 73 28 22 70 72 69  6e 74 20 22 2b 74 6d 24  |.os("print "+tm$|
00000fd0  29 3a f2 74 77 69 6e 64  28 33 29 0d 03 ac 2f f2  |):.twind(3).../.|
00000fe0  65 64 69 74 6f 72 28 63  68 61 72 25 2d 31 35 29  |editor(char%-15)|
00000ff0  3a f2 67 72 70 72 28 61  64 64 72 25 2c 63 68 61  |:.grpr(addr%,cha|
00001000  72 25 2c 31 29 3a ed 3a  3d a3 0d 03 b6 20 dd 20  |r%,1):.:=.... . |
00001010  a4 65 72 61 73 65 3a 64  25 3d a4 72 65 61 64 3a  |.erase:d%=.read:|
00001020  e7 20 65 72 72 25 20 3a  3d a3 0d 03 c0 2e f2 74  |. err% :=......t|
00001030  77 69 6e 64 28 32 29 3a  ef 20 33 31 2c 30 2c 79  |wind(2):. 31,0,y|
00001040  70 25 3a f1 20 27 22 41  72 65 20 79 6f 75 20 73  |p%:. '"Are you s|
00001050  75 72 65 20 3f 20 22 3b  0d 03 ca 2d e7 20 a4 63  |ure ? ";...-. .c|
00001060  6f 6e 76 28 a4 69 6e 70  75 74 28 33 29 29 3c 3e  |onv(.input(3))<>|
00001070  22 79 65 73 22 20 f1 20  27 22 41 62 6f 72 74 65  |"yes" . '"Aborte|
00001080  64 22 3a 3d a3 0d 03 d4  3a e3 20 6e 25 3d 30 20  |d":=....:. n%=0 |
00001090  b8 20 63 68 61 72 25 2d  31 3a 6e 25 3f 73 74 6f  |. char%-1:n%?sto|
000010a0  72 65 25 3d 30 3a ed 3a  f2 67 72 70 72 28 61 64  |re%=0:.:.grpr(ad|
000010b0  64 72 25 2c 63 68 61 72  25 2c 31 29 3a 3d a3 0d  |dr%,char%,1):=..|
000010c0  03 de 1f dd 20 a4 65 64  69 74 3a 64 25 3d a4 72  |.... .edit:d%=.r|
000010d0  65 61 64 3a e7 20 65 72  72 25 20 3a 3d a3 0d 03  |ead:. err% :=...|
000010e0  e8 2d f2 65 64 69 74 6f  72 28 63 68 61 72 25 2d  |.-.editor(char%-|
000010f0  31 35 29 3a f2 67 72 70  72 28 61 64 64 72 25 2c  |15):.grpr(addr%,|
00001100  63 68 61 72 25 2c 31 29  3a 3d a3 0d 03 f2 1a dd  |char%,1):=......|
00001110  20 f2 67 72 70 72 28 61  64 64 72 25 2c 6e 6f 25  | .grpr(addr%,no%|
00001120  2c 77 72 25 29 0d 03 fc  34 f2 67 62 70 62 28 63  |,wr%)...4.gbpb(c|
00001130  68 25 2c 73 74 6f 72 65  25 2c 6e 6f 25 2c 35 2b  |h%,store%,no%,5+|
00001140  28 61 64 64 72 25 2b 6f  76 66 25 29 2a 63 68 61  |(addr%+ovf%)*cha|
00001150  72 25 2c 77 72 25 29 3a  e1 0d 04 06 35 dd 20 f2  |r%,wr%):....5. .|
00001160  67 62 70 62 28 3f 63 62  25 2c 63 62 25 21 31 2c  |gbpb(?cb%,cb%!1,|
00001170  63 62 25 21 35 2c 63 62  25 21 39 2c 41 25 29 3a  |cb%!5,cb%!9,A%):|
00001180  f2 63 61 6c 6c 28 26 46  46 44 31 29 3a e1 0d 04  |.call(&FFD1):...|
00001190  10 3a dd 20 a4 63 6f 6e  76 28 24 63 62 25 29 3a  |.:. .conv($cb%):|
000011a0  e3 20 6e 25 3d 30 20 b8  20 a9 28 24 63 62 25 29  |. n%=0 . .($cb%)|
000011b0  2d 31 3a 6e 25 3f 63 62  25 3d 6e 25 3f 63 62 25  |-1:n%?cb%=n%?cb%|
000011c0  20 84 20 26 32 30 3a ed  0d 04 1a 0a 3a 3d 24 63  | . &20:.....:=$c|
000011d0  62 25 0d 04 24 2c dd 20  a4 63 68 61 72 3a 41 25  |b%..$,. .char:A%|
000011e0  3d 31 33 35 3a 3d 28 ba  20 26 46 46 46 34 20 80  |=135:=(. &FFF4 .|
000011f0  20 26 46 46 30 30 29 20  81 20 26 31 30 30 0d 04  | &FF00) . &100..|
00001200  2e 3e dd 20 f2 65 64 69  74 6f 72 28 63 25 29 3a  |.>. .editor(c%):|
00001210  64 65 70 74 68 25 3d 32  2b 63 25 20 81 20 37 36  |depth%=2+c% . 76|
00001220  3a f2 6f 73 28 22 66 78  34 2c 31 22 29 3a f2 6f  |:.os("fx4,1"):.o|
00001230  73 28 22 66 78 32 32 39  2c 31 22 29 0d 04 38 25  |s("fx229,1")..8%|
00001240  e7 20 64 65 70 74 68 25  3c 32 30 20 f1 20 8a 30  |. depth%<20 . .0|
00001250  2c 64 65 70 74 68 25 29  c4 37 36 2c 22 3d 22 29  |,depth%).76,"=")|
00001260  3b 0d 04 42 38 78 25 3d  30 3a 79 25 3d 32 3a ef  |;..B8x%=0:y%=2:.|
00001270  20 33 31 2c 30 2c 32 3a  f5 3a 67 25 3d a5 3a e7  | 31,0,2:.:g%=.:.|
00001280  20 67 25 3e 31 33 35 20  80 20 67 25 3c 31 34 30  | g%>135 . g%<140|
00001290  20 ef 20 67 25 2d 31 32  38 0d 04 4c 22 e7 20 bc  | . g%-128..L". .|
000012a0  3c 32 20 ef 20 31 30 20  8b 20 e7 20 bc 3e 64 65  |<2 . 10 . . .>de|
000012b0  70 74 68 25 2d 31 20 ef  20 31 31 0d 04 56 0d e7  |pth%-1 . 11..V..|
000012c0  20 67 25 3d 31 33 20 f1  0d 04 60 15 e7 20 67 25  | g%=13 ...`.. g%|
000012d0  3d 31 32 37 20 ef 20 38  2c 33 32 2c 38 0d 04 6a  |=127 . 8,32,8..j|
000012e0  19 e7 20 67 25 3e 33 31  20 80 20 67 25 3c 31 32  |.. g%>31 . g%<12|
000012f0  37 20 ef 20 67 25 0d 04  74 38 fd 20 67 25 3d 32  |7 . g%..t8. g%=2|
00001300  37 3a f2 6f 73 28 22 66  78 34 22 29 3a f2 6f 73  |7:.os("fx4"):.os|
00001310  28 22 66 78 32 32 39 22  29 3a 24 73 74 6f 72 65  |("fx229"):$store|
00001320  25 3d 67 24 2b bd 31 33  3a 6e 25 3d 31 35 0d 04  |%=g$+.13:n%=15..|
00001330  7e 26 ef 20 33 31 2c 30  2c 32 3a f5 3a 6e 25 3f  |~&. 31,0,2:.:n%?|
00001340  73 74 6f 72 65 25 3d a4  63 68 61 72 3a 6e 25 3d  |store%=.char:n%=|
00001350  6e 25 2b 31 0d 04 88 28  ef 20 39 3a fd 20 6e 25  |n%+1...(. 9:. n%|
00001360  3d 63 68 61 72 25 3a 3f  28 73 74 6f 72 65 25 2b  |=char%:?(store%+|
00001370  63 68 61 72 25 29 3d 26  46 46 3a e1 0d 04 92 34  |char%)=&FF:....4|
00001380  dd 20 a4 74 65 6d 70 6c  61 74 65 3a 74 6d 24 3d  |. .template:tm$=|
00001390  a4 73 74 72 3a e7 20 a4  63 6f 6e 76 28 74 6d 24  |.str:. .conv(tm$|
000013a0  29 3d 22 6f 66 66 22 20  74 6d 25 3d 30 3a 3d a3  |)="off" tm%=0:=.|
000013b0  0d 04 9c 15 74 6d 25 3d  8e 28 74 6d 24 29 3a d9  |....tm%=.(tm$):.|
000013c0  20 23 74 6d 25 0d 04 a6  2e e7 20 74 6d 25 3d 30  | #tm%..... tm%=0|
000013d0  20 f1 20 27 22 54 65 6d  70 6c 61 74 65 20 66 69  | . '"Template fi|
000013e0  6c 65 20 6e 6f 74 20 66  6f 75 6e 64 22 3a 79 70  |le not found":yp|
000013f0  25 3d bc 0d 04 b0 07 3a  3d a3 0d 04 ba 2b dd 20  |%=.....:=....+. |
00001400  a4 62 75 69 6c 64 3a 74  6d 24 3d a4 73 74 72 3a  |.build:tm$=.str:|
00001410  e7 20 70 72 69 6d 65 25  3d 30 20 3a 3d a4 66 69  |. prime%=0 :=.fi|
00001420  6c 6f 70 65 6e 0d 04 c4  35 f2 74 77 69 6e 64 28  |lopen...5.twind(|
00001430  33 29 3a db 3a f1 22 42  75 69 6c 64 69 6e 67 20  |3):.:."Building |
00001440  74 65 6d 70 6c 61 74 65  20 66 69 6c 65 3a 20 22  |template file: "|
00001450  3b 74 6d 24 3a 67 24 3d  22 22 0d 04 ce 28 f2 65  |;tm$:g$=""...(.e|
00001460  64 69 74 6f 72 28 63 68  61 72 25 2d 31 35 29 3a  |ditor(char%-15):|
00001470  74 6d 25 3d ae 28 74 6d  24 29 3a 6e 25 3d 31 35  |tm%=.(tm$):n%=15|
00001480  3a f5 0d 04 d8 36 d5 20  23 74 6d 25 2c 6e 25 3f  |:....6. #tm%,n%?|
00001490  73 74 6f 72 65 25 3a 6e  25 3d 6e 25 2b 31 3a fd  |store%:n%=n%+1:.|
000014a0  20 6e 25 3f 73 74 6f 72  65 25 3d 26 46 46 3a d9  | n%?store%=&FF:.|
000014b0  20 23 74 6d 25 3a 3d a3  0d 04 e2 33 dd 20 a4 70  | #tm%:=....3. .p|
000014c0  72 69 6e 74 65 72 3a 70  74 72 25 3d 32 3a e7 20  |rinter:ptr%=2:. |
000014d0  a4 63 6f 6e 76 28 a4 73  74 72 29 3c 3e 22 6f 6e  |.conv(.str)<>"on|
000014e0  22 20 70 74 72 25 3d 33  3a 3d a3 0d 04 ec 39 f1  |" ptr%=3:=....9.|
000014f0  20 27 22 50 72 69 6e 74  20 6b 65 79 20 72 65 66  | '"Print key ref|
00001500  2e 20 28 79 2f 6e 29 3a  20 22 3b 3a f5 3a f2 6f  |. (y/n): ";:.:.o|
00001510  73 28 22 66 78 32 31 22  29 3a 6b 25 3d a5 20 84  |s("fx21"):k%=. .|
00001520  20 26 32 30 0d 04 f6 3a  fd 20 6b 25 3d 31 31 30  | &20...:. k%=110|
00001530  20 84 20 6b 25 3d 31 32  31 3a ef 20 6b 25 3a 6b  | . k%=121:. k%:k|
00001540  66 25 3d 28 6b 25 3d 31  32 31 29 3a f1 20 27 27  |f%=(k%=121):. ''|
00001550  22 4e 6f 2e 20 6f 66 20  4c 46 3a 20 22 3b 0d 05  |"No. of LF: ";..|
00001560  00 31 78 25 3d b1 3a 79  25 3d bc 3a f5 3a f1 20  |.1x%=.:y%=.:.:. |
00001570  8a 78 25 2c 79 25 29 bd  33 32 3b bd 38 3b 3a 6c  |.x%,y%).32;.8;:l|
00001580  66 25 3d bb 28 a4 69 6e  70 75 74 28 32 29 29 0d  |f%=.(.input(2)).|
00001590  05 0a 12 fd 20 6c 66 25  3e 3d 30 3a 3d a4 65 72  |.... lf%>=0:=.er|
000015a0  72 0d 05 14 07 3a 3d a3  0d 05 1e 13 dd 20 a4 73  |r....:=...... .s|
000015b0  65 61 72 63 68 3a 73 65  25 3d a3 0d 05 28 14 dd  |earch:se%=...(..|
000015c0  20 a4 65 78 74 72 61 63  74 3a 73 65 25 3d b9 0d  | .extract:se%=..|
000015d0  05 32 19 e7 20 70 72 69  6d 65 25 3d 30 20 3a 3d  |.2.. prime%=0 :=|
000015e0  a4 66 69 6c 6f 70 65 6e  0d 05 3c 17 f2 74 77 69  |.filopen..<..twi|
000015f0  6e 64 28 33 29 3a db 3a  66 24 3d a4 73 74 72 0d  |nd(3):.:f$=.str.|
00001600  05 46 2e f1 22 4b 65 79  20 72 65 66 65 72 65 6e  |.F.."Key referen|
00001610  63 65 73 20 77 69 6c 6c  20 62 65 20 73 70 6f 6f  |ces will be spoo|
00001620  6c 65 64 20 74 6f 3a 20  22 3b 66 24 27 0d 05 50  |led to: ";f$'..P|
00001630  3f f1 22 53 74 72 69 6e  67 20 74 6f 20 62 65 20  |?."String to be |
00001640  73 65 61 72 63 68 65 64  20 66 6f 72 3a 20 22 3b  |searched for: ";|
00001650  3a 74 61 72 67 65 74 24  3d a4 63 6f 6e 76 28 a4  |:target$=.conv(.|
00001660  69 6e 70 75 74 28 31 34  29 29 3a f1 0d 05 5a 43  |input(14)):...ZC|
00001670  f1 22 53 65 61 72 63 68  20 63 6f 6e 63 65 6e 74  |."Search concent|
00001680  72 61 74 65 64 20 6f 6e  20 6b 65 79 20 72 65 66  |rated on key ref|
00001690  65 72 65 6e 63 65 20 6f  72 20 72 65 63 6f 72 64  |erence or record|
000016a0  20 64 61 74 61 20 28 6b  2f 72 29 3a 20 22 3b 0d  | data (k/r): ";.|
000016b0  05 64 3a f5 3a 77 25 3d  a5 20 84 26 32 30 3a fd  |.d:.:w%=. .&20:.|
000016c0  20 77 25 3d 31 30 37 20  84 20 77 25 3d 31 31 34  | w%=107 . w%=114|
000016d0  3a ef 77 25 3a e7 73 65  25 20 ef 20 32 38 2c 31  |:.w%:.se% . 28,1|
000016e0  2c 33 30 2c 37 36 2c 31  35 0d 05 6e 38 63 68 32  |,30,76,15..n8ch2|
000016f0  25 3d ae 28 66 24 29 3a  db 3a e3 20 61 64 64 72  |%=.(f$):.:. addr|
00001700  25 3d 30 20 b8 20 72 65  63 25 2d 31 3a f2 67 72  |%=0 . rec%-1:.gr|
00001710  70 72 28 61 64 64 72 25  2c 63 68 61 72 25 2c 33  |pr(addr%,char%,3|
00001720  29 0d 05 82 22 e7 20 77  25 3d 31 30 37 20 f2 6b  |)...". w%=107 .k|
00001730  72 73 65 61 72 63 68 20  8b 20 f2 72 64 73 65 61  |rsearch . .rdsea|
00001740  72 63 68 0d 05 8c 28 ed  3a d9 20 23 63 68 32 25  |rch...(.:. #ch2%|
00001750  3a db 3a f1 20 27 22 53  65 61 72 63 68 20 63 6f  |:.:. '"Search co|
00001760  6d 70 6c 65 74 65 2e 22  3a 3d a3 0d 05 96 56 dd  |mplete.":=....V.|
00001770  20 f2 6b 72 73 65 61 72  63 68 3a e7 20 a7 a4 63  | .krsearch:. ..c|
00001780  6f 6e 76 28 24 73 74 6f  72 65 25 29 2c 74 61 72  |onv($store%),tar|
00001790  67 65 74 24 29 20 84 20  28 74 61 72 67 65 74 24  |get$) . (target$|
000017a0  3d 22 2a 22 20 80 20 21  73 74 6f 72 65 25 3c 3e  |="*" . !store%<>|
000017b0  30 29 20 f2 6b 72 66 6f  75 6e 64 3a e1 20 8b 20  |0) .krfound:. . |
000017c0  e1 0d 05 a0 30 dd 20 f2  6b 72 66 6f 75 6e 64 3a  |....0. .krfound:|
000017d0  f1 22 4d 61 74 63 68 20  66 6f 75 6e 64 2c 20 4b  |."Match found, K|
000017e0  65 79 20 72 65 66 2e 3a  20 22 24 73 74 6f 72 65  |ey ref.: "$store|
000017f0  25 0d 05 a1 1b f1 20 23  63 68 32 25 2c 24 73 74  |%..... #ch2%,$st|
00001800  6f 72 65 25 3a e7 20 73  65 25 20 e1 0d 05 aa 3e  |ore%:. se% ....>|
00001810  f1 27 22 56 69 65 77 20  72 65 63 6f 72 64 2f 4e  |.'"View record/N|
00001820  65 78 74 20 6d 61 74 63  68 20 28 76 2f 6e 29 3a  |ext match (v/n):|
00001830  20 22 3b 3a f5 3a f2 6f  73 28 22 66 78 32 31 22  | ";:.:.os("fx21"|
00001840  29 3a 6c 25 3d a5 84 26  32 30 0d 05 b4 33 fd 20  |):l%=..&20...3. |
00001850  6c 25 3d 31 31 30 20 84  20 6c 25 3d 31 31 38 3a  |l%=110 . l%=118:|
00001860  ef 20 6c 25 3a e7 20 6c  25 3d 31 31 38 20 f2 72  |. l%:. l%=118 .r|
00001870  64 72 65 63 28 24 73 74  6f 72 65 25 29 0d 05 be  |drec($store%)...|
00001880  07 db 3a e1 0d 05 c8 1d  dd 20 f2 72 64 73 65 61  |..:...... .rdsea|
00001890  72 63 68 3a e7 20 21 73  74 6f 72 65 25 3d 30 20  |rch:. !store%=0 |
000018a0  e1 0d 05 d2 12 66 6e 64  25 3d a3 3a 6e 25 3d 31  |.....fnd%=.:n%=1|
000018b0  35 3a f5 0d 05 dc 32 e7  20 28 6e 25 3f 73 74 6f  |5:....2. (n%?sto|
000018c0  72 65 25 20 84 20 26 32  30 29 3d 97 28 c0 74 61  |re% . &20)=.(.ta|
000018d0  72 67 65 74 24 2c 31 29  29 20 66 6e 64 25 3d a4  |rget$,1)) fnd%=.|
000018e0  6d 61 74 63 68 0d 05 e6  2d 6e 25 3d 6e 25 2b 31  |match...-n%=n%+1|
000018f0  3a fd 20 66 6e 64 25 20  84 20 6e 25 3d 63 68 61  |:. fnd% . n%=cha|
00001900  72 25 3a e7 20 66 6e 64  25 20 f2 6b 72 66 6f 75  |r%:. fnd% .krfou|
00001910  6e 64 0d 05 f0 07 ed 3a  e1 0d 05 fa 25 dd 20 a4  |nd.....:....%. .|
00001920  6d 61 74 63 68 3a 66 25  3d 30 3a e3 20 6f 25 3d  |match:f%=0:. o%=|
00001930  31 20 b8 20 a9 28 74 61  72 67 65 74 24 29 0d 06  |1 . .(target$)..|
00001940  04 49 e7 20 28 3f 28 6e  25 2b 73 74 6f 72 65 25  |.I. (?(n%+store%|
00001950  2b 6f 25 2d 31 29 20 84  20 26 32 30 29 3d 97 28  |+o%-1) . &20)=.(|
00001960  c1 74 61 72 67 65 74 24  2c 6f 25 2c 31 29 29 20  |.target$,o%,1)) |
00001970  66 25 3d 66 25 2b 31 20  8b 20 6f 25 3d a9 28 74  |f%=f%+1 . o%=.(t|
00001980  61 72 67 65 74 24 29 0d  06 0e 1f ed 3a e7 20 66  |arget$).....:. f|
00001990  25 3d a9 28 74 61 72 67  65 74 24 29 20 3a 3d b9  |%=.(target$) :=.|
000019a0  20 8b 20 3a 3d a3 0d 06  18 21 dd 20 a4 73 63 61  | . :=....!. .sca|
000019b0  6e 3a e7 20 70 72 69 6d  65 25 3d 30 20 3a 3d a4  |n:. prime%=0 :=.|
000019c0  66 69 6c 6f 70 65 6e 0d  06 22 2d f2 74 77 69 6e  |filopen.."-.twin|
000019d0  64 28 33 29 3a db 3a 66  24 3d a4 73 74 72 3a 63  |d(3):.:f$=.str:c|
000019e0  68 32 25 3d 8e 28 66 24  29 3a f5 3a db 3a 65 72  |h2%=.(f$):.:.:er|
000019f0  72 25 3d a3 0d 06 2c 3d  e8 20 23 63 68 32 25 2c  |r%=...,=. #ch2%,|
00001a00  6b 65 79 24 3a f1 22 4b  65 79 20 72 65 66 2e 3a  |key$:."Key ref.:|
00001a10  20 22 6b 65 79 24 3b 22  20 20 20 53 6b 69 70 20  | "key$;"   Skip |
00001a20  6f 72 20 72 65 61 64 20  28 73 2f 72 29 3a 20 22  |or read (s/r): "|
00001a30  3b 0d 06 36 33 f5 3a f2  6f 73 28 22 66 78 32 31  |;..63.:.os("fx21|
00001a40  22 29 3a 6b 25 3d a5 20  84 20 26 32 30 3a fd 20  |"):k%=. . &20:. |
00001a50  6b 25 3d 31 31 34 20 84  20 6b 25 3d 31 31 35 3a  |k%=114 . k%=115:|
00001a60  ef 20 6b 25 0d 06 40 19  e7 20 6b 25 3d 31 31 34  |. k%..@.. k%=114|
00001a70  20 f2 72 64 72 65 63 28  6b 65 79 24 29 0d 06 4a  | .rdrec(key$)..J|
00001a80  1f fd 20 c5 20 23 63 68  32 25 20 84 20 65 72 72  |.. . #ch2% . err|
00001a90  25 3a d9 20 23 63 68 32  25 3a 3d a3 0d 06 54 20  |%:. #ch2%:=...T |
00001aa0  dd 20 f2 72 64 72 65 63  28 24 28 63 62 25 2b 63  |. .rdrec($(cb%+c|
00001ab0  25 29 29 3a 64 25 3d a4  72 65 61 64 0d 06 5e 3b  |%)):d%=.read..^;|
00001ac0  f1 8a 34 38 2c 30 29 22  50 72 65 73 73 20 53 50  |..48,0)"Press SP|
00001ad0  41 43 45 20 66 6f 72 20  6e 65 78 74 20 6d 61 74  |ACE for next mat|
00001ae0  63 68 22 3b 3a f2 6f 73  28 22 66 78 32 31 22 29  |ch";:.os("fx21")|
00001af0  3a 64 25 3d a5 3a e1 0d  06 68 25 dd 20 a4 75 74  |:d%=.:...h%. .ut|
00001b00  69 6c 69 74 79 3a 66 24  3d a4 73 74 72 3a 66 25  |ility:f$=.str:f%|
00001b10  3d 8e 28 66 24 29 3a d9  20 23 66 25 0d 06 72 2c  |=.(f$):. #f%..r,|
00001b20  e7 20 66 25 3d 30 20 f1  20 27 22 55 74 69 6c 69  |. f%=0 . '"Utili|
00001b30  74 79 20 66 69 6c 65 20  6e 6f 74 20 66 6f 75 6e  |ty file not foun|
00001b40  64 22 3a 3d a4 65 72 72  0d 06 7c 38 f1 27 22 57  |d":=.err..|8.'"W|
00001b50  61 72 6e 69 6e 67 3a 20  41 6c 6c 20 6f 70 65 6e  |arning: All open|
00001b60  20 66 69 6c 65 73 20 77  69 6c 6c 22 89 28 38 29  | files will".(8)|
00001b70  22 6e 6f 77 20 62 65 20  63 6c 6f 73 65 64 2e 22  |"now be closed."|
00001b80  0d 06 86 37 f1 20 27 22  50 72 65 73 73 20 52 65  |...7. '"Press Re|
00001b90  74 75 72 6e 20 74 6f 20  63 6f 6e 74 69 6e 75 65  |turn to continue|
00001ba0  22 3b 3a f2 6f 73 28 22  66 78 32 31 22 29 3a f5  |";:.os("fx21"):.|
00001bb0  3a fd 20 a5 3d 31 33 0d  06 90 29 f2 6f 73 28 22  |:. .=13...).os("|
00001bc0  6b 65 79 20 30 20 43 48  41 49 4e 20 22 2b bd 33  |key 0 CHAIN "+.3|
00001bd0  34 2b 66 24 2b bd 33 34  2b 22 7c 4c 7c 4d 22 29  |4+f$+.34+"|L|M")|
00001be0  0d 06 9a 19 f2 6f 73 28  22 66 78 31 33 38 2c 30  |.....os("fx138,0|
00001bf0  2c 31 32 38 22 29 3a 3d  b9 0d 06 a4 21 dd 20 a4  |,128"):=....!. .|
00001c00  61 73 63 69 69 3a 61 73  63 66 6e 61 6d 24 3d a4  |ascii:ascfnam$=.|
00001c10  73 74 72 3a 61 73 63 25  3d 30 0d 06 ae 33 e7 20  |str:asc%=0...3. |
00001c20  a4 63 6f 6e 76 28 61 73  63 66 6e 61 6d 24 29 3d  |.conv(ascfnam$)=|
00001c30  22 6f 66 66 22 3a f1 20  27 22 53 70 6f 6f 6c 69  |"off":. '"Spooli|
00001c40  6e 67 20 6f 66 66 22 3a  3d a4 65 72 72 0d 06 b8  |ng off":=.err...|
00001c50  3f 61 73 63 25 3d ae 28  61 73 63 66 6e 61 6d 24  |?asc%=.(ascfnam$|
00001c60  29 3a d9 20 23 61 73 63  25 3a f1 20 27 22 53 70  |):. #asc%:. '"Sp|
00001c70  6f 6f 6c 69 6e 67 20 72  65 63 6f 72 64 73 20 74  |ooling records t|
00001c80  6f 3a 20 22 61 73 63 66  6e 61 6d 24 0d 06 c2 0a  |o: "ascfnam$....|
00001c90  3a 3d a4 65 72 72 0d 06  cc 3d dd 20 f2 73 70 6f  |:=.err...=. .spo|
00001ca0  6f 6c 3a 61 73 63 25 3d  ad 28 61 73 63 66 6e 61  |ol:asc%=.(ascfna|
00001cb0  6d 24 29 3a f2 67 62 70  62 28 61 73 63 25 2c 73  |m$):.gbpb(asc%,s|
00001cc0  74 6f 72 65 25 2c 31 35  2c a2 20 23 61 73 63 25  |tore%,15,. #asc%|
00001cd0  2c 31 29 0d 06 d6 3b e3  20 6e 25 3d 31 35 20 b8  |,1)...;. n%=15 .|
00001ce0  20 63 68 61 72 25 20 88  20 37 36 3a f2 67 62 70  | char% . 76:.gbp|
00001cf0  62 28 61 73 63 25 2c 73  74 6f 72 65 25 2b 6e 25  |b(asc%,store%+n%|
00001d00  2c 37 36 2c a2 20 23 61  73 63 25 2c 31 29 0d 06  |,76,. #asc%,1)..|
00001d10  e0 25 d5 20 23 61 73 63  25 2c 31 33 3a ed 3a 24  |.%. #asc%,13:.:$|
00001d20  73 74 6f 72 65 25 3d c4  37 36 2c 22 3d 22 29 2b  |store%=.76,"=")+|
00001d30  bd 31 33 0d 06 ea 2d f2  67 62 70 62 28 61 73 63  |.13...-.gbpb(asc|
00001d40  25 2c 73 74 6f 72 65 25  2c 37 37 2c a2 20 23 61  |%,store%,77,. #a|
00001d50  73 63 25 2c 31 29 3a d9  20 23 61 73 63 25 3a e1  |sc%,1):. #asc%:.|
00001d60  0d 06 f4 1e dd 20 a4 6c  69 73 74 3a 66 24 3d a4  |..... .list:f$=.|
00001d70  73 74 72 3a 63 68 32 25  3d 8e 28 66 24 29 0d 06  |str:ch2%=.(f$)..|
00001d80  fe 3a e7 20 63 68 32 25  3d 30 20 d9 20 23 63 68  |.:. ch2%=0 . #ch|
00001d90  32 25 3a f1 20 27 22 4e  6f 20 73 75 63 68 20 72  |2%:. '"No such r|
00001da0  65 66 65 72 65 6e 63 65  20 66 69 6c 65 22 3a 3d  |eference file":=|
00001db0  a4 66 69 6c 6f 70 65 6e  0d 07 08 35 f2 74 77 69  |.filopen...5.twi|
00001dc0  6e 64 28 33 29 3a ef 20  31 32 2c 70 74 72 25 3a  |nd(3):. 12,ptr%:|
00001dd0  f1 22 4c 69 73 74 69 6e  67 20 6b 65 79 20 72 65  |."Listing key re|
00001de0  66 2e 20 66 69 6c 65 3a  20 22 66 24 27 0d 07 12  |f. file: "f$'...|
00001df0  2a 6e 25 3d 30 3a f5 3a  e8 20 23 63 68 32 25 2c  |*n%=0:.:. #ch2%,|
00001e00  6b 65 79 24 3a f1 20 8a  6e 25 20 83 20 34 2a 31  |key$:. .n% . 4*1|
00001e10  39 29 6b 65 79 24 3b 0d  07 1c 24 6e 25 3d 6e 25  |9)key$;...$n%=n%|
00001e20  2b 31 3a fd 20 c5 20 23  63 68 32 25 3a d9 20 23  |+1:. . #ch2%:. #|
00001e30  63 68 32 25 3a ef 20 33  3a 3d a3 0d 07 26 31 dd  |ch2%:. 3:=...&1.|
00001e40  20 a4 64 69 73 70 6c 61  79 28 69 25 2c 6a 25 29  | .display(i%,j%)|
00001e50  3a f2 74 77 69 6e 64 28  33 29 3a 74 24 3d a4 73  |:.twind(3):t$=.s|
00001e60  74 72 3a f1 8a 69 25 2c  6a 25 29 3b 0d 07 30 21  |tr:..i%,j%);..0!|
00001e70  e7 20 24 28 63 62 25 2b  63 25 29 3d 22 24 22 20  |. $(cb%+c%)="$" |
00001e80  74 24 3d bd 33 34 2b 74  24 2b bd 33 34 0d 07 3a  |t$=.34+t$+.34..:|
00001e90  27 e7 20 a7 74 24 2c bd  33 34 29 3d 31 20 f1 c1  |'. .t$,.34)=1 ..|
00001ea0  74 24 2c 32 2c a9 74 24  2d 32 29 3b 20 8b 20 f1  |t$,2,.t$-2); . .|
00001eb0  a0 74 24 3b 0d 07 44 07  3a 3d a3 0d 07 4e 25 dd  |.t$;..D.:=...N%.|
00001ec0  20 a4 70 72 6f 67 72 61  6d 3a 66 24 3d a4 73 74  | .program:f$=.st|
00001ed0  72 3a 66 25 3d 8e 28 66  24 29 3a 72 65 73 3d 30  |r:f%=.(f$):res=0|
00001ee0  0d 07 58 32 e7 20 66 25  3d 30 20 f1 20 27 22 50  |..X2. f%=0 . '"P|
00001ef0  72 6f 67 72 61 6d 20 66  69 6c 65 20 6e 6f 74 20  |rogram file not |
00001f00  66 6f 75 6e 64 22 3a d9  20 23 66 25 3a 3d a4 65  |found":. #f%:=.e|
00001f10  72 72 0d 07 62 27 70 25  3d 30 3a f5 3a 70 25 3d  |rr..b'p%=0:.:p%=|
00001f20  70 25 2b 31 3a 70 24 28  70 25 29 3d 22 22 3a f5  |p%+1:p$(p%)="":.|
00001f30  3a 6b 25 3d 9a 20 23 66  25 0d 07 6c 26 e7 20 6b  |:k%=. #f%..l&. k|
00001f40  25 3e 33 31 20 80 20 6b  25 3c 31 32 37 20 70 24  |%>31 . k%<127 p$|
00001f50  28 70 25 29 3d 70 24 28  70 25 29 2b bd 6b 25 0d  |(p%)=p$(p%)+.k%.|
00001f60  07 76 23 fd 20 6b 25 3d  31 33 3a e7 20 c0 70 24  |.v#. k%=13:. .p$|
00001f70  28 70 25 29 2c 31 29 3d  22 2e 22 20 f2 6c 61 62  |(p%),1)="." .lab|
00001f80  65 6c 0d 07 80 20 fd 20  c5 20 23 66 25 3a d9 20  |el... . . #f%:. |
00001f90  23 66 25 3a 70 25 3d 30  3a f5 3a 70 25 3d 70 25  |#f%:p%=0:.:p%=p%|
00001fa0  2b 31 0d 07 8a 30 fd 20  a0 28 22 46 4e 22 2b a4  |+1...0. .("FN"+.|
00001fb0  65 78 65 63 28 70 24 28  70 25 29 29 29 3a 79 70  |exec(p$(p%))):yp|
00001fc0  25 3d 30 3a f2 74 77 69  6e 64 28 32 29 3a db 3a  |%=0:.twind(2):.:|
00001fd0  3d a3 0d 07 94 34 dd 20  a4 73 74 72 3a e7 20 c0  |=....4. .str:. .|
00001fe0  24 28 63 62 25 2b 63 25  29 2c 31 29 3d 22 24 22  |$(cb%+c%),1)="$"|
00001ff0  20 3a 3d 24 76 61 72 25  20 8b 20 3a 3d 24 28 63  | :=$var% . :=$(c|
00002000  62 25 2b 63 25 29 0d 07  9e 21 dd 20 a4 73 74 72  |b%+c%)...!. .str|
00002010  69 6e 67 3a 24 76 61 72  25 3d a0 24 28 63 62 25  |ing:$var%=.$(cb%|
00002020  2b 63 25 29 3a 3d a3 0d  07 a8 39 dd 20 f2 6c 61  |+c%):=....9. .la|
00002030  62 65 6c 3a 6c 62 25 3d  6c 62 25 2b 31 3a 6c 62  |bel:lb%=lb%+1:lb|
00002040  24 28 6c 62 25 29 3d a4  63 6f 6e 76 28 c2 70 24  |$(lb%)=.conv(.p$|
00002050  28 70 25 29 2c a9 70 24  28 70 25 29 2d 31 29 29  |(p%),.p$(p%)-1))|
00002060  0d 07 b2 1c 6c 62 25 28  6c 62 25 29 3d 70 25 3a  |....lb%(lb%)=p%:|
00002070  70 24 28 70 25 29 3d 22  5c 22 3a e1 0d 07 bc 28  |p$(p%)="\":....(|
00002080  dd 20 f2 6c 62 66 6e 64  28 6c 62 24 29 3a 66 25  |. .lbfnd(lb$):f%|
00002090  3d a3 3a 63 6f 25 3d 30  3a f5 3a 63 6f 25 3d 63  |=.:co%=0:.:co%=c|
000020a0  6f 25 2b 31 0d 07 c6 20  e7 20 a4 63 6f 6e 76 28  |o%+1... . .conv(|
000020b0  6c 62 24 29 3d 6c 62 24  28 63 6f 25 29 20 66 25  |lb$)=lb$(co%) f%|
000020c0  3d 63 6f 25 0d 07 d0 14  fd 20 66 25 20 84 20 63  |=co%..... f% . c|
000020d0  6f 25 3d 6c 62 25 3a e1  0d 07 da 18 dd 20 a4 6a  |o%=lb%:...... .j|
000020e0  75 6d 70 3a f2 6c 62 66  6e 64 28 a4 73 74 72 29  |ump:.lbfnd(.str)|
000020f0  0d 07 e4 2c e7 20 66 25  3d a3 20 f1 20 27 22 4c  |...,. f%=. . '"L|
00002100  61 62 65 6c 20 6e 6f 74  20 66 6f 75 6e 64 3a 20  |abel not found: |
00002110  22 3b a4 73 74 72 3a 3d  a4 65 72 72 0d 07 ee 11  |";.str:=.err....|
00002120  70 25 3d 6c 62 25 28 66  25 29 3a 3d a3 0d 07 f8  |p%=lb%(f%):=....|
00002130  17 dd 20 a4 63 6f 6d 70  61 72 65 3a 63 24 3d a0  |.. .compare:c$=.|
00002140  a4 73 74 72 0d 08 02 14  e7 20 63 24 3d 24 76 61  |.str..... c$=$va|
00002150  72 25 20 72 65 73 3d 30  0d 08 0c 15 e7 20 63 24  |r% res=0..... c$|
00002160  3e 24 76 61 72 25 20 72  65 73 3d 2b 31 0d 08 16  |>$var% res=+1...|
00002170  15 e7 20 63 24 3c 24 76  61 72 25 20 72 65 73 3d  |.. c$<$var% res=|
00002180  2d 31 0d 08 20 07 3a 3d  30 0d 08 2a 20 dd 20 a4  |-1.. .:=0..* . .|
00002190  62 65 71 3a e7 20 72 65  73 3d 30 20 3a 3d a4 6a  |beq:. res=0 :=.j|
000021a0  75 6d 70 20 8b 20 3a 3d  30 0d 08 34 21 dd 20 a4  |ump . :=0..4!. .|
000021b0  62 6e 65 3a e7 20 72 65  73 3c 3e 30 20 3a 3d a4  |bne:. res<>0 :=.|
000021c0  6a 75 6d 70 20 8b 20 3a  3d 30 0d 08 3e 21 dd 20  |jump . :=0..>!. |
000021d0  a4 62 70 6c 3a e7 20 72  65 73 3d 2b 31 20 3a 3d  |.bpl:. res=+1 :=|
000021e0  a4 6a 75 6d 70 20 8b 20  3a 3d 30 0d 08 48 21 dd  |.jump . :=0..H!.|
000021f0  20 a4 62 6d 69 3a e7 20  72 65 73 3d 2d 31 20 3a  | .bmi:. res=-1 :|
00002200  3d a4 6a 75 6d 70 20 8b  20 3a 3d 30 0d 08 52 20  |=.jump . :=0..R |
00002210  dd 20 a4 62 6e 66 3a e7  20 66 6e 64 3d a3 20 3a  |. .bnf:. fnd=. :|
00002220  3d a4 6a 75 6d 70 20 8b  20 3a 3d 30 0d 08 5c 20  |=.jump . :=0..\ |
00002230  dd 20 a4 62 66 6f 3a e7  20 66 6e 64 3d b9 20 3a  |. .bfo:. fnd=. :|
00002240  3d a4 6a 75 6d 70 20 8b  20 3a 3d 30 0d 08 66 35  |=.jump . :=0..f5|
00002250  dd 20 f2 61 73 73 65 6d  62 6c 65 3a 70 74 72 3d  |. .assemble:ptr=|
00002260  26 37 30 3a 73 74 3d 73  74 6f 72 65 25 2b 31 35  |&70:st=store%+15|
00002270  3a e3 20 70 61 73 73 3d  30 20 b8 20 32 20 88 20  |:. pass=0 . 2 . |
00002280  32 0d 08 70 41 50 25 3d  63 6f 64 65 25 3a 5b 4f  |2..pAP%=code%:[O|
00002290  50 54 20 70 61 73 73 3a  2e 70 72 69 6e 74 20 4c  |PT pass:.print L|
000022a0  44 41 20 23 73 74 20 83  20 32 35 36 3a 53 54 41  |DA #st . 256:STA|
000022b0  20 70 74 72 3a 4c 44 41  20 23 73 74 20 81 20 32  | ptr:LDA #st . 2|
000022c0  35 36 0d 08 7a 47 53 54  41 20 70 74 72 2b 31 3a  |56..zGSTA ptr+1:|
000022d0  2e 70 72 32 20 4c 44 59  20 23 30 3a 2e 70 6c 20  |.pr2 LDY #0:.pl |
000022e0  4c 44 41 20 28 70 74 72  29 2c 59 3a 42 45 51 20  |LDA (ptr),Y:BEQ |
000022f0  73 74 6f 70 3a 4a 53 52  20 26 46 46 45 33 3a 49  |stop:JSR &FFE3:I|
00002300  4e 59 3a 42 4e 45 20 70  6c 0d 08 84 25 49 4e 43  |NY:BNE pl...%INC|
00002310  20 70 74 72 2b 31 3a 4a  4d 50 20 70 72 32 3a 2e  | ptr+1:JMP pr2:.|
00002320  73 74 6f 70 20 52 54 53  3a 5d 3a ed 3a e1 0d ff  |stop RTS:]:.:...|
00002330