Data commit

Task/Menu/Modula-2/menu.mod2

@@ -0,0 +1,38 @@
+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.