'!TITLE "SR1Sample_AlmRst.pcs"

Sub Main 

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

End Sub