on run
	get path to preferences folder as string
	set prefs to result & "Netscape Ÿ:Netscape Preferences"
	extract string list from file prefs id 2001 -- Pull the strings where the
pertanent info is kept.
	set theList to result
	set MyActionI to display dialog ¬
		"Please enter your name" buttons {"OK"} default button "OK" default answer ""
	set MyName to text returned of MyActionI -- Get the user's name
	
	set MyActionII to display dialog ¬
		"Please enter your e-mail address." buttons {"OK"} default button "OK"
default answer ""
	set MyAddress to text returned of MyActionII -- Get the user's address
	
	checkStrings(MyAddress, MyName)
	set item 14 of theList to MyName
	set item 15 of theList to MyAddress
	add string list theList to file prefs id 2001 with replacing allowed
	Thelaunch()
end run

on checkStrings(MyAddress, MyName)
	if MyName is "" or MyAddress is "" then
		set MyChoice to display dialog "Some features of Netscape are " & return & ¬
			¬
				"unavailable without a valid name and e-mail address." & return & return & ¬
			"Click \"OK\" to try again, \"No Thanks\" to forget about it and run
Netscape." buttons {"No Thanks", "OK"} default button "OK"
		if button returned of MyChoice is "OK" then
			run -- Give them another chance
		else
			set MyAddress to "" -- Set both choices to empty
			set MyName to ""
		end if
	end if
end checkStrings


on Thelaunch()
	tell application "Netscape"
		activate
	end tell
	StopNow()
end Thelaunch

on StopNow()
	continue quit
end StopNow




.