home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / disk / directory / rushdemo / scripts / dmsext < prev    next >
AmigaDOS Script File  |  1995-02-27  |  765b  |  42 lines
  1. .key pubscreen/a,file/a
  2. .bra {
  3. .ket }
  4. ; $VER: dmsext 37.1 (15.4.93)
  5. ;
  6. ; Asks user for a disk to extract a DMS file to.  This uses
  7. ; the AmigaDOS requestchoice under 3.0 and the requestchoice
  8. ; program included with Rush under AmigaDOS 2.x.
  9. ;
  10.  
  11. requestchoice >env:dmsdisk pubscreen {pubscreen} "DMS Extract" "Select disk to extract '{file}' to:" "df0:|ff0:|ff1:|ff2:|ff3:|Cancel"
  12.  
  13. if val $dmsdisk EQ 1
  14.   set disk "df0:"
  15.   endif
  16.  
  17. if val $dmsdisk EQ 2
  18.   set disk "ff0:"
  19.   endif
  20.  
  21. if val $dmsdisk EQ 3
  22.   set disk "ff1:"
  23.   endif
  24.  
  25. if val $dmsdisk EQ 4
  26.   set disk "ff2:"
  27.   endif
  28.  
  29. if val $dmsdisk EQ 5
  30.   set disk "ff3:"
  31.   endif
  32.  
  33. if val $dmsdisk EQ 0
  34.   quit
  35.   endif
  36.  
  37. if exists env:dmsdisk
  38.   delete quiet "env:dmsdisk"
  39.   endif
  40.  
  41. dms write {file} to $disk <z:rush/scripts/return
  42.