module impsup;
exports

procedure dummsup;
procedure printfl(val,place:long);

private
imports f77init from f77init;

procedure dummsup;
begin
end;

procedure printfl;
begin
write(curout^,val:shrink(place)+1);
end. { printfl }