var ntotal=0
var nmiles=0

function hazarro(nnumero){
nara=parseInt(nnumero,"10")
ntotal=nara
cmil=""
crom=""
crom=damille()+dacentum()+dadecem()+daquinque()+daunum()
if (nmiles>2){
	ntotal=nmiles
	cmil=dacentum()+dadecem()+daquinque()+daunum()
	crom=cambiacadena(crom,"M","")
	crom=cmil+crom
}
if (document.all){
	if (document.all["num00"]){
		if (nmiles>2){verdiv("num00")}
		else {ocudiv("num00")}
	}
}
if (crom==""){crom="nihil"}
return (crom)
}

function damille(){
cmiles=""
nmiles=parseInt(ntotal/1000,"10")
for (i=1;i<=nmiles;i++){
ntotal=ntotal-1000
cmiles=cmiles+"M"
}
return (cmiles)
}

function dacentum(){
ccien=""
ncien=parseInt(ntotal/100,"10")
for (i=1;i<=ncien;i++){
ntotal=ntotal-100
ccien=ccien+"C"
}
if (ncien==4){ccien="CD"}
if (ncien==9){ccien="CM"}
ccien=cambiacadena(ccien,"CCCCC","D")
return (ccien)
}

function dadecem(){
cdiez=""
ndiez=parseInt(ntotal/10,"10")
for (i=1;i<=ndiez;i++){
ntotal=ntotal-10
cdiez=cdiez+"X"
}
if (ndiez==4){cdiez="XL"}
if (ndiez==9){cdiez="XC"}
cdiez=cambiacadena(cdiez,"XXXXX","L")
return (cdiez)
}

function daquinque(){
ccinco=""
if (ntotal>=5){
	if (ntotal==9){ccinco="IX";ntotal=ntotal-9}
	else {ccinco="V";ntotal=ntotal-5}
}
return (ccinco)
}

function daunum(){
cuno=""
nuno=ntotal
for (i=1;i<=nuno;i++){
ntotal=ntotal-1
cuno=cuno+"I"
}
if (nuno==4){cuno="IV"}
return (cuno)
}

function hazroar(cnumero){
crom=cnumero.toUpperCase()
nlonnum=crom.length
ntotal=0
nuno=0
ncinco=0
ndiez=0
ncincuenta=0
ncien=0
nquinientos=0
nmil=0
for (ncar=nlonnum;ncar>0;ncar--){
ccar=crom.substring(ncar-1,ncar)
if (ccar=="I"){
	if (ncinco==0){
		ntotal=ntotal+1
	}
	else {
		ntotal=ntotal-1
	}
	++nuno
}
if (ccar=="V"){
	ntotal=ntotal+5
	++ncinco
	}
if (ccar=="X"){
	if (ncien==0 && ncincuenta==0){
		ntotal=ntotal+10
	}
	else {
		ntotal=ntotal-10
	}
	++ndiez
}
if (ccar=="L"){
	ntotal=ntotal+50
	++ncincuenta
	}
if (ccar=="C"){
	if (nmil==0){
		ntotal=ntotal+100
	}
	else {
		ntotal=ntotal-100
	}
	++ncien
}
if (ccar=="D"){
	ntotal=ntotal+500
	++nquinientos
	}
if (ccar=="M"){
	ntotal=ntotal+1000
	++nmil
	}
}
return (ntotal)
}

function hazmiar(cnumero){
cgri=cnumero
nlonnum=cgri.length

ntotal=0
nanterior=0
nunidad=0
ndecena=0
ncentena=0
nmil=1

for (ncar=0;ncar<nlonnum;++ncar){
ccar=cgri.substring(ncar,ncar+1)
if (ccar=="a"){ntotal=ntotal+(1*nmil)}
if (ccar=="b"){ntotal=ntotal+(2*nmil)}
if (ccar=="g"){ntotal=ntotal+(3*nmil)}
if (ccar=="d"){ntotal=ntotal+(4*nmil)}
if (ccar=="e"){ntotal=ntotal+(5*nmil)}
if (ccar=="$"){ntotal=ntotal+(6*nmil)}
if (ccar=="#"){ntotal=ntotal+(6*nmil)}
if (ccar=="z"){ntotal=ntotal+(7*nmil)}
if (ccar=="h"){ntotal=ntotal+(8*nmil)}
if (ccar=="q"){ntotal=ntotal+(9*nmil)}
if (ccar=="i"){ntotal=ntotal+(10*nmil)}
if (ccar=="k"){ntotal=ntotal+(20*nmil)}
if (ccar=="l"){ntotal=ntotal+(30*nmil)}
if (ccar=="m"){ntotal=ntotal+(40*nmil)}
if (ccar=="n"){ntotal=ntotal+(50*nmil)}
if (ccar=="x"){ntotal=ntotal+(60*nmil)}
if (ccar=="o"){ntotal=ntotal+(70*nmil)}
if (ccar=="p"){ntotal=ntotal+(80*nmil)}
if (ccar=="%"){ntotal=ntotal+(90*nmil)}
if (ccar=="r"){ntotal=ntotal+(100*nmil)}
if (ccar=="s"){ntotal=ntotal+(200*nmil)}
if (ccar=="t"){ntotal=ntotal+(300*nmil)}
if (ccar=="u"){ntotal=ntotal+(400*nmil)}
if (ccar=="f"){ntotal=ntotal+(500*nmil)}
if (ccar=="c"){ntotal=ntotal+(600*nmil)}
if (ccar=="y"){ntotal=ntotal+(700*nmil)}
if (ccar=="w"){ntotal=ntotal+(800*nmil)}
if (ccar==String.fromCharCode(34)){ntotal=ntotal+(900*nmil)}
if (ccar=="M"){ntotal=ntotal+10000}
if (ccar==","){nmil=1000}
else {nmil=1}
}
return (ntotal)
}

function hazarmi(nnumero){

cnumero=""
ntotal=nnumero
nanterior=0
nmiles=0
ncientos=0
ndecenas=0
nunidades=0

nmiles=parseInt(ntotal/1000,"10")
ntotal=ntotal-(nmiles*1000)
if (ntotal>0){
	ncientos=parseInt(ntotal/100,"10")
	ntotal=ntotal-(ncientos*100)
	if (ntotal>0){
		ndecenas=parseInt(ntotal/10,"10")
		ntotal=ntotal-(ndecenas*10)
		if (ntotal>0){
			nunidades=parseInt(ntotal,"10")
		}
	}
}

cunidades="abgde#zhq"
cdecenas="iklmnxop%"
ccientos="rstufcyw"+String.fromCharCode(34)

if (nmiles>=100) {
	nmiles=parseInt((nmiles/100),"10")
	cnumero=cnumero+","+ccientos.substring(nmiles-1,nmiles)
}
else {
	if (nmiles>=10){
		nmiles=parseInt((nmiles/10),"10")
		cnumero=cnumero+","+cdecenas.substring(nmiles-1,nmiles)
	}
	else {
		if (nmiles>0){
			cnumero=cnumero+","+cunidades.substring(nmiles-1,nmiles)
		}
	}
}

if (ncientos>0) {cnumero=cnumero+ccientos.substring(ncientos-1,ncientos)}
if (ndecenas>0) {cnumero=cnumero+cdecenas.substring(ndecenas-1,ndecenas)}
if (nunidades>0) {cnumero=cnumero+cunidades.substring(nunidades-1,nunidades)}
if (cnumero==""){cnumero="oÙdšn"}
else {cnumero=cnumero+"'"}
return (cnumero)

}