REM  *****  BASIC  *****

Sub Main
    Dim Order As Integer
    Dim I As Integer
    Dim XBeg As Single
    Dim XEnd As Single
    Dim XNum As Integer
    Dim XStep As Single
    Dim Doc As Object
    Dim Charts As Object
    Dim Chart As Object

    Order = InputBox("Enter the order of polynomial", "Order")
    Do While Order < 0
    MsgBox ("Order of polynomial must be non-negative")
    Order = InputBox("Enter the order of polynomial", "Order")
    Loop

    Dim Coeff (0 To Order) As Single
    For I = 0 To Order
    Coeff (I) = InputBox ("Enter the coefficient corresponding to the power " & I, "Coefficients")
    Next I

    MsgBox ("Enter the domain for the polynomial")
    XBeg = InputBox("Enter the beginning of the domain", "Domain")
    XEnd = InputBox("Enter the end of the domain", "Domain")
    Do While XEnd <= XBeg
    MsgBox ("ERROR! Ending value must be greater then beginning value!")
    XBeg = InputBox("Enter the beginning of the domain", "Domain")
    XEnd = InputBox("Enter the end of the domain", "Domain")
    Loop

    XNum = InputBox("For how many points do You want to calculate values of polynomial?", "Domain")
    Do While XNum < 2
    MsgBox ("ERROR! There have to be at least 2 points!")
    XNum = InputBox("For how many points do You want to calculate values of polynomial?", "Domain")
    Loop
    XStep = (XEnd - XBeg)/(XNum - 1)

    Doc = ThisComponent
    Charts = Doc.Sheets(0).Charts
    Charts.addNewByName("MyChart")


End Sub