for n=1to 100b=500
c=b
input""a
while(a<>b)c=c/2
?b;
if a>b?" <":d=c
if a<b?" >":d=-c
b=int(b+d+.5)wend
?b," ="
if a=768end
?next