data

-

user_data pointer passed to StartMaple (Long)

name

-

name of the file stream to redirect to (byte array pointer)

mode

-

file mode to distinguish between writing and appending (byte array pointer)

Function RedirectCallBack(ByVal data As Long,

     ByVal name as Long,

     ByVal mode As Long) as Long

 dim useredirct as boolean

 Function RedirectCallBack(ByVal data As Long, ByVal name As Long, _

     ByVal mode As Long) As Long

    Dim iomode As String

    If name = 0 Then

        Close #2

        useredirect = False

    Else

        iomode = MaplePointerToString(mode)

        If iomode = "wt" Then

            Open MaplePointerToString(name) For Output As #2

            useredirect = True

        End If

    End If

    RedirectCallBack = True

 End Function

 Sub TextCallBack(ByVal data As Long, ByVal tag As Integer, _

     ByVal Output As Long)

     Dim OutputString As String

     OutputString = MaplePointerToString(Output)

     If useredirect Then

         Write #2, "BEGIN TextCallBack", tag

         Write #2, OutputString

         Write #2, "END TextCallBack"

     End If

 End Sub

 ' assignment to MapleCallback entry

 cb.lpRedirectCallBack = GetProc(AddressOf RedirectCallBack)

 ' test statement that will invoke the CallBackCallBack

 EvalMapleStatement kv, "writeto(""somefile"");"

 EvalMapleStatement kv, "x+y;"

 EvalMapleStatement kv, "writeto(terminal);"