animation : 
commander au clavier 
les mouvements d'une tortue

pour depart
rg vc vt donne "t []
tape[CTRL-S = STOP]
lc bouge fin

pour bouge
av 1 repete 5000[bc lc]
si touche? [donne "t ascii liscar]
si :t = "328[fcap 0]
si :t = "333[fcap 90]
si :t = "336[fcap 180]
si :t = "331[fcap 270]
bouge fin