#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	132+posin
#define estac	6+posin
//#define linea	11+posin
#define linea	10+posin
//#define durac	15+posin
#define durac	16+posin
//#define hor     30+posin
#define hor     31+posin
#define fech	22+posin
#define	tranf	37+posin
#define numero	38+posin
#define ccost	57+posin
#define proye   79+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
//#define ring	45+posin
#define ring	44+posin
#define antran	0			// anexo transferido
#define fofech	americano

extern char rgua[];
void in_central()
{ 
   rgua[0]='\0'; 
}

void fi_central()
{
} 

void DatCentral(char *buf, char *tel, int vestac, int vlinea,int vdurac,int vhor, int vfech,
                int vtranf, int vnumero, int vccost,int vproye, int vcuenta, int vpulsos, int vruta, int vprinum, int vring, int vantran, int vfofech)
{   
	int i=strlen(buf),k,aux,cont,j  ;
	aux = 0;cont=0;
	if (i>(vring+2) && buf[vfech+2]=='/'  && buf[vhor+2]==':' && buf[vdurac+2]==':' && (buf[vtranf]=='I' || buf[vtranf]=='O' || buf[vtranf]=='t' || buf[vtranf]=='T'))
	{
		k = 0 ;
		for (j=0;j<3;j++)
		{
			if (isdigit(buf[vestac+j])) {tel[k++] = buf[vestac+j] ; cont++;}
		}
	    if(cont==0)tel[k++] = '*';cont=0;
		tel[k++] = ' ' ;
		for (j=0;j<2;j++)
		{
			if (isdigit(buf[vlinea+j])) {tel[k++] = buf[vlinea+j] ; cont++;}
		}
	    if(cont==0)tel[k++] = '*';cont=0;
		tel[k++] = ' ' ;
		tel[k++] = '0' ; tel[k++] = '0' ;
		tel[k++] = ':' ;
		if (buf[vdurac+0]!=' ') tel[k++]=buf[vdurac+0] ;
		else                   tel[k++]='0' ;
		if (buf[vdurac+1]!=' ') tel[k++]=buf[vdurac+1] ;
		else                   tel[k++]='0' ;
		tel[k++] = ':' ;
		if (buf[vdurac+3]!=' ') tel[k++]=buf[vdurac+3] ;
		else                   tel[k++]='0' ;
		if (buf[vdurac+4]!=' ') tel[k++]=buf[vdurac+4] ;
		else                   tel[k++]='0' ;
		tel[k++] = ' ' ;
		for (j=0;j<5;j++)
		{
			if (isdigit(buf[vhor+j]) || buf[vhor+j]==':') 
			{
				tel[k++] = buf[vhor+j] ; cont++;
			}
		}
	    if(cont==0)tel[k++] = '*';cont=0;
		tel[k++] = ' ' ;                                      
		if (vfofech==americano) 
		{
			tel[k++] = buf[vfech+0] ;
			tel[k++] = buf[vfech+1] ;
			tel[k++] = '/';
			tel[k++] = buf[vfech+3] ;
			tel[k++] = buf[vfech+4] ;
		}
		else 
		{
			tel[k++] = buf[vfech+3] ;
			tel[k++] = buf[vfech+4] ;
			tel[k++] = '/';
			tel[k++] = buf[vfech+0] ;
			tel[k++] = buf[vfech+1] ;
		}
		tel[k++] = '/';
		tel[k++] = buf[vfech+6] ;
		tel[k++] = buf[vfech+7] ;
		tel[k++] = ' ' ;
		if (buf[vtranf]=='O' || buf[vtranf]=='T' || buf[vtranf]=='t')	tel[k++]='O' ;
		else															tel[k++]='I' ;
		tel[k++] = ' ' ;
		if (buf[vtranf]=='O')
		{
			for (j=0;j<16;j++)
			{
				if (isdigit(buf[vnumero+j])) tel[k++] = buf[vnumero+j];
			}
		}
		else tel[k++] = '*';
		tel[k++] = ' ';
		for (j=0;j<3;j++)
		{
			if (isdigit(buf[vccost+j])) {tel[k++] = buf[vccost+j] ; cont++;}
		}
	    if(cont==0)
		{
			tel[k++] = '*'; tel[k++] = '*'; tel[k++] = '*';
			cont=0;
		}
		tel[k++] = ' ' ;
		if(buf[vproye]=='P' && i>97)
		{
			for (j=1;j<4;j++) tel[k++] = buf[vproye+j];
		}
		else
		{
			tel[k++]='*'; /* proyecto */
		}
		tel[k++] = ' ' ;
		tel[k++] = '*' ;
		tel[k++] = ' ' ;
		for (j=0 ; j<4; j++) tel[k++]='0' ;       /* pulsos */
		tel[k++] = ' ' ;
		tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;  /* ruta */
		tel[k++] = ' ' ;
		tel[k++] = '*' ;    /* primer numero */
		tel[k++] = ' ' ;   
		if (buf[vtranf]=='I' && buf[vtranf+2]=='R' && buf[vtranf+3]=='I') 
		{
			for (j=0;j<5;j++)	tel[k++] = buf[vring+j];
		}
		else
		{
			tel[k++]='0';tel[k++]='0';tel[k++]=':';tel[k++]='0';tel[k++]='0';   /* tiempo ring */
		}
		tel[k++] = ' ' ;
		tel[k++] = '*' ;
		tel[k++] = '\r' ;
		tel[k++] = '\n' ;
		tel[k++] = '\0' ;
	}
}