Sub Main
	Set RCB1 = Cao.AddController("RCB1", "CaoProv.KONDO.RCB-1", "", "Port=1,ID=0")
	Set Pos = RCB1.AddVariable("Position")
	Set Joy = Cao.AddController("Joy", "CaoProv.DENSO.Joystick", "", "ID=1, @EventDisable=True")
	set X = Joy.AddVariable("@X")
	set Y = Joy.AddVariable("@Y")
	
	Do
		XAngle = X.Value * 90 + 90
		YAngle = Y.Value * 90 + 90

		'v = xAnble & "," & YAngle & ",0,0,0,0,0,0,0,0,0,0,0)"
		'Dbg.Output v
		Pos.Value = Array(3, xAngle, YAngle, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
	Loop
End Sub