
  CONST
    cyc$lowervalue_integer = (-cyc$uppervalue_integer) - 1;

*copyc cyc$uppervalue_integer
