Data update

Task/Associative-array-Merging/XBasic/associative-array-merging.basic

@@ -0,0 +1,44 @@
+PROGRAM	"Associative array/Merging"
+VERSION	"0.0000"
+
+DECLARE FUNCTION Entry ()
+
+FUNCTION Entry ()
+    DIM original$[3, 2]
+    original$[0, 0] = "name": original$[0, 1] = "Rocket Skates"
+    original$[1, 0] = "price": original$[1, 1] = "12.75"
+    original$[2, 0] = "color": original$[2, 1] = "yellow"
+
+    DIM update$[3, 2]
+    update$[0, 0] = "price": update$[0, 1] = "15.25"
+    update$[1, 0] = "color": update$[1, 1] = "red"
+    update$[2, 0] = "year": update$[2, 1] = "1974"
+
+    DIM merged$[6, 2]
+
+    FOR i = 0 TO 2
+        merged$[i, 0] = update$[i, 0]
+        merged$[i, 1] = update$[i, 1]
+    NEXT i
+
+    index = 3
+    FOR i = 0 TO 2
+        found = 0
+        FOR j = 0 TO 2
+            IF original$[i, 0] = update$[j, 0] THEN
+                found = 1
+                EXIT FOR
+            END IF
+        NEXT j
+        IF found = 0 THEN
+            merged$[index, 0] = original$[i, 0]
+            merged$[index, 1] = original$[i, 1]
+            INC index
+        END IF
+    NEXT i
+
+    FOR i = 0 TO index - 1
+        PRINT "key: "; merged$[i, 0]; ", value: "; merged$[i, 1]
+    NEXT i
+END FUNCTION
+END PROGRAM