Sub SendCmd ( Txt As String, len As Int) As String
Dim ret As String
ret = ""
If connected = True Then
ToastMessageShow("Send: " & Txt, False)
TextWriter1.WriteLine(Txt)
TextWriter1.Flush
SleepMs(100)
' wait for response
If (len > 0) Then
If TextReader1.Ready Then
ret = TextReader1.ReadLine
' get rid of the trailing pound sign
ret = ret.Replace("#", "")
ToastMessageShow("Receive: " & ret, False)
Return ret
End If
End If
End If
End Sub