<!--
function NewText(aArray, oArea, nSpeed) {
	this.Array    = aArray;
	this.Area     = oArea;
	this.Contents = "";
	this.Speed    = 0;
	this.SpeedChar= nSpeed;
	this.SpeedLoop= 3000;
	this.RowIndex = 0;
	this.RowPos   = 0;
	this.Continue = true;
	this.Looping  = false;
	this.TypeText = _TypeText;
}
function _TypeText() {
	with ( this ){
	  if ( !Continue ) return false;
		Contents += Array[RowIndex].substring(RowPos++, RowPos);
		Area.value = Contents + "_";
		if ( RowPos==Array[RowIndex].length ){
			Contents += "\r\n";
			RowIndex++;
			RowPos = 0;
		}
		Continue = ( RowIndex < Array.length &&
								 RowPos <= Array[RowIndex].length );
		Speed = SpeedChar;
		if ( !Continue && Looping ){
			RowIndex = 0;
			RowPos   = 0;
			Continue = true;
			Contents = "";
			Speed   = SpeedLoop;
		}
	}
}
function TypeText(cObject) {
	var oObj=eval(cObject), nSpeed;
	with ( oObj ){
		TypeText();
		if ( Continue ) thetimer = setTimeout("TypeText('" + cObject + "')", Speed);
	}
}
//-->