'!TITLE "SR1Sample_Org.pcs"

Sub Main 

	Dim caoCtrl As Object
	Dim caoRob As Object
	Dim caoVarSrvo As Object
		
	Dim vRes As Variant

	set caoCtrl = cao.AddController("sr1", "CaoProv.YAMAHA.SR1","","conn=com:2:19200:o:8:1:1, timeout=60000")
	set caoRob = caoCtrl.AddRobot("rob1")
	set caoVarSrvo = caoCtrl.AddVariable("@SRVO")

	if (caoVarSrvo.Value = 0) then
		caoRob.Execute "srvo", 1	
		do while (caoVarSrvo.Value = 0)
		loop
	end if	

	vRes = caoRob.Execute("org")

	printdbg "@ORG:" & vRes

End Sub