(Bon j'ai édité, réessaie avec ce que j'ai mis, normalement ça devrais marcher.)

Bon sinon je te donne un code différent qui fait la même chose :

1→X:1→Y:0→A:0→B
randInt(1,16→W
randInt(1,8→Z
Repeat K=45
Repeat K
getKey→K
End
If K=24:-1→A
If K=34:-1→B
If K=26:1→A
If K=25:1→B
X+A
If Ans≠0 or Ans≠17:Then
Output(Y,X," "
X+A→X
End
Y+B
If Ans≠0 or Ans≠9:Then
Output(Y,X," "
Y+B→Y
End
If Y=Z and X=W:Then
randInt(1,16→W
randInt(1,8→Z
End
Output(Y,X,"O"
Output(Z,W,"*"
0→A:0→B
End

Bon voilà, là t'as la détéction du mouvement mais ça te 'téléporte' pas de l'autre coté de l'écran si jamais on va trop loin, mais c'est faisable en quelques lignes si t'y tiens.