added replacement for ANY3VEC.BAS