*! 2.0.2 (Feb 18, 1997) Jeroen Weesie/ICS STB-35 dm43
*  1.0.0 (Jul 10, 1996) Jeroen Weesie/ICS 

program define defntion
    version 5.0

    local varlist "opt exist"
    local options "Other"
    parse "`*'"
        
    parse "`varlist'", p(" ")
    while "`1'" != "" {
        local def: char `1'[Defntion]
        if "`def'" == "" & "`other'" != "" { 
            local def "... no defintion" 
        }
        if "`def'" != "" { 
            if "`header'" == "" { 
                di _n in gr "Variable | definition (char Defntion)" 
                di    in gr "---------+" _dup(69) "-"
                local header "1"
            }
            di in gr "`1'" _col(10) "| " in ye "`def'"
        }
        mac shift
    }
    if "`header'" == "" { 
        di in gr "no defined variables" 
    }
end
exit