View source for Matrix: A Forest of Pointers

<pre>

Adventures of the late 1990s are on the way!

The sort method below is nothing about this page &mdash;it is written in VB6 &mdash;the granddad of Visual Studio &mdash;casualty of the Java wars, subsummed with misdirection of a half million coders into .Net.  It was sad.  VB 6.0 release was the brain child and pet project of Bill Gates.  

Trivia: Xeno's licensed copy of VB6 came as a gift from Microsoft for partaking in their user-tests of the pre-release Excel Spreadsheet, late 90s, at a Microsoft campus in Washington State.

<code>
Private Sub ShellSort(arr() As Long)
    Dim gap As Long, i As Long, j As Long, temp As Long
    gap = UBound(arr) \ 2
    Do While gap > 0
        For i = gap To UBound(arr)
            temp = arr(i)
            j = i
            Do While j >= gap And arr(j - gap) > temp
                arr(j) = arr(j - gap)
                j = j - gap
            Loop
            arr(j) = temp
        Next i
        gap = gap \ 2
    Loop
End Sub
</code>
</pre>