How To

Here's a hexadecimal to decimal subprogram

SP4CEBAR 2023-01-24 20:03

It supports hexadecimal values of any size, well... as long as it fits in a float

SUB HEXDEC(HEX_$,DEC_)
  DEC_=0
  L=LEN(HEX_$)
  FOR I=1 TO L
    V$ = MID$(HEX_$,I,1)
    V  = ASC(V$)-48
    IF V>9 THEN ADD V,-7
    ADD DEC_,V*16^(L-I)
  NEXT I
END SUB

SP4CEBAR 2023-01-25 09:47 (Edited)

In @nathanielbabiak's notes on NX It says that: "VAL("0X"+NUMERALS$) converts hex."

This means that you can simplify this subprogram to:

HEXDEC(HEX_$,DEC_)
  DEC_=VAL("0X"+HEX_$)
END SUB