PROCEDURE (HIDDEN) cmp$display_menu_selection (
  menu_selection, ms: string = $required
  menu_items, mi: list of name = $required
  output, o: file = $output
  status)

"$FORMAT=OFF
VAR
   i:integer
   selection_name: name
VAREND

"$FORMAT=ON

  IF menu_selection = '+GO' THEN
    put_line ' **************************' o=output.$eoi
    put_line ' ****** Operator entered GO' o=output.$eoi
    put_line ' **************************' o=output.$eoi
  ELSE
    selection_name=$name(menu_selection)
    array=$array(menu_items)
    FOR i= 1 TO $size(menu_items) DO
      IF selection_name = array(i) THEN
        put_line ' ***************************************' o=output.$eoi
        put_line ' ****** Operator chose menu selection: '//i o=output.$eoi
        put_line ' ***************************************' o=output.$eoi
        EXIT_PROC
      IFEND
    FOREND
  IFEND

PROCEND cmp$display_menu_selection
