/BARTTERS CREDITORS AGED ANALYSYS
	DECIMAL
START,	OPEN	;DEVICE RXA1
IFDEF	PARKWD<FILENAME CRMASP.MA>
IFNDEF	PARKWD<FILENAME CRMASB.MA>
	CRMAST
	GOIF	;.+2	;OPENER
	CLEARW	;CRCONT
	GOTO	;HEAD2
LOOP,	LOAD1-1	;LINCON
	RANGE	;HEADING	;0;60
LOOP2,	GOSUB	;RNEXCR
	GOIF	;.+2	;END
	LOAD	;CRBAL
	ADD	;CRBFB
	GOIF	;LOOP2	;.+1
	PRINT 1	;TEXT '_'
	LOAD2	;CRKEY
	PRINTU	;MASK	;8
	LOAD	;CRBAL
	ADDTO	;TOT0
	PRINTU	;MASK2	;10
	SUBT	;CRBFB
	PRINTU	;MASK2	;10
	ADDTO	;TOT1
	PRINTC 2	;SPACE
	PRINTX	;CRNAME	;30
	PRINTC 2	;SPACE
	PRINTX	;CLINE3	;30
	GOTO	;LOOP
HEADING,	PRINT 4	;TEXT '____'
HEAD2,	PRINT 40	;TEXT '_AC.NO.    BALANCE  THIS MONTH  CUSTOMER'
	CLEARW-1	;LINCON
	GOTO	;LOOP
END,	PRINT 10	;TEXT '__* TOTALS'
	LOAD	;TOT0
	PRINTU	;MASK2	;10
	LOAD	;TOT1
	PRINTU	;MASK2	;10
	EXIT
OPENER,	PRINT  16	;TEXT '_FILE NOT OPENED'
	EXIT
/SEQUENTIAL LIBRARY  ROUTINES
/PAGE -1-
TOT0,	0;0;0
TOT1,	0;0;0
MASK,	TEXT '         -'
MASK2,	TEXT '     0.0 -'
/READ CRS. MASTER, RETURN -VE AT END OF FILE
RNEXCR,	0;0
	INCREM	;CRCONT
	LOAD1	;CRCONT
	READSQ	;CRMAST
	GOIF	;.+2	;ENDCR
	LOADX3-1	;CRMAST+6
	STORX1
	MOVE-1	;XAREA	;CRRCID	;0
	LOAD	;CRRCID
	ADDIM	;1
	GOIF	;ENDCR	;.+1
	CLEAR
	GOTO	;RNEXCR
ENDCR,	LOADIM	;1
	NEGATE
	GOTO	;RNEXCR
CRCONT,	0
CRRCID,	0
CRKEY,	0;0
CRNAME,	ZBLOCK 15
CLINE2,	ZBLOCK 15
CLINE3,	ZBLOCK 15
CRTRAN,	0
CRBFB,	0;0;0
CRBAL,	0;0;0
CRSP1,	ZBLOCK 9
OCTAL
*6200
FIELD 0
CRMAST,	ZBLOCK 11
$