(avec l'hypothèse que tes paramètres 'windows' soient bien mis par rapport à l'écran, mais je suppose que tu le fait ça )
ClrDraw
31→W:47→X
Line(46,39,48,39
Lbl 1
While 1
Pt-On(X,W,2
Repeat K
getKey→K
End
If K=25:Then
For(A,-1,1
If pxl-Test(62-W+2,X+A)=1:Then:Goto 1:Else:Pt-Off(X,W,2:W+1→W:End
End
End End