2 ! COMPUTES TOTAL REVENUES AND EXPENDITURES  AND DIFFERENCE FOR EACH FUND.
5 ! PROGRAM NAME:"REVEXP" - BY JAC
10 OPEN "DK1:GLFILE.MST" AS FILE 1%:DIM #1%,G$(4000%)=64%,G%(0%):N%=G%(0%)
15 DIM R(99%),E(99%)
16 R(K%),E(K%)=0% FOR K%=1% TO 99%
20 FOR K%=1% TO N%:B%=VAL(MID(G$(K%),11%,4%)):IF B%>=2000% OR B%<0% THEN 30
25 F%=VAL(MID(G$(K%),4%,2%)):IF B%<100% THEN R(F%)=R(F%)+VAL(MID(G$(K%),38%,10%))
	ELSE E(F%)=E(F%)+VAL(MID(G$(K%),38%,10%))
30 NEXT K%:CLOSE 1%:J%=0%:H%=1%
35 OPEN "DK1:GLFILE.FND" AS FILE 1%:DIM #1%,F$(20%)=32%,F%(0%):F%=F%(0%):
	Q$="##,###,###.##\\"
40 OPEN "LP:" FOR OUTPUT AS FILE 2%,MODE 66%:GOSUB 100:F$(0%)="-1"
45 FOR K%=0% TO 99%:IF E(K%)=0% AND R(K%)=0% THEN 90
50 GOTO 55 IF VAL(LEFT(F$(I%),2%))=K% FOR I%=H% UNTIL I%>F%
55 IF I%<=F% THEN H%=I% ELSE H5=0%:F$(0%)="-1FUND "+NUM$(K%)
60 PRINT #2%,TAB(10%);K%;RIGHT(F$(H%),3%):PRINT #2%
62 IF R(K%)<0% THEN X$="CR" ELSE X$="  "
65 PRINT #2%,TAB(15%);"REVENUES";TAB(40%);:PRINT #2%,USING Q$,ABS(R(K%))/100%,X$
	:PRINT #2%
68 IF E(K%)<0% THEN X$="CR" ELSE X$="  "
70 PRINT #2%,TAB(15%);"EXPENDITURES";TAB(40%);:PRINT #2%,USING Q$,
	ABS(E(K%))/100%,X$:PRINT #2%,TAB(40%);"-------------"
75 IF E(K%)+R(K%)<0% THEN X$="CR" ELSE X$="  "
80 PRINT #2%,TAB(18%);"DIFFERENCE";TAB(40%);:PRINT #2%,USING Q$,
	ABS(E(K%)+R(K%))/100%,X$:PRINT #2% FOR M%=1% TO 5%
85 L%=L%+1%:IF L%>3% THEN GOSUB 100
90 NEXT K%:CLOSE 1%,2%:STOP
100 PRINT #2%,CHR$(130%):J%=J%+1%:L%=0%
105 PRINT #2%,TAB(15%);"REVENUES AND EXPENDITURES AS OF ";DATE$(0%);
	"    PAGE ";J%:PRINT #2% FOR M%=1% TO 8%
110 RETURN
120 END