
COM Open 13 115200
COM DiscardInBuffer

s1 = COM_Status
s1 = COM_PortNames

Controls OpenTextBox

Label loop
	s2 = COM_Received
	If s2 <> ""
		Print s2 + CRLF
		'Print Mid(s2, 3, 5)
	EndIf
	Wait Seconds 0.001
Goto loop


'WATCH s2
