Warranty Disclaimer
===================

This software and its accompanying files
are provided "as is" and no warranty of any kind,
either expressed or implied, including
merchantability or fitness for a particular purpose.
The entire risk arising out of use or performance
of this software remains with you.
In no event will author be liable for any incidental
or consequential damages arising
from the use of, or inability to use, this program.
No part of this software should be used to make any
illegal operations with properties of subject companies.

For personal use only.

---------------------------------------------------

program reigncom2hex;

uses
  windows,
  HuffFuncs;

const
copyright =   'Reigncom Memory to Hex Compressor'+#13+#10+
              'Copyright (C) 2002, Restin (restin@rambler.ru)'+#13+#10;
var
     id,mnf:ansistring;

begin
     if paramcount<>4 then
     begin
      writeln(copyright+
              'Usage: reigncom2hex plainfile hexfile NameID Manufacturer'+#13+#10+#13+#10+
              '  NameID: use ''-'' for default ''IMP-250'''+#13+#10+
              '  Manufacturer: use ''-'' for default ''ReignCom''');
      exit;
     end;

     write(copyright);

     id:=paramstr(3);
     mnf:=paramstr(4);

     if (id='-') then id:='IMP-250';
     if (mnf='-') then mnf:='ReignCom';

     hufffuncs.Initialize(id,mnf);
     hufffuncs.SetInputfile(paramstr(1));
     hufffuncs.SetOutputfile(paramstr(2));
     hufffuncs.Compress;
     hufffuncs.Finalize;

     writeln('Ok');
end.
