2 ! PRINTS 941-A TAX RECONCILIATION
5 ! PROGRAM NAME:"941REC" - BY JAC
10 OPEN "DK1:PAYROL.MST" AS FILE 1%:DIM #1%,A$(1500%)=128%,A%(0%)
20 OPEN "DK1:PAYROL.QRT" AS FILE 2%:DIM #2%,Q$(1500%)=64%,Q%(0%)
30 OPEN "LP:" FOR OUTPUT AS FILE 3%,MODE 66%:DIM Q2(4%),T(7%)
35 OPEN "DK1:PAYROL.MDR" AS FILE 4%:DIM #4%,M$(1500%)=128%,M%(0%),D$(0%)=8%
45 D$=D$(0%):F$=LEFT(D$,2%):F1$=RIGHT(D$,7%)
50 IF F$=" 3" THEN D1$="MARCH 31,19"+F1$:Q1%=1%:GOTO 70
55 IF F$=" 6" THEN D1$="JUNE 30,19"+F1$:Q1%=2%:GOTO 70
60 IF F$=" 9" THEN D1$="SEPTEMBER 30,19"+F1$:Q1%=3%:GOTO 70
65 IF F$="12" THEN D1$="DECEMBER 31,19"+F1$:Q1%=4%
70 CLOSE 4%:D$="NONCERTIFIED":C$="1":N%=A%(0%):Q%=8%:S1$="   "
75 R$="\ \##,###.##":R1$="#,###,###.##":C=1260000
80 L$="SCHOOL DISTRICT 91'S SHARE FOR ":GOSUB 200
85 T(I%)=0% FOR I%=1% TO 7%
90 D$="CERTIFIED":C$="2":L$="STATE'S SHARE FOR ":B%=0%:GOSUB 200
95 T(I%)=0% FOR I%=1% TO 7%
100 D$="FICA EXEMPT":C$="3":B%=0%:GOSUB 200:CLOSE 1%,2%,3%:STOP
200 J%=0%:Z%=-1%:GOSUB 400
205 FOR K%=1% TO N%
208 Q2(I%)=0% FOR I%=1% TO 4%
210 FOR I%=1% TO Q1%:Q2(I%)=0%:P%=(I%-1%)*16%+1%
215 FOR J9%=1% TO 2%:IF MID(Q$(K%),P%,1%)=C$ THEN
	Q2(I%)=VAL(MID(Q$(K%),P%+1%,7%)):T(I%)=T(I%)+Q2(I%):Z%=0%
230 E=E+VAL(MID(Q$(K%),P%+1%,7%)):P%=P%+8%:NEXT J9%:NEXT I%
235 IF Z% THEN 315 ELSE IF Q2(1%)=0% AND Q2(2%)=0% AND Q2(3%)=0% AND Q2(4%)=0%
	THEN 315
240 N$=LEFT(A$(K%),24%):S$=MID(A$(K%),25%,12%):Z%=-1%:PRINT #3%,TAB(Q%);N$;S$;
245 A$(K%)=LEFT(A$(K%),24%)+" "+RIGHT(A$(K%),26%)
250 PRINT #3%,USING R$,S1$,Q2(I%)/100%; FOR I%=1% TO Q1%
260 PRINT #3%,TAB(84%+Q%);:PRINT #3%,USING R$,S1$,E/100%;:T(5%)=T(5%)+E
265 IF C$="3" THEN N1=Q2(Q1%):GOTO 295
270 D=C-E+Q2(Q1%):IF D<0% THEN N1=Q2(Q1%):GOTO 295
275 D=C-E:IF D>0% THEN N1=0% ELSE Q2(Q1%)=Q2(Q1%)+D:N1=-D
285 PRINT #3%,USING R$,S1$,Q2(Q1%)/100%;:T(6%)=T(6%)+Q2(Q1%):IF N1=0% THEN 305
295 PRINT #3%,TAB(108%+Q%);:T(7%)=T(7%)+N1:PRINT #3%,USING R$,S1$,N1/100%;
305 PRINT #3%:B%=B%+1%:L%=L%+1%:IF L%>52% THEN GOSUB 400
315 E=0%:NEXT K%
320 PRINT #3%,TAB(Q%);"**TOTALS FOR ";D$;"**"
325 PRINT #3%,TAB(10%+Q%);"NUMBER OF EMPLOYEES ";B%;TAB(36%+Q%);:FOR I%=1% TO 7%
330 IF T(I%)=0% THEN PRINT #3%,"            ";:GOTO 340
335 PRINT #3%,USING R1$,T(I%)/100%;
340 NEXT I%
345 IF C$="3" THEN 390
350 PRINT #3%,"**":PRINT #3%
355 PRINT #3%,TAB(Q%);"TOTAL 941-A TAXABLE FOR ";D$;TAB(50%+Q%);
360 PRINT #3%,USING R1$,T(6%)/100%;:PRINT #3%,"*":T1=T(6%)*117%
370 PRINT #3%,TAB(Q%);"TOTAL FICA TAX FOR ";D$;TAB(50%+Q%);
375 PRINT #3%,USING R1$,T1/100000;:PRINT #3%,"*":T1=T1/2%
380 PRINT #3%,TAB(Q%);L$;D$;TAB(50%+Q%);
385 PRINT #3%,USING R1$,T1/100000;:PRINT #3%,"*"
390 PRINT #3%:RETURN
400 PRINT #3%,CHR$(129%):J%=J%+1%:L%=0%
405 PRINT #3%,TAB(Q%);D$;TAB(40%+Q%);"941-A TAX RECONCILIATION";
410 PRINT #3%,TAB(75%+Q%);D1$;TAB(105%+Q%);"PAGE ";J%:PRINT #3%
415 PRINT #3%,TAB(8%+Q%);"EMPLOYEE";TAB(29%+Q%);"FICA";TAB(43%+Q%);"1ST";
420 PRINT #3%,TAB(55%+Q%);"2ND";TAB(67%+Q%);"3RD";TAB(79%+Q%);"4TH";
425 PRINT #3%,TAB(90%+Q%);"TOTAL       941-A      CUR QRT"
428 PRINT #3%,TAB(10%+Q%);"NAME";
430 PRINT #3%,TAB(28%+Q%);"NUMBER       QUARTER     QUARTER     QUARTER     ";
435 PRINT #3%,"QUARTER    EARNINGS     TAXABLE    NON-TAXABLE":PRINT #3%:RETURN
445 END