Initial data commit

Task/Sorting-algorithms-Quicksort/BBC-BASIC/sorting-algorithms-quicksort.basic

@@ -0,0 +1,28 @@
+      DIM test(9)
+      test() = 4, 65, 2, -31, 0, 99, 2, 83, 782, 1
+      PROCquicksort(test(), 0, 10)
+      FOR i% = 0 TO 9
+        PRINT test(i%) ;
+      NEXT
+      PRINT
+      END
+
+      DEF PROCquicksort(a(), s%, n%)
+      LOCAL l%, p, r%, t%
+      IF n% < 2 THEN ENDPROC
+      t% = s% + n% - 1
+      l% = s%
+      r% = t%
+      p = a((l% + r%) DIV 2)
+      REPEAT
+        WHILE a(l%) < p l% += 1 : ENDWHILE
+        WHILE a(r%) > p r% -= 1 : ENDWHILE
+        IF l% <= r% THEN
+          SWAP a(l%), a(r%)
+          l% += 1
+          r% -= 1
+        ENDIF
+      UNTIL l% > r%
+      IF s% < r% PROCquicksort(a(), s%, r% - s% + 1)
+      IF l% < t% PROCquicksort(a(), l%, t% - l% + 1 )
+      ENDPROC