Data commit

Task/The-Name-Game/Modula-2/the-name-game.mod2

@@ -0,0 +1,66 @@
+MODULE NameGame;
+FROM Strings IMPORT Concat;
+FROM ExStrings IMPORT Lowercase;
+FROM Terminal IMPORT WriteString, WriteLn, ReadChar;
+
+PROCEDURE PrintVerse(name : ARRAY OF CHAR);
+TYPE String = ARRAY[0..64] OF CHAR;
+VAR y,b,f,m : String;
+BEGIN
+    Lowercase(name);
+
+    CASE name[0] OF
+        'a','e','i','o','u' : y := name;
+    ELSE
+        y := name[1..LENGTH(name)];
+    END;
+
+    Concat("b", y, b);
+    Concat("f", y, f);
+    Concat("m", y, m);
+
+    CASE name[0] OF
+        'b' : b := y; |
+        'f' : f := y; |
+        'm' : m := y;
+    ELSE
+    END;
+
+    name[0] := CAP(name[0]);
+
+    (* Line 1 *)
+    WriteString(name);
+    WriteString(", ");
+    WriteString(name);
+    WriteString(", bo-");
+    WriteString(b);
+    WriteLn;
+
+    (* Line 2 *)
+    WriteString("Banana-fana fo-");
+    WriteString(f);
+    WriteLn;
+
+    (* Line 3 *)
+    WriteString("Fee-fi-mo-");
+    WriteString(m);
+    WriteLn;
+
+    (* Line 4 *)
+    WriteString(name);
+    WriteString("!");
+    WriteLn;
+
+    WriteLn;
+END PrintVerse;
+
+BEGIN
+    PrintVerse("Gary");
+    PrintVerse("Earl");
+    PrintVerse("Billy");
+    PrintVerse("Felix");
+    PrintVerse("Mary");
+    PrintVerse("Steve");
+
+    ReadChar;
+END NameGame.