742 IFP$(I,J)=""THENPRINT"Old data only!":GOTO735
745 PRINTP$(I,J)
750 INPUT"Enter new data";P$(I,J)
752 IFP$(I,J)<>""THEN756
753 INPUT"Delete Program";L$
754 IFL$="Y"THEN775
755 GOTO750
756 INPUT"Correct";L$:IFL$<>"Y"THEN750
760 INPUT"More changes this author";L$
765 IFL$="Y"THEN700
770 GOTO50
775 J=J+1:IFP$(I,J)=""THEN700
780 P$(I,J-1)=P$(I,J):P$(I,J)="":GOTO775
800 CLS:PRINTN$(I):PRINT
805 PRINTA$(I):PRINTB$(I):PRINTC$(I):PRINT:PRINTD$(I):PRINT
810 INPUT"Amend/Delete Y/N";L$
815 IFL$="N"THEN50
820 PRINT"Name ";N$(I)" ";:INPUT"New Data Y/N";L$
825 IFL$="Y"THENINPUTN$(I)
826 IFN$(I)<>""THEN830
827 INPUT"Delete Author";L$
828 IFL$="Y"THENGOTO900
829 GOTO820
830 PRINT"ADDR1 ";A$(I)" ";:INPUT"New Data Y/N";L$
835 IFL$="Y"THENINPUTA$(I)
840 PRINT"ADDR2 ";B$(I);" ":INPUT"New Data Y/N";L$
845 IFL$="Y"THENINPUTB$(I)
850 PRINT"ADDR3 ";C$(I);" ";:INPUT"New Data Y/N";L$
855 IFL$="Y"THENINPUTC$(I)
860 PRINT"Tel. No. ";D$(I); " ";:INPUT"New Data Y/N";L$
865 IFL$="Y"THENINPUTD$(I)
875 GOTO50
900 I=I+1
905 IFN$(I)=""THEN600
910 N$(I-1)=N$(I):N$(I)=""
915 A$(I-1)=A$(I):A$(I)=""
920 B$(I-1)=B$(I):B$(I)=""
925 C$(I-1)=C$(I):C$(I)=""
930 D$(I-1)=D$(I):D$(I)=""
935 GOTO900
1000 CLS:X=0:FORI=1TO30:PRINTB$(I);
1002 IFN$(I)=""THENI=30:GOTO1060
1005 FORJ=1TO20:PRINTTAB(20);P$(I,J)
1007 IFP$(I,J)=""THENJ=20:GOTO1055
1010 INPUT"Enter Price";K(X)
1015 INPUT"Correct";L$
1020 IFL$<>"Y"THEN1010
1025 INPUT"No. Sold";L(X)
1030 INPUT"Correct";L$
1035 IFL$<>"Y"THEN1025
1040 X=X+1:INPUT"More Prices this Program";L$
1045 IFL$="Y"THEN1010
1050 K(X)=0:L(X)=0:X=X+1:NEXTJ
1055 NEXTI
1060 GOTO50
1200 DOKE3187,1918:IFPEEK(1910)=0THENDOKE3187,1912
1205 CLS:WIDTH80:INPUT"Enter Date";M$
1210 PRINT:INPUT"Correct";L$:IFL$<>"Y"THEN1205