05 ! PROGRAM NAME "RET001"
10 OPEN "DF:EMPLOY.RET" AS FILE 1
20 DIM#1, R1$(500)=64
30 OPEN "CR:" AS FILE 2
40 FIELD#2, 80 AS C$
50 ON ERROR GO TO 350
60 OPEN "DF:EMPLOY.MST" AS FILE 3
70 DIM#3, E1$(500)=255
100 LET I,K=1
110 GET#2
120 LET I$=MID(C$,5,6)		!EMP #
130 LET J$=MID(C$,12,5)               !ACTIVE #
140 LET K$=LEFT(C$,3)                !LINE #
150 LET N$=MID(C$,18,40)              !NAME
160 LET E$=E1$(I)
170 IF MID(E$,4,3)=MID(I$,4,3) GO TO 230
180 IFMID(E$,4,3)>MID(I$,4,3) GO TO 210
190 LET I=I+1
200 GO TO 160
210 PRINT "CAN'T FIND MASTER RECORD FOR ID#"+I$
220 STOP
230 LET R=VAL(MID(E$,151,6))
300 LET R$=NUM$(R)
310 LET R$=MID(R$,2,LEN(R$)-2)
320 LET R$=SPACE$(7-LEN(R$))+R$
330 LET R1$(K)=I$+K$+J$+N$+R$
335 LET K=K+1
340 GOTO 110
350 IF ERR=11 GO TO 410
360 IF ERR=13 OR ERR=14 GO TO 390
370 PRINT USING "ERROR ### AT LINE ###",ERR,ERL
380 STOP
390 SLEEP(2)
400 RESUME
410 LET R1$(K)="99999999999999"+SPACE$(50)
420 CLOSE 1,2,3
430 END