f[x_]:=(((x/12)*87750)/(1-(1+(x/12)^-180)))-980.96

a==.1025;
b==.14;

fa:=f[a];
fb:=f[b];
c:=a+.05*(b-a);
While[a<c<b, Do[fc:=f[c];If[Sign[fc]==Sign[fa],a:=c;fa:=fc,b:=c;fb:=fc]]c:=a+.5*(b-a)]