' -------------------------------------------
'  You need Com0Com with COM17 and COM18
' -------------------------------------------
'  To receive chars open a Terminal on COM18
'  or start a second Automation.exe
'  with SHIFT + DoubleClick
' -------------------------------------------
Controls CloseTextBox
COM Open 17 9600
Print COM_Status + CRLF
Controls ClearTextBox
Controls OpenTextBox

Button 1 Label "SendToSerial"
Stop

Label SendToSerial
	
	For v1 = 20 To 255
		s1 = Chr(v1)
		Print Asc(s1) + " "
		COM WriteString s1
	Next
	
	's1 = Chr(1) + Chr(3) + Chr(80)+ Chr(128) + Chr(191) + Chr(255)
	's1 = Chr(255)
	'Print Asc(s1)
	'COM WriteString s1
	
	COM WriteString CRLF
Return


'BOOKMARKS 

'EDITEDLINES 20 10 27 10 17 5 26 10 24 8 25 10 18 10 

'WATCH dummy
