home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / INTERWORD1.DMS / in.adf / Rexx / Beep.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1993-03-15  |  614 b   |  29 lines
  1. /*
  2.  *
  3.  * Script name:     Beep.rexx
  4.  * Author:          Franz Hemmer
  5.  * Purpose:         Demonstrate how to make a beep in InterWord.
  6.  * Related Program: InterWord Pro
  7.  * Written:         01.03.93
  8.  *
  9.  */
  10.  
  11. /*--------------------*/
  12. /* Get result in 'rc' */
  13. /*--------------------*/
  14. Options Results
  15. PARSE ARG type
  16.  
  17. IF type = "" THEN
  18.     DO
  19.         SAY 'Usage: Beep <type>'
  20.         SAY 'Supported types are: SYSTEM or WORD'
  21.       EXIT 5
  22.    END
  23. ENDIF
  24.  
  25. /*----------------------------------------------*/
  26. /* Address InterWord port, and execute command. */
  27. /*----------------------------------------------*/
  28. ADDRESS INTERWORD1 BEEP type
  29.