© serviceprofessionalgmbh

Konvertiert binäre Werte nach dezimal.


/* REXX * B2D
*/
arg bin test .
if test = "T" then trace "?r"
dez = 0
if datatype(bin,"B") then do
   do p=length(bin) to 1 by -1
      dez = dez + substr(bin,p,1) * 2 ** (length(bin)-p)
   end
end
return dez
zurück zu Hilfen im Alltag