#include <stdio.h>
#include <math.h>
FILE *fp;
double x1,x2,x3;
double y,y2,y3;
double z0,z1;
char a[120];
int  k;
main()
{
  z0=10; z1=0;
  fp=fopen("0.0","r"); if(fp==0){ printf("pls diru >0.0\n"); exit(0); }
  fgets(a,120,fp); printf("%s",a);
  fgets(a,120,fp); printf("%s",a);
l10:
  fgets(a,120,fp); if(feof(fp))goto l20;
  itohd(&a[52],&x1,&x2,&x3);
  itohd(&a[77],&y,&y2,&y3);
  y3=x2-y2; y3*=60.;
  x3=x1-y; if(x3> 23.)x3-=24.;
           if(x3<-23.)x3+=24.;
  x3*=60.*15.*cos(x2*3.141592654/180.);
  x1=sqrt(x3*x3+y3*y3);
  k=strlen(a)-1; a[k]=0;
  printf("%s %4.1lf %4.1lf %4.1lf\n",a,x3,y3,x1); 
  if(x1<10){
    if(x1<z0)z0=x1;
    if(x1>z1)z1=x1;
  }
  goto l10;
l20:
  fclose(fp);
//  printf("%4.1lf~~%4.1lf (in arcmin)\n",z0,z1);
}
  

itohd(a,rc,dc,epoch)
char *a; double *rc,*dc,*epoch;
{
  int i,j,k;
  int i1,i2,g1,g2,g3,p;
  double x3;
  char b[70];
  strcpy(b,a);
  i1=i2=g1=g2=g3=p=0;
  *rc=*dc=*epoch=0.;
  k=strlen(a);
  for(i=0;i<k;i++)if(b[i]<=',')b[i]=32; //allowed comma and below
  for(i=0;i<k;i++)if(b[i]!=32)break;
  if(i!=k)g1=i; else goto l10;
  for(j=g1;j<k;j++)if(b[j]==32)break;
  for(i=j;i<k;i++)if(b[i]!=32)break;
  if(i!=k)g2=i; else goto l10;
  for(j=g2;j<k;j++)if(b[j]==32)break;
  for(i=j;i<k;i++)if(b[i]!=32)break;
  if(i!=k)g3=i;
l10:
  for(i=0;i<k;i++){ if(b[i]==':')b[i]=32; if(b[i]=='-')p=1; }
  if(g2)b[g2-1]=0;
  sscanf(b,"%d %d %lf",&i1,&i2,&x3);
  *rc=i1+i2/60.+x3/3600.;
  if(g2==0)goto l20;
  if(g3)b[g3-1]=0;
  i2=0; x3=0.; sscanf(&b[g2],"%d %d %lf",&i1,&i2,&x3);
  if(i1<0)i1=-i1;
  *dc=i1+i2/60.+x3/3600.;
  if(p)*dc=-*dc;
  if(g3)sscanf(&b[g3],"%lf",epoch);
l20: ;
//  printf("%d %d %d\n",g1,g2,g3);
}

