'!TITLE "SR1Sample_GetLIST.pcs"

Sub Main 
	Dim caoCtrl As Object
	set caoCtrl = cao.AddController("sr1", "CaoProv.YAMAHA.SR1","","conn=com:2:9600:o:8:1:1, timeout=20000")

	Dim vntData as variant
	
	vntData = caoCtrl.Execute("?ALM", array(0, 2))	
	S1 = vntData(0)
	S2 = vntData(1)

	vntData = caoCtrl.Execute("?Err", array(0, 2))	
	S3 = vntData(0)
	S4 = vntData(1)

	vntData = caoCtrl.Execute("?PRM", array(110, 114))	
	S5 = vntData(0)
	S6 = vntData(1)
	S7 = vntData(2)
	S8 = vntData(3)
	S9 = vntData(4)

End Sub