
*copyc cst$x_position
*copyc cst$y_position

  TYPE
    cst$xy_coordinate = record
      x: cst$x_position,
      y: cst$y_position,
    recend;

