Initial data commit

Task/Sorting-algorithms-Insertion-sort/Liberty-BASIC/sorting-algorithms-insertion-sort.basic

@@ -0,0 +1,31 @@
+   itemCount = 20
+    dim A(itemCount)
+    for i = 1 to itemCount
+        A(i) = int(rnd(1) * 100)
+    next i
+
+    print "Before Sort"
+    gosub [printArray]
+
+'--- Insertion sort algorithm
+    for i = 2 to itemCount
+        value = A(i)
+        j = i-1
+        while j >= 0 and A(j) > value
+            A(j+1) = A(j)
+            j = j-1
+        wend
+        A(j+1) = value
+    next
+'--- end of (Insertion sort algorithm)
+
+    print "After Sort"
+    gosub [printArray]
+end
+
+[printArray]
+    for i = 1 to itemCount
+        print using("###", A(i));
+    next i
+    print
+return