t=0m=math s=m.sin c=m.cos C=circ
function TIC()cls(14)t=t+.02
clip(120*s(t),0,120,136)for i=0,255,.5 do
B=9*s(i)x=92+B+i*c(i+t)y=84+B+i*s(i+t)r=15+i/100P=0T=r
for j=0,6.3,.1 do
R=r*c(j)S=r*s(j)tri(x,y,x+R,y+S,x+P,y+T,j+t%16)P=R T=S
end C(x,y,R*.8,j)end end
256 bytes