@echo off
if not exist "keyboard.exe" ( goto :key ) else ( goto :continua )
:continua
cls
echo. Flecha Abajo: ±   Flecha Izq: °
echo.
echo. Flecha Derecha: Û Flecha Arriba: ²
echo.
echo. Salto de linea: Enter   Salir: Escape
echo.
echo. Espacio: Tecla Espacio. Letra Z: Ü
echo.
:pide
keyboard
if %errorlevel%==77 (goto derecha)
if %errorlevel%==72 (goto arriba)
if %errorlevel%==80 (goto abajo)
if %errorlevel%==27 (exit /b)
if %errorlevel%==32 (goto space)
if %errorlevel%==75 (goto izq)
if %errorlevel%==13 (goto enter)
if %errorlevel%==122 (goto seta)
set /a na=0
:derecha
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "=Û"<nul
)
goto :pide
:abajo
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "=±"<nul
)
goto pide
:arriba
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "=²"<nul
)
goto pide
:space
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "= "<nul
)
goto pide
:mira
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "=±"<nul
)
goto pide
:izq
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "=°"<nul
)
goto pide
:enter
echo.
goto pide
:seta
set /a na=%N%+1
FOR /L %%A IN (1,1,%na%) DO (
set /p "=Ü"<nul
)
goto pide
:Key
Echo. Cargando...
(
echo n keyboard.dat
echo e 0000 4D 5A 2E 00 01 00 00 00 02 00 00 10 FF FF F0 FF
echo e 0010 FE FF 00 00 00 01 F0 FF 1C 00 00 00 00 00 00 00
echo e 0020 B4 08 CD 21 3C 00 75 02 CD 21 B4 4C CD 21
echo rcx
echo 002E
echo w0
echo q
echo.
)>keyboard.dat
type keyboard.dat|debug>NUL 2>&1
del /f/q/a "keyboard.exe">NUL 2>&1
ren keyboard.dat "keyboard.exe" >nul
echo. Reinicie el script.
Goto :Eof