/P23 CREDITORS ANALYSIS
/MAIN LINE
OCTAL
START,	GOSUB	;INITAL
	GOSUB	;HEADING
LOOP,	GOSUB	;NEXTCL
	LOADIM	;-1
	SUBT1	;CLKEY
	GOIF	;FINAL	;.+1
	LOAD1	;CLKEY
	PRINTU	;MASK	;5
	PRINTX	;CLNAME	;40
	PRINTC 1	;TAB
	PRINTX	;CLLIN3	;24
	PRINTC 1	;TAB
	LOAD	;CLBAL
	PRINTU	;MASK2	;12
	ADDTO	;TOTAL
	LOAD	;CLPMTD
	PRINTU	;MASK2	;12
	ADDTO	;TOTMTD
	LOAD	;CLPYTD
	PRINTU	;MASK2	;12
	ADDTO	;TOTYTD
	LOAD1	;CLTRANS
	PRINTU	;MASK	;5
	ADDTO	;TOTRAN
	GOSUB	;LINES
	GOTO	;LOOP
HEADING,	0;0
	CLEARLC
	PRINT 33	;TEXT ' _CREDITORS ANALYSIS  PAGE '
	INCREM	;PAGNUM+2
	LOAD	;PAGNUM
	PRINTU	;MASK	;4
	PRINTC 1	;TAB
	GOSUB	;RSDATE
	PRINTU	;DMASK	;11
	PRINT 26	;TEXT '__ACCOUNT  CREDITORS^^'
	PRINTC 20	;240	/SPACE
	PRINT 42	;TEXT 'PURCHASES     TRANS._ N0.    NAME^'
	PRINT 51	;TEXT 'CITY^ BALANCE  THIS MONTH   Y.T.D   MTH._'
	GOTO	;HEADING
/CHECK LINE COUNT
LINES,	0;0
	PRINT 2	;TEXT '__'
	LINCAC
	SUBTIM	;76	/62
	GOIF	;.+2	;LINES
	PRINTC 1	;FF
	PRINTC 20	;240
LINEZ,	GOSUB	;HEADING
	GOTO	;LINES
NEXTCL,	0;0
	INCREM	;CLCONT
	LOAD1	;CLCONT
	READSQ	;CLMAST
	GOIF	;.+2	;CLER
	GETREC	;CLRCID
	GOTO	;NEXTCL
CLER,	PRINT 31	;TEXT 'DISK ERROR READING CLMAST'
	EXIT
INITAL,	0;0
	OPEN	;DEVICE RKA1	;FILENAME CLMAST.MA	;CLMAST
	GOIF	;.+2	;OPENER
	PRINTW	;TABCLR	;5
	PRINTC 47	;240
	PRINTW	;TABSET	;2
	PRINTC 25	;240
	PRINTW	;TABSET	;2
	CLEARW	;PAGNUM
	GOTO	;INITAL
FINAL,	PRINT 20	;TEXT '___ TOTALS ---^^'
	LOAD	;TOTAL
	PRINTU	;MASK2	;12
	LOAD	;TOTMTD
	PRINTU	;MASK2	;12
	LOAD	;TOTYTD
	PRINTU	;MASK2	;12
	CLEARW	;CLCONT
	EXIT
OPENER,	PRINT 17	;TEXT 'FILE NOT OPENED'
	EXIT
TABCLR,	233
	262
	215
TABSET,	233
	261
INDEX,	0
DMASK,	TEXT '   /  /   '
CLCONT,	0
CLRCID,	0
CLKEY,	0
CLNAME,	ZBLOCK 20
CLLIN2,	ZBLOCK 20
CLLIN3,	ZBLOCK 20
CLBAL,	0;0;0
CLPMTD,	0;0;0
CLPYTD,	0;0;0
CLTRAN,	0
CLBFB,	0;0;0
CLSP1,	0
CLMAST=6300
	ZBLOCK 11
MASK,	TEXT '         -'
MASK2,	TEXT '     0.00-'
PAGNUM,	0;0;0
TOTMTD,	0;0;0
TOTYTD,	0;0;0
TOTRAN,	0;0;0
TOTAL,	0;0;0
/RASBOL SYSTEM DATE ROUTINE
	DECIMAL
RSDATE,	0;0
	LOAD1	;4022	/7666
	ANDIM	;248	/370
	SHIFTR 3
	MULTIM	;100
	STORE2	;RSDTEMP
	LOAD1	;4022
	SHIFTR 8
	ADD2	;RSDTEMP
	MULTIM	;100
	STORE2	;RSDTEMP
	LOAD1	;4022
	ANDIM	;7
	SUBTIM	;7
	GOZERO	;.+3
	ADDIM	;8
	ADDIM	;77
	ADD2	;RSDTEMP
	GOTO	;RSDATE
RSDATP,	0;0
	GOSUB	;RSDATE
	PRINTU	;RSDMSK	;10
	GOTO	;RSDATP
RSDMSK,TEXT '   /  /  -'
RSDTEMP,	0;0
$