home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / numbr11.zip / exemple.cmd < prev    next >
OS/2 REXX Batch file  |  1996-05-19  |  787b  |  28 lines
  1. /* programa REXX que mostra el funcionament de la funció NUMBER */
  2.  
  3. /* Registrar la funció, si no ho està */
  4. /* El fitxer NUMBERS.DLL ha d'estar en un directori inclòs a DPATH */
  5. /* o bé cal incloure la unitat de disc i directori(s)  en el segon */
  6. /* paràmetre de RxFuncAdd */
  7.  
  8. if (RxFuncQuery("Number") == 1) then call RxFuncAdd "Number", "numbers", "Number"
  9.  
  10. /* obtenir els número, el gènere i l'idioma */
  11. /* número a convertir */
  12. Say 'Entreu el número'
  13. Pull Numero
  14.  
  15. /* gènere */
  16. Say 'Entreu el gènere (m = masculí, f = femení)'
  17. Pull Genere
  18.  
  19. /* idioma */
  20. Say 'Entreu l''idioma (c = català, e = espanyol, a = anglès)'
  21. Pull Idioma
  22.  
  23. /* cridar la funció amb aquests paràmetres */
  24. UnNumero = Number(Numero, Genere, Idioma)
  25.  
  26. /* treure el resultat */
  27. say UnNumero
  28.