Initial data commit

Task/Multiple-distinct-objects/M2000-Interpreter/multiple-distinct-objects.m2000

@@ -0,0 +1,41 @@
+Module CheckIt {
+      Form 60, 40
+      Foo=Lambda Id=1 (m)->{
+            class Alfa {
+                  x, id
+                  Class:
+                  Module Alfa(.x, .id) {}
+            }
+            =Alfa(m, id)
+            id++
+      }
+
+      Dim A(10)<<Foo(20)
+      \\ for each arrayitem call Foo(20)
+      TestThis()
+
+
+      \\  call once foo(20) and result copy to each array item
+      Dim A(10)=Foo(20)
+      TestThis()
+
+      Bar=Lambda Foo (m)->{
+            ->Foo(m)
+      }
+      \\ Not only the same id, but the same group
+      \\ each item is pointer to group
+      Dim A(10)=Bar(20)
+      TestThis()
+
+      Sub TestThis()
+            Local i
+            For i=0 to 9 {
+                  For A(i){
+                        .x++
+                         Print .id , .x
+                  }
+            }
+            Print
+      End Sub
+}
+Checkit