un programme de dessin
où vous pourrez télécommander
votre tortue au clavier


pour depart
rg vg vc vt
donne "t "faux
dessine
fin

pour dessine
si :t [stop] presser liscar
dessine
fin

pour presser :touche
si :touche = "a [av 5 stop]
si :touche = "r [re 5 stop]
si :touche = "d [dr 15 stop]
si :touche = "g [ga 15 stop]
si :touche = "l [lc stop]
si :touche = "b [bc stop]
si :touche = "c [ct stop]
si :touche = "m [mt stop]
si :touche = "1 [fcouleur 1]
si :touche = "2 [fcouleur 2]
si :touche = "3 [fcouleur 3]
si :touche = "4 [fcouleur 4]
si :touche = "5 [fcouleur 5]
si :touche = "6 [fcouleur 12]
si :touche = "7 [fcouleur 13]
si :touche = "8 [fcouleur 14]
si :touche = "9 [fcouleur 15]
si :touche = "q [carre]
si :touche = "v [vg]
fin

pour carre
repete 4[av 40 dr 90]
fin

auteur : jean-daniel.greub@edu.ge.ch