1           !CALCULATE PREDICTED FROSH GPA
2           ! USING ONE OF THREE REGRESSION EQUATIONS
3           ! J.W.  29-NOV-71 (REVISED BY R.N. 2-NOV 72)
090 S$="FGPA (#) =##.###"
100 PRINT "PREDICTED FRESHMAN GPA (9 POINT)"
110 PRINT
115 INPUT "RANK";R
120 INPUT "CLASS SIZE";C
125 IF C<0.5 THEN 120
130 R2=(R-0.5)/C
135 GO SUB 750
157 INPUT "GPA 1, 2, OR 3";T%
158 IF T%<1% OR T%>3% THEN 157
159 ON T% GO TO 163,300, 500
160	! - - - - METHOD #1 - - - -
163 INPUT "REC";R%
165 IF R%<1% OR R%>5% THEN 180
170 F = .10976*R3 + .49924*R% - 3.72512
175 GO TO 200 
180 PRINT "=> REC IS A NUMBER BETWEEN 1 AND 5 -- RETYPE!"
185 GO TO 163
200 PRINT USING S$,T%,F
230 GO TO 110
290	! - - - - METHOD #2 - - - -
300 INPUT "V";V
310 INPUT "M";M
315 IF V<0 OR V>800 OR M<0 OR M>800 THEN PRINT
	"YOU MUST BE KIDDING ABOUT THOSE SAT SCORES!" : GO TO 300
320 F = .10713*R3 + .00576*V + .00003*M - 4.58203
330 GO TO 200
490	! - - - - METHOD #3 - - - -
500 INPUT "V";V
510 INPUT "M";M
515 IF V<0 OR V>800 OR M<0 OR M>800 THEN PRINT
	"YOU MUST BE KIDDING ABOUT THOSE SAT SCORES!" : GO TO 500
520 INPUT "REC";R%
530 F = 0.08552*R3 + .00571*V - .00053*M + .45862*R% - 4.82825
560 GO TO 200
700	! LOOKUP TABLE FOR CLASS RANK:  R3(R2)
750 IF R2>=.000 AND R2<=.001 THEN 752 ELSE 754
752    R3 = 80:RETURN
754 IF R2 <= .005 THEN 756 ELSE 758
756    R3= 77 :RETURN
758 IF R2<= .011 THEN 760 ELSE 762
760    R3 = 74 : RETURN
762 IF R2<= .025 THEN 764 ELSE 766 
764    R3= 71: RETURN
766 IF R2<= .049 THEN 768 ELSE 770
768    R3 = 68 : RETURN
770 IF R2<= .088 THEN 772 ELSE 774
772    R3 = 65 : RETURN
774 IF R2<= .146 THEN 776 ELSE 778
776    R3 = 62 : RETURN
778 IF R2<= .226 THEN 780 ELSE 782
780    R3 = 59 : RETURN
782 IF R2<= .325 THEN 784 ELSE 786
784    R3 =56 : RETURN
786 IF R2<= .439 THEN 788 ELSE 790
788    R3 = 53 : RETURN
790 IF R2<= .560 THEN 792 ELSE 794
792    R3 = 50 : RETURN
794 IF R2<= .674 THEN 796 ELSE 798
796    R3 = 47 : RETURN
798 IF R2<= .773 THEN 800 ELSE 802
800    R3 = 44 : RETURN
802 IF R2 <= .853 THEN 804 ELSE 806
804    R3 = 41 : RETURN
806 IF R2 <= .911 THEN 808 ELSE 810
808    R3 = 38 : RETURN
810 IF R2<=.950 THEN 812 ELSE 814
812 R3= 35 : RETURN
814 IF R2<=.974 THEN 816 ELSE 818
816    R3 = 32 : RETURN
818 IF R2<=.988 THEN 820 ELSE 822
820    R3 = 29 : RETURN
822 IF R2<= .994 THEN 824 ELSE 826 
824    R3 = 26 : RETURN
826 IF R2<= .998 THEN 828 ELSE 830
828    R3 = 23 :RETURN
830 IF R2<= 1.000 THEN 832
832    R3 = 20 : RETURN
900 END