Dec2BinString

not rated

Submitted by Aiursrage2k2004-05-31Conversion0 downloads

Prints out binary string of integer

Source

function Dec2BinString takes integer val returns string
  local string retval = ""
  loop
    exitwhen val < 2
    set retval = I2S(ModuloInteger(val,2)) + retval 
    set val = val / 2
  endloop

  return I2S(ModuloInteger(val,2) + retval
endfunction

Comments

No comments.