Zahlensysteme

#NewScriptBegin Convert2
 
Function FromDez(Dez, System)
  if val(System)=0 then System=2
  i=23
  tval=val(Dez)
  do
    strout=hex(tval mod System) & strout
    tval=tval \ System
  loop until tval < 1
  FromDez=strout
End Function
 
Function ToDez(Zahl, System)
  if val(System)=0 then System=2
  ZahlLen = len(Zahl)
  i=ZahlLen
  outval=0
  do
    outval=outval+val("&H"+mid(Zahl,i,1))*System^(ZahlLen-i)
    i=i-1
  loop until i = 0
  ToDez=outval
End Function