idstring "ARCH"
get files long
get offset1 long
get offset2 long
get offset3 long
get base long
comtype BPE
for i = 0 < files
goto offset2
get zsize long
get size long
get offset long
get npos short
get comp short
savepos offset2
math npos + offset1
goto npos
get name string
math offset + base
if comp == 1
clog name offset zsize size
else
log name offset zsize
endif
next i