<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><div class=""><span style="font-family: monospace; white-space: pre-wrap;" class="">> </span><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">WHILE ch > "!" DO pat[i] := ch; INC(i); Texts.Read(R, ch) END;
> pat[i] := 0X;
> IF ch = "!" THEN pat[i+1] := “!" ELSE pat[i+1]:= 0X END ; (*directory option*)</span></font><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">></span></div></div><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class=""><br class=""></span></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">Even better (and shorter). So t</span></font><span style="white-space: pre-wrap; font-family: monospace;" class="">hat’s the fix.</span></div></body></html>