-heu ouais suis allé un peu vite en tappant, c'est plutôt:

If pxl-test(62-(W+2DW+DX*A),X+2DX+DW*A):Then:0→DX:0→DW:End

Pour ton remplassement, tel quel y'a deux instructions qui dépendent du if, tu peux pas dégager le then..end

Sinon, si t'aime pas trop les if (comme moi ), y'a ça qui est beau à faire:

31→W:47→X
Line(46,39,48,39
While 1
Pt-On(X,W,2
Repeat K
getKey→K
End
0→DX
0→DW

int(K/24)*int(26/K)*(25-K)->DX
int(K/25)*int(34/K)*iPart((K-29.5)/4.5)->DW

For(A,-1,1
If pxl-test(62-(W+2DW+DX*A),X+2DX+DW*A):Then:0→DX:0→DW:End
End
Pt-Off(X,W,2
X+DX→X
W+DW→W
End

edit: -else+end ..