image of READY prompt

Wang2200.org

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

# Sector 182, program filename = '16A'
0010 PRINT "INPUT '0' FOR A STANDARDIZED VARIABLE OR"
0015 PRINT "      '1' FOR A NON-STANDARDIZED VARIABLE"
0020 INPUT M
0030 IF M=0 THEN 70
0040 PRINT "INPUT 'MEAN, STANDARD DEVIATION'"
0050 INPUT M,D
0060 GOTO 80
0070 D=1
0080 PRINT
0090 PRINT "INPUT 'X' (OR '99999' TO END PROGRAM)"
0100 INPUT X
0105 IF X=99999 THEN 999
0110 X=(X-M)/D
0120 E=EXP(-X^2/2)/2.5066283
0130 PRINT "F(X)=";E
0135 Z=X
0140 X=1/(1+.33267*ABS(X))
0150 Q=1-E*(.4361836*X-.1201676*X^2+.937298*X^3)
0160 IF Z>=0 THEN 180
0170 Q=1-Q
0180 PRINT "Q(X)=";Q
0190 PRINT
0200 PRINT "INPUT 'X'"
0210 GOTO 100
0999 END