home *** CD-ROM | disk | FTP | other *** search
- @*setdos /i+echo
- @*echo off
-
- *setdos /i+setlocal
- *SETLOCAL
-
- *setdos /i+unalias
- unalias /q iff else elseiff endiff do enddo set rmd_c for del cd setdos
-
- setdos /i+set
- setdos /i+iff
- setdos /i+do
- setdos /i+del
- setdos /i+cd
- setdos /i+on
- setdos /i+quit
-
- on break (echo Aborted by user.^endlocal >& nul^quit)
-
- set drvspec=0
-
- do i=1 to %#
- set ttt=%[%i]
- iff "%@SUBSTR[%ttt,1,1]"=":" then
- set drive=%@SUBSTR[%ttt,0,2]
- else
- set drive=%_DISK:
- endiff
-
- iff %@ready[%drive]=1 then
- set drvspec=%drvspec%%@cdrom[%drive]%@remote[%drive]1
- else
- set drvspec=%drvspec%000
- endiff
- enddo
-
- SET COLS=%_COLUMNS
- iff "%TEMP4DOS" NE "" then
- SET RMD_OUTPUT=%TEMP4DOS
- elseiff "%TEMP" NE "" then
- SET RMD_OUTPUT=%TEMP
- elseiff "%TMP" NE "" then
- SET RMD_OUTPUT=%TMP
- else
- SET RMD_OUTPUT=%_BOOT:
- endiff
-
- SET RMD_OUTPUT=%@UNIQUE[%RMD_OUTPUT]
-
- %@PATH[%0]rmd_c.com %&
-
- iff exist %RMD_OUTPUT then
- for %i in (@%RMD_OUTPUT) %i
- del %RMD_OUTPUT > nul
- endiff
-
- endlocal >& nul
-