
  TYPE
    cst$physical_highlighting = record
      case normal: boolean of
      = false =
        physical_highlighting: cst$physical_highlighting_set,
        physical_intensity: csc$alternate_intensity .. csc$normal_intensity,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cst$physical_highlighting_style
*copyc cst$physical_highlighting_set
?? POP ??
