* dm24: STB-23
program define t_num
    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
    if (`value'==.) { matrix `table'_F[`row',`col'] = 32768*(`table'_F[`row',`col']) + 4096*`font' + 2 }
    else {
        matrix `table'_V[`row',`col'] = `value'
        matrix `table'_F[`row',`col'] = 32768*(`table'_F[`row',`col']) + 4096*`font' + 1
    }
end