
  TYPE
    clt$external_radix_spec = record
      case override_radix_in_value: boolean of
      = TRUE =
        radix: 2 .. 16,
        include_radix_specifier: boolean,
      casend,
    recend;

