char *tabtosp(fsource,fdestin)
char *fsource,*fdestin;
{
  int w;

  w = 0;
  while (*fsource) {
    if (*fsource == 9)
      do
	fdestin[w] = ' ';
      while (++w % 8);
    else
      fdestin[w++] = *fsource;
    fsource++;
  }
  fdestin[w] = 0;
  return(fdestin);
}
