var Semaphore = 0;
var TimeSlot;
var CurrentScrollString;

function MakeScrollTxt(BoxSize, SCrollString)
{
	for(var SizeOfBox = 1; SizeOfBox <= BoxSize; SizeOfBox++)
		SCrollString = ' '+SCrollString

	return SCrollString;
}

function TextSCrollIng(ObjID, BoxSize, SCrollString)
{
	Semaphore++;
	CurrentScrollString = SCrollString
	TxtScroll(ObjID, 0, BoxSize, 1);
}

function TxtScroll(ObjID, TxtLoc, BoxSize, ScrollCount)
{
	var IngScrollString, SliceLoc;
	
	if(Semaphore == 1)
	{

		IngScrollString = (ScrollCount != 1)?MakeScrollTxt(BoxSize, CurrentScrollString):CurrentScrollString;
		IngScrollString = IngScrollString.substring(TxtLoc,IngScrollString.length);
				
		document.all[ObjID].innerHTML = ReplaceString(IngScrollString.substring(TxtLoc,IngScrollString.length), " ", "&nbsp;");
		
		if (TxtLoc >= IngScrollString.length)
		{
			TxtLoc = 0;
			ScrollCount++;
		} else {
			TxtLoc++;
		}
		
		TimeSlot = setTimeout("TxtScroll('"+ObjID+"','"+TxtLoc+"','"+BoxSize+"','"+ScrollCount+"')",250);
		
	}
}

function ReplaceString(SCrollString, OrgChar, RepChar)
{
	var ReturnBuf ="";
	
	for(var StringCount = 0; StringCount < SCrollString.length; StringCount++)
		ReturnBuf += SCrollString.substring(StringCount,StringCount+1).replace(OrgChar, RepChar);
	
	return ReturnBuf;
}

function StopScroll(ObjID, InitString)
{
	Semaphore--;
	document.all[ObjID].innerHTML = InitString;
	CurrentScrollString = "";
	clearTimeout(TimeSlot);
}