<html xmlns:v="urn:schemas-microsoft-com:vml" 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)">
<!--[if !mso]><style>v\:* {behavior:url(#default#VML);}
o\:* {behavior:url(#default#VML);}
w\:* {behavior:url(#default#VML);}
.shape {behavior:url(#default#VML);}
</style><![endif]--><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;}
@font-face
{font-family:Gadugi;
panose-1:2 11 5 2 4 2 4 2 2 3;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
p
{mso-style-priority:99;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
p.msonormal0, li.msonormal0, div.msonormal0
{mso-style-name:msonormal;
mso-margin-top-alt:auto;
margin-right:0in;
mso-margin-bottom-alt:auto;
margin-left:0in;
font-size:12.0pt;
font-family:"Times New Roman",serif;}
span.EmailStyle19
{mso-style-type:personal-reply;
font-family:"Calibri",sans-serif;
color:#1F497D;}
.MsoChpDefault
{mso-style-type:export-only;
font-family:"Calibri",sans-serif;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang="EN-US" link="blue" vlink="purple">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D">All this talk about FORTRAN and criticisms of Pascal brought back memories of “Real Programmers Don’t Use Pascal”<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D">I’d imagine all of you old timers around here have read it, but you younger folk may not be familiar with it. If you’ve never read this gem, go do so now.
<a href="http://www.usm.uni-muenchen.de/~hoffmann/roff/tmp/rpdup.pdf">http://www.usm.uni-muenchen.de/~hoffmann/roff/tmp/rpdup.pdf</a><o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D">After you finish that, google Mel and the Royal McBee.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:#1F497D"><o:p> </o:p></span></p>
<p class="MsoNormal"><b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif">From:</span></b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif"> Simh [mailto:simh-bounces@trailing-edge.com]
<b>On Behalf Of </b>Clem Cole<br>
<b>Sent:</b> Thursday, February 8, 2018 12:44 PM<br>
<b>To:</b> Dan Gahlinger <dgahling@hotmail.com><br>
<b>Cc:</b> Gary Lee Phillips <tivo.overo@gmail.com>; simh@trailing-edge.com<br>
<b>Subject:</b> Re: [Simh] anyone know how to convert/translate turbo pascal to vax pascal?<o:p></o:p></span></p>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Yup - traditional Pascal (lack of) portability due to the report having been silent. Associating files with file descriptors could never be agreed so ISO never defined how to do. Every OS
does it differently. Since Wirth was silent on it, if they picked one scheme over another the Pascal committee was favoring that implementation [Kernighan may have even pointed this out in his paper they wrote after writing the software tools in Pascal -
<a href="http://wiki.lazarus.freepascal.org/Why_Pascal_is_Not_My_Favorite_Programming_Language">
Why Pascal is Not My Favorite Programming Language</a> ].**</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Go google the two document I mentioned previously and it should be a fairly simply change. Look up file I/O and then read how VMS implemented the association of name.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">I'm now going by memory, but a number of Pascal's did that in the reset() function. A number created a new function as Turbo did (assign() in this case, but I think open() was used by a couple
of other Pascals. I think a couple of other pass it in via the Program function and style other that supported separate libraries (usually called units) did it other ways still.<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">For grins, in the late 1970s at an HP/Tektronix 'Hatfield/McCoy' style party - in those days HP in particular was Basic happy and Tek was mostly Pascal. We counted over 25 different incompatible
'HP Basic' implementations, and over 10 different Tek Pascals.<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">These are just the sorts of things you need the Turbo Pascal manual in one had if that is were you are coming from and in this case the VMS Pascal manual in the other. Look up assign() in the
first and the read how perform the same action in the other.<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Good Luck,<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">Clem<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif"><o:p> </o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif">** IMHO: <span style="color:#222222;background:white">This is a good example of where C 'beat' Pascal - the I/O was defined by UNIX and when it came time to create a standard, C mostly kept the
UNIX semantics and was able to keep many/most of the OS-ism from other systems out.</span><o:p></o:p></span></p>
</div>
</div>
<div>
<p class="MsoNormal"><img border="0" id="_x0000_i1025" src="https://mailfoogae.appspot.com/t?sender=aY2xlbWNAY2NjLmNvbQ%3D%3D&type=zerocontent&guid=04606809-a8e8-441d-a498-316c887d23a1"><span style="font-size:7.5pt;font-family:"Gadugi",sans-serif;color:white">ᐧ</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
<div>
<p class="MsoNormal">On Thu, Feb 8, 2018 at 12:21 PM, Dan Gahlinger <<a href="mailto:dgahling@hotmail.com" target="_blank">dgahling@hotmail.com</a>> wrote:<o:p></o:p></p>
<blockquote style="border:none;border-left:solid #CCCCCC 1.0pt;padding:0in 0in 0in 6.0pt;margin-left:4.8pt;margin-right:0in">
<div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">so here you go, a simple file compare I wrote using "freepascal" (<a href="http://freepascal.org" target="_blank">freepascal.org</a>) and I've done what I can to convert it to vms
pascal<br>
but it doesn't compile.<br>
<br>
code:<o:p></o:p></span></p>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">Program fcomp(input,output);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">var<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> f, g, h : text;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> s, t, u : varying [255] of char;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> c, d : char;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> i : integer;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">begin<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> s := 'first.txt';<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> t := 'second.txt';<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> u := 'output.txt';<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> i := 0;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> assign(f,s);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> reset(f);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> assign(g,t);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> reset(g);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> assign(h,u);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> rewrite(h);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> while (not(eof(f))) do<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> begin<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> read(f,c);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> read(g,d);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> i := i + 1;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> if (c <> d) then<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> writeln(h,i,' = 1:[',c,']/',ord(c),' 2:[',d,']/',ord(d));<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> end;<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> close(f);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> close(g);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> close(h);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">end.<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"><br>
errors:<o:p></o:p></span></p>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> pas fcomp.pas<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">00016 0 1 assign(f,s);<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"> 1<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">%PASCAL-E-UNDECLID, (1) Undeclared identifier ASSIGN<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">at line number 16 in file DUA1:[DAN]FCOMP.PAS;4<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black">%PASCAL-E-ENDDIAGS, PASCAL completed with 1 diagnostic<o:p></o:p></span></p>
</div>
<p class="MsoNormal"><span style="font-family:"Calibri",sans-serif;color:black"><o:p> </o:p></span></p>
</div>
<div class="MsoNormal" align="center" style="text-align:center">
<hr size="2" width="98%" align="center">
</div>
<div id="m_1006877844695021352divRplyFwdMsg">
<p class="MsoNormal"><b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:black">From:</span></b><span style="font-size:11.0pt;font-family:"Calibri",sans-serif;color:black"> Clem Cole <<a href="mailto:clemc@ccc.com" target="_blank">clemc@ccc.com</a>><br>
<b>Sent:</b> February 8, 2018 10:58 AM<br>
<b>To:</b> Dan Gahlinger<br>
<b>Cc:</b> Gary Lee Phillips; Tim Shoppa; <a href="mailto:simh@trailing-edge.com" target="_blank">
simh@trailing-edge.com</a><br>
<b>Subject:</b> Re: [Simh] anyone know how to convert/translate turbo pascal to vax pascal?</span>
<o:p></o:p></p>
<div>
<p class="MsoNormal"> <o:p></o:p></p>
</div>
</div>
<div>
<div>
<div>
<div>
<div>
<p class="MsoNormal"><span style="color:blue">Dan,</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">As others have said something smells wrong here. It's true the original '71 report from Wirth did not defined I/O and '72 revised report only defined write. By the time of the Jensen & Wirth book from Springer-Verlag
in the mid-late '70s writeln is there. And by the time of the first standard efforts @ IEEE and ANSI it very much in the language. I do have an old copy ANSI/IEEE770X3.97-1983 "American National Standard Pascal Computer Programming Language" which on page
93 (Section 6.9.3) defines the required standard Pascal function writeln: </span><o:p></o:p></p>
</div>
<div>
<blockquote style="margin-left:30.0pt;margin-right:0in;text-align:start;word-spacing:0px">
<div>
<p class="MsoNormal"><b><span style="font-family:"Arial",sans-serif;color:#222222">6.9.4 The <span style="background:white">Procedure Writeln.</span></span></b><span style="font-family:"Arial",sans-serif;color:#222222"><o:p></o:p></span></p>
</div>
</blockquote>
<blockquote style="margin-left:30.0pt;margin-right:0in;text-align:start;word-spacing:0px">
<blockquote style="margin-left:30.0pt;margin-right:0in">
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif;color:#222222">The syntax of the parameter list of writeln shall be:<o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif;color:#222222"><o:p> </o:p></span></p>
</div>
</blockquote>
</blockquote>
<blockquote style="margin-left:30.0pt;margin-right:0in;text-align:start;word-spacing:0px">
<blockquote style="margin-left:30.0pt;margin-right:0in">
<blockquote style="margin-left:30.0pt;margin-right:0in">
<div>
<p class="MsoNormal"><span style="font-family:"Courier New";color:#222222">writeln-parameter-list = [ "(" ( file-variable
<span style="background:white">|</span> write-parameter ) </span><span style="font-family:"Arial",sans-serif;color:#222222"><o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Courier New";color:#222222"> | "," write-parameter
<span style="background:white">|</span> ")" ] .</span><span style="font-family:"Arial",sans-serif;color:#222222"><o:p></o:p></span></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif;color:#222222"><o:p> </o:p></span></p>
</div>
</blockquote>
</blockquote>
</blockquote>
<blockquote style="margin-left:30.0pt;margin-right:0in;text-align:start;word-spacing:0px">
<blockquote style="margin-left:30.0pt;margin-right:0in">
<div>
<p class="MsoNormal"><b><span style="font-family:"Arial",sans-serif;color:#222222">Writeln</span></b><span style="font-family:"Arial",sans-serif;color:#222222"> shall only be applied to textfiles. If the file-variable or the writeln-parameter-list is omitted,
the procedure shall be applied to the required </span><span style="font-family:"Courier New";color:#222222">textfile</span><span style="font-family:"Arial",sans-serif;color:#222222"> output.<o:p></o:p></span></p>
</div>
</blockquote>
</blockquote>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">From a quick search on the HP web site (<a href="http://h41379.www4.hpe.com/commercial/pascal/pascal_index.html" target="_blank">http://h41379.www4.hpe.com/commercial/pascal/pascal_index.html</a> )</span><span style="font-family:"Arial",sans-serif;color:blue;background:white"> I
found reference to the SPD and the site says: </span><span style="color:blue">:</span><o:p></o:p></p>
</div>
<blockquote style="margin-left:30.0pt;margin-right:0in">
<div>
<p style="word-spacing:0px"><span style="font-family:"Arial",sans-serif;color:red;background:white">HP Pascal (formerly known as Compaq Pascal and DEC Pascal) runs on OpenVMS for VAX systems, OpenVMS for AlphaServer systems, and OpenVMS for Integrity servers.
With HP Pascal, your source code investment is not only protected, it is extended.</span><span style="font-family:"Arial",sans-serif"><o:p></o:p></span></p>
</div>
<div>
<p style="word-spacing:0px"><span style="font-family:"Arial",sans-serif;color:red;background:white">HP
</span><span style="font-family:"Arial",sans-serif;color:red;background:yellow">Pascal supports code compatible with either level of the ISO specification, meets Federal Information Processing Standard Publications (FIPS-109) requirements, and supports many
features from the Extended Pascal Standard</span><span style="font-family:"Arial",sans-serif;color:red;background:white">. HP Pascal has a solid reputation as a robust, production-quality, high-performance compiler. It is a full compiler, not an interpretive
one. Tightly integrated wit</span><span style="font-family:"Arial",sans-serif"><o:p></o:p></span></p>
</div>
</blockquote>
<div>
<p class="MsoNormal"><span style="color:blue;background:white">While I do not have FIPS 109 on my system, FIPS was based on ANSI/IEEE770X3.97, and I do have a copy of the an old DEC pascal manual so I'm 100% sure writeln is there. I also believe that Turbo
Pascal was developed after the ANSI/IEEE770X3.97 was published so the Turbo extension to writeln and any VMS ones should be able to puzzled out.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="font-family:"Arial",sans-serif;color:blue;background:white">Here is a pointer to </span><span style="color:blue"><a href="https://support.hpe.com/hpsc/doc/public/display?docId=emr_na-c04619822" target="_blank"><span style="font-family:"Arial",sans-serif">Pascal
for OpenVMS - User Manual Order Number: AA-PXSND-TK</span></a> This may give you hints. </span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">That said, I have a PDF of the VMS Pascal Reference, but lord knows where it came from; probably my time at DEC. I have to believe its on bitsavers or the like. But when I look on page 9-67, Section 9.8.26 defines
the WRITELN procedure as defined in the standard with the one DEC extension of supporting that last optional parameter to be:
</span><span style="font-family:"Courier New";color:blue">[,</span><span style="font-family:"Courier New";color:black"> ERROR := error-recovery</span><span style="font-family:"Courier New";color:blue">] where
</span><span style="font-family:"Courier New";color:black;background:white">error-recovery
</span><span style="font-family:"Arial",sans-serif;color:blue;background:white"> is defined as the action to be taken when an error occurs.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue"> As other have said maybe its something silly from file format conversion like <CR><LF> processing as VMS record oriented I/O is different than DOS/Windows. But I suspect you are running into a difference in how
I/O is declared and bound to files on the disk. My experience with a number of different Pascal compilers 'back in the day' was this was an area for wide variation. This is what I would look up in the HP/Compaq/DEC user manuals I just pointed you too.
I suspect that the 'VMS Pascal Language' manual should help you through the DEC variant, so google is your friend to try find a PDF. With that open and a Turbo Pascal manual I think you'll be fine (and if you cannot find a Turbo manual, I have to believe
the <a href="http://freepascal.org" target="_blank">freepascal.org</a> docs will get you a long way since they claim to be 100% Turbo Pascal and Delphi compatible).</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">BTW: One other though/place where Pascal I/O can differ is character sets, although I don't think it a problem because PCs and Vaxen never had this issue, if you read any the reports or "Jensen and Wirth" you will
notice that Pascal was defined for a 6-bit byte on a CDC-6600 system (SCOPE was the OS IIRC). As I have said elsewhere, a 6-bit character was not unusual on earlier systems -> today, we can thank Fred Brooks for the 8-bit byte (Gene Amdahl wanted it to
be 6 bits but Brooks kicked him out of his office until he had something that could easily be handled by SW -
<i>i.e</i>. a power of 2, which Amdahl thought was wasteful for the HW).</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">Anyway, characters can be an issue when moving Pascal code because original Pascal was defined with some CDC isms and in those days, CDC had as number of different character sets. I note that if look at the ANSI
standard you'll noted the definition of all identifiers is just the lower case [english] chars
</span><span style="font-family:"Courier New";color:red">a-z</span><span style="color:blue"> for letters, the traditional digits
</span><span style="font-family:"Courier New";color:red">0-9</span><span style="color:blue"> and very limited number of special-symbols (
</span><span style="font-family:"Courier New";color:red">+ - * / = < > [ ] . , : ' | ( )</span><span style="font-family:"Courier New""> </span><span style="color:blue">). They do say:</span><o:p></o:p></p>
</div>
<blockquote style="margin-left:30.0pt;margin-right:0in">
<div>
<p class="MsoNormal"><span style="color:black">The representation of any letter (upper-case or lower-case, differences of font,
<i>etc</i>.) occurring anywhere outside of a character-string (see 6.1.7) shall be insignificant in that occurrence to the meaning of the program.</span><o:p></o:p></p>
</div>
</blockquote>
<div>
<p class="MsoNormal"><span style="color:blue">Because of the '6-bit ness' of some systems, the standard even provides for alternative tokens to do things like square braces to
</span><span style="font-family:"Courier New";color:red">(.</span><span style="color:blue"> and
</span><span style="font-family:"Courier New";color:red">.)</span><span style="color:blue"> or vertical bar to
</span><span style="font-family:"Courier New";color:#FF9900">@</span><span style="color:blue"> [and I think may allow
</span><span style="font-family:"Courier New";color:red">^</span><span style="color:blue"> to be used for same IIRC].</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">Also remember that DEC manuals tended to show the identifiers in upper case (go figure). And since both Vaxen and Intel processors (<i>i.e.
</i>VMS Pascal and Turbo Pascal) support at least 7-bit ASCII fitting into an 8 bit character, and DEC added support for other special symbols such as dollar
</span><span style="font-family:"Courier New";color:red">$</span><span style="color:blue">, but I have to believe the problem is not in character set.</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">Best wishes,</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><span style="color:blue">Clem</span><o:p></o:p></p>
</div>
<div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</div>
<div>
<p class="MsoNormal"><img border="0" id="_x0000_i1027" src="https://mailfoogae.appspot.com/t?sender=aY2xlbWNAY2NjLmNvbQ%3D%3D&type=zerocontent&guid=fb55634a-d1bf-49d9-8e6c-1dd5acc9ab1f"><span style="font-size:7.5pt;font-family:"Gadugi",sans-serif;color:white">ᐧ</span><o:p></o:p></p>
</div>
</div>
</div>
</div>
</div>
</blockquote>
</div>
<p class="MsoNormal"><o:p> </o:p></p>
</div>
</div>
</body>
</html>