@echo off
set /p dni= "Introduce un NIF: "
set cadena=TRWAGMYFPDXBNJZSQVHLCKE
set /a resto=%dni%-(23*(%dni%/23))
:bucle
if %resto%==0 goto fin
::resto --
set /a resto-=1
set cadena=%cadena:~1,23%
goto bucle
:fin
echo La letra del NIF es %cadena:~0,1%
pause>nul
