unit ECO_bcnv;
interface
type
  basestr = string[32];

var
  baseerror: byte;

function base(x:longint;b:byte):basestr;                  {convert x to base b}
function basef(x:longint;b,f:byte):basestr;      {convert x to base b length f}
function hex(x:longint):basestr;                         {convert x to base 16}
function hexf(x:longint;f:byte):basestr;        {convert x to base 16 length f}
function dez(x:basestr;s:byte):longint;      {convert x from base s to decimal}
function dezh(x:basestr):longint;            {convert hexadecimal x to decimal}