Get mark ASIZE 0 ;
Math mark -= 8 ;
GoTo mark 0 ;
Get filenumber Long 0 ;
Get foldernumber Long 0 ;
Math file = filenumber ;
Math file *= 0x40 ;
Math folder = foldernumber ;
Math folder *= 0x100 ;
Math mark -= folder ;
Math mark -= file ;
GoTo mark 0 ;
SavePos base 0 ;
For f = 1 To filenumber ;
GoTo base 0 ;
GetDString name 32 0 ;
GoTo base 0 ;
GoTo 36 0 SEEK_CUR ;
Get size Long 0 ;
GoTo 4 0 SEEK_CUR ;
Get offset Long 0 ;
GoTo base 0 ;
GoTo 0x40 0 SEEK_CUR ;
SavePos base 0 ;
If offset != 4294967295 ;
Log name offset size 0 ;
EndIF ;
Next f ;