function setStatus(msg)
{
 status = msg
}

function MakeArray(n)
{
 this.lenght = n
 return this 
}

window.setTimeout('scrollit_r2l(100)',500);

function scrollit_r2l(seed)
{
 var msg="Welcome to Caer Neochiallach, ancestral home of Clan MacRogue.... We Brake for moose. I shouldn't be doing this! I have a PhD in Anthropology. 7 bloody years it took me to get. But what I really wanted to be was a lumberjack...";
 var out = " ";
 var c   = 1;
 if (seed > 100) 
 {
  seed--;
  var cmd="scrollit_r2l(" + seed + ")";
  timerTwo=window.setTimeout(cmd,100);
 }
 else 
 if (seed <= 100 && seed > 0) 
 {
  for (c=0 ; c < seed ; c++) 
  {
   out+=" ";
  }
  out+=msg;
  seed--;
  var cmd="scrollit_r2l(" + seed + ")";
  window.status=out;
  timerTwo=window.setTimeout(cmd,100);
 }
 else 
 if (seed <= 0) 
 {
  if (-seed < msg.length) 
  {
   out+=msg.substring(-seed,msg.length);
   seed--;
   var cmd="scrollit_r2l(" + seed + ")";
   window.status=out;
   timerTwo=window.setTimeout(cmd,100);
  }
  else 
  {
   window.status=" ";
   timerTwo=window.setTimeout("scrollit_r2l(100)",75);
  }
 }
}