265 IFLEN(A$(I))>20THENPRINT"Max. 20 chrs.":GOTO260
267 INPUT"Correct";L$
270 IFL$<>"Y"THEN260
275 INPUT"ADDR 2";B$(I)
277 IFLEN(B$(I))>20THENPRINT"Max. 20 chrs.":GOTO275
280 INPUT"Correct";L$
285 IFL$<>"Y"THEN275
290 INPUT"ADDR 3";C$(I)
292 IFLEN(C$(I))>20THENPRINT"Max. 20 chrs.":GOTO290
295 INPUT"Correct";L$
300 IFL$<>"Y"THEN290
320 INPUT"Tel. No.";D$(I)
322 IFLEN(D$(I))>20THENPRINT"Max. 20 chrs.":GOTO320
325 INPUT"Correct";L$
330 IFL$<>"Y"THEN320
335 GOTO50
400 CLS:INPUT"Enter Author's Name";Y$
402 IFY$=""THEN400
405 FORI=1TO30
410 IFN$(I)=Y$THENZ=I:I=30:GOTO440
415 NEXT
420 PRINT:INPUT"Name not Found – another try":L$
430 IFL$="Y"THEN400
435 GOTO50
440 I=Z
450 FORJ=1TO20
455 IFP$(I,J)=""THENZ=J:J=20:GOTO470
460 NEXT
465 PRINT"No Space for New Program!"
467 FORA=1TO3000:NEXT:GOTO50
470 CLS:J=Z:INPUT"PROG. NAME";P$(I,J)
472 IFP$(I,J)=""THEN470
475 PRINT:INPUT"Correct";L$
480 IFL$<>"Y"THEN470
485 PRINT:INPUT"Any More Progs";L$
490 IFL$="Y"THENZ=Z+1:GOTO470
495 GOTO 50
600 CLS:FORI=1TO30
605 PRINTI;" ";N$(I);:I=I+1
610 PRINTTAB(16);I" ";N$(I);:I=I+1
615 PRINTTAB(32);I" ";N$(I):NEXT
620 PRINT:INPUT"Which Author";I:IFI<1ORI>30THEN600
622 IFN$(I)=""THEN600
625 CLS:PRINTN$(I):PRINT:INPUT"Correct Author";L$
630 IFL$<>"Y"THEN600
635 PRINT:PRINT:PRINT"Options";TAB(20)"1) Programs"
640 PRINTTAB(20)"2) Names & addresses"
645 PRINT:PRINTTAB(20):INPUTC:IFC<1ORC>2THEN645
650 ONCGOTO700,800
700 CLS:PRINTN$(I)":":FORJ=1TO20
710 PRINTJ" "P$(I,J);:J=J+1
720 PRINTTAB(24);J;P$(I,J):NEXT
725 INPUT"Amend/Delete Y/N";L$
730 IFL$="N"THEN50
735 INPUT"Enter Program No.";J
737 IFJ=999THEN50
740 IFJ<1ORJ>20THEN735