*! 1.0.1 NJC 1 March 1998 Snow in Durham
program def marker
    version 5.0
    local varlist "ex"
    local if "opt"
    local in "opt"
    local weight "aweight fweight pweight iweight"
    local options "Gen(str) Strok"
    parse "`*'"
    if "`gen'" == "" { local gen "_marker" }
    mark `gen' [`weight'`exp'] `if' `in'
    markout `gen' `varlist', `strok'
end