/** $VER: SaveChangedDocs.ttx Demo 1.0 (25.12.90)
 **
 ** Save all currently loaded documents which have been changed, but not saved,
 ** AND optionally close all opened documents.
 **
 ** Written by Martin Taillefer
 **/


OPTIONS RESULTS
PARSE ARG quit


  ADDRESS "TURBOTEXT"

  GetDocuments
  docs = RESULT

  x = 0
  DO WHILE docs ~= ''
    PARSE VAR docs '"' dummy '" TURBOTEXT' port docs
    port = 'TURBOTEXT'||port
    ADDRESS VALUE port

    GetFileInfo
    PARSE VAR RESULT dum changed .
    IF changed = "YES" THEN DO
      SaveFile
    END

    IF quit = "QUIT" THEN DO
      CloseDoc
    END
  END