快速排序：
DECLARE SUB Qsort (left!, right!)
CLS
INPUT n
DIM SHARED x(n)
FOR i = 1 TO n
  INPUT a, b, c
  x(i) = 10000 * a + 100 * b + c
NEXT i
Qsort 1, n
FOR i = 1 TO n
  PRINT x(i) \ 10000; x(i) \ 100 MOD 100; x(i) MOD 100
NEXT i
END

SUB Qsort (left!, right!)
  i = left
  j = right
  DO WHILE i <> j
    DO WHILE x(i) < x(j)
      j = j - 1
    LOOP
    IF i < j THEN
      SWAP x(i), x(j)
      i = i + 1
      DO WHILE x(i) < x(j)
        i = i + 1
      LOOP
      IF i < j THEN SWAP x(i), x(j): j = j - 1
    END IF
  LOOP
  IF i > left THEN i = i - 1: Qsort left, i
  IF j < right THEN j = j + 1: Qsort j, right
END SUB