cd VerDOS

del *.exe
del *.tpu
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
cd ..\VerTPP

del *.exe
del *.tpp
BPC -B -CP -DDOS -$G+,V-,Q+,R+ -U..\SRC;K:\LIBV0510\TPP7;K:\LIB0510\TPP7;K:\BP\UNITS -E. ..\SRC\app.pas
@if not errorlevel 1 goto 2
pause

:2
cd .\..

:End
