Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/prob44.rpg
There is 1 other file named prob44.rpg in the archive. Click here to see a list.
H
FINPUT IP F 80 80 DISK DAT44
F KASCII
FOUTPUT O 132 132 OF PRINTER
IINPUT NS 33
I 01 06 PARCELL1
I 07 10 BIDNO
I 11 30 NAME
I 31 372AMOUNT
C 33 COUNT ADD 1 COUNT 30
C 33 TOTAL ADD AMOUNT TOTAL 72
CL1 TOTAL DIV COUNT AVGBID 72H
OOUTPUT H 2201 1P
O OR OF
O UDATE Y 08
O 27 'B I D D I N G'
O 41 'R E P O R T'
O PAGE 1 54
O H 1 1P
O OR OF
O 14 'PARCEL BID'
O 33 'BIDDER'
O 51 'BID'
O H 2 1P
O OR OF
O 16 'NUMBER NUMBER'
O 32 'NAME'
O 53 'AMOUNT'
OOUTPUT D 1 33
O L1 PARCEL 06
O BIDNO 15
O NAME 40
O AMOUNT1 54
OOUTPUT T 12 L1
O 23 'TOTAL NUMBER OF BIDS'
O COUNT 1B 28
O 42 'AVERAGE BID'
O AVEBID1B 54
OOUTPUT T 2 LR
O 13 'END OF REPORT'