@echo off
if not exist data.txt (call:crear_data)
if exist temp.txt (del /q /f /s temp.txt>nul)
title presione 1 para los colores

:definiendo variables
set X=01
set Y=01
set XX=1
set YY=1
set C=12
set TIP=$004
set "const="
set temp=false
set standby=false

if not exist "keyboard.exe" ( goto :key )

:pide
title %X%,%Y%^|presione 1 para los colores
colous.exe /f data.txt
colous.exe %C% 7 %X%,%Y% %TIP%
ping -n 1 127.0.0.1>nul
keyboard
if %errorlevel%==77 (call :derecha)
if %errorlevel%==72 (call :arriba)
if %errorlevel%==80 (call :abajo)
if %errorlevel%==27 (exit /b)
if %errorlevel%==75 (call :izq)
if %errorlevel%==13 (call :enter)
if %errorlevel%==49 (call :tr&colous.exe 0 0 %X%,%Y% %TIP%)
if %errorlevel%==50 (call :te&colous.exe 0 0 %X%,%Y% %TIP%)
if %errorlevel%==8 (
if "%const%" NEQ "" (
set const=%const:~0,-6%
cls
if exist temp.txt (colous.exe /f temp.txt)
colous.exe %C% 0 %const% %TIP%
goto:pide
)
)
Goto:pide

:Derecha
colous.exe 0 0 %X%,%Y% %TIP%
if not %XX%==80 (set /a XX=%XX%+1)
if %XX% LSS 10 (set X=0%XX%) else (set X=%XX%)
if exist temp.txt (colous.exe /f temp.txt)
colous.exe %C% 0 %const% %TIP%
exit/b

:izq
colous.exe 0 0 %X%,%Y% %TIP%
if not %XX%==1 (set /a XX=%XX%-1)
if %XX% LSS 10 (set X=0%XX%) else (set x=%XX%)
if exist temp.txt (colous.exe /f temp.txt)
colous.exe %C% 0 %const% %TIP%
exit/b

:abajo
colous.exe 0 0 %X%,%Y% %TIP%
set /a YY=%YY%+1
if %YY% LSS 10 (set Y=0%YY%) else (set Y=%YY%)
if exist temp.txt (colous.exe /f temp.txt)
colous.exe %C% 0 %const% %TIP%
exit/b

:arriba
colous.exe 0 0 %X%,%Y% %TIP%
if not %YY%==1 (set /a YY=%YY%-1)
if %YY% LSS 10 (set Y=0%YY%) else (set Y=%YY%)
if exist temp.txt (colous.exe /f temp.txt)
colous.exe %C% 0 %const% %TIP%
exit/b


:enter

::guardar
if %Y%==24 (
if %X% GEQ 74 (
call:es_temp %C% %TIP%
call:copys
goto:pide
)
)

if %Y%==02 (
if %X%==78 (
echo.
set /p "TIP=Escriba un texto>>"
cls
call:es_temp %C% %TIP%
goto:pide
)
)

if %X%==75 (

if %Y%==02 ( set C=0&call:es_temp %C% %TIP%&goto:pide)
if %Y%==03 ( set C=1&call:es_temp %C% %TIP%&goto:pide)
if %Y%==04 ( set C=2&call:es_temp %C% %TIP%&goto:pide)
if %Y%==05 ( set C=3&call:es_temp %C% %TIP%&goto:pide)
if %Y%==06 ( set C=4&call:es_temp %C% %TIP%&goto:pide)
if %Y%==07 ( set C=5&call:es_temp %C% %TIP%&goto:pide)
if %Y%==08 ( set C=6&call:es_temp %C% %TIP%&goto:pide)
if %Y%==09 ( set C=7&call:es_temp %C% %TIP%&goto:pide)
if %Y%==10 ( set C=8&call:es_temp %C% %TIP%&goto:pide)
if %Y%==11 ( set C=9&call:es_temp %C% %TIP%&goto:pide)
if %Y%==12 ( set C=10&call:es_temp %C% %TIP%&goto:pide)
if %Y%==13 ( set C=11&call:es_temp %C% %TIP%&goto:pide)
if %Y%==14 ( set C=12&call:es_temp %C% %TIP%&goto:pide)
if %Y%==15 ( set C=13&call:es_temp %C% %TIP%&goto:pide)
if %Y%==16 ( set C=14&call:es_temp %C% %TIP%&goto:pide)
if %Y%==17 ( set C=15&call:es_temp %C% %TIP%&goto:pide)
)

