Piper's Pit BBS/FTP: ibm 0040 - 0049/ibm0040-0049/ibm0040.tar/ibm0040/FOREST10.ZIP/INSTALL.BAT

DOS Batch File | 1990-12-16 | 1.9 KB | 78 lines

rem %1=drive\path

:BANNER
@cls
@echo off
@echo ****************************************************
@echo *            FOREST & TREES for WINDOWS            *
@echo *            BATCH INSTALLATION PROGRAM            *
@echo *       COPYRIGHT 1990, CHANNEL COMPUTING, INC.    *
@echo ****************************************************
@echo *              12/17/90 REVISION .005              *
@echo ****************************************************
@echo *                                                  *
@echo *         AT PROMPT TYPE "INSTALL drive\path"      *
@echo *             EXAMPLE:   INSTALL C:\FTW            *
@echo ****************************************************

@echo PRESS CONTROL-BREAK TO QUIT

@pause

:TESTS
rem tests for directory parameter
if "%1"=="" goto ERR_HANDLE

:COPY_FILES
rem copy files to specified directory
@echo off
md %1 > NUL
xcopy *.* %1 /V
md %1\sampledb > NUL
xcopy sampledb %1\sampledb /V
if not exist %1\FTW.EXE goto ERR_HANDLE
if errorlevel 0 goto END_OK
goto ERR_HANDLE

:ERR_HANDLE
rem error message if files failed to install properly
if "%1"=="" set ERRORMSG=NO DIR SPEC
if not exist %1\FTW.EXE set ERRORMSG2=COPY FAILED
if errorlevel 1 set ERRORMSG=NO FILES
if errorlevel 2 set ERRORMSG=TERMINATED
if errorlevel 4 set ERRORMSG=BAD DIR
if errorlevel 5 set ERRORMSG=MACHINE ERR
@echo off
@cls
@echo .
@echo . .
@echo         FOREST & TREES FAILED TO INSTALL PROPERLY
@echo . .
@echo      REASON: %ERRORMSG% - %ERRORMSG2%
@echo . . .
@echo      BE SURE TO TYPE "INSTALL drive\path" AT PROMPT
@echo . .  .
@echo         CALL 1.800.289.0053 for PRODUCT SUPPORT
@echo . . . .
@pause
goto XROUTINE

:END_OK
rem message if files copied properly
@echo off
@cls
@echo .
@echo . .
@echo      FOREST & TREES FOR WINDOWS IS NOW INSTALLED IN %1
@echo . . .
@echo . . . .
@pause
goto XROUTINE


:XROUTINE
rem cleanup and exit
set ERRORMSG=
set ERRORMSG2=
@cls