
COM Open 13 115200

s1 = COM_Status

Controls OpenTextBox 


Label loop
	s2 = COM_Received
	If s2 <> ""
		'COM DiscardInBuffer
		Print Replace(s2, CRLF, "")
		'Print s2
		'Print Mid(s2, 3, 5)
	EndIf
Goto loop


'WATCH s2
