#include <stdio.h>
FILE *fp;
char a[80],c6;
main(int ac, char **av)
{
  int i,j,k;
  if(ac<3){ printf("\n\t**** copy flat.fits to (uu)/tt/101102 ******\n");
    printf("\n\tUsage: cpflat 6 101102\n\n");
    exit(0);
  }
  c6=av[1][0];
       
  system("dirss !");
  fp=fopen("/tmp/dirss.tmp","r");
  k=0;
l10:
  fgets(a,80,fp);  if(feof(fp))goto l20;
  if(a[41]!=32 || a[42]!=c6)goto l10;
  for(i=45;i<55;i++)if(a[i]=='F')goto l15;
  goto l10;
l15:
  if(a[++i]!='L')goto l10;
  if(a[++i]!='A')goto l10;
  k++;  a[20]=0;
  if(a[19]=='t'){ a[20]='s'; a[21]=0; }
  sprintf(a,"cp %s /line3/uband-data/cat/tt/%s",&a[5],av[2]);
  printf("%2d:  %s\n",k,a);
  system(a);
  goto l10;
l20:
  fclose(fp);
}