*! version 1.6.0 NJC 8 June 1998  STB-45 ip26
* bivariate results for each pair of variables in a varlist
program define biv
    version 5.0
    parse "`*'", parse(" ,")
    local pname "`1'"
    mac shift
    local varlist "opt ex"
    local if "opt"
    local in "opt"
    local weight "aweight fweight iweight pweight"
    local options "HEader(str) HStart(int 21) Pause Echo Con"
    local options "Quiet Own(str) Asy `options' *"
    parse "`*'"
    parse "`varlist'", parse(" ")
    if "`weight'" != "" { local w " [`weight' `exp']" }
    if "`if'" != "" { local which " `if'" }
    if "`in'" != "" { local which "`which' `in'" }
    local n : word count `varlist'
    if `n' < 2 {
        di in r "too few variables specified"
        exit 102
    }
    if "`con'" == "con" { local con "_c" }
    if "`header'" != "" { di _n _col(`hstart') in g  "`header'" }
    if "`options'" != "" { local options ", `options'" }
    local i = 1
    while `i' <= `n' {
        local j = `i' + 1
        while `j' <= `n' {
            `quiet' di
            if "`echo'" != "" {
                di in g "``i''" _col(10) "``j''" _col(19) " " `con'
            }
            `quiet' di in bl "-> `pname' ``i'' ``j''`which'`w'`options'"
            `quiet' `pname' ``i'' ``j''`which'`w'`options'
            if "`pause'" == "pause" { more }
            `own'
            if "`asy'" == "asy" {
                `quiet' di
                if "`echo'" != "" {
                    di in g "``i''" _col(10) "``j''" _col(19) " " `con'
                }
                `quiet' di in bl /*
                 */ "-> `pname' ``i'' ``j''`which'`w'`options'"
                `quiet' `pname' ``i'' ``j''`which'`w'`options'"
                if "`pause'" == "pause" { more }
                `own'
            }
            local j = `j' + 1
        }
        local i = `i' + 1
    }
end