cd VerPC

del *.exe
del *.tpu
del sets.inc
copy setsVGA.inc sets.inc
BPC -B -CD -DDOS -$G+,V-,Q+,R+ -U..\SRC;K:\LIBV0510\DOS7;K:\LIB0510\DOS7;K:\BP\UNITS -E. ..\SRC\app.pas
@if not errorlevel 1 goto 1
pause
:1

del *.exe
del *.tpu
del sets.inc
copy setsVESA.inc sets.inc
BPC -B -CD -DDOS -$G+,V-,Q+,R+ -U..\SRC;K:\LIBV0510\DOS7;K:\LIB0510\DOS7;K:\BP\UNITS -E. ..\SRC\app.pas
@if not errorlevel 1 goto 2
pause
:2

del *.exe
del *.tpu
del sets.inc
copy setsTEMU.inc sets.inc
BPC -B -CD -DDOS -$G+,V-,Q+,R+ -U..\SRC;K:\LIBV0510\DOS7;K:\LIB0510\DOS7;K:\BP\UNITS -E. ..\SRC\app.pas
@if not errorlevel 1 goto 3
pause
:3


del *.exe
del *.tpu
del sets.inc
copy setsbak.inc sets.inc
cd .\..

cd VerMC
del *.exe
del *.tpu
BPC -B -CD -GD -DMCP -$G+,V-,Q+,R+ -U..\SRC;K:\LIBV0510\MCP7;K:\LIB0510\MCP7;K:\BP\UNITS -E. ..\SRC\app.pas
@if not errorlevel 1 goto 4
pause
:4
rem *************************
rem * az bude RTD umet vygenerovat BIN a vyskocit, pak odkomentovat.
rem K:\RTD\BIN\RTD.EXE APP.exe /G /X

del *.exe
del *.tpu
cd .\..

:End
