()0F$E!C-PS/8 FOCAL, 1971?MB3<JS X=FATN(FABS(T)/FSQT(NU));S T=0;S Q=1;F I=1,2;S G(I)=1?ME=<TI (NU-2)30.4;S T=FSIN(X)*FEXP((NU-2)*FLOG(FCOS(X)))/(NU-1)?MC	<-I (FITR(NU/2)-NU/2)30.5,30.6,30.5?MC><2S P=1-.63662*(T+Q*X/2)*G(2)/G(1);G 30.7?MEL<<S P=1-2*T*G(1)/
(2)?MDY>JS Q=Q*(NU-K)/(NU-K+1)?M>TS T=T+Q*FSIN(X)*FEXP((NU-K-2)*FLOG(FCOS(X)))/(NU-K-1)?MCS<(F I=1,2;F K=I,2,NU-1;S G(I)=G(I)*K/2?MDK=FT "   2P=",%6.05,P,!?MBT<EA 
NU ,T 
?MFO<AC PROBABILITY (2P) FROM T(	STUDENT	)-DISTRIBUTION?MD7<^I (NU-4)30.4;F K=2.2NU-2;D 31?MEY<BC PR0GRAM PT  /   DECUS FOCAL 8-128?MC L S PT?M?M  /   DECUS FOCAL 8-128?(P)-255)*(S(P)-149)]2.2,2.3,2.2?MGUD^I (25-P),1.6;G Q(S(P))?MG3D(T "^U"!;G 2.1;C RESET
CHARACTER POINTER AND START OVER?MHQD2S P=P-FSGN(P-1);T "\";

Note: Lines longer than 256 characters were wrapped