Comando CASE

Utilizado para selecionar entre múltiplas escolhas. A sintaxe do comando é:

CASE 
IF test1 THEN commands1 END 
IF test2 THEN commands2 END 
... 
IF testN THEN commandsN END 
[DEFAULT] [commandsD] 
END;    

Aproveitando o exemplo anterior, vamos altera-lo para incluir o CASE:

EXPORT Decisao()
BEGIN
    LOCAL op;
    PRINT();
    INPUT ({{op, {"Opção 1", "Opção 2", "Opção 3"}}});
        CASE
            IF op==1 THEN
                PRINT("A opção 1 foi escolhida");
            END
            IF op==2 THEN
                PRINT("A opção 2 foi escolhida");
            END
            IF op==3 THEN
                PRINT("A opção 3 foi escolhida");
            END
            DEFAULT
                PRINT("CLICOU EM CANCELAR");
        END;
END;

A tela de escolha e resultado continuam as mesmas do exemplo anterior:

E ao selecionar a opção 3: