-- user input
set LowerCase to {"foobar", "to", "with", "in", "from", "and", "of", "by", "at"}
set UpperCase to {"atom", "vlc"}
set UpperLower to {"UMPlayer", "VideoSpec"}
-- end of user input
set aList to LowerCase & UpperCase & UpperLower
-- new list
set StartBlanket to {"(", "[", "<", "|", "{", "\""}
set EndBlanket to {")", "]", ">", "|", "}", "\""}
set igList to {"|", "&"} -- appended 2018-10-29_08.49.02
set ApostrophesList to {"'ve", "'s", "'d", "'re", "n't", "'ll", "'m", "o'clock", "s'"}
set prevTIDs to AppleScript's text item delimiters
tell application "System Events"
	keystroke "c" using command down
	delay 0.7
	set CopT to (the clipboard as text)
end tell
set Lencopt to length of CopT
-- added - 27.2
if CopT contains "_" then
	set Go_Underscore to 1
	set listposUnderscore to {}
	repeat with i from 1 to Lencopt
		if character i of CopT is "_" then
			copy i to the end of listposUnderscore
		end if
	end repeat
	set prevTIDs to AppleScript's text item delimiters
	set AppleScript's text item delimiters to the "_" -- search _
	set the item_list to every text item of CopT -- original text
	set AppleScript's text item delimiters to the " " -- replace
	set CopT to the item_list as string
	set AppleScript's text item delimiters to prevTIDs
else
	set Go_Underscore to 0
