image of READY prompt

Wang2200.org

Listing of file='20A' on disk='vmedia/glbr_22.wvd.zip'

# Sector 768, program filename = '20A'
0005 PRINT "F-VALUE? (TO END PROGRAM INPUT 99999)"
0010 INPUT F
0012 IF F=99999 THEN 999
0015 PRINT "DEG. FREEDOM IN NUMERATOR?"
0020 INPUT N
0025 PRINT "DEG. FREEDOM IN DENOMINATOR?"
0030 INPUT D
0035 P=1
0040 IF F<1 THEN 65
0045 A=N
0050 B=D
0055 F1=F
0060 GOTO 80
0065 A=D
0070 B=N
0075 F1=1/F
0080 A1=2/9/A
0085 B1=2/9/B
0090 Z=ABS((1-B1)*F1^(1/3)-1+A1)/SQR(B1*F1^(2/3)+A1)
0100 IF B<4 THEN 140
0110 P=.5/(1+Z*(.196854+Z*(.115194+Z*(.000344+Z*.019527))))^4
0130 GOTO 160
0140 Z=Z*(1+.08*Z^4/B^3)
0150 GOTO 110
0160 IF F<1 THEN 180
0170 GOTO 200
0180 P=1-P
0200 PRINT "PROBABILITY OF F=";INT(P*1E6)/1E6
0210 PRINT
0220 PRINT "F-VALUE?"
0230 GOTO 10
0999 END