BatchSkript für Schleife gesucht

@echo off &setlocal EnableDelayedExpansion

for /l %%i in (0,1,31) do (
  call :Dec2Bin %%i 5 bin
  echo !bin!
)

pause
exit /b

:Dec2Bin byVal_dec  byVal_length  byRef_VarOut
setlocal EnableDelayedExpansion
set /a "dec = %~1, n = %~2"  
set "strBin="  
for /l %%i in (1,1,%n%) do (
   set /a "x = dec & 1 , dec >>= 1"  
   set "strBin=!x!!strBin!"  
)
endlocal &set "%~3=%strBin%"  
exit /b

@echo off & setlocal
set "Zeichen=0 1"  
set /a Anz=5

set "Datei=D:\Deine Datei.txt"  

del "%Datei%" 2>nul  
for %%z in (%Zeichen%) do call :ZeichenHinzu %%z 1 %%z
goto :eof

:ZeichenHinzu
set "Ergebnis=%3"  
set /a Stelle=%2
if %Stelle%==%Anz% (
    >>"%Datei%" echo %Ergebnis%  
    goto :eof
)
set /a Stelle+=1
for %%n in (%Zeichen%) do call :ZeichenHinzu %%n %Stelle% %Ergebnis%%%n
goto :eof