fpc/tests/tppu/changeleaf1/src1/changeleaf1_bird.pas

unit changeleaf1_bird;

{$mode objfpc}

interface

function Fly(w : word): word;

implementation

function Fly(w : word): word;
begin
  Result:=w*7;
end;

end.