%%HP: T(1)A(G)F(,);
 RECTA OBJ DROP
"Circunferencia:
XO YO Radio"
"" INPUT OBJ  XP YP
M XO YO R
   'M^2,+1,' EVAL '-
(2,*(XO+M*(M*XP-YP+YO
)))' EVAL 'XO^2,+YP^
2,+YO^2,-R^2,-2,*YP*
YO+M*(M*XP^2,+2,*XP*
YO-2,*XP*YP)' EVAL 3,
ARRY PROOT OBJ DROP
2, LIST DUP XP - M *
YP ADD
   OBJ DROP ROT
OBJ DROP ROT 2,
ARRY "Sol.2" TAG
ROT ROT SWAP 2, ARRY
"Sol.1" TAG
