2 ! PRINTS EMPLOYEES TSA DEDUCTIONS
5 ! PROGRAM NAME:PETSA - BY CWR
6 DIM D8$(12%),D$(99%),D(99%),D1(99%):S%,M9%=1%
7 Q1$="\      \ ##,###.##":Q2$="         ##,###.##*"
15 OPEN "LP:" FOR OUTPUT AS FILE 1%,MODE 66%:J%=0%:W=100
20 OPEN "DK1:PAYROL.MST" AS FILE 2%:GET #2%:FIELD #2%,2% AS M$:M%=CVT$%(M$)
	:B%=1%
25 OPEN "DK1:PAYROL.YDR" AS FILE 3%,RECORDSIZE 1536%:GET #3%:FOR K%=1% TO 12%
	:FIELD #3%,(K%-1%)*128% AS E$,8% AS E$:D8$(K%)=E$+"":NEXT K%
30 OPEN "DK1:PAYROL.DED" FOR INPUT AS FILE 4%:D%=0%:GET #4%:FIELD #4%
	,2% AS N$:G%=CVT$%(N$)
35 FOR I%=1% TO G%:D1%=I%/16%+1%:IF D1%<>D% THEN GET #4%,RECORD D1%:D%=D1%
40 O%=(I%-(D%-1%)*16%)*32%:FIELD #4%,O% AS E$,2% AS N$,22% AS N1$:D%=VAL
	(N$):D$(D%)=N1$+"":D,D1(D%)=0:NEXT I%:CLOSE 4%
100 FOR K%=M9% TO M%:B1%=K%/4%+1%:IF B1%<>B% THEN GET #2%,RECORD B1%:B%=B1%
110 O%=(K%-(B%-1%)*4%)*128%:FIELD #2%,O% AS E$,24% AS N$,12% AS E$,6% AS N1$
	,27% AS E$,24% AS N2$,16% AS N3$,6% AS N4$
115 GET #3%,RECORD 3%*K%+1%
120 D%=0%:A=0:FOR J%=1% TO 12%:I%=J%:GOSUB 1200 : GOTO 210 IF F4$="N":FOR H1%=0% TO X%:H%=H1%:GOSUB 1210
130 D1%=VAL(F3$):GOTO 200 IF D1%<41% OR D1%>59%:FOR D2%=1% TO D%:GOTO 200
	IF D%(D2%)=D1%:NEXT D2%
140 D%=D%+M9%:D%(D%)=D1%:PRINT #M9%,CHR$(129%):PRINT #M9%,TAB(22%);"SCHOOL ";
	"DISTRICT NO. 91":PRINT #M9%,TAB(22%);"690 JOHN ADAMS PARKWAY":PRINT 
	#M9%,TAB(22%);"IDAHO FALLS, IDAHO  83401":PRINT #M9%
145 PRINT #M9%,TAB(22%);RIGHT(D$(D1%),5%):PRINT #M9%,TAB(22%);
	"TAX SHELTERED ANNUITY":PRINT #M9%
150 PRINT #M9%,TAB(22%);N$;TAB(50%);"EMP # ";N1$
160 PRINT #M9%,TAB(22%);N2$:PRINT #M9%,TAB(22%);N3$;"  ";N4$:PRINT #M9%:
	PRINT #M9%:PRINT #M9%,TAB(23%);"PAYROLL      TSA":PRINT #M9%,TAB(24%);
	"DATE      AMOUNT":PRINT #M9%
165 FOR I%=J% TO 12%:GOTO 170 IF I%=J%:GOTO 190 IF F4$="N":
	FOR H%=0% TO X%:GOSUB 1210:D3%=VAL(F3$):GOTO 180 IF D3%<>D1%
170 PRINT #M9%,USING SPACE$(22%)+Q1$,D8$(I%),VAL(D$)/W:PRINT #M9%:A=A+VAL(D$)
180 NEXT H%
190 NEXT I%:PRINT #1%,TAB(22%);:PRINT #1%,USING Q2$,A/W:A=0:I%=J%
200 NEXT H1%
210 NEXT J%
220 NEXT K%
230 CLOSE 1%,2%,3%:STOP
1200 FIELD #3%,(I%-1%)*128%+46% AS E$,1% AS F4$,1% AS X$:X%=VAL(X$):RETURN
1210 FIELD #3%,(I%-1%)*128%+H%*8%+48% AS E$,2% AS F3$,6% AS D$:RETURN
9000 END