\START85\
\COMMENT=Program file dated 09/25/97, 14:23
\NAME=ProbSND
\FILE=PROBSND.85P
:\(-)\3\->\xMin
:3\->\xMax
:1\->\xScl
:0\->\yMin
:.4\->\yMax
:.1\->\yScl
:"(e^(\(-)\(x\^2\)/2)/\sqrt\2\pi\)"\->\y
:\St>Eq\(y,y1)
:Lbl GO
:Menu(1,"MeanZ",MZ,2,"Large",LG,3,"Small",SM,4,"Betwn",BT,5,"Quit",QT)
:Lbl MZ
:Prompt x
:Disp abs (fnInt(y1,x,0,x))
:Goto GO
:Lbl LG
:Prompt x
:Disp abs (fnInt(y1,x,0,x))+.5
:Goto GO
:Lbl SM
:Prompt x
:Disp .5-(abs (fnInt(y1,x,0,x)))
:Goto GO
:Lbl BT
:Prompt x1
:Prompt x2
:Disp abs (fnInt(y1,x,x1,x2))
:Goto GO
:Lbl QT
:Stop
\STOP85\