\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=INEQS
\FILE=INEQS.85P
Func:FnOff 
ClLCD
Radian
Disp "# INEQUALITIES"
Disp "ENTER 1 OR 2"
Prompt N
ClLCD

Disp "ENTER FIRST"
Disp "INEQUALITY"
Disp "(CHOOSE BELOW)"
Menu(1,"Y>",A1,2,"Y\>=\",A2,3,"Y<",A3,4,"Y\<=\",A4)
Lbl A1
InpST "Y>",Y
1\->\C
Goto B
Lbl A2
InpST "Y\>=\",Y
1\->\C
Goto B
Lbl A3
InpST "Y<",Y
3\->\C
Goto B
Lbl A4
InpST "Y\<=\",Y
3\->\C
Lbl B
\St>Eq\(Y,y1)
ClLCD
If N==1
Goto OE
Disp "ENTER SECOND"
Disp "INEQUALITY"
Disp "(CHOOSE BELOW)"
Menu(1,"Y>",D1,2,"Y\>=\",D2,3,"Y<",D3,4,"Y\<=\",D4)
Lbl D1
InpST "Y>",Z
1\->\E
Goto G
Lbl D2
InpST "Y\>=\",Z
1\->\E
Goto G
Lbl D3
InpST "Y<",Z
3\->\E
Goto G
Lbl D4
InpST "Y\<=\",Z
3\->\E
Lbl G
\St>Eq\(Z,y2)
Lbl OE
ClLCD
\(-)\10\->\XL
10\->\XU
1\->\W

ZStd
DispG
Lbl WW

If C==1
Then

For(I,XL,XU,W)
Line(I,evalF(y1,x,I),I,yMax)
End
Else
For(I,XL,XU,W)
Line(I,evalF(y1,x,I),I,yMin)
End
End
If N==1
Goto O2
XL+W/2\->\XXL
XU-W/2\->\XXU

If E==1
Then
For(I,XXL,XXU,W)
Line(I,evalF(y2,x,I),I,yMax)
End
Else
For(I,XXL,XXU,W)
Line(I,evalF(y2,x,I),I,yMin)
End
End

Lbl O2
Pause 
ClLCD
Disp "CHOOSE ONE:"
Disp 
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) QUIT"
Input "CHOICE = ",CH
If CH==3
Goto FF

If CH==1
Then
XL/2\->\XL:yMin/2\->\yMin
XU/2\->\XU:yMax/2\->\yMax
W/2\->\W
XL\->\xMin
XU\->\xMax
End
If CH==2
Then
XL*2\->\XL:yMin*2\->\yMin
XU*2\->\XU:yMax*2\->\yMax
W*2\->\W
XL\->\xMin
XU\->\xMax
End
Goto WW

Lbl FF
ClLCD
Stop
\STOP\