/*
 * Dieses Script schaltet den Sleep-Modus aus,
 * schließt alle Fenster von WRITE mit Sicherheitsabfrage und sorgt somit
 * dafür, daß WRITE beendet wird.
 *
 * Dieses Script ist dafür da WRITE zu beenden, wenn durch ungeschickte
 * Konfiguration dies nicht mehr aus WRITE selbst heraus möglich ist.
 *
 *  $VER: CloseDown.wrx 1.0
 *
 *  NOTE: Since QuickWrite now has the QUIT-Option this script is opsolent
 *
 */

OPTIONS RESULTS

SIGNAL ON SYNTAX

ADDRESS "WRITE"

'VERSIONCHECK 40000 "CloseDown.wrx"'
IF RC~=0 THEN DO
  exit 10
END

ID = 0
NEXTED ID

do while RC=0
  'GETVAR "_CurrentID"'
  ID = Result
  'GETVAR "_changed"'
  if Result=1 then do
    'ASK "File\n$_FileName$\n has been modified" "_Save & Quit*|_Quit^"'
    if Result=0 then do
      'SAVE _FileName'
    end
    'SETVAR "_changed" FALSE'
  end
  QUITED
  NEXTED ID
end

'SETVAR "_SleepMode" 0'

EXIT

SYNTAX :
  if rc=13 then do
  end
  else do
    say "Fehler : " rc errortext(rc)
  end