POUR CARRE :L
REPETE 4 [AV :S TD 90 ]
FIN
 
POUR DESCARRES :S
CARRE :S
TD 20
DESCARRES :S
FIN
 
POUR GROSCARRES :S
CARRE :S
TD 20
GROSCARRES :S + 5
FIN