home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / new / util / dir / filer / rexx / dmswrite.filer next >
Text File  |  1994-11-13  |  2KB  |  83 lines
  1. /* 
  2.  
  3.    $VER: DMSWrite.filer 3.0 (14.11.94)
  4.  
  5.    Author:
  6.     Matthias Scheler (tron@lyssa.owl.de)
  7.  
  8.    Function:
  9.     Opens a string requester, asks for a drive and writes DMS file to the
  10.     specified drive. After the DMS file has been written the user can
  11.     decide to call the "Verify" command (include with Filer) to check the
  12.     disk.
  13.  
  14.    History:
  15.     2.1   added "PANEL OFF" and "PANEL ON"
  16.     3.0   localized
  17.  
  18.    Requires:
  19.     Bin/Verify
  20.  
  21.    Call:
  22.     DMSWrite FILENAME
  23.  
  24.    Example for "Filer.RC":
  25.     REXXCLASS "#?.dms","DMS!","DMSWrite %s"
  26.  
  27. */
  28.  
  29. PARSE ARG FileName
  30.  
  31. ADDRESS 'FilerRexx'
  32. OPTIONS RESULTS
  33.  
  34. Text1='Extract DMS file'
  35. Text2='Enter target drive (e.g. "DF0:"):'
  36. Text3='Extract DMS file aborted'
  37. Text4='Extracting DMS file "'
  38. Text5='" to "'
  39. Text6='Check disk for read errors ?'
  40. Text7='Extracted DMS file "'
  41. Text8='" to "'
  42.  
  43. GETLANGUAGE
  44. IF RESULT="deutsch" THEN
  45.  DO
  46.   Text1='DMS-Datei auspacken'
  47.   Text2='Gegen Sie das Ziellaufwerk ein (z.B. "DF0:"):'
  48.   Text3='Auspacken der DMS-Datei abgebrochen'
  49.   Text4='Entpacke DMS-Datei "'
  50.   Text5='" nach "'
  51.   Text6='Diskette auf Lesefehler untersuchen ?'
  52.   Text7='DMS-Datei "'
  53.   Text8='" ausgepackt nach "'
  54.  END
  55.  
  56. 'STATUS '||Text1
  57. PANEL OFF
  58.  
  59. DISKDRIVE=GETCLIP('FILER_DRIVE')
  60. IF DISKDRIVE="" THEN DISKDRIVE='DF0:'
  61.  
  62. SETSTRING DISKDRIVE
  63. 'GETSTRING '||Text2
  64. IF RESULT="RESULT" THEN
  65.  DO
  66.   PANEL ON
  67.  
  68.   'STATUS '||Text3
  69.   EXIT 5
  70.  END
  71.  
  72. DISKDRIVE=RESULT
  73. SETCLIP('FILER_DRIVE',DISKDRIVE)
  74.  
  75. 'STATUS '||Text4||FileName||Text5||DISKDRIVE||'" ...'
  76. EXECANDWAIT 'DMS WRITE ' FileName ' TO ' DISKDRIVE 'NOTEXT'
  77.  
  78. 'QUESTBOX '||Text6
  79. IF RESULT THEN EXEC 'Verify ' DISKDRIVE 'NOWAIT'
  80.  
  81. PANEL ON
  82. 'HISTORY 'Text7||FileName||Text8||DISKDRIVE||'".'
  83.