<div dir="ltr">Is it this one John?<div><br></div><div><a href="http://homepages.cwi.nl/~steven/pascal/">http://homepages.cwi.nl/~steven/pascal/</a><br></div><div><br></div><div>There are links there to a 76 version from eth.</div><div><br></div><div>j.</div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Mon, Nov 23, 2015 at 9:47 AM, John Stout <span dir="ltr"><<a href="mailto:JSS@kgv.ac.uk" target="_blank">JSS@kgv.ac.uk</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Well, I should have done a bit more research before making my comments, and/or done all the exercises in Compiler Construction, which would have lead me to Professor Wirth's preferred implementation for CASE.<br>
<br>
I have the source code for the Pascal P4 compiler from 1976 (courtesy of Lancaster University) and that uses this system, although it does place a maximum of 1000 on the number of cases.<br>
<span class="HOEnZb"><font color="#888888"><br>
John<br>
</font></span><span class="im HOEnZb"><br>
[King George V Logo]<br>
John Stout<br>
Management Information Systems Coordinator<br>
Tel: 01704 530601<br>
E-Mail: <a href="mailto:JSS@kgv.ac.uk">JSS@kgv.ac.uk</a><br>
Web: <a href="http://www.kgv.ac.uk" rel="noreferrer" target="_blank">www.kgv.ac.uk</a><br>
<br>
<br>
Information contained in this e-mail is intended for the use of the addressee only and is confidential.  Any dissemination, distribution, copying or use of this communication without prior permission of the addresseeis strictly prohibited.<br>
<br>
Every effort has been made to ensure that any attachment to this mail does not contain virus. King George V College has taken every reasonable precaution to minimise this risk, neither it nor the sender can accept liability for any damage which you sustain as a result of software viruses. You should carry outyour own virus checks before opening any attachments.<br>
<br>
[Think Before You Print]<br>
</span><div class="HOEnZb"><div class="h5">--<br>
<a href="mailto:Oberon@lists.inf.ethz.ch">Oberon@lists.inf.ethz.ch</a> mailing list for ETH Oberon and related systems<br>
<a href="https://lists.inf.ethz.ch/mailman/listinfo/oberon" rel="noreferrer" target="_blank">https://lists.inf.ethz.ch/mailman/listinfo/oberon</a><br>
</div></div></blockquote></div><br></div>