document.write "<img src='"&float.src&"' id=fl1 class=im>"   
document.write "<img src='"&float.src&"' id=fl2 class=im>" 
document.write "<img src='"&float.src&"' id=fl3 class=im>" 
document.write "<img src='"&float.src&"' id=fl4 class=im>"   
document.write "<img src='"&float.src&"' id=fl11 class=im>" 
document.write "<img src='"&float.src&"' id=fl21 class=im>" 
document.write "<img src='"&float.src&"' id=fl31 class=im>" 
document.write "<img src='"&float.src&"' id=fl41 class=im>" 
'---------------------------
'Script written by Annem@rie
'http://www.annemaries.nl/
'juli 2005
'please leave these lines in
'---------------------------
<!--HIER EIGEN MEDEDELING-->
window.status=" *** MeuSonho Músicas *** "

mbl.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mbr.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
m1.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mr.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mmol.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mmor.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mm1.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mmr.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mbol.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mbor.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mo1.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mor.style.filter="progid:DXImageTransform.Microsoft.Matrix(M11=.50, M22=-.75, M21=.75, M12=.50, Dx=1, Dy=1, FilterType='bilinear', sizingMethod='auto expand', enabled=1);"
mbl.style.backgroundimage="URL("&bg2.src&")"
m1.style.backgroundimage="URL("&bg1.src&")"
mbr.style.backgroundimage="URL("&bg2.src&")"
mr.style.backgroundimage="URL("&bg1.src&")"
mmol.style.backgroundimage="URL("&bg2.src&")"
mm1.style.backgroundimage="URL("&bg1.src&")"
mmor.style.backgroundimage="URL("&bg2.src&")"
mmr.style.backgroundimage="URL("&bg1.src&")"
mbol.style.backgroundimage="URL("&bg2.src&")"
mo1.style.backgroundimage="URL("&bg1.src&")"
mbor.style.backgroundimage="URL("&bg2.src&")"
mor.style.backgroundimage="URL("&bg1.src&")"
pica.style.backgroundimage="URL("&pic.src&")"
tbox.style.backgroundImage="URL("&bg2.src&")"

Dim scw,sch,th
DIM flh,flw,start1h,start1w,start2h,start2w,start3h,start3w,start4h,start4w,x1,y1,x2,y2,x3,y3,x4,y4,start11h,start11w,start21h,start21w,start31h,start31w,start41h,start41w,x11,y11,x21,y21,x31,y31,x41,y41

a=0
n=0
e=0

picw=pic.offsetwidth
pich=pic.offsetheight
flw=float.offsetwidth
flh=float.offsetheight
teksth=tekst.offsetheight
sp=65

Sub Window_OnLoad() 
scw=document.body.clientWidth
sch=document.body.clientHeight
document.body.style.overflowX="hidden"
pica.style.width=picw
pica.style.height=pich       
pica.style.Posleft=scw/2-picw/2
pica.style.Postop=sp
tbox.style.width=picw
tbox.style.height=pich/2
tbox.style.Posleft=scw/2-picw/2
tbox.style.Postop=sp*2+pich
tekst.style.width=picw-4
tekst.style.height=pich/2-4
tekst.style.Posleft=scw/2-picw/2+2
tekst.style.Postop=sp*2+pich+2
tekst.style.visibility="visible"
tabl.style.height=sp*3.5+teksth+pich
tabr.style.height=sp*3.5+teksth+pich
mbl.style.width=56
mbl.style.height=56   
mbl.style.Posleft=22
mbl.style.Postop=50
m1.style.width=50
m1.style.height=50        
m1.style.Posleft=25
m1.style.Postop=54
mbr.style.width=56
mbr.style.height=56  
mbr.style.Posleft=scw-77
mbr.style.Postop=50
mr.style.width=50
mr.style.height=50      
mr.style.Posleft=scw-74
mr.style.Postop=54
mmol.style.width=56
mmol.style.height=56        
mmol.style.Posleft=22
mmol.style.Postop=400
mm1.style.width=50
mm1.style.height=50        
mm1.style.Posleft=25
mm1.style.Postop=405
mmor.style.width=56
mmor.style.height=56        
mmor.style.Posleft=scw-77
mmor.style.Postop=400
mmr.style.width=50
mmr.style.height=50        
mmr.style.Posleft=scw-74
mmr.style.Postop=405
mbol.style.width=56
mbol.style.height=56        
mbol.style.Posleft=22
mbol.style.Postop=750
mo1.style.width=50
mo1.style.height=50        
mo1.style.Posleft=25
mo1.style.Postop=755
mbor.style.width=56
mbor.style.height=56        
mbor.style.Posleft=scw-77
mbor.style.Postop=750
mor.style.width=50
mor.style.height=50        
mor.style.Posleft=scw-74
mor.style.Postop=755
SetInterval "scroll",64
x1=3
y1=-2
x2=3
y2=-1
x3=3
y3=1
x4=3
y4=2
x11=-3
y11=-2
x21=-3
y21=-1
x31=-3
y31=1
x41=-3
y41=2
start1h=250
start1w=scw/2-flw/2
start2h=250
start2w=scw/2-flw/2
start3h=250
start3w=scw/2-flw/2
start4h=250
start4w=scw/2-flw/2
start11h=250
start11w=scw/2-flw/2
start21h=250
start21w=scw/2-flw/2
start31h=250
start31w=scw/2-flw/2
start41h=250
start41w=scw/2-flw/2
SetTimeOut"begin1",30
SetTimeOut"begin2",30
SetTimeOut"begin3",30
SetTimeOut"begin4",30
SetTimeOut"begin11",30
SetTimeOut"begin21",30
SetTimeOut"begin31",30
SetTimeOut"begin41",30
End Sub

