Hi,
see this discussion.
So this works:
b = Input["enter value of base"];
a = Input["enter value of output"];
u = Input["enter value of upper bound"];
l = Input["enter value of lower bound"];
(Label[step1]; c = (u + l)/2; Print[Abs[b^c - a]];
If [b^c < a, l = c, u = c];
If[Abs[b^c - a] <= 0.00001, Goto[end], Goto[step1]]; Label[end]);
Print["the answer is = ", c]
Also, this is not very good programming style in the Wolfram Language.
Best wishes,
Marco