Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/green.rpg
There is 1 other file named green.rpg in the archive. Click here to see a list.
01010H GREEN
01020FINPUT IP F 80 DISK DATGRN GREEN
01030F KASCII GREEN
01040FOUTPUT O 132 OF PRINTER GREEN
02010IINPUT NS 01 GREEN
02020I 1 20 CUSTNA GREEN
02030I 21 272PREBAL GREEN
02040I 28 342PURCH GREEN
02050I 35 412PAYMNT GREEN
02060I 42 482RETURN GREEN
03010C 01 PREBAL ADD PURCH AMOUNT 72 GREEN
03020C 01 AMOUNT SUB PAYMNT AMOUNT GREEN
03030C 01 AMOUNT SUB RETURN AMOUNT GREEN
03040C 01 TRANS ADD 1 TRANS 20 GREEN
03050C 01 BALTOT ADD PREBAL BALTOT 82 GREEN
03060C 01 PURTOT ADD PURCH PURTOT 82 GREEN
03070C 01 PAYTOT ADD PAYMNT PAYTOT 82 GREEN
03080C 01 DUETOT ADD AMOUNT DUETOT 82 GREEN
03090C 01 TOTRET ADD RETURN TOTRET 82 GREEN
04010OOUTPUT H 201 1P GREEN
04020O OR OF GREEN
04030O DATE Y 8 GREEN
04040O 36 'ACCOUNTS' GREEN
04050O 48 'RECEIVABLE' GREEN
04060O 58 'REGISTER' GREEN
04070O 82 'PAGE' GREEN
04080O PAGE Z 87 GREEN
04090O H 2 1P GREEN
04100O OR OF GREEN
04110O 14 'CUSTOMER' GREEN
04120O 33 'PREVIOUS' GREEN
04130O 84 'AMOUNT' GREEN
04140O H 1 1P GREEN
04150O OR OF GREEN
04160O 12 'NAME' GREEN
04170O 32 'BALANCE' GREEN
04180O 46 'PURCHASES' GREEN
04190O 59 'PAYMENTS' GREEN
04200O 71 'RETURNS' GREEN
04210O 82 'DUE' GREEN
04220O D 1 01 GREEN
04230O CUSTNA 20 GREEN
04240O PREBAL2 32 GREEN
04250O PURCH 2 46 GREEN
04260O PAYMNT2 59 GREEN
04270O RETURN2 72 GREEN
04280O AMOUNTB 85 GREEN
04290O T 1 LR GREEN
04300O 15 'GRAND---TOTALS' GREEN
04310O UDATE Y 23 GREEN
04320O T 2 LR GREEN
04330O 22 'TRANSACTIONS-PROCESSED' GREEN
04340O TRANS Z 26 GREEN
04350O T 2 LR GREEN
04360O 16 'PREVIOUS-BALANCE' GREEN
04370O 18 '$' GREEN
04380O BALTOT2 29 GREEN
04390O T 2 LR GREEN
04400O 9 'PURCHASES' GREEN
04410O 18 '$' GREEN
04420O PURTOT2 29 GREEN
04430O T 2 LR GREEN
04440O 8 'PAYMENTS' GREEN
04450O 18 '$' GREEN
04460O PAYTOT2 29 GREEN
04470O T 2 LR GREEN
04480O 7 'RETURNS' GREEN
04490O 18 '$' GREEN
04500O TOTRET2 29 GREEN
04510O T 2 LR GREEN
04520O 10 'AMOUNT-DUE' GREEN
04530O 18 '$' GREEN
04540O DUETOT2 29 GREEN