echo off
if not exist EXEC.OBS goto ERROR_NOOBJ

if not exist %1cs.lib goto NOSMALLLIB
echo Patching small library...
copy EXEC.OBS EXEC.OBJ
tlib %1cs.lib +- EXEC.OBJ
del EXEC.OBJ
if errorlevel 1 goto ERROR_NOTLIB
goto MEDIUM
:NOSMALLLIB
echo Cannot find CS.LIB to patch small library.

:MEDIUM
if not exist %1cm.lib goto NOMEDLIB
echo Patching medium library...
copy EXEC.OBM EXEC.OBJ
tlib %1cm.lib +- EXEC.OBJ
del EXEC.OBJ
goto COMPACT
:NOMEDLIB
echo Cannot find CM.LIB to patch medium library.

:COMPACT
if not exist %1cc.lib goto NOCOMPACTLIB
echo Patching compact library...
copy EXEC.OBC EXEC.OBJ
tlib %1cc.lib +- EXEC.OBJ
del EXEC.OBJ
goto LARGE
:NOCOMPACTLIB
echo Cannot find CC.LIB to patch compact library.

:LARGE
if not exist %1cl.lib goto NOLARGELIB
echo Patching large library...
copy EXEC.OBL EXEC.OBJ
tlib %1cl.lib +- EXEC.OBJ
del EXEC.OBJ
goto HUGE
:NOLARGELIB
echo Cannot find CL.LIB to patch large library.

:HUGE
if not exist %1ch.lib goto NOHUGELIB
echo Patching huge library...
copy EXEC.OBH EXEC.OBJ
tlib %1ch.lib +- EXEC.OBJ
del EXEC.OBJ
goto DONE
:NOHUGELIB
echo Cannot find CH.LIB to patch huge library.
goto DONE

:ERROR_NOOBJ
echo The patch object module EXEC is not in the current directory.
echo Cannot patch libraries.
goto DONE

:ERROR_NOTLIB
echo A problem was encountered executing TLIB.  Either the Turbo Librarian
echo cannot be located along your DOS path, or an error occurred.  Consult
echo your Borland C++ Tools & Utilities Guide for more information on why
echo TLIB might not be operating correctly.

:DONE
echo Done.