'!TITLE "ati_netft_sample.pcs"

Sub Main 
	dim ctrl as object
	dim var as object
	set ctrl = cao.addcontroller("ATI", "CaoProv.ATI.NetFT", "", "Conn=UDP:192.168.1.1, @Ifnotmember")
	set var = ctrl.AddVariable("@Data", "@Ifnotmember")

	dim vntVal as variant

	vntVal = var.value
	
	I11 = vntval(0) ' RDT sequence number of this packet
	I12 = vntval(1) ' The record internal sequence number
	I13 = vntval(2) ' System status code
	I14 = vntval(3) ' X-axis force
	I15 = vntval(4) ' Y-axis force
	I16 = vntval(5) ' Z-axis force
	I17 = vntval(6) ' X-axis torque
	I18 = vntval(7) ' Y-axis torque
	I19 = vntval(8) ' Z-axis torque
	
End Sub