module f77qput;

exports

imports f77init from f77init;

procedure dummyqput;
procedure qput(a,b,c,d:long);                  
private
procedure dummyqput;
begin
end;

procedure qput;
begin
writeln(curout^,'entering dummy lput');
end.