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