Voilà mon programme:
http://perso.wanadoo.fr/tisofts/divers/example3.zip