home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / DAT-WW5C.DMS / in.adf / Archive / WwRexx.lha / Save_All.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-09  |  379 b   |  24 lines
  1. /*    Save_All
  2.  
  3.         Saves all open documents.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 19 January 1996
  9.         Author:  MJ & PB
  10. */
  11.  
  12.  
  13. RequestResponse "Do you wish to Save all open documents?"
  14. IF (RC > 0) THEN
  15.     Exit
  16.  
  17. DO Num = 1 to 20
  18.     WwPort = "WORDWORTH." || Num
  19.     IF SHOW(PORTS, WwPort) THEN DO
  20.         Address Value WwPort
  21.         Save
  22.     END
  23. END
  24.