1215 X=0:FORI=1TO30
1216 IFN$(I)=""THENI=30:GOTO1290
1217 F=0:PRINT:PRINT:PRINTN$(I)
1220 PRINTA$(I):PRINTB$(I):PRINTC$(I):PRINTD$(I):GOSUB1350
1230 FORJ=1TO20:PRINTP$(I,J);:E=0
1235 IFP$(I,J)=""THENJ=20:GOTO1270
1240 PRINTTAB(20):K(X);
1245 D=INT(100*((K(X)*.2)+.005))/100
1250 PRINTTAB(30);D;TAB(40);L(X):TAB(50):D*L(X)
1255 E=E+D*L(X)
1260 X=X+1:IFK(X)<>0THEN1240
1265 PRINT:PRINTTAB(60):E:PRINT:F=F+E:NEXTJ
1270 PRINT:PRINT:PRINTTAB(50);"Total £ ";F
1275 INPUT"Change paper for New Author";L$
1280 IFL$<>"GO"THEN1275
1285 NEXTI
1290 DOKE3187,1919:IFPEEK(1910)=0THENDOKE3187,1913
1295 GOTO50
1350 PRINTTAB(25):CHR$(14);"ROYALTIES PAYMENTS"
1355 PRINTTAB(15);"for the Quarter ended ";M$
1360 PRINTTAB(5)"PROGRAM"TAB(17)"PRICE";
1365 PRINTTAB(27)"ROYALTY"TAB(37)"NO. SOLD"
1370 PRINT:RETURN
1400 DOKE3187,1918:IFPEEK(1910)=0THENDOKE3187,1912
1405 CLS:WIDTH80:INPUT"Enter Date";M$
1410 PRINT:INPUT"Correct";L$:IFL$<>"Y"THEN1405
1415 X=0:G=0:FOR1TO30
1420 IFN$(I)=""THENI=30:GOTO1475
1425 GOSUB1350:F=0:PRINT:PRINT:PRINTN$(I)
1430 FORJ=1TO20:PRINTP$(I,J);:E=0
1435 IFP$(I,J)=""THENJ=2-:GOTO1470
1440 PRINTTAB(20):K(X);
1445 D=INT(100*((K(X)*.2)+.005))/100
1450 PRINTTAB(30);D;TAB(40);L(X);TAB(50);D*L(X)
1455 E=E+D*L(X)
1460 X=X+1:IFK(X)<>0THEN1440
1465 PRINT:PRINTTAB(60);E:PRINT:F=F+E:NEXTJ
1470 G=G+F:NEXTI
1475 PRINT:PRINT:PRINT:PRINTTAB(30)"Total this micro £ ";G
1480 DOKE3187,1919:IFPEEK(1910)=0THENDOKE3187,1913
1485 GOTO50
1600 INPUT"Start Tape & Press ENTER";L$
1605 TC$="OPEN: IN('AUTH,1,6395)":TR=USR(0)
1610 FORI=1TO30
1615 TC$="READ(N$(I),A$(I),B$(I),C$(I),D$(I))"
1620 TR=USR(0):NEXT
1625 FORI=1TO30:FORJ=1TO20
1630 TC$="READ(P$(I,J))":TR=USR(0):NEXTJ,I
1635 TC$="CLOSE: IN":TR=USR(0):GOTO50
1800 INPUT"Start Tape & Press ENTER";L$
1805 TC$="OPEN: OUT('AUTH',1,6395)":TR=USR(0)
1810 FORI=1TO30
1815 TC$="WRITE(N$(I),A$(I),B$(I),C$(I),D$(I))"
1820 TR=USR(0):NEXT
1825 FORI=1TO30:FORJ=1TO20
1830 TC$="WRITE(P$(I,J))":TR=USR(0)
1835 NEXTJ,I
1840 TC$="CLOSE:OUT":TR=USR(0):GOTO50