Como ecoar as cotações de cor nessa função em lote?

Question

Eu tenho o seguinte script com uma função de eco colorida:

@echo off
setlocal EnableDelayedExpansion
for /F "tokens=1,2 delims=#" %%a in ('"prompt #$H#$E# & echo on & for %%b in (1) do rem"') do (
  set "DEL=%%a"
)
::call :c 0b "^!<>&| abc123 %%%%"*?"
rem Prepare a file "X" with only one dot
<nul > X set /p ".=."


call :c 0f " [DBName] ["Value=Data"] ["Value=Data"] "
exit


:c
set "param=^%~2" !
set "param=!param:"=\"!"
findstr /p /A:%1 "." "!param!\..\X" nul
<nul set /p ".=%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%%DEL%"
if /i not "%3"=="/n" echo.
exit /b

A linha call :c 0f " [DBName] ["Value=Data"] ["Value=Data"] " não funciona. Como posso fazê-lo funcionar?