home *** CD-ROM | disk | FTP | other *** search
/ Shareware Supreme Volume 6 #1 / swsii.zip / swsii / 199 / 4LOGIC10.ZIP / 4LCHK.BTM < prev    next >
Encoding:
Text File  |  1992-06-25  |  7.4 KB  |  259 lines
  1. :*******************************************************************************
  2. : A 4LOGIC batch utilty     A free program. All of the code here is released
  3. :                           to the public domain.
  4. : Name: 4LCHK.btm v. 1.0
  5. :
  6. : Author: Brad Owen
  7. :
  8. : Description: Check setup for the 4LOGIC utilities.
  9. :
  10. :*******************************************************************************
  11. @echo off
  12.     cls
  13.     echos Checking the environment variable...
  14.  
  15. :*Check the environment variable
  16.  
  17.     iff "%[4LOGIC]" == "" then
  18.         beep 400 2 350 2 400 2 350 2 400 2 350 2
  19.         echo.
  20.         echo The environment variable 4LOGIC is not set.
  21.         echo See 4LOGIC.doc for details.
  22.         echo.
  23.         echo Set this environment variable and re-run 4LCHK
  24.         quit
  25.     else
  26.         cdd %[4LOGIC] >>&! NUL
  27.         set ERRCODE=%_?
  28.             iff "%ERRCODE" NE "0" then
  29.                 cls
  30.                 beep 400 2 350 2 400 2 350 2 400 2 350 2
  31.                 echo.
  32.                 echo 4LCHK error: Unable to change to %[4LOGIC]
  33.                 echo Are you sure this directory exists?
  34.                 echo Check your system and re-run 4LCHK
  35.                 echo.
  36.                 set ERRCODE=
  37.                 quit
  38.             endiff
  39.         set ERRCODE=
  40.         if exist 4lchk.rpt del /q /y 4lchk.rpt
  41.         echo ================================================================================ >>&! 4lchk.rpt
  42.         echo    ESC to exit                 4LCHK Report                       ESC to exit >>&! 4lchk.rpt
  43.         echo ================================================================================ >>&! 4lchk.rpt
  44.         echo. >>&! 4lchk.rpt
  45.         echo    4LOGIC environment variable is set to  %[4LOGIC] >>&! 4lchk.rpt
  46.         echo. >>&! 4lchk.rpt
  47.         set VARTEST=%@index[%path,%[4LOGIC]]
  48.             iff "%VARTEST"=="-1" then
  49.                 echo    WARNING! %[4LOGIC] is NOT listed in your path. >>&! 4lchk.rpt
  50.                 echo    Please add it to your path statement. >>&! 4lchk.rpt
  51.                 echo. >>&! 4lchk.rpt
  52.             else
  53.                 echo    %[4LOGIC] was found in the path. >>&! 4lchk.rpt
  54.                 echo. >>&! 4lchk.rpt
  55.                 set VARTEST=
  56.             endiff
  57.     endiff
  58.  
  59. :*Check the files
  60.     cls
  61.     echos Checking for files...
  62.  
  63.     echo    File status: >>&! 4lchk.rpt
  64.     echo. >>&! 4lchk.rpt
  65.  
  66.     iff exist 4cd.btm then
  67.         echo    4cd.btm        ok >>&! 4lchk.rpt
  68.     else
  69.         echo    4cd.btm        NOT FOUND! >>&! 4lchk.rpt
  70.     endiff
  71.  
  72.     iff exist 4del.btm then
  73.         echo    4del.btm       ok >>&! 4lchk.rpt
  74.     else
  75.         echo    4del.btm       NOT FOUND! >>&! 4lchk.rpt
  76.     endiff
  77.  
  78.     iff exist 4copy.btm then
  79.         echo    4copy.btm      ok >>&! 4lchk.rpt
  80.     else
  81.         echo    4copy.btm      NOT FOUND! >>&! 4lchk.rpt
  82.     endiff
  83.  
  84.     iff exist 4move.btm then
  85.         echo    4move.btm      ok >>&! 4lchk.rpt
  86.     else
  87.         echo    4move.btm      NOT FOUND! >>&! 4lchk.rpt
  88.     endiff
  89.  
  90.     iff exist 4ud.btm then
  91.         echo    4ud.btm        ok >>&! 4lchk.rpt
  92.     else
  93.         echo    4ud.btm        NOT FOUND! >>&! 4lchk.rpt
  94.     endiff
  95.  
  96.     iff exist 4manage.btm then
  97.         echo    4manage.btm    ok >>&! 4lchk.rpt
  98.     else
  99.         echo    4manage.btm    NOT FOUND! >>&! 4lchk.rpt
  100.     endiff
  101.  
  102.     iff exist 4lchk.btm then
  103.         echo    4lchk.btm      ok >>&! 4lchk.rpt
  104.     else
  105.         echo    4lchk.btm      NOT FOUND! >>&! 4lchk.rpt
  106.     endiff
  107.  
  108.     iff exist 4lvc.btm then
  109.         echo    4lvc.btm       ok >>&! 4lchk.rpt
  110.     else
  111.         echo    4lvc.btm       NOT FOUND! >>&! 4lchk.rpt
  112.     endiff
  113.  
  114.     iff exist 4lvcbkup.btm then
  115.         echo    4lvcbkup.btm   ok >>&! 4lchk.rpt
  116.     else
  117.         echo    4lvcbkup.btm   NOT FOUND! >>&! 4lchk.rpt
  118.     endiff
  119.  
  120.     iff exist 4lvcdlt.btm then
  121.         echo    4lvcdlt.btm    ok >>&! 4lchk.rpt
  122.     else
  123.         echo    4lvcdlt.btm    NOT FOUND! >>&! 4lchk.rpt
  124.     endiff
  125.  
  126.     iff exist 4lvcpack.btm then
  127.         echo    4lvcpack.btm   ok >>&! 4lchk.rpt
  128.     else
  129.         echo    4lvcpack.btm   NOT FOUND! >>&! 4lchk.rpt
  130.     endiff
  131.  
  132.     iff exist 4lvcproc.btm then
  133.         echo    4lvcproc.btm   ok >>&! 4lchk.rpt
  134.     else
  135.         echo    4lvcproc.btm   NOT FOUND! >>&! 4lchk.rpt
  136.     endiff
  137.  
  138.     iff exist 4lvcxtr.btm then
  139.         echo    4lvcxtr.btm    ok >>&! 4lchk.rpt
  140.     else
  141.         echo    4lvcxtr.btm    NOT FOUND! >>&! 4lchk.rpt
  142.     endiff
  143.  
  144.     iff exist 4logic.doc then
  145.         echo    4logic.doc     ok >>&! 4lchk.rpt
  146.     else
  147.         echo    4logic.doc     NOT FOUND! >>&! 4lchk.rpt
  148.     endiff
  149.  
  150.     iff exist filemask.dat then
  151.         echo    filemask.dat   ok >>&! 4lchk.rpt
  152.     else
  153.         echo    filemask.dat   NOT FOUND! >>&! 4lchk.rpt
  154.     endiff
  155.     echo. >>&! 4lchk.rpt
  156.  
  157. :*Check for PK(UN)ZIP
  158.  
  159.     set ZIPCHK=%@search[PKZIP.EXE]
  160.     iff "%ZIPCHK" EQ "" then
  161.         echo    PKZip.exe      NOT FOUND >>&! 4lchk.rpt
  162.         set ZIPCHK=
  163.     else
  164.         set ZIPCHK=
  165.         echo    PKZip.exe      ok >>&! 4lchk.rpt
  166.  
  167.    endiff
  168.  
  169.     set ZIPCHK=%@search[PKUNZIP.EXE]
  170.     iff "%ZIPCHK" EQ "" then
  171.         echo    PKUNZIP.EXE    NOT FOUND >>&! 4lchk.rpt
  172.         set ZIPCHK=
  173.     else
  174.         set ZIPCHK=
  175.         echo    PKUnzip.exe    ok >>&! 4lchk.rpt
  176.     endiff
  177.     echo. >>&! 4lchk.rpt
  178.  
  179. :*Check for EDLIN
  180.  
  181.     set EDCHK=%@search[EDLIN.EXE]
  182.     iff "%EDCHK" EQ "" then
  183.         echo    EDLIN.exe      NOT FOUND >>&! 4lchk.rpt
  184.         set EDCHK=
  185.     else
  186.         set EDCHK=
  187.         echo    EDLIN.exe      ok >>&! 4lchk.rpt
  188.     endiff
  189.     echo. >>&! 4lchk.rpt
  190.  
  191. :*Check 4DOS version
  192.     cls
  193.     echos Checking 4DOS version...
  194.  
  195.     iff "%_4ver" LT "4.0" then
  196.         echo    WARNING! >>&! 4lchk.rpt
  197.         echo    Your current 4DOS version is %_4ver >>&! 4lchk.rpt
  198.         echo    You must be running at least version 4.0 >>&! 4lchk.rpt
  199.     else
  200.         echo    4DOS version is %_4ver            ok >>&! 4lchk.rpt
  201.     endiff
  202.         echo. >>&! 4lchk.rpt
  203.  
  204. :*Check for KSTACK loaded
  205.     cls
  206.     echos Checking Keystack...
  207.  
  208. :KEYCK
  209.     inkey /w0 %%LVCKEY
  210.     if "%LVCKEY" NE "" goto KEYCK
  211.     keystack 255
  212.     inkey /w0 %%LVCKEY
  213.  
  214.     iff "%LVCKEY" NE " " then
  215.         echo    WARNING! KSTACK is either not loaded or is not functioning. >>&! 4lchk.rpt
  216.     else
  217.         echo    KSTACK loaded and functioning     ok >>&! 4lchk.rpt
  218.     endiff
  219.     set LVCKEY=
  220.     echo. >>&! 4lchk.rpt
  221.  
  222. :*Checking the environment size
  223.     cls
  224.     echos Checking the environment size...
  225.     iff "%_env" LT "300" then
  226.         echo    WARNING! Environment space is currently %_env >>&! 4lchk.rpt
  227.         echo    Increase this to at least 300.  See 4LOGIC.doc for more information. >>&! 4lchk.rpt
  228.     else
  229.         echo    Free environment room is %_env bytes   ok >>&! 4lchk.rpt
  230.     endiff
  231.     echo. >>&! 4lchk.rpt
  232.  
  233. :*Look at report and finish up
  234.     list 4lchk.rpt
  235.     cls
  236.     scrput 4 10 whi on bla K  Keep this report
  237.     scrput 6 10 whi on bla D  Delete this report
  238.     scrput 8 10 whi on bla Press a key
  239.     screen 8 22
  240.     inkey %%RESPONSE
  241.     iff "%RESPONSE"=="D" then
  242.         del /q /y 4lchk.rpt
  243.         set RESPONSE=
  244.     else
  245.         cls
  246.         scrput 4 5 whi on bla Enter a filename for the report:
  247.         screen 4 38
  248.         input %%RPTNAME
  249.         ren /q 4lchk.rpt %RPTNAME
  250.         set RESPONSE=
  251.         set RPTNAME=
  252.     endiff
  253.  
  254. :FINISHED
  255.     cls
  256.     beep 250 2 300 2 400 2
  257.     echo.
  258.     echo All finished.
  259.