/*

Thu May 13 07:44:07 PDT 1993
Program name:  	driver
Output:		log and result2.dta
Syntax:		do driver <dofilename> <seed> <N> <REPS> <OUTNAME>

*/

drop _all

local dofile 	`1'
local seed	`2'
mac def N	`3'		/* must be global */
local   N	`3'
local REPS 	`4'
local OUTNAME 	`5'

set seed `seed'

noi di " do-file = `dofile'"
noi di "    seed = `seed'"
noi di "       N = `N'"
noi di "    REPS = `REPS'"
noi di " outname = `OUTNAME'"

run `dofile'

memset `REPS'
mkmodel `N'
doit `REPS'
noisily save `OUTNAME', replace
noisily reports $N