doit 1 #
	device x11
	if ($1 > 0 ) {device postencap junk.ps }
	
	data zerop_0044_2022.dat
	read {wave 1 b1 2 r1 3 b2 4 r2 5}
	set b1 = b1+0.12
	set b2 = b2+0.12  # gain is 0.47 not 0.42
	smooth b1 b1sm 3
	smooth b2 b2sm 3
	smooth r1 r1sm 3
	smooth r2 r2sm 3

	ctype black
	expand 1.2
	window 1 2 1 2 
	limits 3000 9500 17 20
	ticksize 200 1000 0.2 1
	lweight 3
	box
	xlabel wavelength (\AA)
	ylabel flux (AB mag)
	
	ctype blue
	#connect wave b1sm
	
	ctype red
	#connect wave r1sm

	ctype blue
	connect wave b2sm
	
	ctype red
	connect wave r2sm

	device x11