To circle :RADIUS :COLOUR :POS
HT
SetPC :COLOUR
SetPenWidth 2
PU
SetHeading 2
SetPos :POS
Fd :RADIUS Rt 90
PD
Repeat 36 [RT 180 / 36 FD 2 * PI * :RADIUS / 36 RT 180 / 36]
PU
Lt 90
Bk :RADIUS
PD
End
