Data commit

Task/Deepcopy/PureBasic/deepcopy.basic

@@ -0,0 +1,38 @@
+Macro PrintStruc(StrucVal)
+  PrintN(Str(StrucVal#\value1))
+  PrintN(Chr(StrucVal#\value2))
+  PrintN(StrucVal#\value3)
+  If StrucVal#\value4
+    PrintN("TRUE")
+  Else
+    PrintN("FALSE")
+  EndIf
+  PrintN("")
+EndMacro
+
+Structure TTypeA
+  value1.i
+  value2.c
+  value3.s[10]
+  value4.b
+EndStructure
+
+Define.TTypeA a, b
+
+a\value1=10
+a\value2='A'
+a\value3="OK"
+a\value4=#True
+
+b=a
+
+a\value1=20
+a\value2='B'
+a\value3="NOK"
+a\value4=#False
+
+If OpenConsole("")
+  PrintN("Value of 'a':") : PrintStruc(a)
+  PrintN("Value of 'b':") : PrintStruc(b)
+  Input()
+EndIf