home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / b / blacksedv1.0.lha / BED / Rexx / SaveChangedDocs.bed < prev    next >
Text File  |  1996-01-28  |  405b  |  24 lines
  1. /*
  2. ** $VER: SaveChangedDocs.bed 1.0 (03.01.96)
  3. **
  4. ** Save all currently loaded documents which have been changed, but not saved,
  5. ** and optionally close all opened documents.
  6. */
  7.  
  8. OPTIONS RESULTS
  9. PARSE ARG quit
  10.  
  11. quit = UPPER(quit)
  12.  
  13. ADDRESS BED
  14.  
  15. GetDocuments
  16. docs = RESULT
  17.  
  18. DO WHILE docs ~= ''
  19.   PARSE VAR docs '"'.'" ' port docs
  20.   ADDRESS VALUE port
  21.     SaveFile MODIFIED
  22.   IF quit = "QUIT" THEN CloseDoc
  23. END
  24.