CODE FOUR
to x make "y 0 make "x 0 make "s 2 pu setxy :x :y pd repeat 20 [ repeat 5 [ repeat 5 [ repeat 4 [fd 2 rt 90 ] make "x :x + :s pu setx :x pd ] make "y :y + :s make "x 0 - :s * 5 pu setxy :x :y pd] make "s :s+2 make "x 0 - :s * 2 make "y 0 - :s * 2 wait 5 cs ] x end
NOTE: Take the x out right before end to break the endless loop.