'--------------------------------------------------- 
'Script by ShirleyG 
'Feb 2004 
'--------------------------------------------------- 
 
Option Explicit 
Dim x ,y 
x=0 
y=0 
 
sub Window_OnLoad() 
 
window.status= " --== Bienvenue au Château de Piolant ==-- " 
 
end sub 
 
setInterval "scrollit", 64 
 
sub scrollit() 
x=x+1 
y=y-1 
document.body.style.backgroundPosition=x&" "&y 
end sub