; pmas_lamps_on.pro 
; IDL routine to switch on all lamps with *one* command 
; 
;---------------------------------------------------------------------------------

spawn,'clmpPow1 on',r 		; continuum lamp (Hal): on/off 
spawn,'shc1 open',r 		; cont. lamp shutter: open/close  

spawn,'llmpPow1 on',r 		; line lamp power 1 (Neon): on/off  
spawn,'llmpPow2 on',r 		; line lamp power 2 (Hg):   on/off 
spawn,'llmp1_2 1',r 		; select line lamp 1 (Ne) or 2 (Kr)  
spawn,'llmp3_4 3',r 		; select line lamp 3 (Hg) or 4 (Ar)  
spawn,'shl1 open',r ; 		; shutter line lamp 1 (Ne): open/close  
spawn,'shl2 close',r ; 		; shutter line lamp 2 (Kr): open/close  
spawn,'shl3 open',r 		; shutter line lamp 3 (Hg): open/close 
spawn,'shl4 close',r ; 		; shutter line lamp 4 (Ar): open/close  
				; NOTE: Hg is shutter no. 3 
				; but power supply no 2 !! 

wait,10 


spawn,'calsboxStatus',r
print,'--- checking calsboxStatus -------------------------------------------'
for i=0,n_elements(r)-1 do print,r(i)
print,'----------------------------------------------------------------------'

P_EXIT:

END