'---------------------------
'Script written by Jannie
'22-12-2001
'Please leave these lines in
'there is a lot of thinking in this one
'---------------------------

y=0
x=0
r=0
s=0
tab.background=tabb1.src
tb1.background=pic1.src
tab1.background=tabb2.src
tb2.background=pic2.src
tab2.background=tabb3.src

Sub Window_Onload()
window.status="..........MeuSonho HomePage deseja a vc um Feliz Natal!!.........."

SetInterval "scrollsnow",64
SetInterval "scrolltab", 64

End Sub

'-----------------
'scroll for the snow
'-----------------
Sub scrollsnow()
y=0
x=x+1
tab.style.backgroundposition=y&" "&x
tab1.style.backgroundposition=y&" "&x
tab2.style.backgroundposition=y&" "&x
End Sub

'-----------------
'scroll for the two tables
'-----------------
Sub scrolltab()
r=r+1
s=0
tb1.style.backgroundposition=r&" "&s
tb2.style.backgroundposition=r&" "&s
End Sub