@verb #7951:"DecToBin" this none this rxdo #7951
@program #7951:"DecToBin" this none this
dec = toint(args[1])
bin = ""
while (dec > 0)
  bin = tostr(dec % 2) + bin
  dec = dec / 2
endwhile
return bin
.