langs a-z

Task/Classes/Oberon-2/classes.oberon-2

@@ -0,0 +1,22 @@
+MODULE M;
+
+   TYPE
+      T = POINTER TO TDesc;
+      TDesc = RECORD
+         x: INTEGER
+      END;
+
+   PROCEDURE New*(): T;
+      VAR t: T;
+   BEGIN
+      NEW(t); t.x := 0;
+      RETURN t
+   END New;
+
+
+   PROCEDURE (t: T) Increment*;
+   BEGIN
+      INC(t.x)
+   END Increment;
+
+END M.