pour depart
rg vg vc vt ct carrconc fin

pour carrconc
donne "x 0 donne "y 0 donne "L 0
attends 3
repete 19
[fcouleur 1 
lc fx :x fy :y bc 
repete 4 [av :L dr 90]
donne "x :x - 5 donne "y :y - 5 
donne "L :L + 10
]
attends 3
repete 19
[fcouleur 0 
lc fx :x fy :y bc 
repete 4 [av :L dr 90]
donne "x :x + 5 donne "y :y + 5 
donne "L :L - 10
]
carrconc fin