05 REM- PROGRAM NAME:"EXP049"
07 REM- PROGRAM CLEANS UP EMPLOYEE FILE AFTER CHECK RUN
10 OPEN "DF:EMPLOY.MST" AS FILE 1
20 DIM #1, E1$(500)=255
21 OPEN "LP:" FOR OUTPUT AS FILE 3
30 FOR J%=1 TO 500
40 LET E$=E1$(J%)
50 IF LEFT(E$,6)="999999" GOTO 500
51 LET G=G+VAL(MID(E$,101,7))
52 LET F=F+VAL(MID(E$,115,6))
53 LET S=S+VAL(MID(E$,121,6))
54 LET C=C+VAL(MID(E$,127,6))
58 LET D=D+VAL(MID(E$,108,7))
60 IF MID(E$,29,1)<>"1" GOTO 310
65 LET L1$=MID(E$,45,6)        !GROSS EARNINGS
66 LET L2$=MID(E$,51,5)
200 IF MID(E$,30,1)<>"1" GOTO 300
220 LET X9=VAL(MID(E$,194,5))+VAL(MID(E$,213,5))+
     VAL(MID(E$,232,5))
230 IF VAL(L1$)=X9 GOTO 300
235 LET X9$=NUM$(X9)
240 GOSUB 400
245 LET L1$=SPACE$(M)+X1$
250 LET L2$="00000"
255 LET Z9=Z9+1
300 LET E1$(J%)=LEFT(E$,28)+"0"+MID(E$,30,15)+L1$+L2$+
     MID(E$,56,181)+"000000"+MID(E$,243,13)
310 NEXT J%
400 LET A=LEN(X9$): LET N=1
405 LET A=A-1
410 IF A>6  GOTO 425
412 LET X1$=MID(X9$,N,A)
415 LET M=6-A
420 RETURN
425 IF LEFT(X9$,1)<>" " THEN STOP
435 LET N=N+1
440 LET A=A-1
445 GOTO 410
500 CLOSE 1
501 LET G=G/100: LET F=F/100: LET S=S/100: LET C=C/100
502 PRINT #3, "YTD GROSS, FICA, STATE TAX, FED TAX ="
503 LET Z=INT(G)
504 LET Y=G-Z
505 PRINT #3, USING "###,###,###.",Z;
506 LET Y=Y*100
507 PRINT #3, USING "##",Y;
508 PRINT #3, USING 
  "###,###,###.## ###,###,###.## ###,###,###.##",C,S,F
509 LET D=D/100
510 PRINT #3, USING "QUARTERLY GROSS = ###,###.##",D
511 CLOSE 1,3
515 IF Z9=0 GOTO 600
520 CHAIN "EXP051"
600 END