10 REM-PROGRAM NAME:"STU017"
20 REM-PROGRAM CLEARS OUT 2 WK PICTURE
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1,S1$(600)=510
50 FOR J%=1 TO 600
60 LET S$=S1$(J%)
70 IF LEFT(S$,5)="99999" GOTO 500
80 LET S1$(J%)=LEFT(S$,116)+MID(S$,122,5)+SPACE$(5)+MID(S$,127,384)
90 NEXT J%
500 CLOSE 1
510 END