Initial data commit

Task/Sorting-algorithms-Bubble-sort/IS-BASIC/sorting-algorithms-bubble-sort.basic

@@ -0,0 +1,26 @@
+100 PROGRAM "BubblSrt.bas"
+110 RANDOMIZE
+120 NUMERIC ARRAY(-5 TO 9)
+130 CALL INIT(ARRAY)
+140 CALL WRITE(ARRAY)
+150 CALL BUBBLESORT(ARRAY)
+160 CALL WRITE(ARRAY)
+170 DEF INIT(REF A)
+180   FOR I=LBOUND(A) TO UBOUND(A)
+190     LET A(I)=RND(98)+1
+200   NEXT
+210 END DEF
+220 DEF WRITE(REF A)
+230   FOR I=LBOUND(A) TO UBOUND(A)
+240     PRINT A(I);
+250   NEXT
+260   PRINT
+270 END DEF
+280 DEF BUBBLESORT(REF A)
+290   DO
+300     LET CH=0
+310     FOR I=LBOUND(A) TO UBOUND(A)-1
+320       IF A(I)>A(I+1) THEN LET T=A(I):LET A(I)=A(I+1):LET A(I+1)=T:LET CH=1
+330     NEXT
+340   LOOP WHILE CH
+350 END DEF