Wartezeit bei "set p" begrenzen?

:anfang
title=Etikettendruck
@echo off
setlocal enabledelayedexpansion
cls & color F8 & echo. & set user=
::::::::::::::::::::::: user-login :::::::::::::::::::::
echo    bitte einloggen: & echo. & set /p user=%user%
for /f "delims=" %%a in (%~dp0\user.txt) do (  
	if "!user!"=="%%a" (  
	set "user-eingeloggt=!user!"  
	goto ean
	)
)
echo. & echo Benutzer "%user%" nicht bekannt & echo.  
ping -n 3 localhost> nul
set user=
goto anfang
:ean
cls & color F8 & echo.
set ean= & set len= & set anzahl= & set charge=
cls  & echo. & echo        Hallo "%user-eingeloggt%". Schoen, dass du da bist. ^:^)  
               echo        (ausloggen mit deinem Barcode) 
:::::::::::::::::: EAN scannen und auf 13 Stellen pruefen oder logout::::::::::::::::
echo. & echo    bitte EAN scannen:
set /p ean=%ean%
:Loop
if "!ean!"=="!user-eingeloggt!" (  
	set "!user-eingeloggt!="  
	set "!user!="  
	cls
	goto anfang
)
if "!ean:~%len%!" neq "" set /a len+=1 & goto Loop  
if not %len%==13 (For /L %%i in (1,1,2) do echo ) & color 4f & ping -n 3 localhost>nul & goto ean
::::::::::::::::::::: Charge eingeben und Wert pruefen ::::::::::::::::::::::::::::::
:loopcharge
echo. & set charge=  & color F8
echo    Charge:
set /p charge=%charge%
for /L %%x in (1,1,20) do ( if "!charge:~%%x!"=="" set len=%%x & goto Result )  
:Result 
if not %len%==8 (For /L %%i in (1,1,2) do echo ) & color 4f & ping -n 3 localhost>nul & goto loopcharge
::::::::::::::::::::: Anzahl eingeben und max. Wert pruefen ::::::::::::::::::::::::::::::
:loopanzahl
echo. & echo    Anzahl der Etiketten:
set anzahl= & set /p anzahl=%anzahl%
if !anzahl! GTR 100 goto loopanzahl
::::::::::::::::::: Daten in Datei schreiben :::::::::::::::::::::
echo %ean%;%charge%;%anzahl%;%date:~0%;%time:~0,8%;!user-eingeloggt!;>>"%~dp0\daten\%date:~0%-charge.csv"  
echo %ean%;%charge%;%anzahl%;%date:~0%;%time:~0,8%;!user-eingeloggt!;>"%~dp0\tmp.txt"  
@echo 
color 2a
ping -n 2 localhost> nul
start "" "%~dp0\autoit.exe"  
goto ean
exit