'!TITLE "<anyfeed_en>"

Sub Main 

	Dim m_caoCtrl as Object

	' connect to controller
	m_caoCtrl = cao.AddController("anyfeed", "CaoProv.FlexFactory.anyFeed", "", "conn=com:2:9600,Timeout=2000")

	' initialization
	call m_caoCtrl.Execute("Init", "")
	
	' set speed for flip forward motion
	call m_caoCtrl.Execute("SetFlipFwdSpeed", 10)
	
	' execute the flip forward motion
	call m_caoCtrl.Execute("Ffwd", "")

	' disconnect
	cao.Controllers.Remove m_caoCtrl.Index
	m_caoCtrl = Nothing
	
End Sub