misc/CHECK.PAS

uses configrt,dos,crt;
var f : file;
begin
assign(f,'node1.dat');
reset(f,1);
writeln('file size of node1.dat == ',filesize(f));
writeln('size of configrec      == ',sizeof(cfg));
close(f);
assign(f,'c:\infusion\node2.dat');
reset(f,1);
writeln('file size of node2.dat == ',filesize(f));
close(f);
end.