global applist
global apprunning
set applist to {"iTunes", "iCal"}
repeat with each_item in applist
tell application each_item to activate
end repeat
set apprunning to true
repeat until apprunning is false
delay 3
tell application "System Events"
set processlist to get name of every process
repeat with every_item in applist
if processlist does not contain every_item then
my quitapps()
end if
end repeat
end tell
end repeat
on quitapps()
set apprunning to false
repeat with each_item in applist
try
tell application each_item to quit
end try
end repeat
return
end quitapps