GoTo 0x4 0 ;
Get filenumber Long 0 ;
GoTo 0xC 0 ;
SavePos base 0 ;
Math sd = filenumber ;
Math sd *= 0x10 ;
GoTo sd 0 SEEK_CUR ;
GoTo 0x4 0 SEEK_CUR ;
SavePos adj 0 ;
For q = 1 To filenumber ;
GoTo base 0 ;
Get size Long 0 ;
Get offset Long 0 ;
GoTo 0x8 0 SEEK_CUR ;
SavePos base 0 ;
Math offset += adj ;
GoTo offset 0 ;
GoTo 0x2 0 SEEK_CUR ;
Get test short 0 ;
If test = 23610 ;
GoTo offset 0 ;
Get len Byte 0 ;
GetDString name len 0 ;
Else ;
Math name = q ;
EndIF ;
Log name offset size 0 ;
Next q ;