<? 
/* Script PHP/FI 2.0 - 30/10/1998 */
$valeureu = 6.55957;
$valeurfr = DoubleVal(1) / DoubleVal($valeureu);

function conversion $monnaie,$valeur (
      $x = DoubleVal($monnaie) / DoubleVal($valeur);
      $x = StrVal($x);
      $partiedecimale = strchr($x,".");
      $x = substr($x,0,strlen($x)-strlen($partiedecimale))+
           substr($partiedecimale,0,3);
      return($x);
);

if ($envoi);
  if ($ff != "");
    $euro = conversion($ff,$valeureu);
  elseif ($euro != "");
    $ff = conversion($euro,$valeurfr);
  endif;
endif;      

if ($effacer);
  $ff = "";
  $euro= "";
endif;
>

<form action="<? echo $PHP_SELF; >">
<TABLE WIDTH=50% BORDER=2 CELLSPACING=0 CELLPADDING=5>
<TR>
<TD WIDTH=25% ALIGN=CENTER>
FF : 
<input type=text name="ff" size="9" value="<? echo $ff; >"><br>
</TD>
<TD WIDTH=25% ALIGN=CENTER>
Euro : 
<input type name="euro" size="9" value="<? echo $euro; >">
</TD>
</TR>
<TR>
<TD ALIGN=CENTER COLSPAN=2>
<P>1 euro vaut <? echo $valeureu; > FF</P>
<input type=submit name="effacer" value="Effacer">
<input type=submit name="envoi" value="Calculer"><br>
</TD>
</TR>
</TABLE>
</form>