Costo de las llamdas

@echo off
:menu
cls color DB
title Programa que calcula el costo de las diferentes llamadas que se plantean
echo.
echo ******************************************************
echo * * Escoger el tipo de llamada que desea realizar
echo * * a. Llamada internacional
echo * * b. Llamada nacional
echo * * c. Llamada local
echo * * d. Salir
echo ******************************************************
echo.
set /p llamada=Seleccione un tipo de llamada:
if %llamada%==a goto internacional
if %llamada%==b goto nacional
if %llamada%==c goto local
if %llamada%==d goto salida
echo Tipo de llamada no identificada
pause
goto menu

:internacional
cls
title Llamada internacional
color 3E
echo.
echo Llamada internacional
echo.
set /p in=Numero de minutos utilizados:
if %in% LEQ 3 goto interm
if %in% GTR 3 goto intern

:interm
set /a costo=%in% * 104
echo El costo de la llamada es %costo%
pause>nul
goto menu

:intern
set /a min=in - 3
set /a costo=(3*104)+(%min%*413)
echo El costo de la llamada es %costo%
pause>nul
goto menu

:nacional
cls
title Llamada nacional
color 0A
echo.
echo Llamada Nacional
echo.
set /p in=Numero de minutos utilizados:
if %in% LEQ 5 goto nacim
if %in% GTR goto nacin

:nacim
set /a costo=%in% * 413
echo El costo de la llamada es %costo%
pause>nul
goto menu

:nacin
set /a min=in - 5
set /a costo= (5*413)+((%min%/3)*805)
echo El costo de la llamada es %costo%
pause>nul
goto menu

:local
cls
title Llamada local
color 0C
echo.
echo Llamada local
echo.
set /p in=Numero de minutos a utilizar:
if %in% LEQ 2 goto locm
if %in% GTR 2 goto locn

:locm
set /a costo=44
echo El costo de la llamada es %costo%
pause>nul
goto menu

:locn
set /a min=in - 2
set /a costo=44+(%min% * 52)
echo El costo de la llamada es %costo%
pause>nul
goto menu

:salida
cls
echo Fin del programa
echo Gracias
pause>nul
cls