script alcotesting  by apacs 3000