Ms-Dos - Programa en batch que dado un número por parámetro sume sus dígitos

@ECHO OFF

CLS

TITLE DIGITOS

SET /a NUMERO = %1

SET /a COPIANUMERO = NUMERO

:inicio

IF %NUMERO% LSS 0 GOTO error

GOTO for

:for

if %NUMERO% GTR 0 (

SET /a RESULTADO = RESULTADO + NUMERO%%10

SET /a NUMERO=%NUMERO%/10

goto for

)

echo La suma de los digitos de %COPIANUMERO% es %RESULTADO%.

SET /a RESULTADO=0

GOTO Fin

:error

echo el numero esta fuera de rango

GOTO fin

:fin

@ECHO OFF

CLS

TITLE DIGITOS

IF "%1" == "" (

    echo Falta el parametro del numero.

    goto :EOF

)

SET /a NUMERO = %1

SET /a COPIANUMERO = NUMERO

@ECHO OFF

CLS

TITLE DIGITOS

IF "%1" == "" set /P NUMERO=Introduzca un numero:

IF "%Numero%" == "" goto :EOF

SET /a NUMERO = %1

SET /a COPIANUMERO = NUMERO