Hola Javier!
 RV>> int sign(tipo x)
 RV>> if (x=0) return(0);
 JK>         if (x == 0) return 0;   // Please leave Pascal alone! :)
     OK, ok, why everyone has noticed my mistake?
 JK> BTW: De donde sos Rafa? Espa¤a?
   Si, soy de Espa¤a.
 RV>> - Origin: Yo mismo y mi mecanismo. 93:341/736.96 (2:341/136.96)
 JK> Ahem... we have a 93:x/y.z net in Argentina :-/
    I didn't know that the zone number could be reused.
   Perdona por haber tardado tanro en responder pero es que estuve de 
vacaciones.
Un saludo
     Rafa
--- FMail 1.02
---------------