#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	82
#define estac	posin
#define linea	7+posin
#define durac	52+posin
#define hor     42+posin
#define fech	36+posin
#define	tranf	31+posin
#define numero	11+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	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 k,i=strlen(buf);
char aux ;
aux = 0;
	if (buf[fech+2]=='.' && buf[fech+5]=='-' && buf[hor+2]==':' && buf[durac+5]=='"')
	{
	   k=0 ;
		for (i =0;buf[vestac+i] !=' ';i++)
	   		tel[k++] = buf[vestac+i] ;
	   	tel[k++] = ' ' ;
		for (i =0;buf[vlinea+i] !=' ';i++)
	   		tel[k++] = buf[vlinea+i] ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = '0' ;
	   	tel[k++] = '0' ;
		tel[k++] = ':' ;
		if (buf[vdurac] ==' ')
	   		tel[k++] = '0' ;
		else
	   		tel[k++] = buf[vdurac] ;
		
		if (buf[vdurac+1] ==' ')
	   		tel[k++] = '0' ;
		else
	   		tel[k++] = buf[vdurac+1] ;
		tel[k++] = ':' ;

		if (buf[vdurac+3] ==' ')
	   		tel[k++] = '0' ;
		else
	   		tel[k++] = buf[vdurac+3] ;
		if (buf[vdurac+4] ==' ')
	   		tel[k++] = '0' ;
		else
	   		tel[k++] = buf[vdurac+4] ;
   		tel[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++] = ' ' ;
   		
	   	if (vfofech==europeo) 
	   	{
	      	tel[k++] = buf[vfech+3] ; 
	      	tel[k++] = buf[vfech+4] ;    
	      	tel[k++] = '/' ;    
	      	
	      	if (buf[vfech]==' ')  
	      		tel[k++] = '0' ;
	      	tel[k++] = buf[vfech+1] ;
	      	tel[k++] = '/' ;
	   	}
	   	else 
	   	{
	      	if (buf[vfech]==' ')  
	      		tel[k++] = '0' ;
	      	tel[k++] = buf[vfech+1] ;
	      	tel[k++] = '/' ;
	      	tel[k++] = buf[vfech+3] ; 
	      	tel[k++] = buf[vfech+4] ;    
	      	tel[k++] = '/' ;    
	      	
	   	}
	   	tel[k++] = buf[6] ; 
	   	tel[k++] = buf[7] ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = 'O' ;
	   	tel[k++] = ' ' ;
		for (i = 0; buf[vnumero+i]!=' ';i++)
		{
			if(buf[vnumero+i]!='#')
		   		tel[k++] = buf[vnumero+i];
		}	 
	   	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++] = ' ' ;
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = ':' ;
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ;
	   	tel[k++] = '\r';
	   	tel[k++] = '\n';
	   	tel[k++] = '\0';
	}
}