Data update

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

@@ -0,0 +1,40 @@
+100 CLS
+110 LET U = 8
+120 ARRAY A
+130 FOR I = 0 TO U
+140   LET A(I) = INT(RAND(1)*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