05 REM-PROGRAM NAME: "STU060
06 REM-PROGRAM SETS "TYPE OF PROG" TO SPECIAL ED
10 OPEN "DF:STUDNT.MST" AS FILE 1
20 DIM #1, S1$(600)=510
40 INPUT "ID # ";I$
45 IF I$="END" GOTO 500
50 FOR J%=1 TO 600
55 LET S$=S1$(J%)
60 IF LEFT(S$,5)="99999" GOTO 200
70 IF LEFT(S$,5)<>I$ GOTO 100
80 LET S1$(J%)=LEFT(S$,111)+"S"+MID(S$,113,399)
90 GOTO 40
100 NEXT J%
200 PRINT "CANNOT FIND MSTR FOR ID#";I$
210 GOTO 40
500 CLOSE 1
510 END