#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	25+posin
#define linea	47+posin
#define durac	16+posin
#define hor     10+posin
#define fech	1 +posin
#define	tranf	0
#define numero	29+posin
#define ccost	0 
#define proye   0
#define cuenta  0
#define pulsos	0
#define ruta    0
#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 i,k,it ;
    char aux,vtip ;  
    k = 0;
    i = strlen(buf);
    aux = 0;
	if (i>(vlinea) && buf[vfech+2]=='/' && buf[vfech+5]=='/' && buf[vhor+2]==':' && buf[vdurac+2]==':'&& buf[vdurac+5]==':'  && buf[vlinea-1]=='L')
	{                            
	   aux = buf[vestac];
	   for (it=0;isdigit(buf[vestac+it]) && it<i && it<4;it++)
	       tel[k++] = buf[vestac+it] ; 
	   tel[k++] = ' ' ;
	   for (it=0;isdigit(buf[vlinea+it]) && it<i ;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++] = buf[vdurac+5] ;
	   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==americano) 
	   		for (it=0 ; it<8 ; it++) tel[k++] = buf[vfech+it] ;
	   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  (isdigit(buf[vnumero]))
	   		vtip = 'O';
	   else
	   		vtip = 'I';
	   		 
	   tel[k++] = vtip ;
	   tel[k++] = ' ' ;
	   if (vtip=='O')
	   {
		   for (it=0;isdigit(buf[vnumero+it]) && it<i && (vnumero+it)<(vlinea-1);it++)
		       tel[k++] = buf[vnumero+it] ; 
	   }
	   else
		   tel[k++] = '*' ; 
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; // centro de costo
	   tel[k++] = ' ' ; 
	   tel [k++] = '*'; // cod pry
	   tel[k++] = ' ';
	   tel [k++] = '*'; // cod cuenta
	   tel[k++] = ' ';
	   for (it=0 ; it<4 ; it++) 
	   		tel[k++]= '0' ;
	   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' ;
    }
    
}