Program Zavrit_vse;
// nebezpečné makro, ktere bez ptaní zavře všechny dokumenty,
// aniž by je uložilo
var
  i : integer;
begin
  for i:= 1 to CountWindows do
    DocClose(kSaveNever);
end.