home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / rmd200.exe / RMD_INST.1 (.txt) < prev    next >
4DOS Compressed Batch-To-Memory File  |  1994-02-01  |  779b  |  58 lines
  1. @*setdos /i+echo
  2. @*echo off
  3.  
  4. *setdos /i+setlocal
  5. *SETLOCAL
  6.  
  7. *setdos /i+unalias
  8. unalias /q iff else elseiff endiff do enddo set rmd_c for del cd setdos
  9.  
  10. setdos /i+set
  11. setdos /i+iff
  12. setdos /i+do
  13. setdos /i+del
  14. setdos /i+cd
  15. setdos /i+on
  16. setdos /i+quit
  17.  
  18. on break (echo Aborted by user.^endlocal >& nul^quit)
  19.  
  20. set drvspec=0
  21.  
  22. do i=1 to %#
  23.     set ttt=%[%i]
  24.     iff "%@SUBSTR[%ttt,1,1]"=":" then
  25.         set drive=%@SUBSTR[%ttt,0,2]
  26.     else
  27.         set drive=%_DISK:
  28.     endiff
  29.  
  30.     iff %@ready[%drive]=1 then
  31.         set drvspec=%drvspec%%@cdrom[%drive]%@remote[%drive]1
  32.     else
  33.         set drvspec=%drvspec%000
  34.     endiff
  35. enddo
  36.  
  37. SET COLS=%_COLUMNS
  38. iff "%TEMP4DOS" NE "" then
  39.     SET RMD_OUTPUT=%TEMP4DOS
  40. elseiff "%TEMP" NE "" then
  41.     SET RMD_OUTPUT=%TEMP
  42. elseiff "%TMP" NE "" then
  43.     SET RMD_OUTPUT=%TMP
  44. else
  45.     SET RMD_OUTPUT=%_BOOT:
  46. endiff
  47.  
  48. SET RMD_OUTPUT=%@UNIQUE[%RMD_OUTPUT]
  49.  
  50. %@PATH[%0]rmd_c.com %&
  51.  
  52. iff exist %RMD_OUTPUT then
  53.     for %i in (@%RMD_OUTPUT) %i
  54.     del %RMD_OUTPUT > nul
  55. endiff
  56.  
  57. endlocal >& nul
  58.