demande de correction pour l'exercice 4

@echo off
title calculatrice
mode con cols=43 lines=25
color 1c
:debut
cls
set /a val1=0
echo entre votre premiere valeurs:
set /p val1=

set "poshcurseur=1"
set "curseurh4=  "
set "curseurh3=  "
set "curseurh2=  "
set "curseurh1=  "

set "pasdecurseur=  "
set "curseur=-"
:boucle
set curseurh%poshcurseur%=%curseur%
cls
echo quelle operation souhaiter vous effectuez?
echo. %curseurh1% addition
echo. %curseurh2% soustraction
echo. %curseurh3% multiplication
echo. %curseurh4% division

set "curseurh%poshcurseur%=%pasdecurseur%"

keyx.exe

if %errorlevel%==72 (

if %poshcurseur% gtr 1 (
set /a poshcurseur-=1
)
)
if %errorlevel%==80 (

if %poshcurseur% lss 4 (
set /a poshcurseur+=1
)
)
if %errorlevel%==13 (

if %poshcurseur%==1 (
call :addition
)
if %poshcurseur%==2 (
call :soustraction
)
if %poshcurseur%==3 (
call :multiplication
)
if %poshcurseur%==4 (
call :division
)
if %poshcurseur%==5 (
goto quitterceprogramme
)
)
goto boucle

:addition
cls
echo rapelle: vous voulais additioner %val1%
echo entre votres deuxieme valeur:
set /p val2=
set /a add=%val1%+%val2%
cls
echo  %val1% + %val2% = %add%
pause>nul
goto debut

:soustraction
cls
echo rapelle: vous voulais soustraire %val1%
echo entre votres deuxieme valeur:
set /p val2=
set /a sous=%val1%-%val2%
cls
echo %val1% - %val2% = %sous%
pause>nul
goto debut

:multiplication
cls
echo rapelle: vous voulais multiplier %val1%
echo entre votres deuxieme valeur:
set /p val2=
set /a multi=%val1%*%val2%
cls
echo %val1% * %val2% = %multi%
pause>nul
goto debut

:division
cls
echo rapelle: vous voulais diviser %val1%
echo entre votres deuxieme valeur:
set /p val2=
set /a div=%val1%/%val2%
cls
echo %val1% / %val2% = %div%
pause>nul
goto debut