-- love as a construct

   cls();    j=32.5
  ;for x=0  ,▤,.5do
  line(x+j  ,x,x,x+j
  ,14.5+x%1)end;poke
  (0x5f2c,5)memcpy(0
   ,3<<13,⧗)::♥::
   c=cos(t());cls()
   if(c>0)pal(15,8)
   ;sspr(0,0,48,128
    ,64,j,-abs(c)*
      48,128,1);
       ;flip();
        pal();
         goto
          ♥