-tu peux supprimer les '=1' et dégager les then..end sur les pxl-test.
-c'est trop moche d'utiliser des labels pour un truc pareil.
-Tu peux factoriser:
-plus proprement tu peux également factoriser les for.
-ensuite tu peux te débarrasser des if (c'est ça qui est long ) en faisant du calcul ou en utilisant des listes. je me souviens plus trop si c'est vraiment performant pour de simples tests.

Bref, par exemple:

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
If K=25:1→DW
If K=34:-1→DW
If K=24:-1→DX
If K=26:1→DX

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

En remplaçant 'DX' et 'DY' par des variables valides, en fonction de ce que tu dispose à ce moment..