poke(0x5f2c,3)d=">0><><0<0<00O0O<A<A0A0O6^<^0^0l0l0l6l6h6h6j<^6h6S3Z9S9Z3"o=ord::_::cls()a=abs(t()%6-3)for j=mid(0,46*a-23,23)\1,0,-1do s=mid(0,2-a,1)*(1-j/46)for i=1,53,4do line(32+s*(o(d,i)-78),40+s*(o(d,i+1)-74),32+s*(o(d,i+2)-78),40+s*(o(d,i+3)-74),j<1and 7or j\3%8+8)end end flip()goto _