05 REM PROGRAM NAME STU027
07 REM PROGRAM DROPS STUDENTS FROM MASTER FILE
10 OPEN "DF:STUDNT.MST" AS FILE 1
20 DIM#1, S1$(500)=511
25 OPEN "LP:" AS FILE 2
26 PRINT#2, SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
27 PRINT#2,
  "THE FOLLOWING STUDENTS HAVE BEEN DROPPED FROM THE STUDENT";
28 PRINT#2, " MASTER LIST"+DATE$(0)
30 PRINT#2
31 PRINT"PROGRAM DROPS STUDENTS FROM MASTER FILE"
35 PRINT
40 INPUT "ID#";I$
45 IF I$="END" GO TO 500
50 FOR J%=1 TO 600
55 LET S$=S1$(J%)
60 IF LEFT(S$,5)="99999" GO TO 200
70 IF LEFT(S$,5)<>I$ GO TO 100
80 LET S1$(J%)=LEFT(S$,145)+"D"+MID(S$,147,364)
81 PRINT#2, LEFT(S$,5)+" "+MID(S$,6,25)
90 GO TO 40
100 NEXT J%
200 PRINT"CANNOT FIND MASTER FOR ID#"+I$
210 GO TO 40
500 CLOSE 1,2
510 END