/*
#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	200
#define estac	20+posin
#define linea	17+posin
#define durac	28+posin
#define hor      8+posin
#define fech	 0+posin
#define	tranf	68+posin
#define numero	36+posin
#define ccost	0
#define proye   0
#define cuenta	0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	23+posin
#define antran	0			// anexo transferido 
#define larnum  23
#define fofech	europeo
  */                     
    
#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	200
#define estac	22+posin
#define linea	17+posin
#define durac	30+posin
#define hor      8+posin
#define fech	 0+posin
#define	tranf	76+posin
#define numero	38+posin
#define ccost	0
#define proye   0
#define cuenta	0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	25+posin
#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 k,i=strlen(buf),j;
char aux,vtip ;
aux = 0;
	if (i>vcuenta && buf[fech+2]=='.' && buf[hor+2]==':'&& buf[durac+2]==':' && isdigit(buf[vtranf]))
	{
		k=0 ;
		if (buf[vtranf]=='2' || buf[vtranf]=='6')
			vtip   = 'O';
		else 
			vtip   = 'I' ;
		for(j=0;j<3 && j<i && isdigit(buf[vestac+j]);j++) tel[k++]=buf[vestac+j]; 
		if(j==0)tel[k++] = '*';
		tel[k++] = ' ' ;
		for(j=0;j<2 && j<i && isdigit(buf[vlinea+j]);j++) tel[k++]=buf[vlinea+j]; 
		if(j==0)tel[k++] = '*';
		tel[k++] = ' ' ;
		for(j=0;j<8 && j<i && (isdigit(buf[vdurac+j]) || buf[vdurac+j]==':');j++) tel[k++]=buf[vdurac+j]; 
		if(j==0)tel[k++] = '*';
		tel[k++] = ' ' ;
		for(j=0;j<5 && j<i && (isdigit(buf[vhor+j]) || buf[vhor+j]==':');j++) tel[k++]=buf[vhor+j]; 
		if(j==0)tel[k++] = '*';
		tel[k++] = ' ' ;
		if (vfofech==europeo) 
		{
			tel[k++] = buf[vfech+3] ; 
			tel[k++] = buf[vfech+4] ;    
			tel[k++] = '/' ;    
			tel[k++] = buf[vfech];  
			tel[k++] = buf[vfech+1] ;
			tel[k++] = '/' ;
		}
		else 
		{
			tel[k++] = buf[vfech+0] ;
			tel[k++] = buf[vfech+1] ;
			tel[k++] = '/' ;
			tel[k++] = buf[vfech+3] ; 
			tel[k++] = buf[vfech+4] ;    
			tel[k++] = '/' ;    
		}
		tel[k++] = buf[vfech+6] ; 
		tel[k++] = buf[vfech+7] ;
		tel[k++] = ' ' ; 
		tel[k++] = vtip ;
		tel[k++] = ' ' ;
		for(j=0;j<20 && j<i && isdigit(buf[vnumero+j]);j++) tel[k++]=buf[vnumero+j]; 
		if(j==0)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 =='I' && buf[vring+2]==':')
		{
			for(j=0;j<5 && j<i;j++) tel[k++]=buf[vring+j]; 
		}
		else
		{
			tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ;tel[k++] = '0' ; tel[k++] = '0' ; 
		}
		tel[k++] = ' ' ;
		tel[k++] = '*' ;
		tel[k++] = ' ' ;
		tel[k++] = '*' ;
		tel[k++] = '\r';
		tel[k++] = '\n';
		tel[k++] = '\0';
	}
}