* dm24: STB-23
program define t_text
    local value = "`1'"
    mac shift
    local options "Table(string) Row(string) COLumn(string) FONt(string)"
    parse "`*'"
    if ("`table'"=="") { local table $S_t }
    if ("`row'"~="") { local row "row(`row')" }
    if ("`column'"~="") { local column "col(`column')" }
    if ("`font'"~="") { local font "font(`font')" }
    t_crcs , table(`table') `row' `column' `font'
    local row $`table'_r    /* we dont want to disturb existing S_1 */
    local col $`table'_c
    local font $`table'_f
    local strno = $`table'_str
    global `table'_`strno' "`value'"
    matrix `table'_F[`row',`col'] = 32768*(`table'_F[`row',`col']) + 4096*`font' + `strno'
    global `table'_str = `strno' + 1
end