Fatorial de um Número Positivo

@echo off
::Programa: Fatorial de um Numero Positivo
::Data:28/03/2020
::by Ricardo530

:ini
Title Fatorial de um Numero
setlocal enabledelayedexpansion

set /p "num=Fatorial de: "
set /a n=%num%
set /a ant=%n%-1

for /l %%i in (%ant%,-1,1) do (
set /a n = !n! * %%i
cls

set /p .=<nul Fatorial de %n%

)
echo.

set /p.=<nul %num%^^! =

for /l %%j in (%num%,-1,1) do (
set /p .=<nul  *%%j
)

if %num% equ 0 (set /a n=1&echo  !n!

) else (

Call :Fatorial_milhar
)

:Fatorial_milhar
Call :tam !n!
if %num% equ 1 (set /a n=1&echo = !n!)
if %num% equ 2 (echo = !n!)
if %num% equ 3 (echo = !n!)
if %num% equ 4 (echo = !n!)
if %num% equ 5 (echo = !n!)
if %num% equ 6 (echo = !n!)

if %qtd% equ 4 (echo = !n:~0,1!.!n:~-3!)
if %qtd% equ 5 (echo = !n:~0,2!.!n:~-3!)
if %qtd% equ 6 (echo = !n:~0,3!.!n:~-3!)

if %qtd% equ 7 (echo = !n:~0,1!.!n:~1,3!.!n:~-3!)
if %qtd% equ 8 (echo = !n:~0,2!.!n:~2,3!.!n:~-3!)
if %qtd% equ 9 (echo = !n:~0,3!.!n:~3,3!.!n:~-3!)

if %qtd% equ 10 (echo = !n:~0,1!.!n:~1,3!.!n:~4,3!.!n:~-3!)
if %qtd% equ 11 (echo = !n:~0,2!.!n:~2,3!.!n:~5,3!.!n:~-3!)
if %qtd% equ 12 (echo = !n:~0,3!.!n:~3,3!.!n:~6,3!.!n:~-3!)

echo.
set /p Sair="Deseja Sair [S,N]: "
echo.
if /i [%Sair%] equ [N] (cls&set /a cont=0&Goto ini)
if /i [%Sair%] equ [S] (exit/b 0&goto:eof)
pause>nul
goto:eof


:tam
set var=%*
if not defined cont (set /a cont=0)
if not "!var:~%cont%,1!"=="" (set /a cont+=1&goto tam)
set qtd=%cont%
goto:eof