cd DOS7
del TstUStr.exe
del *.tpu
BPC -B -DDOS -$G+,V-,Q+,R+ -U..;..\..\..\..\DOS7 -E. ..\TstUStr.pas
@if not errorlevel 1 goto 1
pause
:1
TstUStr.exe
cd ..

cd TPP7
del TstUStr.exe
del *.tpp
BPC -CP -B -DDOS -$G+,V-,Q+,R+ -U..;..\..\..\..\TPP7 -E. ..\TstUStr.pas
@if not errorlevel 1 goto 2
pause
:2
TstUStr.exe
cd ..

:End

