'!TITLE "SR1Sample_Halt.pcs"

Sub Main 
	Dim caoCtrl As Object
	Dim caoRob As Object

	set caoCtrl = cao.AddController("sr1", "CaoProv.YAMAHA.SR1","","conn=com:2:9600:o:8:1:1, timeout=20000,@IfNotMember")
	set caoRob = caoCtrl.AddRobot("rob1")
	
	caoRob.Halt
	
End Sub