GoTo 0x0 0 ;
Get filenumber Long 0 ;
GoTo 0x10 0 ;
SavePos base 0 ;
For x = 1 To filenumber ;
GoTo base 0 ;
GetDString name 0x8 0 ;
GoTo base 0 ;
GoTo 0x8 0 SEEK_CUR ;
Get size Long 0 ;
Get offset Long 0 ;
SavePos base 0 ;
Log name offset size 0 ;
Next x ;