
  TYPE
    cst$pick_marking = record
      pick_center_marked: boolean,
      pick_x_mark: cst$x_position,
      pick_y_mark: cst$y_position,
    recend;

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