RosettaCodeData/Task/Conditional-structures/PL-M/conditional-structures-2.plm

/* CASE STATEMENT - EXECUTES STATEMENT0, STATEMENT1, ETC. */
/* DEPENDING ON WHETHER EXPR EVALUATES TO 0, 1, ... */
/* EXPR MUST BE IN RANGE OR THE PROGRAM WILL JUMP TO HYPERSPACE */
DO CASE EXPR;
    STATEMENT0;
    STATEMENT1;
    ...
END;