'!TITLE "SR1Sample_GetPrm.pcs"

Sub Main 
	Dim caoCtrl As Object
	Dim caoRob As Object
	Dim caoVarSHFT As Object
	set caoCtrl = cao.AddController("sr1", "CaoProv.YAMAHA.SR1","","conn=com:2:9600:o:8:1:1, timeout=20000")
	set caoRob = caoCtrl.AddRobot("RC")
	set caoVarSHFT = caoRob.AddVariable("@SHFT")
	Dim vntData as variant
	
	caoRob.Execute "SHFT", 14	
	S1 = caoVarSHFT.Value

	S2 = caoRob.Execute("?P", 11)	

	S3 = caoCtrl.Execute("?STP",1)	

End Sub