C-PS/8 FOCAL, 1971
 2.02 A TE,X,A,B,!!
 2.04 S P=1;I (A*B*X)6.02,6.02,2.06
 2.06 I (TE-2)4.16,2.20,2.30
 2.20 S X=X/A;G 4.16
 2.30 S X=X*X
 4.16 S AA=2.0/(9.0*A);S BB=2.0/(9.0*B)
 4.17 S X1=FEXP(0.333333*FLOG(X));S X2=FEXP(0.666667*FLOG(X))
 4.18 S Z=((1.0-BB)*X1-1.0+AA)/FSQT(BB*X2+AA)
 4.20 I (B-4)4.22,4.23,4.23
 4.22 S Z=Z*(1.0+0.08*Z^4/B^3)
 4.23 S Z1=Z;S Z=FABS(Z)
 4.24 S P=0.5/(1+Z*(0.196854+Z*(.115194+Z*(.000344+Z*.019527))))^4
 4.26 I (-Z1)6.02;S P=1-P
 6.02 T %8.06,P,!!