{
curdir_ = pwd()
cd getenv("DPUSER")
run "curvefit.pro"
run "precess.pro"
run "coordstring.fnc"
run "premat.fnc"
run "primes.fnc"
run "idl_compat.dpuser"
run "histrev.fnc"
run "angdist.fnc"
cd "astrolib"
list = findfile("*.pro")
list += findfile("*.fnc")
for i_ = 1, nelements(list) run list[i_]
cd curdir_
}
