}
function punto (dat,dec)
{
	if (dat+0==0) return ""
	pun=sprintf("%%.%df",dec)
	da=sprintf (pun,dat)
	if(dec) l=length(da)-dec-1
	else l=length(da)
	dat=substr(da,l+2)
	dato=substr(da,1,l)
	if (l>6) pun=substr(dato,1,l-6)"."substr(dato,l-5,3)"."substr(dato,l-2)
	else if(l >3) pun=substr(dato,1,l-3)"."substr(dato,l-2)
	else pun=dato
	if (dec) pun=pun","dat
	return pun
}
li >60 {
if (li <100) printf "%s\n  INHEDO S.A.\n\f",r0
	print rt0
	print rt1
	print rt2
	print "\n"
	printf r,"'"$f"'",++pg
	print r0
	print r1
	print r2
	print r0
	li=0
}
{
li++
