2 ! LISTS REVENUES AND EXPENDITURES FOR A FISCAL YEAR.
5 ! PROGRAM NAME:"LRVEXP" - BY JAC
15 INPUT "ENTER FISCAL YEAR NUMBER";F$:X$=MID(DATE$(0%),8%,1%):
	X1$=MID(NUM$(VAL(F$)-1%),2%,1%):X$=X$+X1$+"-"+X$+F$
20 OPEN "LP:" FOR OUTPUT AS FILE 1%,MODE 66%:J%=0%:E1,O1,A1=0%:Q$=SPACE$(10%)+
	"\ \-\\-!-\  \-\  \!\\  \"+SPACE$(19%)+"\"+SPACE$(18%)+
	"#,###,###.##\ \#,###,###.##\ \#,###,###.##\ \"
25 OPEN "DK1:GLFILE.FND" AS FILE 2%:DIM #2%,F$(20%)=32%,F%(0%):F%=F%(0%):
	Q1$=SPACE$(20%)+"FUND TOTALS"+SPACE$(39%)+RIGHT(Q$,71%)
30 OPEN "DK1:GLFILE.MBK" AS FILE 3%:DIM #3%,G$(4000%)=64%,G%(0%):G%=G%(0%):
	K%=1%:B%=-1%:H%=1%:GOSUB 200:Z$="   ":Z1$="  *":Z2$="CR ":Z3$="CR*"
35 F2$=F1$+"":Z%=-1%
40 GOTO 45 IF LEFT(F$(I%),2%)=F2$ FOR I%=H% UNTIL I%>F%
45 IF I%<=F% THEN H%=I% ELSE H%=0%:F$(0%)="  FUND "+F2$
50 IF F$<>Y$ THEN 80 ELSE IF B$>="2000" OR B$<"0000" THEN 80
55 IF Z% THEN GOSUB 300
60 E=VAL(E$):IF E<0% THEN E1$=Z2$ ELSE E1$=Z$
65 O=VAL(O$):IF O<0% THEN O1$=Z2$ ELSE O1$=Z$
70 A=VAL(A$):IF A<0% THEN A1$=Z2$ ELSE A1$=Z$
75 PRINT #1%,USING Q$,L$,F1$,Y$,P$,B$,".",B1$,D$,ABS(A),A1$,ABS(E)/100%,E1$,
	ABS(O)/100%,O1$:PRINT #1%
76 O1=O1+O:E1=E1+E:A1=A1+A
78 L%=L%+1%:IF L%>26% THEN GOSUB 300
80 K%=K%+1%:IF K%>G% THEN 90
85 GOSUB 200:IF F2$=F1$ THEN 50 ELSE IF Z% THEN 35 ELSE GOSUB 150:GOTO 35
90 IF NOT Z% THEN GOSUB 150
100 CLOSE 1%,2%,3%:STOP
150 IF E1<0% THEN E1$=Z3$ ELSE E1$=Z1$
155 IF O1<0% THEN O1$=Z3$ ELSE O1$=Z1$
160 IF A1<0% THEN A1$=Z3$ ELSE A1$=Z1$
165 PRINT #1%,USING Q1$,ABS(A1),A1$,ABS(E1)/100%,E1$,ABS(O1)/100%,O1$:
	A1,E1,O1=0%:RETURN
200 B1%=K%/8%+1%:IF B1%<>B% THEN GET #3%,RECORD B1%:B%=B1%
205 O%=(K%-(B%-1%)*8%)*64%:FIELD #3%,O% AS U$,3% AS L$,2% AS F1$,1% AS Y$,
	4% AS P$,4% AS B$,2% AS B1$,21% AS D$,10% AS E$,8% AS O$,8% AS A$,
	1% AS F3$:RETURN
300 PRINT #1%,CHR$(129%):J%=J%+1%:L%=0%:Z%=0%
305 PRINT #1%,TAB(16%);RIGHT(F$(H%),3%);TAB(40%);"REVENUES AND EXPENDITURES";
	" FOR FISCAL YEAR ";X$;"      ";DATE$(0%);"   PAGE ";J%:PRINT #1%
310 PRINT #1%,TAB(18%);"CODE";TAB(33%);"D E S C R I P T I O N";TAB(78%);
	"BUDGET        AMOUNT         AMOUNT"
315 PRINT #1%,TAB(10%);"LOC FD Y PROG BUDG SF";TAB(78%);"AMOUNT       ";
	"EXPENDED      OBLIGATED":PRINT #1%:RETURN
320 END