home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 101 / af101sub.adf / filer.LZX / Filer / Rexx / ZoomDecompress.filer < prev   
Encoding:
Text File  |  1995-06-12  |  1.0 KB  |  51 lines
  1. /* 
  2.  
  3.    $VER: ZoomDecompress.filer 2.2 (12.6.95)
  4.  
  5.    Author:
  6.     Matthias Scheler <tron@lyssa.owl.de>
  7.  
  8.    Function:
  9.     Opens a string requester, asks for a drive and writes a Zoom file to the
  10.     specified drive.
  11.  
  12.    History:
  13.     2.1   removed unnecessary ADDRESS 'FilerRexx'
  14.     2.2   added "CALL" before "SETCLIP" to prevent search for "1.rexx"
  15.  
  16.    Call:
  17.     ZoomDecompress FILENAME
  18.  
  19.    Example for "Filer.RC":
  20.     REXXCLASS "#?.zom","","ZoomDecompress %s"
  21.  
  22. */
  23.  
  24. PARSE ARG FileName
  25.  
  26. OPTIONS RESULTS
  27.  
  28. 'STATUS Decompress Zoom file'
  29. PANEL OFF
  30.  
  31. DISKDRIVE=GETCLIP('FILER_DRIVE')
  32. IF DISKDRIVE="" THEN DISKDRIVE='DF0:'
  33.  
  34. SETSTRING DISKDRIVE
  35. GETSTRING 'Enter target drive (e.g. "DF0:"):'
  36. IF RESULT="RESULT" THEN
  37.  DO
  38.   PANEL ON
  39.   'STATUS Decompress Zoom file aborted'
  40.   EXIT 5
  41.  END
  42.  
  43. DISKDRIVE=RESULT
  44. CALL SETCLIP('FILER_DRIVE',DISKDRIVE)
  45.  
  46. 'STATUS Decompressing Zoom file "'||FileName||'" to  "'||DISKDRIVE||'" ...'
  47. EXEC 'Zoom FROM '||FileName||' TO '||DISKDRIVE||' CLEARBLOCKS VERIFY'
  48.  
  49. PANEL ON
  50. 'HISTORY Decompressed Zoom file "'||FileName||'" to "'||DISKDRIVE||'".'
  51.