<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0cm;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
p.MsoPlainText, li.MsoPlainText, div.MsoPlainText
{mso-style-priority:99;
mso-style-link:"Nur Text Zchn";
margin:0cm;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
span.NurTextZchn
{mso-style-name:"Nur Text Zchn";
mso-style-priority:99;
mso-style-link:"Nur Text";
font-family:"Calibri",sans-serif;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;
mso-fareast-language:EN-US;}
@page WordSection1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 2.0cm 70.85pt;}
div.WordSection1
{page:WordSection1;}
--></style></head><body lang=DE-CH link="#0563C1" vlink="#954F72"><div class=WordSection1><p class=MsoPlainText><span lang=EN-US>Hi Tomas<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US><o:p> </o:p></span></p><p class=MsoPlainText><span lang=EN-US>Doesn't trap on my system.<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US><o:p> </o:p></span></p><p class=MsoPlainText><span lang=EN-US>But the option handling is indeed wrong and should be corrected.<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US>Either you correct the wrong option handling with<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US> pat[i] := 0X;<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US> IF ch ="!" THEN pat[i+1] := "!" <b><span style='color:red'>ELSE pat[i+1] := 0X </span></b>END;<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US>or as you did<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US> pat[i] := 0X; <b><span style='color:red'>pat[i+1] := ch;<o:p></o:p></span></b></span></p><p class=MsoPlainText><span lang=EN-US><o:p> </o:p></span></p><p class=MsoPlainText><span lang=EN-US>Jörg<o:p></o:p></span></p><p class=MsoPlainText><span lang=EN-US><o:p> </o:p></span></p><p class=MsoPlainText><span lang=DE>Am 06.01.19, 16:45 schrieb "Oberon im Auftrag von Tomas Kral" <oberon-bounces@lists.inf.ethz.ch im Auftrag von thomas.kral@email.cz>:<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE><o:p> </o:p></span></p><p class=MsoPlainText><span lang=DE> On Sun, 6 Jan 2019 16:34:13 +0100<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> Jörg <joerg.straube@iaeth.ch> wrote:<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> <o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> > How does your filename without extension look like and what<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> > System.Directory parameter did you use?<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> <o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> Edit.Open Test ~ new file<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> Test.Store<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> System.Directory Test! ~<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> System.Directory Test ~<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> <o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> -- <o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> Tomas Kral <thomas.kral@email.cz><o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> --<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> Oberon@lists.inf.ethz.ch mailing list for ETH Oberon and related systems<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> https://lists.inf.ethz.ch/mailman/listinfo/oberon<o:p></o:p></span></p><p class=MsoPlainText><span lang=DE> <o:p></o:p></span></p></div></body></html>