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