CMD: Random generator

@ECHO OFF

:_START

:: Чистим переменные
SET "_0="
SET "_1="
SET "R="


:: блок настроек
:: Сколько раз вызывать функцию
SET N=1000

:: до какого максимального числа генерировать числа
SET MAX=2


:: тело программы, где идет вызов функции N раз.
SET i=0
:_LOOP
IF NOT %i%==%N% (CALL :_PROC & GOTO :_LOOP) ELSE (GOTO :_PRNT)


:: Обработка информации
:_PROC
:: непойми чо делаем...
SET /A R=1+%MAX%*%random%/32768-1
::ECHO.%R%
IF %R%==0 (SET /A "_0+=1")
IF %R%==1 (SET /A "_1+=1")
SET /A i+=1
GOTO :EOF


:: Функция генерации случайного числа от 1 до 0
:_F_RND
:: Опять непойми чо делаем...
SET /A R=1+%MAX%*%random%/32768-1
GOTO :EOF


:: Вывод информации на экран
:_PRNT
SET /A _0_ver=%_0%*100/%N%
SET /A _1_ver=%_1%*100/%N%
ECHO.
ECHO.   =====================================
ECHO.    0=[ %_0% ] Вероятность: [ %_0_ver%^%% ]
ECHO.    1=[ %_1% ] Вероятность: [ %_1_ver%^%% ]
ECHO.   =====================================
ECHO.
ECHO.Нажмите любую клавишу, чтобы повторить тест.
ECHO.Ctrl+C чтобы выйти.
PAUSE>nul
GOTO :_START
GOTO :EOF