@echo off
@mode con cols=200 lines=68
colous cursoroff 
title DISCO
set txtcolor=A
set OLD=16

:NUMBERSELECT
CLS
SET/A NEW=%RANDOM%/1000
IF %NEW% LEQ 15 GOTO BLW15(1)
IF %NEW% GEQ 15 GOTO ABV15


:BLW15(1) 
ECHO %NEW% 
GOTO NUMBERSELECT2

:NUMBERSELECT2
CLS
SET/A NEW=%RANDOM%/1000
IF %NEW% LEQ 15 GOTO BLW15(2)
IF %NEW% GEQ 15 GOTO ABV15

:BLW15(2)
if %OLD% EQU %NEW% goto NUMBERSELECT
 if %NEW% EQU 0 goto NUMBERSELECT
if %OLD% NEQ %NEW% goto PROJECTCOLOR

:PROJECTCOLOR
set OLD=%NEW%
GOTO %NEW%

:ABV15
GOTO NUMBERSELECT

:1
set bgcolor=1
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT
 
:2
set bgcolor=2
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:3
set bgcolor=3
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:4
set bgcolor=4
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:5
set bgcolor=5
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:6
set bgcolor=6
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:7
set bgcolor=F
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:8
set bgcolor=8
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:9
set bgcolor=9
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:10
set bgcolor=A
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:11
set bgcolor=B
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:12
set bgcolor=C
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:13
set bgcolor=D
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:14
set bgcolor=E
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT

:15
set bgcolor=7
color %bgcolor%%txtcolor%
ping -n 1 0.0.0.0>nul
goto NUMBERSELECT