Character Count
506

Cartridge Code
a,b,c=0,0,0p=0s={-2,0,0,1,10,12,13,19,24}e=0q=0u=0h=0g=0m=1l={}d=0y=rnd::_::n=min(512-stat(108),187)
cls()for i=0,n-1do
v=0if(g%646==0 and y()<0.6)q=2^(y(s)/12)*184e=0.33+0.15*sin(t()/5)
if(g==1292)h=10
if(g==0)k=62g=2584x=8+y(7)
e*=0.9995h*=0.995k*=0.999g-=1for j=1,4do
o=p>>17o=o-3.5*(d-o)o-=o^3/6a+=e*(o-a)b+=e*(a-b)c+=e*(b-c)d+=e*(c-d)v+=d<<4p+=q
end
w=m%2050+1v+=(l[w]or 0)*0.35l[m]=v
v+=sin((g>>10)^3)*k+h*y()+64poke(i,v+64)line(i,u,i,v,5)line(i,u-2,i,v-1,x)u,m=v,w
end
serial(2056,0,n) flip()goto _