#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	19+posin
#define linea	23+posin
#define durac	57+posin
#define hor     9 +posin
#define fech	0 +posin
#define	tranf	9 +posin
#define numero	26+posin
#define ccost	0
#define proye   66+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	52+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 ka,it,lent,k,i=strlen(buf),hopm,j,cont;
    char shora[5];
    char aux,tipo ;
    aux = 0; cont=0;
    
	if (i>vdurac && buf[vfech+2]=='/' && buf[vfech+5]=='/' && buf[vhor+2]==':' && buf[vdurac+2]==':')
	{
	   k=0;
	   for (it=0;isdigit(buf[vestac+it])&&it<i;it++)
	   		tel[k++] = buf[vestac+it];
	   tel[k++] = ' ' ;
	   tel[k++] = buf[vlinea] ; tel[k++] = buf[vlinea+1] ;
	   tel[k++] = ' ' ;
	   ka=k;
	   tel[k++] = buf[vdurac] ; tel[k++] = buf[vdurac+1] ;
	   if (tel[ka]==' ') tel[ka]='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;
	   shora[0] = buf[vhor] ; shora[1] = buf[vhor+1] ; shora[2] = '\0' ;
	   hopm=atoi(shora) ;
	   if (buf[vhor+5]=='P' && hopm< 12) itoa((hopm+12),shora,10) ;
	   if (buf[vhor+5]=='A' && hopm==12) itoa((hopm-12),shora,10) ;
	   if (shora[1]!='\0') {
	      tel[k++] = shora[0] ; tel[k++] = shora[1] ;
	   }
	   if (shora[1]=='\0') {
	      tel[k++] = '0'      ; tel[k++] = shora[0] ;
	   }
	   if (tel[ka]==' ') tel[ka]='0' ;
	   tel[k++] = ':' ;
	   tel[k++] = buf[vhor+3] ; tel[k++] = buf[vhor+4] ;
	   tel[k++] = ' ' ;
	   ka=k;
	   for (it=0 ; it<8 ; it++) tel[k++] = buf[vfech+it] ;
	   if (vfofech==europeo) {
	      tel[ka+0] = buf[vfech+3]; tel[ka+1] = buf[vfech+4];
	      tel[ka+3] = buf[vfech+0]; tel[ka+4] = buf[vfech+1]; 
	   }
	   if (tel[ka]==' ')  tel[ka] = '0' ;
	   if (tel[ka+3]==' ')  tel[ka+3] = '0' ;
	   ka = k;
	   tel[k++] = ' ' ;
	   for (lent=vnumero;lent<(vnumero+10) && buf[lent]!='<';lent++) ;
	   ka = k;
	   if ( buf[lent]=='<') 
	   {
	   		tipo     = 'I' ; 
	   		tel[k++] = 'I' ;
	   }	
	   else
	   {  
	   		tipo     = 'O' ;
	   		tel[k++] = 'O' ;
	   }		
	   tel[k++] = ' ' ;
	   if ((buf[vnumero+3]==' ') && tipo=='I') 
	   		tel[k++]='*' ;
	   else if (isdigit(buf[vnumero+3]) && tipo !='O')
	   {
	   		for (it =0;buf[vnumero+3+it]!=' ' && it<(vdurac-1);it++)
	   			tel[k++] = buf[vnumero+3+it];
	   }			
	   else 
	   {
	      ka = k;
	      for (it=vnumero; it<(vdurac-1) ; it++) {
		      if (buf[it] >= '0' && buf[it] <= '9') tel[k++] = buf[it] ;
	      }
	      if (k == ka) tel[k++] = '*' ;
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   tel[k++] = ' ' ; 
	   for (j=0;j<4;j++)
	   {
	   	if (isdigit(buf[vproye+j])) {tel[k++] = buf[vproye+j] ; cont++;}
	   }
	   if(cont==0)tel[k++] = '*';cont=0;
/*	   if isdigit(buf[vproye+4])
	   {
	      for (it=0;it<i && it<8;it++ )
	      {
	      	if (isdigit(buf[vproye+it])) 
	      		tel[k++] = buf[vproye+it] ;
	   	  }
	   	}
	   else
		   tel[k++] = '*' ;     */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;		// código de cuenta
	   tel[k++] = ' ' ;
	   for (it=0 ; it<4 ; it++) tel[k++]= '0' ;
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;   /* ruta */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   if isdigit(buf[vring])		/* tiempo ring */
	   {
			tel[k++]='0'; tel[k++]=buf[vring]; tel[k++]=':';  tel[k++]=buf[vring+2]; tel[k++]=buf[vring+3];
	   }
	   else
	   {
		   tel[k++]='0'; tel[k++]='0'; tel[k++]=':'; tel[k++]='0'; tel[k++]='0'; 
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; 	// anexo transferido
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}
}