Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF » U/ADD

U/ADD

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_50.ADF
Filename: U/ADD
Read OK: ✔
File size: 09C3 bytes
Load address: FFFF1D00
Exec address: FFFF8023
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM INFO FILE
   20MODE6
   21PRINT''''"PLEASE WAIT"
   22PROCinit 
   23PROCmenu
  226DEFPROCend 
  228PRINT'''"CLOSING PROGRAM, SAVING ANY CHANGES." 
  230X=OPENOUT N$  
  240PRINT#X,N,NR,NN 
  250FOR J=0 TO N-1 
  260PRINT#X,N$(J),NC(J)
  270NEXT 
  280FOR J=1 TO NR:FOR K=0 TO N-1:PRINT#X,D$(J,K):NEXT:NEXT  
  290CLOSE#X 
  295ENDPROC  
  325DEFPROCinit 
  330DIM N$(4),NC(4),FS(4),F$(4):LE=0:NC(4)=10  
  340N$="ADDRESS"
  350X=OPENIN N$
  360INPUT#X,N,NR,NN
  370FOR J=0 TO N-1
  380INPUT#X,N$(J),NC(J)
  390NEXT
  400DIM D$(NR,N-1)
  410FOR J=1 TO NR
  420FOR K=0 TO N-1
  430INPUT#X,D$(J,K)
  440NEXT:NEXT
  450CLOSE#X
  455ENDPROC
  458DEFPROCmenu 
  460CLS:PRINT'''"ADDRESS DATABASE"
  470PRINTTAB(5)"1) NEW RECORD" 
  480PRINTTAB(5)"2) SEARCH RECORDS"
  490PRINTTAB(5)"3) FINISH"  
  500PRINT'''"<  SELECT BY PRESSING NUMBER KEY  >"  
  510A=GET  
  520IF A<49 OR A>51 THEN 510
  530IF A=50 AND NN=0 THEN 510  
  540IF A=49 PROCenter:PROCmenu 
  542IF A=50 PROCsearch:PROCmenu 
  544IF A=51 PROCend:END 
  545ENDPROC 
  548DEF PROCenter
  550NN=NN+1:CLS:PRINT''"ADDRESS DATABASE",TAB(25)"RECORD ";NN  
  560FOR J=0 TO N-1 
  570PRINT'"FIELD ";J+1;": "N$(J)" (";NC(J)")"
  580PROCinput 
  590D$(NN,J)=E$  
  600PRINT"":NEXT 
  610IF NN=NR THEN PRINT''"**FILE FULL"
  620PRINT''"<ANY KEY FOR MORE : SPACEAR FOR MENU>" 
  630KEY$=GET$:IF KEY$<>" " THEN 550
  635ENDPROC 
  648DEFPROCsearch 
  650CLS:PRINT''"RECORD "N$  
  660FOR J=0 TO 3:FS(J)=0:NEXT 
  670FOR J=0 TO N-1:FS(J)=1:NEXT
  720PRINT''"ENTER SEARCH STRING"''"RETURN TO SCROLL THROUGH ALL RECORDS" 
  730FF=0:J=4:PROCinput:S$=E$    
  740L=1     
  750J=0
  760IF FS(J)=0 THEN 790  
  770X=INSTR(D$(L,J),S$) 
  780IF X>0 THEN PROCdisplay
  790REM J=J+1:IF J<N THEN 760  
  800L=L+1:IF L<NN+1 THEN 750
  810IF FF=0 THEN PRINT''"NOT FOUND":TIME=0:REPEAT UNTIL TIME>200:ENDPROC  
  820PRINT''"SEARCH COMPLETED" 
  830TIME=0:REPEAT UNTIL TIME>200:ENDPROC 
  838DEFPROCdisplay
  840FF=1:CLS:PRINT''"RECORD NO.  ";L
  845FOR M=0 TO N-1
  850PRINT ';N$(M)  
  860PRINT'D$(L,M)
  870NEXT  
  875VDU3
  880PRINT''"N=NEXT RECORD A=AMEND SPACEBAR=MENU"'"P=PRINT RECORD" 
  890KEY$=GET$  
  900IF KEY$=" " THEN L=NN+1:ENDPROC 
  905IF KEY$="P" VDU2:GOTO845
  910IF KEY$="N" OR KEY$="n" THEN ENDPROC
  920IF KEY$<>"A" AND KEY$<>"a" THEN 890      
  930FOR J=0 TO N-1 
  940CLS:PRINT''"AMEND RECORD ";L 
  950PRINT''"FIELD ";J+1;" IS:":PRINT D$(L,J) 
  960PRINT'"AMEND RECORD"'" USE / TO LEAVE RECORD UNCHANGED"'" ARROW KEYS AND COPY TO ADD TO EXISTING RECORD."  
  970PROCinput:IF E$<>"/" THEN D$(L,J)=E$    
  980NEXT 
  990FD=0:FOR P=0 TO N-1
 1000IF D$(L,P)<>"" THEN FD=1 
 1010NEXT:PRINT''"RECORD AMENDED" 
 1020IF FD=1 THEN ENDPROC
 1030REM IF L=NN THEN 1060 
 1040FOR P=L TO NN-1 
 1050FOR Q=0 TO N-1:D$(P,Q)=D$(P+1,Q):NEXT:NEXT  
 1060REM FOR Q=0 TO N-1:D$(NN,Q)=STRING$     
 1070REM NN=N-1 
 1080REM IF L>NN THEN 820:ELSE 750 
 1100ENDPROC  
 1120DEF PROCyn
 1130REPEAT:KEY$=GET$:UNTIL INSTR("YyNn",KEY$)
 1140ENDPROC
 1150DEF PROCinput
 1160E$=""
 1170A$=GET$:IF A$="" THEN 1170  
 1180IF A$=CHR$(34) THEN 1170
 1190IF A$=CHR$(13) THEN ENDPROC  
 1200IF A$=CHR$(127) THEN E$="":PRINT"|":GOTO 1160 
 1205IF A$=CHR$(42) THEN A$=(CHR$(13)+CHR$(10)) 
 1210PRINTA$;
 1220E$=E$+A$
 1230IF LEN(E$)=NC(J) THEN ENDPROC
 1240IF LEN(E$)>NC(J)-2 THEN PRINT CHR$(7); 
 1250GOTO 1170
 1260ENDPROC


