@echo off
setlocal enabledelayedexpansion
 
if not exist ax.dat (
ECHO e100 B8 1 0'3'DB CD'3'B0 3'C'CD'3'B DB't'FA 91 D3 EA D3 E8 91 C3>ax.dat
FOR %%! in (.g116 .q) do ECHO%%!>> ax.dat
)
 
:Init
for /l %%a in (0,1,30) do (
for /l %%b in (0,1,25) do (
set "X%%aY%%b= "))
 
:Graphic
cls
For /l %%d in (0,1,25) do (
For /l %%e in (0,1,30) do (
Set Lin_%%d=!Lin_%% style="color: #448888;">d!!X%%eY%%d!))
For /l %%f in (0,1,25) do (echo.!Lin_%% style="color: #448888;">f!)
Call :Mouse
For /l %%f in (0,1,25) do (Set "Lin_%%f=")
Goto :Graphic
 
:Mouse
For /f "skip=3 tokens=6-8 delims== " %%a in ('DEBUG ^< ax.dat') do (
Set /a "X_Axis=0x%%a"
Set /a "Y_Axis=0x%%c"
Set X!X_Axis!Y!Y_Axis!=*
Goto :Eof

:getlabel
for /f "tokens=8" %%a in ('^(echo USB^)^|label /MP %1:^|find "unidad"') do (set label=%%a)
if "%label%"=="tiene" set label=Unidad
(echo %label%)|label /MP %1:>nul
if "%label%"=="Unidad" set label=USB
goto :eof

@echo off
::Descomposicion En Factores Primos
setlocal enabledelayedexpansion
 
Set /a "C=%1*1"
If not %C% EQU %1 (Echo.No Ha Introducido un Numero..&Goto :Eof)
If "%1"=="1" (Echo.1&Goto :Eof)
Set Lim=%1
for /l %%n in (1,1,%Lim%) do (
call :EsPrimo %%n
if "!Primo!"=="True" Call :DescPrimo %Lim% %%n
)
Echo.%Op:~1%
Goto :Eof
 
:EsPrimo
set divisores=
set "numero=%1"
for /l %%_ in (1,1,%numero%) do (
set /a "operacion=%numero%%%%%_"
if !operacion! equ 0 set /a "divisores+=1"
)
if %divisores% equ 2 (Set Primo=True) else (Set Primo=False)
Goto :Eof
 
:DescPrimo
Set Val=%1
:Desc2
Set Var=%Op%
Set /a C=%Var:~1%
If %C% GEQ %Lim% Goto :Eof
Set /a Mod=(%Val%)%%(%2)
If %Mod% EQU 0 set Op=%Op%*%2&Set /a Val=(%Val%)/(%2)&Goto :Desc2
Goto :Eof

<argumento>
            <nombre>SmartGenius</nombre>
            <tipo>Usuario</tipo>
</argumento>
<argumento>
            <nombre>Novlucker</nombre>
            <tipo>Moderador</tipo>
</argumento>
<argumento>
            <nombre>Leo Gutierrez</nombre>
            <tipo>Moderador</tipo>
</argumento>
<argumento>
            <nombre>0x0309</nombre>
            <tipo>Usuario</tipo>
</argumento>

@echo off
::Coded by SmartGenius
 
setlocal enabledelayedexpansion
:Init
for /f "tokens=3 delims=^>^<" %%a in ('find "nombre" datos.xml') do (
set /a N+=1
set Nombre!N!=%% style="color: #448888;">a
)
for /f "tokens=3 delims=^>^<" %%b in ('find "tipo" datos.xml') do (
set /a T+=1
set Tipo!T!=%% style="color: #448888;">b
)
echo. Datos del XML
for /l %%c in (1,1,!N!) do (echo. Dato%%c: !Nombre%% style="color: #448888;">c! - !Tipo%% style="color: #448888;">c!)
echo.
pause
exit