utility1.bat

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::: utility1.bat Split from Silent_Mode.bat for Free Use   :::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::: Original version 8.5.6.75 20230716132435 by -JpE-
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

  if not defined vers set vers=v8.7.0.03 20231006232214 by -JpE-
  set /a size3=0
  if not defined util3 set util3="%bats%\utility3.bat"
  if not exist %util3% (
    echo . & echo Can't find utility3.bat! & echo . & pause & echo . & exit /b)
  if not defined sizer set sizer="%bats%\string_length.bat"
  if not exist %sizer% (
    echo . & echo Can't find %sizer% & echo . & pause & echo . & exit /b)
  set charsForPadding=*=
  set txt1= Introducing:  My-ShotCaller! %vers%
  if exist %sizer% call %sizer% charsLen charsForPadding
  if exist %sizer% call %sizer% actualSize2 txt1
  if %charsLen% gtr 0 set /a size2=((%actualSize2% + (2*%charsLen%)) / %charsLen%)
  call :padme %size2%
  set line1=%line1%%charsForPadding%
  echo . & echo . & VER & echo .
  echo . & echo %line1%
  echo =%charsForPadding%%txt1%%charsForPadding%*
  echo %line1% & echo .
  exit /b

::: Pads string %line1% to passed length
:padme <intVar lengthOfTheStringRequired>
  set line1=
  for /l %%k in (1, 1, %~1) do ( call :loop3
    if %errorlevel% gtr 0 goto except
  )
  exit /b %errorlevel%

:loop3
  set line1=%line1%%charsForPadding%
  exit /b

:except
  set /a code2=7 & set txt1=An Exception was caught in :padme
  set sender1=utility1.bat
  if exist %util3% (
    call %util3% t v "%txt1%" "%sender1%" "%errorlevel%" "%code2%" )
  exit



  :::   100% -JpE-