Just another update

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

@@ -1,7 +1,7 @@
   Dim sortable() As Integer ' assume the array is populated
   sortable.Shuffle() ' sortable is now randomized
+  Dim swapped As Boolean
   Do
-    Dim swapped As Boolean
     Dim index, bound As Integer
     bound = sortable.Ubound
 
@@ -15,6 +15,5 @@
       index = index + 1
     Wend
 
-    If not swapped Then Exit Do
-  Loop
+  Loop Until Not swapped
 'sortable is now sorted