UNIT DHBaseDb;

INTERFACE
var f_Log:^text;

procedure SetEncode;
procedure SetDecode;
function GetN:longint;

IMPLEMENTATION
var f_encode,f_decode:text;
    i_encode, i_decode:longint;
    i:^longint;

function GetN:longint;
begin
  GetN:=i^;
  Inc(i^);
end;

procedure SetEncode;
begin
  f_Log:=@f_encode;
  i:=@i_encode;
end;

procedure SetDecode;
begin
  f_Log:=@f_decode;
  i:=@i_decode;
end;


begin
  Assign(f_encode, 'encode.log');
  Assign(f_decode, 'decode.log');
  Rewrite(f_encode);
  Rewrite(f_decode);
  i_encode:=0;
  i_decode:=0;
  SetEncode;
END.