Sub flashapp_FSCommand(ByVal command, ByVal args)
	select case command
		case "putHREF"  location.href = args
		case "putTitle" document.title = args
	end select
end sub