'!TITLE "RCXSample_Outpos.pcs"

Sub Main 

	Dim caoCtrl As Object
	Dim caoRob As Object

	Dim vRes As Variant

	set caoCtrl = cao.AddController("rcx1", "CaoProv.YAMAHA.RCX","","conn=com:2:19200:o:8:1:1, timeout=20000")
'	set caoCtrl = cao.AddController("rcx1", "CaoProv.YAMAHA.RCX","","conn=eth:133.215.201.11:23, timeout=20000")

	set caoRob = caoCtrl.AddRobot("rob1", 1)

	caoRob.Execute "Outpos", array(100000, 2)

End Sub