10 CLS
20 PRINT "CHI-SQUARE DISTRIBUTION"
30 DEFDBL A-Z : DEFSNG I
40 PRINT 
50 PRINT "(TO END PROGRAM ENTER 0)"
60 PRINT "DEGREES OF FREEDOM"; 
70 INPUT V 
80 IF V=0 THEN 300  
90 PRINT "CHI-SQUARE"; 
100 INPUT W 
110 R=1 
120 FOR I=V TO 2 STEP -2 
130 R=R*I 
140 NEXT I 
150 K=W^(INT((V+1)/2))*EXP(-W/2)/R
160 IF INT(V/2)=V/2 THEN 190  
170 J=SQR(2/W/3.141592653599)
180 GOTO 200  
190 J=1 
200 L=1 
210 M=1 
220 V=V+2 
230 M=M*W/V
240 IF M<.0000001 THEN 270  
250 L=L+M 
260 GOTO 220  
270 PRINT "TAIL END VALUE =";1-J*K*L
280 PRINT 
290 GOTO 60   
300 END