Subroutine First_Caps(Conv, Ans, Branch, Return_data)

Return_data = ""
If Ans NE "" then
	Convert @Upper_case to @Lower_case in Ans
	Len_ans = Len(Ans)
	For Loop = 1 to Len_ans
		Cur_char = Ans[Loop, 1]
		If (Loop EQ 1) OR (Ans[(Loop - 1), 1] EQ " ") then
			Convert @Lower_case to @Upper_case in Cur_char
		end
		Return_data := Cur_char
	Next Loop
	Swap "C/o " with "c/o " in Return_data 
end

Return
