\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=CIRC
\FILE=CIRC.85P
Func:FnOff 
Radian
ClLCD
10\->\SCALE
Disp "(x-H)\^2\+(y-K)\^2\=R\^2\"
Disp " "
Prompt H
Prompt K
Prompt R
"K+\sqrt\(R\^2\-(x-H)\^2\)"\->\E1
"K-\sqrt\(R\^2\-(x-H)\^2\)"\->\E2
\St>Eq\(E1,y1)
\St>Eq\(E2,y2)
Lbl AA
\(-)\SCALE\->\xMin
SCALE\->\xMax
\(-)\SCALE\->\yMin
SCALE\->\yMax
ZSqr
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\