10 CLS
20 PRINT "STUDENT'S t-DISTRIBUTION TEST" 
30 DEFDBL A-Z : DEFSNG I,J,K
40 PRINT 
50 DIM P(10,2)
60 DIM V(2),R(2),M(2),D(2)
70 PRINT "TEST 1: MEAN=X" 
80 PRINT "TEST 2: MEAN=MEAN,STANDARD DEVIATION=STANDARD DEVIATION" 
90 PRINT "TEST 3: MEAN=MEAN,STANDARD DEVIATION<>STANDARD DEVIATION"
100 PRINT "WHICH HYPOTHESIS";
110 INPUT T 
120 PRINT 
130 FOR I=1 TO SGN(T-1)+1
140 V(I)=0 
150 D(I)=0 
160 PRINT "SAMPLE";I;":"
170 PRINT "  NUMBER OF ELEMENTS"; 
180 INPUT R(I) 
190 FOR J=1 TO R(I) 
200 PRINT "   eLEMENT";J; 
210 INPUT P(J,I)
220 V(I)=V(I)+P(J,I)
230 D(I)=D(I)+P(J,I)^2 
240 NEXT J 
250 M(I)=V(I)/R(I)
260 V(I)=(D(I)-V(I)^2/R(I))/(R(I)-1)
270 NEXT I 
280 PRINT 
290 IF T=2 THEN 360  
300 IF T=3 THEN 400  
310 PRINT "VALUE OF MEAN"; 
320 INPUT M 
330 A=(M(1)-M)*SQR(R(1)/V(1))
340 B=R(1)-1
350 GOTO 440  
360 A=(M(1)-M(2))/SQR(1/R(1)+1/R(2))
370 B=R(1)+R(2)-2
380 A=A/SQR(((R(1)-1)*V(1)+(R(2)-1)*V(2))/B)
390 GOTO 440  
400 A=(M(1)-M(2))/SQR(V(1)/R(1)+V(2)/R(2))
410 B=(V(1)/R(1)+V(2)/R(2))^2
420 B=B/((V(1)/R(1))^2/(R(1)+1)+(V(2)/R(2))^2/(R(2)+1))-2
430 B=INT(B+.5)
440 PRINT 
450 PRINT "T-VALUE =";ABS(A)
460 PRINT "DEGREES OF FREEDOM =";B
470 END