#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	200
#define estac	1 +posin
#define linea	6 +posin
#define durac	18+posin
#define hor     49+posin
#define fech	43+posin
#define	tranf	11+posin
#define numero	23+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 smin[5],shora[5]; 
char aux,vtip ;
int haux,maux;
aux = 0;
	if (i>vdurac  )  
	{
	   k=0 ;
		for (it =0;it<5 && it<i;it++)
   		{
   			if isdigit(buf[vestac+it])
   				tel[k++] = buf[vestac+it] ;
   		}
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ;
	   	tel[k++] = ' ' ;

	   smin[0] = buf[vdurac]   ; 
	   smin[1] = buf[vdurac+1] ; 
	   smin[2] = buf[vdurac+2] ;
	   smin[3] = '\0'          ;
	   haux     = atoi(smin)/60;
	   maux     = atoi(smin)-(haux*60); 	
       itoa(haux,shora,10);
       itoa(maux,smin,10);
       if (haux<10)
       {
       		tel[k++] = '0';
            tel[k++] = shora[0];
       }
       else
       {
       		tel[k++] = shora[0];
       		tel[k++] = shora[1];
       
       } 
        tel[k++] = ':';
       if (maux<10)
       {
       		tel[k++] = '0';
            tel[k++] = smin[0];
       }
       else
       {
       		tel[k++] = smin[0];
       		tel[k++] = smin[1];
       
       } 
       tel[k++] = ':'; 
       tel[k++] = buf[vdurac+3];
       tel[k++] = buf[vdurac+4];
       tel[k++] = ' '; 
       tel[k++] = buf[vhor+0];
       tel[k++] = buf[vhor+1];
       tel[k++] = ':'; 
       tel[k++] = buf[vhor+2];
       tel[k++] = buf[vhor+3];
       tel[k++] = ' '; 
	   	if (vfofech==europeo) 
	   	{
	      	tel[k++] = buf[vfech+4] ; 
	      	tel[k++] = buf[vfech+5] ;    
	      	tel[k++] = '/' ;    
	      	tel[k++] = buf[vfech+2];  
	      	tel[k++] = buf[vfech+3] ;
	      	tel[k++] = '/' ;
	   	}
	   	else 
	   	{
	      	tel[k++] = buf[vfech+2] ;
	      	tel[k++] = buf[vfech+3] ;
	      	tel[k++] = '/' ;
	      	tel[k++] = buf[vfech+4] ; 
	      	tel[k++] = buf[vfech+5] ;    
	      	tel[k++] = '/' ;    
	      	
	   	}
	   	tel[k++] = buf[vfech+0] ;  
	   	tel[k++] = buf[vfech+1] ;
	   	tel[k++] = ' ' ;
	   	vtip = 'O'     ;
		tel[k++] = vtip ;
	   	tel[k++] = ' ' ;
	   	if (vtip =='O')
		{
			for (it = 0; buf[vnumero+it]!=' ' && it<i && it <20;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';
	}
}