100	! SKOOL1 -- ALLOWS INPUT OF SELECTED HIGH SCHOOL
	! CODES FOR USE WITH SELECTOR PROGRAM 'SKOOL2'.
120	! A FILE 'SKOOL.TMP' IS CREATED.
140	! 16-OCT-73	J. WARDEN	WABASH COLLEGE
160 DIM Y$(100)=6%
180 ON ERROR GO TO 320
200 PRINT"HIGH SCHOOL CODES TO BE SELECTED BY 'SKOOL2'"
220 PRINT"ENTER CODES IN ANY ORDER - END WITH 'STOP'"
240 I%=1%
260 INPUT Y$(I%) : IF Y$(I%)="STOP" THEN 340
280 IF LEN(Y$(I%))<>6% THEN PRINT"** RETYPE **" :
	GO TO 260
300 I%=I%+1% : GO TO 260
320 PRINT"**RETYPE **" : RESUME 260
340 I%=I%-1%
360 FOR J%=1% TO I%
380	FOR K%=1% TO I%-1%
400	IF Y$(K%)<Y$(K%+1%) THEN 460
420	IF Y$(K%)=Y$(K%+1%) THEN Y$(K%)="\\\\\\" : GO TO 460
440	Y$=Y$(K%) : Y$(K%)=Y$(K%+1%) : Y$(K%+1%)=Y$
460 	NEXT K%
480 NEXT J%
500 PRINT"THE SCHOOL CODES SELECTED ARE:"
520	FOR J%=1% TO I%
540	IF Y$(J%)="\\\\\\" THEN I%=I%-1% : GO TO 580
560	PRINT Y$(J%)+" "; : NEXT J%
580 PRINT
600 INPUT"CORRECT (Y/N)";Y$ : IF ASCII(Y$)=78%
	THEN PRINT"OK, LET'S START OVER.  FROM THE TOP:" :
	GO TO 240
620 ON ERROR GO TO 0
640 OPEN"SKOOL.TMP" FOR OUTPUT AS FILE 2%
660 FOR J%=1% TO I%
680 PRINT #2%,Y$(J%)
700 NEXT J%
720 PRINT #2%,CHR$(26%)
740 CLOSE 2%
760 PRINT I%;"SCHOOL CODES RECORDED"
780 END