[Simh] Simh Digest, Vol 169, Issue 36

[Jon Elson]

On 02/08/2018 11:21 AM, simh-request at trailing-edge.com wrote:
> assign(g,t);
>    reset(g);
>    assign(h,u);
>    rewrite(h);
>    while (not(eof(f))) do
>      begin
>       
OK, looking back at my VMS Pascal programs, it seems the 
OPEN statement is used to open a file, not assign.
So, you would have :

var

objfile : file of char;

begin
     open(objfile,'OBJECT',133,OLD);
     reset(objfile);    {open input file }
     readln (objfile,numpts,numpolys);
     writeln ('readobject -- numpts,numpolys',numpts,numpolys);


Jon