\START82\ \COMMENT=Program file dated 04/10/96, 18:39 \NAME=NICEWIN :ClrHome :Lbl 1 :Input "LOWER BOUND:",A :Input "UPPER BOUND:",B :If A\>=\B :Goto 1 :0\->\C :Menu("MINIMUM","\Y1\",A,"\Y2\",B,"\Y3\",C,"\Y4\",D,"\Y5\",E,"\Y6\",F,"\#\ \Y7\",G) :Lbl A :If C=0 :\Y1\(fMin(\Y1\,X,A,B))\->\D :If C=1 :\Y1\(fMax(\Y1\,X,A,B))\->\E :Goto 2 :Lbl B ::If C=0 :\Y2\(fMin(\Y2\,X,A,B))\->\D :If C=1 :\Y2\(fMax(\Y2\,X,A,B))\->\E :Goto 2 :Lbl C :If C=0 :\Y3\(fMin(\Y3\,X,A,B))\->\D :If C=1 :\Y3\(fMax(\Y3\,X,A,B))\->\E :Goto 2 :Lbl D :If C=0 :\Y4\(fMin(\Y4\,X,A,B))\->\D :If C=1 :\Y4\(fMax(\Y4\,X,A,B))\->\E :Goto 2 :Lbl E :If C=0 :\Y5\(fMin(\Y5\,X,A,B))\->\D :If C=1 :\Y5\(fMax(\Y5\,X,A,B))\->\E :Goto 2 :Lbl F :If C=0 :\Y6\(fMin(\Y6\,X,A,B))\->\D :If C=1 :\Y6\(fMax(\Y6\,X,A,B))\->\E :Goto 2 :Lbl G :If C=0 :\Y7\(fMin(\Y7\,X,A,B))\->\D :If C=1 :\Y7\(fMax(\Y7\,,A,B))\->\E :Goto 2 :Lbl 2 :If C=0 :Then :1\->\C :Menu("MAXIMUM","\Y1\",A,"\Y2\",B,"\Y3\",C,"\Y4\",D,"\Y5\",E,"\Y6\",F,"\#\ \Y7\",G) :End :(B-A)/94\->\C :A-C\->\Xmin :B+C\->\Xmax :4.7C\->\Xscl :(E-D)/64\->\F :D-8F\->\Ymin :E+F\->\Ymax :3.2F\->\Yscl :DispGraph :Stop :COPYRIGHT STEPHEN OSTERMILLER 1996 \STOP82\