#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	posin
#define linea	5+posin
#define durac	26+posin
#define hor     17+posin
#define fech	11+posin
#define	tranf	7 +posin
#define numero	35+posin
#define ccost	0
#define proye   76+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	0
#define antran	0			// anexo transferido
#define fofech	americano


#define ampm	15
#define	incomin	28
char  durll[6] ;



extern char rgua[];
void in_central()
{ 
   rgua[0]='\0'; 
}

void fi_central()
{
} 
                  
void cadur(int vhor,int vdurac, char *buf)
{
   char shora[3] ;
   int hori,horf,mini,minf,segi,segf ;
   shora[0] = buf[vhor+0]   ; shora[1] = buf[vhor+1]   ; shora[2] = '\0' ;
   hori = atoi(shora) ;
   shora[0] = buf[vhor+3]   ; shora[1] = buf[vhor+4]   ; shora[2] = '\0' ;
   mini = atoi(shora) ;
   shora[0] = buf[vhor+6]   ; shora[1] = buf[vhor+7]   ; shora[2] = '\0' ;
   segi = atoi(shora) ;
   shora[0] = buf[vdurac+0] ; shora[1] = buf[vdurac+1] ; shora[2] = '\0' ;
   horf = atoi(shora) ;
   shora[0] = buf[vdurac+3] ; shora[1] = buf[vdurac+4] ; shora[2] = '\0' ;
   minf = atoi(shora) ;
   shora[0] = buf[vdurac+6] ; shora[1] = buf[vdurac+7] ; shora[2] = '\0' ;
   segf = atoi(shora) ;
   if (segf<segi) {
	      segf += 60 ;
	      if (minf==0) {
		 minf += 60 ;
		 if (horf==0)  horf += 24 ;
		 horf-- ;
	      }
	      minf-- ;
   }
   segf -= segi ;
   if (minf<mini) {
	      minf += 60 ;
	      if (horf==0) horf += 24 ;
	      horf-- ;
   }
   minf -= mini ;
   if (horf<hori) horf += 24 ;
   horf -= hori ;
   itoa(horf,shora,10) ;
   if (shora[1]=='\0') { durll[0]='0' ; durll[1]=shora[0] ; }
   else		       { durll[0]=shora[0] ; durll[1]=shora[1] ; }
   itoa(minf,shora,10) ;
   if (shora[1]=='\0') { durll[2]='0' ; durll[3]=shora[0] ; }
   else		       { durll[2]=shora[0] ; durll[3]=shora[1] ; }
   itoa(segf,shora,10) ;
   if (shora[1]=='\0') { durll[4]='0' ; durll[5]=shora[0] ; }
   else		       { durll[4]=shora[0] ; durll[5]=shora[1] ; }
}


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 horfin,it,k,i=strlen(buf);
    char vtip,aux;
    horfin = vhor+9;
    aux = 0;                                                            
	if (i>vnumero && buf[vfech+2]=='/'  && buf[vhor+2]==':' && buf[vhor+5]==':' )
	{
		k=0;
	   	for (it=0;it <3;it++)
	   	{
	   		if isdigit(buf[vestac+it])
	   			tel[k++] = buf[vestac+it] ; 
	   	}
	   	tel[k++] = ' ' ;
	   	tel[k++] = buf[vlinea] ; 
	   	tel[k++] = ' ' ;
	   	cadur(vhor, vdurac, buf) ;
	   	tel[k++] = durll[0] ; 
	   	tel[k++] = durll[1] ;
	   	tel[k++] = ':' ;
	   	tel[k++] = durll[2] ; 
	   	tel[k++] = durll[3] ;
	   	tel[k++] = ':' ;
	   	tel[k++] = durll[4] ; 
	   	tel[k++] = durll[5] ;
	   	tel[k++]= ' ' ;
	   	tel[k++] = buf[vhor+0];
	   	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++] = buf[vfech+2]; 
	    	tel[k++] = buf[vfech+0]; 
	    	tel[k++] = buf[vfech+1]; 
	   	}
	   	else
	   	{
	    	tel[k++] = buf[vfech+0]; 
	    	tel[k++] = buf[vfech+1];
	    	tel[k++] = buf[vfech+2]; 
	    	tel[k++] = buf[vfech+3]; 
	    	tel[k++] = buf[vfech+4]; 
	   	}
    	tel[k++] = '/';
    	tel[k++] = buf[6]; 
    	tel[k++] = buf[7]; 
    	tel[k++] = ' ';
    	if (buf[vtranf]=='O' || buf[vtranf]=='T')
    		vtip ='O';
    	else
    		vtip ='I';
    	tel[k++] = vtip;
    	tel[k++] = ' ';
	   	for (it=0;isdigit(buf[vnumero+it]) && it<i;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++] = '*' ;		// 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++] = ' ' ;
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = ':' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ;   /* tiempo ring */
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; 	// anexo transferido
	   	tel[k++] = '\r' ;
	   	tel[k++] = '\n' ;
	   	tel[k++] = '\0' ;
	}  	
}