Private Sub TextPlotQuadraticSample()
    ' Plot F(X) = X ^ 2.

    Const NUMS = 256

    Dim avarNums() As Variant
    ReDim avarNums(0 To 2, 0 To NUMS * 10)

    Dim intX As Integer
    For intX = 1 To NUMS
        avarNums(1, intX) = CDbl(intX - NUMS / 2)
        avarNums(2, intX) = CDbl(intX - NUMS / 2) ^ 2
    Next intX

    Debug.Print
    Debug.Print TextPlot(avarNums(), Null, Null)
End Sub