� INFO FILE
�6
�''''"PLEASE WAIT"

�init 
	�menu
�
��end 
�/�'''"CLOSING PROGRAM, SAVING ANY CHANGES." 
�X=� N$  
��#X,N,NR,NN 
�� J=0 � N-1 
�#X,N$(J),NC(J)
� 
,� J=1 � NR:� K=0 � N-1:�#X,D$(J,K):�:�  
"�#X 
'�  
E��init 
J-� N$(4),NC(4),FS(4),F$(4):LE=0:NC(4)=10  
TN$="ADDRESS"
^
X=� N$
h�#X,N,NR,NN
r� J=0 � N-1
|�#X,N$(J),NC(J)
��
�� D$(NR,N-1)
�� J=1 � NR
�� K=0 � N-1
��#X,D$(J,K)
��:�
��#X
��
���menu 
��:�'''"ADDRESS DATABASE"
��5)"1) NEW RECORD" 
��5)"2) SEARCH RECORDS"
��5)"3) FINISH"  
�/�'''"<  SELECT BY PRESSING NUMBER KEY  >"  
�	A=�  
� A<49 � A>51 � �d~A
� A=50 � NN=0 � �d~A  
� A=49 �enter:�menu 
� A=50 �search:�menu 
 � A=51 �end:� 
!� 
$� �enter
&6NN=NN+1:�:�''"ADDRESS DATABASE",�25)"RECORD ";NN  
0� J=0 � N-1 
:)�'"FIELD ";J+1;": "N$(J)" (";NC(J)")"
D�input 
ND$(NN,J)=E$  
X
�"":� 
b� NN=NR � �''"**FILE FULL"
l/�''"<ANY KEY FOR MORE : SPACEAR FOR MENU>" 
vKEY$=�:� KEY$<>" " � �TfB
{� 
�
��search 
��:�''"RECORD "N$  
�� J=0 � 3:FS(J)=0:� 
�� J=0 � N-1:FS(J)=1:�
�E�''"ENTER SEARCH STRING"''"RETURN TO SCROLL THROUGH ALL RECORDS" 
�FF=0:J=4:�input:S$=E$    
�L=1     
�J=0
�� FS(J)=0 � �TVC  
X=�D$(L,J),S$) 
� X>0 � �display
� J=J+1:IF J<N THEN 760  
 L=L+1:� L<NN+1 � �dnB
