\START82\
\COMMENT=Program file dated 12/04/95, 15:54
\NAME=HYPER
\FILE=HYPER.82P
Func:FnOff 
Radian
ClrHome
Disp "CHOICE 1"
Disp "(X-H)\^2\/A\^2\-"
Disp "(Y-K)\^2\/B\^2\=1"
Disp ""
Disp "CHOICE 2"
Disp "(Y-K)\^2\/B\^2\-"
Disp "(X-H)\^2\/A\^2\=1"
Input "ENTER 1 OR 2 ",W
If W=2
Then
Prompt K
Prompt H
Prompt B
Prompt A
"K+\sqrt\(B\^2\(1+(X-H)\^2\/A\^2\))"\->\\Y3\
"K-\sqrt\(B\^2\(1+(X-H)\^2\/A\^2\))"\->\\Y4\
End
If W=1
Then
Prompt H
Prompt K
Prompt A
Prompt B
"K+\sqrt\(B\^2\((X-H)\^2\/A\^2\-1))"\->\\Y3\
"K-\sqrt\(B\^2\((X-H)\^2\/A\^2\-1))"\->\\Y4\
End
"(B/A)(X-H)+K"\->\\Y1\
"(\(-)\B/A)(X-H)+K"\->\\Y2\
10\->\S
Lbl 1
\(-)\S\->\Xmin
S\->\Xmax
\(-)\S\->\Ymin
S\->\Ymax
ZSquare
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 
ClrHome
Disp "(1)ZOOM IN"
Disp "(2)ZOOM OUT"
Disp "(3)QUIT"
Disp ""
Input "ENTER 1,2,3 ",C
If C=3
Goto 5
If C=1
Then
S/2\->\S
Else
S*2\->\S
End
Goto 1
Lbl 5
ClrHome

\STOP82\