'!TITLE "sintokogio_zyxer_sample.pcs"

Sub Main 
	dim ctrl as object
	dim var as object
	set ctrl = cao.addcontroller("ZYXer", "caoprov.SINTOKOGIO.ZYXer", "", "conn=com:1, @Ifnotmember")
	set var = ctrl.AddVariable("@Data", "@Ifnotmember")

	dim vntVal as variant

	vntVal = var.value
	
	I10 = vntval(0)
	I11 = vntval(1)
	I12 = vntval(2)
	I13 = vntval(3)
	I14 = vntval(4)
	I15 = vntval(5)
	I16 = vntval(6)
	
End Sub