'!TITLE "SR1Sample_CtrlVar.pcs"

Sub Main 

	Dim caoCtrl As Object

	Dim caoVarVer As Object
	Dim caoVarClock As Object
	Dim caoVarEmg As Object
	Dim caoVarMode As Object
	
	Dim vRes As Variant

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

	set caoVarVer = caoCtrl.AddVariable("@VER")	
	set caoVarClock = caoCtrl.AddVariable("@CLOCK")	
	set caoVarEmg = caoCtrl.AddVariable("@EMG")	
	set caoVarMode = caoCtrl.AddVariable("@MODE")	

	vRes = caoVarVer.Value

	printdbg "@?VER:" & vRes
	printdbg "@?CLOCK:" & caoVarClock.Value
	printdbg "@?EMG:" & caoVarEmg.Value
	printdbg "@?MODE:" & caoVarMode.Value


End Sub