\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=HYPER
\FILE=HYPER.85P
Func:FnOff 
Radian
10\->\SCALE

ClLCD
Disp "CHOICE 1 ="
Disp "(x-H)\^2\/A\^2\-(y-K)\^2\/B\^2\=1"
Disp " "
Disp "CHOICE 2 ="
Disp "(y-K)\^2\/B\^2\-(x-H)\^2\/A\^2\=1"
Disp " "
Input "ENTER 1 OR 2  ",C


If C==2
Then
Prompt K
Prompt H
Prompt B
Prompt A
"K+\sqrt\(B\^2\(1+(x-H)\^2\/A\^2\))"\->\E1
"K-\sqrt\(B\^2\(1+(x-H)\^2\/A\^2\))"\->\E2
\St>Eq\(E1,y3)
\St>Eq\(E2,y4)
End
If C==1
Then
Prompt H
Prompt K
Prompt A
Prompt B
"K+\sqrt\(B\^2\((x-H)\^2\/A\^2\-1))"\->\F1
"K-\sqrt\(B\^2\((x-H)\^2\/A\^2\-1))"\->\F2
\St>Eq\(F1,y3)
\St>Eq\(F2,y4)
End
"(B/A)(x-H)+K"\->\G1
"(\(-)\B/A)(x-H)+K"\->\G2

\St>Eq\(G1,y1)
\St>Eq\(G2,y2)
Lbl AA
\(-)\SCALE\->\xMin
SCALE\->\xMax
\(-)\SCALE\->\yMin
SCALE\->\yMax

ZSqr
Line(H-A,K+B,H+A,K+B)
Line(H+A,K+B,H+A,K-B)
Line(H+A,K-B,H-A,K-B)
Line(H-A,K-B,H-A,K+B)
Pause 
ClLCD
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) QUIT"
Disp " "
Input "ENTER 1,2,3 ",ZZ
If ZZ==3
Goto BB
If ZZ==1
Then
SCALE/2\->\SCALE
Else
SCALE*2\->\SCALE
End
Goto AA
Lbl BB
\STOP\