2 ! PRINTS YEAR TO DATE QUARTERLY REPORT!
5 ! PROGRAM NAME:"PRTYQR" - BY JAC.
10 INPUT "QUARTER NUMBER";Q%:IF Q%<1% OR Q%>4% THEN 10
15 OPEN "LP:" FOR OUTPUT AS FILE 1%,MODE 66%:J%=0%:Q9$="#,###.##  ":W%=100%:
	Q8$="#,###.##* ":P%=Q%*3%:DIM D$(12%),A$(5%),A(7%),A1(7%),A2(7%),Q(7%),
	F(7%):F(I%),Q(I%)=0 FOR I%=0% TO 7%
20 OPEN "DK1:PAYROL.MST" AS FILE 2%:GET #2%:FIELD #2%,2% AS M$:M%=CVT$%(M$):
	B%=1%:Q$="\      \   "+Q9$+"###.##   #"+Q9$+Q9$+Q9$+Q9$+Q9$+Q9$
25 OPEN "DK1:PAYROL.YDR" AS FILE 3%,RECORDSIZE 1536%:GET #3%:FOR K%=1% TO P%:
	FIELD #3%,(K%-1%)*128% AS E$,8% AS D1$:D$(K%)=D1$+"":NEXT K%:GOSUB 300:
	Q1$="\      \   "+Q8$+"###.##*  #"+Q8$+Q8$+Q8$+Q8$+Q8$+Q8$
35 FOR K%=1% TO M%:B1%=K%/4%+1%:IF B1%<>B% THEN GET #2%,RECORD B1%:B%=B1%
40 O%=(K%-(B%-1%)*4%)*128%:FIELD #2%,O% AS E$,24% AS N$,12% AS E$,6% AS E1$:
	PRINT #1%,TAB(5%);N$;"  ";E1$:A(H%)=0 FOR H%=0% TO 7%
45 GET #3%,RECORD 3%*K%+1%:FOR I%=1% TO P%-3%:GOSUB 200:GOTO 55 IF F4$="N":
	A(H%)=A(H%)+VAL(A$(H%)) FORH%=0%TO 5%:X%=VAL(X$):FOR H%=0% TOX%:GOSUB210
50 A(6%)=A(6%)+VAL(D$) IF F3$="61":A(7%)=A(7%)+VAL(D$) IF F3$>"40" AND F3$<"60":
	NEXT H%
55 NEXT I%:PRINT #1%,TAB(23%);"PRIOR YTD AS OF ";:Q1%=P%-3%:GOSUB 250:
	L%=L%+2%:GOSUB 300 IF L%>54%
65 A1(I%)=0 FOR I%=0% TO 7%:FOR I%=P%-2% TO P%:GOSUB 200:GOTO 80 IF F4$="N":
	A2(H%)=VAL(A$(H%)) FOR H%=0% TO 5%:A2(6%),A2(7%)=0
70 X%=VAL(X$):FOR H%=0% TO X%:GOSUB 210:A2(6%)=A2(6%)+VAL(D$) IF F3$="61":
	A2(7%)=A2(7%)+VAL(D$) IF F3$>"40" AND F3$<"60":NEXT H%
75 PRINT #1%,TAB(39%);:PRINT #1%,USING Q$,D$(I%),A2(4%)/W%,A2(5%)/W%,
	A2(0%)/W%,A2(7%)/W%,A2(1%)/W%,A2(2%)/W%,A2(3%)/W%,A2(6%)/W%:L%=L%+1%:
	GOSUB 300 IF L%>=54%:A1(H%)=A1(H%)+A2(H%) FOR H%=0% TO 7%
80 NEXT I%:PRINT #1%,TAB(8%);"**EMPLOYEE TOTALS**";TAB(29%);"QTD AS OF ";:
	PRINT #1%,USING Q1$,D$(P%),A1(4%)/W%,A1(5%)/W%,A1(0%)/W%,A1(7%)/W%,
	A1(1%)/W%,A1(2%)/W%,A1(3%)/W%,A1(6%)/W%:PRINT #1%:A(H%)=A(H%)+A1(H%) 
	FOR H%=0% TO 7%
85 Q(H%)=Q(H%)+A1(H%) FOR H%=0% TO 7%:PRINT #1%,TAB(29%)+"YTD AS OF ";:Q1%=P%:
	GOSUB 250:PRINT #1%:PRINT #1%:L%=L%+5%:GOSUB 300 IF L%>54%:
	F(H%)=F(H%)+A(H%) FOR H%=0% TO 7%
90 NEXT K%:PRINT #1%,TAB(8%)+"TOTAL EMPLOYEES",M%:PRINT #1%,"**FINAL TOTALS**";
	"      QTD ";:Q1$="\      \**###,###.##**##,###.##**#,###,###.##**"+
	"###,###.##**###,###.##**###,###.##**###,###.##**###,###.##":Q1%=P%
95 A(H%)=Q(H%) FOR H%=0% TO 7%:GOSUB 250:PRINT #1%:PRINT #1%,TAB(22%)+"YTD ";:
	A(H%)=F(H%) FOR H%=0% TO 7%:GOSUB 250:CLOSE 1%,2%,3%:STOP
200 FIELD #3%,(I%-1%)*128% AS E$,8% AS A$(0%),7% AS E$,7% AS A$(1%),7% AS A$(2%)
	,7% AS A$(3%),5% AS A$(4%),5% AS A$(5%),1% AS F4$,1% AS X$:RETURN
210 FIELD #3%,(I%-1%)*128%+H%*8%+48% AS E$,2% AS F3$,6% AS D$:RETURN
250 PRINT #1%,USING Q1$,D$(Q1%),A(4%)/W%,A(5%)/W%,A(0%)/W%,A(7%)/W%,A(1%)/W%,
	A(2%)/W%,A(3%)/W%,A(6%)/W%:RETURN
300 PRINT #1%,CHR$(129%):J%=J%+1%:L%=0%
305 PRINT #1%,TAB(5%);"SCHOOL DISTRICT NO. 91";TAB(45%);"YEAR TO DATE QUARTERLY"
	;" REPORT";TAB(85%);"QUARTER ENDING ";D$(P%);TAB(115%);"PAGE ";J%:
	PRINT #1%
310 PRINT #1%,TAB(13%);"EMPLOYEE";TAB(32%);"EMP.     DATE       TOTAL     O/T";
	TAB(71%);"GROSS       TSA     FEDERAL    STATE     FICA      PER"
315 PRINT #1%,TAB(15%);"NAME";TAB(33%);"NO.   MO-DY-YR     HOURS    HOURS";
	TAB(70%);"EARNINGS    AMOUNT     TAX       TAX       TAX    WITHHELD":
	PRINT #1%:RETURN
320 END