Initial data commit

Task/Sorting-algorithms-Bubble-sort/QuickBASIC/sorting-algorithms-bubble-sort.basic

@@ -0,0 +1,35 @@
+' Sorting algorithms/Bubble sort
+' Prepare data
+size = 10
+OPTION BASE 1
+DIM nums(size)
+RANDOMIZE TIMER
+PRINT "Before:";
+FOR I = 1 TO size
+  nums(I) = INT(RND * 100)
+  PRINT USING " ##"; nums(I);
+NEXT I
+PRINT
+
+' Sort
+counter = size
+DO
+  changed = 0
+  FOR I = 1 TO counter - 1
+    IF nums(I) > nums(I + 1) THEN
+      tmp = nums(I)
+      nums(I) = nums(I + 1)
+      nums(I + 1) = tmp
+      changed = 1
+    END IF
+  NEXT I
+  counter = counter - 1
+LOOP WHILE (changed)
+
+' Display result
+PRINT "After: ";
+FOR I = 1 TO 10
+  PRINT USING " ##"; nums(I);
+NEXT I
+PRINT
+END