function doFocus() {
	if (navigator.appVersion.indexOf("4.7") == -1)
		document.form.text.focus();
}
	
/* Function to copy a selection to clipboard
   Copyright (c) 2001 Michel Plungjan michel@irt.org
   Modified by misha*/

function copyclipboard(theSel) {
   if (!document.all) return; // IE only
   r=document.form.text.createTextRange();
   r.select();
   r.execCommand('copy');
}

/*ESTABLISH GLOBAL VARIABLES
	La presente funcion no funciona para Mozilla.
*/
var isshift=0;
var iscaps=0;
var isacento=0;
/*alert(isshift);
alert(iscaps);*/

/*SETS THE CAPS LOCK VARIABLE 
0 IS FALSE 1 IS TRUE*/

function capslock() {
	isshift=0;
	if (iscaps==0) {
		iscaps=1;
	/*	alert(iscaps);*/
		if (isacento==1) {
			document.form.caps.value="ACENTO+MAYUS";
		} else {
			document.form.caps.value="MAYUS";
		}
	} else {
		iscaps=0;
	/*	alert(iscaps);*/
		if (isacento==1) {
			document.form.caps.value="ACENTO";
		} else {
			document.form.caps.value="";
		}
	}
}
function shiftkey() {
	isshift=1;
	iscaps=0;
	/*alert(isshift);*/
	if (isacento==1) {
		document.form.caps.value="ACENTO+SHIFT";
	} else {
		document.form.caps.value="SHIFT";
	}
}
function acento() {
	isacento=1;
	/*alert(isshift);*/
	if (iscaps==1) {
		document.form.caps.value="MAYUS+ACENTO";
	} else if (isshift==1) {
		document.form.caps.value="SHIFT+ACENTO";
	} else {
		document.form.caps.value="ACENTO";
	}
}

/*IS PASSED THE LETTER FROM THE ONCLICK EVENT
THEN TESTS FOR CAPS LOCAK AND SHIFT BEFORE ADDING CHAR TO TEXT*/
function writelett(char) {
	var text=document.form.text.value;
	if (isacento==1) {
		isacento=0;
		if (iscaps==1) {
			document.form.caps.value="MAYUS";
		} else {
			document.form.caps.value="";
		}
		if (char == 'a') {
			char = 'á';
		} else if (char == 'e') {
			char = 'é';
		} else if (char == 'i') {
			char = 'í';
		} else if (char == 'o') {
			char = 'ó';
		} else if (char == 'u') {
			char = 'ú';
		} else {
			char = '´'+char;
		}
	}
	if (iscaps==1) {
		var char = char.toUpperCase();
		document.form.text.value=text + char;
	} else if (isshift==1) {
		var char = char.toUpperCase();
		isshift=0;
		document.form.caps.value="";
		document.form.text.value=text + char;
	} else {
		document.form.text.value=text + char;
	}
}

/*SPECIFIC FUNTIONS FOR NONE SHIFTABLE CHARACTERS
IE NUMBERS AND SPACES.
NO TEST AGAINST SHIFT OPTION*/
function writechar(char) {
	var text=document.form.text.value;
	document.form.text.value=text + char;
}


/*BACKSPACE FUNCTION*/
function backspace() {
	var text=document.form.text.value;
	var new_text = text.slice(0,-1);
	document.form.text.value=new_text;
}

function MM_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=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}