romrip, тогда для начала разобраться с копированием:
- закомментировать строку "Call :Bar"
- в строке DD отключить подавление вывода, убрать в конце " >nul 2>&1"
- добавить вывод командной строки:
Код:

@Echo Off
SetLocal EnableDelayedExpansion
Set $f=C:\1\2003.GDB
Set $d=C:\2\2003.GDB
If Exist "%$d%" DEL "%$d%"
For %%i In ("%$f%") Do Set $z=%%~zi
Set /A $z=$z/99
Set N_Col=79
Set cntA=100
Set cnt=0
rem -----------------------------
Echo Обработка запущена
for /l %%i in (0,1,99) do (
echo dd bs=%$z%c count=1 if="%$f%" of="%$d%" skip=%%i seek=%%i
dd bs=%$z%c count=1 if="%$f%" of="%$d%" skip=%%i seek=%%i
rem Call :Bar
)
rem -----------------------------
Echo.
Echo Обработка завершена
Pause>nul
Exit
- вызов:
Код:

test.cmd >test.log 2>&1
- смотреть лог "test.log"
P.S. постить процедуру BAR без толку - спецсимволы теряются