*copyc ost$name
*copyc cst$max_classes
*copyc cst$key_type
*copyc cst$standard_functions
*copyc cst$application_functions
*copyc cst$screen_events

  TYPE
   cst$menu_item = RECORD
     pair_with_previous: boolean,
     short_label: string(6),
     alternate_short_label: string(6),
     long_label: ost$name,
     alternate_long_label: ost$name,
     menu_parent: cst$max_classes,
     item_assigned: boolean,
     CASE menu_type: cst$key_type OF
     = csc$standard_function =
       standard_function: cst$standard_functions,
     = csc$application_function =
       application_function: cst$application_functions,
     = csc$screen_function =
       screen_function: cst$screen_events,
     = csc$unused_entry =
       ,
     CASEND,
   RECEND;

