/*
	Scrolling Letters.
	© 2004 by Dr. Franz-Josef Huecker.
	[ http://www.huecker.com | info@huecker.com ]
	All Rights Reserved (Feb 1th, 2010).
*/

 function stat(txt) {window.status = txt; setTimeout("erase()", 5000);};
 function erase () {window.status = "";};

  var i = 0; var TextNumber = 0;
  var TextInput = new Object();
  var HelpText = ""; var Text = "";
  var Speed = 200; var WaitSpace = "";

   TextInput[0] = "";
   TextInput[1] = "  Jeden 1. Mittwoch im Monat ab 20.00 Uhr ...  ";
   TextInput[2] = "  Swingtime im Salon.  ";
   TextInput[3] = "  ";
   TextInput[4] = "  Das aktuelle Programm unserer Kleinkunstbühne ...  ";
   TextInput[5] = "  finden Sie auf unserer Programmseite.  ";
   TotalTextInput = 5;

  for(var j = 0; j < TotalTextInput; j++) {TextInput[j] += WaitSpace};
  var TimerId; var TimerSet = false;

  function startBanner() {
   TimerSet =! TimerSet

   if(TimerSet)
    banner()
   else
    kill();
   };

   function banner() {
    Text = rollMessage();
    TimerId = setTimeout("banner()", Speed)
    document.scroll.area.value = Text+"_"; 
   };

   function rollMessage() {
    Wait_yn = false;
    i++;
    var CheckSpace = HelpText.substring(i-1, i);
    CheckSpace = "" + CheckSpace;
    if(CheckSpace == " ") { i++; }
    if(i >= HelpText.length+1) {
     i = 0; 
     if (TextNumber < TotalTextInput) {
      TextNumber++;
     } else {
      TextNumber = 0;
     }
    init();
   }
  Text = HelpText.substring(0, i);
  return (Text);
 };
 function init() {Text = TextInput[TextNumber]; HelpText = Text;};
 function kill() {clearTimeout(TimerId)};

/* End of script. */