; Copie chaque bit d'un fichier et le convertit en sa valeur hexadecimale
#src = 0
#dst = 1
Lg = 0
source$ = OpenFileRequester("Fichier traité", "*.*", "*.*", 1)
destin$ = SaveFileRequester("Fichier à traiter", "dump.hex", "*.*", 1)
temps = GetTickCount_()
If source$ And destin$
  OpenFile(#src, source$)
  CreateFile(#dst, destin$)
  Lg = Lof(#src)
  If Lg>0
    *Source = AllocateMemory(Lg)
    *Destin = AllocateMemory(Lg*3)
    ReadData(#src, *Source, Lg)
    For n = 0 To Lg
      m = n*3
      dec = PeekC(*Source + n)
      H =(dec/16)+ 48
      If H>57 : H + 7 : EndIf
      b =(dec%16)+ 48
      If b>57 : b + 7 : EndIf
      PokeW(*Destin + m,(H*256)+ b)
      PokeC(*Destin + m + 2, 44)
    Next
    WriteData(#dst, *Destin, Lg*3)
  EndIf
  CloseFile(#src)
  CloseFile(#dst)
  MessageRequester("Etat du programme", "Conversion finie " + Str( GetTickCount_()- temps )+" ms")
EndIf