Initial data commit

Task/Associative-array-Iteration/FutureBasic/associative-array-iteration-5.basic

@@ -0,0 +1,25 @@
+void local fn DoIt
+  CFDictionaryRef dict = @{@"A":@"Alpha", @"B":@"Bravo", @"C":@"Charlie", @"D":@"Delta"}
+  CFStringRef     key
+  CFTypeRef       obj
+
+  EnumeratorRef keyEnumerator = fn DictionaryKeyEnumerator( dict )
+  key = fn EnumeratorNextObject( keyEnumerator )
+  while ( key )
+    print key,dict[key]
+    key = fn EnumeratorNextObject( keyEnumerator )
+  wend
+
+  print
+
+  EnumeratorRef objectEnumerator = fn DictionaryObjectEnumerator( dict )
+  obj = fn EnumeratorNextObject( objectEnumerator )
+  while ( obj )
+    print obj
+    obj = fn EnumeratorNextObject( objectEnumerator )
+  wend
+end fn
+
+fn DoIt
+
+HandleEvents