U0 TreeSub(CDoc *doc,CDirEntry *tmpde)
{
  CDirEntry *tmpde1;
  while (tmpde)
  {
    tmpde1=tmpde->next;
    if (tmpde->attr & RS_ATTR_DIR)
    {
      DocPrint(doc,"$TR,\"\"$");
      DocPrint(doc,"$MA,T=\"%s\",LM=\"Cd(\\\"%s\\\");Dir;\n\"$\n",
               tmpde->name,tmpde->full_name);
      if (tmpde->sub)
      {
        DocPrint(doc,"$ID,+2$");
        TreeSub(doc,tmpde->sub);
        DocPrint(doc,"$ID,-2$");
      }
    }
    else
      DocPrint(doc,"$LK,\"%s\",A=\"FI:%s\"$\n",
               tmpde->name,tmpde->full_name);
//Note there is also a routine
    //to delete an entire CDirEntry tree.
    //See DirTreeDel().
    DirEntryDel(tmpde);
    tmpde=tmpde1;
  }
}

U0 TreeDemo()
{
  I64 fuf_flags=0;
  CDoc *doc=DocNew;
  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r");
  DocPrint(doc,"$TR-C,\"\"$\n");
  DocPrint(doc,"$ID,+2$");
  TreeSub(doc,FilesFind("/*",fuf_flags));
  DocPrint(doc,"$ID,-2$");
  DocInsDoc(DocPut,doc);
  DocDel(doc);
}

TreeDemo;