@echo off
@mode con cols=90 lines=25
setlocal enabledelayedexpansion
:start
Color F9
Echo Puede salir cerrando la consola con el bot¢n X.
set num=0
set /a num=%random% %% 701
if %num% geq 2 (if %num% leq 700 (goto :sig))
goto :buscarnumero
:sig
set /a nume=%num%-1
set a=0
for /f "skip=%nume% delims=" %%a in ('type "Pre.txt"') do (
if !a!==0 (
set preg=%%a
set a=1))
set b=0
for /f "skip=%nume% delims=" %%n in ('type "Res.txt"') do (
if !b!==0 (
set rta=%%n
set b=1))
echo Nombre el i¢n %preg%
echo.
echo Escriba la respuesta:
set /p resp=
if %resp%==%rta% (goto bien) else (goto mal)
:bien
colous 10 15 13,10 "$201$205$205$205$205$205$205$205$205$205$205$187"
colous 10 15 13,11 "$186 Correcto $186"
colous 10 15 13,12 "$200$205$205$205$205$205$205$205$205$205$205$188"
pause>nul
cls
goto start
:mal
colous 10 15 13,10 "$201$205$205$205$205$205$205$205$205$205$205$205$205$187"
colous 10 15 13,11 "$186 Incorrecto $186"
colous 10 15 13,12 "$200$205$205$205$205$205$205$205$205$205$205$205$205$188"
pause>nul
cls
goto start
exit