program define logdummy
version 2.1
*! This is version 1.0 16 August 1991
    if "%_1"=="" {
         di in red "invalid syntax -- see help logdummy"
         exit 198
    }
        mac def _varlist "req ex min(1)"
        parse "%_*"
        parse "%_varlist", parse(" ")
         while ("%_1"!="") {
              emdef dum : se %_1
              mac def _dumvar=%dum^2
di "the percentage change in the dependent variable per change in the"
di "dummy variable "in gr "%_1 " in ye "is " /*
    */in whi %6.3f 100*(exp(_b[%_1]-(.5*%_dumvar))-1) "%"
di ""
         mac shift
         }
end