/* 

   $VER: ZoomDecompress.filer 2.2 (12.6.95)

   Author:
    Matthias Scheler <tron@lyssa.owl.de>

   Function:
    Opens a string requester, asks for a drive and writes a Zoom file to the
    specified drive.

   History:
    2.1   removed unnecessary ADDRESS 'FilerRexx'
    2.2   added "CALL" before "SETCLIP" to prevent search for "1.rexx"

   Call:
    ZoomDecompress FILENAME

   Example for "Filer.RC":
    REXXCLASS "#?.zom","","ZoomDecompress %s"

*/

PARSE ARG FileName

OPTIONS RESULTS

'STATUS Decompress Zoom file'
PANEL OFF

DISKDRIVE=GETCLIP('FILER_DRIVE')
IF DISKDRIVE="" THEN DISKDRIVE='DF0:'

SETSTRING DISKDRIVE
GETSTRING 'Enter target drive (e.g. "DF0:"):'
IF RESULT="RESULT" THEN
 DO
  PANEL ON
  'STATUS Decompress Zoom file aborted'
  EXIT 5
 END

DISKDRIVE=RESULT
CALL SETCLIP('FILER_DRIVE',DISKDRIVE)

'STATUS Decompressing Zoom file "'||FileName||'" to  "'||DISKDRIVE||'" ...'
EXEC 'Zoom FROM '||FileName||' TO '||DISKDRIVE||' CLEARBLOCKS VERIFY'

PANEL ON
'HISTORY Decompressed Zoom file "'||FileName||'" to "'||DISKDRIVE||'".'