:ClrDraw
:Input "Radius? ",C
:Pxl-On(31,47+C
:Pxl-On(3147-C
:Pxl-On(31+C,47
:Pxl-On(31-C,47
:DelVar X3-2C->P
:While X<C
:C-(P>=0->C
:(P<0)(P+6X+8)+(P>=0)(4(X-Ans)+10->P
:X+1->X
:Pxl-On(C+31,Ans+47
:Pxl-On(31-C,47-Ans
:Pxl-On(31-C,47+Ans
:Pxl-On(C+31,47-Ans
:Pxl-On(Ans+31,47+C
:Pxl-On(31-Ans,47-C
:Pxl-On(31+Ans,47-C
:Pxl-On(31-Ans,C+47
:End