Lbl 7
Repeat K=45
X->A:Y->B
RecallPic 3
getKey->K
If K=25:Goto 8
If K=34:Goto 9
If K=24:Goto 10
If K=26:Goto 11
Pt-On(X,Y,2)
End
Lbl 8
pxl-Test(Y+2,X)->P
If P=0:Y+1->Y:Pt-Off(A,B,2):Goto 7
If P=1:Goto 7
Lbl 9
pxl-Test(Y-2,X)->P
If P=0:Y-1->Y:Pt-Off(A,B,2):Goto 7
If P=1:Goto 7
Lbl 10
pxl-Test(Y,X-2)->P
If P=0:X-1->X:Pt-Off(A,B,2):Goto 7
If P=1:Goto 7
Lbl 11
pxl-Test(Y,X+2)->P
If P=0:X+1->X:Pt-Off(A,B,2):Goto 7 If P=1:Goto 7
Bon voilà, là je comprend pas ça devrai marcher...