home *** CD-ROM | disk | FTP | other *** search
/ CD-X 3 / cdx_03.iso / shutils / dos / uc2b305.arj / ULOCK.BAT < prev    next >
Encoding:
DOS Batch File  |  1995-09-16  |  2.3 KB  |  98 lines
  1. @echo off
  2. echo off
  3.  
  4. REM *** ULOCK.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. echo ═══════════════════════════════════════════════════════════════════════════════
  19. echo  ░███   ░███  ░████      UltraLock [2.3]
  20. echo ░█  ░█   ░█   ░█  ░█     "Protect archive against all manipulative commands"
  21. echo ░█████   ░█   ░████  -NL
  22. echo ░█  ░█   ░█   ░█ ──────────────────────────────────────────────────────────────
  23. echo ░█  ░█  ░███  ░█ (c) 1991-1995, Ad Infinitum Programs, all rights reserved
  24. echo ═══════════════════════════════════════════════════════════════════════════════
  25. echo  
  26.  
  27. if q%1==q goto usage
  28. if not exist %1 goto ext
  29.  
  30. REM no BASIC updates
  31. echo q > u$~nobas.lck
  32.  
  33. REM no DELETE
  34. echo q > u$~nodel.lck
  35.  
  36. REM no ADD
  37. echo q > u$~noadd.lck
  38.  
  39. REM no OPTIMIZE
  40. echo q > u$~noopt.lck
  41.  
  42. REM no UNPROTECT
  43. echo q > u$~nounp.lck
  44.  
  45. REM no REVISE COMMENT
  46. echo q > u$~norev.lck
  47.  
  48. uc ai %1 u$~nobas.lck u$~nodel.lck u$~noadd.lck u$~noopt.lck u$~nounp.lck u$~norev.lck > nul
  49.  
  50. if errorlevel 1 goto errl
  51.  
  52. echo ULOCK: %1 has been protected against all manipulative commands
  53.  
  54. goto end
  55.  
  56. :ext
  57. if not exist %1.UC2 goto noaerror
  58.  
  59. echo q > u$~nobas.lck
  60. echo q > u$~nodel.lck
  61. echo q > u$~noadd.lck
  62. echo q > u$~noopt.lck
  63. echo q > u$~nounp.lck
  64. echo q > u$~norev.lck
  65.  
  66. uc ai %1.uc2 u$~nobas.lck u$~nodel.lck u$~noadd.lck u$~noopt.lck u$~nounp.lck u$~norev.lck > nul
  67.  
  68. if errorlevel 1 goto errl
  69.  
  70. echo ULOCK: %1.UC2 has been protected against all manipulative commands
  71.  
  72. goto end
  73.  
  74. :usage
  75. echo Usage: ULOCK arch
  76. goto end
  77.  
  78. :noaerror
  79. echo ULOCK ERROR: Cannot find archive
  80. goto end
  81.  
  82. :errl
  83. echo ULOCK ERROR: UC2 reported a problem
  84. goto end
  85.  
  86. :end
  87. if exist u$~nobas.lck del u$~nobas.lck > nul
  88. if exist u$~nodel.lck del u$~nodel.lck > nul
  89. if exist u$~noadd.lck del u$~noadd.lck > nul
  90. if exist u$~noopt.lck del u$~noopt.lck > nul
  91. if exist u$~nounp.lck del u$~nounp.lck > nul
  92. if exist u$~norev.lck del u$~norev.lck > nul
  93. echo  
  94.  
  95. rem Restore 4DOS compound character if appropriate.
  96. if q%UUUCR%==qT SETDOS /C~
  97. if q%UUUCR%==qT SET U$CR=
  98.