{ Copyright (C) 1981 by Bell Laboratories, Inc., and Whitesmiths Ltd. }
{ clrbuf (in memory) -- initialize for new file }
procedure clrbuf;
begin
	{ nothing to do }
end;