05 ! PROGRAM NAME "RET002"
10 OPEN "DF:EMPLOY.RET" AS FILE 1
20 DIM#1, R1$(500)=64
30 OPEN "DF:EMPLOY.MST" AS FILE 2
40 DIM#2, E1$(500)=255
50 LET I,J=1
60 LET R$=R1$(I)
65 IF LEFT(R$,6)="999999" GO TO 200
70 LET I$=LEFT(R$,6)
80 LET E$=E1$(J)
90 IF MID(I$,4,3)=MID(E$,4,3) GO TO 130
100 IF MID(I$,4,3)<MID(E$,4,3) GO TO 180
110 LET J=J+1
120 GOTO 80
130 LET R=VAL(MID(R$,55,7))-VAL(MID(E$,151,6))
140 LET R0$=NUM$(R)
150 LET R0$=MID(R0$,2,LEN(R0$)-2)
160 LET R0$=SPACE$(7-LEN(R0$))+R0$
170 LET R1$(I)=LEFT(R$,54)+R0$
180 LET I=I+1
190 GOTO 60
200 CLOSE 1,2
210 END