t,q,p=0,0,poke::_::?"\^1\^c",12
p(24415,60)line()for i=●,0do
r=40+cos(i/40+t/4)*(30+cos(t/7.3)*20)line(64+cos(i/70+t/3)*r,64+sin(i/(70+cos(t/19)*.3)+t/3)*r)end
for i=0,15do
p(24416+(i+q)%16,({[0]=136,8,137,9,10,135,138,11,139,12,6,15,143,142,14,13})[i])p(24432+i,245<<(q*8%8))
end
q+=.5t+=.03goto _