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 == REQUESTER GOTO REQUESTER
IF  %1 == requester GOTO REQUESTER
IF  %1 == LOCAL GOTO LOCAL
IF  %1 == local GOTO LOCAL
GOTO PARAM
::
:REQUESTER
IF NOT EXIST BPATREQO.510 GOTO NETWERRP
IF NOT EXIST BTRCALLS.DLL GOTO BTRCERR
echo ÿ
echo BTRIEVE FOR OS/2 REQUESTER V5.10 ** PATCHING .............
echo ÿ
DEBUG BTRCALLS.DLL <BPATREQO.510 >TEMP
GOTO FIXDONE
::
:LOCAL
IF NOT EXIST BPATOS2.510 GOTO LOCERRP
IF NOT EXIST BTRCALLS.DLL GOTO BTRCERR
echo ÿ
echo BTRIEVE FOR OS/2 LOCAL V5.10 ** PATCHING .............
echo ÿ
DEBUG BTRCALLS.DLL <BPATOS2.510 >TEMP
GOTO FIXDONE
::
:NETWERRP
echo ÿ
echo CANNOT FIND BPATREQO.510
GOTO END
::
:BTRCERR
echo ÿ
echo CANNOT FIND BTRCALLS.DLL
GOTO END
::
:LOCERRP
echo ÿ
echo CANNOT FIND BPATOS2.510
GOTO END
::
:PARAM
echo ÿ
echo THE FORMAT IS:
echo ÿ
echo PATCHOS2 filename
echo ÿ
echo WHERE filename IS:       REQUESTER
echo                          LOCAL
echo ÿ
GOTO END
::
:FIXDONE
echo ÿ
echo BTRIEVE PRODUCT FOR OS/2 VERSION 5.10 ** PATCHING COMPLETE **
echo ÿ
::
:END