getdstring VER 4
if ver == "dat1"
get NUMRES long
for i = 0 < NUMRES
get LEN long
getdstring RESNAME LEN
get OFSRES long
get SIZERES long
log RESNAME OFSRES SIZERES
next i
elif ver == "dat0"
get TBLNAME fullname
string TBLNAME -= 5
set DATNAME TBLNAME
string TBLNAME += 2.dat
string DATNAME += 1.dat
open FDSE TBLNAME 0
open FDSE DATNAME 1
getdstring DAT0 4 0
get LEN long 0
getdstring ARCNAME LEN 0
get NUMRES long 0
for i = 0 < NUMRES
get LEN long 0
getdstring RESNAME LEN 0
get OFSRES long 0
get SIZERES long 0
goto OFSRES 1
get LEN long 1
getdstring RESNAME LEN 1
savepos OFS 1
log RESNAME OFS SIZERES 1
next i
endif