Initial data commit

Task/Sorting-algorithms-Bubble-sort/BCPL/sorting-algorithms-bubble-sort.bcpl

@@ -0,0 +1,23 @@
+get "libhdr"
+
+let bubblesort(v, length) be
+$(  let sorted = false
+    until sorted
+    $(  sorted := true
+        length := length - 1
+        for i=0 to length-1
+            if v!i > v!(i+1)
+            $(  let x = v!i
+                v!i := v!(i+1)
+                v!(i+1) := x
+                sorted := false
+            $)
+    $)
+$)
+
+let start() be
+$(  let v = table 10,8,6,4,2,1,3,5,7,9
+    bubblesort(v, 10)
+    for i=0 to 9 do writef("%N ", v!i)
+    wrch('*N')
+$)