// Copyright 2003 Alpine worX.  All Rights Reserved 
	// This code may not be used without permission.
	//
	// Authored by Eric Bouwsema
	// Modified June 2, 2003
		
	var scrMTtl = 0;
	var scrMSub = 0;
	var scrHTtl = 0;
	var scrStep;
	var scrDel;
	var scrLDel;
	var scrAH = new Array();
	var scrACur = 0;
	var oIn;
	var oTOut;

	function scrLoad(){
		scrStep = 2;	// Step Level
		scrDel = 75;	// Delay Time
		scrLDel = 1500;	// Long Delay Time
		scrInit();
	}

	// Do not modify below this line.

	function scrInit(){
		if (document.all || document.getElementById) {
			if (document.getElementById) {
				oIn = document.getElementById("scrInner");
			} else {
				oIn = document.all["scrInner"];
			}
			if (document.getElementsByTagName) {
				var x
				var aEl = oIn.getElementsByTagName("div");
				for (var i = 0; i < aEl.length; i++) {
					x = parseFloat(aEl[i].scrollHeight);
					/*if (document.all) {
						scrAH[i] = (x + 16);
					} else {*/
						scrAH[i] = x + 20;
					//}
				}
			}
			scrHTtl = oIn.scrollHeight;
			oIn.innerHTML += oIn.innerHTML;
		} else if (document.layers) {
			oIn = document.layers["scrOuter"].layers["scrInner"];
			scrHTtl = oIn.document.height;
		}	
		
		axMoveTo(oIn, 10, 5);
		
		oTOut = setTimeout('scrMove()', scrLDel);
	}

	function scrMove(){
		//alert(scrMTtl >= scrHTtl);
		if (scrMTtl >= scrHTtl || (scrMTtl + scrStep) >= scrHTtl) {
			if (document.layers) {
				axMoveTo(oIn, 10, 148);	//Modify to Height
				scrMTtl = -148;
			} else {
				axMoveTo(oIn, 10, 5);
				scrMSub = 0;
				scrMTtl = 0;
				scrACur = 0;
			}
			if (document.getElementById) {
				oTOut = setTimeout('scrMove()', scrLDel);
			} else {
				oTOut = setTimeout('scrMove()', scrDel);
			}
		} else {
			if (document.getElementById) {
				if (scrMSub >= scrAH[scrACur]) {
					axMoveBy(oIn, 0, -scrStep);
					if (scrACur >= scrAH.length) {
						scrACur = 0;
					} else {
						scrACur++;
					}
					scrMSub = 0;
					scrMTtl += scrStep;
					oTOut = setTimeout('scrMove()', scrLDel);
				} else {
					//alert(scrMSub + "=" + scrACur + "=" + scrAH.length);
					axMoveBy(oIn, 0, -scrStep);
					scrMSub += scrStep;
					scrMTtl += scrStep;
					oTOut = setTimeout('scrMove()', scrDel);
				}
			} else {
				axMoveBy(oIn, 0, -scrStep);
				scrMTtl += scrStep;
				oTOut = setTimeout('scrMove()', scrDel);
			}
		}
	
	}
	
	function axMoveTo(inObj, inX, inY){
		if (document.layers) {
			inObj.moveTo(inX, inY);
		} else {
			inObj.style.left=inX;
			inObj.style.top=inY;
		}
	}
	
	function axMoveBy(inObj, inX, inY){
		if (document.layers) {
			inObj.moveBy(inX, inY);
		} else {
			inObj.style.left = parseInt(inObj.style.left) + inX;
			inObj.style.top = parseInt(inObj.style.top) + inY;
		}
	}


	function scrStop(){
		if (typeof oTOut == 'number'){
			clearTimeout(oTOut);
			oTOut = null;
		} else {
			oTOut = setTimeout('scrMove()', scrDel);
		}
	}