" <------------------------- sam141.txt ---------------------------->
)copy cap2/handbook/wksp/ac add can
)copy cap2/handbook/wksp/df div fix
)copy cap2/handbook/wksp/mo mul
)copy cap2/handbook/wksp/pr rounds
)copy cap2/handbook/wksp/su sqrt sub
L#a#sqrt b#0 222 3333333 4444444 5555555
a mul a
" notice that this estimate of b*.5 is slightly low
L#a#a add 1
a mul a
" but the next higher integer is lightly too high,
" so that the true square root is bracketed between
" these two values.
)off