function numbal(){ 
	var i=0; 
	var resul=0;
	var long=0;
	var letra="";
	var nom="";

// calcula nzmero fecha de nacimiento

	var pnum=document.calculo.dia.value+document.calculo.mes.value+document.calculo.ano.value;
	long=pnum.length;
	do{
		letra=pnum.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
	}while(++i<long)

	pnum=resul+"";

// calcula nzmero fecha de nacimiento un solo digito

	var numnac=pnum;
	long=numnac.length;
	i=0;
	resul=0;
	do{
		letra=numnac.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>9){
			i=0;
			numnac=resul+"";
			long=numnac.length;
			resul=0;
		}
	}while(i<long)

	numnac=resul;


// calcula nzmero de todos los nombres 	

	nom=document.calculo.nombre.value;
	long=nom.length;
	nom=nom.toLowerCase();
	i=0;
	resul=0;
	do{
        	letra=nom.charAt(i);
		switch(letra){
		  case "a": 
		  case "j": 
		  case "s": resul+=1;
			    break;
		  case "b": 
		  case "k": 
		  case "t": resul+=2;
			    break;
		  case "c": 
		  case "l": 
		  case "u": resul+=3;
			    break;
		  case "d": 
		  case "m": 
		  case "v": resul+=4;
			    break;	
		  case "e": 
		  case "n": 
	   case "&ntilde;": 
		  case "q": 
		  case "w": resul+=5;
			    break;
		  case "o": 
		  case "f": 
		  case "x": resul+=6;
			    break;	
		  case "g": 
		  case "p": 
		  case "y": resul+=7;
			    break;	
		  case "h": 
		  case "q": 
		  case "z": resul+=8;
			    break;	
		  case "i": 
		  case "r": resul+=9;
                }
	}while(++i<long)
 
	var snumn=resul+"";
	long=snumn.length;
	i=0;
	resul=0;
	do{
		letra=snumn.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>99){
			i=0;
			snumn=resul+"";
			long=snumn.length;
			resul=0;
		}
	}while(i<long)

	snumn=resul;

// calcula nzmero de los apellidos
 	
	nom=document.calculo.apellido.value;
	long=nom.length;
	nom=nom.toLowerCase();
	i=0;
	resul=0;
	do{
        	letra=nom.charAt(i);
		switch(letra){
		  case "a": 
		  case "j": 
		  case "s": resul+=1;
			    break;
		  case "b": 
		  case "k": 
		  case "t": resul+=2;
			    break;
		  case "c": 
		  case "l": 
		  case "u": resul+=3;
			    break;
		  case "d": 
		  case "m": 
		  case "v": resul+=4;
			    break;	
		  case "e": 
		  case "n":
           case "&ntilde;":  
		  case "q": 
		  case "w": resul+=5;
			    break;
		  case "o": 
		  case "f": 
		  case "x": resul+=6;
			    break;	
		  case "g": 
		  case "p": 
		  case "y": resul+=7;
			    break;	
		  case "h": 
		  case "q": 
		  case "z": resul+=8;
			    break;	
		  case "i": 
		  case "r": resul+=9;
                }
	}while(++i<long)
 
	var snuma=resul+"";
	long=snuma.length;
	i=0;
	resul=0;
	do{
		letra=snuma.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
		++i;
		if (i==long && resul>99){
			i=0;
			snuma=resul+"";
			long=snuma.length;
			resul=0;
		}
	}while(i<long)

	snuma=resul;

// numero de la suma de los nombres y apellidos

	var snum=snumn+snuma;	

// calcula numero de un solo digito de los nombres y apellidos

	var num1d=snum+"";
	long=num1d.length;
	i=0;
	resul=0;
	do{
		letra=num1d.charAt(i);
		switch(letra){
		  case "1": resul+=1;
			    break;
		  case "2": resul+=2;
			    break;
		  case "3": resul+=3;
			    break;
		  case "4": resul+=4;
			    break;	
		  case "5": resul+=5;
			    break;
		  case "6": resul+=6;
			    break;	
		  case "7": resul+=7;
			    break;	
		  case "8": resul+=8;
			    break;	
		  case "9": resul+=9;
			    break;
		  default  :resul+=0;
                }
	}while(++i<long)

	num1d=resul+"";

// calcula nzmero por cada nombre

	var numsnom="";
	nom=document.calculo.nombre.value;
	long=nom.length;
	nom=nom.toLowerCase();
	i=0;
	resul=0;
	do{
        	letra=nom.charAt(i);
		if (letra==" " && resul!=0){
		   numsnom=numsnom+resul+" - ";
		   resul=0;
		}
		switch(letra){
		  case "a": 
		  case "j": 
		  case "s": resul+=1;
			    break;
		  case "b": 
		  case "k": 
		  case "t": resul+=2;
			    break;
		  case "c": 
		  case "l": 
		  case "u": resul+=3;
			    break;
		  case "d": 
		  case "m": 
		  case "v": resul+=4;
			    break;	
		  case "e": 
		  case "n":
           case "&ntilde;":  
		  case "q": 
		  case "w": resul+=5;
			    break;
		  case "o": 
		  case "f": 
		  case "x": resul+=6;
			    break;	
		  case "g": 
		  case "p": 
		  case "y": resul+=7;
			    break;	
		  case "h": 
		  case "q": 
		  case "z": resul+=8;
			    break;	
		  case "i": 
		  case "r": resul+=9;
                }
	}while(++i<long)
 	
	if (resul!=0){
           numsnom=numsnom+resul+"";
	}

// calcula nzmero por cada apellido

	var numsape="";
	nom=document.calculo.apellido.value;
	long=nom.length;
	nom=nom.toLowerCase();
	i=0;
	resul=0;
	do{
        	letra=nom.charAt(i);
		if (letra==" " && resul!=0){
		   numsape=numsape+resul+" - ";
		   resul=0;
		}
		switch(letra){
		  case "a": 
		  case "j": 
		  case "s": resul+=1;
			    break;
		  case "b": 
		  case "k": 
		  case "t": resul+=2;
			    break;
		  case "c": 
		  case "l": 
		  case "u": resul+=3;
			    break;
		  case "d": 
		  case "m": 
		  case "v": resul+=4;
			    break;	
		  case "e": 
		  case "n":
           case "&ntilde;":  
		  case "q": 
		  case "w": resul+=5;
			    break;
		  case "o": 
		  case "f": 
		  case "x": resul+=6;
			    break;	
		  case "g": 
		  case "p": 
		  case "y": resul+=7;
			    break;	
		  case "h": 
		  case "q": 
		  case "z": resul+=8;
			    break;	
		  case "i": 
		  case "r": resul+=9;
                }
	}while(++i<long)
 
	if (resul!=0){
           numsape=numsape+resul+"";
	}

// numero del Destino numero fecha nacimiento + suma de los nombres y apellidos

	var numdes=eval(pnum)+eval(snum)+"";

	document.calculo.resultado.value=numnac+" - "+num1d+" - "+snum+" - "+pnum+" - "+numsnom+" - "+numsape+" - "+numdes; 
}