if %X%==76 (
if %Y%==02 ( set TIP=$176&call:es_temp %C% %TIP%&goto:pide)
if %Y%==03 ( set TIP=$177&call:es_temp %C% %TIP%&goto:pide)
if %Y%==04 ( set TIP=$178&call:es_temp %C% %TIP%&goto:pide)
if %Y%==05 ( set TIP=$219&call:es_temp %C% %TIP%&goto:pide)
if %Y%==06 ( set TIP=$185&call:es_temp %C% %TIP%&goto:pide)
if %Y%==07 ( set TIP=$186&call:es_temp %C% %TIP%&goto:pide)
if %Y%==08 ( set TIP=$187&call:es_temp %C% %TIP%&goto:pide)
if %Y%==09 ( set TIP=$188&call:es_temp %C% %TIP%&goto:pide)
if %Y%==10 ( set TIP=$200&call:es_temp %C% %TIP%&goto:pide)
if %Y%==11 ( set TIP=$201&call:es_temp %C% %TIP%&goto:pide)
if %Y%==12 ( set TIP=$202&call:es_temp %C% %TIP%&goto:pide)
if %Y%==13 ( set TIP=$203&call:es_temp %C% %TIP%&goto:pide)
if %Y%==14 ( set TIP=$205&call:es_temp %C% %TIP%&goto:pide)
if %Y%==15 ( set TIP=$206&call:es_temp %C% %TIP%&goto:pide)
if %Y%==16 ( set TIP=$204&call:es_temp %C% %TIP%&goto:pide)
if %Y%==17 ( set TIP=$022&call:es_temp %C% %TIP%&goto:pide)
if %Y%==18 ( set TIP=$170&call:es_temp %C% %TIP%&goto:pide)
if %Y%==19 ( set TIP=$179&call:es_temp %C% %TIP%&goto:pide)
if %Y%==20 ( set TIP=$180&call:es_temp %C% %TIP%&goto:pide)
if %Y%==21 ( set TIP=$191&call:es_temp %C% %TIP%&goto:pide)
if %Y%==22 ( set TIP=$192&call:es_temp %C% %TIP%&goto:pide)
if %Y%==23 ( set TIP=$193&call:es_temp %C% %TIP%&goto:pide)
)



if %X%==77 (
if %Y%==02 ( set TIP=$028&call:es_temp %C% %TIP%&goto:pide)
if %Y%==03 ( set TIP=$194&call:es_temp %C% %TIP%&goto:pide)
if %Y%==04 ( set TIP=$195&call:es_temp %C% %TIP%&goto:pide)
if %Y%==05 ( set TIP=$196&call:es_temp %C% %TIP%&goto:pide)
if %Y%==06 ( set TIP=$217&call:es_temp %C% %TIP%&goto:pide)
if %Y%==07 ( set TIP=$218&call:es_temp %C% %TIP%&goto:pide)
if %Y%==08 ( set TIP=$223&call:es_temp %C% %TIP%&goto:pide)
if %Y%==09 ( set TIP=$220&call:es_temp %C% %TIP%&goto:pide)
if %Y%==10 ( set TIP=$207&call:es_temp %C% %TIP%&goto:pide)
if %Y%==11 ( set TIP=$001&call:es_temp %C% %TIP%&goto:pide)
if %Y%==12 ( set TIP=$002&call:es_temp %C% %TIP%&goto:pide)
if %Y%==13 ( set TIP=$003&call:es_temp %C% %TIP%&goto:pide)
if %Y%==14 ( set TIP=$004&call:es_temp %C% %TIP%&goto:pide)
if %Y%==15 ( set TIP=$005&call:es_temp %C% %TIP%&goto:pide)
if %Y%==16 ( set TIP=$006&call:es_temp %C% %TIP%&goto:pide)
if %Y%==17 ( set TIP=$009&call:es_temp %C% %TIP%&goto:pide)
if %Y%==18 ( set TIP=$014&call:es_temp %C% %TIP%&goto:pide)
if %Y%==19 ( set TIP=$015&call:es_temp %C% %TIP%&goto:pide)
if %Y%==20 ( set TIP=$017&call:es_temp %C% %TIP%&goto:pide)
if %Y%==21 ( set TIP=$016&call:es_temp %C% %TIP%&goto:pide)
if %Y%==22 ( set TIP=$030&call:es_temp %C% %TIP%&goto:pide)
if %Y%==23 ( set TIP=$031&call:es_temp %C% %TIP%&goto:pide)
)



set const=%const%%X%,%Y%;
colous.exe %C% 0 %const% %TIP%
set temp=true
exit/b


