c=math.cos t=0H=136
function TIC()cls(0)t=t+.1
for i=0,50,2 do G=80+(50-i)*c(t/3)/2x=G+i*c(i/3)
y=10+i*2S=i/10 for j=-i,i,6 do
xH=j*5tri(G+j,y, G+j-5,y-3,G+j-5,y+3,7-j/(i-3))end circ(x-3,y-3,S,t+i)end
for i=0,240 do line(i,H,i,H-50+10*c(i/55),12)end
end

t=0s=math.sin L=elli
function TIC()cls(13)for j=0,300,40 do J=(j+20+t)%300-40
for i=1,10 do U=50*s(j/20)+30L(J,4*i+U,3*i,i,7)L(J,40+2*i+U,5,3,2)L(J+3*i*s(i+J),4*i-3+U,3,3,i+t)end end
for i=1,999 do pix((i*J*s(i)+9*s(t/59))%240,(i*9+t)%160,12)end
t=t+1
end

t=0
function TIC()for i=0,135 do
for j=0,239 do U=t/9+j/50if i<45then U=(j+i)//8+t end
pix(j,i,(i~j|-j~-i)+U)end
end
t=t+.2
end