module f77qcode;

exports

imports filedefs from filedefs;
imports f77init from f77init;

procedure dummyqcode;
procedure qcode(startad,finad:fsbit32;base,mode:long);
                  
private
procedure dummyqcode;
begin
end;

procedure qcode;
begin
writeln(curout^,'calling dummy qcode');
end.