\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=ELIPS
\FILE=ELIPS.85P
Func:FnOff 

Radian
ClLCD
Disp "(x-H)\^2\/A\^2\+(y-K)\^2\/B\^2\=1"
Disp " "
Prompt H
Prompt K
Prompt A
Prompt B
"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,y1)
\St>Eq\(E2,y2)
10\->\SCALE
Lbl AA
\(-)\SCALE\->\xMin
SCALE\->\xMax
\(-)\SCALE\->\yMin
SCALE\->\yMax
ZSqr
Line(H-A,K,H+A,K)
Line(H,K+B,H,K-B)
Pause 
ClLCD
Disp "(1) ZOOM IN"
Disp "(2) ZOOM OUT"
Disp "(3) QUIT"
Disp " "
Input "ENTER 1,2,3  ",C
If C==3
Goto BB
If C==1
Then
SCALE/2\->\SCALE
Else
SCALE*2\->\SCALE
End
Goto AA
Lbl BB
\STOP\