C-PS/8 FOCAL, 1971
 1.10 C FISHERS F AND STUDENTS T P-VALUES
 1.12 G 2.01
 1.15 T "PROBABILITY OF F(M,N)=X",!!,"ENTER M,N, AND X",!
 1.20 A 
M
,
N
,
X
,!!
 1.30 S A=2*FITR(M/2)-M+2;S B=2*FITR(N/2)-N+2
 1.40 S W=X*M/N;S Z=1/(1+W)
 1.50 I (FITR(A-1))1.7,1.7,1.6
 1.60 D 11;G 1.8
 1.70 D 10
 1.80 S Y=2*W/Z
 1.85 S J=B+2
 1.90 I (J-N)5.1,5.1
 1.92 S Y=W*Z;S Z=2/Z;S B=N-2
 1.94 S I=A+2
 1.95 I (I-M)6.1,6.1
 1.97 T %6.04,!!,"P   ",1-P;D 3
 1.98 A "MORE
(Y)",M;I (M-0Y)1.99,1.12,1.99
 1.99 Q
 2.01 C
 2.05 T !!!"CALCULATION OF F OR T PROBABILITY",!!
 2.10 A "F(1) OR T(2)
",Q,
 2.20 I (Q-2)1.15
 2.30 T "PROBABILITY OF T(N)=X",!!"ENTER N AND X",!
 2.40 A 
N
,
X
,!!;S M=1;S X=X*X;G 1.3
 3.10 I (Q-2)3.2,3.3,3.3
 3.20 T %3,!,"  FOR F(",M,","N," )"
 3.25 T %6.04,X,!!;R
 3.30 T %3,!,"  FOR TWO TAILED T(",N," )"
 3.35 T %6.04,FSQT(X),!!;R
 5.10 S D=(1+A/(J-2))*D*Z
 5.20 I (A-1)5.3,5.4,5.3
 5.30 S P=(P+W)*Z;S J=J+2;G 1.9
 5.40 S P=P+D*Y/(J-1);S J=J+2;G 1.9
 6.10 S J=I+B;S D=Y*D*J/(I-2);S P=P-Z*D/J;S I=I+2;G 1.95
10.10 I (B-1)10.2,10.3,10.2
10.20 S P=FSQT(W*Z);S D=0.5*P*Z/W;R
10.30 S P=FSQT(W);S Y=0.31830989
10.40 S D=Y*Z/P;S P=2*Y*FATN(P)
10.50 R
11.10 I (B-1)11.2,11.3,11.2
11.20 S D=Z*Z;S P=W*Z;R
11.30 S P=FSQT(Z);S D=0.5*Z*P;S P=1-P