#	Quit - MPW Shell Quit File
#
#	Copyright Apple Computer Inc. 1986-1988, 1991.
#	All Rights Reserved.

			
#	Default tasks.

			Save "{Worksheet}"

#	Since Quit is distributed with MPW, you may want to have other
#	"Quit" scripts that will not be overwritten with a new release.
#	Other personalized quit scripts may be named Quit•≈ - such as 
#	"Quit•John" or "Quit•Tom"  (• is option-8).
#	These files should be located in the directory containing the MPW Shell
#   or in the MPW preferences folder.  The following executes such files found
#	in either place.

			For __Quit__i in `(Files "{ShellDirectory}"Quit•≈ || Set Status 0) ≥ dev:null`
				Execute "{__Quit__i}"
			End
			Unset __Quit__i

			If "{PrefsFolder}"
				For __Quit__i in `(Files "{PrefsFolder}"Quit•≈ || Set Status 0) ≥ dev:null`
					Execute "{__Quit__i}"
				End
				Unset __Quit__i
			End