Current code:
.MAZE
#ExprOff
[2424FF2424FF2424]üPic000
[0000000000001818]üPic001
[0000000000000000]üPic002
[0000000000000000]üPic003
[000000000000000000000000]üGDB0
[000101010101010101010100]
[000101010101010101010100]
[000101010101010101010100]
[000101010101010101010100]
[000101010101010101010100]
[000101010101010101010100]
[000000000000000000000000]
DiagnosticOff
[3C409EA2A29E423C]->Pic100
0->X->Y
Repeat getKey(15)^^r
If getKey(4)?Y>0
Y--
ElseIf getKey(1)?Y<7
Y++
ElseIf getKey(2)?X>0
X--
ElseIf getKey(3)?X<11
X++
End
Lbl DP
ClrDraw
For(B,0,7)
For(A,0,11)
Pt-Off(A*8,B*8,{B*12+A+GDB0}*8+Pic000)
End
End
Pt-Off(X,Y,Pic1)
DispGraph
End
Return