// Your comments here

function setupTicker(theMessage,fwidth,speed)
	{
	x = new Date(); formcount = x.getTime();
	formName = "scrollForm" + formcount;
	fieldName = "scrollField" + formcount;
	if ((navigator.userAgent.indexOf("MSIE") == -1) && (navigator.userAgent.indexOf("msie") == -1))
		{
		fieldStyle = "";
		}
	else
		{
		fieldStyle = "Courier";
		}
	document.write('<FORM name="'+ formName + '"><INPUT NAME="' + fieldName + '" SIZE="' + fwidth + '" STYLE="font-family:' + fieldStyle + '"></FORM>');
	eval("scrollText(document." + formName + "." + fieldName + ",theMessage,fwidth,speed,0,0,0)");
	}

function scrollText(theField,theMessage,theWidth,theSpeed,scrollStart,scrollEnd,scrollCount)
	{
	theOtherField = theField;
	if (scrollEnd < (theMessage.length))
		{
		theField.value = padTextPrefix(theMessage.substring(scrollStart,scrollEnd)," ",theWidth-scrollCount);
		scrollEnd++;
		}
	else
		{
		scrollCount++;
		theField.value = padTextSuffix(padTextPrefix(theMessage.substring(scrollStart,scrollEnd)," ",theWidth-scrollCount)," ",theWidth);
		}
	if (scrollCount == (parseInt(theWidth)-theMessage.substring(scrollStart,scrollEnd).length+1))
		{
		scrollStart++;
		}
  	if (scrollStart == scrollEnd)
		{
		scrollStart = 0;
		scrollEnd = 0;
		scrollCount = 0;
		}
	scrollTimeout=eval("window.setTimeout('scrollText(theOtherField,\""+theMessage+"\"," + theWidth + "," + theSpeed + "," + scrollStart + "," + scrollEnd + "," + scrollCount + ")',theSpeed)");
	}

function padTextPrefix (InString, PadChar, DefLength)
	{
	if (InString.length>=DefLength)
		{
		return (InString);
		}
	OutString = InString;
	for (Count = InString.length; Count<DefLength; Count++)
		{
		OutString=PadChar+OutString
		}
	return (OutString);
	}

function padTextSuffix (InString, PadChar, DefLength)
	{
	if (InString.length >= DefLength)
		{
		return (InString);
		}
	OutString = InString;
	for (Count = InString.length; Count<DefLength; Count++)
		{
		OutString = OutString + PadChar
		}
	return (OutString);
	}


function _HpbStopScrollStatus()
{
  if (_hsstmrON)
  {
    window.clearTimeout(_hsstmrID);
    window.status = window.defaultStatus;
    _hsstmrID = null;
    _hsstmrON = false;
  }
}


var _hsstmrID = null;
var _hsstmrON = false;
var _hsspos   = 80;

function _HpbScrollStatus(msg, delay)
{
  if (_hsstmrON)
  {
    window.clearTimeout(_hsstmrID);
    _hsstmrON = false;
  }

  var statmsg = "";

  if (_hsspos >= 0)
  {
    for (s = 0; s < _hsspos; s++)
    {
      statmsg += " ";
    }

    statmsg += msg;
  }
  else
  {
    statmsg = msg.substring(-_hsspos, msg.length);
  }

  window.status = statmsg;
  
  _hsspos = (-_hsspos > msg.length) ? 80 : _hsspos - 1;  

  fname = "_HpbScrollStatus('" + msg + "', " + delay + ")";
  _hsstmrID = window.setTimeout(fname, delay);
  _hsstmrON = true;
}