#
# exam
exam 0	da ATMO.DAT
	read II 1 read PWV 2 read T 3
	SET PWV = 1 + (PWV - 1)/3 
	da GAIN.EXAMPLE
	read GAIN 1
	erase
	expand 1.1
	window 1 2 1 2
	SET TIME = II * 0.01
	limits TIME GAIN   box connect TIME GAIN
	xlabel Time [s]
	ylabel Gain
	window 1 2 1 1
	limits TIME PWV  box connect TIME PWV
	xlabel Time [s]
	ylabel PWV [mm]