open FDSE ? 1 ;
Math base = 0 ;
Get files ASIZE 0 ;
Math files /= 0x70




For x = 1 To files ;
GoTo base 0 ;
Get filesize Long 0 ;
Get test Long 0 ;
Get fileoffset Long 0 ;
Get name String 0 ;
GoTo base 0 ;
GoTo 0x70 0 SEEK_CUR ;
SavePos base 0 ;
If test != 1 ;
string name += .zip ;
EndIf ;
Log name fileoffset filesize 1 ;
Next x ;