0->C+5 -> D
15 -> X -> Y
[18247EBDFFBDFFA5] -> Pic1
[183C3C3C3C240000] -> Pic2
Repeat getkey(15)
X+getKey(3)-getKey(2) --> X
Y+getKey(1)-getKey(4) --> Y
Pt-On(X,Y,Pic1
if getkey(54)
DS<(D,5)
X->{C+1*2+L1}
Y->{C+1*2+1+L1}
C++
end
end
if C
for(L,0,C)
{L*2+1+L1}-1->{L*2+1+L1}
if {L*2+1+L1}>64
if C>0
Copy(C*2+L1,L*2+L1,2
end
C--
else
Pt-On({L*2+L1},{L*2+1+L1},Pic2
end
end
end
DispgraphClrdraw
end