Yoouupiiiiii! J'ai réussi!

dim i,j,taille,valx,nb_ligne,ix,a$,b$
label fin
full_space 0
memo 1
full_space 1
bar_both 1
open_dialog 2
b$=file_name$(2)
delete 2
filebin_open_read 1,b$
taille=filebin_size(1)
nb_ligne=int(taille/111)+1
ix=0
for i=1 to nb_ligne
  a$=""
  for j=1 to 111
    filebin_read 1,valx
    if valx=0 then valx=32
    a$=a$+chr$(valx)
    ix=ix+1
    if (ix=taille)
      item_add 1,a$
      goto fin
    end_if
  next j
  item_add 1,a$
next i

fin:
filebin_close 1

dim i,j,taille,valx,nb_ligne,ix,a$,b$,HI,LO
dim hexa$(16)
label fin

hexa$(1) = "0"
hexa$(2) = "1"
hexa$(3) = "2"
hexa$(4) = "3"
hexa$(5) = "4"
hexa$(6) = "5"
hexa$(7) = "6"
hexa$(8) = "7"
hexa$(9) = "8"
hexa$(10) = "9"
hexa$(11) = "A"
hexa$(12) = "B"
hexa$(13) = "C"
hexa$(14) = "D"
hexa$(15) = "E"
hexa$(16) = "F"

full_space 0
memo 1:font_name 1,"fixedsys"
full_space 1
bar_both 1
open_dialog 2
b$=file_name$(2)
delete 2
filebin_open_read 1,b$
taille=filebin_size(1)
nb_ligne=int(taille/40)+1
ix=0
for i=1 to nb_ligne
  a$=""
  for j=1 to 40
    filebin_read 1,valx
    HI = int(valx/16)
    LO = valx - 16*HI
    a$=a$+hexa$(HI+1)+hexa$(LO+1)+" "
    ix=ix+1
    if (ix=taille)
      item_add 1,a$
      goto fin
    end_if
  next j
  item_add 1,a$
next i

fin:
filebin_close 1