diff --git a/src/test/texts/argTexts.Mod b/src/test/texts/argTexts.Mod
new file mode 100644
index 00000000..644813d0
--- /dev/null
+++ b/src/test/texts/argTexts.Mod
@@ -0,0 +1,24 @@
+MODULE argTexts; (* example how to get arguments by using Texts module *)
+IMPORT Texts, Oberon;
+
+VAR
+  S: Texts.Scanner; (* we'll read program arguments with it *)
+
+  W : Texts.Writer; (* to write to console *)
+  T : Texts.Text;
+
+BEGIN
+  Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
+  Texts.Scan(S);
+  (*Out.String(S.s); Out.Ln;*)
+
+Texts.OpenWriter (W);
+
+Texts.WriteString(W, "aaa");
+Texts.WriteLn(W);
+Texts.WriteString(W, S.s);
+Texts.WriteLn(W);
+Texts.Append(Oberon.Log, W.buf);
+
+
+END argTexts.