*! 1.0.0 NJC 17 December 1999    (STB-54: ip29.1)
program define archinst
	version 6.0
	gettoken pkgname 0 : 0, parse(" ,")  
	if "`pkgname'" == "" | "`pkgname'" == "," { 
		di in r "incorrect syntax"
		exit 198 
	}
	syntax [, all replace ] 

	local init = substr("`pkgname'",1,1) 
	qui net from http://fmwww.bc.edu/RePEc/bocode/`init'
	net install `pkgname', `all' `replace' 
end