10 INPUT "Z";Z
20 D1=.04986734700000001#
30 D2=.0211410061#
40 D3=.0032776263#
50 D4=3.80036E-05
60 D5=4.88906E-05
70 D6=5.383E-06
80 B1 = D1*Z
90 B2 = D2*Z^2
100 B3 = D3*Z^3
110 B4 = D4*Z^4
120 B5 = D5*Z^5
130 B6 = D6*Z^6
140 PROB = 1 - .5*(1+B1+B2+B3+B4+B5+B6)^(-16)
150 PRINT "Z=";Z
160 PRINT "PROB=";PROB
165 PRINT "TAIL = ";1-PROB
170 PRINT "MORE PROBABILITIES? Y/N?"
180 INPUT A$
190 IF A$ = "Y" THEN 10
200 END