H 03-02
FREADIN IP 80 DISK DATMIN
F KASCII
FWRITEOUTO 132 OF PRINTER 02-03
IREADIN AA 01 02-03
I 1 20 NAME 02-03
I 21 272PRVBAL 02-03
I 002800342PURCH 02-03
I 003500412PAYMNT 02-03
I 004200482RETURN 02-03
C 01 PRVBAL ADD PURCH AMTDUE 82 02-03
C 01 AMTDUE SUB PAYMNT AMTDUE 82 02-03
C 01 AMTDUE SUB RETURN AMTDUE 82 02-03
C 01 1 ADD TRNS TRNS 30 02-03
C 01 PRVBAL ADD BALTOT BALTOT 82 02-03
C 01 PURCH ADD PCHTOT PCHTOT 82 02-03
C 01 PAYMNT ADD PAYTOT PAYTOT 82 02-03
C 01 RETURN ADD RTNTOT RTNTOT 82 02-03
C 01 AMTDUE ADD DUETOT DUETOT 82 02-03
OWRITEOUTH 01 1P 02-03
O OR OF 02-03
O UDATE Y 9 02-03
O 0048 'ACCOUNTS RECEIVABLE' 02-03
O 0058 'REGISTER' 02-03
O 82 'PAGE' 02-03
O PAGE Z 87 02-03
O H 2 1P 02-03
O OR OF 02-03
O 14 'CUSTOMER' 02-03
O 33 'PREVIOUS' 02-03
O 84 'AMOUNT' 02-03
O H 11 1P 02-03
O OR OF 02-03
O 12 'NAME' 02-03
O 32 'BALANCE' 02-03
O 46 'PURCHASES' 02-03
O 59 'PAYMENTS' 02-03
O 71 'RETURNS' 02-03
O 82 'DUE' 02-03
O D 1 01 02-03
O NAME 20 02-03
O PRVBAL1 33 02-03
O PURCH 1 46 02-03
O PAYMNT1 59 02-03
O RETURN1 72 02-03
O AMTDUEA 87 02-03
O T 1 01 LR 02-03
O 14 'GRAND TOTALS -' 02-03
O UDATE Y 23 02-03
O 82 'PAGE' 02-03
O PAGE Z 87 02-03
O T 2 LR 02-03
O 22 'TRANSACTIONS PROCESSED' 02-03
O TRNS Z 27 02-03
O T 2 LR 02-03
O 16 'PREVIOUS BALANCE' 02-03
O BALTOT1 29 '$' 02-03
O T 2 LR 02-03
O 09 'PURCHASES' 02-03
O PCHTOT1 29 '$' 02-03
O T 2 LR 02-03
O 08 'PAYMENTS' 02-03
O PAYTOT1 29 '$' 02-03
O T 2 LR 02-03
O 07 'RETURNS' 02-03
O RTNTOT1 29 '$' 02-03
O T 2 LR 02-03
O 10 'AMOUNT DUE' 02-03
O DUETOT1 29 '$' 02-03