*
*  prolog.do
*
*       prolog file for bench testing of STATA.
*
*       Syntax:  run prolog name
*
*       Purpose:
*               resets STATA environment
*


local dup = 79-6-length("`*'")
noi di _dup(`dup') "-" "BEGIN `*'"
* ------------------------------------------------------------------ drop all
drop _all
label drop _all
macro drop _all
program drop _all
matrix drop _all
scalar drop _all
discard

* ---------------------------------------------------- set default conditions
set type float

* ------------------------------------------------------------- end of prolog