How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
poke(24365,1)z=0f=3c={}o=0m=stat::_::cls()for a=0,63do
x=a%8y=a\8g=x*16h=y*16
if z<1then
c[a]=-2
if(x%7*(y%7)>0)c[a]=rnd(f)\1-1
end
b=c[a]k=rnd(55)\1
if(z==2and b>-2and c[k]>-2)c[k],c[a]=b,c[k]
if z%2>0then
s=-1
for m=-1,1do
for n=-1,1do
if(b<0or c[a+m*8+n]>=0)s+=1
end
end
if(z==1and b>=0)c[a]=s
end
b=c[a]i=5j=5
if(s==b)i=9j=10rectfill(g,h,g+14,h+14,4)
?b,g+6,h+5,b<0or j
if(a==o)i=12
if(a==p)i=7
if(b>-2)rect(g,h,g+14,h+14,i)
end
p=mid(1,m(33)\16,6)*8+mid(1,m(32)\16,6)
if(o<1and m(34)>0)o=p
if(o>0and m(34)<1)c[o],c[p]=c[p],c[o]o=0
z=min(3,z+1)flip()goto _