10 CLS
20 PRINT "STUDENT'S T-DISTRIBUTION" 
30 PRINT 
40 PRINT "(TO END PROGRAM ENTER A t-VALUE OF 0)" 
50 PRINT "T-VALUE"; 
60 INPUT T 
70 IF T=0 THEN 350  
80 PRINT "DEGREES OF FREEDOM"; 
90 INPUT D 
100 X=1 
110 Y=1 
120 T=T^2 
130 IF T<1 THEN 180  
140 S=Y 
150 R=D 
160 Z=T 
170 GOTO 210  
180 S=D 
190 R=Y 
200 Z=1/T
210 J=2/9/S
220 K=2/9/R 
230 L=ABS((1-K)*Z^(1/3)-1+J)/SQR(K*Z^(2/3)+J)
240 IF R<4 THEN 280  
250 X=.5/(1+L*(.197854+L*(.115194+L*(.000344+L*.019527))))^4
260 X=INT (X*10000+.5)/10000
270 GOTO 300  
280 L=L*(1+.08*L^4/R^3)
290 GOTO 250  
300 IF T>=1 THEN 320  
310 X=1-X
320 PRINT "RIGHT TAIL VALUE =";X 
330 PRINT 
340 GOTO 50   
350 END