/DEBTORS AGE ANALYSIS   MAIN LINE
OCTAL
	ABORT	;END
MAIN,	GOTO	;INITAL
MAIN2,	GOSUB	;HEADING
MAIN3,	GOSUB	;NEXTDM
	LOAD1	;DMKEY
	SUBTIM	;7777
	GOIF	;EOJ	;.+1
	GOSUB	;LINE
	LINCAC
	SUBTIM	;66	/50
	GONEG	;MAIN3
CF,	PRINT  26	;TEXT   'TOTALS CARRIED FORWARD'
	GOSUB	;TOTALS
	PRINTC 10	;212	/LINE FEED TO NEXT PAGE
	GOTO	;MAIN2
HEADING,  0	;0
	PRINT  1  ;TEXT '_'
	CLEARLC
	INCREM	;PAGCON+2	/PAGE COUNTER
	PRINTC 12	;240	/10 SPACES
	PRINT  25	;TEXT 'DEBTORS TRIAL BALANCE'
	PRINT 14	;TEXT '^MONTH ENDED'
	GOSUB	;RSDATE	
	PRINTU	;MASKD	;13
	PRINT  10	;TEXT '    PAGE'
	LOAD	;PAGCON	
	PRINTU	;MASK	;5
	PRINT  51	;TEXT '___ AC.N0.   NAME^OVER 6 MTHS  5 MTHS    '
	PRINT  47	;TEXT '4 MTHS    3 MTHS    2 MTHS    1 MTH    '
	PRINT  24	;TEXT 'CURRENT    BALANCE__'
	GOTO	;HEADING
LINE,	0	;0
	LOAD1	;DMKEY
	PRINTU	;MASK	;5
	PRINTX	;DNAME	;37
	MOVE	;DMAGEO	;PRAREA	;25
	INCREM	;SWITCH	/ ADD TO TOTALS
	GOSUB	;PRLIN
	PRINT   2	;TEXT '__'
	GOTO	;LINE
PRLIN,	0	;0
	FILL	;0	;BALANCE	;3
	LOADIM	;6
	STORE1	;INDEX
	PRINT  1	;TEXT '^'	 /TAB
PRLOOP,	LOADX1	;INDEX
	MULTX1 3
	LOAD	;PRAREA
	PRINTU	;MASK2	;12    /PRINT AGED AMOUNTS
	ADDTO	;BALANCE
	GOIFZO	;LOOP2	;SWITCH
	LOADX1	;INDEX
	MULTX1 3
	ADDTO	;TOTS		 /ADD TO TOTALS
LOOP2,	DECREM	;INDEX
	LOAD1	;INDEX
	SIGN1
	GONEG	;PBAL
	GOTO	;PRLOOP
PBAL,	LOAD	;BALANCE
	PRINTU	;MASK2	;13
	GOTO	;PRLIN
	
TOTALS,	0	;0
	MOVE	;TOTS	;PRAREA	;25
	CLEARW	;SWITCH
	GOSUB	;PRLIN
	PRINT   2	;TEXT '__'
	GOTO	;TOTALS
EOJ,	PRINT   6	;TEXT /TOTALS/
	GOSUB	;TOTALS
END,	CHANNEL	;DRMAST;DRMAST+1;CLOSE
	GONEG	;END2
	EXIT
END2,	PRINT 12;TEXT '_CLOSE ERROR'
	EXIT
INITAL,
	PRINTW	;TABCLR	;7
	PRINTC  45	;240	 /TAB 37
	PRINTW	;TABSET	;2
	CHANNEL	;DRMAST;DRMAST+1	;OPEN
	GONEG	;INER
	GOTO	;MAIN2
INER,	PRINT  17;TEXT 'FILE NOT FOUND '
	EXIT
NEXTDM,	0;0
	INCREM	;DMCONT
	LOAD1	;DMCONT
	READSQ	;DRMAST
	GONEG	;DMER
	GETREC	;DRRCID
	GOTO	;NEXTDM
DMER,	PRINT 31	;TEXT 'DISK ERROR READING DRMAST'
	EXIT
DMCONT,	0
INDEX,	0
BALANCE,	0;0;0
DRRCID,	0
DMKEY,	0
DNAME,	ZBLOCK  20
DLINE2,	ZBLOCK  20
DLINE3,	ZBLOCK  20
DMAGEO,	0;0;0
DMAGE1,	0;0;0
DMAGE2,	0;0;0
DMAGE3,	0;0;0
DMAGE4,	0;0;0
DMAGE5,	0;0;0
DMAGE6,	0;0;0
DMMTDS,	0;0;0
DMYTDS,	0;0;0
DRTYPE,	0
DRTRANS,	0
DRTAX,	0
DRSP1,	ZBLOCK  5
TABCLR,	ESCAPE;"!;ESCAPE;"2;CRET
TABSET,	ESCAPE;"1
PAGCON,	0;0;0
SWITCH,	0
MASK,	TEXT '        0-'
MASK2,	TEXT '     0.00-'
MASKD,	TEXT '   /  /   '
PRAREA,	ZBLOCK 25
TOTS,	ZBLOCK 25
DRMAST,	0;DEVICE RKA1;FILENAME DRMAST.MA
/RASBOL SYSTEM DATE ROUTINE
	DECIMAL
RSDATE,	0;0
	SYSDATE
	ANDIM	;248	/370
	SHIFTR 3
	MULTIM	;100
	STORE2	;RSDTEMP
	SYSDATE
	SHIFTR 8
	ADD2	;RSDTEMP
	MULTIM	;100
	STORE2	;RSDTEMP
	SYSDATE
	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
$