18 lines
420 B
Plaintext
18 lines
420 B
Plaintext
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
|