:Clrhome 

:1->X:1->Y 
:1->A:1->B 
:randInt (1, 16, I 
:randInt (1,8, J 
:Output (J,I; "*" 
:Repeat K=105 
:Output (A,B, " " 
:Output (Y,X,"O" 
:Y->A:X->B 
:getkey-> K 
:If K=24: X-1->X  // pour faire bouger l etoile
:... 
:If X=0:16->X // pour ne pas afficher Domain qd ele sort de l ecran
:... 

:If X=I and Y=J
:Then
:randInt (1, 16, I 
:randInt (1,8, J 
:Output (J,I; "*" 
:End 

:End

Voila ce que je ferais, tout simplement.