'!TITLE "DRCXSample_RobotVar.pcs"
Sub Main 

	Dim caoCtrl As Object
	Dim caoRob As Object

	Dim caoVarPos As Object
	Dim caoVarSrvo As Object
	Dim caoVarOrg As Object
	
	Dim vRes As Variant

	set caoCtrl = cao.AddController("sr1", "CaoProv.YAMAHA.SR1","","conn=com:2:9600:o:8:1:1")
	set caoRob = caoCtrl.AddRobot("RC")

	set caoVarPos = caoRob.AddVariable("@POS0")	
	set caoVarSrvo = caoRob.AddVariable("@SRVO")	
	set caoVarOrg = caoRob.AddVariable("@ORG")	

	vRes = caoVarPos.Value
	printdbg "@POS(0):" & vRes(0)
	printdbg "@POS(1):" & vRes(1)
	printdbg "@SRVO:" & caoVarSrvo.Value
	printdbg "@ORG:" & caoVarOrg.Value

End Sub