<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">></span><span style="font-family: monospace; white-space: pre-wrap;" class="">> </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">If you do "System.Directory *.mod!" and after that without "!" than you </span></font><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">> get details on both outputs. "!" toggles the details for output without "!". </span></font></div><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div></span></font><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">The issue is that System.Directory modifies a global variable ‘pat’,</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">which may contain some “leftover” characters from a previous call to</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">System.Directory. </span></font><span style="font-family: monospace; white-space: pre-wrap;" class="">The following code makes sure it is always “clean”.</span></div><div class=""><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">In System.Directory change this code:<br class=""></span></font><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;<br class=""> pat[i] := 0X;<br class=""> IF ch = "!" THEN pat[i+1] := "!" END ; (*directory option*)</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">to the following:</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""> WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;<br class=""> pat[i] := 0X; INC(i);<br class=""> IF ch = "!" THEN pat[i] := "!"; INC(i) END ; (*directory option*)<br class=""> WHILE i < LEN(pat) DO pat[i] := 0X; INC(i) END ;</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">-AP</span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><br class=""></div><div class=""><div class=""><div class=""><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class=""><br class=""></span></div></div></div></div></div></div></body></html>