  <!-- ocultar
//para usarlo con frames en lugar de document  usar parent.nombreframe.document
   
   function pinchado()
   {
     alert("hola");
   }
   function hola()
    { parent.principal.document.write("hola")}

   function pontexto(txt) 
    {
     window.status=txt
     //setTimeout("quitatexto()",5000); borrar el texto en 5 segundos
    }

   function quitatexto()
    {
     window.status="";
    }
   

   /*********** variables y funciones usadas en pagina principal *******/

   var dias=new Array("Dom.","Lun.","Mar.","Mié.","Jue.","Vie.","Sáb.");
   var meses=new Array("Enero","Febrero","Marzo","Abril","Mayo","Junio","Julio","Agosto","Septiemb","Octubre","Noviemb","Diciemb"); 
   var diaspormes=new Array(31,28,31,30,31,30,31,31,30,31,30,31);
   var anocompleto=1998; //usada en la pagina mes y mirres
   
   //fiestas para 1998  
   //                    
   var fiestas=new Array(1,0,6,0,1,4,15,7,12,9,1,10,6,11,25,11);
   var numfiestas=8
   /* fiestas es un array con parejas (dia,mes), cada par indica una fiesta.  */
   /* mes debe ser 0=enero,..., 11=diciembre */   
   /* numfiestas es el tamaño del array fiestas (el numero de fiestas)        */
 
   var maxdias=31;

   function dos2cuatro(t)
     //convierte un año de dos digitos en uno de 4
     {
      if (t<1900) t+=1900 //por si solo tiene dos digitos
      if (t<1980) t+=100 //por si da 00 para 2000 
      return t
     } 

   function bisiesto(t)
     //devuelve true si el año es bisiesto
    {
      if ( (t-1980)%4==0) return true
      return false
    }

   function dia_1(year,mes)
     //devuelve el dia de la semana del dia 1 del mes indicado.
     //devuelve lunes=1, martes=2...... domingo=7
    {
     var fecha=new Date(year,mes,1) //calcular dia de la semana para el dia 1 
     var diasem=fecha.getDay(); //0 para domingo, 1 lunes...
     if (diasem==0) diasem=7
     return diasem
    }

   function fiesta(dia,mes)
    //devuelve true si el dia indicado es fiesta
    { 
      for(var j=0; j<numfiestas*2; j+=2)
        //document.write("(",fiestas[j,0],",",fiestas[j,1],")  ");
        if (dia==fiestas[j] && mes==fiestas[j+1]) return true;
      return false;
    }
   

   function dibujames(year,mes,vent)
    //year debe ser mayor que 1980. Si da dos digitos xx <80 toma 20xx, si >=80 toma 19xx
    //si se dan los cuatro digitos no hay dudas. Mes 0=enero,....11=diciembre
    {
     var fechaact=new Date();
     var diaAct=fechaact.getDate();
     var mesAct=fechaact.getMonth();
     var anoAct=dos2cuatro(fechaact.getYear());


     year=dos2cuatro(year)
     if ( bisiesto(year) && mes==1 ) maxdias=29 //año bisiesto, mes de febrero
     else maxdias=diaspormes[mes]   
     var diasem=-(dia_1(year,mes)-1); //0 si es lunes, -1 martes... 
//**************************     
     pag="";
     pag = "<table border=1 align=left cellspacing=0 cellpading=0><tr><td>";
     pag=pag + "<TABLE BGCOLOR=#0022aa border=1 width=110 bordercolor=#aaaaee cellspacing=0 cellpading=0 >";
     //pag=pag + "<TABLE BGCOLOR=#aaaaaa border=0 width=110 bordercolor=#aaaaee cellspacing=0 cellpading=0 >";
     pag=pag + "<TR><TD colspan=7 align=center bgcolor=#0022aa>";
     pag=pag +"<B><FONT FACE='PICA' SIZE=2 COLOR=#FFFFFF>"+ meses[mes]+ "-"+ year+ "</FONT></B>";
     pag=pag +"</TD></TR></table>";

     pag=pag+ "<TABLE align=left BGCOLOR=#aaaaaa border=0 width=110 bordercolor=#002255 cellspacing=0 cellpading=0 >"; 
     pag=pag + "<TR height=15 valing='top' align='right' bgcolor=#888888>";
     pag=pag +"<TD><FONT face='PICA' size=1, color=#0><b>L</b></font></TD>";   
     pag=pag +"<TD><FONT face='PICA' size=1, color=#0><b>M</b></font></TD>";   
     pag=pag +"<TD><FONT face='PICA' size=1, color=#><b>Mi</b></font></TD>";   
     pag=pag +"<TD><FONT face='PICA' size=1, color=#0><b>J</b></font></TD>";   
     pag=pag +"<TD><FONT face='PICA' size=1, color=#0><b>V</b></font></TD>";   
     pag=pag +"<TD><FONT face='PICA' size=1, color=#0><b>S</b></font></TD>";   
//     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT' BGCOLOR=#00AAAA><B><FONT COLOR=#FF0000>D</FONT></B></TD>");   
     pag=pag +"<TD HEIGHT=15 valign='TOP' align='RIGHT'><FONT face='PICA' size=1, color=#FF0000><b>D</b></font></TD>";   
     pag=pag +"</TR>"; 
     var t="&nbsp;"
     for(var u=1; u<=6; u++)
      { 
       pag=pag +"<TR>";
       for(var i=1; i<=7; i++)
        {
         diasem++
         if (diasem==diaAct && year==anoAct && mes==mesAct) pag=pag + "<TD HEIGTH=15 valign='TOP' align='RIGHT' bgcolor=#cccc00>";  //dia actual
        // else if (i%7==0) vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT' bgcolor=#00AAAA>") //domingos
              else pag=pag +"<TD HEIGHT=15 valign='TOP' align='RIGHT'>"

         if (diasem>0 && diasem<=maxdias) t=diasem
         else t="&nbsp;"
         //if ( i%7==0 || (i+1)%7==0 || fiesta(diasem,mes) )
         if ( i%7==0 || fiesta(diasem,mes) ) 
           pag=pag +"<FONT FACE='arial' SIZE=1 COLOR=#FF0000>"+t+"</FONT>"; //domingos y sabados   
         else pag=pag +"<FONT FACE='arial' SIZE=1 COLOR=#000099>"+t+"</FONT>"; //normal    
  
         pag=pag +"</td>";
        }
       pag=pag +"</tr>";
      }
     pag=pag +"</table>";
     pag=pag + "</td></tr></table>";
     vent.document.write(pag);
     return 0;   






//***************************
    vent.document.write("<table border=1 align=left cellspacing=0 cellpadding=0><tr><td>")

     vent.document.write("<TABLE BGCOLOR=#002255 border=1 width=110 bordercolor=#aaaaee cellspacing=0 cellpading=0 >")
     vent.document.write("<TR><TD><CENTER>");
     vent.document.write("<B><FONT FACE='PICA' SIZE=2 COLOR=#FFFFFF>",meses[mes],"-",year,"</FONT></B>"); 
     vent.document.write("</CENTER></TD></TR></TABLE>");
   
     vent.document.write("<TABLE align=left BGCOLOR=#aaaaaa border=0 width=110 bordercolor=#002255 cellspacing=0 cellpading=0 >") 
     vent.document.write("<TR>")
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>L</FONT></B></TD>");   
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>M</FONT></B></TD>");   
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>Mi</FONT></B></TD>");   
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>J</FONT></B></TD>");   
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>V</FONT></B></TD>");   
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>S</FONT></B></TD>");   
//     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT' BGCOLOR=#00AAAA><B><FONT FACE='PICA' SIZE=1 COLOR=#FF0000>D</FONT></B></TD>");   
     vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'><B><FONT FACE='PICA' SIZE=1 COLOR=#DDDDDD>D</FONT></B></TD>");   
     vent.document.write("</TR>"); 
     var t="&nbsp;"
     for(var u=1; u<=6; u++)
      { 
       vent.document.write("<TR>");
       for(var i=1; i<=7; i++)
        {
         diasem++
         if (diasem==diaAct && year==anoAct && mes==mesAct)vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT' bgcolor=#cccc00>")//dia actual
        // else if (i%7==0) vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT' bgcolor=#00AAAA>") //domingos
              else vent.document.write("<TD HEIGTH=15 valign='TOP' align='RIGHT'>")

         if (diasem>0 && diasem<=maxdias) t=diasem
         else t="&nbsp;"
         //if ( i%7==0 || (i+1)%7==0 || fiesta(diasem,mes) )
         if ( i%7==0 || fiesta(diasem,mes) ) 
vent.document.write("<b><FONT FACE='PICA' SIZE=1 COLOR=#FF0000>"+t+"</FONT></b>"); //domingos y sabados   
         else vent.document.write("<FONT FACE='PICA' SIZE=1 COLOR=#000000>"+t+"</FONT>"); //normal    
  
         vent.document.write("</td>");
        }
       vent.document.write("</tr>")
      }
     vent.document.write("</table>");

     vent.document.write("</td></tr></table>");
   }
   
  function calendario(years,vent) //year debe darse completo con 4 digitos
   { 
    vent.document.write("<table border=0 align=left cellspacing=0 cellpadding=0>")
    for(var p=0;p<3;p++) 
     { 
      vent.document.write("<tr>") 
      for(var h=0; h<4; h++)
       { 
        vent.document.write("<td>");
        dibujames(years,h+(p*4),vent) 
        vent.document.write("</td>")
       }
      vent.document.write("</tr>")
     }
    vent.document.write("</table>")
   }
 
 
  function veranocompleto(ano,columnas)
  {
    opcionesventana="width=500,height=470,resizable=yes,scrollbars=yes,status=yes,location=no,top=50,left=50";
   //   opcionesventana="";
   //var ventanacurriculum=window.open('d:/html/pagina personal/curricul1.htm', 'miventanta', opcionesventana);
   var ventana1=window.open("", "ventanacur", opcionesventana)
   //ventana1=self.window;
   ventana1.status="Cargando datos, espere un poco...";
   ventana1.document.write('<!doctype html public "-//w3c//dtd html 4.0 transitional//en">');
   ventana1.document.writeln("<html>");
   ventana1.document.writeln("<head>");
   ventana1.document.writeln("<meta http-equiv='Content-Language' content='es'>");
   ventana1.document.writeln('<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">');
   ventana1.document.writeln('<title>Almanaque</title>');

   //para publicarlo cambiar las dos lineas que siguen (en home.htm tambien)
   //ventanacurriculum.document.writeln('<base href="file:///d:/html/pagina personal/">');
   //ventanacurriculum.document.writeln('<base href="http://perso.wanadoo.es/javimorlo/">');
   ventana1.document.writeln("</head>");
   //ventanacurriculum.document.writeln('<body background="' + direccionbase + 'fondo3.jpg">');
   //ventanacurriculum.document.write("<base href='d:/html/pagina personal/'>");
   ventana1.document.writeln('<body background="fondo3.jpg">');
   ventana1.document.write("<table cellpadding=0  cellspacing=0>");
   for (i=0; i<=11; i++)
     {
       if (i%columnas==(columnas)) ventana1.document.write("</tr>");  //final de una fila
       if (i%columnas==0) ventana1.document.write("<tr>"); //inicio de una fila
       ventana1.document.write("<td>");
       dibujames(ano,i,ventana1);
       ventana1.status="cargando " + meses[i]+"..."; //11-i;
       //ventana1.document.write(11-i);
       ventana1.document.write("</td>");       
      }
   ventana1.document.write("</table>");
    
    
    ventana1.document.write('<form>');
    ventana1.document.write('<input type="button" value="Cerrar" onclick=self.close(); style="font-size: 10 px">');
    ventana1.document.write('</form>');
    
    ventana1.document.write("</body>");
    ventana1.document.write("</html>");
    ventana1.status="Pagina cargada.";
  } 

 
  //-->

