home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / util / rexx / MOOS.lha / MOOS / Tests / rexx_misc.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-02-16  |  1.4 KB  |  69 lines
  1. /*
  2.  * rexx_dos.library
  3.  *
  4.  * Test file...
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. lib = 'rexxMOOS.library'; IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,100,-30)
  9.  
  10.                                                                               
  11. /*
  12.  *    Phonemes()
  13.  */
  14. CALL print(4,'#',"Phonemes()")
  15.  
  16. str = 'MOOS: "The" ARexx library'
  17. CALL print(20,'-','Phonemes("'str'")')
  18. SAY Phonemes(str)
  19.  
  20.                                                                               
  21. /*
  22.  *    Speak()
  23.  */
  24. CALL print(4,'#',"Speak(string,options)")
  25.  
  26. opt = 'rate 100'
  27. str = "This is Amiga speaking!"
  28. CALL print(20,'-','Speak("'str'","'opt'")')
  29. CALL Speak(str,opt)
  30.  
  31. opt = 'enth 200'
  32. CALL print(20,'-','Speak("'str'","'opt'")')
  33. CALL Speak(str,opt)
  34. SAY "Don't try to read what you've to listen... :-)"
  35.  
  36.                                                                               
  37. /*
  38.  *    WBInfo()
  39.  */
  40. CALL print(4,'#',"WBInfo(pathname)")
  41.  
  42. CALL print(20,'-','WBInfo("")')
  43. SAY WBInfo("")
  44.  
  45.                                                                               
  46. /*
  47.  *    GetUniqueID()
  48.  */
  49. CALL print(4,'#',"GetUniqueID()")
  50.  
  51. CALL print(20,'-','GetUniqueID()')
  52. SAY GetUniqueID()
  53.  
  54. CALL print(20,'-','GetUniqueID()')
  55. SAY GetUniqueID()
  56.  
  57.                                                                               
  58.  
  59. ADDRESS COMMAND 'Wait' 2
  60.  
  61. SAY
  62. EXIT 0
  63.  
  64. print: PROCEDURE
  65.     PARSE ARG pos,char,str
  66.     IF char = '#' THEN SAY '0a0a'x
  67.     SAY COPIES(char,pos) || OVERLAY(" "str" ",COPIES(char,78 - pos))
  68.     RETURN
  69.