Data update

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

@@ -0,0 +1,42 @@
+10 REM Rosetta Code problem: https://rosettacode.org/wiki/Sorting_algorithms/Gnome_sort
+20 REM by Jjuanhdez, 10/2023
+100 RANDOMIZE
+110 LET U = 8
+120 DIM A(9)
+130 FOR I = 0 TO U
+140   LET A(I) = INT(RND*98)
+150 NEXT I
+160 PRINT "UNSORT: ";
+170 GOSUB 220
+180 GOSUB 280
+190 PRINT "  SORT: ";
+200 GOSUB 220
+210 STOP
+220 REM WRITE ARRAY
+230 FOR I = 0 TO U
+240   PRINT A(I);
+250 NEXT I
+260 PRINT
+270 RETURN
+280 REM GNOMESORT
+290  LET I = 1
+300  LET J = I+1
+310  IF I <= U THEN 350
+320  IF I > U THEN 190
+330  IF A(I-1) > A(I) THEN 400
+340 GOTO 310
+350 IF A(I-1) <= A(I) THEN 370
+360 GOTO 320
+370 LET I = J
+380 LET J = J+1
+390 GOTO 310
+400 LET T = A(I-1)
+410 LET A(I-1) = A(I)
+420 LET A(I) = T
+430 LET I = I-1
+440 IF I = 0 THEN 460
+450 GOTO 310
+460 LET I = J
+470 LET J = J+1
+480 GOTO 310
+490 END