make_perfview
declare $count
declare ui_label $a00 (1,1)
declare ui_label $a01 (1,1)
declare ui_label $a02 (1,1)
declare ui_label $a03 (1,1)
declare ui_label $a04 (1,1)
declare ui_label $a05 (1,1)
declare ui_label $a06 (1,1)
declare ui_label $a07 (1,1)
declare ui_label $a08 (1,1)
declare ui_label $a09 (1,1)
declare ui_label $a10 (1,1)
declare ui_label $a11 (1,1)
declare ui_label $a12 (1,1)
declare ui_label $a13 (1,1)
declare ui_label $a14 (1,1)
declare ui_label $a15 (1,1)
declare ui_label $a16 (1,1)
declare ui_label $a17 (1,1)
declare ui_label $a18 (1,1)
declare ui_label $a19 (1,1)
declare ui_label $a20 (1,1)
declare ui_label $a21 (1,1)
declare ui_label $a22 (1,1)
declare ui_label $a23 (1,1)
declare ui_label $a24 (1,1)
declare %id_a[25]
%id_a[0] := get_ui_id($a00)
%id_a[1] := get_ui_id($a01)
%id_a[2] := get_ui_id($a02)
%id_a[3] := get_ui_id($a03)
%id_a[4] := get_ui_id($a04)
%id_a[5] := get_ui_id($a05)
%id_a[6] := get_ui_id($a06)
%id_a[7] := get_ui_id($a07)
%id_a[8] := get_ui_id($a08)
%id_a[9] := get_ui_id($a09)
%id_a[10] := get_ui_id($a10)
%id_a[11] := get_ui_id($a11)
%id_a[12] := get_ui_id($a12)
%id_a[13] := get_ui_id($a13)
%id_a[14] := get_ui_id($a14)
%id_a[15] := get_ui_id($a15)
%id_a[16] := get_ui_id($a16)
%id_a[17] := get_ui_id($a17)
%id_a[18] := get_ui_id($a18)
%id_a[19] := get_ui_id($a19)
%id_a[20] := get_ui_id($a20)
%id_a[21] := get_ui_id($a21)
%id_a[22] := get_ui_id($a22)
%id_a[23] := get_ui_id($a23)
%id_a[24] := get_ui_id($a24)
$count := 0
while ($count < num_elements(%id_a))

set_control_par (%id_a[$count],$CONTROL_PAR_FONT_TYPE,$count)
set_control_par_str (%id_a[$count],$CONTROL_PAR_TEXT,$count & " - ABCabc123")
inc($count)

end while