100 ! GRDSP2 -- GRADE SPECTRUM TOTALS: ! USE CLASS LIST FILE 120 ! 13-FEB-74 J. WARDEN WABASH COLLEGE 140 PRINT"GRADE SPECTRUM TALLY: TOTALS" 160 H1$="GRADE NUMBER PERCENTAGE" 180 H2$="----- ------ ----------" 200 H3$=" \ \ ##### ####.#" 220 H1$=CHR$(9%)+H1$ : H2$=CHR$(9%)+H2$ : H3$=CHR$(9%)+H3$ 240 DIM C%(25),C(25) 260 G2$=" A A-B+B B-C+C C-D F P CRS W WPWFINCO" 280 N%=4% : N6%=3% : N1%=510%/N% 300 ON ERROR GO TO 500 320 INPUT "CLASS LIST FILE";F1$ 340 F1%=INSTR(1%,F1$,":") : IF F1% THEN F0$=RIGHT(F1$,F1%+1%) ELSE F0$=F1$+"" 360 F2$=MID(F0$,3%,1%) : IF F2$="F" THEN F0$="FALL 19"+RIGHT(F0$,4%) ELSE IF F2$="S" THEN F0$="SPRING 19"+RIGHT(F0$,4%) 380 INPUT"OUTPUT TO";F2$ 400 OPEN F1$ FOR INPUT AS FILE 1% 420 FIELD #1%,N1%*A% AS Z$,N1% AS A$(A%) FOR A%=0% TO N6% 440 OPEN F2$ FOR OUTPUT AS FILE 2% 460 B%=0% 480 GO TO 580 500 IF ERR<>5% THEN ON ERROR GO TO 0 520 PRINT CHR$(7%)+"** CAN'T FIND "+F1$+" **" : RESUME 540 540 INPUT"INPUT FILE (DEV:FILE)";F1$ ! TRY FOR INPUT FILE AGAIN 560 GO TO 400 580 ON ERROR GO TO 820 600 IF A%11% THEN ON ERROR GO TO 0 840 ! === OUTPUT RESULTS === 860 C0=C% 880 FOR I%=0% TO 18% 900 C=C%(I%) : C(I%)=100.*C/C0 920 NEXT I% 940 D%(1%)=C%(1%)+C%(2%) : D(1%)=C(1%)+C(2%) 960 D%(2%)=C%(3%)+C%(4%)+C%(5%) : D(2%)=C(3)+C(4)+C(5) 980 D%(3%)=C%(6%)+C%(7%)+C%(8%) : D(3%)=C(6)+C(7)+C(8) 1000 D%(4%)=C%(9%) : D%(5%)=C%(10%) : D(4)=C(9) : D(5)=C(10) 1020 D$(I%)=CHR$(64%+I%) FOR I%=1% TO 5% 1040 D$(5)="F" 1060 PRINT #2%," GRADE SPECTRUM FOR ";F0$ 1080 %," WABASH COLLEGE";SPACE$(10%);DATE$(0%) 1100 %,CHR$(10%) 1120 %,H1$ : %,H2$ 1140 % 1160 %,USING H3$,"NONE",C%(0%),C(0%) 1180 % 1200 FOR I%=1% TO 18% 1220 %,USING H3$,MID(G2$,2%*I%+1%,2%),C%(I%),C(I%) 1240 IF I%=10% THEN % 1260 NEXT I% 1280 % 1300 %,USING H3$,"TOTAL",C%,100. 1320 %,CHR$(10%)+CHR$(10%) 1340 %,H1$ : %,H2$ : % 1360 %,USING H3$,D$(I%),D%(I%),D(I%) FOR I%=1% TO 5% 1380 INPUT"ANOTHER COPY (Y/N)";Y$ : IF ASCII(Y$)=89% THEN %,CHR$(12%); : GO TO 1060 1400 CLOSE 1%,2% 1420 END