Contents of file named dobreak

* Contents of macro "dobreak"
setbb num "(reply 'Enter number:')"
do pow from 1 to 32      ;* Try powers of two
   setbb v (2 ** $pow$)
   if %v% GE %num%       ;* Test present one
      break              ;* Equals or exceeds number
   endif
enddo
message "Power of 2 larger than %num% is 2**$pow$ or %v%"