05 REM: PROGRAM NAME: "STU110"
10 REM-PROGRAM BUILDS SMALL STUDNT NAME FILE
20 OPEN "DF:STUDNT.NAM" AS FILE 1
30 DIM #1,S$(1500)=32
40 INPUT "ENTER INPUT FILE NAME,DEV:NAME.EXT";I$
45 OPEN I$ FOR INPUT AS FILE 2
50 FIELD #2,510 AS R$
55 ON ERROR GOTO 400
60 INPUT "J";J
65 IF J=99999 THEN GOTO 500
70 GET #2
90 IF LEFT(R$,5)="99999" GOTO 300
100 LETS$(J)=LEFT(R$,30)
110 LET J=J+1
112 LET K%=J
120 GOTO 70
300 PRINT "J=";J
310 CLOSE 2
320 GOTO 40
400 PRINT "ERROR =";ERR
410 STOP
500 LET S$(K%)="99999"+SPACE$(27)
505 CLOSE 1,2
510 END