Print InDez("4c3",16);4C3(Hex) ist im Dezimalsystem 1219, das kleine c macht auch nix, da in der Funktion sowieso alle Buchstaben grossgemacht werden(in=Upper(in))
WaitKey()
End

Function InDez(in$,base);Umrechnung von einem Alphanumerischen Zahlensystem mit 0-9 einzeln und A-F        ;für 10-15 unter zuhlfenahme des Horner-Schemas
   ;Zur Info: X (die der zahl im anderen System entsprechende Zahl) = a(0) + a(1)*b + a(2)*b² + ... + ;a(n-1)*b^n-1
   ;wobei a(n) (a(0),...) die Ziffer in der Zahl
   ;(von hinten gesehen also in 1101 ist a(0)=1 a(1)=0 a(2)=1 a(3)=1) in dem beliebigen System ist
   ;und b das System (16 für hexadezimal, 2 für dual, 10 für dezimal, ...).
   in=Upper(in)
   If Instr(in,",")<>0 Or Instr(in,".")<>0 Then Return 0;Um zu checken dass nur natürliche Zahlen       ;vorhanden sind; wenn nicht, wird 0 zurückgegeben
   While in<>""            ;\
      in2$=in2+Right(in,1)   ; \
      in=Left(in,Len(in)-1)   ; /-Diese Schleife dreht "in" um
   Wend                  ;/
   in=in2
   For c=0 To Len(in)-1
      Select Mid(in,c+1,1)
      Case "A"
         out=out+10*base^c
      Case "B"
         out=out+11*base^c
      Case "C"
         out=out+12*base^c
      Case "D"
         out=out+13*base^c
      Case "E"
         out=out+14*base^c
      Case "F"
         out=out+15*base^c
      Default
         out=out+Int(Mid(in,c+1,1))*base^c
      End Select
   Next
   Return out
End Function

Mid(in,c+1,1)
; wird zu
Mid(in, Len(in) - c ,1 )

Function InDez(in$, base)
   in = Upper(in)
   If Instr(in, ",") <> 0 Or Instr(in, ".") <> 0 Then Return
   Local l, c, out, char$
   l = Len(in)
   For c = 0 To l - 1
      char = Mid(in,l - c,1)
      Select char
         Case "A"
            out = out + 10 * base ^ c
         Case "B"
            out = out + 11 * base ^ c
         Case "C"
            out = out + 12 * base ^ c
         Case "D"
            out = out + 13 * base ^ c
         Case "E"
            out = out + 14 * base ^ c
         Case "F"
            out = out + 15 * base ^ c
         Default
            out = out + Int(char) * base ^ c
      End Select
   Next
   Return out
End Function