ASync Bluetooth example?

Sub Process_Globals
   Dim Serial1 As Serial
   Dim Timer1 As Timer
   Dim connected As Boolean
   Dim AStreams As AsyncStreams
End Sub

Sub Activity_Create(FirstTime As Boolean)
   If FirstTime Then
      Serial1.Initialize("Serial1")
      Timer1.Initialize("Timer1", 200)
      Timer1.Enabled = False
   End If
        Activity.LoadLayout("1")
End Sub

Sub Serial1_Connected (Success As Boolean)
   If Success Then
      ToastMessageShow("Connected successfully", False)
      AStreams.InitializePrefix(Serial1.InputStream, False, Serial1.OutputStream, "AStreams")
      timer1.Enabled = True
      connected = True
   Else
      connected = False
      Timer1.Enabled = False
      Msgbox(LastException.Message, "Error connecting.")
   End If
End Sub

Sub AStreams_NewData (Buffer() As Byte)
    Dim msg As String
    msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
    ToastMessageShow(msg, False)
    Log(msg)
End Sub

Sub AStreams_Error
    ToastMessageShow(LastException.Message, True)
End Sub

Sub Timer1_Tick
   If connected Then
          Dim Buffer() As Byte
          Buffer = "z".GetBytes("UTF8") 'send z to trigger other end to send data
          AStreams.Write(Buffer)
   End If
End Sub