Data update

Task/Compound-data-type/M2000-Interpreter/compound-data-type.m2000

@@ -0,0 +1,27 @@
+class point {
+	single x, y
+class:
+	module point (.x, .y) {}
+}
+function global add2(k as point) {
+	k.x+=2
+	=k
+}
+module check {
+	a=point(2.343, 4.556)
+	print a.x, a.y
+	alfa(@add1(a))
+	a=add2(a)
+	alfa(a)
+	print a is type point = true
+	
+	sub alfa(k as point)
+		print k.x
+	end sub
+	
+	function add1(k as point)
+		k.x+=1
+		=k
+	end function
+}
+check