CODE FIVE
to x pu setxy 200 50 pd make "d 5 repeat 10[ repeat 36[ pu fd :d pd rt 10 repeat 4[fd 5 rt 90] make "a xcor make "b ycor make "c heading home setxy :a :b seth :c wait 3 pe repeat 4[fd 5 rt 90] ppt ]make "d :d+1]