Exemplo de simples de menu. Código: 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.