Comme ça ?
.MMM
[0020404204040000]→Pic1
[002255DD55DD5555
[22FF88FF22FF88FF
[222222222222222222222222222222222222→GDB1
[200000000000000000000000000000000002
[200000000000000000000000000000000002
[200000000000000000000000000000000002
[211111100000000000000000000000000002
[200000000000000000000000000000000002
[200000000000011111100000000000000002
[200000000000011001100000000000000002
[200000000000011001100000000000000002
[200000000000011111100000000000000002
[200000000000000000000000000000000002
[200000000000000000000000000000000002
[200000000000000000000000000022222222
[200000000000000000000000000022222002
[200000000000000000000000000020000002
[222222222222222222222222222222222222
Lbl DPL
Repeat getKey(15)
If getKey(3) and (sub(ZIP,A+1,B)=0)
A+1→A
ElseIf getKey(2) and (sub(ZIP,A-1,B)=0)
A-1→A
End
If getKey(1) and (sub(ZIP,A,B+1)=0
B+1→B
ElseIf getKey(4) and (sub(ZIP,A,B-1)=0
B-1→B
End
DispGraph
ClrDraw
sub(TLM)
End
Return
Lbl TLM
For(Y,0,7
For(X,0,11
sub(ZIP,X+A,Y+B)→r₁
Pt-On(X*8,Y*8,r₁*8+Pic1
End
End
DispGraph
Return
Lbl ZIP
r₂*36+r₁→r₁
{r₁/2+GDB1}→r₂
If r₁^2
r₂^16
Else
r₂/16
End