poke(24364,7)::n::z,a,r,f,p=64,0,rnd,rectfill,pset
cls(0)w=r(32)h=r(32)c=1+r(14)d=c+1+r(14)x,y,b=z,z,r(1)f(w,h,z,z,c)f(w,h,w-9,z,d)::_::p(x,y)p(x,h+z-y)p(w+z-x,y)b+=r(.4)-.2x=min(max(x+cos(b),w),z)y=min(max(y+sin(b),h),z)::m::flip()
if(x>w and y>h)goto _
a+=1
if(a>z)goto n
goto m