4.3BSD/usr/contrib/icon/book/f/allbal2.icn

procedure allbal(c,s)
   s ? repeat {
      suspend "" ~== tab(bal(c))
      move(1) | break
      }
end