, hoe recusively, in de lijst van alle documenten, catalogi, van programma 's per (resultaten: tstrings; weg: touw; ", met inbegrip van het pad": booleaanse = vals);,, var, R.;:,,,, tsearchrec; Sr: weg: touw;, beginnen, de bewering van (resultaten en LT; > nul, het resultaat is ");,, weg van terugkeer van bepaalde documenten: = (weg); de weg, weg, includetrailingbackslash: = (weg);,, R = FindFirst (weg, faanyfile, SR); r = 0, en begint te doen," met inbegrip van als,,, weg, en dan, de toevoeging ". (+ sr.name weg, anders, resultaten). Toevoeging van (sr.name);,, R = FindNext (SR);,,,, aan het einde van findclose (SR); aan het einde van,,,,,,,,