*! table -- Create formatted tables in Stata            dm24: STB-23
*! version 1.0     William H. Rogers     December 1994
program define table
    local cmd `1'
    mac shift
    local i length("`cmd'")
    if ("`cmd'"==substr("number",1,`i')) { t_num `*' }
    else if ("`cmd'"==substr("text",1,`i')) {
        local s "`1'"
        mac shift
        t_text "`s'" `*'
    }
    else if ("`cmd'"==substr("print",1,`i')) { t_print `*' }
    else if ("`cmd'"==substr("display",1,`i')) { t_print `*' }
    else if ("`cmd'"==substr("format",1,`i')) { t_form `*' }
    else if ("`cmd'"==substr("drop",1,`i')) { t_drop `*' }
    else if ("`cmd'"==substr("define",1,`i')) { t_def `1' "`2'" }
    else if ("`cmd'"==substr("declare",1,`i')) { t_def `1' "`2'" }
    else { error 198 }
end