Data commit

Task/Break-OO-privacy/M2000-Interpreter/break-oo-privacy.m2000

@@ -0,0 +1,20 @@
+Module CheckIt {
+      Group Alfa {
+            Private:
+            X=10, Y=20
+            Public:
+            Module SetXY (.X, .Y) {}
+            Module Print {
+                  Print .X, .Y
+            }
+      }
+      Alfa.Print  ' 10 20
+      \\ we have to KnΟw position in group
+      \\ so we make references from two first
+      Read From Alfa, K, M
+      Print K=10, M=20
+      K+=10
+      M+=1000
+      Alfa.Print   ' 20   1020
+}
+CheckIt