Data update

Task/Sort-disjoint-sublist/FutureBasic/sort-disjoint-sublist.basic

@@ -0,0 +1,21 @@
+void local fn DoIt
+  int i, values(7) = {7,6,5,4,3,2,1,0}, indices(2) = {6,1,7}
+
+  print @"Before sort:"
+  for i = 0 to 7
+    print values(i);@" ";
+  next
+
+  for i = 0 to 1
+    if ( values(indices(i)) > values(indices(i+1)) ) then swap values(indices(i)),values(indices(i+1))
+  next
+
+  print @"\n\nAfter sort:"
+  for i = 0 to 7
+    print values(i);@" ";
+  next
+end fn
+
+fn DoIt
+
+HandleEvents