@echo off & setlocal enabledelayedexpansion
call :baro trauma & call :baro meter
call :baro graph & call :baro grams
call :baro que & call :alert
:baro
set /A wind=%RANDOM% %%50
set /A azimuth=%RANDOM% %%50
set %~1=%wind% %azimuth% & exit /B 0
:approaching
if %~2 GTR %~3 set %~1=%~3
if %~2 LEQ %~3 set %~1=%~2
exit /B 0
:alert
for /L %%B in (0,1,35) do (
set "dead=" & set "lung=O [o] ; : . "
for /L %%V in (0,1,50) do (
set /A vein=%%V+!RANDOM! %%2
call :ventilate fluid !vein! %%B %trauma%
call :ventilate sucks !vein! %%B %meter%
call :ventilate live !vein! %%B %graph%
call :ventilate pressure !vein! %%B %grams%
call :ventilate wall !vein! %%B %que%
call :approaching minimums !fluid! !sucks!
call :approaching minimums !minimums! !live!
call :approaching minimums !minimums! !pressure!
call :approaching minimums !minimums! !wall!
if !minimums! GTR 13 (set "dead=!dead! ") else (
call set labour=%%lung:~!minimums!,1%%
set dead=!dead!!labour!))
echo !dead!)
endlocal
:ventilate
set /A %~1=((30*(%~2-%~4)*(%~2-%~4)+(%~3-%~5)*(%~3-%~5)))/30
exit /B 0