
  VAR
    clv$hex_digits: [READ] array [0 .. 15] of char :=
{      } ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C',
          'D', 'E', 'F'];

