ClrHome 1->A //position x de l'étoile 1->B //position y de l'étoile Output(A,B,"* //on affiche l'étoile While 1 0->K While not(K //attend l'appui d'une touche getKey->K End Output(A,B,"_ //"_" => 1 espace A-(K=24)(A>1)+(K=26)(A<16->A B-(K=25)(B>1)+(K=34)(B<8->B Output(A,B,"* //On réaffiche l'étoile End