Cartridge code (230 chars):

cls()
c=7
for x=0,127 do
for y=0,127 do
if (rnd(1) > .66) pset(x,y,7)
end
end
::✽::
c=0
x=rnd(128)y=rnd(128)d=0
for i=1,3 do
for j=1,3 do
cx=x+(i-2)
cy=y+(j-2)
if pget(cx,cy)>0 then
d+=1
end
end
end
if (d>3) c=7
pset(x,y,c)
goto ✽