Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/prob32.rpg
There is 1 other file named prob32.rpg in the archive. Click here to see a list.
     H
     FINPUT   IP  F  80  80            DISK   DATP32
     F                                              KASCII
     FOUTPUT  O     132 132     OF     PRINTER
     IINPUT   NS  33
     I                                       01  04 ID1
     I                                       05  06 ID2
     I                                       07  30 TITLE
     I                                       31  350SOLD
     I                                       36  400RETURN
     I                                       41  442PRICE
     C   33      COUNT     ADD  1         COUNT   30
     C   33      SOLD      SUB  RETURN    NET     50
     C   33      NET       COMP 10000                202120
     C   33      NET       MULT PRICE     SALES   82
     C   33 20   SALES     MULT .12       ROYAL   82H
     C   33 21   SALES     MULT .10       ROYAL   82H
     C   33      ROYAL     ADD  TROYAL    TROYAL  92
     OOUTPUT  H 2201   1P
     O       OR        OF
     O                         UDATE Y    8
     O                                   60 'ROYALTY REPORT'
     O                                  102 'PAGE'
     O                         PAGE  1  107
     O        H  1     1P
     O       OR        OF
     O                                    7 'AUTHOR'
     O                                   55 'QUANTITY  QUANTITY'
     O                                   73 'NET       UNIT'
     O                                   96 'SALES    ROYALTY'
     O                                  106 'ROYALTY'
     O        H  2     1P
     O       OR        OF
     O                                    6 'AUTHOR'
     O                                   27 'BOOK TITLE'
     O                                   63 'SOLD    RETURNED    SOLD'
     O                                   85 'PRICE      AMOUNT'
     O                                  105 'RATE      PAID'
     OOUTPUT  D 00     33
     O                         ID1        4
     O                                    5 '-'
     O                         ID2        7
     O                         TITLE     34
     O                         SOLD  1   44
     O                         RETURN1   54
     O                         NET   1   64
     O                         PRICE 1   73
     O                         SALES 1   87
     O                         ROYAL 1  108
     O        D  1     33 20 
     O                                   94 '12%'
     O        D  1     33 21
     O                                   94 '10%'
     OOUTPUT  T 2      LR
     O                                   23 'TOTAL NUMBER OF AUTHORS'
     O                         COUNT 1   27
     O        T 2      LR
     O                                   20 'TOTAL ROYALIES PAID'
     O                         TROYAL1   35 '$'