Переделать рекурсию в итерацию в QBasic

[Abimeleh]

Доброго времени суток. Есть реализация алгоритма "быстрая сортировка" на QBasick рекурсией.

CLS
RANDOMIZE TIMER
 
INPUT "Vvedite razmer massiva: ", n
 
DIM SHARED y(n)
 
PRINT "Ishodnij massiv:"
FOR I = 1 TO n
 y(I) = INT(RND * 100) + 1
 PRINT y(I);
NEXT I
PRINT
 
QSORT 1, n
 
PRINT "Otsortirovannij massiv:"
FOR I = 1 TO n
 PRINT y(I);
NEXT I
 
SUB QSORT (LOW, HIGH)
   J = HIGH
   X = y((LOW + HIGH) / 2)
   DO
      WHILE y(I) < X: I = I + 1: WEND
      WHILE y(J) > X: J = J - 1: WEND
      IF I <= J THEN
         SWAP y(I), y(J)
         I = I + 1
         J = J - 1
      END IF
   LOOP WHILE I <= J
   IF LOW < J THEN QSORT LOW, J
   IF I < HIGH THEN QSORT I, HIGH
END SUB

Никак не врублюсь как это можно корректно переделать итерацией.

Вот одна из моих неудачных проб:

OPTION BASE 1
RANDOMIZE TIMER
DIM n AS INTEGER
DIM i, j AS INTEGER
DIM x, p AS INTEGER
DIM si, fi, sj, fj AS INTEGER
CLS
x = 2      'delitel
n = 7   'dlina massiva
j = n
i = 1

DIM arr(n) AS INTEGER

FOR k% = 1 TO n
 arr(k%) = INT(RND * 9) + 1
 PRINT arr(k%);
NEXT k%
PRINT

'poisk srednego indeksa
avr% = (n / x) + 1
memo% = avr%
'opornij element
p = arr(avr%)
si = 1  'l means start for i
fi = n  'h means finish fo i

sj = 1   'start for j
fj = n   'finish for j
'-------------------------------------------------
PRINT
start:
DO
FOR i = si TO fi
   IF arr(i) >= p THEN si = si + 1: EXIT FOR
NEXT i

FOR j = fj TO sj STEP -1
'  PRINT arr(j);
  IF arr(j) <= p THEN fj = fj - 1: EXIT FOR
NEXT j

IF i <= j THEN SWAP arr(i), arr(j)

LOOP WHILE i <= j
'-------------------
'2 etap
IF flg% = 0 THEN
 si = 1: fi = avr% 'indeks v kotorom nahoditsa opornij element !!!
 sj = 1: fj = avr%

 avr% = avr% / 2
 IF avr% = 1 THEN avr% = memo% + 1: flg% = 1
END IF

IF flg% = 1 THEN
 avr% = avr% + c%: c% = c% + 1: IF avr% > n THEN GOTO 15
END IF

p = arr(avr%)
GOTO start
15
FOR k% = 1 TO n
 PRINT arr(k%);
NEXT k%

Дает неверные результаты. Буду весьма признателен если кто поможет понять как это можно сделать...