t="i-love-maria-" b=#t+2 e=-1
repeat
  b,e=e,b
  for i=b,e,sgn(e-b) do
    cls()
    for j=1,#t do
      c=7 a=abs(j-i)
      if (a==1) c=8
      if (a==0) c=14
      print(sub(t,j,j),j*4-4,0,c)
    end
    for j=0,3 do
      flip()
    end
  end
until forever