
  TYPE
    cst$color_support = record
      foreground: cst$color_set,
      background: cst$color_set,
    recend;

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

