1 files changed, 48 insertions, 0 deletions
diff --git a/challenge-197/deadmarshal/oberon/Ch1.Mod b/challenge-197/deadmarshal/oberon/Ch1.Mod
new file mode 100644
index 0000000000..2011a74d07
--- /dev/null
+++ b/challenge-197/deadmarshal/oberon/Ch1.Mod
@@ -0,0 +1,48 @@
+MODULE Ch1;
+
+  IMPORT Out;
+
+  VAR
+    A1:ARRAY 6 OF INTEGER;
+    A2:ARRAY 3 OF INTEGER;
+    A3:ARRAY 5 OF INTEGER;
+    
+  PROCEDURE Init;
+  BEGIN
+    A1[0] := 1; A1[1] := 0; A1[2] := 3;
+    A1[3] := 0; A1[4] := 0; A1[5] := 5;
+    A2[0] := 1; A2[1] := 6; A2[2] := 4;
+    A3[0] := 0; A3[1] := 1; A3[2] := 0;
+    A3[3] := 2; A3[4] := 0;
+  END Init;
+  
+  PROCEDURE PrintArray(VAR Arr:ARRAY OF INTEGER);
+    VAR I:LONGINT;
+  BEGIN
+    FOR I := 0 TO LEN(Arr)-1 DO
+      Out.Int(Arr[I],0);
+      Out.Char(' ');
+    END;
+    Out.Ln;
+  END PrintArray;
+
+  PROCEDURE MoveZero(VAR Arr:ARRAY OF INTEGER);
+    VAR I,Count:LONGINT;
+  BEGIN
+    Count := 0;
+    FOR I := 0 TO LEN(Arr)-1 DO
+      IF Arr[I] # 0 THEN Arr[Count] := Arr[I]; INC(Count) END;
+    END;
+    WHILE Count < LEN(Arr) DO Arr[Count] := 0; INC(Count) END;
+  END MoveZero;
+  
+BEGIN
+  Init;
+  MoveZero(A1);
+  MoveZero(A2);
+  MoveZero(A3);
+  PrintArray(A1);
+  PrintArray(A2);
+  PrintArray(A3);
+END Ch1.
+