100	! ADVLIS - PRINTS LIST OF STUDENTS,YR,ADVISORS
120	! FILES REQUIRED: CLI AND PRO
140	! 03-DEC-73	J. WARDEN	WABASH COLLEGE
180 ON ERROR GO TO 1280 
200 PRINT"STUDENT-ADVISOR  LIST OR LABELS"
220 INPUT"DO YOU WANT PAGES (P) OR LABELS (L)";L$ :
	L%=ASCII(L$)-76% : IF L%*(L%-4%) THEN
	PRINT CHR$(7%)+"WAKE UP !!" : GO TO 220
280 F9%=0% : F7%=0%       ! INITIALIZE FLAGS
300	! GET PROFESSOR FILE; PUT IN CORE
320 DIM P4$(20%),P$(100%)
340 INPUT"PROF FILE";P$ : IF P$="" THEN P$="DK1:PROF15"
350 OPEN P$ FOR INPUT AS FILE 2%
360 FIELD #2%,34%*P% AS Z$, 34% AS P4$(P%) FOR P%=0% TO 14%
380 IF P%<14% THEN P%=P%+1% ELSE P%=0% : GET #2%
400  IF LEFT(P4$(P%),1%)="\" THEN 480 
420  I%=VAL(MID(P4$(P%),8%,2%))	! PROF #
440  P$(I%)=MID(P4$(P%),11%,16%)	! NAME
460  GO TO 380 
480  CLOSE 2%
500 INPUT"CLASS LIST FILE (DEV:FILE)";F$
520 INPUT"OUTPUT TO (DEV:FILE)";O$
540 INPUT"SKIP PAST ID";Z2$
560 OPEN F$ FOR INPUT AS FILE 3%
580 FIELD #3%,127%*R% AS Z$,127% AS A$(R%) FOR R%=0% TO 3%
600 OPEN O$ FOR OUTPUT AS FILE 4%
620 IF LEN(Z2$)<>6% THEN 680 
640 IF R%<3% THEN R%=R%+1% ELSE R%=0% : GET #3%
660 IF Z2$>LEFT(A$(R%),6) THEN 640 
680 IF L%=0% THEN 1100
700	! PAGE-PRINTING ROUTINE
720 GOSUB 980 	! HEADER LINE
740 FOR Z%=1% TO 25%
760 IF R%<3% THEN R%=R%+1% ELSE R%=0% : GET #3%
780 IF LEFT(A$(R%),1%)="\" THEN 1300 
820 P1$=P$(VAL(MID(A$(R%),9%,2%)))	! ADVISOR
860 PRINT #4%,SPACE$(10%)+MID(A$(R%),13%,26%)+"  ";
	MID(A$(R%),7%,2%)+"    "+P1$
880 PRINT #4%
900 NEXT Z%
920 PRINT #4%,CHR$(12%) : GO TO 720
960	! HEADER SUBROUTINE
980 PRINT#4
1000 PRINT#4,SPACE$(10)+"STUDENT-ADVISOR LIST        "+DATE$(0)
1020 PRINT#4
1040 PRINT#4,SPACE$(10)+"STUDENT"+SPACE$(20)+"YEAR   ADVISOR"
1060 PRINT#4 FOR I=1 TO 2
1080 RETURN
1100 	! LABEL-PRINTING ROUTINE
1120 IF R%<3% THEN R%=R%+1% ELSE R%=0% : GET #3%
1140 IF LEFT(A$(R%),1%)="\" THEN 1300 
1160 PRINT #4,MID(A$(R%),13%,26%)+MID(A$(R%),7%,2%)
1180 PRINT #4, P$(VAL(MID(A$(R%),9%,2%)))		! ADVISOR
1200 PRINT #4,SPACE$(22%)+LEFT(A$(R%),6%)		! ID CODE
1220 PRINT #4,CHR$(10%)+CHR$(10%)
1240 GO TO 1120 
1260	! THAT'S ALL FOR NOW...
1280 IF ERR=52% THEN PRINT"BAD ADVISOR CODE FOR ";LEFT(A$(R%),6%) :
	RESUME 760
1290 IF ERR<>11% THEN ON ERROR GO TO 0
1300 PRINT#4,CHR$(26)
1320 CLOSE 1,2,3,4
1340 END