; pmas_lamps_off.pro
; IDL routine to switch off all lamps with *one* command
;
;---------------------------------------------------------------------------------

; switch off all lamps and close all shutters: 

spawn,'clmpPow1 off',r 			; switch off continuous lamp (Hal) 
spawn,'shc1 close',r 			; close shutter cont. lamp 

spawn,'llmpPow1 off',r 			; switch off line lamp 1 
spawn,'llmpPow2 off',r 			; switch off line lamp 2 
spawn,'shl1 close',r ; 			; close shutter line lamp 1 
spawn,'shl2 close',r 			; close shutter line lamp 2  
spawn,'shl3 close',r 			; close shutter line lamp 3  
spawn,'shl4 close',r 			; close shutter line lamp 4  


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

P_EXIT:

END