Cartridge code (244 chars):

cls()c=0m=1n=10s=1::●::
m*=s*1.25
n+=s
for py=1,64 do
b=py/m+.25
for px = 1,64 do
a=px/m-1
x=a
y=b
i=0
while(c<=2 and iw=x*x-y*y+a
z=2*x*y+b
c=w*w+z*z
x=w
y=z
i+=1
end
v=sget((i-n)%16,1)
if(i<50)circfill(px*2,py*2,1,v)
c=0
end
end
goto ●