DIM nb AS INTEGER
DIM temp AS INTEGER
DIM car AS STRING * 1
DIM hexa AS STRING

INPUT "quel nombre veut tu convertir en héxa "; nb

DO UNTIL nb = 0
  temp = nb MOD 16
  nb = nb \ 16      ' \ à la place de / réalise une division entière.
  IF temp < 10 THEN
    car = CHR$(ASC("0") + temp)
  ELSE
    car = CHR$(ASC("A") + temp - 10)
  END IF
  hexa = car + hexa
LOOP

PRINT "En hexadécimal, ça fait : ", hexa