Initial data commit

Task/Sorting-algorithms-Bubble-sort/REALbasic/sorting-algorithms-bubble-sort.basic

@@ -0,0 +1,19 @@
+  Dim sortable() As Integer = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
+  sortable.Shuffle() ' sortable is now randomized
+  Dim swapped As Boolean
+  Do
+    Dim index, bound As Integer
+    bound = sortable.Ubound
+
+    While index < bound
+      If sortable(index) > sortable(index + 1) Then
+        Dim s As Integer = sortable(index)
+        sortable.Remove(index)
+        sortable.Insert(index + 1, s)
+        swapped = True
+      End If
+      index = index + 1
+    Wend
+
+  Loop Until Not swapped
+'sortable is now sorted