05 REM-PROGRAM NAME"EXP276" 06 REM-PROGRAM ADJUSTS YTD TOTALS BY ADDING IN VALUES FROM PREVIOUS BACKUPS OF EMPLOYEE MASTERS 10 OPEN "DF:EMPLOY.MST" AS FILE 1 20 DIM #1, E1$(500)=255 30 OPEN "DF:EMPLOY.TMP" AS FILE 2 40 DIM #2, T$(500)=255 45 OPEN "LP:" FOR OUTPUT AS FILE 3 55 LET J%=1 56 LET E$=E1$(J%) 60 LET L%=L%+1 61 IF LEFT(T$(L%),6)="999999" GOTO 590 65 IF MID(T$(L%),29,1)<>"1" GOTO 60 90 IF MID(E$,4,3)MID(T$(L%),4,3) GOTO 200 110 LET N1=VAL(MID(E$,101,7))+VAL(MID(T$(L%),45,6)) 111 LET T1=T1+VAL(MID(T$(L%),45,6)) 115 LET N3=VAL(MID(E$,115,6))+VAL(MID(T$(L%),51,5)) 116 LET T3=T3+VAL(MID(T$(L%),51,5)) 120 LET N4=VAL(MID(E$,121,6))+VAL(MID(T$(L%),56,5)) 121 LET T4=T4+VAL(MID(T$(L%),56,5)) 125 LET N5=VAL(MID(E$,127,6))+VAL(MID(T$(L%),61,5)) 126 LET T5=T5+VAL(MID(T$(L%),61,5)) 130 LET X9$=NUM$(N1) 131 LET L=7 132 GOSUB 400 135 LET M=7-A 136 LET M=7-A 138 LET N1$=SPACE$(M)+X1$ 140 LET X9$=NUM$(N3) 142 LET L=6 144 GOSUB 400 146 LET M=6-A 148 LET N3$=SPACE$(M)+X1$ 160 LET X9$=NUM$(N4) 165 GOSUB 400 166 LET M=6-A 168 LET N4$=SPACE$(M)+X1$ 170 LET X9$=NUM$(N5) 175 GOSUB 400 176 LET M=6-A 178 LET N5$=SPACE$(M)+X1$ 180 LET E1$(J%)=LEFT(E$,100)+N1$+MID(E$,108,7)+N3$+N4$+N5$+ MID(E$,133,123) 184 LET E$=E1$(J%) 185 GOTO 60 200 PRINT "CANNOT FIND MASTER FOR ID # ";LEFT(C$,6) 210 GOTO 60 300 LET J%=J%+1 305 LET E$=E1$(J%) 310 GOTO 90 400 LET N=1 405 LET A=LEN(X9$) 410 LET A=A-1 415 IF A>L GOTO 450 420 LET X1$=MID(X9$,N,A) 425 LET M=L-A 430 RETURN 450 IF LEFT(X9$,1)<>" " THEN STOP 455 LET N=N+1 460 LET A=A-1 465 GOTO 415 500 IF ERR=11 GOTO 600 510 IF ERR=13 OR ERR=14 GOTO 550 520 PRINT "ERROR = ";ERR 525 STOP 550 SLEEP(5) 560 RESUME 590 LET T1=T1/100 591 LET T3=T3/100 592 LET T4=T4/100 593 LET T5=T5/100 600 PRINT #3, USING"TOTAL GROSS ######.## TOT FED #####.##", T1,T3 605 PRINT #3, USING "TOT STATE #####.## TOT FICA #####.##", T4,T5 607 CLOSE 1,2,3 610 END