-- title: my heart beats for lovebyte
-- script: lua
t=0
poke(0x3FC5,200)
function TIC()
t=t+1
T=t/15
cls(0)
for X=1,250,5 do 
for Y=1,150,5 do
  pix(X+3*(Y%2),Y,6+5*math.sin(Y*X+T%10))
end end
for j=25,220,30 do
for k=0,120,25 do
w=(math.random(400)<2 and 1 or 0)*-7
r=9+2*math.sin(T+j+k)
for x=-r-2,r+2 do
 for y=-r,r+3 do
  if math.pow(y*y+x*x-r*r,3)<(y*y*y*x*x*r)then
   pix(j+w+x+k%2*15,k+math.sin(T)+2*r-y,1+k%2*9)
end end end end end
print("Lovebyte!",90,60+4*math.sin(T),4)
end
