#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	200
#define estac	22+posin
#define linea	28+posin
#define durac	61+posin
#define hor      9+posin
#define fech	 0+posin
#define	tranf	31+posin
#define numero	44+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
char *cuf,*ruf;
char lgua[lmax+3];
                       
                       
extern char rgua[];
void in_central()
{ 
   rgua[0]='\0'; 
}

extern void gua_rut(char *buf);

void fi_central()
{
} 

void rllam(char vtip,char *buf,char *cuf,char *tel,int ves,int vli,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 hopm,it,k,ka,i=strlen(buf);
char aux ;
char shor[5] ;
aux = 0;
	k = 0;
	if (buf[ves]!='T'  || buf[vli]!='T')
	{
		for (it =0;buf[ves+it]!=' ' && it<i;it++)
   		{
   			if isdigit(buf[ves+it])
   				tel[k++] = buf[ves+it] ;
   		}
   	}  
   	else if  ((buf[ves]=='T'  || buf[vli]=='T') && (buf[posin+19]!=' '))
	{
		for (it =0;buf[ves+it]!=' ' && it<i;it++)
   		{
   			if isdigit(buf[ves+it])
   				tel[k++] = buf[ves+it] ;
   		}
   	}  
	else   	
   		tel[k++] = '*' ;
   	tel[k++] = ' ' ;
	for (it =0;buf[vli+it] !=' ' && it<i;it++)
	{
   		if(isdigit(buf[vli+it])) 
   			tel[k++] = buf[vli+it] ;
   	}
   	tel[k++] = ' ' ;
	tel[k++] = buf[vdurac+0] ;
	tel[k++] = buf[vdurac+1] ;
	tel[k++] = buf[vdurac+2] ;
	tel[k++] = buf[vdurac+3] ;
	tel[k++] = buf[vdurac+4] ;
	tel[k++] = ':';
	tel[k++] = buf[vdurac+6];
	tel[k++] = buf[vdurac+7];
	tel[k++] = ' ';
   	tel[k++] = ' ' ;
   	ka = k;    
	shor[0] = buf[vhor] ;
	shor[1] = buf[vhor+1] ;
	shor[2] = '\0' ;   
	hopm=atoi(shor) ;
	if (buf[vhor+5]=='P' && hopm< 12) 
		itoa((hopm+12),shor,10) ;
	if (buf[vhor+5]=='A' && hopm==12) 
		itoa((hopm-12),shor,10) ;
	if (shor[2]=='\0') 
	{
	  	tel[k++] = shor[0] ; 
	   	tel[k++] = shor[1] ;
	}
	if (shor[1]=='\0') 
	{
	  	tel[k++] = '0'      ; 
	   	tel[k++] = shor[0] ;
	}
	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] ;    
	    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[6] ; 
	tel[k++] = buf[7] ;
	tel[k++] = ' ' ; 
	tel[k++] = vtip ;
	tel[k++] = ' ' ;
	if (buf[posin+22]=='T' && buf[posin+28]=='T' )
	{
		if (buf[posin+19]!=' ')
		{
			tel[k++] = '*' ; 
			tel[k++] = '*' ; 
			tel[k++] = '*' ;
		}   
		else
        {
			for (it = 0;it<16;it++)
			{
				if(isdigit(cuf[vnumero+it]))
		   			tel[k++] = cuf[vnumero+it];
			}
		}		 
	}
	else
	{
		for (it = 0;it<16;it++)
		{
			if(isdigit(buf[vnumero+it]))
	   			tel[k++] = buf[vnumero+it];
		}	 
	}
	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';                                     
}
void gua_buf(char *buf)
{
   strcpy(lgua,buf);
}

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 vli,ves,i=strlen(buf);
char aux,vtip ;
aux = 0;
ves = 0;
vli = 0;
if (buf[posin+22]=='T' && buf[posin+28]=='T' && isdigit(buf[vnumero]))
{
	gua_buf(buf);
	return;
}
cuf = lgua;
	if (buf[vfech+2]=='/' && buf[vfech+5]=='/' && buf[vhor+2]==':'&& (buf[vhor+5]=='P'|| buf[vhor+5]=='A') && buf[vdurac+2]==':')
	{
		if ((buf[vestac]=='E' ||buf[vestac]=='A') && (buf[vlinea]=='T'))
		{
			vli  = vlinea;
			ves  = vestac;
			vtip   = 'O';
			rllam(vtip,buf,cuf,tel,ves,vli,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta,vprinum,vring,vantran,vfofech);	
		}
		else if ((buf[vestac]=='T') && (buf[vlinea]=='E' ||buf[vlinea]=='A'))
		{
			vtip   = 'I' ;
			ves = vlinea;
			vli = vestac;	
			rllam(vtip,buf,cuf,tel,ves,vli,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta,vprinum,vring,vantran,vfofech);	
		}
		else 
		{
			if (buf[posin+19]!=' ')
			{
				vtip  = 'I' ;
				vli   = vestac;	
				ves   = vnumero+3;
				rllam(vtip,buf,cuf,tel,ves,vli,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta,vprinum,vring,vantran,vfofech);	
			}
			else 
			{
				vtip  = 'O' ;
				vli  = vlinea;
				ves  = vnumero+6;
				rllam(vtip,buf,cuf,tel,ves,vli,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta,vprinum,vring,vantran,vfofech);	
		    }
		}
	}
}