ACTUAL_FONTSIZE = 12;
SMALLEST_FONTSIZE = 10;
LARGEST_FONTSIZE = 18;

function FindObj(n, d) { //v4.01
var p,i,x;

if (!d)
  d=document;

if((p=n.indexOf("?"))>0&&parent.frames.length)
{
   d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);
}

if (!(x=d[n])&&d.all) x=d.all[n];
  for (i=0;!x&&i<d.forms.length;i++)
     x=d.forms[i][n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++)
   x=FindObj(n,d.layers[i].document);

if(!x && d.getElementById)
  x=d.getElementById(n);
  return x;
}

function ChangeProp(objName,x,theProp,theValue) { //v6.0
var obj = FindObj(objName);
if (obj && (theProp.indexOf("style.")==-1 || obj.style))
  {
    if (theValue == true || theValue == false)
      eval("obj."+theProp+"="+theValue);
    else
      eval("obj."+theProp+"='"+theValue+" px'");
  }
}

function Agranda() {
ACTUAL_FONTSIZE = ACTUAL_FONTSIZE+1;
if (ACTUAL_FONTSIZE > LARGEST_FONTSIZE)
  { 
    ACTUAL_FONTSIZE = LARGEST_FONTSIZE;
  }
  ChangeProp('texto','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  ChangeProp('entradilla','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  ChangeProp('pa','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  SaveActualFontSize();
}

function Achica() {
ACTUAL_FONTSIZE = ACTUAL_FONTSIZE-1
if (ACTUAL_FONTSIZE < SMALLEST_FONTSIZE)
  {
    ACTUAL_FONTSIZE = SMALLEST_FONTSIZE;
  }
  ChangeProp('texto','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  ChangeProp('entradilla','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  ChangeProp('pa','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  SaveActualFontSize();
}

function LoadActualFontSize() {
tempArray = document.cookie.split(";");
for (tA = 0; tA < tempArray.length; tA++)
  {
    if (tempArray[tA].indexOf('fontSize') > -1)
    {
      fontSizeValue = tempArray[tA].split("=");
      ACTUAL_FONTSIZE = parseInt(fontSizeValue[1]);
    }
  }
}

function SaveActualFontSize() {
var expire = new Date ();
expire.setTime (expire.getTime() + (6000 * 24 * 3600000));
expire = expire.toGMTString();
document.cookie="fontSize="+ACTUAL_FONTSIZE+"; path=/; expires="+expire;
}

function CargaInicial()
{
  LoadActualFontSize();
  ChangeProp('texto','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  ChangeProp('entradilla','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
  ChangeProp('pa','','style.fontSize',ACTUAL_FONTSIZE,'SPAN');
}