<!--  Activate Cloaking Device

//*****************************************************************************

//

// T-Banner - copyright (c) 1996 by Tomer Shiran and Yehuda Shiran. 

//

//

//          Modifications and comments by Tim Wallace  

//

//                        timothy@essex1.com

//

//*****************************************************************************


// used to track position in message

   var i = 0; 

// used to cycle thru messages                                          

   var TextNumber = 0;

// array of messages                        

   var TextInput = new Object();

// used to load manipulate message          

   var HelpText="";                              

// used to load message

   var Text = "";  

// length of timeout (smaller is faster)                                  

   var Speed=300

// spaces added to end of each message to create a pause between messages                              

   var WaitSpace="           "                 


// Each element of TextInput represents a single line of the total message.

// Be sure each line is not too long to fit on status bar (about 105 characters)

TextInput[0] = "Dive3000 ma cosa si inventa!";  

TextInput[1] = "Qui trovi Mp3, Emulatori, Articoli, come navigare gratis in rete e molto altro"

TextInput[2] = "Prima di andare via firma il libro degli ospiti";

TextInput[3] = "Visita anche le altre nostre realizzazioni http://web.tiscalinet.it/search_engines"

TextInput[4] = "e ancora http://web.tiscalinet.it/artaria"

TextInput[5] = "Sottoponi la tua home page al controllo di qualit&agrave; di HTML point, al sito www.html.it"

TextInput[6] = "... Arrivederci e buona navigazione!"

TotalTextInput = 6; // (0, 1, 2, 3, 4, 5, 6)


// Adds spaces to each element (creates a pause before next element is displayed)

for (var addWait = 0; addWait <= TotalTextInput; addWait++) 

   { TextInput[addWait]+=WaitSpace; }

        
var TimerId

var TimerSet=false;


// Called by Start button for this example.

// ---> For automatic start, call from within initBanner(). <---

function startBanner (form)  

   {

   if (!TimerSet)

      {

      TimerSet=true;

      banner();

      }

   }


// Gets character from rollMessage() and displays on staus bar. 

// Variable Speed controls length of timeout and thus the speed of typing to status bar.

function banner() 

   {

   Text=rollMessage();

   TimerId = setTimeout("banner()", Speed);

   window.status=Text;

   }


// Pulls one character at a time from string and returns (as Text) to function banner() for displaying.

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;} 

      initBanner();

      }

   Text = HelpText.substring(0, i);

   return (Text);

   }


// Initially called by onLoad in BODY tag to load first message. 

// Subsequently called from function rollMessage () to load next message.

function initBanner() 

   {

   Text = TextInput[TextNumber];

   HelpText = Text;


   //   ---> REMOVE COMMENTS FROM FOLLOWING LINE FOR AUTOMATIC START-UP  <---

   //startBanner ();


   }


// Called by Stop button.

//   ---> CAN REMOVE THIS FUNCTION FOR PRACTICAL APPLICATION <---

function stopBanner() 

   {

   TimerSet=false; 

   clearTimeout (TimerId);

   }


// Called by Reset button.

//   ---> CAN REMOVE THIS FUNCTION FOR PRACTICAL APPLICATION <---

function resetBanner()

   {

   TimerSet=false; 

   clearTimeout (TimerId);


   TextNumber=0;

   i=0;

   Speed=300;

   window.status=" ";

   initBanner();   

   }


// Function for viewing source code

//   ---> CAN REMOVE THIS FUNCTION FOR PRACTICAL APPLICATION <---

function WinOpen() 

   {

   alert('\nPage will load to full screen.\n\nUse View/Document Source from menu bar to view source.\n\nClose new window to return to this page. ');

   window.open("js-sta-t.htm","DisplayWindow","menubar=yes,status=yes");

   window.open("js-sta-t.htm","DisplayWindow","menubar=yes,status=yes");   // double for Macs

   }

// Deactivate Cloaking -->