PROGRAM:LANT
:ClrDraw
:0→N
:47→A
:31→B
:90→Θ
:Repeat getKey
:If pxl-Test(B,A)
:Then
:Θ+90→Θ
:Else
:Θ-90→Θ
:End
:Pxl-Change(B,A)
:A+cos(Θ°)→A
:B+sin(Θ°)→B
:N+1→N