100	! CLST2C -- COMPILES MASTER KEY FILE FROM WHICH
	! A COMPLETE SET OF CLASS LISTS MAY BE GENERATED.
120	! OUTPUT FILE: CLKEY.  SORT THIS FILE ON COLUMNS 1&2;
	! USE CLST3C TO GENERATE LISTS.
140	! (KEY FILE HAS 63 RECORDS/BLOCK)
160	! 29-AUG-73	J. WARDEN	WABASH COLLEGE
180 I5%=0%	! STUDENT ##
200 DIM S$(64)
220 ON ERROR GO TO 400
240 PRINT"CLASS LIST KEY FILE GENERATOR"
260 INPUT" CLASS LIST FILE (DEV:FILE)";F3$
280 OPEN F3$ FOR INPUT AS FILE 3% :
	FIELD #3%,127%*C% AS Z$, 127% AS C$(C%) FOR C%=0% TO 3%
300 INPUT"OUTPUT TO (DEV:CLKEY)";F2$ : F2%=INSTR(1%,F2$,":") :
	IF F2%=0% THEN F2$="CLKEY" ELSE
	F2$=LEFT(F2$,F2%)+"CLKEY"
320 OPEN F2$ FOR OUTPUT AS FILE 2%
340 FIELD #2%,8%*S% AS Z$,8% AS S$(S%) FOR S%=0% TO 62%
360	S%=0%	!!!
380 GO TO 480 
400 IF ERR<>5% THEN ON ERROR GO TO 0
420 IF ERL=280% THEN PRINT"CAN'T FIND  ";F3$ :
	INPUT"CLASS LIST";F3$ : RESUME 280
440 ON ERROR GO TO 0
460 	! READ CLASS LIST FILE AND TALLY
480 IF C%<3% THEN C%=C%+1% ELSE C%=0% : GET #3%
500 IF LEFT(C$(C%),1%)="\" THEN 720
520 I5%=I5%+1%
540 T%=(INSTR(40%,C$(C%),"     ")-35%)/7%	! ## COURSES
560 	FOR I%=1% TO T%
580	K%=41%+(I%-1%)*7%	! SELECT COURSE STRING
600	LSET S$(S%)=CVT%$(VAL(MID(C$(C%),K%,3%)))+CVT%$(I5%)
	+MID(C$(C%),K%+3%,4%)
620	IF S%<62% THEN S%=S%+1% ELSE S%=0% : PUT #2%,COUNT 504%
640 A%=A%+1%
660	NEXT I%
680 GO TO 480 
700	! TALLY IS COMPLETE - BEGIN PRINTOUT
720 LSET S$(H%)="\\\\\\\\" FOR H%=S% TO 62%
740 PUT #2%, COUNT 504%
760 CLOSE 2%,3%
780 PRINT A%;" COURSE KEYS WRITTEN INTO FILE '"+F2$+"' (63 R/B)"
800 PRINT"SORT THIS FILE ON COLUMNS 1&2; THEN OUTPUT CLASS LISTS"
820 PRINT"USING 'CLST3C'." : PRINT
840 ON ERROR GO TO 880
860 CHAIN "DK1:$SORTX"
880 END