Google
 

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'