10 REM PGM NAME STU022 23-OCT-73 20 REM SUMMARIZES COUNT OF STUDENTS BY SEX BY RESIDENT AND NON RESIDENT 23 OPEN "LP:" AS FILE 2 27 PRINT#2, SPACE$(6)+"NORTH COUNTRY UNION HIGH SCHOOL" 30 INPUT "DEV:FILNAM.EXT";I$ 35 IF I$="END" GO TO 320 40 OPEN I$ AS FILE 1 45 FIELD#1, 510 AS S$ 50 FOR I%=1 TO 500 60 GET#1 70 IF LEFT(S$,5)="99999" GO TO 220 80 LET A$=MID(S$,146,1) 90 IF A$="D" OR A$="V" OR MID(S$,112,1)="S" GO TO 200 100 IF MID(S$,79,1)="M" THEN LET S=1 ELSE LET S=3 110 IF MID(S$,71,1)="0" OR MID(S$,71,1)="4" THEN LET T=0 ELSE LET T=1 120 ON S+T GO TO 130,150,170,190 130 LET M0=M0+1 140 GO TO 200 150 LET M1=M1+1 160 GO TO 200 170 LET F0=F0+1 180 GO TO 200 190 LET F1=F1+1 200 NEXT I% 220 INPUT "CLASS";C$ 240 PRINT#2, SPACE$(20-LEN(C$)/2)+C$ 250 PRINT#2 260 PRINT#2, SPACE$(18)+"M"+SPACE$(7)+"F" 270 PRINT#2,SPACE$(12); 280 PRINT#2, USING "NR ### ###",M0,F0 285 PRINT#2, SPACE$(12); 290 PRINT#2 FOR I=1 TO 4 300 CLOSE 1 310 GO TO 30 320 CLOSE 2 330 END