
COM Open 17 9600
s1 = COM_Status
Print s1
'Controls OpenTextBox

Label loop
	'
	COM DiscardInBuffer
	s2 = ""
	'
	s1 = "8M4CW" + CR
	COM WriteString s1
	'
	For v1 = 1 To 1e99
		s2 = s2 + COM_Received
		If s2 = "AKOK"
			v2 = v2 + 1
			Print " Test num. " + v2
			Exit
		EndIf
	Next
Goto loop

'WATCH COM_Status
'WATCH COM_Received
'EXEC v2 = 137
