Umwandeln einer Dezimalzahl in eine Binärzahl

@echo off
:start
cls
set /p dec="Dezimalzahl: "  
if %dec% GTR 65535 goto start

set /a bb9=%dec%/32768
if %bb9%==1 set /a dec=%dec%-32768
set /a bb8=%dec%/16384
if %bb8%==1 set /a dec=%dec%-16384
set /a bb7=%dec%/8192
if %bb7%==1 set /a dec=%dec%-8192
set /a bb6=%dec%/4096
if %bb6%==1 set /a dec=%dec%-4096
set /a bb5=%dec%/2048
if %bb5%==1 set /a dec=%dec%-2048
set /a bb4=%dec%/1024
if %bb4%==1 set /a dec=%dec%-1024
set /a bb3=%dec%/512
if %bb3%==1 set /a dec=%dec%-512
set /a bb2=%dec%/256
if %bb2%==1 set /a dec=%dec%-256

set /a b8=%dec%/128
if %b8%==1 set /a dec=%dec%-128
set /a b7=%dec%/64
if %b7%==1 set /a dec=%dec%-64
set /a b6=%dec%/32
if %b6%==1 set /a dec=%dec%-32
set /a b5=%dec%/16
if %b5%==1 set /a dec=%dec%-16
set /a b4=%dec%/8
if %b4%==1 set /a dec=%dec%-8
set /a b3=%dec%/4
if %b3%==1 set /a dec=%dec%-4
set /a b2=%dec%/2
if %b2%==1 set /a dec=%dec%-2
set /a b1=%dec%/1

set bin=%bb8%%bb8%%bb7%%bb6%%bb5%%bb4%%bb3%%bb2% %b8%%b7%%b6%%b5%%b4%%b3%%b2%%b1%
echo %bin%

pause
goto start

@echo off

set counter=0
set bin=00000000 00000000
set "col=>"  

:counter


mode con lines=7 cols=30
set /a operation=%counter%/656
echo Textdokument wird erstellt...
echo.
echo %operation%%%
echo.
echo (%counter% von 65535)
echo %bin%



echo %counter% %bin% %col%binary.txt

set "col=>>"  
set /a counter=%counter%+1
if %counter%==65536 exit

:dec_to_bin
set counter2=%counter%

set /a bb9=%counter2%/32768
if %bb9%==1 set /a counter2=%counter2%-32768
set /a bb8=%counter2%/16384
if %bb8%==1 set /a counter2=%counter2%-16384
set /a bb7=%counter2%/8192
if %bb7%==1 set /a counter2=%counter2%-8192
set /a bb6=%counter2%/4096
if %bb6%==1 set /a counter2=%counter2%-4096
set /a bb5=%counter2%/2048
if %bb5%==1 set /a counter2=%counter2%-2048
set /a bb4=%counter2%/1024
if %bb4%==1 set /a counter2=%counter2%-1024
set /a bb3=%counter2%/512
if %bb3%==1 set /a counter2=%counter2%-512
set /a bb2=%counter2%/256
if %bb2%==1 set /a counter2=%counter2%-256

set /a b8=%counter2%/128
if %b8%==1 set /a counter2=%counter2%-128
set /a b7=%counter2%/64
if %b7%==1 set /a counter2=%counter2%-64
set /a b6=%counter2%/32
if %b6%==1 set /a counter2=%counter2%-32
set /a b5=%counter2%/16
if %b5%==1 set /a counter2=%counter2%-16
set /a b4=%counter2%/8
if %b4%==1 set /a counter2=%counter2%-8
set /a b3=%counter2%/4
if %b3%==1 set /a counter2=%counter2%-4
set /a b2=%counter2%/2
if %b2%==1 set /a counter2=%counter2%-2
set /a b1=%counter2%/1

set bin=%bb8%%bb8%%bb7%%bb6%%bb5%%bb4%%bb3%%bb2% %b8%%b7%%b6%%b5%%b4%%b3%%b2%%b1%
goto counter