*-� FF=0 � �''"NOT FOUND":�=0:� � �>200:�  
4�''"SEARCH COMPLETED" 
>�=0:� � �>200:� 
F
��display
HFF=1:�:�''"RECORD NO.  ";L
M� M=0 � N-1
R� ';N$(M)  
\
�'D$(L,M)
f�  
k�3
p>�''"N=NEXT RECORD A=AMEND SPACEBAR=MENU"'"P=PRINT RECORD" 
zKEY$=�  
�� KEY$=" " � L=NN+1:� 
�� KEY$="P" �2:�DMC
�� KEY$="N" � KEY$="n" � �
�(� KEY$<>"A" � KEY$<>"a" � �DzC      
�� J=0 � N-1 
��:�''"AMEND RECORD ";L 
�%�''"FIELD ";J+1;" IS:":� D$(L,J) 
�k�'"AMEND RECORD"'" USE / TO LEAVE RECORD UNCHANGED"'" ARROW KEYS AND COPY TO ADD TO EXISTING RECORD."  
�%�input:� E$<>"/" � D$(L,J)=E$    
�� 
�FD=0:� P=0 � N-1
�� D$(L,P)<>"" � FD=1 
��:�''"RECORD AMENDED" 
�� FD=1 � �
� IF L=NN THEN 1060 
� P=L � NN-1 
'� Q=0 � N-1:D$(P,Q)=D$(P+1,Q):�:�  
$*� FOR Q=0 TO N-1:D$(NN,Q)=STRING$     
.
� NN=N-1 
8 � IF L>NN THEN 820:ELSE 750 
L�  
`	� �yn
j�:KEY$=�:� �"YyNn",KEY$)
t�
~� �input
�	E$=""
�A$=�:� A$="" � �tRD  
�� A$=�(34) � �tRD
�� A$=�(13) � �  
�$� A$=�(127) � E$="":�"|":� �tHD 
�"� A$=�(42) � A$=(�(13)+�(10)) 
��A$;
�E$=E$+A$
�� �(E$)=NC(J) � �
�� �(E$)>NC(J)-2 � � �(7); 
�
� �tRD
��
�
00000000  0d 00 0a 0f f4 20 49 4e  46 4f 20 46 49 4c 45 0d  |..... INFO FILE.|
00000010  00 14 06 eb 36 0d 00 15  16 f1 27 27 27 27 22 50  |....6.....''''"P|
00000020  4c 45 41 53 45 20 57 41  49 54 22 0d 00 16 0a f2  |LEASE WAIT".....|
00000030  69 6e 69 74 20 0d 00 17  09 f2 6d 65 6e 75 0d 00  |init .....menu..|
00000040  e2 0a dd f2 65 6e 64 20  0d 00 e4 2f f1 27 27 27  |....end .../.'''|
00000050  22 43 4c 4f 53 49 4e 47  20 50 52 4f 47 52 41 4d  |"CLOSING PROGRAM|
00000060  2c 20 53 41 56 49 4e 47  20 41 4e 59 20 43 48 41  |, SAVING ANY CHA|
00000070  4e 47 45 53 2e 22 20 0d  00 e6 0c 58 3d ae 20 4e  |NGES." ....X=. N|
00000080  24 20 20 0d 00 f0 10 f1  23 58 2c 4e 2c 4e 52 2c  |$  .....#X,N,NR,|
00000090  4e 4e 20 0d 00 fa 10 e3  20 4a 3d 30 20 b8 20 4e  |NN ..... J=0 . N|
000000a0  2d 31 20 0d 01 04 13 f1  23 58 2c 4e 24 28 4a 29  |-1 .....#X,N$(J)|
000000b0  2c 4e 43 28 4a 29 0d 01  0e 06 ed 20 0d 01 18 2c  |,NC(J)..... ...,|
000000c0  e3 20 4a 3d 31 20 b8 20  4e 52 3a e3 20 4b 3d 30  |. J=1 . NR:. K=0|
000000d0  20 b8 20 4e 2d 31 3a f1  23 58 2c 44 24 28 4a 2c  | . N-1:.#X,D$(J,|
000000e0  4b 29 3a ed 3a ed 20 20  0d 01 22 08 d9 23 58 20  |K):.:.  .."..#X |
000000f0  0d 01 27 07 e1 20 20 0d  01 45 0b dd f2 69 6e 69  |..'..  ..E...ini|
00000100  74 20 0d 01 4a 2d de 20  4e 24 28 34 29 2c 4e 43  |t ..J-. N$(4),NC|
00000110  28 34 29 2c 46 53 28 34  29 2c 46 24 28 34 29 3a  |(4),FS(4),F$(4):|
00000120  4c 45 3d 30 3a 4e 43 28  34 29 3d 31 30 20 20 0d  |LE=0:NC(4)=10  .|
00000130  01 54 10 4e 24 3d 22 41  44 44 52 45 53 53 22 0d  |.T.N$="ADDRESS".|
00000140  01 5e 0a 58 3d 8e 20 4e  24 0d 01 68 0f e8 23 58  |.^.X=. N$..h..#X|
00000150  2c 4e 2c 4e 52 2c 4e 4e  0d 01 72 0f e3 20 4a 3d  |,N,NR,NN..r.. J=|
00000160  30 20 b8 20 4e 2d 31 0d  01 7c 13 e8 23 58 2c 4e  |0 . N-1..|..#X,N|
00000170  24 28 4a 29 2c 4e 43 28  4a 29 0d 01 86 05 ed 0d  |$(J),NC(J)......|
00000180  01 90 10 de 20 44 24 28  4e 52 2c 4e 2d 31 29 0d  |.... D$(NR,N-1).|
00000190  01 9a 0e e3 20 4a 3d 31  20 b8 20 4e 52 0d 01 a4  |.... J=1 . NR...|
000001a0  0f e3 20 4b 3d 30 20 b8  20 4e 2d 31 0d 01 ae 0f  |.. K=0 . N-1....|
000001b0  e8 23 58 2c 44 24 28 4a  2c 4b 29 0d 01 b8 07 ed  |.#X,D$(J,K).....|
000001c0  3a ed 0d 01 c2 07 d9 23  58 0d 01 c7 05 e1 0d 01  |:......#X.......|
000001d0  ca 0b dd f2 6d 65 6e 75  20 0d 01 cc 1c db 3a f1  |....menu .....:.|
000001e0  27 27 27 22 41 44 44 52  45 53 53 20 44 41 54 41  |'''"ADDRESS DATA|
000001f0  42 41 53 45 22 0d 01 d6  18 f1 8a 35 29 22 31 29  |BASE"......5)"1)|
00000200  20 4e 45 57 20 52 45 43  4f 52 44 22 20 0d 01 e0  | NEW RECORD" ...|
00000210  1b f1 8a 35 29 22 32 29  20 53 45 41 52 43 48 20  |...5)"2) SEARCH |
00000220  52 45 43 4f 52 44 53 22  0d 01 ea 15 f1 8a 35 29  |RECORDS"......5)|
00000230  22 33 29 20 46 49 4e 49  53 48 22 20 20 0d 01 f4  |"3) FINISH"  ...|
00000240  2f f1 27 27 27 22 3c 20  20 53 45 4c 45 43 54 20  |/.'''"<  SELECT |
00000250  42 59 20 50 52 45 53 53  49 4e 47 20 4e 55 4d 42  |BY PRESSING NUMB|
00000260  45 52 20 4b 45 59 20 20  3e 22 20 20 0d 01 fe 09  |ER KEY  >"  ....|
00000270  41 3d a5 20 20 0d 02 08  18 e7 20 41 3c 34 39 20  |A=.  ..... A<49 |
00000280  84 20 41 3e 35 31 20 8c  20 8d 64 7e 41 0d 02 12  |. A>51 . .d~A...|
00000290  1a e7 20 41 3d 35 30 20  80 20 4e 4e 3d 30 20 8c  |.. A=50 . NN=0 .|
000002a0  20 8d 64 7e 41 20 20 0d  02 1c 18 e7 20 41 3d 34  | .d~A  ..... A=4|
000002b0  39 20 f2 65 6e 74 65 72  3a f2 6d 65 6e 75 20 0d  |9 .enter:.menu .|
000002c0  02 1e 19 e7 20 41 3d 35  30 20 f2 73 65 61 72 63  |.... A=50 .searc|
000002d0  68 3a f2 6d 65 6e 75 20  0d 02 20 12 e7 20 41 3d  |h:.menu .. .. A=|
000002e0  35 31 20 f2 65 6e 64 3a  e0 20 0d 02 21 06 e1 20  |51 .end:. ..!.. |
000002f0  0d 02 24 0c dd 20 f2 65  6e 74 65 72 0d 02 26 36  |..$.. .enter..&6|
00000300  4e 4e 3d 4e 4e 2b 31 3a  db 3a f1 27 27 22 41 44  |NN=NN+1:.:.''"AD|
00000310  44 52 45 53 53 20 44 41  54 41 42 41 53 45 22 2c  |DRESS DATABASE",|
00000320  8a 32 35 29 22 52 45 43  4f 52 44 20 22 3b 4e 4e  |.25)"RECORD ";NN|
00000330  20 20 0d 02 30 10 e3 20  4a 3d 30 20 b8 20 4e 2d  |  ..0.. J=0 . N-|
00000340  31 20 0d 02 3a 29 f1 27  22 46 49 45 4c 44 20 22  |1 ..:).'"FIELD "|
00000350  3b 4a 2b 31 3b 22 3a 20  22 4e 24 28 4a 29 22 20  |;J+1;": "N$(J)" |
00000360  28 22 3b 4e 43 28 4a 29  22 29 22 0d 02 44 0b f2  |(";NC(J)")"..D..|
00000370  69 6e 70 75 74 20 0d 02  4e 11 44 24 28 4e 4e 2c  |input ..N.D$(NN,|
00000380  4a 29 3d 45 24 20 20 0d  02 58 0a f1 22 22 3a ed  |J)=E$  ..X.."":.|
00000390  20 0d 02 62 1e e7 20 4e  4e 3d 4e 52 20 8c 20 f1  | ..b.. NN=NR . .|
000003a0  27 27 22 2a 2a 46 49 4c  45 20 46 55 4c 4c 22 0d  |''"**FILE FULL".|
000003b0  02 6c 2f f1 27 27 22 3c  41 4e 59 20 4b 45 59 20  |.l/.''"<ANY KEY |
000003c0  46 4f 52 20 4d 4f 52 45  20 3a 20 53 50 41 43 45  |FOR MORE : SPACE|
000003d0  41 52 20 46 4f 52 20 4d  45 4e 55 3e 22 20 0d 02  |AR FOR MENU>" ..|
000003e0  76 1d 4b 45 59 24 3d be  3a e7 20 4b 45 59 24 3c  |v.KEY$=.:. KEY$<|
000003f0  3e 22 20 22 20 8c 20 8d  54 66 42 0d 02 7b 06 e1  |>" " . .TfB..{..|
00000400  20 0d 02 88 0d dd f2 73  65 61 72 63 68 20 0d 02  | ......search ..|
00000410  8a 16 db 3a f1 27 27 22  52 45 43 4f 52 44 20 22  |...:.''"RECORD "|
00000420  4e 24 20 20 0d 02 94 18  e3 20 4a 3d 30 20 b8 20  |N$  ..... J=0 . |
00000430  33 3a 46 53 28 4a 29 3d  30 3a ed 20 0d 02 9e 19  |3:FS(J)=0:. ....|
00000440  e3 20 4a 3d 30 20 b8 20  4e 2d 31 3a 46 53 28 4a  |. J=0 . N-1:FS(J|
00000450  29 3d 31 3a ed 0d 02 d0  45 f1 27 27 22 45 4e 54  |)=1:....E.''"ENT|
00000460  45 52 20 53 45 41 52 43  48 20 53 54 52 49 4e 47  |ER SEARCH STRING|
00000470  22 27 27 22 52 45 54 55  52 4e 20 54 4f 20 53 43  |"''"RETURN TO SC|
00000480  52 4f 4c 4c 20 54 48 52  4f 55 47 48 20 41 4c 4c  |ROLL THROUGH ALL|
00000490  20 52 45 43 4f 52 44 53  22 20 0d 02 da 1d 46 46  | RECORDS" ....FF|
000004a0  3d 30 3a 4a 3d 34 3a f2  69 6e 70 75 74 3a 53 24  |=0:J=4:.input:S$|
000004b0  3d 45 24 20 20 20 20 0d  02 e4 0c 4c 3d 31 20 20  |=E$    ....L=1  |
000004c0  20 20 20 0d 02 ee 07 4a  3d 30 0d 02 f8 16 e7 20  |   ....J=0..... |
000004d0  46 53 28 4a 29 3d 30 20  8c 20 8d 54 56 43 20 20  |FS(J)=0 . .TVC  |
000004e0  0d 03 02 13 58 3d a7 44  24 28 4c 2c 4a 29 2c 53  |....X=.D$(L,J),S|
000004f0  24 29 20 0d 03 0c 14 e7  20 58 3e 30 20 8c 20 f2  |$) ..... X>0 . .|
00000500  64 69 73 70 6c 61 79 0d  03 16 1d f4 20 4a 3d 4a  |display..... J=J|
00000510  2b 31 3a 49 46 20 4a 3c  4e 20 54 48 45 4e 20 37  |+1:IF J<N THEN 7|
00000520  36 30 20 20 0d 03 20 19  4c 3d 4c 2b 31 3a e7 20  |60  .. .L=L+1:. |
00000530  4c 3c 4e 4e 2b 31 20 8c  20 8d 64 6e 42 0d 03 2a  |L<NN+1 . .dnB..*|
00000540  2d e7 20 46 46 3d 30 20  8c 20 f1 27 27 22 4e 4f  |-. FF=0 . .''"NO|
00000550  54 20 46 4f 55 4e 44 22  3a d1 3d 30 3a f5 20 fd  |T FOUND":.=0:. .|
00000560  20 91 3e 32 30 30 3a e1  20 20 0d 03 34 1a f1 27  | .>200:.  ..4..'|
00000570  27 22 53 45 41 52 43 48  20 43 4f 4d 50 4c 45 54  |'"SEARCH COMPLET|
00000580  45 44 22 20 0d 03 3e 14  d1 3d 30 3a f5 20 fd 20  |ED" ..>..=0:. . |
00000590  91 3e 32 30 30 3a e1 20  0d 03 46 0d dd f2 64 69  |.>200:. ..F...di|
000005a0  73 70 6c 61 79 0d 03 48  1e 46 46 3d 31 3a db 3a  |splay..H.FF=1:.:|
000005b0  f1 27 27 22 52 45 43 4f  52 44 20 4e 4f 2e 20 20  |.''"RECORD NO.  |
000005c0  22 3b 4c 0d 03 4d 0f e3  20 4d 3d 30 20 b8 20 4e  |";L..M.. M=0 . N|
000005d0  2d 31 0d 03 52 0f f1 20  27 3b 4e 24 28 4d 29 20  |-1..R.. ';N$(M) |
000005e0  20 0d 03 5c 0d f1 27 44  24 28 4c 2c 4d 29 0d 03  | ..\..'D$(L,M)..|
000005f0  66 07 ed 20 20 0d 03 6b  06 ef 33 0d 03 70 3e f1  |f..  ..k..3..p>.|
00000600  27 27 22 4e 3d 4e 45 58  54 20 52 45 43 4f 52 44  |''"N=NEXT RECORD|
00000610  20 41 3d 41 4d 45 4e 44  20 53 50 41 43 45 42 41  | A=AMEND SPACEBA|
00000620  52 3d 4d 45 4e 55 22 27  22 50 3d 50 52 49 4e 54  |R=MENU"'"P=PRINT|
00000630  20 52 45 43 4f 52 44 22  20 0d 03 7a 0c 4b 45 59  | RECORD" ..z.KEY|
00000640  24 3d be 20 20 0d 03 84  1a e7 20 4b 45 59 24 3d  |$=.  ..... KEY$=|
00000650  22 20 22 20 8c 20 4c 3d  4e 4e 2b 31 3a e1 20 0d  |" " . L=NN+1:. .|
00000660  03 89 17 e7 20 4b 45 59  24 3d 22 50 22 20 ef 32  |.... KEY$="P" .2|
00000670  3a e5 8d 44 4d 43 0d 03  8e 1d e7 20 4b 45 59 24  |:..DMC..... KEY$|
00000680  3d 22 4e 22 20 84 20 4b  45 59 24 3d 22 6e 22 20  |="N" . KEY$="n" |
00000690  8c 20 e1 0d 03 98 28 e7  20 4b 45 59 24 3c 3e 22  |. ....(. KEY$<>"|
000006a0  41 22 20 80 20 4b 45 59  24 3c 3e 22 61 22 20 8c  |A" . KEY$<>"a" .|
000006b0  20 8d 44 7a 43 20 20 20  20 20 20 0d 03 a2 10 e3  | .DzC      .....|
000006c0  20 4a 3d 30 20 b8 20 4e  2d 31 20 0d 03 ac 1b db  | J=0 . N-1 .....|
000006d0  3a f1 27 27 22 41 4d 45  4e 44 20 52 45 43 4f 52  |:.''"AMEND RECOR|
000006e0  44 20 22 3b 4c 20 0d 03  b6 25 f1 27 27 22 46 49  |D ";L ...%.''"FI|
000006f0  45 4c 44 20 22 3b 4a 2b  31 3b 22 20 49 53 3a 22  |ELD ";J+1;" IS:"|
00000700  3a f1 20 44 24 28 4c 2c  4a 29 20 0d 03 c0 6b f1  |:. D$(L,J) ...k.|
00000710  27 22 41 4d 45 4e 44 20  52 45 43 4f 52 44 22 27  |'"AMEND RECORD"'|
00000720  22 20 55 53 45 20 2f 20  54 4f 20 4c 45 41 56 45  |" USE / TO LEAVE|
00000730  20 52 45 43 4f 52 44 20  55 4e 43 48 41 4e 47 45  | RECORD UNCHANGE|
00000740  44 22 27 22 20 41 52 52  4f 57 20 4b 45 59 53 20  |D"'" ARROW KEYS |
00000750  41 4e 44 20 43 4f 50 59  20 54 4f 20 41 44 44 20  |AND COPY TO ADD |
00000760  54 4f 20 45 58 49 53 54  49 4e 47 20 52 45 43 4f  |TO EXISTING RECO|
00000770  52 44 2e 22 20 20 0d 03  ca 25 f2 69 6e 70 75 74  |RD."  ...%.input|
00000780  3a e7 20 45 24 3c 3e 22  2f 22 20 8c 20 44 24 28  |:. E$<>"/" . D$(|
00000790  4c 2c 4a 29 3d 45 24 20  20 20 20 0d 03 d4 06 ed  |L,J)=E$    .....|
000007a0  20 0d 03 de 14 46 44 3d  30 3a e3 20 50 3d 30 20  | ....FD=0:. P=0 |
000007b0  b8 20 4e 2d 31 0d 03 e8  19 e7 20 44 24 28 4c 2c  |. N-1..... D$(L,|
000007c0  50 29 3c 3e 22 22 20 8c  20 46 44 3d 31 20 0d 03  |P)<>"" . FD=1 ..|
000007d0  f2 1a ed 3a f1 27 27 22  52 45 43 4f 52 44 20 41  |...:.''"RECORD A|
000007e0  4d 45 4e 44 45 44 22 20  0d 03 fc 0e e7 20 46 44  |MENDED" ..... FD|
000007f0  3d 31 20 8c 20 e1 0d 04  06 18 f4 20 49 46 20 4c  |=1 . ...... IF L|
00000800  3d 4e 4e 20 54 48 45 4e  20 31 30 36 30 20 0d 04  |=NN THEN 1060 ..|
00000810  10 11 e3 20 50 3d 4c 20  b8 20 4e 4e 2d 31 20 0d  |... P=L . NN-1 .|
00000820  04 1a 27 e3 20 51 3d 30  20 b8 20 4e 2d 31 3a 44  |..'. Q=0 . N-1:D|
00000830  24 28 50 2c 51 29 3d 44  24 28 50 2b 31 2c 51 29  |$(P,Q)=D$(P+1,Q)|
00000840  3a ed 3a ed 20 20 0d 04  24 2a f4 20 46 4f 52 20  |:.:.  ..$*. FOR |
00000850  51 3d 30 20 54 4f 20 4e  2d 31 3a 44 24 28 4e 4e  |Q=0 TO N-1:D$(NN|
00000860  2c 51 29 3d 53 54 52 49  4e 47 24 20 20 20 20 20  |,Q)=STRING$     |
00000870  0d 04 2e 0d f4 20 4e 4e  3d 4e 2d 31 20 0d 04 38  |..... NN=N-1 ..8|
00000880  20 f4 20 49 46 20 4c 3e  4e 4e 20 54 48 45 4e 20  | . IF L>NN THEN |
00000890  38 32 30 3a 45 4c 53 45  20 37 35 30 20 0d 04 4c  |820:ELSE 750 ..L|
000008a0  07 e1 20 20 0d 04 60 09  dd 20 f2 79 6e 0d 04 6a  |..  ..`.. .yn..j|
000008b0  1c f5 3a 4b 45 59 24 3d  be 3a fd 20 a7 22 59 79  |..:KEY$=.:. ."Yy|
000008c0  4e 6e 22 2c 4b 45 59 24  29 0d 04 74 05 e1 0d 04  |Nn",KEY$)..t....|
000008d0  7e 0c dd 20 f2 69 6e 70  75 74 0d 04 88 09 45 24  |~.. .input....E$|
000008e0  3d 22 22 0d 04 92 19 41  24 3d be 3a e7 20 41 24  |=""....A$=.:. A$|
000008f0  3d 22 22 20 8c 20 8d 74  52 44 20 20 0d 04 9c 15  |="" . .tRD  ....|
00000900  e7 20 41 24 3d bd 28 33  34 29 20 8c 20 8d 74 52  |. A$=.(34) . .tR|
00000910  44 0d 04 a6 14 e7 20 41  24 3d bd 28 31 33 29 20  |D..... A$=.(13) |
00000920  8c 20 e1 20 20 0d 04 b0  24 e7 20 41 24 3d bd 28  |. .  ...$. A$=.(|
00000930  31 32 37 29 20 8c 20 45  24 3d 22 22 3a f1 22 7c  |127) . E$="":."||
00000940  22 3a e5 20 8d 74 48 44  20 0d 04 b5 22 e7 20 41  |":. .tHD ...". A|
00000950  24 3d bd 28 34 32 29 20  8c 20 41 24 3d 28 bd 28  |$=.(42) . A$=(.(|
00000960  31 33 29 2b bd 28 31 30  29 29 20 0d 04 ba 08 f1  |13)+.(10)) .....|
00000970  41 24 3b 0d 04 c4 0c 45  24 3d 45 24 2b 41 24 0d  |A$;....E$=E$+A$.|
00000980  04 ce 15 e7 20 a9 28 45  24 29 3d 4e 43 28 4a 29  |.... .(E$)=NC(J)|
00000990  20 8c 20 e1 0d 04 d8 1e  e7 20 a9 28 45 24 29 3e  | . ...... .(E$)>|
000009a0  4e 43 28 4a 29 2d 32 20  8c 20 f1 20 bd 28 37 29  |NC(J)-2 . . .(7)|
000009b0  3b 20 0d 04 e2 0a e5 20  8d 74 52 44 0d 04 ec 05  |; ..... .tRD....|
000009c0  e1 0d ff                                          |...|
000009c3
U/ADD.m0
U/ADD.m1
U/ADD.m2
U/ADD.m4
U/ADD.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .