© serviceprofessionalgmbh

Konvertiert dezimale Werte nach binär.

/* REXX * D2B
*/
arg dez test .
if test = "T" then trace "?r"
bin = 0
if datatype(dez) = "NUM" & pos(".",dez) = 0 then do
   bin=""
   do until dez = 0
      bit = dez // 2
      bin = bit!!bin
      dez = dez % 2
   end
end
return bin