/* Funktionen zu Ausgabe von Lauftexten 

   -> aufzurufende Funktion: InitLfText() */

/* Variablendeklarationen */

// Name des Formulars, in dem der Text ausgegeben wird:
var FormName = "TestForm";

// Name des Textfeldes, in dem der Text ausgegeben wird:
var FldName = "TestFld";

// Anzahl des führenden Leerzeichen (mindestens gleich Zeichenlänge des Ausgabefeldes):
var AnzPre = 70;

// Anzahl der bei Wiederholung des Textes zwischenzuschiebenden Leerzeichen:
var AnzInter = 30;

// Zeitintervall für Weiterrücken (in Millisekunden):
var delay = 180;

/* Interne Variable */

var LfText, LzPre, LzInt;

/* Funktionen */

function InitLfText()
{ GetBlanks();
  LfText = LzPre + AktuellerText;
  ZeigeText();
}

function GetBlanks()
{ var MaxNum, sz;
  if (AnzInter > AnzPre)
  { MaxNum = AnzInter;
  }
  else
  { MaxNum = AnzPre;
  }
  LzPre = "";
  LzInt = "";
  for (sz=0; sz<MaxNum; sz++)
  { if (sz < AnzPre)
    { LzPre += " ";
    }
    if (sz < AnzInter)
    { LzInt += " ";
    }
  }
}

function ZeigeText()
{ var Code, Func;
  Code = "document." + FormName + "." + FldName + ".value='" + LfText + "';";
  Func = new Function(Code);
  Func();
  LfText = LfText.slice(1);
  if (LfText.length < AnzPre)
  { LfText = LfText + LzInt + AktuellerText;
  }
  setTimeout("ZeigeText()",delay);
}