\start83\
\comment=Program file dated 10/07/97, 14:24
\name=INEQUALS
\file=J:\INEQUALS.AS3

Disp "FIRST ENTER"
Disp "ONE OR TWO"
Disp "INEQUALITIES"
Disp "AS Y\1\ AND/OR Y\2\"
Disp ""
Disp "HIT ENTER"
Pause 
ClrHome
Disp "HOW MANY "
Disp "INEQUALITIES ?"
Disp ""
Input "ENTER 1 OR 2 ",N
ClrHome
Menu("ENTER Y\1\ CHOICE","Y\1\ >",1,"Y\1\ \>=\",1,"Y\1\ <",2,"Y\1\ \<=\",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 Y\2\ CHOICE","Y\2\ >",4,"Y\2\ \>=\",4,"Y\2\ <",5,"Y\2\ \<=\",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,Y\1\(I),I,Ymax)
End
Else
For(I,Xmin,Xmax,W)
Line(I,Y\1\(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,Y\2\(I),I,Ymax)
End
Else
For(I,L,U,W)
Line(I,Y\2\(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

\stop83\