GoTo 0x4 0 ;
Get files Long 0 ;
GoTo 0x80 0 ;
SavePos base 0 ;
Math qw = files ;
Math qw *= 0x14 ;
GoTo qw 0 SEEK_CUR ;
SavePos namebase 0 ;
For q = 1 TO files ;
GoTo base 0 ;
Get toname Long 0 ;
Get d Long 0 ;
Get size Long 0 ;
Get offset Long 0 ;
Get d Long 0 ;
SavePos base 0 ;
GoTo namebase 0 ;
GoTo toname 0 SEEK_CUR ;
Get name String 0 ;
Log name offset size 0 ;
Next q ;