2 ! FIXES FICA CATEGORIES FOR 941'S
5 ! PROGRAM NAME:"FIX941" - BY JAC
10 OPEN "DK1:PAYROL.MST" AS FILE 1%:DIM #1%,A$(1500%)=128%,A%(0%):N%=A%(0%)
15 OPEN "DK1:PAYROL.QRT" AS FILE 2%:DIM #2%,Q$(1500%)=64%,Q%(0%)
20 INPUT "INPUT THE QUARTER NUMBER - 1, 2, 3, OR 4";Q%:Q%=(Q%-1%)*16%+1%:
	F9$=" !     ##,###.##     "
25 PRINT "TYPE 'CR' FOR EMP.# TO TERMINATE THE PROGRAM."
30 PRINT "TYPE 'CR' TO LEAVE FLAG AND WAGE BLANK.":
	PRINT "TYPE WAGE IN WITHOUT DECIMAL."
35 INPUT "EMP#";E$:IF LEN(E$)=0% THEN CLOSE 1%,2%:STOP
45 J%=N%/2%:L%=J%
50 IF E$=MID(A$(L%),39%,4%) THEN 90 ELSE IF E$>MID(A$(L%),39%,4%) THEN 70
55 IF L%<=1% THEN 85 ELSE J%=J%/2%:L%=L%-J%:IFL%<1% THEN L%=1%
60 IF J%>0% THEN 50
65 IF E$>=MID(A$(L%),39%,4%)THEN 85 ELSE IF L%<=1%THEN85 ELSE L%=L%-1%:GOTO 65
70 IF L%>=N% THEN 85 ELSE J%=J%/2:L%=L%+J%:IF L%>N% THEN L%=N%
75 IF J%>0% THEN 50
80 IF E$<=MID(A$(L%),39%,4%) THEN 85 ELSE IF L%<N% THEN L%=L%+1%:GOTO 80
85 IF E$<>MID(A$(L%),39%,4%) THEN PRINT "EMP.# ";E$;"NOT FOUND IN MST":GOTO 35
90 PRINT LEFT(A$(L%),24%):PRINT "PRESENT STATUS":GOSUB 150:PRINT "FIRST WAGE"
95 GOSUB 200:F1$=F$:A1$=A$:PRINT "SECOND WAGE":GOSUB 200
105 Q$(L%)=LEFT(Q$(L%),Q%-1%)+F1$+A1$+F$+A$
110 PRINT "NEW STATUS":GOSUB 150:GOTO 35
150 PRINT "FLAG   FIRST WAGE    FLAG   SECOND WAGE"
155 PRINT USING F9$,MID(Q$(L%),Q%,1%),VAL(MID(Q$(L%),Q%+1%,7%))/100%;
160 PRINT USING F9$,MID(Q$(L%),Q%+8%,1%),VAL(MID(Q$(L%),Q%+9%,7%))/100%:RETURN
200 INPUT "FLAG";F$:IF LEN(F$)=0% THEN F$=" " ELSE IF LEN(F$)<>1% THEN
	PRINT "BAD ENTRY":GOTO 200
205 INPUT "WAGE";A$:IF LEN(A$)=0% THEN A$=SPACE$(7%) ELSE
	A$=SPACE$(7%-LEN(A$))+A$
210 RETURN
220 END