05 REM-PROGRAM NAME:"STU105"
06 REM- PROGRAM LOADS TEACHER NAME FILE USING ID NUM AS
     THE SUBSCRIPT
10 OPEN "CR:" FOR INPUT AS FILE 1
20 FIELD #1, 80 AS C$
30 OPEN "DF:TEACHR.MST" AS FILE 2
40 DIM #2,T$(300)=16
50 ON ERROR GOTO 400
60 GET #1
70 IF MID(C$,58,1)>"9" GOTO 200
80 LET J=VAL(MID(C$,58,2))     !GET TCHR ID NUMBR
90 LET T$(J)=MID(C$,47,11)     !GET TCHR NAME
100 GOTO 60
200 IF MID(C$,58,1)="A" THEN LET J=100+VAL(MID(C$,59,1))
210 IF MID(C$,58,1)="B" THEN LET J=110+VAL(MID(C$,59,1))
220 GOTO 90
400 IF ERR=11 THEN GOTO 500
410 IF ERR=13 OR ERR=14 GOTO 420
415 GOTO 480
420 SLEEP(5)
430 RESUME
480 PRINT "ERROR =";ERR
490 STOP
500 CLOSE 1,2
510 END