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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page