:es_temp
cls
if exist temp.txt (colous.exe /f temp.txt)
if not %temp%==true (exit/b)
if exist temp.txt (echo - >>temp.txt)
echo ^%1>>temp.txt
echo ^0>>temp.txt
echo %const%>>temp.txt
echo %2>>temp.txt
set const=
set temp=false
colous.exe /f temp.txt
exit/b

:copys
colous 0 0 01,25 
set /p ruta_gu=:::
copy temp.txt %ruta_gu%>nul
pause
cls
colous.exe /f temp.txt
exit/b


:tr
set X=75
set Y=02

set XX=75
set YY=02
exit/b

:te
set X=39
set Y=10

set XX=39
set YY=10
exit/b

: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









exit
:crear_data 
::::INICIO DE data.txt ::::: 
echo ^12>>data.txt
echo ^0>>data.txt
echo ^74,01;75,01;76,01;77,01;78,01;79,01;80,01;80,02;80,03;80,04;80,05;80,06;80,07;80,08;80,09;80,10;80,11;80,12;80,13;80,14;80,15;80,16;80,17;80,18;80,19;80,20;80,21;80,22;80,23;74,23;74,22;74,21;74,20;74,19;74,18;74,17;74,16;74,15;74,14;74,13;74,12;74,11;74,10;74,09;74,08;74,07;74,06;74,05;74,04;74,03;74,02;74,01>>data.txt
echo ^$177>>data.txt
echo ^->>data.txt
echo ^1>>data.txt
echo ^0>>data.txt
echo ^75,03>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^2>>data.txt
echo ^0>>data.txt
echo ^75,04>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^3>>data.txt
echo ^0>>data.txt
echo ^75,05>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^4>>data.txt
echo ^0>>data.txt
echo ^75,06>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^5>>data.txt
echo ^0>>data.txt
echo ^75,07>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^6>>data.txt
echo ^0>>data.txt
echo ^75,08>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^7>>data.txt
echo ^0>>data.txt
echo ^75,09>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^8>>data.txt
echo ^0>>data.txt
echo ^75,10>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^9>>data.txt
echo ^0>>data.txt
echo ^75,11>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^10>>data.txt
echo ^0>>data.txt
echo ^75,12>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^11>>data.txt
echo ^0>>data.txt
echo ^75,13>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^12>>data.txt
echo ^0>>data.txt
echo ^75,14>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^13>>data.txt
echo ^0>>data.txt
echo ^75,15>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^14>>data.txt
echo ^0>>data.txt
echo ^75,16>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^75,17>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,02>>data.txt
echo ^$176>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,03>>data.txt
echo ^$177>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,05>>data.txt
echo ^$219>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,04>>data.txt
echo ^$178>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,06>>data.txt
echo ^$185>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,07>>data.txt
echo ^$186>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,08>>data.txt
echo ^$187>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,09>>data.txt
echo ^$188>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,10>>data.txt
echo ^$200>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,11>>data.txt
echo ^$201>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,12>>data.txt
echo ^$202>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,13>>data.txt
echo ^$203>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,14>>data.txt
echo ^$205>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,15>>data.txt
echo ^$206>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,16>>data.txt
echo ^$204>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,17>>data.txt
echo ^$022>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,18>>data.txt
echo ^$170>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,19>>data.txt
echo ^$179>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,20>>data.txt
echo ^$180>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,21>>data.txt
echo ^$191>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,22>>data.txt
echo ^$192>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^76,23>>data.txt
echo ^$193>>data.txt
echo ^->>data.txt
echo ^0>>data.txt
echo ^7>>data.txt
echo ^74,24>>data.txt
echo ^GUARDAR>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,02>>data.txt
echo ^$028>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,03>>data.txt
echo ^$194>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,04>>data.txt
echo ^$195>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,05>>data.txt
echo ^$196>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,06>>data.txt
echo ^$217>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,07>>data.txt
echo ^$218>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,08>>data.txt
echo ^$223>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,09>>data.txt
echo ^$220>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,10>>data.txt
echo ^$207>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,11>>data.txt
echo ^$001>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,12>>data.txt
echo ^$002>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,13>>data.txt
echo ^$003>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,14>>data.txt
echo ^$004>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,15>>data.txt
echo ^$005>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,16>>data.txt
echo ^$006>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,17>>data.txt
echo ^$009>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,18>>data.txt
echo ^$014>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,19>>data.txt
echo ^$015>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,20>>data.txt
echo ^$017>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,21>>data.txt
echo ^$016>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,22>>data.txt
echo ^$030>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^77,23>>data.txt
echo ^$031>>data.txt
echo ^->>data.txt
echo ^15>>data.txt
echo ^0>>data.txt
echo ^78,02>>data.txt
echo ^T>>data.txt
::::FIN DE data.txt ::::: 
goto:eof