如何实现一个十进制到二进制的转换？

让我们继续收集方便的子程序并实现一个十进制到二进制的转换：
代码：全选 [decbin]
  i = 1
  r = 0
  binval = 0
  nr = decval
Do
   r = nr % 2
   nr = int(nr/2)
   binval = binval + r*i
   i = i*10
Loop while nr > 0
wait