exemples/pLogo/RONDS.JLOGO
POUR RONDS :AV :R ENR ME 2 CT REPETE 50 [HSECT :AV :R] NETTOIE REPETE 50 [HROND :AV :R] MT FIN POUR HSECT :AV :R AV HASARD :AV TD HASARD 360 FCC HASARD NBCOUL SI CC = 0 [FCC 1 FMOTIF [0]] [FMOTIF [-1]] SECTEUR HASARD :R HASARD 360 HASARD 360 FIN POUR HROND :AV :R AV HASARD :AV TD HASARD 360 FCC HASARD NBCOUL SI CC = 0 [FCC 1 FMOTIF [0]] [FMOTIF [-1]] CERCLE HASARD :R FIN RONDS 200 50 ATTENDS 2