Jon Elson
2018-02-08 17:38:31 UTC
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 thereset(g);
assign(h,u);
rewrite(h);
while (not(eof(f))) do
begin
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