2 ! PRINTS TSA ACCOUNT LISTING
5 ! PROGRAM NAME:"PRTTSA"
10 OPEN "LP:" FOR OUTPUT AS FILE 1%,MODE 51%
15 OPEN "DK1:PAYROL.MST" AS FILE 2%
20 DIM #2%,A$(1500%)=128%,A%(0%)
25 OPEN "DK1:PAYROL.MDR" AS FILE 3%
30 DIM #3%,M$(1500%)=128%,M%(0%),D1$(0%)=8%
35 J%=1%:L%=0%:Q$="#,###.##":N%=A%(0%)
40 C$="00-01-0-0000-2220.51":GOSUB 300
45 FOR K%=1% TO N%
48 IF MID(M$(K%),47%,1%)="N" THEN 110
50 M%=VAL(MID(M$(K%),48%,1%)):P%=57%
55 FOR I%=1% TO M%
60 T%=VAL(MID(M$(K%),P%,2%))
65 IF T%<40% OR T%>60% THEN 100
70 A=VAL(MID(M$(K%),P%+2%,6%)):F=F+A:N$=LEFT(A$(K%),24%)
75 E$=MID(A$(K%),37%,6%):T$=MID(NUM$(T%),2%,2%)
80 PRINT #1%,TAB(20%);N$;"     ";E$;"     ";T$;"     ";
85 PRINT #1%,USING Q$,ABS(A)/100%;:IF A<0% THEN PRINT #1%,"CR";
90 PRINT #1%,TAB(82%);C$
95 GOSUB 350
100 P%=P%+8%
105 NEXT I%
110 NEXT K%
115 PRINT #1%
120 PRINT #1%,TAB(50%);"**TSA TOTAL**";TAB(65%);
125 PRINT #1%,USING "##"+Q$,ABS(F)/100%;
128 IF F<0% THEN PRINT #1%,"CR*" ELSE PRINT #1%,"  *"
130 PRINT #1%,CHR$(128%+2%):CLOSE 1%,2%,3%
135 STOP
300 PRINT #1%,CHR$(128%+2%)
305 PRINT #1%,TAB(20%);"SCHOOL DISTRICT NO. 91";TAB(50%);"TSA ACCOUNT ";
310 PRINT #1%,"LISTING";TAB(80%);D1$(0%);TAB(95%);"PAGE ";J%
315 PRINT #1%:PRINT #1%,TAB(28%);"EMPLOYEE";TAB(48%);"EMPLOYEE";
320 PRINT #1%,"  TSA DED";TAB(84%);"GENERAL LEDGER"
325 PRINT #1%,TAB(30%);"NAME";TAB(49%);"NUMBER    CODE      AMOUNT";
330 PRINT #1%,TAB(89%);"CODE":PRINT #1%
335 RETURN
350 L%=L%+1%:IF L%<38% THEN 360
355 J%=J%+1%:L%=0%:GOSUB 300
360 RETURN
365 END