A-M baby

Task/Conditional-structures/Modula-3/conditional-structures-1.mod3

@@ -0,0 +1,5 @@
+IF Foo = TRUE THEN
+  Bar();
+ELSE
+  Baz();
+END;

Task/Conditional-structures/Modula-3/conditional-structures-2.mod3

@@ -0,0 +1,9 @@
+IF Foo = "foo" THEN
+  Bar();
+ELSIF Foo = "bar" THEN
+  Baz();
+ELSIF Foo = "foobar" THEN
+  Quux();
+ELSE
+  Zeepf();
+END;

Task/Conditional-structures/Modula-3/conditional-structures-3.mod3

@@ -0,0 +1,7 @@
+CASE Foo OF
+| 1 => IO.Put("One\n");
+| 2 => IO.Put("Two\n");
+| 3 => IO.Put("Three\n");
+ELSE
+  IO.Put("Something\n");
+END;

Task/Conditional-structures/Modula-3/conditional-structures-4.mod3

@@ -0,0 +1,7 @@
+TYPECASE ref OF
+| NULL => IO.Put("Null\n");
+| CHAR => IO.Put("Char\n");
+| INTEGER => IO.Put("Integer\n");
+ELSE
+  IO.Put("Something\n");
+END;