Bin <-> Dez
#NewScriptBegin Convert Sub ToBin(Dez) i=23 tval=val(Dez) do if tval \ 2^i > 0 then strout=strout & 1 tval=tval-2^i else strout=strout & 0 end if if i mod 4 = 0 and i > 0 then strout=strout & "-" i=i-1 loop until i < 0 ToBin=strout End Sub Sub FromBin(BinZahl) ZahlLen = len(BinZahl) i=ZahlLen outval=0 do outval=outval+val(mid(BinZahl,i,1))*2^(ZahlLen-i) i=i-1 loop until i = 0 FromBin=outval End Sub