private Sub Process_Globals
    Private SerialNative As Stream
    Private astream As AsyncStreams
End Sub
public Sub Initialize
    RunNative("SerialNative2", Null)
    astream.Initialize(SerialNative, "aStream_newdata","aStream_Error")
    astream.MaxBufferSize=1000
    astream.WaitForMoreDataDelay=200
End Sub
private Sub aStream_NewData (Buffer() As Byte)
    Log(Buffer)
End Sub
Public Sub Send(Data() as byte)
    astream.Write(Data)
End Sub
#if C
void SerialNative2(B4R::Object* unused)
{
::Serial2.begin(9600, SERIAL_8N1, 19, 18);;//<--use pin 19/18 as RX/TX
b4r_modgps::_serialnative->wrappedStream = &::Serial2;
}
#End If