echo off
CLS
echo *** MAKE SURE THAT YOU USE THE ORIGINAL (UNPATCHED) RELEASED VERSION
echo     OF THE PRODUCT YOU ARE PATCHING.   PATCHING AN ALREADY PATCHED COPY
echo     MAY CAUSE UNPREDICTABLE ERRORS.
echo ÿ
echo ÿ
IF %1! == ! GOTO PARAM
IF  %1 == BTRTOOLS GOTO BTRTOOLS
IF  %1 == btrtools GOTO BTRTOOLS
IF  %1 == WINDOWS GOTO WINDOWS
IF  %1 == windows GOTO WINDOWS
GOTO PARAM
::
:BTRTOOLS
IF NOT EXIST WTOOLPAT.510 GOTO TOOLERRP
IF NOT EXIST BTRTOOLS.EXE GOTO TOOLERR
echo ÿ
echo BTRTOOLS.EXE VERSION 5.10 ** PATCHING .............
echo ÿ
REN BTRTOOLS.EXE BTRTOOLS
DEBUG BTRTOOLS <WTOOLPAT.510 >TEMP
REN BTRTOOLS BTRTOOLS.EXE
GOTO FIXDONE
::
:WINDOWS
IF NOT EXIST BPATWIN.510 GOTO WINERRP
IF NOT EXIST WBTRCALL.DLL GOTO WINERR
echo ÿ
echo WBTRCALL.DLL VERSION 5.10 ** PATCHING .............
echo ÿ
DEBUG WBTRCALL.DLL <BPATWIN.510 >TEMP
GOTO FIXDONE
::
:TOOLERRP
echo ÿ
echo CANNOT FIND WTOOLPAT.510
GOTO END
::
:TOOLERR
echo ÿ
echo CANNOT FIND BTRTOOLS.EXE
GOTO END
::
:WINERRP
echo ÿ
echo CANNOT FIND BPATWIN.510
GOTO END
::
:WINERR
echo ÿ
echo CANNOT FIND WBTRCALL.DLL
GOTO END
::
:PARAM
echo ÿ
echo THE FORMAT IS:
echo ÿ
echo PATCHWIN filename
echo ÿ
echo WHERE filename IS:       BTRTOOLS
echo                          WINDOWS
echo ÿ
GOTO END
::
:FIXDONE
echo ÿ
echo BTRIEVE PRODUCT FOR WINDOWS VERSION 5.10 ** PATCHING COMPLETE **
echo ÿ
::
:END
