Endian Big ;
findloc OFFSET string "\x50\x43\x4E\x54" 0 0 ;
If OFFSET = 0 ;
Print error ;
CleanExit ;
EndIF ;
GoTo OFFSET 0 ;
GoTo 0x8 0 SEEK_CUR ;
Get files Long 0 ;
findloc OFFSET string "\x41\x48\x44\x52" 0 0 ;
GoTo OFFSET 0 ;
SavePos base 0 ;
For x = 1 To files ;
GoTo base 0 ;
GoTo 0xC 0 SEEK_CUR ;
GetDString ext 4 0 ;
GoTo base 0 ;
GoTo 0x10 0 SEEK_CUR ;
Get offset Long 0 ;
Get size Long 0 ;
GoTo 0xC 0 SEEK_CUR ;
Get toend Long 0 ;
SavePos base 0 ;
Math base += toend ;
GoTo 0x4 0 SEEK_CUR ;
Get name String 0 ;
string name += . ;
string name += ext ;
Log name offset size 0 ;
Next x ;