//dessine un thore

//procédure "cercle"
POUR cercle
REPETE 90 [AV 1 TD 4]
FIN 

VE
FPOS [ 300 400 ]
REPETE 90
[
  //appel de la procédure "cercle"
  cercle
  AV 4 TD 4
]