<div dir="auto"><div>Dear Hans Klaver,</div><div dir="auto">As a side note, I do have some versions of DOS Oberon too, and I didn't get the source code either.</div><div dir="auto">I wonder about the print screen picture that you included it.</div><div dir="auto">In what DOS emulator do you have DOS Oberon working, and in what host operating system?</div><div dir="auto">Thank you in advance.</div><div dir="auto"><br></div><div dir="auto">Prof Pablo Cayuela</div><div dir="auto">Argentina</div><div dir="auto"><br></div><div dir="auto">PS: I'm also searching for the source code of DOS Oberon, if anyone have some direction I'll appreciate it.</div><div dir="auto"><br><div class="gmail_quote" dir="auto"><div dir="ltr" class="gmail_attr">El dom., 4 oct. 2020 2:46, Hans Klaver <<a href="mailto:hklaver@dds.nl" target="_blank" rel="noreferrer">hklaver@dds.nl</a>> escribió:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div style="word-wrap:break-word;line-break:after-white-space"><div>I wonder if it is known that the output of the present PO version of Texts.WriteReal and Texts.WriteRealFix for various borderline values can be completely false due to untrapped overflow of FLOOR(x)? Although it is acceptable that floating point representation of real numbers produces round-off errors, the output of obviously wrong values is undesirable. </div><div><br></div><div>While looking into this I compared the output of these procedures with the same in my first Oberon (DOS Oberon V1.4, which I ordered from ETH Zurich in the early nineties). I don't have the source code of that early Oberon version, but I suppose it uses the source as published in the 1992 Project Oberon book. For the present PO version prof. Wirth rewrote these procedures, originally by J. Gutknecht.</div><div>...<br></div><div><br></div><div>Does anyone have a suggestion? Could it be that the TRAP7 is not due to integer overflow but to an array index overflow?<br><br>--</div><div>Hans</div><div>...<br></div><div><br></div><div>-----------------</div><div><br></div><div>The screenprint below shows the TRAP 7 produced by Text.WriteRealFix in DOS Oberon V1.4.</div><div>The present versions of Texts.WriteReal and Texts.WriteRealFix should show a TRAP in similar cases, imho.</div><div><br></div></div>--<br>
</blockquote></div></div></div>