Cartridge code (272 chars):

?"i love sand!",40,64,12
g=pget
::★::
for x=0,127 do
for y=127,0,-1 do
c=g(x,y)
if c!=0 then  
b=g(x,y+1)==0
w=x
z=y
if b then
if(y<127)z+=1
else
if g(x-1,y+1)==0 and x>0 then
w-=1
elseif g(x+1,y+1)==0 and x<127 then
w+=1
end
end
pset(x,y,0)
pset(w,z,c)
end
end
end
goto ★