100 ! ANALYS -- PREPARES ANALYSIS OF STUDENT APPLICATIONS ! (SAT VERBAL, MATH MEDIANS REQUIRED - RUN 'SATMED') ! SAT DISTRIBUTIONS, PERCENTILE IN CLASS, TOTALS 120 ! 27-SEP-74 J. WARDEN WABASH COLLEGE 140 &"ADM SAT,RANK PROFILES AND TALLY V03C" 160 DIM V%(20),M%(20),R%(12),R2(12),R3(12) 180 Q2%=0% ! ONLY ONE SEL CRIT 200 N%=2% ! 2 REC/BLOCK 220 N1%=510%/N% : N3%=N%*N1% : N6%=N%-1% 240 INPUT"ADMISSIONS FILE";F$ 260 OPEN F$ FOR INPUT AS FILE 1% 280 Q2%=INSTR(1%,F$,":") : IF Q2% THEN H1$=RIGHT(F$,Q2%+1%) ELSE H1$=F$ 300 FIELD #1%,N1%*A% AS Z$, N1% AS A$(A%) FOR A%=0% TO N6% 320 INPUT"OUTPUT TO (DEV:FILE)";D1$ 340 IF LEN(D1$)<1% THEN D1$="KB:" 360 OPEN D1$ FOR OUTPUT AS FILE 2% 400 Q1%=0% ! SET TO 1% FOR REGIONAL SELECTION 420 IF Q1%=0% THEN R5$=" " : GO TO 460 440 INPUT" REGION";R5$ 460 D1%=0% : D1$="0" ! FOR "ALL" 480 Q%=0% 500 IF Q1%>0% THEN PRINT#2,"REGION "+R5$ 520 INPUT"WANT ACC, APP, DEP, OR ALL";C1$ : C1$=LEFT(C1$,3%) : Q2%,Q3%=0% 530 S0%=0% : A%=2% 535 IF T% THEN PRINT #2%,CHR$(12%); 540 IF C1$="TAL" OR C1$="" THEN 2240 560 IF C1$="APP" THEN 620 580 IF C1$="ALL" THEN 840 ELSE IF C1$="ACC" THEN 740 600 IF C1$="DEP"THEN 660 ELSE PRINT"-> RETYPE!" : GO TO 520 620 D1%=146% : D1$="7" ! APP HAVE '7' IN 146 (PART OF YR) 640 PRINT #2%,"STUDENT APPLICATION REPORT - FINAL APPLICATIONS "; "ONLY"; : GO TO 860 660 D1%=166% : D1$="Y" ! DEP HAVE A 'Y' IN COL 166 680 Q2%=2% : D2$="1" ! OR SOMETIMES A "1" 700 Q3%=2% ! NO CANCELLATIONS OR OUTS 720 PRINT #2%,"STUDENT APPLICATION REPORT - DEPOSITS ONLY "; : GO TO 860 740 ! ACC ONLY 760 D1%=159% : D1$="A" ! ACC HAVE AN 'A' IN COL 159 780 Q2%=2% : D2$="B" : D3$="D" ! OR SOMETIMES A 'B' OR 'D' 800 Q3%=2% ! NO CANCELLATIONS OR OUTS 820 PRINT #2%, "STUDENT APPLICATION REPORT - ACCEPTANCES ONLY"; : GO TO 860 840 PRINT #2,"STUDENT APPLICATION REPORT - ALL INQ, PRELIMS, APP" 860 PRINT #2%," "+DATE$(0%) : PRINT #2%,CHR$(10%) 880 ! MAIN ROUTINE BEGINS HERE 900 INPUT"MEDIAN VERBAL, MATH SCORES";V8%,M8% 920 ON ERROR GO TO 2100 940 V%(I%),M%(I%)=0% FOR I%=0% TO 20% : R%(I%)=0% FOR I%=0% TO 12% : I%,J%,T%=0% 960 ! BEGIN READING FILE 980 IF A%R5$ THEN 980 ! CORR REGION? 1060 A1$=MID(A$(A%),D1%,1%) : IF A1$=D1$ THEN 1100 1080 IF Q2%=0% OR (A1$<>D2$ AND A1$<>D3$) THEN 980 ! IF ONLY ONE CRIT OR IF NOT 2ND OR 3RD CRIT THEN REJ 1100 IF Q3% THEN IF MID(A$(A%),189%,1%)<>" " THEN 980 1120 T%=T%+1% ! GRAND TOTAL 1140 V1%=VAL( MID(A$(A%),151%,3%) ) 1160 IF V1%<100% THEN 1280 1180 M1%=VAL( MID(A$(A%),154%,3%) ) : IF M1%<100% THEN 1280 1200 I%=I%+1% 1220 W%=V1%/50% : V%(W%)=V%(W%)+1% 1240 W%=M1%/50% : M%(W%)=M%(W%)+1% 1260 ! TALLY CLASS RANK 1280 R3%=VAL( MID(A$(A%),118%,3%) ) ! CLASS RANK 1300 IF R3%<1% THEN 980 ! NO RANK? REJECT! 1320 R4%=VAL( MID(A$(A%),121%,4%) ) ! CLASS SIZE 1340 IF R4%=0% THEN 980 1360 W%=(10%*R3%)/R4%+1% ! DECILE 1380 IF W%<0% OR W%>12% THEN PRINT"RNK =";W%;" FOR "+LEFT(A$(A%),6%) : GO TO 1420 1400 R%(W%)=R%(W%)+1% 1420 J%=J%+1% 1440 GO TO 980 1460 R3(I)=R%(I) FOR I=0 TO 10 1480 R2(I)=R3(I)*100/J% FOR I=0 TO 10 1500 F1$=" #### #### #### ####" 1520 F3$=" \ \ #### ####" 1540 PRINT #2,SPACE$(19)+"SAT DISTRIBUTIONS" 1560 PRINT#2 1580 PRINT#2," RANGE VERBAL DISTR MATH DISTR" 1600 PRINT#2 1620 PRINT#2,USING F1$,750,800,V%(15)+V%(16),M%(15)+M%(16) 1640 PRINT#2,USING F1$,50*I,50*I+49,V%(I),M%(I) FOR I= 14 TO 5 STEP -1 1660 PRINT#2 1680 PRINT#2,USING F3$,"NO SCORE",T%-I%,T%-I% 1700 PRINT#2 1720 PRINT#2,USING F3$,"TOTAL",T%,T% 1740 PRINT#2 1760 IF V8%<1% THEN 1800 1780 PRINT#2,USING F3$,"MEDIAN",V8%,M8% 1800 PRINT#2 FOR I=1 TO 4 1820 PRINT#2," PERCENTILE IN CLASS" 1840 PRINT#2 1860 F2$=" #### #### ####.#" 1880 F4$=" \ \ ####" 1900 PRINT#2," DECILE DISTR PER CENT" 1920 PRINT#2 1940 PRINT#2,USING F2$,10*I,R%(I),R2(I) FOR I=1 TO 10 1960 PRINT#2 1980 PRINT#2,USING F4$,"NO RANK",T%-J% 2000 PRINT#2 2020 PRINT#2,USING F4$,"TOTAL",T% 2040 GO TO 520 2060 Q2%=0% 2080 PRINT #2%,CHR$(12%); : GO TO 420 2100 IF ERR=11% THEN 2180 2120 IF ERR<>52% THEN 3380 2140 IF ERL=1140% OR ERL=1180% THEN PRINT"** BAD SAT SCORE FOR"; " ID# "+LEFT(A$(A%),6%) : V1%,M1%=0% : RESUME 1200 2160 IF ERL=1280% OR ERL=1320% THEN PRINT"** BAD RANK OR CLASS"; " SIZE FOR ID# ";LEFT(A$(A%),6%) : R3%,R4%=0% : RESUME 1340 2180 IF Q%=0% THEN RESUME 1460 2200 ! PREPARE FINAL TALLY OF ALL APPLICATIONS 2240 ON ERROR GO TO 2940 2260 S0%=0% : A%=2% ! RESET FILE POINTERS 2280 PRINT"** NOW COMPILING FINAL TALLY **" 2300 DIM C%(1%,15%),C$(1%,15%),F%(15%),R4%(4%,6%),R6%(4%,6%) 2302 DIM L0%(1%,15%) 2320 READ F%(I%) FOR I%=0% TO 15% 2340 DATA 1,1,1,1,2,3,3,2,2,2,1,2,2,2,1,1 2342 READ L0%(J%,I%) FOR I%=0% TO 15% FOR J%=0% TO 1% 2344 DATA 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0 2346 DATA 1,0,0,1,0,0,0,0,0,1,1,0,0,0,1,1 2360 MAT R4%=ZER : MAT R6%=ZER : MAT C%=ZER 2380 READ C$(1%,I%) FOR I%=0% TO 15% 2400 DATA "TOTAL ENTRIES"," INQUIRIES ONLY"," PRELIMS" 2420 DATA "APPLICATIONS"," ACCEPTED" 2440 DATA " CANCELLED"," NOT CANCELLED" 2460 DATA " REJECTED"," WITHDRAWN"," NOT ACTED UPON" 2480 DATA"DEPOSITS PENDING"," ACTIVE DEP PAID"," DUE" 2482 DATA " CANCELLED W/D" 2500 DATA "CSS ON FILE","AID GRANTED" 2510 READ C$(0%,I%) FOR I%=0% TO 2% STEP 2% 2512 DATA "TOTAL ACTIVE ENTRIES"," ACTIVE PRELIMS" 2520 IF A%"O" THEN C%(1%,14%) = C%(1%,14%)+1% ! CSS ON FILE & NOT OUT 2545 J0%=-1% 2550 IF MID(A$(A%),189%,1%)<>" " OR INSTR(1%,"RS",MID(A$(A%),159%,1%)) THEN J0%=0% ELSE C%(0%,0%)=C%(0%,0%)+1% ! => ACTIVE 2552 IF J0%=0% THEN 2560 ! SKIP FIN AID IF NOT ACTIVE 2554 CHANGE MID(A$(A%),217%,4%) TO A4% 2556 IF (A4%(1%)=89% OR A4%(2%)=80% OR A4%(3%)=72% OR A4%(4%)=76%) THEN C%(1%,15%)=C%(1%,15%)+1% 2560 R5%=ASCII(MID(A$(A%),131%,1%))-48% : IF R5%<0% OR R5%>5% THEN R5%=0% 2580 ! === SELECT INQ, PRELIMS === 2600 IF MID(A$(A%),113%,1%)<>"7" THEN 2620 2610 C%(1%,2%)=C%(1%,2%)+1% : C%(0%,2%)=C%(0%,2%)+1% IF J0% 2612 R4%(1%,R5%)=R4%(1%,R5%)+1% : R6%(1%,R5%)=R6%(1%,R5%)+1% IF J0% 2614 GO TO 2660 2620 IF MID(A$(A%),88%,1%)="7" THEN C%(1%,1%)=C%(1%,1%)+1% 2660 IF MID(A$(A%),142%,6%)=" " THEN 2520 ELSE C%(1%,3%)=C%(1%,3%)+1% : R4%(2%,R5%)=R4%(2%,R5%)+1% : R6%(2%,R5%)=R6%(2%,R5%)+1% IF J0% ! JUST APPLICANTS FROM HERE ON... 2680 V%=ASCII(MID(A$(A%),159%,1%)) ! ACC OR REJ ? 2700 IF V%=82% OR V%=83% THEN C%(1%,7%)=C%(1%,7%)+1% : GO TO 2880 2720 IF MID(A$(A%),189%,1%)="X" THEN C%(1%,8%)=C%(1%,8%)+1% : GO TO 2880 2740 IF INSTR(1%,"ABD",CHR$(V%))=0% THEN C%(1%,9%)=C%(1%,9%)+1% : GO TO 2880 2760 C%(1%,4%)=C%(1%,4%)+1% : R4%(3%,R5%)=R4%(3%,R5%)+1% ! ACCEPTED; DEP PENDING 2780 IF MID(A$(A%),189%,1%)="C" THEN C%(1%,5%)=C%(1%,5%)+1% ELSE C%(1%,6%)=C%(1%,6%)+1% 2800 D$=MID(A$(A%),166%,1%) : IF D$=" " THEN 2860 ELSE R6%(3%,R5%)=R6%(3%,R5%)+1% IF J0% 2820 IF D$<>"Y" THEN 2860 2840 IF ASCII(RIGHT(A$(A%),189%))=67% THEN C%(1%,13%)=C%(1%,13%)+1% ELSE C%(1%,11%)=C%(1%,11%)+1% 2860 IF J0% AND D$=" " THEN R6%(4%,R5%)=R6%(4%,R5%)+1% ! DEPOSIT DUE 2880 GO TO 2520 ! ********************* DISPLAY ********************** 2940 IF ERR<>11% THEN 3380 2960 PRINT #2%,SPACE$(10%); "WABASH COLLEGE ADMISSIONS OFFICE";CHR$(10%) 2980 PRINT #2%,SPACE$(10%);'TALLY OF FILE "';H1$;'" ON ';DATE$(0%) 3000 PRINT #2%,CHR$(10%)+CHR$(10%) 3020 G$(1%)=" \ \ #####" 3040 G$(2%)=" \ \ #####" 3060 G$(3%)=" \ \ #####" 3080 H$=" REGION PRELIMS APPLICATIONS DEPOSITS PENDING" 3082 H0$=" TOTAL ACTIVE TOTAL ACTIVE TOTAL PAID " 3100 I$=" #### #### #### #### #### #### ####" 3120 J$=" ?? #### #### #### #### #### ####" 3125 H0$=H0$+" DUE" : I$=I$+" ####" : J$=J$+" ####" 3130 C%(1%,12%) = C%(1%,3%) - ( C%(1%,5%)+C%(1%,7%)+C%(1%,8%)+C%(1%,9%)+C%(1%,11%) ) ! DUE = APPL - (CAN + REJ + W/D + NAU + DEP) 3140 C%(1%,10%)=C%(1%,10%)+C%(1%,I%) FOR I%=11% TO 13% 3160 FOR I%=0% TO 15% 3180 IF I%=10% OR I%=14% THEN PRINT #2% 3200 PRINT #2%,USING G$(F%(I%)),C$(1%,I%),C%(1%,I%) 3220 PRINT #2% IF L0%(1%,I%) : GO TO 3230 IF I%*(I%-2%) 3224 PRINT #2%,USING G$(F%(I%)),C$(0%,I%),C%(0%,I%) 3226 PRINT #2% IF L0%(0%,I%) 3230 NEXT I% 3240 PRINT #2%,CHR$(10%) 3250 PRINT #2%, " *********** REGIONAL TALLY ***********" 3260 % : %,H$ : %,H0$ : % 3268 FOR J%=1% TO 4% : FOR I%=0% TO 5% 3270 R4%(J%,6%)=R4%(J%,6%)+R4%(J%,I%) : R6%(J%,6%)=R6%(J%,6%)+R6%(J%,I%) 3272 NEXT I% : NEXT J% 3280 IF R4%(1%,0%)+R4%(2%,0%)+R4%(3%,0%) THEN PRINT #2%, USING J$, R4%(1%,0%),R4%(2%,0%),R4%(3%,0%) : PRINT #2% 3300 FOR I%=1% TO 5% 3320 PRINT #2%, USING I$,I%, R4%(1%,I%),R6%(1%,I%),R4%(2%,I%),R6%(2%,I%), R4%(3%,I%),R6%(3%,I%),R6%(4%,I%) 3340 PRINT #2% 3360 NEXT I% 3370 I$=SPACE$(11%)+"TOTAL"+RIGHT(I$,17%) 3372 PRINT #2%, USING I$, R4%(1%,6%),R6%(1%,6%),R4%(2%,6%),R6%(2%,6%), R4%(3%,6%),R6%(3%,6%),R6%(4%,6%) 3380 PRINT #2%,CHR$(26%) : CLOSE 1%,2% 3400 END