image of READY prompt

Wang2200.org

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