Creating a menu-bar in progress character.

DEFINE SUB-MENU Arquivo
MENU-ITEM Opcao1  LABEL “Opcao1”
MENU-ITEM Opcao2  LABEL “Opcao2”
MENU-ITEM Opcao3  LABEL “Opcao3”.

DEFINE SUB-MENU Editar
MENU-ITEM Recortar LABEL “Recortar” ACCELERATOR “PAGE-DOWN”
MENU-ITEM Copiar   LABEL “Copiar”   ACCELERATOR “PAGE-UP”
MENU-ITEM Colar    LABEL “Colar”.

DEFINE SUB-MENU Fechar
MENU-ITEM Sair   LABEL “Sair”.

DEFINE MENU mbar   MENUBAR
SUB-MENU Arquivo LABEL “Arquivo”
SUB-MENU Editar  LABEL “Editar”
SUB-MENU Fechar  LABEL “Fechar”.

ON CHOOSE OF MENU-ITEM Opcao1
MESSAGE “Opcao1” VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Opcao2
MESSAGE “Opcao2” VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Opcao3
MESSAGE “Opcao3” VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Recortar
message “Recortar” VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Copiar
message “Copiar” VIEW-AS ALERT-BOX.

ON CHOOSE OF MENU-ITEM Colar
message “Colar” VIEW-AS ALERT-BOX.

ASSIGN CURRENT-WINDOW:MENUBAR = MENU mbar:HANDLE.
WAIT-FOR CHOOSE OF MENU-ITEM Sair.

😀