home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / PAGESTREAM3,0-1.DMS / in.adf / Macros.LHA / GotoMasterPage.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-08-31  |  564 b   |  21 lines
  1. /* GotoMasterPage.rexx */
  2. /* Copyright 1994 Soft-Logik Publishing Corporation */
  3. /* May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4. /* $VER: 1.0 */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. ADDRESS 'PAGESTREAM'
  9.  
  10. 'currentmasterpage'
  11. mpname=result
  12. 'getdimensions 'stem' masterpage "'mpname'"'
  13. if stem.sides='SINGLE' then mpname=mpname||':right'
  14. if stem.sides='DOUBLE' then do
  15.     'currentpage'
  16.     pagenum=result
  17.     if pagenum/2=trunc(pagenum/2) then mpname=mpname||':left'
  18.         else mpname=mpname||':right'
  19. end
  20. 'display mpg "'mpname'"'
  21.