10 REM PROGRAM NAME:"STU031"
20 REM PROGRAM CHANGES ID # OF STUDENT
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1,S1$(400)=511
45 OPEN "DF:STUDNT.TMP" AS FILE 2
46 DIM #2, T$(100)=511
50 INPUT "ENTER ID# AND 3 CHARS, #####NNN";I$
51 IF I$="END" GOTO 600
60 FOR J%=1 TO 400
70 LET S$=S1$(J%)
80 IF LEFT(S$,5)="99999" GOTO 500
90 IF LEFT(S$,8)=LEFT(I$,8) GOTO 300
100 NEXT J%
300 INPUT "ENTER NEW ID #, XXXXX";X$
305 IF LEN(X$)<>5 GOTO 300
307 IF LEFT(X$,1)<>LEFT(I$,1) THEN GOTO 400
310 LET S1$(J%)=X$+MID(S$,6,505)
320 GOTO 50
400 LETI%=I%+1
405 LET T$(I%)=X$+MID(S$,6,505)
406 FOR J%=J% TO 400
407 LET X%=J%+1
408 LET S1$(J%)=S1$(X%)
409 IF LEFT(S1$(J%),5)="99999" THEN GOTO 50
410 NEXT J%
415 GOTO 50
500 PRINT "CANNOT FIND MASTER FOR ";I$
510 GOTO 50
600 CLOSE 1
602 IF I%=0 GOTO 610
605 LET I%=I%+1
606 LET T$(I%)="99999"+SPACE$(505)
608 CLOSE 2
610 END