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