: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