2 ! PRINTS RETIREMENT DEDUCTION REPORT
5 ! PROGRAM NAME:"PRTRDR" - BY JAC
10 OPEN "DK1:PAYROL.MST" AS FILE 1%
15 DIM #1,A$(1500%)=128%,A%(0%)
20 OPEN "DK1:PAYROL.MDR" AS FILE 2%
25 DIM #2%,M$(1500%)=128%,M%(0%),D$(0%)=8%:D$=D$(0%)
30 OPEN "LP:" FOR OUTPUT AS FILE 3%,MODE 66%
35 J%=1%:L%=0%:Q$="##,###.##":Q%=20%:N%=A%(0%):GOSUB 300
40 FOR K%=1% TO N%
45 IF MID(M$(K%),47%,1%)="N" THEN 95
50 N$=LEFT(A$(K%),24%):S$=MID(A$(K%),26%,11%)
55 A=VAL(LEFT(M$(K%),8%)):R=VAL(MID(M$(K%),51%,6%)):E$=MID(A$(K%),37,6%)
60 T=T+A:IF R<>0 THEN F=F+A:R1=R1+R
65 IF R=0% THEN R$=SPACE$(7%) ELSE R$="3.0-6.0"
70 PRINT #3%,TAB(Q%);S$;"    ";E$;"   ";N$;"  ";R$;"     ";
75 PRINT #3%,USING Q$,A/100%;:PRINT #3%,"    ";
80 IF R=0% THEN 90
85 PRINT #3%,USING Q$,R/100%;
90 PRINT #3:GOSUB 350
95 NEXT K%
100 PRINT #3%:PRINT #3%,TAB(Q%);"NUMBER OF EMPLOYEES ";N%;TAB(35%+Q%);
105 PRINT #3%,"TOTAL SALARIES";TAB(59%+Q%);
110 PRINT #3%,USING "#,#"+Q$,T/100%;:PRINT #3,"**"
115 PRINT #3%,TAB(35%+Q%);"TOTAL RET. DEDUCTION";TAB(74%+Q%);
120 PRINT #3%,USING "#"+Q$,R1/100%;
125 PRINT #3%,"**":PRINT #3%,TAB(35%+Q%);"TOTAL ELIGIBLE SALARIES ";
130 PRINT #3%,USING "#,#"+Q$,F/100%;
135 PRINT #3%,"**":PRINT #3%,CHR$(128%+1%):CLOSE 1%,2%,3%:STOP
300 PRINT #3%,CHR$(128%+1%)
305 PRINT #3%,TAB(Q%);"SCHOOL DISTRICT NO. 91";TAB(30%+Q%);"RETIREMENT ";
310 PRINT #3%,"DEDUCTION REPORT";TAB(65%+Q%);D$,TAB(80%+Q%);"PAGE ";J%
315 PRINT #3%:PRINT #3%,TAB(14%+Q%);"EMPLOYEE";TAB(29%+Q%);"EMPLOYEE";
320 PRINT #3%,TAB(64%+Q%);"CURR MO     DEDUCTION"
325 PRINT #3%,TAB(2%+Q%);"FICA NO.     NUMBER";TAB(31%+Q%);"NAME";
330 PRINT #3%,TAB(52%+Q%);"RATE";TAB(65%+Q%);"SALARY";TAB(78%+Q%);"AMOUNT"
335 PRINT #3%:RETURN
350 L%=L%+1%:IF L%<52% THEN 360
355 J%=J%+1%:L%=0%:GOSUB 300
360 RETURN
365 END