// Copies all source files uncompressed into the home directory

CDirEntry *start_entry = FilesFind(
  "/*.Z;!/Home/*",
  FUF_RECURSE | FUF_JUST_FILES
);

CDirEntry *entry = start_entry;

do {

  Print("%s", entry->full_name);

  U8 *new_name = MAlloc(StrLen(entry->full_name) * 2);
  StrPrint(new_name, "/Home/Src%s", entry->full_name + 2);
  new_name[StrLen(new_name) - 2] = NULL;

  Print(" -> %s\n", new_name);

  Copy(entry->full_name, new_name);

} while (entry = entry->next);

DirTreeDel(start_entry);
