<!-- Original:  Ernst Straka (ernst.straka@central-europe.basf.org) -->
<!-- Web Site:  http://www.rs-systems.at/straka -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
var mainx = 0;
var mainy = 0;
var l1 =   0; // left of ticker in pixel, or 0 to position relative
var t1 =   0; // top-left of ticker in pixel, or 0 to position relative
var w1 = 720; // width of ticker in pixel
var ie = document.all ? true : false;
var first = true;
var l2 = l1 + w1;
var l3 = l1 - l2;
var l = l2;
function tickinit() {
  if (ie) {
    if (l1 == 0 && t1 == 0) {
      pos = document.all['tickpos'];
      l1 = getLeft(pos);
      t1 = getTop(pos);
    }
    t1 = ticktext.style.posTop;
    ticktext.style.posTop = t1;
  }
  else {
    if (l1 == 0 && t1 == 0) {
      //pos = document.anchors['tickpos'];
      //l1 = pos.x;
     // t1 = pos.y;
      l1 =  document.ticktext.left;
      t1 =  document.ticktext.top;
    }
    document.ticktext.pageY = t1;
  }
//  w1 = document.body.clientWidth;

  l2 = l1 + w1;
  l3 = l1 - l2;
  l = l2;
  setInterval('tick()', 10);
}

function getLeft(ll) {
  if (ll.offsetParent)
    return (ll.offsetLeft + getLeft(ll.offsetParent));
  else 
    return (ll.offsetLeft);
}

function getTop(ll) {
  if (ll.offsetParent)
    return (ll.offsetTop + getTop(ll.offsetParent));
  else
    return (ll.offsetTop);
}

function tick() {
  l = l - 4;
  if (l < l3) l = l2;
  cl = l1 - l;
  cr = l2 - l;
  if (ie) {
    ticktext.style.posLeft = l;
    ticktext.style.posTop = t1;
    ticktext.style.clip = "rect(auto "+cr+"px auto "+cl+"px)";
    if (first) ticktext.style.visibility = "visible";
  }
  else {
    document.ticktext.pageX = l;
    document.ticktext.clip.left = cl;
    document.ticktext.clip.right = cr;
    if (first) document.ticktext.visibility = "show";
  }
  first = false;
}

//  End -->