;+
; Project     : SDAC
;                   
; Name        : GET_HXP
;               
; Purpose     : This function returns the hxrbs password on umbra. 
;               
; Category    : CGRO/BATSE 
;               
; Explanation : It opens a read protected file.
;               
; Use         : 
;    
; Inputs      : 
;               
; Opt. Inputs : None
;               
; Outputs     : None
;
; Opt. Outputs: None
;               
; Keywords    : 
;
; Calls       :
;
; Common      : None
;               
; Restrictions: Must have read permission on vms, 3-dec-1997.
;               
; Side effects: None.
;               
; Prev. Hist  : 
;
; Modified    : 
;	Version 1, richard.schwartz@gsfc.nasa.gov, 3-dec-1997.
;-            
;==============================================================================
function  get_hxp,x
on_error,2
hxps = ''
state = ''
if os_family() eq 'vms' then begin
	test = execute("state=rd_tfile(nocomm=';','user_disk0:[soft.batse]hxp.pro')")
	
	if test then test =execute(state(0))
endif

return, hxps
end