#include <stdio.h>
FILE *fp,*fp1;
main(int ac, char **av)
{
  char a[60],head[72][80];
  int i,k=0;
  if(ac<2){ printf(" clear fit1.cal1's cali\n\n"); exit(0); }
  fp1=fopen("/line3/uband-data/cat/fit1.cal1","r");
l10:
  fgets(a,60,fp1); if(feof(fp1))goto l20;
  a[45]=0;
  fp=fopen(a,"rb");
  if(fp==0){ printf("%s not found!\n",a); goto l10; }
  fread(head,72,80,fp); fclose(fp);
  if(head[29][50]==32){ 
    printf("%s\n",a);
    for(i=0;i<80;i++)head[29][i]=32;
    fp=fopen(a,"rb+"); fwrite(head,72,80,fp); fclose(fp);
    k++;
  }
  goto l10;
l20:
  fclose(fp1);
  printf("%d",k);
}
