10 OPEN "DF:STUDNT.MST" AS FILE 1
20 DIM#1, S1$(500)=511
30 OPEN "LP:" AS FILE 2
40 FOR I=1 TO 13
50 READ C$,T$
60 PRINT#2, CHR$(12)
70 PRINT#2,SPACE$(20)+T$
75 LET N=0
80 FOR J=1 TO 500
90 LET S$=S1$(J)
100 IF LEFT(S$,5)="99999" GO TO 195
110 IF MID(S$,71,1)<>C$ GO TO 180
120 IF MID(S$,146,1)="D" OR MID(S$,146,1)="V" GO TO 180
130 IF MID(S$,112,1)="S" GO TO 150
135 LET R$=" "
140 LET N=N+1
145 GO TO 160
150 LET R$="*"
160 PRINT#2,R$+LEFT(S$,5)+"  "+MID(S$,6,25)
180 NEXT J
190 STOP
195 PRINT#2: PRINT#2,"NUMBER OF STUDENTS NOT INCLUDING SPECIAL ED= ";N
200 NEXT I
210 CLOSE 1,2
220 STOP
1000 DATA 0,NONRESIDENT
1010 DATA 1,NEWPORTCITY
1020 DATA 2,NEWPORTTOWN
1030 DATA 3,CHARLESTON
1040 DATA 4,COVENTRY
1050 DATA 5,HOLLAND
1060 DATA 6,LOWELL
1070 DATA 7,WESTFIELD
1080 DATA 8,DERBY
1090 DATA 9,TROY
1100 DATA A,MORGAN
1110 DATA B,BRIGHTON
1120 DATA C,JAY
1130 END