
{ CSTFCLP  cst$clipping }

  TYPE
    cst$clipping = record
      word_flag: boolean,
      wrap_flag: boolean,
    recend;

