home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 164.lha / ARexx / TXedToSpeechToy / txed_to_speechtoy.txed < prev    next >
Text File  |  1988-04-28  |  1KB  |  52 lines
  1. /*  txed_to_speechtoy */
  2. /* Txed Macro to speak words marked
  3.  in TxEd Plus window */
  4. /* by John Palmer (JohnP on PLink) May 31, 1988 */
  5.  
  6. /* Probably needs full ARexx; and the revision of SpeechToy that
  7. knows about ARexx (SpeechToy Version 1.2, by David M Lucas,
  8. and enhanced by Rob Peck 15 April 1988) */
  9.  
  10. /* if ADDLIB("rexxsupport.library",0,-30,0)=0 then do
  11.   'MSG  Need rexxsupport.library in LIBS:!'
  12.   exit
  13.   end
  14. */
  15.  
  16.  say ADDLIB("rexxsupport.library",0,-30,0)
  17.  
  18. If (SHOWLIST('P',SPEECHTOY)) = 0  then do
  19.   'MSG SpeechToy Not Active!'
  20.   Exit
  21.  end
  22.  
  23. OPTIONS results
  24. /* Arexx should request a result string when commands
  25. are issued to an external host (TxEd Plus) */
  26.  
  27. 'COPY +X'
  28. 'STATUS M+X'
  29. /* issue commands (to calling TxEd Plus) to copy
  30. marked block into buffer X, and return in ARexx
  31. variable "result" */
  32.  
  33. /*say result   (for debugging!) */
  34.  
  35. words= 'WORDS=' || RESULT
  36.  
  37. /*say words   (for debugging!) */
  38.  
  39. OPTIONS
  40.  
  41. address SPEECHTOY
  42. /* issue commandsto SPEECHTOY now */
  43. words
  44. /* give it the command "WORDS= whatever" */
  45.  
  46. 'TRANS=1'
  47. /* tell Speechtoy to translate these words */
  48.  
  49. 'SPEAK=1'
  50. /* and now to speak them */
  51. exit
  52.