10 REM-PROGRAM NAME:"EXP090"
20 REM-PROGRAM INSERTS SOCIAL SECURITY NUMBER INTO 
     EMPLOYEE RECORD
30 OPEN "DF:EMPLOY.MST" AS FILE 1
40 DIM #1,E1$(600)=255
50 OPEN "CR:" FOR INPUT AS FILE 2
60 FIELD #2,80 AS C$
65 ON ERROR GOTO 400
70 LET J%=1
75 GET #2
80 LET E$=E1$(J%)
90 IF LEFT(E$,6)="999999" GOTO 500
100 IF MID(C$,4,3)>MID(E$,4,3) GOTO 300
110 IF MID(C$,4,3)<MID(E$,4,3) GOTO 250
120 LET E1$(J%)=LEFT(E$,242)+MID(C$,20,9)
130 GET #2
140 GOTO 300
250 PRINT "CANNOT FIND MASTER FOR ";LEFT(C$,6)
260 GET #2
270 GOTO 100
300 LET J%=J%+1
310 GOTO 80
400 IF ERR=11 GOTO 500
410 IF ERR<>14 GOTO 450
420 SLEEP(2)
430 RESUME
450 PRINT "ERROR =";ERR
500 CLOSE 1,2
510 END
410 1F ERR<>14 GOTO 450