Hab nun auch eine Möglichkeit gefunden:
Xc = Mid(ar(1) , 2)
X = Val(Xc)
Somit kappe ich einfach das Vorzeichen.
Dein Source dürfte aber weniger Platz brauchen, da ich schon wieder über 4096 Bytes Source bin und ich mir nun doch die Bascom-Vollversion besorgen muss.