HxD bytecode plain/text chopper

dim as uinteger m=freefile,i=0
dim as string t=space(120),tt=space(0)
open "dump.txt" for binary as m
dim as uinteger mo=freefile
open "out.txt" for binary as mo
do while not(eof(m))
    tt=space(0)
    if lof(m)-seek(m)<120 then t=space(lof(m)-seek(m)+1)
    if len(t)=0 then exit do
    get #m,,t
    for i=1 to len(t) step 3
        tt=tt+mid(t,i,2)
    next
    put #mo,,hex(fix(seek(m)*2/3))+"/"+hex(fix(lof(m)*2/3))+":"+tt+chr(13)+chr(10)
    print hex(seek(m)*2/3)+"/"+hex(lof(m)*2/3)+":"+tt
loop
close mo
close m
end