#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	posin+5
#define linea	posin
#define durac	posin+15
#define hor     posin+9
#define fech	0
#define	tranf	9 +posin
#define numero	posin+45
#define ccost	0
#define proye   31+posin
#define cuenta  0
#define pulsos	0
#define ruta    73+posin
#define prinum	0
#define ring	0
#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 ka,it,k,i=strlen(buf);
    char aux ;
    aux = 0;
	if (i>vnumero && buf[2]=='/' && buf[5]=='/' && buf[vhor+2]==':' && buf[vdurac+2]==':')
	{
	   k=0;
	   tel[k++] = buf[vestac] ; tel[k++] = buf[vestac+1] ; tel[k++] = buf[vestac+2] ;
	   tel[k++] = ' ' ;
	   tel[k++] = buf[vlinea] ; tel[k++] = buf[vlinea+1] ; tel[k++] = buf[vlinea+2] ;
	   tel[k++] = ' ' ;
	   ka=k;
	   tel[k++] = buf[vdurac] ; tel[k++] = buf[vdurac+1] ;
	   tel[k++] = ':' ;
	   tel[k++]= buf[vdurac+3] ; tel[k++]= buf[vdurac+4] ;
	   tel[k++]= ':' ;
	   tel[k++]= buf[vdurac+6] ; tel[k++]= buf[vdurac+7] ;
	   tel[k++]= ' ' ;
	   ka=k;
	   tel[k++] = buf[vhor] ;
	   tel[k++] = buf[vhor+1] ;
	   tel[k++] = buf[vhor+2] ;
	   tel[k++] = buf[vhor+3] ;
	   tel[k++] = buf[vhor+4] ;
	   tel[k++] = ' ' ;
	   tel[k++] = buf[0]; 			
	   tel[k++] = buf[1]; 			
	   tel[k++] = buf[2]; 			
	   tel[k++] = buf[3]; 			
	   tel[k++] = buf[4]; 			
	   tel[k++] = buf[5]; 			
	   tel[k++] = buf[6]; 			
	   tel[k++] = buf[7]; 			
	   tel[k++] = buf[8]; 			
	   tel[k++] = ' ' ;
	   tel[k++] = 'O' ;
	   tel[k++] = ' ' ;
	   for (i=0;i<21;i++)
	   {
	   		if (buf[vnumero+i]!=' ')
	   			tel[k++] = buf[vnumero+i];
	   }			
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   tel[k++] = ' ' ; 
	   if (buf[vproye]!=' ')
	   {
	   		for (i =0;buf[vproye+i]!=' ';i++)
	   			tel[k++] = buf[vproye+i];
	   }
	   else
	   		tel[k++] = '*' ;		// código de cuenta
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;		// código de cuenta
	   tel[k++] = ' ' ;
	   for (it=0 ; it<5 ; it++) tel[k++]= '0' ;
	   tel[k++] = ' ' ;
       if (buf[vruta]!=' ')
	   {
	   		for (i =0;i<4;i++)
	   			tel[k++] = buf[vruta+i];
	   }   
	   else
	   {
	   		tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;   /* ruta */
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; 	// anexo transferido
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}
}