Initial data commit

Task/Sorting-algorithms-Bubble-sort/BaCon/sorting-algorithms-bubble-sort-1.bacon

@@ -0,0 +1,9 @@
+LOCAL t[] = { 5, 7, 1, 3, 10, 2, 9, 4, 8, 6 }
+total = 10
+WHILE total > 1
+    FOR x = 0 TO total-1
+        IF t[x] > t[x+1] THEN SWAP t[x], t[x+1]
+    NEXT
+    DECR total
+WEND
+PRINT COIL$(10, STR$(t[_-1]))

Task/Sorting-algorithms-Bubble-sort/BaCon/sorting-algorithms-bubble-sort-2.bacon

@@ -0,0 +1,9 @@
+t$ = "Kiev Amsterdam Lima Moscow Warschau Vienna Paris Madrid Bonn Bern Rome"
+total = AMOUNT(t$)
+WHILE total > 1
+    FOR x = 1 TO total-1
+        IF TOKEN$(t$, x) > TOKEN$(t$, x+1) THEN t$ = EXCHANGE$(t$, x, x+1)
+    NEXT
+    DECR total
+WEND
+PRINT t$