open FDSE ? 1 ;
Get arcsize ASIZE 1 ;
GoTo 0x08 0 ;
Get files Long 0 ;
Get base Long 0 ;
Get offbase Long 0 ;
For x = 1 To files ;
GoTo base 0 ;
Get toname Long 0 ;
GoTo 0xC 0 SEEK_CUR ;
SavePos base 0 ;
GoTo toname 0 ;
Get name String 0 ;
GoTo offbase 0 ;
Get offset Long 0 ;
SavePos offbase 0 ;
Get size Long 0 ;
If x = files ;
Math size = arcsize ;
EndIF ;
Math size -= offset ;
Log name offset size 1 ;
Next x ;