;+
;   Pint of Ale startup used under SolarSoft environement
;
;   S.L.Freeland - 10-aug-2004
;
;-
ssw_path,/poa      ; add poa paths

parfile='initale.par'
pardirs=[get_logenv(['$HOME','$SSW_SITE_SETUP']),concat_dir('$SSW_POA','setup')]
parfiles=concat_dir(pardirs,parfile)
ss=where(file_exist(parfiles),pcnt)
pfil=''
box_message,parfiles(ss(0))
if pcnt gt 0 then pfil=parfiles(ss(0)) ; take first match 
initale_pro,parfil=pfil       


box_message,['To set PINTofALE default colors:',$
             'IDL> poa_colors']