Qsort 2/2

 BBS: Inland Empire Archive
Date: 03-22-93 (23:08)             Number: 292
From: TOM HAMMOND                  Refer#: NONE
  To: RICH TIETJENS                 Recvd: NO  
Subj: Qsort                 2/2      Conf: (2) Quik_Bas

>>> Continued from previous message
          lstack(sp).low = low
          lstack(sp).hi = j
          sp = sp + 1
        END IF
        low = i
      END IF
    LOOP WHILE low < hi
    'IF sp > maxsp THEN maxsp = sp
  LOOP WHILE sp <> 1
  'PRINT "MAX SP"; maxsp
END SUB

---
 * Origin: Night Shift BBS (314)635-7588 HST 14.4 (1:289/15)

Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET