home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / shutils / dos / uc2b305.arj / UEDIR.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-09-16  |  3.0 KB  |  76 lines
  1. @echo off
  2. echo off
  3.  
  4. REM *** UEDIR.BAT ***
  5.  
  6. rem Speedup if 4DOS is present and make sure the compount character is OK.
  7. if not "%@eval[2+2]" == "4" goto no4dos
  8.     loadbtm on
  9.     echo check > UUU4SENS
  10.     echo   ~ copy UUU4SENS UUUCOMPO > nul
  11.     del UUU4SENS > nul
  12.     if not exist UUUCOMPO goto no4dos
  13.     del UUUCOMPO > nul
  14.     SETDOS /C^
  15.     SET UUUCR=T
  16. :no4dos
  17.  
  18. cls
  19. echo ═══════════════════════════════════════════════════════════════════════════════
  20. echo  ░███   ░███  ░████      UEDIR, Ultra Extract Directory [2.3]
  21. echo ░█  ░█   ░█   ░█  ░█     'Decompresses a complete directory structure
  22. echo ░█████   ░█   ░████  -NL  which was compressed by UCDIR'
  23. echo ░█  ░█   ░█   ░█ ──────────────────────────────────────────────────────────────
  24. echo ░█  ░█  ░███  ░█ (c) 1991-1995, Ad Infinitum Programs, all rights reserved
  25. echo ═══════════════════════════════════════════════════════════════════════════════
  26.  
  27. if not exist UCDIRDAT.UC2 goto noucdir
  28.  
  29. echo ┌─────────────────────────────────────────────────────────────────────────────┐
  30. set UC2_WIN=xxxxxxxxxxxxxxx > nul
  31. if not q%UC2_WIN%==qxxxxxxxxxxxxxxx goto smallenv
  32. set UC2_WIN=003 009 078 020
  33. echo │                                                                             │
  34. echo │                                                                             │
  35. echo │                                                                             │
  36. echo │                                                                             │
  37. echo │                                                                             │
  38. echo │                                                                             │
  39. echo │                                                                             │
  40. echo │                                                                             │
  41. echo │                                                                             │
  42. echo │                                                                             │
  43. echo │                                                                             │
  44. echo │                                                                             │
  45. echo └─────────────────────────────────────────────────────────────────────────────┘
  46. :smallenv
  47. UC E -F -S UCDIRDAT
  48. echo  
  49. echo └─────────────────────────────────────────────────────────────────────────────┘
  50. set uc2_win=
  51.  
  52. if errorlevel 21 goto archerror
  53. if errorlevel 20 goto ok
  54. if errorlevel 1 goto archerror
  55.  
  56. :ok
  57. echo UEDIR: All files from UCDIRDAT.UC2 have been extracted into the current
  58. echo        directory and below. UCDIRDAT.UC2 is still present to allow UCDIR
  59. echo        to perform much faster, the next time you use it.
  60. attrib -r ucdirdat.uc2 > nul
  61. goto end
  62.  
  63. :noucdir
  64. echo UEDIR ERROR: No UCDIRDAT.UC2 found in the current directory.
  65. goto end
  66.  
  67. :archerror
  68. echo UEDIR ERROR: Not all files/directories have been extracted.
  69. goto end
  70.  
  71. :end
  72.  
  73. rem Restore 4DOS compound character if appropriate.
  74. if q%UUUCR%==qT SETDOS /C~
  75. if q%UUUCR%==qT SET U$CR=
  76.