10 REM-PROGRAM NAME:"EXP091"
20 REM-PROGRAM PRINTS OUT QUARTERLY STATE EARNING REPORT
30 OPEN "DF:EMPLOY.MST" AS FILE 1
40 DIM #1,E1$(600)=255
50 OPEN "LP:" FOR OUTPUT AS FILE 2
55 INPUT "QUARTER ENDING DATE"; Q$
57 LET P%=2
60 INPUT "PRINTER LINED UP";I$
70 IF I$="YES" GOTO 100
80 PRINT #2, SPACE$(50)
90 GOTO 60
100 GOSUB 440: LET C%=16
110 FOR J%=1 TO 600
120 LET E$=E1$(J%)
130 IF LEFT(E$,6)="999999" GOTO 345
140 IF VAL(MID(E$,101,7))=0 THEN GOTO 240
145 LET N1=VAL(MID(E$,101,7))/100
147 LET S$=MID(E$,243,9)
149 FOR I=1 TO 9
151 IF MID(S$,I,1)="0" THEN LET S$=LEFT(S$,I-1)+"O"+RIGHT(S$,I+1)
153 NEXT I
155 PRINT#2, SPACE$(6)+LEFT(S$,3)+" "+MID(S$,4,2)+" "+RIGHT(S$,6);
160 PRINT #2,SPACE$(4)+MID(E$,7,15);
170 LET N=VAL(MID(E$,108,7))/100  !QUARTERLY GROSS
180 LET T=T+N
190 LET T1=T1+N
200 PRINT#2, USING "                 #####.##",N
210 LET K%=K%+1: LET K2%=K2%+1
220 LET C%=C%+1
230 IF C%=60 THEN GOSUB 250
240 NEXT J%
250 PRINT #2, SPACE$(50): PRINT #2, SPACE$(40);
260 PRINT#2, K%;: PRINT#2, SPACE$(7);
270 PRINT #2, USING"###,###.##",T1
280 LET T1=0
290 LET K%=0
300 FOR Y%=1 TO 10
310 PRINT #2, SPACE$(50)
320 NEXT Y%
325 GOSUB 440
330 LET C%=16
340 RETURN
345 PRINT#2, SPACE$(50)
350 LET C%=C%+1
360 IF C%=60 THEN 380
370 GOTO 345
380 GOSUB 250
385 PRINT:PRINT:PRINT:PRI NT
390 PRINT USING "TOTAL COVERED WAGES        $#,###,###.##",T
400 PRINT USING "TOTAL CONTRIBUTIONS          $###,###.##",T*.117
410 PRINT USING "TOTAL NUMBER OF EMPLOYEES          #,###",K2%
415 PRINT:PRINT:PRINT:PRINT
420 CLOSE 1,2
430 GOTO 500
440 PRINT#2, SPACE$(51)+Q$+SPACE$(7);P%
450 LET P%=P%+1
460 FOR Y%=1 TO 9
470 PRINT#2, SPACE$(50)
480 NEXT Y%
490 RETURN
500 END