Listing of file='21A ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 637, program filename = '21A' 0010 PRINT "T-VALUE? (TO END PROGRAM INPUT 99999)" 0015 INPUT T 0020 IF T=99999 THEN 999 0025 PRINT "DEG. FREEDOM?" 0030 INPUT D 0035 P,M=1 0040 T=T*T 0045 IF T<1 THEN 65 0050 A=M 0055 B=D 0057 T1=T 0060 GOTO 80 0065 A=D 0070 B=M 0075 T1=1/T 0080 A1=2/9/A 0085 B1=2/9/B 0090 Z=ABS((1-B1)*T1^(1/3)-1+A1)/SQR(B1*T1^(2/3)+A1) 0095 IF B<4 THEN 120 0100 P=.5/(1+Z*(.196854+Z*(.115194+Z*(.000344+Z*.019527))))^4 0110 GOTO 140 0120 Z=Z*(1+.08*Z^4/B^3) 0130 GOTO 100 0140 IF T<1 THEN 160 0150 GOTO 180 0160 P=1-P 0180 PRINT "PROBABILITY OF T=";INT(1E6*P)/1E6 0200 PRINT 0210 PRINT "T-VALUE?" 0220 GOTO 15 0999 END