Vengeance ! Tiens voici un prog assez sympa où les touches sont toutes aussi réactives.

:{1,1->L1
:ClrHome
:While 1
:{randInt(1,8),randInt(1,16->L2
:Output(L2(1),L2(2),"*
:Repeat min(L1=L2
:Output(L1(1),L1(2),0
:Repeat Ans
:getKey
:End
:Output(L1(1),L1(2)," "
:L1-(Ans={25,24})+(Ans={34,26
:Ans+not(Ans)-(Ans={9,17->L1
:End
:End