2 ! PRINTS EXPENDITURE REPORT BY LOCATION
5 ! PROGRAM NAME:"LOCEXP" - BY JAC
10 PRINT "INPUT DATE FOR EXPENDITURE REPORT";:INPUT LINE D1$
15 OPEN "DK1:GLFILE.MST" AS FILE 1%:D1$=LEFT(D1$,LEN(D1$)-2%)
20 DIM #1%,G$(4000%)=64%,G%(0%):N%=G%(0%)
50 DIM A(3%),T(3%),F(3%),F1(3%),F2(3%)
55 OPEN "DK1:GLFILE.FND" AS FILE 2%:DIM #2%,F$(20%)=32%,F%(0%)
65 OPEN "DK1:GLFILE.LOC" AS FILE 3%:DIM #3%,L$(100%)=32%,L%(0%)
75 OPEN "LP:" FOR OUTPUT AS FILE 4%,MODE 51%:K%=0%:I%=1%:J%=0%:Q%=8%
85 Q$="#,###,###.##":Q1$="###.##!":S$=SPACE$(16%):S1$=SPACE$(14%)+"* "
95 K%=K%+1%:IF K%>N% THEN 205
98 T%=VAL(MID(G$(K%),11%,4%)):IF T%<100% OR T%>=2000% THEN 95
102 H%=1%:N$=LEFT(G$(K%),3%)
103 GOTO 105 IF LEFT(L$(R%),3%)=N$ FOR R%=I% UNTIL N$<LEFT(L$(R%),3%)
105 IF N$=LEFT(L$(R%),3%) THEN I%=R% ELSE I%=0%: L$(0%)="   LOCATION"+N$
108 GOSUB 750:GOSUB 500
110 GOTO 112 IF LEFT(G$(R%),3%)<>N$ FOR R%=K% UNTIL R%>N%
112 E%=R%-1%
115 GOSUB 550
118 K%=K%+1%:IF K%>E% THEN 175
120 T%=VAL(MID(G$(K%),11%,4%)):IF T%<100% OR T%>=2000% THEN 118
135 IF MID(G$(K%),4%,2%)<>F2$ THEN 160
140 IF MID(G$(K%),11%,4%)=X$ THEN 115
145 GOSUB 650:L1%=L1%+1%:GOSUB 640:GOTO 115
160 GOSUB 650:GOSUB 770:GOSUB 750:GOSUB 500:GOTO 115
175 GOSUB 650:GOSUB 770:GOSUB 800:IF E%<N% THEN 98
205 J%=J%+1%:PRINT #4%,CHR$(129%):PRINT #4%,TAB(45%+Q%);
210 PRINT #4%,"LOCATION EXPENDITURE REPORT";TAB(80%+Q%);D1$;TAB(110%+Q%);
212 PRINT #4%,"PAGE";J%:PRINT #4%:GOSUB 515
215 PRINT #4%,TAB(24%+Q%);"***FINAL TOTALS***";TAB(45%+Q%);
220 T(R%)=F2(R%) FOR R%=1% TO 3%
225 GOSUB 660:PRINT #4%,CHR$(129%):CLOSE 1%,2%,3%,4%:STOP
500 PRINT #4%,CHR$(129%):J%=J%+1%
505 PRINT #4%,TAB(Q%);RIGHT(L$(I%),4%);TAB(45%+Q%);"EXPENDITURE REPORT";
510 PRINT #4%,TAB(80%+Q%);D1$;TAB(110%+Q%);"PAGE ";J%
512 PRINT #4,TAB(40%+Q%);RIGHT(F$(H%),3%):PRINT #4
515 PRINT #4%,TAB(7%+Q%);"EXPENSE";TAB(51%+Q%);"BUDGET";TAB(65%+Q%);
520 PRINT #4%,"EXPENDED       OBLIGATED         BUDGET     PERCENT"
525 PRINT #4%,TAB(8%+Q%);"CODE";TAB(28%+Q%);"DESCRIPTION";TAB(51%+Q%);
530 PRINT #4%,"AMOUNT         AMOUNT          AMOUNT          BALANCE";
535 PRINT #4%,TAB(111%+Q%);"SPENT":PRINT #4%:Z%=-1%:L1%=0%:RETURN
550 T$=G$(K%):C$=LEFT(T$,3%)+"-"+MID(T$,4%,2%)+"-"+MID(T$,6%,1%)+"-"
555 C$=C$+MID(T$,7%,4%)+"-"+MID(T$,11%,4%)+"."+MID(T$,15%,2%)
560 D$=MID(T$,17%,21%):F2$=MID(T$,4%,2%):X$=MID(T$,11%,4%)
565 A(2%)=VAL(MID(T$,38%,10%)):A(3%)=VAL(MID(T$,48%,8%))
570 A(1%)=VAL(MID(T$,56%,8%)):PRINT #4%,TAB(Q%);C$;"  ";D$;" ";
575 IF A(1%)=0% THEN PRINT #4%,S$;:GOTO 585
580 PRINT #4%,USING Q$,A(1%);:PRINT #4%,"    ";
585 FOR R%=2% TO 3%
590 IF A(R%)=0% THEN PRINT #4%,S$;:GOTO 605
595 PRINT #4%,USING Q$,ABS(A(R%))/100%;
600 IF A(R%)<0% THEN PRINT #4%,"CR  "; ELSE PRINT #4%,"    ";
605 NEXT R%
610 IF A(1%)=0% THEN 630
615 B=A(1%)*100%-A(2%)-A(3%)
620 PRINT #4%,USING Q$,ABS(B)/100%;:IF B<0% THEN PRINT #4%,"CR";
630 PRINT #4%
635 T(R%)=T(R%)+A(R%) FOR R%=1% TO 3%
640 L1%=L1%+1%:IF L1%>38% THEN GOSUB 500
648 RETURN
650 PRINT #4%,TAB(45%+Q%);
652 F(R%)=F(R%)+T(R%) FOR R%=1% TO 3%
660 IF T(1%)=0% THEN PRINT #4%,S1$;:GOTO 670
665 PRINT #4%,USING Q$,T(1%);:PRINT #4%,"  * ";
670 FOR R%=2% TO 3%
675 IF T(R%)=0% THEN PRINT #4%,S1$;:GOTO 690
680 PRINT #4%,USING Q$,ABS(T(R%))/100%;
685 IF T(R%)<0% THEN PRINT #4%,"CR* "; ELSE PRINT #4%,"  * ";
690 NEXT R%
695 IF T(1%)=0% THEN PRINT #4%,S1$;:GOTO 725
700 B=T(1%)*100%-T(2%)-T(3%):PRINT #4%,USING Q$,ABS(B)/100%;
710 IF B<0% THEN PRINT #4%,"CR*   "; ELSE PRINT #4%,"  *   ";
715 P=((T(2%)+T(3%))/(T(1%)*100%))*100%
720 PRINT #4%,USING Q1$,P,"%";
725 PRINT #4%:PRINT #4%
730 T(R%)=0% FOR R%=1% TO 3%
735 RETURN
750 F2$=MID(G$(K%),4%,2%)
755 GOTO 760 IF F2$=LEFT(F$(R%),2%) FOR R%=H% UNTIL F2$<LEFT(F$(R%),2%)
760 IF F2$=LEFT(F$(R%),2%) THEN H%=R% ELSE H%=0%: F$(0%)="  FUND "+F2$
767 RETURN
770 PRINT #4%,TAB(Q%);"*TOTALS FOR ";RIGHT(F$(H%),3%);"*";TAB(45%+Q%);
775 T(R%)=F(R%) FOR R%=1% TO 3%
780 GOSUB 660
785 F1(R%)=F1(R%)+F(R%) FOR R%=1% TO 3%
790 F(R%)=0% FOR R%=1% TO 3%
795 RETURN
800 PRINT #4%,"**FINAL TOTALS FOR ";RIGHT(L$(I%),4%);"**";TAB(45%+Q%);
805 T(R%)=F1(R%) FOR R%=1% TO 3%
810 GOSUB 660
815 F2(R%)=F2(R%)+F1(R%) FOR R%=1% TO 3%
820 F1(R%)=0% FOR R%=1% TO 3%
825 RETURN
830 END