05 REM-PROGRAM NAME: "STU005" 06 REM - PROGRAM LOADS DISK WITH STUDNT REC FROM TAPE 10 OPEN "DF:STUDNT.MST" AS FILE 1 20 DIM #1, S1$(500)=512 30 INPUT "ENTER INPUT FILE NAME,DEV:NAME.EXT";I$ 40 OPEN I$ FOR INPUT AS FILE 2 50 FIELD #2, 510 AS R$ 55 ON ERROR GOTO 150 60 LET J%=J%+1 70 GET #2 80 LET S1$(J%)=R$ 85 IF LEFT(R$,5)="99999" GOTO 200 90 GOTO 60 150 IF ERR=11 GOTO 200 160 PRINT "ERROR =";ERR 170 STOP 200 CLOSE 1,2 210 END