  PROCEDURE [XREF] eup$get_item_selections
    (    items: ^clt$data_value;
         preselected_items: ^clt$data_value;
         multiple_selections: boolean;
         actions: ^clt$data_value;
         title: ^clt$string_value;
         box_x_position: cst$x_position;
         box_y_position: cst$y_position;
         width: cst$x_position;
         help_module: ^clt$data_value;
     VAR work_area: ^clt$work_area;
     VAR selected_action: ^clt$data_value;
     VAR selected_items: ^clt$data_value;
     VAR selected_item_indicies: ^clt$data_value;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc clt$data_value
*copyc clt$work_area
*copyc cst$x_position
*copyc cst$y_position
*copyc ost$status
?? POP ??
