Get Q ASIZE 0 ;
Math offset = 1
For T = 0 < Q ;
Math OFFSET += 1 ;
GoTo OFFSET 0 
findloc OFFSET string "\x72\x77\x49\x44\x5F\x54\x45\x58\x44\x49\x43\x54\x49\x4F\x4E\x41\x52\x59" 0 0 ;
If OFFSET = 0 ;
Math T = Q ;
Math T += 1 ;
ELSE ;
GoTo OFFSET 0 ;
SavePos start 0 ;
GoTo 0x14 0 SEEK_CUR ;
SavePos start 0 ;
Get namelength Long 0 ;
GoTo start 0 ;
GoTo namelength 0 SEEK_CUR ;
GoTo 0x10 0 SEEK_CUR ;
Get size Long 0 ;
SavePos start 0 ;
Math x = T ;
string x += .TXD ;
Log x start size 0 ;
EndIF ;
Next T ;