* dm24: STB-23
program define t_def
    version 3.1
    if (length("`1'")>4) { error 876 }
    local z `1'_str
    if ("$`z'"~="") { t_drop `1' }
    global `1'_tit "`2'"
    global `1'_r 1
    global `1'_c 1
    global `1'_2 "."
    global `1'_3 "stub"
    matrix `1'_V = J(1,1,0)
    matrix `1'_F = I(1)
    matrix `1'_M = J(1,1,0)
    matrix `1'_F[1,1] = 4096 + 3
    matrix rownames `1'_F = stub
    matrix colnames `1'_F = stub
    global S_t `1'
    global `1'_str 4
end