Characters/Bytes used
868

Source Code
-- 1k circles
-- by sourencho
_set_fps(60)
f=circfill
pal({1,13,14},1)
function
r(d)
cls(3)
v=1
s=d
s=max(t,s)
t=0
a=0
da=0.006
dda=0.0001
q=64
w=64
f(q,w,20,v)
end
r(0)
::_::
if (btn(0)) q+=-4
if (btn(1)) q+=4
if (btn(2)) w+=-4
if (btn(3)) w+=4
f(q,w,2,v)
for i=0,400 do
x,y=rnd(128),rnd(128)
k=atan2(x-64,y-64)
pc = pget(x,y)
if pc != 12 then
if abs(k-a)<0.07 then
if (pc!=v or rnd()<0.85)
pc=rnd(2)+2
end
f(x,y,2+rnd(1),pc)
end
end
z = 0
for i=0,63 do for j=0,127 do if(pget(i*2+t%2,j) == v) z+=1 end end
if (z<200) r(s)
f(0,0,22,9)
print("s:"..t,1,1,1)
print("h:"..s,1,8,1)
h=(z-200)/8192*4
rectfill(4,120,4+h*124,124,12)
a+=da
da+=dda
da=min(da, 0.025)
t+=1
if(a > 1) a = 0
flip()
goto _