end if
-- end - added - 27.2
set AppleScript's text item delimiters to {" "}
set myText1 to ""
repeat with N from 1 to (count text item of CopT)
	repeat with j from 1 to count ApostrophesList
		if (text item N of CopT) ends with item j of ApostrophesList then
			set textwithApostrophes to (text item N of CopT)
			set go_textwithApostrophes to 1
			exit repeat
		else
			set go_textwithApostrophes to 0
		end if -- (text item N of CopT) ends with item j of ApostrophesList then
	end repeat
	-- do 'text' -- no spaces
	if (last character of (text item N of CopT) ends with "'") and (first character of (text item N of CopT) starts with "'") then --con
		set done_endstartQuote_text_noSpaces to 1
		set targetText_endstartQuote_text to (text item N of CopT)
		set endchar_endstartQuote_text to (length of (text item N of CopT)) - 1
		set AppleScript's text item delimiters to prevTIDs
		set dothisText_check_aList to ((characters 2 thru endchar_endstartQuote_text of targetText_endstartQuote_text) as string)

		if (length of dothisText_check_aList) is 1 then
			set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:lower:] [:upper:] "
			set aText to first character of (text item N of CopT) & Done_dothisText_check_aList & last character of (text item N of CopT)
		end if -- (length of dothisText_check_aList) is 1 then

		if (length of dothisText_check_aList) > 1 then
			if dothisText_check_aList is in aList then

				if LowerCase contains dothisText_check_aList then
					set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:upper:] [:lower:] "
					set aText to first character of (text item N of CopT) & Done_dothisText_check_aList & last character of (text item N of CopT)
				end if

				if UpperCase contains dothisText_check_aList then
					set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:lower:] [:upper:] "
					set aText to first character of (text item N of CopT) & Done_dothisText_check_aList & last character of (text item N of CopT)
				end if

				if UpperLower contains dothisText_check_aList then
					-- delay 0.02
					repeat with i from 1 to (count UpperLower)
						if dothisText_check_aList is (item i of UpperLower) then
							-- delay 0.02
							set Done_dothisText_check_aList to (item i of UpperLower)
							exit repeat
						end if
					end repeat
					set aText to first character of (text item N of CopT) & Done_dothisText_check_aList & last character of (text item N of CopT)
				end if

			else -- dothisText_check_aList is not in aList then -- targetText_endstartQuote_text -- (length of dothisText_check_aList) > 1
				set Done_dothisText_check_aList to do shell script "echo " & character 1 of dothisText_check_aList & " | tr [:lower:] [:upper:]"

				repeat with x from 2 to (length of dothisText_check_aList)
					set bText to do shell script "echo " & character x of dothisText_check_aList & " | tr [:upper:] [:lower:]"
					set Done_dothisText_check_aList to Done_dothisText_check_aList & bText
				end repeat
				set aText to first character of (text item N of CopT) & Done_dothisText_check_aList & last character of (text item N of CopT)
			end if -- if dothisText_check_aList is in aList then
		end if -- if (length of dothisText_check_aList) > 1 then
	else -- of if: (last character of (text item N of CopT) ends with "'") and (first character of (text item N of CopT) starts with "'")
		set done_endstartQuote_text_noSpaces to 0
	end if

	-- end - do 'text' -- no spaces
	if go_textwithApostrophes is 1 then
		set go_textwithApostrophes to 1
		if character 1 of (text item N of CopT) is not in StartBlanket then
			set AppleScript's text item delimiters to (item j of ApostrophesList)
			set dothisText to (text item 1 of textwithApostrophes)
			set AppleScript's text item delimiters to prevTIDs
			if (length of dothisText) is 0 then -- o'clock
				set aText to "O'Clock"
			end if
			if (length of dothisText) is 1 then
				set Done_dothisText to do shell script "echo " & character 1 of dothisText & " | tr [:lower:] [:upper:]"
				set aText to Done_dothisText & (item j of ApostrophesList)
			end if -- (length of dothisText) is 1 then
			-- delay 0.03
			if (length of dothisText) > 1 then
				if dothisText is in aList then -- in aList ?
					-- delay 0.02
					if LowerCase contains dothisText then
						set Done_dothisText to do shell script "echo " & dothisText & " | tr [:upper:] [:lower:] "
						set aText to Done_dothisText & (item j of ApostrophesList)
					end if
					-- delay 0.02
					if UpperCase contains dothisText then
						set Done_dothisText to do shell script "echo " & dothisText & " | tr [:lower:] [:upper:] "
						set aText to Done_dothisText & (item j of ApostrophesList)
					end if
					-- delay 0.02
					if UpperLower contains dothisText then

						repeat with i from 1 to (count UpperLower)
							if dothisText is (item i of UpperLower) then
								-- delay 0.02
								set Done_dothisText to (item i of UpperLower)
								exit repeat
							end if
						end repeat
						set aText to Done_dothisText & (item j of ApostrophesList)
					end if
				else -- dothisText is NOT in aList then

					set Done_dothisText to do shell script "echo " & character 1 of dothisText & " | tr [:lower:] [:upper:]"
					repeat with x from 2 to (length of dothisText)
						set bText to do shell script "echo " & character x of dothisText & " | tr [:upper:] [:lower:]"
						set Done_dothisText to Done_dothisText & bText
					end repeat
					set aText to Done_dothisText & (item j of ApostrophesList)
				end if -- dothisText is in aList then
			end if -- (length of dothisText) > 1 then
		end if -- if character 1 of (text item N of CopT) is not in StartBlanket then

		if character 1 of (text item N of CopT) is in StartBlanket then
			set go_textwithApostrophes to 1
			set AppleScript's text item delimiters to (item j of ApostrophesList)
			set dothisText to (text item 1 of textwithApostrophes)
			set AppleScript's text item delimiters to prevTIDs
			if (length of dothisText) is 1 then
				set aText to character 1 of (text item N of CopT) & (item j of ApostrophesList)
			end if -- (length of dothisText) is 1 then
			if (length of dothisText) is 2 then -- character 1 of (text item N of CopT) is in StartBlanket
				set dothisText_check_aList to ((character 2 of dothisText) as string)
				if dothisText_check_aList is in aList then
					-- delay 0.02
					if LowerCase contains dothisText_check_aList then
						set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:upper:] [:lower:] "
						set aText to character 1 of (text item N of CopT) & Done_dothisText_check_aList & (item j of ApostrophesList)
					end if
					-- delay 0.02
					if UpperCase contains dothisText_check_aList then
						set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:lower:] [:upper:] "
						set aText to character 1 of (text item N of CopT) & Done_dothisText_check_aList & (item j of ApostrophesList)
					end if
					-- delay 0.02
					if UpperLower contains dothisText_check_aList then
						-- delay 0.02
						repeat with i from 1 to (count UpperLower)
							if dothisText_check_aList is (item i of UpperLower) then
								-- delay 0.02
								set Done_dothisText_check_aList to (item i of UpperLower)
								exit repeat
							end if
						end repeat
						set aText to character 1 of (text item N of CopT) & Done_dothisText_check_aList & (item j of ApostrophesList)
					end if
				else -- dothisText_check_aList is not in aList then - (length of dothisText) is 2
					set Done_dothisText to do shell script "echo " & character 2 of dothisText & " | tr [:lower:] [:upper:]"
					set aText to character 1 of (text item N of CopT) & Done_dothisText & (item j of ApostrophesList)
				end if -- dothisText_check_aList is in aList then
			end if -- if (length of dothisText) is 2 then
			if (length of dothisText) > 2 then -- character 1 of (text item N of CopT) is in StartBlanket
				set dothisText_check_aList to ((characters 2 thru (length of dothisText) of dothisText) as string)
				if dothisText_check_aList is in aList then
					-- delay 0.02
					if LowerCase contains dothisText_check_aList then
						set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:upper:] [:lower:] "
						set aText to character 1 of (text item N of CopT) & Done_dothisText_check_aList & (item j of ApostrophesList)
					end if
					-- delay 0.02
					if UpperCase contains dothisText_check_aList then
						set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:lower:] [:upper:] "
						set aText to character 1 of (text item N of CopT) & Done_dothisText_check_aList & (item j of ApostrophesList)
					end if
					-- delay 0.02
					if UpperLower contains dothisText_check_aList then
						-- delay 0.02
						repeat with i from 1 to (count UpperLower)
							if dothisText_check_aList is (item i of UpperLower) then
								-- delay 0.02
								set Done_dothisText_check_aList to (item i of UpperLower)
								exit repeat
							end if
						end repeat
						set aText to character 1 of (text item N of CopT) & Done_dothisText_check_aList & (item j of ApostrophesList)
					end if
				else -- dothisText_check_aList is NOT in aList
					set Done_dothisText to do shell script "echo " & character 2 of dothisText & " | tr [:lower:] [:upper:]"
					repeat with x from 3 to (length of dothisText)
						set bText to do shell script "echo " & character x of dothisText & " | tr [:upper:] [:lower:]"
						set Done_dothisText to Done_dothisText & bText
					end repeat
					set aText to character 1 of (text item N of CopT) & Done_dothisText & (item j of ApostrophesList)
				end if -- dothisText_check_aList is in aList then
			end if -- (length of dothisText) > 2 then
		end if -- if character 1 of (text item N of CopT) is in StartBlanket then
	end if -- go_textwithApostrophes is 1 then
	-- added - for script 27
	-- Apostrophes + endblanket
	-- set AppleScript's text item delimiters to {" "}
	-- delay 0.02
	if last character of (text item N of CopT) is in EndBlanket then
		-- delay 0.02
		if first character of (text item N of CopT) is not in StartBlanket then
			-- delay 0.02
			set targetText to (text item N of CopT)
			-- delay 0.03
			set AppleScript's text item delimiters to prevTIDs
			set endchar_number to (length of targetText) - 1
			set delete_EndBlanket_Text to (characters 1 thru endchar_number of targetText) as string
			repeat with j from 1 to count ApostrophesList
				if delete_EndBlanket_Text ends with item j of ApostrophesList then
					set delete_EndBlanket_Text_Apostrophes to delete_EndBlanket_Text
					set go_textwithApostrophes to 1
					exit repeat
				else
					set go_textwithApostrophes to 0
				end if
			end repeat
			if go_textwithApostrophes is 1 then -- if last character of (text item N of CopT) is in EndBlanket then
				set AppleScript's text item delimiters to item j of ApostrophesList
				set dothisText_check_aList to text item 1 of delete_EndBlanket_Text_Apostrophes -- firefox's) >> firefox
				set AppleScript's text item delimiters to " " -- added - can't get text item
				if (length of dothisText_check_aList) is 0 then -- o'clock
					set aText to "O'Clock" & (last character of targetText)
				end if
				if (length of dothisText_check_aList) is 1 then
					set Done_dothisText_check_aList to do shell script "echo " & character 1 of dothisText_check_aList & " | tr [:lower:] [:upper:]"
					set aText to Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
				end if
				if (length of dothisText_check_aList) > 1 then
					if dothisText_check_aList is in aList then -- in aList
						-- delay 0.02
						if LowerCase contains dothisText_check_aList then
							set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:upper:] [:lower:] "
							set aText to Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
						end if
						-- delay 0.02
						if UpperCase contains dothisText_check_aList then
							set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:lower:] [:upper:] "
							set aText to Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
						end if
						-- delay 0.02
						if UpperLower contains dothisText_check_aList then
							-- delay 0.02
							repeat with i from 1 to (count UpperLower)
								if dothisText_check_aList is (item i of UpperLower) then
									-- delay 0.02
									set Done_dothisText_check_aList to (item i of UpperLower)
									exit repeat
								end if
							end repeat
							set aText to Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
						end if
					else -- dothisText_check_aList is NOT in aList then
						-- delay 0.03
						set Done_dothisText_check_aList to do shell script "echo " & character 1 of dothisText_check_aList & " | tr [:lower:] [:upper:]"
						repeat with x from 2 to (length of dothisText_check_aList)
							-- delay 0.02
							set bText to do shell script "echo " & character x of dothisText_check_aList & " | tr [:upper:] [:lower:]"
							set Done_dothisText_check_aList to Done_dothisText_check_aList & bText
						end repeat
						set aText to Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
					end if -- if dothisText_check_aList is in aList then
				end if -- if (length of dothisText_check_aList) > 1 then
			end if -- if go_textwithApostrophes is 1 -- if last character of (text item N of CopT) is in EndBlanket then
		end if -- if first character of (text item N of CopT) is not in StartBlanket then
	end if -- if last character of (text item N of CopT) is in EndBlanket then
	-- end - added - for script 27
	-- for script 27
	-- startblanket & textwithApostrophes & endblanket
	-- delay 0.02
	if last character of (text item N of CopT) is in EndBlanket then
		-- delay 0.02
		if first character of (text item N of CopT) is in StartBlanket then
			-- delay 0.02
			set targetText to (text item N of CopT)
			-- delay 0.03
			set AppleScript's text item delimiters to prevTIDs
			set endchar_number to (length of targetText) - 1
			set delete_StartEndBlanket_Text to (characters 2 thru endchar_number of targetText) as string
			repeat with j from 1 to count ApostrophesList
				if delete_StartEndBlanket_Text ends with item j of ApostrophesList then
					set delete_StartEndBlanket_Text_Apostrophes to delete_StartEndBlanket_Text
					set go_textwithApostrophes to 1
					exit repeat
				else
					set go_textwithApostrophes to 0
				end if
			end repeat
			if go_textwithApostrophes is 1 then
				set AppleScript's text item delimiters to (item j of ApostrophesList)
				set dothisText_check_aList to text item 1 of delete_StartEndBlanket_Text_Apostrophes
				-- delay 0.02
				set AppleScript's text item delimiters to " " -- added - can't get text item
				if (length of dothisText_check_aList) is 0 then -- o'clock
					set aText to "O'Clock" & (last character of targetText)
				end if
				if (length of dothisText_check_aList) is 1 then
					set Done_dothisText_check_aList to do shell script "echo " & character 1 of dothisText_check_aList & " | tr [:lower:] [:upper:]"
					set aText to (first character of targetText) & Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
				end if
				if (length of dothisText_check_aList) > 1 then
					if dothisText_check_aList is in aList then -- in aList
						-- delay 0.02
						if LowerCase contains dothisText_check_aList then
							set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:upper:] [:lower:] "
							set aText to (first character of targetText) & Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
						end if
						-- delay 0.02
						if UpperCase contains dothisText_check_aList then
							set Done_dothisText_check_aList to do shell script "echo " & dothisText_check_aList & " | tr [:lower:] [:upper:] "
							set aText to (first character of targetText) & Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
						end if
						-- delay 0.02
						if UpperLower contains dothisText_check_aList then
							-- delay 0.02
							repeat with i from 1 to (count UpperLower)
								if dothisText_check_aList is (item i of UpperLower) then
									-- delay 0.02
									set Done_dothisText_check_aList to (item i of UpperLower)
									exit repeat
								end if
							end repeat
							set aText to (first character of targetText) & Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
						end if
					else -- dothisText_check_aList is NOT in aList then
						-- delay 0.03
						set Done_dothisText_check_aList to do shell script "echo " & character 1 of dothisText_check_aList & " | tr [:lower:] [:upper:]"
						repeat with x from 2 to (length of dothisText_check_aList)
							-- delay 0.02
							set bText to do shell script "echo " & character x of dothisText_check_aList & " | tr [:upper:] [:lower:]"
							set Done_dothisText_check_aList to Done_dothisText_check_aList & bText
						end repeat
						set aText to (first character of targetText) & Done_dothisText_check_aList & (item j of ApostrophesList) & (last character of targetText)
					end if -- if dothisText_check_aList is in aList then
				end if -- if (length of dothisText_check_aList) > 1 then
			end if
		end if
	end if
	-- end - startblanket & textwithApostrophes & endblanket
	-- end - for script 27
	-- delay 0.03
	set AppleScript's text item delimiters to {" "}
	if go_textwithApostrophes is 0 or done_endstartQuote_text_noSpaces is 0 then
		-- delay 0.03
		if (text item N of CopT) is not in aList then
			-- delay 0.05
			-- length > 2
			if length of (text item N of CopT) is greater than 2 then
				-- add fix 83.3
				-- SlashText - word with one Slash (ab/cd) is supported
				if (text item N of CopT) contains "/" then
					if character 1 of (text item N of CopT) is not "/" then
						set sepText to (text item N of CopT)
						repeat with x from 1 to length of sepText
							if character x of sepText is "/" then
								set posSlash to x
								exit repeat
							end if
						end repeat
						set numCharEndSlashText to posSlash - 1
						set EndSlashText to ""
						repeat with x from 1 to numCharEndSlashText
							set EndSlashText to EndSlashText & character x of sepText
						end repeat
						set StartSlashText to ""
						repeat with x from (posSlash + 1) to length of sepText
							set StartSlashText to StartSlashText & character x of sepText
						end repeat
						-- delay 0.02
						repeat 1 times
							if LowerCase contains EndSlashText then
								-- delay 0.02
								set slashText1 to do shell script "echo " & EndSlashText & " | tr [:upper:] [:lower:] "
								exit repeat
							end if
							-- delay 0.02
							if UpperCase contains EndSlashText then
								-- delay 0.02
								set slashText1 to do shell script "echo " & EndSlashText & " | tr [:lower:] [:upper:] "
								exit repeat
							end if
							if UpperLower contains EndSlashText then
								-- delay 0.02
								repeat with i from 1 to (count UpperLower)
									if EndSlashText is item i of UpperLower then
										-- delay 0.02
										set slashText1 to item i of UpperLower
										exit repeat
									end if
								end repeat
							else -- EndSlashText is not in aList
								set slashText1 to do shell script "echo " & character 1 of EndSlashText & " | tr [:lower:] [:upper:]"
								repeat with x from 2 to (length of EndSlashText)
									set bText to do shell script "echo " & character x of EndSlashText & " | tr [:upper:] [:lower:]"
									set slashText1 to slashText1 & bText
								end repeat
							end if
						end repeat -- repeat 1 times
						repeat 1 times
							-- delay 0.02
							if LowerCase contains StartSlashText then
								set slashText2 to do shell script "echo " & StartSlashText & " | tr [:upper:] [:lower:] "
								exit repeat
							end if
							-- delay 0.02
							if UpperCase contains StartSlashText then
								-- delay 0.02
								set slashText2 to do shell script "echo " & StartSlashText & " | tr [:lower:] [:upper:] "
								exit repeat
							end if
							-- delay 0.02
							if UpperLower contains StartSlashText then
								repeat with i from 1 to (count UpperLower)
									-- delay 0.02
									if StartSlashText is item i of UpperLower then
										-- delay 0.02
										set slashText2 to item i of UpperLower
										exit repeat
									end if
								end repeat
							else -- StartSlashText is not in aList
								set slashText2 to do shell script "echo " & character 1 of StartSlashText & " | tr [:lower:] [:upper:]"
								repeat with x from 2 to (length of StartSlashText)
									set bText to do shell script "echo " & character x of StartSlashText & " | tr [:upper:] [:lower:]"
									set slashText2 to slashText2 & bText
								end repeat
							end if
						end repeat -- repeat 1 times
						set aText to slashText1 & "/" & slashText2
					end if
				end if
				-- end add fix 83.3
				-- delay 0.05
				if character 1 of (text item N of CopT) is in StartBlanket then
					-- delay 0.05
					if last character of (text item N of CopT) is in EndBlanket then
						-- delay 0.02
						-- change add - fix 83.3 InBlanketText - (text item N of CopT) is not in aList
						set sepText to (text item N of CopT)
						set InBlanketText to ""
						repeat with x from 2 to (length of sepText) - 1
							set InBlanketText to InBlanketText & character x of sepText
						end repeat
						repeat 1 times
							-- delay 0.02
							if LowerCase contains InBlanketText then
								-- delay 0.02
								set aText to do shell script "echo " & InBlanketText & " | tr [:upper:] [:lower:] "
								set aText to character 1 of (text item N of CopT) & aText & last character of sepText
								exit repeat
							end if
							-- delay 0.02
							if UpperCase contains InBlanketText then
								-- delay 0.02
								set aText to do shell script "echo " & InBlanketText & " | tr [:lower:] [:upper:] "
								set aText to character 1 of (text item N of CopT) & aText & last character of sepText
								exit repeat
							end if
							if UpperLower contains InBlanketText then
								-- delay 0.02
								repeat with i from 1 to (count UpperLower)
									if InBlanketText is item i of UpperLower then
										-- delay 0.02
										set aText to item i of UpperLower
										set aText to character 1 of (text item N of CopT) & aText & last character of sepText
										exit repeat
									end if
								end repeat
							else -- StartBlanketText is not in aList
								if (text item N of CopT) does not contain "'" then -- added for s27
									set aText to do shell script "echo " & character 2 of sepText & " | tr [:lower:] [:upper:]"
									repeat with x from 3 to (length of sepText) - 1
										set bText to do shell script "echo " & character x of sepText & " | tr [:upper:] [:lower:]"
										set aText to aText & bText
									end repeat
									set aText to character 1 of sepText & aText & last character of sepText
								end if
							end if
						end repeat -- repeat 1 times
						-- end change add - fix 83.3 InBlanketText - (text item N of CopT) is not in aList
					end if
					-- add fix 83.3
					if last character of (text item N of CopT) is not in EndBlanket then
						set sepText to (text item N of CopT)
						set StartBlanketText to ""
						repeat with x from 2 to length of sepText
							set StartBlanketText to StartBlanketText & character x of sepText
						end repeat
						repeat 1 times
							if LowerCase contains StartBlanketText then
								-- delay 0.02
								set aText to do shell script "echo " & StartBlanketText & " | tr [:upper:] [:lower:] "
								set aText to character 1 of (text item N of CopT) & aText
								exit repeat
							end if
							-- delay 0.02
							if UpperCase contains StartBlanketText then
								-- delay 0.02
								set aText to do shell script "echo " & StartBlanketText & " | tr [:lower:] [:upper:] "
								set aText to character 1 of (text item N of CopT) & aText
								exit repeat
							end if
							if UpperLower contains StartBlanketText then
								-- delay 0.02
								repeat with i from 1 to (count UpperLower)
									if StartBlanketText is item i of UpperLower then
										-- delay 0.02
										set aText to item i of UpperLower
										set aText to character 1 of (text item N of CopT) & aText
										exit repeat
									end if
								end repeat
							else -- StartBlanketText is not in aList
								if (text item N of CopT) does not contain "'" then -- added for s27
									set aText to do shell script "echo " & character 2 of sepText & " | tr [:lower:] [:upper:]"
									repeat with x from 3 to length of sepText
										set bText to do shell script "echo " & character x of sepText & " | tr [:upper:] [:lower:]"
										set aText to aText & bText
									end repeat
									set aText to character 1 of sepText & aText
								end if -- added for s27
							end if
						end repeat -- repeat 1 times
					end if -- last character of (text item N of CopT) is not in EndBlanket
					-- end add fix 83.3
				end if -- character 1 of (text item N of CopT) is in StartBlanket
				-- add if StartBlanket
				if character 1 of (text item N of CopT) is not in StartBlanket then
					-- delay 0.02
					-- add fix 83.3
					if last character of (text item N of CopT) is not in EndBlanket then
						if (text item N of CopT) does not contain "/" and (text item N of CopT) does not contain "'" then
							set targetText_NoSlash to (text item N of CopT) -- added for script 27
							-- end add fix 83.3
							set aText to do shell script "echo " & character 1 of targetText_NoSlash & " | tr [:lower:] [:upper:]"
							repeat with x from 2 to length of targetText_NoSlash
								-- delay 0.02
								set bText to do shell script "echo " & character x of targetText_NoSlash & " | tr [:upper:] [:lower:]"
								set aText to aText & bText
							end repeat
						end if
					end if
					-- add fix 83.3
					if last character of (text item N of CopT) is in EndBlanket then
						set sepText to (text item N of CopT)
						set EndBlanketText to ""
						repeat with x from 1 to (length of sepText) - 1
							set EndBlanketText to EndBlanketText & character x of sepText
						end repeat
						repeat 1 times
							if LowerCase contains EndBlanketText then
								-- delay 0.02
								set aText to do shell script "echo " & EndBlanketText & " | tr [:upper:] [:lower:] "
								set aText to aText & last character of sepText
								exit repeat
							end if
							-- delay 0.02
							if UpperCase contains EndBlanketText then
								-- delay 0.02
								set aText to do shell script "echo " & EndBlanketText & " | tr [:lower:] [:upper:] "
								set aText to aText & last character of sepText
								exit repeat
							end if
							if UpperLower contains EndBlanketText then
								-- delay 0.02
								repeat with i from 1 to (count UpperLower)
									if EndBlanketText is item i of UpperLower then
										-- delay 0.02
										set aText to item i of UpperLower
										set aText to aText & last character of sepText
										exit repeat
									end if
								end repeat
							else -- EndBlanketText is not in aList
								if (text item N of CopT) does not contain "'" then -- added for s27
									set aText to do shell script "echo " & character 1 of sepText & " | tr [:lower:] [:upper:]"
									repeat with x from 2 to ((length of sepText) - 1)
										set bText to do shell script "echo " & character x of sepText & " | tr [:upper:] [:lower:]"
										set aText to aText & bText
									end repeat
									set aText to aText & last character of sepText
								end if -- if (text item N of CopT) does not contain "'" then -- added for s27
							end if
						end repeat -- repeat 1 times
					end if -- last character of (text item N of CopT) is in EndBlanket
					-- end add fix 83.3
				end if -- character 1 of (text item N of CopT) is not in StartBlanket
			end if -- length > 2
			-- length = 1
			if length of (text item N of CopT) is 1 then
				if (text item N of CopT) is item 1 of igList then -- changed 2018-10-29_08.46.11
					set aText to "|"
				else
					-- added 2018-10-29_08.46.11
					if (text item N of CopT) is item 2 of igList then
						set aText to "&"
						-- end added 2018-10-29_08.46.11
					else
						set aText to do shell script "echo " & (text item N of CopT) & " | tr [:lower:] [:upper:]"
					end if
				end if
			end if
			-- add fix 83.3 spaces
			if length of (text item N of CopT) is 0 then
				if (text item N of CopT) is "" then
					set aText to ""
				end if
			end if
			-- end add fix 83.3 spaces
			-- length = 2
			if length of (text item N of CopT) is equal to 2 then
				-- delay 0.02
				-- add fix 83.3
				if character 1 of (text item N of CopT) is in StartBlanket then
					set sepText to (text item N of CopT)
					set StartBlanketText to character 2 of sepText
					repeat 1 times
						if LowerCase contains StartBlanketText then
							-- delay 0.02
							set aText to do shell script "echo " & StartBlanketText & " | tr [:upper:] [:lower:] "
							set aText to character 1 of (text item N of CopT) & aText
							exit repeat
						end if
						-- delay 0.02
						if UpperCase contains StartBlanketText then
							-- delay 0.02
							set aText to do shell script "echo " & StartBlanketText & " | tr [:lower:] [:upper:] "
							set aText to character 1 of (text item N of CopT) & aText
							exit repeat
						end if
						if UpperLower contains StartBlanketText then
							-- delay 0.02
							repeat with i from 1 to (count UpperLower)
								if StartBlanketText is item i of UpperLower then
									-- delay 0.02
									set aText to item i of UpperLower
									set aText to character 1 of (text item N of CopT) & aText
									exit repeat
								end if
							end repeat
						else -- StartBlanketText is not in aList
							if (text item N of CopT) does not contain "'" then -- added for s27
								set aText to do shell script "echo " & character 2 of sepText & " | tr [:lower:] [:upper:]"
								set aText to character 1 of sepText & aText
							end if
						end if
					end repeat -- repeat 1 times
				end if -- character 1 of (text item N of CopT) is in StartBlanket
				if last character of (text item N of CopT) is in EndBlanket then
					set sepText to (text item N of CopT)
					set EndBlanketText to character 1 of sepText
					repeat 1 times
						if LowerCase contains EndBlanketText then
							-- delay 0.02
							set aText to do shell script "echo " & EndBlanketText & " | tr [:upper:] [:lower:] "
							set aText to aText & last character of sepText
							exit repeat
						end if
						-- delay 0.02
						if UpperCase contains EndBlanketText then
							-- delay 0.02
							set aText to do shell script "echo " & EndBlanketText & " | tr [:lower:] [:upper:] "
							set aText to aText & last character of sepText
							exit repeat
						end if
						if UpperLower contains EndBlanketText then
							-- delay 0.02
							repeat with i from 1 to (count UpperLower)
								if EndBlanketText is item i of UpperLower then
									-- delay 0.02
									set aText to item i of UpperLower
									set aText to aText & last character of sepText
									exit repeat
								end if
							end repeat
						else -- EndBlanketText is not in aList
							if (text item N of CopT) does not contain "'" then -- added for s27
								set aText to do shell script "echo " & character 1 of sepText & " | tr [:lower:] [:upper:]"
								set aText to aText & last character of sepText
							end if
						end if
					end repeat -- repeat 1 times
				end if -- last character of (text item N of CopT) is in EndBlanket
				if last character of (text item N of CopT) is not in EndBlanket then
					-- delay 0.02
					if character 1 of (text item N of CopT) is not in StartBlanket then
						set aText to do shell script "echo " & character 1 of (text item N of CopT) & " | tr [:lower:] [:upper:]"
						set bText to do shell script "echo " & character 2 of (text item N of CopT) & " | tr [:upper:] [:lower:]"
						set aText to aText & bText
					end if
				end if
				-- end add fix 83.3
			end if -- length = 2
		end if -- (text item N of CopT) is not in aList then
	end if -- go_textwithApostrophes is 0 then
	-- added - for script 27
	if go_textwithApostrophes is 0 or done_endstartQuote_text_noSpaces is 0 then
		-- end - added - for script 27
		if LowerCase contains (text item N of CopT) then
			if character 1 of (text item N of CopT) is not in StartBlanket then
				-- delay 0.02
				set aText to do shell script "echo " & text item N of CopT & " | tr [:upper:] [:lower:] "
			end if
		end if
		-- delay 0.02
		if UpperCase contains (text item N of CopT) then
			if character 1 of (text item N of CopT) is not in StartBlanket then
				-- delay 0.02
				set aText to do shell script "echo " & text item N of CopT & " | tr [:lower:] [:upper:] "
			end if
		end if
		if UpperLower contains (text item N of CopT) then
			-- delay 0.02
			set Fitem to text item N of CopT
			repeat with i from 1 to (count UpperLower)
				if Fitem is item i of UpperLower then
					-- delay 0.02
					set aText to item i of UpperLower
					exit repeat
				end if
			end repeat
		end if
	end if -- go_textwithApostrophes is 0 then
	-- delay 0.02
	set myText1 to myText1 & aText & " "
end repeat
if Go_Underscore is 0 then -- added - 27.2
	set the clipboard to myText1
end if -- end - added - 27.2
if Go_Underscore is 1 then
	set myText2 to characters of myText1 -- make list of chars

	repeat with i from 1 to count listposUnderscore
		set item (item i of listposUnderscore) of myText2 to "_"
	end repeat

	set astid to AppleScript's text item delimiters
	set AppleScript's text item delimiters to ""
	set myText3 to myText2 as text
	set AppleScript's text item delimiters to astid
	set the clipboard to myText3
end if
delay 0.2
tell application "System Events"
	keystroke "v" using command down
	delay 0.02
	key code 51
	delay 0.02
	repeat Lencopt times
		key code 123 using shift down
		delay 0.01
	end repeat
end tell