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 '$'