Sub Process_Globals
Public Serial1 As Serial
Private astream As AsyncStreams
End Sub
Private Sub AppStart
Serial1.Initialize(115200)
astream.Initialize(Serial1.Stream, "astream_NewData", "astream_Error")
Log("AppStart")
astream.Write("I am a stream".GetBytes)
End Sub
Private Sub astream_NewData (Buffer() As Byte)
End Sub
Private Sub astream_Error
End Sub