home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / numbr11.zip / ejemplo.cmd next >
OS/2 REXX Batch file  |  1996-05-19  |  800b  |  28 lines
  1. /* programa REXX que muestra el funcionamiento de la función NUMBER */
  2.  
  3. /* Registrar la función, si hace falta */
  4. /* El fichero NUMBERS.DLL tiene que estar en un directorio de DPATH */
  5. /* o bien hay que incluir el la unidad y el directorio en el segundo */
  6. /* parámetro de RxFuncAdd */
  7.  
  8. if (RxFuncQuery("Number") == 1) then call RxFuncAdd "Number", "numbers", "Number"
  9.  
  10. /* obtener los número, el génere y el idioma */
  11. /* número a convertir */
  12. Say 'Entre el número'
  13. Pull Numero
  14.  
  15. /* género */
  16. Say 'Entre el género (m = masculino, f = femenino)'
  17. Pull Genero
  18.  
  19. /* idioma */
  20. Say 'Entre el idioma (e = español, a = inglés, c = catalán)'
  21. Pull Idioma
  22.  
  23. /* llamar a la función con estos parámetros */
  24. UnNumero = Number(Numero, Genero, Idioma)
  25.  
  26. /* mostrar el resultado */
  27. say UnNumero
  28.