Dim f$, i$, i%, j%, l%, x$, x%, z$, h$
OpenW 1, , , 670, 640
FileSelect "\*.*", "", f$
TitleW # 1, f$
'##E#
Ocx ListBox lb = , 0, 0, 650, 600
lb.FontName = "courier"
Open f$ for Input As # 1
l% = LOF(# 1)
i$ = Input$(l%, # 1)
Close # 1
i% = 1
For i% = 1 To l% Step 16
  x$ = ""
  h$ = ""
  h$ = Hex$(i% - 1, 4) + "  "
  For j% = i% To Min(i% + 15, l%)
    x% = Asc(Mid$(i$, j%, 1))
    h$ = h$ + Hex$(x%, 2) + " "
    If x% < 32
      x$ = x$ + "."
    Else
      x$ = x$ + Mid$(i$, j%, 1)
    EndIf
  Next j%
  lb.AddItem h$ + Space$(58 - Len(h$)) + x$
Next i%
KeyGet z$
End