
  TYPE
    cst$locate_marking = record
      locate_center_marked: boolean,
      locate_x_mark: cst$x_position,
      locate_y_mark: cst$y_position,
    recend;

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