' VB Script Document



Option Explicit

Dim delayit,x,xm,lm,tm,lx,ty



x=0:xm=1
lm=310:lx=10
tm=100:ty=10



Dim color2(9)

color2(1)="#000000"
color2(2)="#212121"

color2(3)="#404040"

color2(4)="#616161"

color2(5)="#808080"
color2(6)="#a1a1a1"

color2(7)="#bfbfbf"

color2(8)="#e0e0e0"

color2(8)="#ffffff"



document.write "<div id=clash style='color:white;font-family:Castellar'><h4><font size=3 font-family=president>Table Of <u>Contents</u></font></h4></div>"


changecolor()


sub changecolor()

x=x+xm
lm= lm + lx
tm= tm + ty

 if x > 8 then xm=-xm
 if x < 1 then xm=-xm





document.all.clash.style.color = color2(x)


delayit = settimeout("changecolor()",250)


end sub