100	! SKOOL2 -- HIGH SCHOOL CODE SELECTOR PROGRAM
	! FOR ADMISSIONS FILE (ONLY)
120	! CODES TO SELECT MUST BE ENTERED USING 'SKOOL1'.
140	! 16-OCT-73	J. WARDEN	WABASH COLLEGE
160 C9$=CHR$(13%)+CHR$(10%)
180 N6%=1% : N1%=255%
200 PRINT"SKOOL2  (HS CODE SELECTOR)"
220 K%=0%			! COUNTER
240 ON ERROR GO TO 380
260 OPEN"SKOOL.TMP" FOR INPUT AS FILE 1%
280 DIM Y$(100)=6%
300 I%=1%
320 INPUT #1%,Y$(I%) : I%=I%+1% : GO TO 320
340 T%=I%-1% : CLOSE 1% : L$=Y$(1%) : H$=Y$(T%) : GO TO 420
360	! ERROR SUBROUTINE
380 IF ERR<>11% THEN ON ERROR GO TO 0
400 IF ERL>1400% THEN RESUME 800 ELSE RESUME 340
420 PRINT"CODES: ";L$;" TO ";H$
440 INPUT"OUTPUT FILE";O$
460 OPEN O$ FOR OUTPUT AS FILE 4%
480 FIELD #4%,N1%*B% AS Z$, N1% AS B$(B%) FOR B%=0% TO N6%
500 B%=0%
520 INPUT"SELECT FROM FILE";F$
540 OPEN F$ FOR INPUT AS FILE 1
560 FIELD #1%,N1%*A% AS Z$, N1% AS A$(A%) FOR A%=0% TO N6%
580 IF A%<N6% THEN A%=A%+1% ELSE A%=0% : GET #1%
600	IF ASCII(A$(A%))=92% THEN 800
610	! INSERT SELECTOR LINE HERE:
	! IF MID(A$(A%), X, Y) <IS TO BE REJECTED> THEN 580
620 Q$=MID(A$(A%),125%,6%)	! HS FIELD (ADM ONLY!)
640 IF Q$<L$ OR Q$>H$ THEN 580
660	FOR I%=1% TO T%
680	IF Q$=Y$(I%) THEN 740
700	NEXT I%
720 GO TO 580
740 LSET B$(B%)=A$(A%)
760 IF B%<N6% THEN B%=B%+1% ELSE B%=0% : PUT #4%
780 K%=K%+1% : GO TO 580
800  LSET B$(B%)="\\\\\\"+SPACE$(247%)+C9$ FOR B%=B% TO N6%
820  PUT #4%
840 CLOSE 1%,4%
860 PRINT K%;"RECORDS SELECTED FROM ";F$
880 END