On 02/08/2018 11:21 AM, simh-requ...@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
_______________________________________________
Simh mailing list
Simh@trailing-edge.com
http://mailman.trailing-edge.com/mailman/listinfo/simh
