Text1 object, font is use x+2

Question

Modifying a text object.
Using Format Painter to change font styles.
dynamic font styles
Format Editor
:Font:
Font: Arial x+2
http://www.scientificcomputing.com/images/0602/sc62OLS_fig1_lrg.jpg
Now, would you mind to tell me,
In
Format Editor
:Font:
Font: Arial x+2
click x+2
formula. font name
enter this code, but no success work?
this code is check that filed (string) is "Chinese" string or "english" string
if is "chinese" string, return Text1.Text object, Font is use "Arial"
else
is "english" string, return Text1.Text Object , Font is use  "Bookman Old Style"
Please!
stringvar x := {JOSX.T_SOURCE};
stringvar y := '';
numbervar i;
for i := 1 to length(x) do
if asc(x<i>) > 128 then
//y := "non-english name. chinese name, japan name. " & x;
"Arial"
i := length(x) + 2;
exit for;
if i = length(x) + 1 then
//y := "english name. " & x;
"Bookman Old Style"
//y;

Answer 1

Try changing it to:
stringvar x := {JOSX.T_SOURCE};
numbervar i;
numbervar t;
t := 0;
for i := 1 to length(x) do
if asc(x<i>) > 128 then
t := 1;
exit for;
if t = 1 then
"Arial"
) else (
"Bookman Old Style"
HTH,
Carl