\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=INEQUALS
\FILE=INEQUALS.82P
ClrHome
Disp "FIRST ENTER"
Disp "ONE OR TWO"
Disp "INEQUALITIES"
Disp "AS \Y1\ AND/OR \Y2\"
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "HOW MANY "
Disp "INEQUALITIES ?"
Disp ""
Input "ENTER 1 OR 2 ",N
ClrHome
Menu("ENTER \Y1\ CHOICE","\Y1\ >",1,"\Y1\ \>=\",1,"\Y1\ <",2,"\Y1\ \<=\\#\
",2)
Lbl 1
1\->\Z
If N=1
Goto 3
Goto 6
Lbl 2
0\->\Z
If N=1
Goto 3
Goto 6
Lbl 6
Menu("ENTER \Y2\ CHOICE","\Y2\ >",4,"\Y2\ \>=\",4,"\Y2\ <",5,"\Y2\ \<=\\#\
",5)
Lbl 4
1\->\T
Goto 3
Lbl 5
0\->\T
Goto 3
Lbl 3
ClrHome
\(-)\10\->\Xmin
10\->\Xmax
\(-)\10\->\Ymin
10\->\Ymax
1\->\W
ZStandard
Lbl 7
DispGraph
If Z=1
Then
For(I,Xmin,Xmax,W)
Line(I,\Y1\(I),I,Ymax)
End
Else
For(I,Xmin,Xmax,W)
Line(I,\Y1\(I),I,Ymin)
End
End
If N=1
Goto 9
Xmin+W/2\->\L
Xmax-W/2\->\U
If T=1
Then
For(I,L,U,W)
Line(I,\Y2\(I),I,Ymax)
End
Else
For(I,L,U,W)
Line(I,\Y2\(I),I,Ymin)
End
End
Lbl 9
Pause 
ClrHome
Disp "PLEASE CHOOSE"
Disp ""
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) QUIT"
Input "CHOICE = ",H
If H=3
Goto 8
If H=1
Then
Xmin/2\->\Xmin
Xmax/2\->\Xmax
Ymin/2\->\Ymin
Ymax/2\->\Ymax
W/2\->\W
End
If H=2
Then
Xmin*2\->\Xmin
Xmax*2\->\Xmax
Ymin*2\->\Ymin
Ymax*2\->\Ymax
W*2\->\W
End
Goto 7
Lbl 8
ClrHome
\STOP82\