2 ! PRINTS BOARD EXPENDITURE REPORT
5 !PROGRAM NAME:"BRDEXP" - BY JAC
8 PRINT "INPUT DATE FOR EXPENDITURE REPORT";:INPUT LINE D1$
10 OPEN "DK1:GLFILE.MST" AS FILE 1%:D1$=LEFT(D1$,LEN(D1$)-2%)
15 DIM #1%,G$(4000%)=64%,G%(0%):DIM A(3%),T(3%),F(3%),F1(3%)
25 OPEN "DK1:GLFILE.FND" AS FILE 2%:DIM #2%,F$(20%)=32%,F%(0%)
30 OPEN "DK1:GLFILE.BDT" AS FILE 5%:DIM #5%,B$(600%)=32%,B%(0%)
35 OPEN "DK1:GLFILE.PGM" AS FILE 3%:DIM #3%,P$(300%)=32%,P%(0%)
45 OPEN "LP:" FOR OUTPUT AS FILE 4%,MODE 51%
50 N%=G%(0%):Q$="#,###,###.##":Q1$="###.##!":K%=1%:S%=P%(0%):B%=B%(0%)
55 Q%=8%:L%=0%:F1%=1%:S$="              * ":GOSUB 400:E%=1%
60 N$=LEFT(F$(F1%),2%)
65 IF MID(G$(K%),4%,2%)<>N$ THEN K%=K%+1%:GOTO 65
75 T%=VAL(MID(G$(K%),11%,4%)):IF T%<100% OR T%>=1800% THEN K%=K%+1%:GOTO 75
80 C$=MID(G$(K%),11%,4%):X$=LEFT(C$,2%)
85 GOSUB 450      ! GETS VALUES
90 K%=K%+1%:IF MID(G$(K%),4%,2%)<>N$ THEN 125
95 T%=VAL(MID(G$(K%),11%,4%)):IF T%<100% OR T%>=1800% THEN 90
100 IF MID(G$(K%),11%,4%)=C$ THEN 85 ELSE GOSUB 550
110 IF MID(G$(K%),11%,2%)=X$ THEN 80 ELSE GOSUB 650:GOTO 80
125 GOSUB 550:GOSUB 650:GOSUB 700
140 F1%=F1%+1%:IF F1%>F%(0%) THEN 300
145 N$=LEFT(F$(F1%),2%):H%=1%
150 GOTO 160 IF N$<>MID(G$(R%),4%,2%) FOR R%=K% UNTIL R%>N%
160 IF R%=K% THEN 140 ELSE M%=R%-1%
175 P1$=MID(G$(K%),7%,4%):E%=1%
180 GOTO 190 IF P1$=LEFT(P$(R%),4%) FOR R%=H% UNTIL LEFT(P$(R%),4%)>P1$
190 IF P1$=LEFT(P$(R%),4%) THEN H%=R% ELSE P$(0%)=P1$+SPACE$(28%):H%=0%
200 T%=VAL(MID(G$(K%),11%,4%)):IF T%>=100% AND T%<1900% THEN 210
205 K%=K%+1%:IF K%>M% THEN 285
208 IF P1$=MID(G$(K%),7%,4%) THEN 200 ELSE 175
210 GOSUB 400
215 C$=MID(G$(K%),11%,4%)
220 GOSUB 450    ! GETS VALUES
225 K%=K%+1%:IF K%>M% THEN 270
230 T%=VAL(MID(G$(K%),11%,4%)):IF T%<100% OR T%>=1900% THEN 225
235 IF P1$<>MID(G$(K%),7%,4%) THEN 255
240 IF MID(G$(K%),11%,4%)=C$ THEN 220 ELSE GOSUB 550:GOTO 215
255 GOSUB 550:GOSUB 650: GOTO 175
270 GOSUB 550:GOSUB 650:GOSUB 290
285 IF F(1%)=0% AND F(2%)=0% AND F(3%)=0% THEN 140
290 GOSUB 700:GOTO 140  ! PRINT FUND TOTALS
300 PRINT #4%,TAB(24%+Q%);"***FINAL TOTALS***";TAB(45%+Q%);
305 A(R%)=F1(R%) FOR R%=1% TO 3%
310 GOSUB 800:PRINT #4%,CHR$(128%+1%):CLOSE 1%,2%,3%,4%:STOP
400 PRINT #4%,CHR$(129%):J%=J%+1%
405 PRINT #4%,TAB(Q%);RIGHT(F$(F1%),3%);TAB(45%+Q%);"BOARD EXPENDITURE REPORT";
410 PRINT #4%,TAB(80%+Q%);D1$;TAB(110%+Q%);"PAGE ";J%:IF F1%=1% THEN 425
415 PRINT #4%,TAB(40%+Q%);"PROG. ";LEFT(P$(H%),4%);"-";RIGHT(P$(H%),5%)
425 PRINT #4%:PRINT #4%,TAB(14%+Q%);"BUDGET";TAB(51%+Q%);"BUDGET";TAB(65%+Q%);
430 PRINT #4%,"EXPENDED       OBLIGATED         BUDGET      PERCENT"
435 PRINT #4%,TAB(15%+Q%);"CODE";TAB(27%+Q%);"DESCRIPTION";TAB(51%+Q%);
440 PRINT #4%,"AMOUNT         AMOUNT          AMOUNT          BALANCE";
445 PRINT #4%,TAB(111%+Q%);"SPENT":PRINT #4%:L%=0%:RETURN
448 RETURN
450 A(2%)=A(2%)+VAL(MID(G$(K%),38%,10%))
455 A(3%)=A(3%)+VAL(MID(G$(K%),48%,8%))
460 A(1%)=A(1%)+VAL(MID(G$(K%),56%,8%)):RETURN
500 PRINT #4%,TAB(15%+Q%);C$;TAB(23%+Q%);D$;" ";:GOSUB 800
510 T(R%)=T(R%)+A(R%) FOR R%=1% TO 3%
515 A(R%)=0% FOR R%=1% TO 3%
520 L%=L%+2%:IF L%>38% THEN GOSUB 400
530 RETURN
550 GOTO 555 IF C$+"00"=LEFT(B$(T%),6%) FOR T%=E% UNTIL C$+"00"<LEFT(B$(T%),6%)
555 IF C$+"00"<LEFT(B$(T%),6%) THEN D$=MID(G$(K%),17%,21%):E%=1%:GOTO 565
560 D$=MID(B$(T%),7%,21%):E%=T%
565 GOSUB 500:RETURN
650 PRINT #4%,TAB(24%+Q%);:IF F1%=1% THEN 660
655 PRINT #4%,"*PROGRAM TOTALS*";:GOTO 665
660 PRINT #4%,"*SUB TOTAL*";
665 PRINT #4%,TAB(45%+Q%);
670 A(R%)=T(R%) FOR R%=1% TO 3%
675 GOSUB 800     ! PRINT VALVES
680 IF F1%=1% THEN GOSUB 520
685 FOR R%=1% TO 3%
690 F(R%)=F(R%)+T(R%):T(R%)=0%:A(R%)=0%
695 NEXT R%:RETURN
700 PRINT #4%,TAB(24%+Q%);"**FUND TOTAL**";TAB(45%+Q%);
705 A(R%)=F(R%) FOR R%=1% TO 3%
710 GOSUB 800
715 FOR R%=1% TO 3%
720 F1(R%)=F1(R%)+F(R%):F(R%)=0%:A(R%)=0%
725 NEXT R%:RETURN
800 IF A(1%)=0 THEN PRINT #4%,S$;:GOTO 810
805 PRINT #4%,USING Q$,A(1%);:PRINT #4%,"  * ";
810 FOR R%=2% TO 3%
815 IF A(R%)=0% THEN PRINT #4%,S$;:GOTO 830
820 PRINT #4%,USING Q$,ABS(A(R%))/100%;
825 IF A(R%)<0% THEN PRINT #4%,"CR* "; ELSE PRINT #4%,"  * ";
830 NEXT R%
835 IF A(1%)=0% THEN PRINT #4%,S$;:GOTO 865
840 B=A(1%)*100%-A(2%)-A(3%):PRINT #4%,USING Q$,ABS(B)/100%;
850 IF B<0% THEN PRINT #4%,"CR*   "; ELSE PRINT #4%,"  *   ";
855 P=((A(2%)+A(3%))/(A(1%)*100%))*100%:PRINT #4%,USING Q1$,P,"%";
865 PRINT #4%:PRINT #4%:RETURN
875 END