Faire un prog verbe irrégulier

Salut a tous voila je veux faire un petit programme qui traduit les ervbes irrgulier:
Voici le code
:ClrHome
:getKey"Verbes ?",A
:if A=Couper
:Then
:Output(1,1,"cut cut cut"
ause
:If A=etre
:Then
:ClrHome
:Ouput(1,1,"Be was were been"
Mon probleme est que lorsque je rentre le verbe couper il me met le tracuction du verbe etre. Commen faire pour régler ce probleme fort embetant??
Voici le code
:ClrHome
:getKey"Verbes ?",A
:if A=Couper
:Then
:Output(1,1,"cut cut cut"

:If A=etre
:Then
:ClrHome
:Ouput(1,1,"Be was were been"
Mon probleme est que lorsque je rentre le verbe couper il me met le tracuction du verbe etre. Commen faire pour régler ce probleme fort embetant??