Rest of Q-Sort

 BBS: Inland Empire Archive
Date: 12-10-92 (02:54)             Number: 361
From: JOHN SNEERINGER              Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: Rest of Q-Sort                 Conf: (2) Quik_Bas

            LOOP
            DO WHILE (J > I) AND (SortArray$(J) >= Partition$)
               J = J - 1
            LOOP

            IF I < J THEN
               SWAP SortArray$(I), SortArray$(J)
            END IF
         LOOP WHILE I < J

         SWAP SortArray$(I), SortArray$(High)

         IF (I - Low) < (High - I) THEN
            QuickSort Low, I - 1
            QuickSort I + 1, High
         ELSE
            QuickSort I + 1, High
            QuickSort Low, I - 1
         END IF
      END IF
   END IF
END SUB

FUNCTION RandInt% (Lower, Upper) STATIC

' =======================================================================
'   Returns a random integer greater than or equal to the Lower parameter
'   and less than or equal to the Upper parameter.
' =======================================================================

   RandInt% = INT(RND * (Upper - Lower + 1)) + Lower
END FUNCTION

---
 * Origin: RadioLink! Columbus, OH (614)766-2162
QuickBasic! HST/DS (1:226/140)