Sub RecieveTimer_tick
Dim tempString As String
If Connected=True AND TextReader1.Ready=True Then
tempString = TextReader1.ReadLine
EditText1.Text = EditText1.Text & "<" & tempString & CRLF
Log("<<" & tempString)
End If
End Sub