#include "crt.bi"

Extern "C"
    Function Query (Byval dato As zstring Ptr, Byval longitud As size_t Ptr) As Integer Export
        Dim As String message = "Here am I"
        Dim As size_t message_length = Len(message)

        If *longitud < message_length Then
            Return 0
        Else
            memcpy(dato, Strptr(message), message_length)
            *longitud = message_length
            Return 1
        End If
    End Function
End Extern