1	! CYEARS - ALLOWS INPUT OF SELECTED CLASS YEARS 
	! FOR USE WITH 'LABELX'.  A FILE 'CYFIL.TMP'
	! IS CREATED.
2	! J. WARDEN		06-FEB-73
060 DIM Y$(100)=2%
080 ON ERROR GO TO 220
100 PRINT"CLASS YEARS TO BE SELECTED BY 'LABELX'"
120 PRINT"ENTER YEARS IN ANY ORDER - END WITH 'STOP'"
140 I%=1%
160 INPUT Y$(I%) : IF Y$(I%)="STOP" THEN 300
180 IF LEN(Y$(I%))<>2% THEN PRINT"=> RETYPE!" : GO TO 160
200 Y%=VAL(Y$(I%)) : GO TO 240
220 PRINT"NOT A VALID CLASS YEAR - RETYPE!" :
	RESUME 160
240 I%=I%+1% : GO TO 160
300 I%=I%-1%
340 FOR J%=1% TO I%
360	FOR K%=1% TO I%-1%
380	IF Y$(K%)<Y$(K%+1%) THEN 440
400	IF Y$(K%)=Y$(K%+1%) THEN Y$(K%)="\\" : GO TO 340
420	Y$=Y$(K%) : Y$(K%)=Y$(K%+1%) : Y$(K%+1%)=Y$
440 	NEXT K%
460 NEXT J%
470 PRINT"THE YEARS SELECTED ARE:"
482	FOR J%=1% TO I%
484	IF Y$(J%)="\\" THEN I%=I%-1% : GO TO 488
486	PRINT Y$(J%)+" "; : NEXT J%
488 PRINT
490 INPUT"CORRECT (Y/N)";Y$ : IF ASCII(Y$)=78%
	THEN PRINT"OK, LET'S START OVER.  FROM THE TOP:" :
	GO TO 140
495 ON ERROR GO TO 0
500 OPEN "CYFIL.TMP" FOR OUTPUT AS FILE 2%
520 FOR J%=1% TO I%
530 PRINT #2%,Y$(J%)
540 NEXT J%
550 PRINT #2%,"\\" : PRINT #2%,CHR$(26%)
560 CLOSE 2%
600 PRINT I%;" YEARS WRITTEN INTO FILE 'CYFIL.TMP'"
999 END