Initial data commit

Task/Sorting-algorithms-Gnome-sort/IS-BASIC/sorting-algorithms-gnome-sort.basic

@@ -0,0 +1,30 @@
+100 PROGRAM "GnomeSrt.bas"
+110 RANDOMIZE
+120 NUMERIC ARRAY(-5 TO 12)
+130 CALL INIT(ARRAY)
+140 CALL WRITE(ARRAY)
+150 CALL GNOMESORT(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 GNOMESORT(REF A)
+290   LET I=LBOUND(A)+1:LET J=I+1
+300   DO WHILE I<=UBOUND(A)
+310     IF A(I-1)<=A(I) THEN
+320       LET I=J:LET J=J+1
+330     ELSE
+340       LET T=A(I-1):LET A(I-1)=A(I):LET A(I)=T
+350       LET I=I-1
+360       IF I=LBOUND(A) THEN LET I=J:LET J=J+1
+370     END IF
+380   LOOP
+390 END DEF