DEF VAR wopcao AS CHAR FORMAT "x(11)" EXTENT 5 INITIAL
                                                [" Inclusao ",
                                                " Alteracao ",
                                                " Exclusao ",
                                                " Consulta ",
                                                " Relatorio "].
form wopcao[1] FORMAT "x(09)" SPACE(01)
     wopcao[2] FORMAT "x(10)" SPACE(01)
     wopcao[3] FORMAT "x(09)" SPACE(01)
     wopcao[4] FORMAT "x(09)" SPACE(01)
     wopcao[5] FORMAT "x(10)"
     WITH FRAME f-opcoes NO-LABELS ROW 4 WIDTH 80.

REPEAT:
    MESSAGE "Escolha a Opcao Desejada".
    DISPLAY wopcao WITH FRAME f-opcoes.
    CHOOSE FIELD wopcao AUTO-RETURN WITH FRAME f-opcoes.

    IF FRAME-INDEX = 1 then MESSAGE "Entrou na Opção de Inclusão".
    IF FRAME-INDEX = 2 then MESSAGE "Entrou na Opção de Alteração".
    IF FRAME-INDEX = 3 then MESSAGE "Entrou na Opção de Exclusão".
    IF FRAME-INDEX = 4 then MESSAGE "Entrou na Opção de Consulta".
    IF FRAME-INDEX = 5 then MESSAGE "Entrou na Opção de Relatório".
END.