Menu: Difference between revisions

=={{header|Modula-2}}==

<lang Modula-2>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.</lang>