/*  
   Eduardo Rene Rodriguez Avila
   Copyright(c)
   Estas funciones pueden ser copiadas y distribuidas libremente mientras 
   se conserven estas l¡neas de comentarios y no se modifique el c¢digo.
   
   This functions can be copied and freely distributed as these comments
   and source code are not modified.
*/
var Marquee_Size=80;
var Lapsus=100;
var Semaphore=0;
var CookiesScripts=6;
var CookiesFile="";
var Cookie=0;

      
function MarqueeAtBottom(text,count,flag)
  {
    text=text.substring(1,text.length)+text.substring(0,1);
    if ( count && Semaphore==1 )
      {
       window.status=text;
       window.setTimeout("MarqueeAtBottom('"+text+"',"+(--count)+")",Lapsus);
      }
    else 
        {
          Semaphore--;
          window.status="";
          window.clearTimeout(null);
        }
  }

function Marquee(text,loops)
  {
    for(c=1; c<Marquee_Size; c++)
       text=" "+text;

    Semaphore++;
    if ( Semaphore==1 )
       MarqueeAtBottom(text,text.length*loops);
    else
       window.setTimeout("MarqueeAtBottom('"+text+"',"+text.length*loops+")",Lapsus);
  }

function Clock()
  {
   var dt=new Date();
   //document.dateform1.date.value=dt.toString().substr(0,27);
   document.dateform1.date.value=dt.toString().substr(10,9);
   window.setTimeout("Clock()",Lapsus);
  }

function GMTClock()
  {
   var dt=new Date();
   document.dateform2.GMTdate.value=dt.toGMTString().substr(16,9);
   window.setTimeout("GMTClock()",Lapsus);
  }

function CheckBrowser()
  {
    if( navigator.appName == "Netscape" )
       {
         Marquee_Size=130;
         if( parseFloat(navigator.appVersion.substr(0,navigator.appVersion.indexOf(" "))) < 4.5 ) 
            alert("Esta página ha sido verificada para funcionar con Netscape Communicator 4.5 o superior. La versión que está usando es menor.\n\nThis page has been tested with Netscape Communicator 4.5 or greater.  The version you're using is minor.");
         else 
            alert("Esta página se diseño para el navegador Internet Explorer. Debido a la pobre implementación de Netscape de la Especificación de Hojas de Estilo, algunos elementos en esta página podrían no ser mostrados apropiadamente.\n\nThis page has been designed for the Internet Explorer browser. Due to the poor implementation of Netscape of the Style Sheets Specification, some elements on this page could not be properly displayed.");
       }
    else if( navigator.appName != "Microsoft Internet Explorer" )
            alert("Esta página ha sido diseñada para verse con el navegador Internet Explorer de Microsoft y se ha probado con el producto de Netscape. Algunos elementos pueden no ser mostrados adecuadamente o recibirse mensajes de error.\n\nThis page has been designed for the Microsoft Internet Explorer browser and tested with the Netscape product. Some elements could not be properly displayed or receive error messages.");
         else if( parseFloat(navigator.appVersion.substr(0,navigator.appVersion.indexOf(" "))) < 4 ) 
                 alert("Esta página ha sido diseñada para ser vista con Internet Explorer 4.0 o versión mayor.\nThis page has been designed to be viewed with Internet Explorer 4.0 or greater.");
  }

function Scroll(counter, delta, limit)
  {
    if( counter!=limit )
       {
         window.scroll(0,counter);
         counter=counter+delta;
         window.setTimeout('Scroll('+counter+','+delta+','+limit+')',Lapsus);
       }
    else window.clearTimeout(null);
  }


function TheArray()
{
   this.length=TheArray.arguments.length;
   for( var i=1;i<=this.length;i++ )
        this[i]=TheArray.arguments[i-1];
}

function Instantiate(doc, name, type)
{
  var handler;
  if( type=="TICKER") handler=open(doc, name,'toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=1,width=100,height=100,top=0,left=0');
}