Pour une fois j'ai testé mon code et celui là marche parfaitement :

ClrHome
1→X:1→W
1→C:1→D
0→A:0→B
Repeat K=45
If X=C and W=D:Then
randInt(1,8→D
randInt(1,16→C
End
Output(W,X,"8
Output(D,C,"*
Repeat K
getKey→K
End
Output(W,X," "
If K=34 AND W+1≠9
W+1→W
If K=25 AND W-1≠0
W-1→W
If K=24 AND X-1≠0
X-1→X
If K=26 AND X+1≠17
X+1→X
End
ClrHome

T'es sur que t'oublie rien en recopiant (des espaces/etc...) ?