<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<style type="text/css" style="display:none;"> P {margin-top:0;margin-bottom:0;} </style>
</head>
<body dir="ltr">
<div style="font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols; font-size: 12pt; color: rgb(0, 0, 0); background-color: rgba(0, 0, 0, 0);">
I didn't port it from vax pascal.<br>
in fact, I've never done any vax pascal programming in my life.<br>
<br>
I ported it from vax fortran to turbo pascal. yeah, that was fun, not.<br>
<br>
but now I want to move my new code back to the vax in whatever language.<br>
<br>
vax basic is the one I'm most familiar with, followed by DCL<br>
<br>
the free pascal code is on the order of several hundred thousand lines of source code.<br>
it's become quite a beast over the decades.<br>
maybe I'll spend the next 38 years porting it back <span>😊</span><br>
Dan.<br>
</div>
<hr style="display:inline-block;width:98%" tabindex="-1">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> Jeremy Begg <jeremy@vsm.com.au><br>
<b>Sent:</b> February 8, 2018 1:36 AM<br>
<b>To:</b> Dan Gahlinger<br>
<b>Cc:</b> Jeremy Begg; Jon Elson; simh@trailing-edge.com<br>
<b>Subject:</b> Re: [Simh] anyone know how to convert/translate turbo pascal to vax pascal?</font>
<div> </div>
</div>
<div class="" style="word-wrap:break-word">
<div class="">Despite porting the program from VAX Pascal to various flavours of other Pascal, it seems you don’t recall much about the language.<br class="">
<div class="">Moving from Pascal to BASIC would be quite an exercise.</div>
<div class=""><br class="">
</div>
<div class="">In VAX Pascal the reserved identifiers INPUT and OUTPUT refer to SYS$INPUT and SYS$OUTPUT, respectively.</div>
<div class="">Here’s a simple program which prompts for user input.</div>
<div class=""><br class="">
</div>
<div class="">program hello(input,output);<br class="">
var s : varying [80] of char;<br class="">
begin<br class="">
write('What is your name? ');<br class="">
while not eof(input) do<br class="">
begin<br class="">
readln(s);<br class="">
if length(s) > 0 then break;<br class="">
write('What is your name? ');<br class="">
end;<br class="">
writeln('Hello ', s);<br class="">
end.<br class="">
<br class="">
</div>
<div class=""><span class="x_Apple-tab-span" style="white-space:pre"></span>Jeremy</div>
<div class=""><br class="">
<div>
<blockquote type="cite" class="">
<div class="">On 8 Feb 2018, at 4:49 PM, Dan Gahlinger <<a href="mailto:dgahling@hotmail.com" class="">dgahling@hotmail.com</a>> wrote:</div>
<br class="x_Apple-interchange-newline">
<div class="">
<div class="" style="font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px; font-family:Calibri,Helvetica,sans-serif; font-size:12pt; background-color:rgba(0,0,0,0)">
I found a hello world pascal example online for vms,<br class="">
so at least that much I can get working.<br class="">
<br class="">
however, all the docs online are not so useful for programming itself.<br class="">
my code has input and output from the terminal and from files.<br class="">
the hello program uses: program hello(output);<br class="">
so not sure how to do in and out from the terminal.<br class="">
tried googling examples but no such luck beyond hello world.<br class="">
<br class="">
it might be easier for me to port to vax basic, I used to be an expert at that, many moons ago.<br class="">
<br class="">
Dan.<br class="">
</div>
<hr tabindex="-1" class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px; display:inline-block; width:1000.578125px">
<span class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px; float:none; display:inline!important"></span>
<div id="x_divRplyFwdMsg" dir="ltr" class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">
<font face="Calibri, sans-serif" class="" style="font-size:11pt"><b class="">From:</b><span class="x_Apple-converted-space"> </span>Simh <<a href="mailto:simh-bounces@trailing-edge.com" class="">simh-bounces@trailing-edge.com</a>> on behalf of Jon Elson <<a href="mailto:elson@pico-systems.com" class="">elson@pico-systems.com</a>><br class="">
<b class="">Sent:</b><span class="x_Apple-converted-space"> </span>February 7, 2018 9:25 PM<br class="">
<b class="">To:</b><span class="x_Apple-converted-space"> </span><a href="mailto:simh@trailing-edge.com" class="">simh@trailing-edge.com</a><br class="">
<b class="">Subject:</b><span class="x_Apple-converted-space"> </span>[Simh] anyone know how to convert/translate turbo pascal to vax pascal?</font>
<div class=""> </div>
</div>
<div class="x_BodyFragment" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">
<font size="2" class=""><span class="" style="font-size:11pt">
<div class="x_PlainText">On 02/07/2018 05:57 PM,<span class="x_Apple-converted-space"> </span><a href="mailto:simh-request@trailing-edge.com" class="">simh-request@trailing-edge.com</a><span class="x_Apple-converted-space"> </span>wrote:<br class="">
> [Simh] anyone know how to convert/translate turbo pascal to<br class="">
> vax pascal?<br class="">
> Message-ID:<br class="">
> <<a href="mailto:DM3PR16MB0813E13BB9F23F23569DB71AC9FC0@dm3pr16mb0813.namprd16.prod.outlook.com" class="">DM3PR16MB0813E13BB9F23F23569DB71AC9FC0@DM3PR16MB0813.namprd16.prod.outlook.com</a>><br class="">
> <span class="x_Apple-converted-space"> </span><br class="">
> Content-Type: text/plain; charset="iso-8859-1"<br class="">
><br class="">
> since I did all that work recreating "castle" from the vax to the pc<br class="">
> using turbo pascal (then free pascal)<br class="">
> I'd like to "port" it back to the vax,<br class="">
> but the vms 7.3 pascal compiler doesn't recognize "writeln"<br class="">
> and I suspect things like types and records and case statements wont work either.<br class="">
><br class="">
> anyone have any ideas?<br class="">
Umm, I just looked back at some Pascal code I had on VAX<span class="x_Apple-converted-space"> </span><br class="">
Pascal, and it DEFINITELY has writeln statements in it.<br class="">
This is such basic Pascal syntax, I can't imagine that did<span class="x_Apple-converted-space"> </span><br class="">
not work. But, maybe you have to enable some library or<span class="x_Apple-converted-space"> </span><br class="">
Pascal "unit" to use those functions.<br class="">
<br class="">
Jon<br class="">
_______________________________________________<br class="">
Simh mailing list<br class="">
<a href="mailto:Simh@trailing-edge.com" class="">Simh@trailing-edge.com</a><br class="">
<a href="http://mailman.trailing-edge.com/mailman/listinfo/simh" class="">http://mailman.trailing-edge.com/mailman/listinfo/simh</a></div>
</span></font></div>
<span class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px; float:none; display:inline!important">_______________________________________________</span><br class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">
<span class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px; float:none; display:inline!important">Simh
mailing list</span><br class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">
<a href="mailto:Simh@trailing-edge.com" class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">Simh@trailing-edge.com</a><br class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">
<a href="http://mailman.trailing-edge.com/mailman/listinfo/simh" class="" style="font-family:Helvetica; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; orphans:auto; text-align:start; text-indent:0px; text-transform:none; white-space:normal; widows:auto; word-spacing:0px">http://mailman.trailing-edge.com/mailman/listinfo/simh</a></div>
</blockquote>
</div>
<br class="">
</div>
</div>
</div>
</body>
</html>