* dm24: STB-23
program define t_form
    local value = "`1'"
    mac shift
    local options "Table(string) Row(string) COLumn(string) FONt(string)"
    parse "`*'"
    if ("`table'"=="") { local table $S_t }
    local oc = ${`table'_c}
    local or = ${`table'_r}
    if ("`row'"~="") { local row "row(`row')" }
    else { local row "row(_all)" }
    if ("`column'"~="") { local column "col(`column')" }
    else { local column "col(_all)" }
    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'"
    if (`row'==0) {
        global `table'_C`col' "`strno'"
    }
    else if (`col'==0) { global `table'_R`row' "`strno'" }
    else { mat `table'_M[`row',`col'] = `strno' }
    global `table'_str = `strno' + 1
    if (${`table'_r}==0) { global `table'_r `or' }
    if (${`table'_c}==0) { global `table'_c `oc' }
end