[TUHS] berkeley unix version hosting Doug Cooper's Standard Pascal Environment

[Will Senn via TUHS]

Hi all,

My algol60 dive took me into uncharted (for me) waters. It was fun, but 
eventually I tacked back and came across, Oh! Pascal!, a recommendation 
I believe Clem gave me. Well, interestingly enough, but not directly 
unix related, the code in that book runs with fpc -Miso, meaning the 
free pascal compiler with the iso option for 7185. So, I'm covered on 
running it in the modern world, but as usual, I'd prefer to run it like 
it was run back when, on a system that might have been used, at the time 
to work through the book.

My first step back from today took me to 211bsd, it has a reasonable 
environment, has pi and px and oughtta work, but... it doesn't really. 
It'll do basic stuff, sure. But it lacks pc and a more complete 
compiler, particularly function as argument:

program FunctionArgumentDemo;

function Square(x: integer): integer;
begin
   Square := x * x
end;

function Cube(x: integer): integer;
begin
   Cube := x * x * x
end;

function Apply(function f(x: integer): integer;
                value: integer): integer;
begin
   Apply := f(value)
end;

begin
   writeln(Apply(Square, 5));
   writeln(Apply(Cube, 3))
end.

# pi -s arg.p
      1  program FunctionArgumentDemo;
E ----------------------------------^--- Expected '('
     13      function Apply(function f(x: integer): integer;
e -----------------------------------^--- Replaced '(' with a ','
E 13 - Procedure/function parameters not implemented

Which is reasonable, turbo pascal 3 didn't have function arguments, but 
Standard Pascal iso 7185 supports it... I want it :).

So, my question is, does this ring a bell for anyone? ChatGPT seems to 
think that a VAX 4.1 might be in use around the '82-'85 timeline of the 
1st and 2nd edition.

Cooper references quite a rarified list of folks in the preface to the 
82 edition, so I'm inclined to think he had access to what was current 
at Berkeley at the time (he calls McKusick one of the "Kompiler Kids").