#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	200
#define estac	2 +posin
#define linea	6 +posin
#define durac	57+posin
#define hor     51+posin
#define fech	45+posin
#define	tranf	11+posin
#define numero	11+posin
#define ccost	0
#define proye   0
#define cuenta  0
#define pulsos  0
#define ruta    0
#define prinum	0
#define ring	67+posin
#define antran	0			// anexo transferido 
#define larnum  23
#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 it,k,i=strlen(buf);
char aux,vtip ;
aux = 0;
aux =  buf[fech+2];
aux =  buf[hor+2];
aux =  buf[durac+2];
aux =  buf[durac+8];
	if (i>vdurac && buf[fech+2]=='/'  && buf[hor+2]==':'&& buf[durac+2]==':' && buf[durac+8]=='"')
	{
	   k=0 ;
		for (it =0;buf[vestac+it]!=' ' && it<i;it++)
	   	{
	   		if isdigit(buf[vestac+it])
	   			tel[k++] = buf[vestac+it] ;
	   	}
	   	tel[k++] = ' ' ;
		for (it =0;buf[vlinea+it] !=' '&& it<i;it++)
		{
	   		if(isdigit(buf[vlinea+it])) 
	   			tel[k++] = buf[vlinea+it] ;
	   	}
	   	tel[k++] = ' ' ;
   		tel[k++] = buf[vdurac+0] ;
   		tel[k++] = buf[vdurac+1] ;
   		tel[k++] = buf[vdurac+2] ;
   		tel[k++] = buf[vdurac+3] ;
   		tel[k++] = buf[vdurac+4] ;
   		tel[k++] = ':';
   		tel[k++] = buf[vdurac+6];
   		tel[k++] = buf[vdurac+7];
   		tel[k++] = ' ';
		tel[k++] = buf[vhor+0] ;
		tel[k++] = buf[vhor+1] ;
		tel[k++] = buf[vhor+2] ;
		tel[k++] = buf[vhor+3] ;
		tel[k++] = buf[vhor+4] ;
   		tel[k++] = ' ' ;
   		
	   	if (vfofech==europeo) 
	   	{
	      	tel[k++] = buf[vfech+3] ; 
	      	tel[k++] = buf[vfech+4] ;    
	      	tel[k++] = '/' ;    
	      	tel[k++] = buf[vfech];  
	      	tel[k++] = buf[vfech+1] ;
	      	tel[k++] = '/' ;
	   	}
	   	else 
	   	{
	      	tel[k++] = buf[vfech+0] ;
	      	tel[k++] = buf[vfech+1] ;
	      	tel[k++] = '/' ;
	      	tel[k++] = buf[vfech+3] ; 
	      	tel[k++] = buf[vfech+4] ;    
	      	tel[k++] = '/' ;    
	      	
	   	}
	   	tel[k++] = buf[6] ; 
	   	tel[k++] = buf[7] ;
	   	if isdigit(buf[vtranf])
			vtip ='O';
		else
			vtip ='I';
	   	tel[k++] = ' ' ; 
		tel[k++] = vtip ;
	   	tel[k++] = ' ' ;
	   	if (vtip =='O')
		{
			for (it = 0; buf[vnumero+it]!=' ' && it<i;it++)
			{
				if(isdigit(buf[vnumero+it]))
		   			tel[k++] = buf[vnumero+it];
			}	 
		}
	   	else
	   		tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ;
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	if (vtip =='O')
		{
		   	tel[k++] = '0' ; 
		   	tel[k++] = '0' ; 
	   		tel[k++] = ':' ;
	   		tel[k++] = '0' ; 
	   		tel[k++] = '0' ; 
		}
		else
		{
		   	tel[k++] = buf[vring+0]; 
		   	tel[k++] = buf[vring+1] ; 
	   		tel[k++] = ':' ;
	   		tel[k++] = buf[vring+3] ; 
	   		tel[k++] = buf[vring+4] ; 
		}
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ;
	   	tel[k++] = '\r';
	   	tel[k++] = '\n';
	   	tel[k++] = '\0';
	}
}