/* $VER: DMLZXSelExt.rexx 1.1 (11.10.98) by J. Tierney

  DiskMasterII LZX Selective Extract  v1.1
  10/11/98  J. Tierney <jtierney@cyberlink-inc.com>

  Purpose:  Extracts the selected files from an archive listed with
           DMLZXList2Win.rexx.

  DM Usage:  Rexx DMLZXSelExt.rexx <dest>
*/

OPTIONS RESULTS

PARSE ARG destdir

DIRLIST VAR flist COMMENT

IF POS('--- LZX List', flist.name.1) = 0 THEN DO
  'MSG "Source window is not an LZX List window."'
  EXIT 0
END

arc = flist.name.2

toext = ''
DO i = 3 TO flist.name.0
  IF flist.sel.i THEN DO
    fn = flist.name.i
    IF LEFT(flist.comment.i, 8) ~= 'FLIST.CO' THEN fn = fn || flist.comment.i
    x = LASTPOS(' ', fn)
    toext = toext STRIP(LEFT(fn, x - 1), 'T')
  END
END

toext = STRIP(toext, 'B')

IF toext ~= '' THEN DO
  CALL PRAGMA('D', destdir)
  ADDRESS COMMAND 'LZX x' arc toext
END

'DESELECT *'