7Fermer9
tamaLe 29/11/2007 à 18:52
ça dépend de l'écran (écran graphique ?), mais le principe est le même : avant de déplacer tu effaces l'étoile

Par exemple :
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