procedure hsp()
string mode = "al"

begin
	package hsp
	task		vasen,
			vaper1,
			vaper2,
			vap3l,
			vap3s,
			vdark,
			vdt,
			vflat,
			vflex,
			vfocus,
			vgnfac,
			vpthit,
			vpha,
			monitor,
			posvel,
			twodpolyfit,
			vpolef,
			vpolpa,
			vpolvf,
			vepoch,
			vevalp,
			vpolyfit,
			vrsen,
			vscatt,
			vwarm,
			vhvfac	= "hsp$x_hsp.e"
	task		calhsp  = "hsp$calhsp/x_calhsp.e"

	hidetask	vasen,
			vaper1,
			vaper2,
			vap3l,
			vap3s,
			vdark,
			vdt,
			vflat,
			vflex,
			vfocus,
			vgnfac,
			vpthit,
			vpha,
			vpolef,
			vpolpa,
			vpolvf,
			vepoch,
			vevalp,
			vpolyfit,
			vrsen,
			vscatt,
			vwarm,
			vhvfac

	task 		abssenv = "hsp$abssenv.cl"
	task 		analoglin = "hsp$analoglin.cl"
	task 		apercen = "hsp$apercen.cl"
	task		cal_tables = "hsp$cal_tables.par"
	task		darkv = "hsp$darkv.cl"
	task		deadtimev = "hsp$deadtimev.cl"
	task		flex = "hsp$flex.cl"
	task		focusv = "hsp$focusv.cl"
	task		gainfac = "hsp$gainfac.cl"
	task		imgscale = "hsp$imgscale.cl"
	task		lgaperloc = "hsp$lgaperloc.cl"
	task		parthitv = "hsp$parthitv.cl"
	task		phav = "hsp$phav.cl"
	task		poleffv = "hsp$poleffv.cl"
	task		polpav = "hsp$polpav.cl"
	task		polverify = "hsp$polverify.cl"
	task		polyepoch = "hsp$polyepoch.cl"
	task		polyeval = "hsp$polyeval.cl"
	task		polyfit = "hsp$polyfit.cl"
	task		relsen = "hsp$relsen.cl"
	task		scatterv = "hsp$scatterv.cl"
	task		smaperloc = "hsp$smaperloc.cl"
	task		taflat = "hsp$taflat.cl"
	task		voltfac = "hsp$voltfac.cl"
	task		warmup = "hsp$warmup.cl"

	cl()
end