
  TYPE
    cst$screen_dimensions = record
      sets_of_dimensions: 1 .. csc$max_screen_dimensions,
      screen_dimensions: array [1 .. csc$max_screen_dimensions] of
            cst$screen_dimension,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc csc$max_screen_dimensions
*copyc cst$screen_dimension
?? POP ??
