
CONST
  rac$error_base = (($INTEGER ('R') * 100(16)) + $INTEGER ('A')) * 1000000(16);
  { Error range is 0 thru 3999.}

