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 C=circ t=0
function TIC()cls(14)t=t+0.02
for i=0,240 do
x=20+i*c(i+t)
y=50+i*s(i+t)
r=6 P=0 T=r
for j=0,6.3,1.05 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 C=circ b=circb
function TIC()cls(14)t=time()/8^4
for i=0,240 do
x=20+i*c(i+t)y=50+i*s(i+t)I=1+(i/20)%8
for j=0,6.3,.9 do
R=12*c(j)S=12*s(j)C(x+R,y+S,6,I+3)b(x+R,y+S,6,I)
end C(x,y,6.2,I)end
end