* В следующем примере создается строка меню mnuExample с тремя
* заголовками меню. Для заголовков padTwo и padThree символы,
* обозначающие клавишу доступа и опцию недоступности, не
* возвращаются. Строка меню активизируется, чтобы можно было
* посмотреть на заголовки меню, а затем удаляется с экрана и из памяти,
* когда какой-нибудь заголовок выбирается.

CLEAR

SET TALK OFF

STORE 'mnuExample' TO gcPopName

DEFINE MENU mnuExample BAR AT LINE 1

DEFINE PAD titleOne OF mnuExample PROMPT 'This will be returned'

DEFINE PAD titleTwo OF mnuExample PROMPT '\<As will this'

DEFINE PAD titleThree OF mnuExample PROMPT '\And this, too'

@ 8,1 SAY PRMPAD('mnuExample', 'titleOne')

@ 9,1 SAY PRMPAD('mnuExample', 'titleTwo')

@ 10,1 SAY PRMPAD(gcPopName, 'titleThree')

ACTIVATE MENU mnuExample

DEACTIVATE MENU mnuExample

RELEASE MENU mnuExample