CODE THREE

to cannon pu setxy -210 -15 pd seth 45 fd 15 lt 90 fd 5 lt 90 fd 15 lt 90 fd 5 pu setxy 200 -10 pd seth 0 fd 15 seth 270 fd 5 seth 45 fd 25 seth 135 fd 25 seth 270 fd 5 seth 180 fd 15 make "x -200 make "y 10 repeat 100[ pu setxy :x :y pd repeat 10 [fd 2 rt 36] wait 3 pe repeat 10 [fd 2 rt 36] ppt make "x :x+2 make "y :y+1 ] repeat 100[ pu setxy :x :y pd repeat 10 [fd 2 rt 36] wait 3 pe repeat 10 [fd 2 rt 36] ppt make "x :x+2 make "y :y-1 ] wait 3 cs pu setxy 200 -10 pd seth 0 fd 15 seth 270 fd 5 seth 45 fd 25 seth 135 fd 25 seth 270 fd 5 seth 180 fd 15 wait 3 cs pu setxy 198 -10 pd seth 0 fd 15 seth 270 pu fd 2 pd fd 5 pu seth 0 fd 2 pd seth 45 fd 25 seth 90 pu fd 2 pd seth 135 fd 25 pu seth 90 bk 2 pd seth 270 fd 5 pu seth 0 bk 2 pd seth 180 fd 15 wait 3 cs pu setxy 196 -10 pd seth 0 fd 15 seth 270 pu fd 4 pd fd 5 pu seth 0 fd 4 pd seth 45 fd 25 seth 90 pu fd 4 pd seth 135 fd 25 pu seth 90 bk 4 pd seth 270 fd 5 pu seth 0 bk 4 pd seth 180 fd 15 wait 3 cs pu setxy 194 -10 pd seth 0 fd 15 seth 270 pu fd 6 pd fd 5 pu seth 0 fd 6 pd seth 45 fd 25 seth 90 pu fd 6 pd seth 135 fd 25 pu seth 90 bk 6 pd seth 270 fd 5 pu seth 0 bk 6 pd seth 180 fd 15 wait 3 cs pu setxy 192 -10 pd seth 0 fd 15 seth 270 pu fd 8 pd fd 5 pu seth 0 fd 8 pd seth 45 fd 25 seth 90 pu fd 8 pd seth 135 fd 25 pu seth 90 bk 8 pd seth 270 fd 5 pu seth 0 bk 8 pd seth 180 fd 15 wait 3 cs pu setxy 190 -10 pd seth 0 fd 15 seth 270 pu fd 10 pd fd 5 pu seth 0 fd 10 pd seth 45 fd 25 seth 90 pu fd 10 pd seth 135 fd 25 pu seth 90 bk 10 pd seth 270 fd 5 pu seth 0 bk 10 pd seth 180 fd 15 wait 3 cs end