\start83\
\comment=Program file dated 10/07/97, 14:24
\name=CIRCLE
\file=J:\CIRCLE.AS3
prgmFACSU
ClrHome
10\->\S
Disp "(X-H)\^2\+(Y-K)\^2\=R\^2\"
Disp ""
Prompt H
Prompt K
Prompt R
"K+\root\((R\^2\-(X-H)\^2\))"\->\Y\1\
"K-\root\((R\^2\-(X-H)\^2\))"\->\Y\2\
Lbl 1
\(-)\S\->\Xmin
S\->\Xmax
\(-)\S\->\Ymin
S\->\Ymax
ZSquare
Line(H-R,K,H+R,K)
Line(H,K+R,H,K-R)
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

\stop83\