Three Questions on Address Book code scriplet

Question

I found this co-authored years ago by Scott Paulis and Bruce Phillips:
tell application "Address Book"
set thePeople to selection
display dialog "What tag would you like to append?" buttons {"Cancel", "Apply"} default button "Apply" default answer "[tag]"
set dialogInfo to result
set selectedButton to button returned of dialogInfo
set tagString to text returned of dialogInfo
if selectedButton is "Apply" then
repeat with aPerson in thePeople
set currentNote to the note of aPerson
if currentNote is missing value then set currentNote to ""
set newNote to currentNote & " "
-- insert a newline here! Stringchar(13)?
set note of aPerson to newNote & tagString
end repeat
end if
end tell
Question 1: what is the syntax to accomplish the newline insertion noted above?
Question 2: what magic is necessary to mark the record as "changed"? I say this because contact records changed with this code are not being overwritten onto my iPhone unless I manually make a change -- so clearly the A.B. UI does something "more" to close a record.
Question 3: suggestions on how to add a third option {"Remove"}?
Thanks much and Happy Holidays,
Paul

Answer 1

I really don't see any difference between a new line of text and a tag. So may I suggest a new version of the script:
--BEGINNING OF SCRIPT
tell application "Address Book"
set thePeople to selection
display dialog "What text would you like to remove or append?" buttons {"Cancel", "Remove", "Append"} default button "Append" default answer "The text"
set dialogInfo to result
set selectedButton to button returned of dialogInfo
set textString to text returned of dialogInfo
if selectedButton is "Append" then
repeat with aPerson in thePeople
set currentNote to the note of aPerson
if currentNote is missing value then set currentNote to ""
if currentNote is not "" then set currentNote to currentNote & space -- or 'return'
set newNote to currentNote & textString
set note of aPerson to newNote
end repeat
else if selectedButton is "Remove" then
repeat with aPerson in thePeople
set currentNote to the note of aPerson
if not (currentNote is missing value or currentNote is "") then
if currentNote is in {space, return} then
set newNote to ""
else
if last character of currentNote is in {space, return} then
set currentNote to text 1 through -2 of currentNote
end if
if currentNote ends with textString then
if currentNote is textString then
set newNote to ""
else
set L to length of textString
set newNote to text 1 through -(L + 1) of currentNote
end if
end if
end if
end if
set note of aPerson to newNote
end repeat
end if
save
end tell
--END OF SCRIPT