Sub Main
' ----------------------------------------------------------------
' Rimmel
' Macro for resetting tool table
' ----------------------------------------------------------------
    num = 0
    Do Until num = 225
        num = num + 1
        SetToolDesc(num, "Empty")
        SetToolParam(num, 1, 0)
        SetToolParam(num, 2, 0.00000)
        SetToolParam(num, 3, 0.00000)
        SetToolParam(num, 4, 0.00000)
        SetToolParam(num, 5, 0.00000)
        SetToolParam(num, 6, 0.00000)
        SetToolParam(num, 7, 0.00000)
        ' I cannot seem to find a FRONT/REAR toolpost setting????
        ' Or Tip Direction
    Loop

    Message("Tool Table Reset")
End Sub