MODULE  Menu;

FROM    InOut IMPORT WriteString, WriteCard, WriteLn, ReadCard;

CONST   StringLength     = 100;
        MenuSize         = 4;

TYPE    String           = ARRAY[0..StringLength-1] OF CHAR;

VAR     menu             : ARRAY[0..MenuSize] OF String;
        selection, index : CARDINAL;

BEGIN
    menu[1] := "fee fie";
    menu[2] := "huff and puff";
    menu[3] := "mirror mirror";
    menu[4] := "tick tock";

    FOR index := 1 TO HIGH(menu) DO
        WriteString("[");
        WriteCard(    index,1);
        WriteString(        "] ");
        WriteString(            menu[index]);
        WriteLn;
    END;(*of FOR*)

    WriteString("Choose what you want : ");
    ReadCard(selection);

    IF (selection <= HIGH(menu)) AND (selection > 0) THEN
        WriteString("You have chosen: ");
        WriteString(                  menu[selection]);
        WriteLn;
    ELSE
        WriteString("Selection is out of range!");
        WriteLn;
    END (*of IF*)
END Menu.