Add tasks for all the new languages

Task/Sorting-algorithms-Quicksort/FreeBASIC/sorting-algorithms-quicksort.freebasic

@@ -0,0 +1,57 @@
+' version 23-10-2016
+' compile with: fbc -s console
+
+' sort from lower bound to the highter bound
+' array's can have subscript range from -2147483648 to +2147483647
+
+Sub quicksort(qs() As Long, l As Long, r As Long)
+
+    Dim As ULong size = r - l +1
+    If size < 2 Then Exit Sub
+
+    Dim As Long i = l, j = r
+    Dim As Long pivot = qs(l + size \ 2)
+
+    Do
+        While qs(i) < pivot
+            i += 1
+        Wend
+        While pivot < qs(j)
+            j -= 1
+        Wend
+        If i <= j Then
+            Swap qs(i), qs(j)
+            i += 1
+            j -= 1
+        End If
+    Loop Until i > j
+
+    If l < j Then quicksort(qs(), l, j)
+    If i < r Then quicksort(qs(), i, r)
+
+End Sub
+
+' ------=< MAIN >=------
+
+Dim As Long i, array(-7 To 7)
+Dim As Long a = LBound(array), b = UBound(array)
+
+Randomize Timer
+For i = a To b : array(i) = i  : Next
+For i = a To b ' little shuffle
+    Swap array(i), array(Int(Rnd * (b - a +1)) + a)
+Next
+
+Print "unsorted ";
+For i = a To b : Print Using "####"; array(i); : Next : Print
+
+quicksort(array(), LBound(array), UBound(array))
+
+Print "  sorted ";
+For i = a To b : Print Using "####"; array(i); : Next : Print
+
+' empty keyboard buffer
+While Inkey <> "" : Wend
+Print : Print "hit any key to end program"
+Sleep
+End