
  PROCEDURE [XREF] ofp$get_menu_choice
    (    menu_id: oft$menu_id;
     VAR choice_made: boolean;
     VAR choice: oft$number_of_choices;
     VAR response_string: ost$string;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc oft$menu_id
*copyc oft$menu_selections
*copyc ost$status
*copyc ost$string
?? POP ??
