Data commit

Task/Associative-array-Creation/M2000-Interpreter/associative-array-creation.m2000

@@ -0,0 +1,20 @@
+Inventory A="100":=1, "200":=5, 10:=500,  20:="Hello There"
+Print len(A)
+Print A(100)=1, A(200)=5, A$(20)="Hello There"
+Return A, 100:=3, 200:=7
+\\ print all elements
+Print A
+For i=0 to Len(A)-1 {
+      \\ Key, Value by current order (using !)
+      Print Eval$(A, i), A$(i!)
+}
+\\ Iterator
+Append A, "End":=5000
+N=Each(A)
+While N {
+      Print Eval$(A, N^), A$(N^!)
+}
+Print Len(A)=5
+Delete A, "100", 10, 20
+Print Len(A)=2
+If Exist(A, "End") Then Print Eval(A)=5000