library NumberDLL;

{ Martin Harvey 9/10/2000 }

var
  ANumber:integer;

function GetNumber:integer;stdcall;
begin
  Result := ANumber;
end;


procedure SetNumber(NewNumber:integer);stdcall;
begin
  ANumber := NewNumber;
end;

exports
  GetNumber,
  SetNumber;

begin
end.