
  TYPE
    cst$screen_dimension = record
      x_screen_dimension: 1 .. csc$max_x_position,
      y_screen_dimension: 1 .. csc$max_y_position,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc csc$max_x_position
*copyc csc$max_y_position
?? POP ??
