diff --git a/case/Case.Mod b/case/Case.Mod
new file mode 100644
index 0000000..2f6fb31
--- /dev/null
+++ b/case/Case.Mod
@@ -0,0 +1,14 @@
+MODULE case;
+
+
+IMPORT Out, Modules;
+
+
+BEGIN
+	CASE Modules.ArgCount - 1 OF
+		0	: Out.String("There are no arguments");
+	|	1	: Out.String("There is one argument");
+	|	2	: Out.String("There are two arguments");
+	ELSE Out.String("There are more than two arguments") END;
+	Out.Ln;
+END case.
diff --git a/case/Makefile b/case/Makefile
new file mode 100644
index 0000000..001cdd7
--- /dev/null
+++ b/case/Makefile
@@ -0,0 +1,10 @@
+VOC = /opt/voc/bin/voc
+
+all:
+	$(VOC) -m Case.Mod
+
+clean:
+	rm *.c
+	rm *.h
+	rm *.o
+	rm *.sym