m=math s=m.sin c=m.cos t=0
function TIC()cls(14)t=t+0.02
for i=0,240 do
x=92+i*c(i+t)
y=52+i*s(i+t)r=6
P=0 T=r
if i%8<3*s(t/3)then C=circ else C=circb end
for j=0,6.3,6.3/(8+3*s(t)) do
R=r*2*c(j)S=r*2*s(j)
C(x+R,y+S,r,i%16+1)
end
C(x,y,r*1.2,i%16)
end end

m=math s=m.sin c=m.cos t=0
function TIC()cls(14)t=t+0.1
z,a=0,0
for i=0,240,.25 do G=60
A=t+i-i/6.5
x=G+i*c(A)y=G+i*s(A)
circ(x,y,5,i%16)line(z,a,x,y,i%16)
z,a=x,y
end
end

s=math.sin
W=240 H=136
function TIC()t=time()//32
cls(6)for y=0,136,5 do
for j=1,5 do t5=t/50
circ((j*15+y*5+t+15*s(y+t/10))%W,(y*5+t+5*s(j*10+t5))%H,5+3*s(y+t5),6+j)Y=(y+t)%H
circb((50*j+(5+j)*s(y+t/20))%W,-Y%H,Y/20,6+Y/30)end end end