Curieux problème de math.

rem ============================================================================
rem               Curieux problème de math
rem ============================================================================
dim age
if message_input("Quel est votre âge", "entre 10 et 99" , "70") = 1
   age = val(message_text$)
   print Mon_Age(age)
end_if
end
rem ============================================================================
' Retourne MonAge répété 4 fois ... étonnant non ?
FNC Mon_Age(MonAge)
    result 13837*Age*73
END_FNC
rem ============================================================================