<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<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; font-size: 12pt; color: rgb(0, 0, 0); background-color: rgba(0, 0, 0, 0);">
yeah it's completely totally different.<br>
the original code was from PDP, but written by Donald Ecclestone at UWO (Western) in London Ontario<br>
I started helping him out with the code in 1978 just when he ported it over to the vax.<br>
<br>
There's some time-restricting code in it to prevent students from running it during class hours,<br>
But normally it's left disabled.<br>
<br>
There's some internal debug stuff still left in as well.<br>
<br>
Donald wrote a TREK5 which was pretty classic trek game, not multi-player or anything, but I don't know if he created it or based it on common code elements available at the time.<br>
<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> Simh <simh-bounces@trailing-edge.com> on behalf of Alan Perry <aperry@snowmoose.com><br>
<b>Sent:</b> February 3, 2018 6:03 PM<br>
<b>To:</b> simh@trailing-edge.com<br>
<b>Subject:</b> [Simh] Trek FORTRAN games (Was: Crowther's Adventure game)</font>
<div> </div>
</div>
<div style="background-color:#FFFFFF">In this different from the one credited to be by David Matusek and Paul Reynolds? I have FORTRAN source for what I think is the Trek game that we ran on TOPS-20 when I was in college in the mid-80s. I have been trying off
and on (mostly off recently) to get it working under SIMH, but haven't touched it in so long that I can't remember where I was at on it.<br>
<br>
It was on a 9-track tape of stuff that I collected when I graduated and LCM was kind enough to read for me a few years ago.<br>
<br>
alan<br>
<br>
<div class="x_moz-cite-prefix">On 2/3/18 2:00 PM, Larry Baker wrote:<br>
</div>
<blockquote type="cite">Dan,
<div class=""><br class="">
</div>
<div class="">The link to your Source Forge page you posted does not work for me. I found TREK7 it at <a href="https://sourceforge.net/projects/trek7/" class="">https://sourceforge.net/projects/trek7/</a>.</div>
<div class=""><br class="">
</div>
<div class="">I tried to find the sources you started with. I found a ZIP file called <a href="https://sourceforge.net/projects/trek7/files/trek7/status/trk7fsrc.zip/download" title="Click to download trk7fsrc.zip" class="" style="line-height:inherit; color:rgb(0,153,204); text-decoration:none; font-family:Lato,sans-serif; font-size:16.00004005432129px; white-space:nowrap; outline:none 0px!important">trk7fsrc.zip</a>.
When I compiled the first file, TREKA.FOR, I can see typos and lines extending past column 72. This could not be the original source code that worked at one time. Was this scanned? Has this been altered from a known working version, other than the scanning
errors? Like, the lines that extend past column 72? The code clearly expects column 72 to wrap to column 7 of a continuation line, which is how Fortran fixed-format source works.</div>
<div class=""><br class="">
</div>
<div class="">Ancient Fortran should not be that hard to convert, especially if you know the original platform. I saw LIB$ calls, which leads me to believe this was maybe VAX Fortran? I see the use of FORMAT specifiers without lengths, like F, not F7.2. It
would be nice to know the precise meaning of that non-standard Fortran. But, very new Fortran sill also accept FORMAT specifiers without lengths now. And, there is non-advancing support for Fortran I/O now. Fortran INTRINSICS should be straightforward.
The library calls will be harder.</div>
<div class=""><br class="">
</div>
<div class="">Want help? What platform do you want to run the code on?</div>
<div class=""><br class="">
<div class=""><span class="x_Apple-style-span" style="border-collapse:separate; font-family:'Helvetica Neue'; line-height:normal; border-spacing:0px"><span class="x_Apple-style-span" style="border-collapse:separate; color:rgb(0,0,0); font-family:'Helvetica Neue'; font-style:normal; font-variant:normal; font-weight:normal; letter-spacing:normal; line-height:normal; orphans:2; text-indent:0px; text-transform:none; white-space:normal; widows:2; word-spacing:0px">
<div class="" style="word-wrap:break-word">Larry Baker<br class="">
US Geological Survey<br class="">
650-329-5608<br class="">
<a href="mailto:baker@usgs.gov" class="">baker@usgs.gov</a><br class="">
<br class="">
</div>
<div class="" style="word-wrap:break-word"><br class="">
</div>
</span></span><br class="x_Apple-interchange-newline">
</div>
<br class="">
<div>
<blockquote type="cite" class="">
<div class="">On Feb 3, 2018, at 11:13 AM, <a href="mailto:simh-request@trailing-edge.com" class="">
simh-request@trailing-edge.com</a> wrote:</div>
<br class="x_Apple-interchange-newline">
<div class=""><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Message:
2</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Date:
Sat, 3 Feb 2018 17:51:47 +0000</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">From:
Dan Gahlinger <</span><a href="mailto:dgahling@hotmail.com" class="" style="font-family:Monaco; 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">dgahling@hotmail.com</a><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">></span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">To: Quentin
North <</span><a href="mailto:quentin@quentin.org.uk" class="" style="font-family:Monaco; 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">quentin@quentin.org.uk</a><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">>,
Bob Nelson</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="x_Apple-tab-span" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:pre; word-spacing:0px"></span><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important"><</span><a href="mailto:rmkrider@gmail.com" class="" style="font-family:Monaco; 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">rmkrider@gmail.com</a><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">></span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Cc: "</span><a href="mailto:simh@trailing-edge.com" class="" style="font-family:Monaco; 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><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">"
<</span><a href="mailto:simh@trailing-edge.com" class="" style="font-family:Monaco; 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><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">></span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Subject:
Re: [Simh] Crowther's Adventure game</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Message-ID:</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="x_Apple-tab-span" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:pre; word-spacing:0px"></span><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important"><</span><a href="mailto:DM3PR16MB0813E647EB83D26D6D6BEF95C9F80@DM3PR16MB0813.namprd16.prod.outlook.com" class="" style="font-family:Monaco; 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">DM3PR16MB0813E647EB83D26D6D6BEF95C9F80@DM3PR16MB0813.namprd16.prod.outlook.com</a><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">></span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="x_Apple-tab-span" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:pre; word-spacing:0px"></span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Content-Type:
text/plain; charset="utf-8"</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">I have
an original printout of Adventure from the mid 70's, taken from a Vax though,</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">It's
not a version I've found on the archives, the version ID on mine is different.</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">I've
been meaning to scan it and post it.</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Ancient
fortran is very hard to convert, as I found out trying to convert trek7 (</span><a href="https://trek7.sourceforge.net/" class="" style="font-family:Monaco; 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">https://trek7.sourceforge.net</a><span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">)</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">And I
spent 38 years or so converting "the new castle" from Vax to Linux/Dos/Mac.</span><br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<br class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px">
<span class="" style="font-family:Monaco; font-size:12px; font-style:normal; font-weight:normal; letter-spacing:normal; text-align:start; text-indent:0px; text-transform:none; white-space:normal; word-spacing:0px; float:none; display:inline!important">Dan.</span></div>
</blockquote>
</div>
<br class="">
</div>
<br>
<fieldset class="x_mimeAttachmentHeader"></fieldset> <br>
<pre>_______________________________________________
Simh mailing list
<a class="x_moz-txt-link-abbreviated" href="mailto:Simh@trailing-edge.com">Simh@trailing-edge.com</a>
<a class="x_moz-txt-link-freetext" href="http://mailman.trailing-edge.com/mailman/listinfo/simh">http://mailman.trailing-edge.com/mailman/listinfo/simh</a></pre>
</blockquote>
<br>
</div>
</body>
</html>