#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	82
#define estac	1+posin
#define linea	6+posin
#define durac	23+posin
#define hor     17+posin
#define fech	11+posin
#define	tranf	32+posin
#define numero	34+posin
#define ccost	0
#define proye   58+posin
#define cuenta  0
#define pulsos	70+posin
#define ruta    0
#define prinum	0
#define ring	0
#define antran	0			// anexo transferido 
#define larnum  23
#define fofech	europeo
                       
                       
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);

	if (i>(numero+5) && buf[fech+2]==' ' &&  buf[hor+2]==':' && buf[durac+2]==':' && buf[durac+5]=='.' )
	{
	   k=0 ;
	   tel[k++] = buf[vestac] ; tel[k++] = buf[vestac+1] ; tel[k++] = buf[vestac+2] ; tel[k++] = buf[vestac+3] ;
	   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] ;
	   if (tel[ka]==' ') tel[ka]='0' ;
	   if (tel[ka+1]==' ') tel[ka+1]='0' ;
	   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] ;
	   if (tel[ka]==' ') tel[ka]='0' ;
	   tel[k++] = ':' ;
	   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] ;
	      if (tel[ka]==' ')  tel[ka] = '0' ;
	      tel[k++] = '/' ; ka=k ;
	      tel[k++] = buf[vfech+0] ; tel[k++] = buf[vfech+1] ;
	   }
	   else {
	      tel[k++] = buf[vfech+0] ; tel[k++] = buf[vfech+1] ;
	      if (tel[ka]==' ')  tel[ka] = '0' ;
	      tel[k++] = '/' ; ka=k ;
	      tel[k++] = buf[vfech+3] ; tel[k++] = buf[vfech+4] ;
	   }
	   if (tel[ka]==' ')  tel[ka] = '0' ;
	   tel[k++] = '/' ;
	   tel[k++] = buf[6] ; tel[k++] = buf[7] ;
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='O') tel[k++] = 'O' ;
	   else tel[k++] = 'I' ;
	   tel[k++] = ' ' ;
	   ka=k ;
	   for (it=vnumero ; it<(vnumero+larnum) ; it++)  if (buf[it]!=' ') tel[k++] = buf[it] ;
	   if (k==ka) tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   if (buf[vproye]==' ' && buf[vproye+1]==' ' && buf[vproye+2]==' ' && buf[vproye+3]==' ') {
	      tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   }
	   else {
	      tel[k++] = buf[vproye] ; tel[k++] = buf[vproye+1] ; tel[k++] = buf[vproye+2] ; tel[k++] = buf[vproye+3] ;
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;		// código de cuenta
	   tel[k++] = ' ' ;
	   ka=k ; 
	   for (it=0 ; it<6 && buf[vpulsos+it]!=' ' ; it++) tel[k++]=buf[vpulsos+it] ;   // pulsos
	   if (ka==k)
    	  for (it=0 ; it<6 ; it++) tel[k++]='0' ;   // pulsos
	   tel[k++] = ' ' ;
	   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' ;
	}
}