100	! CUMAV -- SEM CUM AND CUM AVERAGES FOR:
	! RESIDENCES, ALL COLLEGE, AND CLASS YEARS
120	! NONCURRENT STU & STU OFF CAMPUS ARE NOT COUNTED
130	! MEANS ARE WEIGHTED BY COURSE CREDITS TWD CUM
140	! 07-FEB-74	J. WARDEN	WABASH COLLEGE
160 PRINT"WEIGHTED AVERAGES OF GPA FOR RESIDENCES & YEARS"
180 INPUT"CLASS YR OF SENIOR CLASS (EX: 73)";Y% : Y2%=Y%-16%
200 DIM Z$(20)
220 DEF FNC(X%)=CVT$F(MID(A$(A%),X%,4%))
240 READ Z$(I%) FOR I%=1% TO 20%
260 DATA "BETA   ","DELT   ","KAP SIG","LAM CHI","PHIDELT"
280 DATA "PHI GAM","PHI PSI","SIG CHI","TEKE   "
300 DATA "KINGERY","MARTIND","MORRIS ","WOLCOTT","C'VILLE"
320 DATA "WABASH ","SENIOR ","JUNIOR ","SOPH   ","FROSH  "
340 DATA "SPECIAL"
360 Q1%=65% : Q2%=69% : Q3%=81%
380 INPUT "4 OR 9 POINT";Q4% :
	IF Q4%<>4% AND Q4%<>9% THEN 380
400 IF Q4%=9% THEN Q1%=41% : Q2%=45%
420 ON ERROR GO TO 1120
440 N%=4% : N6%=N%-1% : N1%=510%/N%
460 INPUT"GPA FILE";F$
462	F%=INSTR(1%,F$,":") : IF F% THEN F0$=RIGHT(F$,F%+1%)
	ELSE F0$=F$+""
464	F1$=MID(F0$,4%,1%) : IF F1$="F" THEN F1$="FALL "
	ELSE IF F1$="S" THEN F1$="SPRING " ELSE F1$=F0$
466	F1$=F1$+"19"+RIGHT(F0$,5%)
480 OPEN F$ FOR INPUT AS FILE 1%
500 FIELD #1%,N1%*A% AS Z$,N1% AS A$(A%) FOR A%=0% TO N6%
520 INPUT"OUTPUT TO (DEV:FILE)";L$
540 OPEN L$ FOR OUTPUT AS FILE 2
560 DIM S(20),N(20),W(20),N1(20),N2(20)
620 IF A%<N6% THEN A%=A%+1% ELSE A%=0% : GET #1%
640 	IF LEFT(A$(A%),1%)="\" THEN 1140
660	IF MID(A$(A%),123%,1%)="X" THEN O%=O%+1% :
	GO TO 620	! LEAVE OUT OFF-CAMPUS STUDENTS
			! BUT COUNT W/D STU!!!!!!
680 D$=MID(A$(A%),12%,1%)	! RESIDENCE
700 D%=ASCII(D$)-48%
720 IF D%<0% OR D%>13% THEN D%=14%	! INVALID CHARACTER
740 S1=FNC(Q1%) : C1=FNC(Q2%) : H1=FNC(Q3%)
	! SEM CUM    CUM      CC
760 H4=FNC(91%)	! SEM CRED TWD CUM
780 S(D%)=S(D%)+S1*H4
800 W(D%)=W(D%)+C1*H1
820 N(D%)=N(D%)+1
830 N2(D%)=N2(D%)+H4
840 N1(D%)=N1(D%)+H1
860 Y$=MID(A$(A%),7%,2%)
880 IF ASCII(Y$)<>55% THEN 940
900 Y%=VAL(Y$)-Y2%	! YEAR SLOTS - 16,17,18,19
920 GO TO 980
940 Y%=20%
980 W(Y%)=W(Y%)+C1*H1
1000 S(Y%)=S(Y%)+S1*H4
1020 N1(Y%)=N1(Y%)+H1
1030 N2(Y%)=N2(Y%)+H4
1040 S(15%)=S(15%)+S1*H4 : N(15%)=N(15%)+1
1050 N2(15%)=N2(15%)+H4
1060 N1(15%)=N1(15%)+H1 : W(15%)=W(15%)+C1*H1
1080 N(Y%)=N(Y%)+1
1100 GO TO 620
1120 IF ERR<>11% THEN ON ERROR GO TO 0
1140 PRINT #2,"   WEIGHTED GROUP AVERAGES OF GPA ON";Q4%;"POINT SYSTEM"
1150 PRINT #2%,"   ";F1$;SPACE$(30%);DATE$(0%)
1160 PRINT #2
1180 PRINT #2,"   GROUP          NUMBER    SEM AVE       CUM AVE"
1200 PRINT #2%,CHR$(10%)
1220 W$="   \          \   ####      ##.###        ##.###"
1240 FOR I%=1% TO 20%
1260 IF I%=15% THEN PRINT #2% :
	PRINT #2%,USING W$,"OFF CAMPUS",O% : PRINT #2%
1280 IF I%=15% OR I%=16% THEN PRINT #2%
1300 IF N(I%)<1 THEN 1440
1320 IF Q4%=9% THEN IF I%=19% THEN 1440
1330 IF N2(I%)=0 THEN S(I%)=0 : GO TO 1360
1340 S(I%)=S(I%)/N2(I%)
1360 IF N1(I%)=0% THEN W(I%)=0% : GO TO 1400
1380 W(I%)=W(I%)/N1(I%)
1400 PRINT #2%,USING W$,Z$(I%),N(I%),S(I%),W(I%)
1420 PRINT #2%
1440 NEXT I%
1460 PRINT #2%,CHR$(26%)
1480 CLOSE 1%,2%
1500 END