10 REM-PROGRAM NAME:"STU055"
20 REM- PROGRAM CHANGES STUDENT NAME
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1,S1$(600)=510
50 INPUT "ID#";I$
60 IF I$="END" GOTO 500
70 FOR J%=1 TO 600
80 LET S$=S1$(J%)
90 IF LEFT(S$,5)="99999" GOTO 400
100 IF LEFT(S$,5)<>I$ GOTO 350
110 INPUT "ENTER NEW NAME--LAST/FIRST/M";N$
115 LET S$=O$: LET J=0
120 INPUT N$
122 FOR I%=1 TO 25
124 IF MID(N$,I%,1)="/" GO TO 132
126 LET N1$=N1$+MID(N$,I%,1)
128 NEXT I%
130 STOP
132 LET J=J+1
134 IF J=2 THEN GO TO 142
136 IF LEN(N1$)>15 THEN LET N1$=LEFT(N1$,15)
138 LET N1$=N1$+SPACE$(15-LEN(N1$))
140 GO TO 128
142 IF LEN(N1$)>24 THEN LET N1$=LEFT(N1$,24)
144 LET N1$=N1$+SPACE$(24-LEN(N1$))
146 LET N1$=N1$+MID(N$,I%+1%,1)
160 LET S1$(J%)=LEFT(S$,5)+N1$+RIGHT(S$,31)
170 GOTO 50
350 NEXT J%
400 PRINT "CANNOT FIND MASTER FOR ID#";I$
410 GOTO 50
500 CLOSE 1
510 END