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