Sub begin1()
Cleartimeout
start1h=start1h+y1
start1w=start1w+x1
fl1.style.top=start1h
fl1.style.left=start1w
if start1h=<-150 then SettimeOut"help1",30 else Settimeout"begin1",30 
End Sub
Sub help1()
x1=rnd*3
start1h=250
start1w=scw/2-flw/2
Settimeout"begin1",30
End Sub
Sub begin11()
Cleartimeout
start11h=start11h+y11
start11w=start11w+x11
fl11.style.top=start11h
fl11.style.left=start11w
if start11h=<-150 then SettimeOut"help11",30 else Settimeout"begin11",30 
End Sub
Sub help11()
x11=rnd*-3
start11h=250
start11w=scw/2-flw/2
Settimeout"begin11",30
End Sub
Sub begin2()
ClearTimeout
start2h=start2h+y2
start2w=start2w+x2
fl2.style.top=start2h
fl2.style.left=start2w
if start2w=>scw-10 then SetTimeout"help2",30 else Settimeout"begin2",30
End Sub
Sub help2()
x2=rnd*3
start2h=250
start2w=scw/2-flw/2
Settimeout"begin2",30
End Sub
Sub begin21()
ClearTimeout
start21h=start21h+y21
start21w=start21w+x21
fl21.style.top=start21h
fl21.style.left=start21w
if start21w=<-10 then SetTimeout"help21",30 else Settimeout"begin21",30
End Sub
Sub help21()
x21=rnd*-3
start21h=250
start21w=scw/2-flw/2
Settimeout"begin21",30
End Sub
Sub begin3()
ClearTimeout
start3h=start3h+y3
start3w=start3w+x3
fl3.style.top=start3h
fl3.style.left=start3w
if start3w=>scw-10 then SetTimeOut"help3",30 else SettimeOut"begin3",30
End Sub
Sub help3()
x3=rnd*3
start3h=250
start3w=scw/2-flw/2
SetTimeout"begin3",30
End Sub
Sub begin31()
ClearTimeout
start31h=start31h+y31
start31w=start31w+x31
fl31.style.top=start31h
fl31.style.left=start31w
if start31w=<-10 then SetTimeOut"help31",30 else SettimeOut"begin31",30
End Sub
Sub help31()
x31=rnd*-3
start31h=250
start31w=scw/2-flw/2
SetTimeout"begin31",30
End Sub
Sub begin4()
ClearTimeout
start4h=start4h+y4
start4w=start4w+x4
fl4.style.top=start4h
fl4.style.left=start4w
if start4h=>sch+50 then SetTimeOut"help4",30 else SettimeOut"begin4",30
End Sub
Sub help4()
x4=rnd*3
start4h=250
start4w=scw/2-flw/2
SetTimeout"begin4",30
End Sub
Sub begin41()
ClearTimeout
start41h=start41h+y41
start41w=start41w+x41
fl41.style.top=start41h
fl41.style.left=start41w
if start41h=>sch+50 then SetTimeOut"help41",30 else SettimeOut"begin41",30
End Sub
Sub help41()
x41=rnd*-3
start41h=250
start41w=scw/2-flw/2
SetTimeout"begin41",30
End Sub

Sub scroll()
a=a+1
n=n-1
e=e
mbl.style.backgroundposition=e&" "&n
mbr.style.backgroundposition=e&" "&n
m1.style.backgroundposition=e&" "&a
mr.style.backgroundposition=e&" "&a
mmol.style.backgroundposition=e&" "&n
mmor.style.backgroundposition=e&" "&n
mm1.style.backgroundposition=e&" "&a
mmr.style.backgroundposition=e&" "&a
mbol.style.backgroundposition=e&" "&n
mbor.style.backgroundposition=e&" "&n
mo1.style.backgroundposition=e&" "&a
mor.style.backgroundposition=e&" "&a
End Sub

Sub Window_OnResize()
window.location.reload
End Sub