#include <stdio.h>
FILE *fp;
char a[80],f1[60],c1[14],c2[14];
char head[72][80];
double x1,y1,x[4],y[4];
main(ac,av)
int ac; char **av;
{
  int i,j,k;
  if(ac<2){ printf("poord84 u\n\n"); exit(0); }
  strcpy(f1,av[1]); strcat(f1,"_?.fit");
  for(i=1;i<3;i++){
    k=strlen(f1); f1[k-5]=i+49;
    fp=fopen(f1,"rb"); fread(head,72,80,fp); fclose(fp);
    k=indexpos(head,"A87     ",72);
    if(k==72){ printf("coord 1st !\n"); exit(0); }
    chs(&head[k][46],&x[i]);    head[k][67]=0;
    chs(&head[k+1][46],&y[i]);  head[k+1][67]=0;
    printf("%d: %s %s\n",i+1,&head[k][46],&head[k+1][46]);
  }
  x1=y1=0;
  for(i=1;i<3;i++){ // printf("%f %f\n",x[i],y[i]);
    x1+=x[i]; y1+=y[i];
  }
  x1/=2.; y1/=2.;
  if(x[2]-x[1]>20.){ x1+=12.; if(x1>=24.)x1-=24.; }
  toms2(x1,c1,1); toms2(y1,c2,0);
  printf("%s %s\n",c1,c2);
  fp=fopen("coord.cen","w");
  fprintf(fp,"%s %s\n",c1,c2);
  fclose(fp);
  for(i=0;i<4;i++){
    k=strlen(f1); f1[k-5]=i+49;
    sprintf(a,"poord81 %s !",f1);
    printf("%s\n",a);
    system(a);
  }
} 

chs(a,y)
char *a; double *y;
{
  double x;
  char b[20];
  int i,j,k;
  strncpy(b,a,20); k=strlen(b);
  j=1; for(i=0;i<k;i++){ if(b[i]==32)continue; if(b[i]=='-')j=-1; break; }
  for(i=0;i<k;i++)if(b[i]<'.' || b[i]> '9')b[i]=32;
  i=k=0; x=0.; sscanf(b,"%d %d %lf",&i,&k,&x);
  x=k/60.+x/3600.+i;
  *y=x*j;
}

toms2(aa,c,k)
double aa;           // input
char c[14];          // output
int k;               // input
/*
 *  hour or degree to char_line
 *   if k=1 (hour case) in **:**:**.***
 *       k=0 (degree       -**:**:**.**
 *       */
{
  int  i,j;
  double a,b,x;
  a=aa;
  if(k==1){ if(a>24.)a-=24.; if(a<0.)a+=24.; }
  c[0]=32; if(a<0.){ a=-a; c[0]='-'; }
  i=a; b=(a-i)*60.;
  j=b; x=(b-j)*60.;
  if(j==60){ j=0; i++; }
  if(k==1)sprintf(&c[1],"%2.2d:%2.2d:%6.3f",i,j,x);
  if(k==0)sprintf(&c[1],"%2.2d:%2.2d:%5.2f",i,j,x);
  if(c[7]==32)c[7]='0';   if(c[8]==32)c[8]='0';
  if(c[7]=='6'){
    c[7]='0'; j++; sprintf(&c[4],"%2.2d",j);
    if(c[4]=='6'){
      c[4]='0'; i++; sprintf(&c[1],"%2.2d",i);
    }
    c[3]=':'; c[6]=':';
  }
}