
  PROCEDURE [XREF] ofp$format_operator_menu
    (    seed_name: pmt$program_name;
         parameter_names: ^ost$parameter_help_names;
         message_parameters: ^ost$message_parameters;
         number_of_choices: oft$number_of_choices;
         operator_class: oft$operator_class;
     VAR choice: oft$number_of_choices;
     VAR response_string: ost$string;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc oft$menu_selections
*copyc oft$operator_class
*copyc ost$message_parameters
*copyc ost$parameter_help_names
*copyc ost$status
*copyc ost$string
*copyc pmt$program_name
?? POP ??
