Data update

Task/Arrays/FutureBasic/arrays.basic

@@ -1,4 +1,4 @@
-window 1, @"FutureBasic Arrays"
+window 1, @"FutureBasic Arrays", (0,0,480,450)
 
 begin globals
 dynamic gA1(10) as long
@@ -58,31 +58,31 @@ void local fn CTypeDynamic
   gA1(1) = 38
   gA1(10) = 67
   for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
-    print gA1(i),
-  next
-  print
+  print gA1(i),
+next
+print
 
-  gA1(5) = 19
-  gA1(10) = 22
-  for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
-    print gA1(i),
-  next
-  print
+gA1(5) = 19
+gA1(10) = 22
+for i = 0 to fn DynamicNextElement( dynamic(gA1) ) - 1
+print gA1(i),
+next
+print
 
-  gA2(0) = "Kilo"
-  gA2(1) = "Lima"
-  gA2(5) = "Mike"
-  for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
-    print gA2(i),
-  next
-  print
+gA2(0) = "Kilo"
+gA2(1) = "Lima"
+gA2(5) = "Mike"
+for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
+print gA2(i),
+next
+print
 
-  gA2(1) = "November"
-  gA2(6) = "Oscar"
-  for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
-    print gA2(i),
-  next
-  print : print
+gA2(1) = "November"
+gA2(6) = "Oscar"
+for i = 0 to fn DynamicNextElement( dynamic(gA2) ) - 1
+print gA2(i),
+next
+print : print
 end fn
 
 void local fn CoreFoundationImmutable
@@ -163,6 +163,33 @@ void local fn CoreFoundationMutableDynamic
   for i = 0 to len(a1) - 1
     print a1[i],
   next
+
+  print : print
+end fn
+
+void local fn FB_MDA
+  long i
+
+  text ,, fn ColorGray
+  print @"// FB MDA - mutable, dynamic, multi-dimensional"
+  text
+
+  mda_add = @"Alpha"
+  mda_add = @"Romeo"
+  mda_add = @"Mike"
+
+  for i = 0 to mda_count - 1
+    print mda(i),
+  next
+
+  print
+
+  mda_swap(0),(2)
+  mda(1) = @"Delta"
+
+  for i = 0 to mda_count - 1
+    print mda(i),
+  next
 end fn
 
 fn CType
@@ -170,5 +197,6 @@ fn CTypeDynamic
 fn CoreFoundationImmutable
 fn CoreFoundationMutableFixedLength
 fn CoreFoundationMutableDynamic
+fn FB_MDA
 
 HandleEvents