10 ! DELETE DEDUCTIONS 98 AND 99 AFTER PAYROLL
11 ! PROGRAM NAME D9899 BY CWR
30 OPEN "DK1:PAYROL.MDR" AS FILE 2%
60 DIM #2,M$(1500%)=128%,M%(0%),D$(0%)=8%
70 Z%=M%(0%)
110 FOR I%=1% TO Z%
160 N%=VAL(MID(M$(I%),48%,1%))
170 K%=57%
180 FOR I1%=1% TO N%
190 S1$=MID(M$(I%),K%,2%)
200 IF S1$="98" OR S1$="99" THEN 238
210 K%=K%+8%
220 NEXT I1%
230 GOTO 310
238 M$(I%)=LEFT(M$(I%),K%-1%)+RIGHT(M$(I%),K%+8%)+SPACE$(8%)
241 N%=N%-1%
242 M$(I%)=LEFT(M$(I%),47%)+MID(NUM$(N%),2%,1%)+RIGHT(M$(I%),49%)
250 GOTO 160
310 NEXT I%
330 CLOSE 1%,2%,3%
500 END