TIC=btn
cls()for c=0,47 do
poke(16320+c,255-c*4-c%3*33)
end
for i=1,1e5 do 
X=0Y=0s=80/(1+i%2)r=i*time()
while s>1 do
X,Y,s,r=Y+s*math.sin(r),X+s*math.cos(r),s/(2+time()%2),r*5
end
U=X+120V=Y+68z=pix(U,V)+1
if z>15 then z=15 end
pix(U,V,z)end
