From: harrym@netcom.com (Harry Myhre)
Subject: SITcomm AppleScript
Date: Tue, 7 Dec 1993 18:13:15 -0800 (PST)

Language: AppleScript 1.0
Author: Harry Myhre <harrym@netcom.com>
Date Written: Tue, Dec 7, 1993
Purpose: Start SITcomm, logon to Netcom, get into dl directory, 
			ask user what to do next.

tell application "SITcomm"
	activate
	Connect "Netcom" -- dial into Netcom
	Wait For Text "etcom" -- last part of command prompt
	Send Text "go ~" -- first, go to home dir
	Send Text return
	Send Text "go dl" -- go to my download dir
	Send Text return
end tell

-- bring the script to the foreground
tell me -- me is the script
	activate
end tell

-- ask user what to do next
display dialog "Choose one" buttons {"cli", "nn", "elm"} default button 3
set response to button returned of result
if response not = "cli" then -- do nothing if cli
	tell application "SITcomm"
		Send Text response & return
	end tell
end if