<script language="JavaScript" type="text/javascript">
   /*<![CDATA[  XML blockout */
   <!--
   function load() {
    /////////////// Called by BODY tag when page first loads ...

    // test browser version ...
    if (parseInt(navigator.appVersion.charAt(0)) < 4) {alert('Désolé, ces fonctions nécessitent \n JavaScript')}
     else {

      // clear framing if page was referred from site with frames ...
      if (self != top) {top.location.href = self.location.href};

      // enter default into calculator field ...
      document.forms[0].elements[0].value = '                  .';

      // enter number or numeral into Roman Test field ...
      gen(); document.forms[1].elements[3].value = '';
	  // give focus to numerals conversion input field ...
      document.forms[0].elements[0].focus()
     }
   }
   /* XML end  ]]>*/
   // -->
  </script>
  <script language="JavaScript1.1" type="text/javascript">
   /*<![CDATA[  XML blockout */
   <!--
   function cvt() {
   /////////////// Roman numeral <--> number conversion ...

    // Evaluates input string passed from FORM; either converts a number to a
    // Roman numeral, or converts a Roman numeral to a number.

    // get string passed from FORM and declare local variables ...
    var inp = document.forms[0].elements[0].value, num = '', i = 0, n = 0;

    // trim leading spaces and trailing spaces or words...
    while (inp.charAt(0) == ' ') {inp = inp.substr(1)};
    if (inp.indexOf(' ') != -1) {inp = inp.substr(0, inp.indexOf(' '))}

    // check for valid input string ...
    if (inp == '') {msg = 'Aucune donnée entrée'}

     else {

      // check if input string is a number ...
      if (isNaN(inp)) {

       // input was a not a number, so convert Roman -> number ...
       num = inp;

       // for lower-case input, allow 'u' as alternate for 'v' and 'ij' as alternate for trailing 'ii' ...
       if (num == num.toLowerCase()) {
        i = num.indexOf('u'); if (i != -1) {num = num.substr(0, i) + 'v' + num.substr(i + 1, num.length - i)};
        if (num.substr(num.length - 2, 2) == 'ij') {num = num.substr(0, num.length - 2) + 'ii'};
       }

       n = evalRoman(num);
       if (n == -1) {msg = inp + ' est erroné'}
        else {msg = n + ' égal ' + inp};
      }
       else {

        // input was a number so convert number -> Roman ...
        n = Math.round(parseFloat(inp));
        if (n < 1 || n > 4999) {msg = n + ' hors limites (1 et 4999)'}
         else {
          if (n != parseFloat(inp)) {alert(inp + ' sera arrondi à ' + n)};
          msg = cvts(n) + ' égal ' + n;
         }

       }

     }

    document.forms[0].elements[0].value = msg;
    document.forms[0].elements[0].focus()

   }

   function evalRoman(num) {
    // evaluate Roman numeral string ...
    var i = 0, h = 0, n, t = 0, u = 0;

    // ensure upper case and evaluate thousands ...
    num = num.toUpperCase();
    while (num.charAt(i) == 'M') {i ++};
    n = i * 1000;

    // evaluate hundreds ...
    if (num.substr(i, 2) == 'CM') {h = 9; i += 2}
     else if (num.substr(i, 1) == 'D') {h = 5; i ++}
      else if (num.substr(i, 2) == 'CD') {h = 4; i += 2};
    if (h == 0 || h == 5) {while (num.charAt(i) == 'C') {h ++; i ++}};
    n += h * 100;

    // evaluate tens ...
    if (num.substr(i, 2) == 'XC') {t = 9; i += 2}
     else if (num.substr(i, 1) == 'L') {t = 5; i ++}
      else if (num.substr(i, 2) == 'XL') {t = 4; i += 2};
    if (t == 0 || t == 5) {while (num.charAt(i) == 'X') {t ++; i ++}};
    n += t * 10;

    // evaluate units ...
    if (num.substr(i, 2) == 'IX') {u = 9; i += 2}
     else if (num.substr(i, 1) == 'V') {u = 5; i ++}
      else if (num.substr(i, 2) == 'IV') {u = 4; i += 2};
    if (u == 0 || u == 5) {while (num.charAt(i) == 'I') {u ++; i ++}};
    n += u;

    // check all subtractive and additive combinations for a valid Roman numeral ...
    if (!((num == cvt1000(n) + cvt100s(n) + cvt10s(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100s(n) + cvt10s(n) + cvt1a(n))
       || (num == cvt1000(n) + cvt100s(n) + cvt10a(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100s(n) + cvt10a(n) + cvt1a(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10s(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10s(n) + cvt1a(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10a(n) + cvt1s(n))
       || (num == cvt1000(n) + cvt100a(n) + cvt10a(n) + cvt1a(n)))) {n = -1}

    return(n); // with n in range 1 &ndash; 4999, or n = -1 for invalid numeral
   }

   function cvts(n) {
    // converts number 1 - 4999 to a subtractive Roman numeral ...
    return (cvt1000(n) + cvt100s(n) + cvt10s(n) + cvt1s(n))
   }

   function cvt1000(n) {
    // converts thousands digit to a Roman numeral ...
    return ('MMMM'.substr(0, (Math.floor(n / 1000))));
   }

   function cvt100s(h) {
    // converts hundreds digit to a subtractive Roman numeral ...
    var m = '', h = Math.floor((h % 1000) / 100);
    if (h == 9) {m = 'CM'}
     else if (h > 4) {m = 'DCCC'.substr(0, h - 4)}
      else if (h == 4) {m = 'CD'}
       else {m = 'CCC'.substr(0, h)};
    return m;
   }

   function cvt100a(h) {
    // converts hundreds digit to an additive Roman numeral ...
    // used only in error-trapping Roman input
    var m = '', h = Math.floor((h % 1000) / 100);
    if (h > 4) {m = 'DCCCC'.substr(0, h - 4)}
      else {m = 'CCCC'.substr(0, h)};
    return m;
   }

   function cvt10s(t) {
    // converts tens digit to a subtractive Roman numeral ...
    var m = '', t = Math.floor((t % 100) / 10);
    if (t == 9) {m = 'XC'}
     else if (t > 4) {m = 'LXXX'.substr(0, t - 4)}
      else if (t == 4) {m = 'XL'}
       else {m = 'XXX'.substr(0, t)};
    return m;
   }

   function cvt10a(t) {
    // converts tens digit to an additive Roman numeral ...
    // used only in error-trapping Roman input
    var m = '', t = Math.floor((t % 100) / 10);
    if (t > 4) {m = 'LXXXX'.substr(0, t - 4)}
     else {m = 'XXXX'.substr(0, t)};
    return m;
   }

   function cvt1s(u) {
    // converts units digit to a subtractive Roman numeral ...
    var m = '', u = u % 10;
    if (u == 9) {m = 'IX'}
     else if (u > 4) {m = 'VIII'.substr(0, u - 4)}
      else if (u == 4) {m = 'IV'}
       else {m = 'III'.substr(0, u)};
    return m;
   }

   function cvt1a(u) {
    // converts units digit to an additive Roman numeral ...
    // used only in error-trapping Roman input
    var m = '', u = u % 10;
    if (u > 4) {m = 'VIIII'.substr(0, u - 4)}
     else {m = 'IIII'.substr(0, u)};
    return m;
   }

   function rst() {
    // Reset button clears field in number / numerals conversion ...
    document.forms[0].elements[0].value = '';
    document.forms[0].elements[0].focus();
   }

   
   //////////////// Calculator routines ...

   // global variables ...
   var eqFlg = false, lastBut = '+', lastOp = '+', newNum = true, total = 0;

   function entNum(chr) {
    // takes input from M, D, C, L, X, V and I buttons
    eqFlg = false; lastBut = chr;
    if (newNum) {document.forms[0].elements[0].value = ''; newNum = false};
    var num = document.forms[0].elements[0].value + chr; while (num.charAt(0) == ' ') {num = num.substr(1)};
    document.forms[0].elements[0].value = '                   '.substr(num.length) + num;
   }

   function calc(op) {
    // takes input from +, -, *, and / buttons
    if (lastBut != '+' && lastBut != '-' && lastBut != '*' && lastBut != '/') {
     var num = document.forms[0].elements[0].value, negFlg = false, n; while (num.charAt(0) == ' ') {num = num.substr(1)};
     if (num.charAt(0) == '-') {negFlg = true; num = num.substr(1)};
     if (num != '.' && num.substr(14) != 'erreur') {
      n = evalRoman(num);
      if (n == -1) {num = 'Entrée incorrecte'}
       else {
        if(negFlg) {n = -n};
        total = Math.round(eval(total + lastOp + n));
        if (total < -4999 || total > 4999) {num = 'Erreur Overflow'}
         else if (total == 0) {num = '.'}
          else if (total < 0) {num = '-' + cvts(-total)}
           else {num = cvts(total)};
       }
      document.forms[0].elements[0].value = '                   '.substr(num.length) + num;
      newNum = true; eqFlg = false;
      }
    }
    lastBut = op; lastOp = op;
   }

   function equals() {
    // takes input from = button
    var negFlg = false, n, num;
    if (eqFlg) {num = '.'; eqFlg = false}
     else {
      num = document.forms[0].elements[0].value; while (num.charAt(0) == ' ') {num = num.substr(1)};
      eqFlg = true;
      if (num.charAt(0) == '-') {negFlg = true; num = num.substr(1)};
      if (num != '.' && num.substr(14) != 'erreur') {
       n = evalRoman(num);
       if (n == -1) {num = 'Entrée erronée'}
        else {
         if (negFlg) {n = -n};
         total = Math.round(eval(total + lastOp + n));
         if (total < -4999 || total > 4999) {num = 'Erreur Overflow'}
          else if (total == 0) {num = '.'}
           else if (total < 0) {num = '-' + cvts(-total)}
            else {num = cvts(total)};
        }
       }
      lastOp = '+'; newNum = true; total = 0;
     }
    document.forms[0].elements[0].value = '                   '.substr(num.length) + num;
   }

   function calcblur() {
   // Removes focus from calculator output
   document.forms[0].elements[0].blur()
   }

   //////////////// Test routines ...

   //////////////// global variables ...
   var ans = 0, ques = 0, nr = '';

   function gen() {
    // generate and display random number or numeral (4 - 4999 or IV - MMMMCMXCIX) ...
    nr = Math.floor((Math.random() * Math.random() * 4996) + 4).toString();
    if (Math.random() < .5) {nr = cvts(parseInt(nr))};
    with(document.forms[1]) {
     elements[0].value = nr;
     elements[1].value = '';
     elements[5].value = ((ans == 0) ? '.' : cvts(ans)) + ' / ' + ((ques == 0) ? '.' : cvts(ques))
    }
    if (ans == 10 && ques == 10) {alert('          Bravo!\nVotre score de X sur X est excellent!')}
   }

   function test() {
    // check test input & increment scores ...
    var inp = document.forms[1].elements[1].value, n, num, i, msg;
    while (inp.charAt(0) == ' ') {inp = inp.substr(1)}; // discard leading spaces
    if (inp.indexOf(' ') != -1) {inp = inp.substr(0, inp.indexOf(' '))}; // discard trailing spaces and words
    if (inp == '') {document.forms[1].elements[3].value = 'Aucune donnée entrée'; document.forms[1].elements[1].focus(); return}
     else if (isNaN(nr)) {
      // question was Roman, answer should be number ...
      n = Math.round(parseFloat(inp)); if (n != parseFloat(inp)) {alert(inp + ' sera arrondi à ' + n)};
      if (evalRoman(nr) == n) {msg = 'Correct, ' + nr + ' = ' + n.toString() + '.'; ans ++}
       else {msg = n + ' est incorrect, ' + nr + ' = ' + evalRoman(nr).toString()}
     }
      else {
       // question was number, answer should be Roman ...
       num = inp;
       if (num == num.toLowerCase()) {
        i = num.indexOf('u');
        if (i != -1) {num = num.substr(0, i) + 'v' + num.substr(i + 1, num.length - i)}; // allow lower-case 'v' instead of 'u'
        if (num.substr(num.length - 2, 2) == 'ij') {num = num.substr(0, num.length - 2) + 'ii'}; // allow trailing 'ij' instead of 'ii'
       }
       if (parseInt(nr) == evalRoman(num)) {msg = 'Correct, ' + nr + ' = ' + inp + '.'; ans ++}
        else {msg = inp + ' est incorrect, ' + nr + ' = ' + cvts(parseInt(nr))}
    }
    ques ++; gen();
    document.forms[1].elements[1].focus();
    document.forms[1].elements[3].value = msg;
   }

   function rs() {
    // reset score ...
    ans = 0; ques = 0; gen();
    document.forms[1].elements[1].focus();
    document.forms[1].elements[3].value = '';
   }

   function testfocus() {
    // give focus to test input field ...
    document.forms[1].elements[1].focus()
   }

   // -->
   /* XML end  ]]>*/
  </script>
    
  <html>
<head>
<title>le site des philat&eacute;listes francophones</title>
</head>
<body  onload='load()' >
<center><table WIDTH="100%" BORDER="0" cellpadding="2" bgcolor="#ffffcc"><tr><td align=Left><a href="http://coppoweb.com/pda/index.php" title="Accueil"><img src="favicon.jpg" width="16" height="16" alt="Accueil" border="0">
<font color="Maroon" size="+2"><b>COPPOWEB</b></font></a></td>
<td align=right><font size="-2"><a href="http://coppoweb.com/pda/index.php" title="Accueil">&lt;Accueil</a></font></td></tr><tr><td colspan=2 align=Center><small><b><font color="Maroon">le site des philat&eacute;listes francophones</font></b></small></td></tr></table>
</center>
<hr> <center>
  <table cellpadding="0" cellspacing="0">
   <tr>
    <td rowspan="3">
     <p>&nbsp; &nbsp;</p>
    </td>
    <td>
     <table border="0" cellpadding="5" cellspacing="0" width="100%">
      <tr>
       <td>
        <form action="#">
         <table align="center">
          <tr>
           <th colspan="4">
            <h2><font color="maroon"><b>Calculateur Romain</b></font></h2>
           </th>
          </tr>
          <tr>
           <th colspan="4">
            <input size="19" onfocus="calcblur()" />
           </th>
          </tr>
          <tr align="center">
           <td>
            <input type="button" value=" M " onclick="entNum('M')" />
           </td>
           <td>
            <input type="button" value=" D " onclick="entNum('D')" />
           </td>
           <td>
            <input type="button" value=" C " onclick="entNum('C')" />
           </td>
           <td>
            <input type="button" value=" + " onclick="calc('+')" />
           </td>
          </tr>
          <tr align="center">
           <td>
            <input type="button" value=" L " onclick="entNum('L')" />
           </td>
           <td>
            <input type="button" value=" X " onclick="entNum('X')" />
           </td>
           <td>
            <input type="button" value=" V " onclick="entNum('V')" />
           </td>
           <td>
            <input type="button" value=" &ndash; " onclick="calc('-')" />
           </td>
          </tr>
          <tr align="center">
           <td>
            <input type="button" value=" I " onclick="entNum('I')" />
           </td>
           <td>
            <input type="button" value=" &#247; " onclick="calc('/')" />
           </td>
           <td>
            <input type="button" value=" &#215; " onclick="calc('*')" />
           </td>
           <td>
            <input type="button" value=" = " onclick="equals()" />
           </td>
          </tr>
         </table>
        </form>
        <table align="center">
         <tr>
          <th>
                    <br>Tapez un nombre compris entre <code>I et MMMMCMXCIX (1&ndash;4999)</code>.
		   <br><font color="Red"><b><big>NOTA : </big>Un résultat non compris entre  1 et 4999, ou nombre romain erroné<br>
		   provoquera une erreur. Appuyez alors deux fois sur Recommencer.</b></font><br>Un résulat nul se traduira par un point. 
		   <br>Les divisions sont arrondies <br>à l'entier le plus proche.
<br>
  </th>
         </tr>
        </table>
       </td>
      </tr>
     </table>
    </td>
   </tr>
   <tr>
    <td>

     <table border="0" cellpadding="5" cellspacing="0" width="100%">
      <tr>
       <th>
         <h2><font color="maroon"><b>Un petit test</b></font><br><small>Pourriez-vous <br>faire un X sur X ?</small></h2>
<form action="#">
         <input size="16" onfocus="testfocus()" /><br />
          Entrez le nombre <br>(<font color="Navy"><b>Romain</b></font> ou <font color="Navy"><b>Arabe</b></font> selon le cas) <br>équivalent à celui ci-dessus<br>
          dans la zone suivante :<br>
         <input size="19" /><br />
       <input type="button" value="et Cliquez ici" onclick="test()" class="button"><br>
         <input size="40" onfocus="testfocus()" /><br />
     <input type="button" value="Démarrer" onclick="rs()" class="button">
		 <input size="13" onfocus="testfocus()" />
        </form>
       </th>
      </tr>
     </table>

    </td>
   </tr>
  </table>
  </center>
<center><hr><table WIDTH="100%" BORDER="0" cellpadding="2" bgcolor="#ffffcc">
<tr><td align=Left width="33%"><input type="button" value="Retour"  align="center" onclick="history.back()"></td>
<td align=Center width="33%"><a href="http://coppoweb.com/pda/index.php" title="Accueil"><img src="favicon.jpg" width="16" height="16" alt="Accueil" border="0"></a></td>
<td  width="33%" align=right><a href="http://coppoweb.com/pda/pda.contactform.php" title="Contacter le Webmaster"><img src="email01.gif" width="25" height="25" alt="Contacter le Webmaster" border="0"></a>&nbsp;&nbsp;
<a href="http://coppoweb.com/pda/pda.ego.php" title="Auteur du programme "><img src="tc.gif" width="20" height="25" alt="Auteur" border="0"></a></td></tr></table>
</center>
<hr></center></body>
</html>