Dim cells(12)

Sub Window_Onload()
  Randomize   

  set cells(1) = c1: set cells(2)  =  c2: set cells(3)  =  c3 : set cells(4)  =  c4
  set cells(5) = c5: set cells(6)  =  c6: set cells(7)  =  c7 : set cells(8)  =  c8
  set cells(9) = c9: set cells(10) = c10: set cells(11) = c11 : set cells(12) = c12

  call AssignColors
End Sub

Sub AssignColors()
  x1 =   0
  x2 =   0
  x3 = 100

  for i=1 to 12 
    x1 = x1 +  20
    x2 = x2 = x2 - 20
    x3 = x3 + 12
    cells(i).style.backgroundcolor=rgb(x1, x2, x3)
  next 

  Call RotateColors
End Sub

Dim animID


Sub RotateColors()
  for i = 12 to 2 step -1
    cells(i).style.backgroundcolor = cells(i-1).style.backgroundcolor 
  next

  cells(1).style.backgroundcolor = cells(12).style.backgroundcolor
  JapaneseMetal80s.style.color = cells(12).style.backgroundcolor
 
  animID = settimeout("RotateColors", 200, "Vbscript")
End Sub

sub TblColorChangerAnimStop()
     window.clearinterval( animID )

     document.all.StopButton.style.display  = "none"
     document.all.StartButton.style.display = ""

     exit sub
end sub

sub TblColorChangerAnimStart()
     RotateColors()

     document.all.StopButton.style.display  = ""
     document.all.StartButton.style.display = "none"

     exit sub
end sub