
  TYPE
    cst$field_attribute = record
      case key: cst$field_attribute_keys of
      = csc$fld_x_position =
        x_position: cst$x_position,
      = csc$fld_y_position =
        y_position: cst$y_position,
      = csc$fld_visible_characters =
        visible_characters: cst$character_position,
      = csc$fld_visible_lines =
        visible_lines: cst$line_number,
      = csc$fld_characters =
        characters: cst$character_position,
      = csc$fld_lines =
        lines: cst$line_number,
      = csc$fld_data_character_position =
        field_data_character_position: cst$character_position,
      = csc$fld_data_line_number =
        field_data_line_number: cst$line_number,
      = csc$fld_input =
        input: boolean,
      = csc$fld_visible =
        visible: boolean,
      = csc$fld_justification =
        justification: cst$field_justification,
      = csc$fld_boundary_processing =
        boundary_processing: cst$boundary_processing,
      = csc$fld_foreground_color_index =
        foreground_color: cst$color_index,
      = csc$fld_background_color_index =
        background_color: cst$color_index,
      = csc$fld_highlighting =
        highlighting_style: (csc$physical_highlighting,
              csc$logical_highlighting),
      = csc$fld_physical_highlighting =
        physical_highlighting: cst$physical_highlighting,
      = csc$fld_logical_highlighting =
        logical_highlighting: cst$logical_highlighting
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc cst$field_attribute_keys
*copyc cst$x_position
*copyc cst$y_position
*copyc cst$character_position
*copyc cst$line_number
*copyc cst$field_justification
*copyc cst$boundary_processing
*copyc cst$color_index
*copyc cst$physical_highlighting
*copyc cst$logical_highlighting
?? POP ??
