Data commit

Task/Associative-array-Iteration/FreeBASIC/associative-array-iteration.basic

@@ -0,0 +1,27 @@
+#include"assoc.bas"
+
+function get_dict_data_string( d as dicitem ) as string
+    select case d.datatype
+        case BOOL
+            if d.value.bool then return "true" else return "false"
+        case INTEG
+            return str(d.value.integ)
+        case STRNG
+            return """"+d.value.strng+""""
+        case FLOAT
+            return str(d.value.float)
+        case BYYTE
+            return str(d.value.byyte)
+        case else
+            return "DATATYPE ERROR"
+    end select
+end function
+
+sub print_keyval_pair( d as dicentry )
+    print using "{&} : {&}";get_dict_data_string( d.key ); get_dict_data_string(d.value)
+
+end sub
+
+for i as uinteger = 0 to ubound(Dictionary)
+    print_keyval_pair(Dictionary(i))
+next i