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.