\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\name=NICEWIN
ClrHome
Lbl 1
Input "LOWER BOUND:",A
Input "UPPER BOUND:",B
If A\>=\B
Goto 1
0\->\C
Menu("MINIMUM","Y\1\",A,"Y\2\",B,"Y\3\",C,"Y\4\",D,"Y\5\",E,"Y\6\",F,"Y\7\",G)
Lbl A
If C=0
Y\1\(fMin(Y\1\,X,A,B))\->\D
If C=1
Y\1\(fMax(Y\1\,X,A,B))\->\E
Goto 2
Lbl B
:If C=0
Y\2\(fMin(Y\2\,X,A,B))\->\D
If C=1
Y\2\(fMax(Y\2\,X,A,B))\->\E
Goto 2
Lbl C
If C=0
Y\3\(fMin(Y\3\,X,A,B))\->\D
If C=1
Y\3\(fMax(Y\3\,X,A,B))\->\E
Goto 2
Lbl D
If C=0
Y\4\(fMin(Y\4\,X,A,B))\->\D
If C=1
Y\4\(fMax(Y\4\,X,A,B))\->\E
Goto 2
Lbl E
If C=0
Y\5\(fMin(Y\5\,X,A,B))\->\D
If C=1
Y\5\(fMax(Y\5\,X,A,B))\->\E
Goto 2
Lbl F
If C=0
Y\6\(fMin(Y\6\,X,A,B))\->\D
If C=1
Y\6\(fMax(Y\6\,X,A,B))\->\E
Goto 2
Lbl G
If C=0
Y\7\(fMin(Y\7\,X,A,B))\->\D
If C=1
Y\7\(fMax(Y\7\,,A,B))\->\E
Goto 2
Lbl 2
If C=0
Then
1\->\C
Menu("MAXIMUM","Y\1\",A,"Y\2\",B,"Y\3\",C,"Y\4\",D,"Y\5\",E,"Y\6\",F,"Y\7\",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

\stop83P\