POUR CADRE
LC FIXEXY - 60 60 BC
REPETE 4 [TD 90 AV 120 ]
ORIGINE
FIN
 
POUR POLY :A :B
AV :A TD :B POLY (:A + 2 ):B
FIN
 
POUR TABLEAU
CADRE
POLY 2 125
FIN
 
POUR TABLEAU2
CADRE
POLY 1 90
FIN