' *** COMB_SRT.LST *** 2nd GFA-Manual, page 5-6 > PROCEDURE comb_sort(VAR proc()) ' ' *** Sort word-array with 'Combsort' (modified bubble sort; simple and fast) ' LOCAL last,gap,switch,i,j last=DIM?(proc())-1 gap=last DO gap=MAX(DIV(MUL(gap,8),11),1) CLR switch FOR i=0 TO SUB(last,gap) j=ADD(i,gap) IF proc(i)>proc(j) SWAP proc(i),proc(j) INC switch ENDIF NEXT i LOOP UNTIL switch=0 AND gap=1 RETURN ' ********* '