pro tr_switch_dirs
;+
;NAME:
;	tr_switch_dirs
;PURPOSE:
;	To allow switching between what directories to use for
;	TRACE HK and data files when running at LMSAL
;HISTORY:
;	Written 27-Oct-97 by M.Morrison
;	 2-Dec-97 (MDM) - Some additions
;	11-Dec-97 (MDM) - Added selection of 1 hr/FITS files
;-
;
n = 13
menu  = strarr(n)
cmd = strarr(n)
menu(0) = 'Use "apache" HK'			& cmd(0) = "setenv,'GSE_GENTM_LOG_DIR=/td10/log/schk'
menu(1) = 'Use "DPS" HK for Aug/Sep-97 TB/TV'	& cmd(1) = "setenv,'GSE_GENTM_LOG_DIR=/td11/log/hk_pre_launch/sc_tb_tv'
menu(2) = 'Use "DPS" HK for Oct-97 S/C Sim'	& cmd(2) = "setenv,'GSE_GENTM_LOG_DIR=/td11/log/hk_pre_launch/9710sim'
menu(3) = 'Use "DPS" HK for Nov-97 S/C Sim'	& cmd(3) = "setenv,'GSE_GENTM_LOG_DIR=/td11/log/hk_pre_launch/9711sim'
menu(4) = 'Use "DPS" HK for Dec-97 S/C Sim'	& cmd(4) = "setenv,'GSE_GENTM_LOG_DIR=/td11/log/hk_pre_launch/9712sim'
menu(5) = 'Use "shawnee" HK'			& cmd(5) = "setenv,'GSE_GENTM_LOG_DIR=/td22/log/schk'
menu(6) = 'Use "apache" old i0 FITS images'	& cmd(6) = "setenv,'GSE_DATA_DIR3=/td10'
menu(7) = 'Use "cheyenne" old i0 FITS images'	& cmd(7) = "setenv,'GSE_DATA_DIR3=/td11'
menu(8) = 'Use "shawnee" old i0 FITS images'	& cmd(8) = "setenv,'GSE_DATA_DIR3=/td22'
menu(9) = 'Use New i1 FITS img for Aug/Sep-97 TB/TV'	& cmd(9) = "setenv,'TRACE_I1_DIR=/td12/9709tv'
menu(10)= 'Use New i1 FITS img for Oct-97 S/C Sim'	& cmd(10)= "setenv,'TRACE_I1_DIR=/td12/9710sim'
menu(11)= 'Use New i1 FITS img for Nov-97 S/C Sim'	& cmd(11)= "setenv,'TRACE_I1_DIR=/td12/9711sim'
menu(12)= 'Use New i1 FITS img for Dec-97 S/C Sim'	& cmd(12)= "setenv,'TRACE_I1_DIR=/td11/log/raw_fits/9712sim'
;
imenu = xmenu_sel(menu, /one)
if (imenu ne -1) then begin
    print, cmd(imenu)
    stat = execute(cmd(imenu))
end
;
end