rebol [
title: "Convertisseur Franc/Euro"
]
convertir: function [ valeur /franc /euro ] [ somme ] [
somme: to-decimal valeur
either franc [
somme: somme * 6.55957
] [ somme: somme / 6.55957 ]
prix/text: copy (to-string somme)
show prix
]
view layout [
prix: field 200x20 ""
across
franc: radio of 'monnaie true [ convertir/franc prix/text ]
text "Francs"
euro: radio of 'monnaie [ convertir/euro prix/text ]
text "Euro"
return
button "Quitter" 255.0.0 [ quit ]
button "Calculer" [
either franc/data = true [
convertir/franc prix/text
] [ convertir/euro prix/text ]
]
]