home *** CD-ROM | disk | FTP | other *** search
/ Der Mediaplex Sampler - Die 6 von Plex / 6_v_plex.zip / 6_v_plex / DISK5 / DOS_01 / 4DVC31.ZIP / 4DVCCHK.BTM < prev    next >
Text File  |  1991-01-04  |  5KB  |  149 lines
  1. @echo off
  2.    set VCTEST=
  3. rem check available executables
  4.    set VCPATH=%@search[4DVCBKUP.BTM]
  5.    iff "%VCPATH" EQ "" then
  6.       echo Cannot locate 4DVCBKUP.BTM
  7.       set VCTEST=X
  8.    endiff
  9.    set VCPATH=%@search[4DVCBKP2.BTM]
  10.    iff "%VCPATH" EQ "" then
  11.       echo Cannot locate 4DVCBKP2.BTM
  12.       set VCTEST=X
  13.    endiff
  14.    set VCPATH=%@search[4DVCXTRC.BTM]
  15.    iff "%VCPATH" EQ "" then
  16.       echo Cannot locate 4DVCXTRC.BTM
  17.       set VCTEST=X
  18.    endiff
  19.    set VCPATH=%@search[4DVCXTR2.BTM]
  20.    iff "%VCPATH" EQ "" then
  21.       echo Cannot locate 4DVCXTR2.BTM
  22.       set VCTEST=X
  23.    endiff
  24.    set VCPATH=%@search[4DVCDLET.BTM]
  25.    iff "%VCPATH" EQ "" then
  26.       echo Cannot locate 4DVCDLET.BTM
  27.       set VCTEST=X
  28.    endiff
  29.    set VCPATH=%@search[4DVCDLT2.BTM]
  30.    iff "%VCPATH" EQ "" then
  31.       echo Cannot locate 4DVCDLT2.BTM
  32.       set VCTEST=X
  33.    endiff
  34.    set VCPATH=%@search[4DVCREAD.ME]
  35.    iff "%VCPATH" EQ "" then
  36.       echo Cannot locate 4DVCREAD.ME
  37.       set VCTEST=X
  38.    endiff
  39.    set VCPATH=%@search[PKZIP.EXE]
  40.    iff "%VCPATH" EQ "" then
  41.       echo Cannot locate PKZIP.EXE
  42.       set VCTEST=X
  43.    endiff
  44.    set VCPATH=%@search[PKUNZIP.EXE]
  45.    iff "%VCPATH" EQ "" then
  46.       echo Cannot locate PKUNZIP.EXE
  47.       set VCTEST=X
  48.    endiff
  49.    set VCPATH=
  50.    iff "%VCTEST" NE "" then
  51.       echo  
  52.       echo The above files need to either be in your current directory
  53.       echo       (%_CWD)
  54.       echo or in one of the directories specified in your PATH Environment Variable.
  55.    endiff
  56. rem make sure 4DOS is version 3.02 or later
  57.    ver >&! 4DVCCHK.0
  58.    set VCVER=%@substr[%@line[4DVCCHK.0,1],5,4]
  59.    @del /q 4DVCCHK.0 >&! NUL
  60.    iff "%VCVER" LT "3.02" then
  61.       echo  
  62.       echo You must have at least version 3.02 of 4DOS. You are running version %VCVER
  63.       set VCTEST=X
  64.    endiff
  65.    set VCVER=
  66. rem
  67. rem the following 2 checks for PK v:1.1 will delay the startup routine quite a bit.
  68. rem remove the REM's if you want to do these checks.
  69. rem
  70. rem rem make sure PKZIP is version 1.1 or later
  71. rem    PKZIP -l >&! 4DVCCHK.0
  72. rem    set VCVER=%@substr[%@line[4DVCCHK.0,1],%@eval[%@index[%@upper[%@line[4DVCCHK.0,1]],VERSION] + 8],3]
  73. rem    @del /q 4DVCCHK.0 >&! NUL
  74. rem    iff "%VCVER" LT "1.1" then
  75. rem       echo  
  76. rem       echo You must have at least version 1.1 of PKZIP. You are running version %VCVER
  77. rem       set VCTEST=X
  78. rem    endiff
  79. rem rem make sure PKUNZIP is version 1.1 or later
  80. rem    PKUNZIP -l >&! 4DVCCHK.1
  81. rem    set VCVER=%@substr[%@line[4DVCCHK.1,1],%@eval[%@index[%@upper[%@line[4DVCCHK.1,1]],VERSION] + 8],3]
  82. rem    @del /q 4DVCCHK.1 >&! NUL
  83. rem    iff "%VCVER" LT "1.1" then
  84. rem       echo  
  85. rem       echo You must have at least version 1.1 of PKUNZIP. You are running version %VCVER
  86. rem       set VCTEST=X
  87. rem    endiff
  88. rem    set VCVER=
  89. rem
  90. rem check for config.sys
  91.    iff not exist C:\CONFIG.SYS then
  92.       echo  
  93.       echo You must setup a CONFIG.SYS file. At a minimum, it must specify:
  94.       echo     DEVICE=KEYSTACK.SYS
  95.       set VCTEST=X
  96.       goto VCCKMEM
  97.    endiff
  98. rem make sure KEYSTACK is loaded
  99. :VCCKKEY
  100.    inkey /w0 %%VCKEY
  101.    if "%VCKEY" NE "" goto VCCKKEY
  102.    keystack 255
  103.    inkey /w0 %%VCKEY
  104.    iff "%VCKEY" NE " " then
  105.       echo  
  106.       echo Your CONFIG.SYS file does not specify:
  107.       echo     DEVICE=KEYSTACK.SYS
  108.       echo or else KEYSTACK/INKEY is malfunctioning.
  109.       set VCTEST=X
  110.    endiff
  111.    set VCKEY=
  112. rem check environment space
  113. :VCCKMEM
  114.    @memory >&! 4DVC.0
  115.    set VCRCD = 0
  116. :FINDENV
  117.    iff %VCRCD GT 14 then
  118.       set VCTEST=X
  119.       echo  
  120.       echo Cannot determine the amount of Environment space available.
  121.       goto CLEANUP
  122.    endiff
  123.    iff %@index[%@upper[%@line[4DVC.0,%VCRCD]],ENVIRONMENT] LT 0 then
  124.       set VCRCD=%@eval[%VCRCD + 1]
  125.       goto FINDENV
  126.    endiff
  127.    set VCRCD=%@eval[%VCRCD + 1]
  128.    set VCENV=%@substr[%@line[4DVC.0,%VCRCD],13,-3]
  129.    iff "%VCENV" LT "128" then
  130.       set VCTEST=X
  131.       echo  
  132.       echo You only have %VCENV bytes of available Environment Space.
  133.       echo 4DVC requires at least 128. Change your CONFIG.SYS file and increase
  134.       echo the "SHELL=..... /E:(enviroment-size)" entry to request more space,
  135.       echo  
  136.       echo or set your 4DSHELL Environment Variable to "4DSHELL=.../E+128"
  137.       echo and create a .BTM file that says:
  138.       echo      4DOS /C 4DVC.BTM %1&
  139.       echo then use your newly-created .BTM file to run 4DVC.
  140.    endiff
  141. :CLEANUP
  142.    set VCENV=
  143.    set VCRCD=
  144.    @del /q 4DVC.0 >&! NUL
  145.    iff "%VCTEST" NE "" then
  146.       set VCTEST=
  147.       cancel
  148.    endiff
  149.