©
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
zurück zu Hilfen im Alltag