10 REM-PROGRAM NAME:STU007
20 REM - PROGRAM SUMMARIZES COUNT OF REGISTERED STUDENTS
30 OPEN "DF:STUDNT.MST" AS FILE 1
40 DIM #1, S1$(500)=510
50 OPEN "LP:" FOR OUTPUT AS FILE 2
60 PRINT #2, SPACE$(20)+"NORTH COUNTRY UNION HIGH SCHOOL"
61 PRINT#2,SPACE$(13)+"COUNT OF STUDENTS BY TOWN ON "+DATE$(0)
70 LET T1$=" "
71 INPUT"CLASS";Y$
80 INPUT "TOWN";T$
90 PRINT #2,SPACE$(25)+T$+" "+Y$
100 IF T$="NONRESIDENT" THEN LET T1$="0"
110 IF T$="NEWPORTCITY" THEN LET T1$="1"
120 IF T$="NEWPORTTOWN" THEN LET T1$="2"
130 IF T$="CHARLESTOWN" THEN LET T1$="3"
140 IF T$="COVENTRY" THEN LET T1$="4"
150 IF T$="HOLLAND" THEN LET T1$="5"
160 IF T$="LOWELL" THEN LET T1$="6"
170 IF T$="WESTFIELD" THEN LET T1$="7"
180 IF T$="DERBY" THEN LET T1$="8"
190 IF T$="TROY" THEN LET T1$="9"
200 IF T$="MORGAN" THEN LET T1$="A"
210 IF T$="BRIGHTON" THEN LET T1$="B"
220 IF T$="JAY" THEN LET T1$="C"
230 IF T1$=" " THEN GOTO 80
240 FOR J%=1 TO 500
250 IF LEFT(S1$(J%),5)="99999" GOTO 310
260 IF MID(S1$(J%),146,1)="D" OR MID(S1$(J%),146,1)="V" THEN
     GOTO 300
265 IF MID(S1$(J%),112,1)="S" GOTO 300
270 IF MID(S1$(J%),71,1)<>T1$ THEN GOTO 300
280 PRINT #2,LEFT(S1$(J%),5)+" "+MID(S1$(J%),6,25)+X$
290 LET S=S+1
300 NEXT J%
310 LET S%=S
320 PRINT #2,SPACE$(78)
330 PRINT #2,"TOTAL NUMBER OF STUDENTS FROM "+T$+" ="S%
340 CLOSE 1
350 END