Метод пузырька, как уменьшить число полных циклов при сортировке?

CLS
DIM a(10)
RANDOMIZE TIMER
FOR n = 1 TO 10
    a(n) = INT(RND * 15)
    PRINT a(n);
NEXT
PRINT
FOR m = 1 TO 9
    FOR n = 1 TO 9
        IF a(n) > a(n + 1) THEN SWAP a(n), a(n + 1)
    NEXT
    PRINT
    FOR i = 1 TO 10
        PRINT a(i);
    NEXT
NEXT
PRINT
FOR n = 1 TO 10
    PRINT a(n);
NEXT

 
FOR n = 1 TO 10 - m
   IF a(n) > a(n + 1) THEN SWAP a(n), a(n + 1)
NEXT

CLS
DIM a(10)
RANDOMIZE TIMER
 
FOR n = 1 TO 10
   a(n) = INT(15 * RND)
   PRINT a(n);
NEXT n
 
PRINT
FOR m = 1 TO 9
FOR n = 1 TO 10 - m
   IF a(n) > a(n + 1) THEN
      SWAP a(n), a(n + 1)
      k = k + 1
      IF k > 20 THEN LOCATE k - 20, 40
         FOR i = 1 TO 10
            PRINT a(i);
         NEXT i: PRINT
   END IF
NEXT n
NEXT m
PRINT
 
LOCATE 21, 40
FOR n = 1 TO 10
   PRINT a(n);
NEXT n
 
END

   rem массив A(n)
 
   DO
 
       c=0
 
       FOR i=1 TO n-1
           IF A(i) > A(i+1) THEN 
              SWAP A(i),A(i+1) 
              c=c+1
           END IF
       NEXT i
 
       IF c=0 THEN EXIT DO '::: Если перестановок не было - массив отсортирован
 
   LOOP

nn = n
DO
  nn = nn - 1
  c = 0
  FOR i=1 TO nn
    IF A(i) > A(i+1) THEN
      SWAP A(i), A(i+1)
      c = 1
    END IF
  NEXT
  IF c=0 THEN EXIT DO
LOOP

'DIM a(n)
L = 1 : R = n-1
DO
  c = 0
  FOR i = L TO R
    IF a(i) > a(i+1) THEN
      SWAP a(i), a(i+1) : c = 1
    END IF
  NEXT
  IF c = 0 THEN EXIT DO
  R = R - 1 : c = 0
  FOR i = R TO L STEP -1
    IF a(i) > a(i+1) THEN
      SWAP a(i), a(i+1) : c = 1
    END IF
  NEXT
  IF c = 0 THEN EXIT DO
  L = L + 1
LOOP