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