C-FOCAL,1969 02.10 TYPE "STUDENT'S T TEST" 02.20 ASK !!"ENTER GROUP 1 DATA",!,"MEAN",X1,"STD. DEV.",S1,"N",N1 02.30 ASK !!"ENTER GROUP 2 DATA",!,"MEAN",X2,"STD. DEV.",S2,"N",N2 02.40 SET SP=FSQT(<(N1-1)*S1^2+(N2-1)*S2^2>/(N1+N2-2)) 02.50 SET D=FSQT(1/N1+1/N2) 02.60 TYPE %4.03,!!,"T SCORE",(X1-X2)/SP*D 02.70 TYPE,!,"DEGREES OF FREEDOM",(N1+N2-2) *