01001H P262 01010FPMTCARD IP F00800080 DISK DAT262 P262 01020F KASCII P262 01030FPMTREPT O F01320132 OF PRINTER P262 02010IPMTCARD NS 01 P262 02020I 000100050CUSTNOL1 P262 02030I 00060030 CUSTNM P262 02040I 003100360DATE P262 02050I 003700380PMTS P262 02060I 003900452AMT P262 02070I 003100320MONTH P262 02080I 003500360YEAR P262 03010C AMT DIV PMTS PAYMNT0072 P262 03020C MVR LASTPM0022 P262 03030C LOOP TAG P262 03040C EXCPT P262 03050C 55 SETOF 55OF P262 03060C OF SETON 55 P262 03070C SETOF L1 P262 03080C 1 ADD MONTH MONTH P262 03090C MONTH COMP 13 10 P262 03100C 10 MONTH SUB 12 MONTH P262 03110C 10 YEAR ADD 1 YEAR P262 03120C MOVELMONTH DATE P262 03130C MOVE YEAR DATE P262 03140C PMTS SUB 1 PMTS P262 03150C PMTS COMP 1 12 11 P262 03160C 11 LASTPM ADD PAYMNT PAYMNT P262 03170C 11 P262 03180COR 12 GOTO LOOP P262 03190CL1 AMT ADD TOTAMT TOTAMT0082 P262 05010OPMTREPT H 201 1P P262 05020O OR OF P262 05030O UDATE Y 0008 P262 05040O 0025 'PAYMENT' P262 05050O 0041 'SCHEDULE REPOTR' P262 05060O 0055 'PAGE' P262 05070O PAGE Z 0060 P262 05080O H 1 1P P262 05090O OR OF P262 05100O 0008 'CUSTOMER' P262 05110O 0026 'CUSTOMER' P262 05120O 0044 'DUE' P262 05130O 0059 'PAYMENT' P262 05140O H 2 1P P262 05150O OR OF P262 05160O 0007 'NUMBER' P262 05170O 0024 'NAME' P262 05180O 0045 'DATE' P262 05190O 0059 'AMOUNT' P262 05200O T 13 L1 P262 06010O 0049 'TOTAL PAYMENTS' P262 06020O AMT 1 0060 '$' P262 06030O T 00 LR P262 06040O 0048 'FINAL TOTALS' P262 06050O TOTAMT1 0060 '$' P262 06060O EF 1 01 P262 06070O L1 CUSTNOZ 0007 P262 06080O L1 CUSTNM 0035 P262 06090O OF CUSTNOZ 0007 P262 06100O OF CUSTNM 0035 P262 06110O DATE Y 0047 P262 06120O PAYMNT1 0060 P262