Data commit

Task/Command-line-arguments/Modula-2/command-line-arguments-1.mod2

@@ -0,0 +1,20 @@
+MODULE try;
+
+FROM  Arguments  IMPORT  GetArgs, ArgTable, GetEnv;
+FROM  InOut      IMPORT  WriteCard, WriteLn, WriteString;
+
+VAR   count, item        : SHORTCARD;
+      storage            : ArgTable;
+
+BEGIN
+   GetArgs (count, storage);
+   WriteString ('Count =');     WriteCard (count, 4);   WriteLn;
+   item := 0;
+   REPEAT
+      WriteCard (item, 4);
+      WriteString (' :  ');
+      WriteString (storage^ [item]^);
+      WriteLn;
+      INC (item)
+   UNTIL item = count
+END try.

Task/Command-line-arguments/Modula-2/command-line-arguments-2.mod2

@@ -0,0 +1,8 @@
+jan@Beryllium:~/modula/test$ try jantje zag eens pruimen hangen
+Count =   6
+   0 :  try
+   1 :  jantje
+   2 :  zag
+   3 :  eens
+   4 :  pruimen
+   5 :  hangen