ComType deflate GoTo 0x0 0 ; Get filenumber Long 0 ; GoTo 0x80 0 ; SavePos base 0 ; For x = 1 To filenumber ; GoTo base 0 ; Get name String 0 ; GoTo base 0 ; GoTo 0x6C 0 SEEK_CUR ; Get offset Long 0 ; Get size Long 0 ; Get zsize Long 0 ; GoTo base 0 ; GoTo 0x80 0 SEEK_CUR ; SavePos base 0 ; If zsize != size ; CLOG name offset zsize size 0 ; Else ; Log name offset size 0 ; EndIF ; Next x ;