dos=(STRLOWCASE(STRMID(!VERSION.OS,0,3)) EQ 'win')

IF dos THEN BEGIN & $
    dd='\' & $
    rd=' > ' & $
    rde=rd & $
    root='c:\data' & $
    droot=root & $
    iroot='c:\images' & $
    saveroot=['d:\images\save','e:'] & $
    fcaroot='d:\images\fca' & $
    rmcmd='del ' & $
    lscmd='dir ' & $
    cpcmd='copy ' & $
    mvcmd='move ' & $
    gzipcmd='c:\utils\gzip386 -f ' & $
    mkdircmd='mkdir ' & $
    kiexpcmd='c:\utils\lz78exp ' & $
    tasciize='c:\user\bernie\interp\temp -f ' & $
    expand_cmd='ucall' & $
    imagetype=['auroral','bias','calib','dark','flat','airglow'] & $
    cc='cam' & $
    ff='filt' & $
    calname='calib' & $
    dkname='dark' & $
    dc='_' & $
    ilist_suffix='.ili' & $
    ilist_keep_suffix='.ilf' & $
    ilist_zip_suffix='.ilz' & $
    ilist_root=droot+dd+'ilist' & $
    calsroot=droot+dd+'cals' & $
    cal_suffix='.rs' & $
    dkroot=droot+dd+'tar' & $
    meantag='.mea' & $
    ratetag='.rat' & $
    biastag='.bia' & $
    sroot='c:\idl\scripts' & $
    s_suffix='.bat' & $
    idlroot='c:\idl\steele' & $
    qlif_suffix='.qli' & $
    qlif_ps_suffix='.qps' & $
    psroot='c:\ps' & $
    igrfdir=root+dd+'igrf' & $
    ybscdir=root+dd+'ybsc4' & $
    fca_suffix='.cor' & $
    filtrans='c:\data\filters\filt.tra' & $
    ENDIF ELSE BEGIN & $
    dd='/' & $
    rd=' > ! ' & $
    rde=' > & ! ' & $
    root='/jasper/cnsr3_data1' & $
    droot=root & $
    iroot=root & $
    saveroot=iroot+dd+'save' & $
    fcaroot=iroot+dd+'fca' & $
    rmcmd='/bin/rm ' & $
    lscmd='/usr/bsd43/bin/ls ' & $
    cpcmd='/usr/bsd43/bin/cp ' & $
    mvcmd='/bin/mv ' & $
    gzipcmd='/usr/local/bin/gzip -f ' & $
    mkdircmd='/bin/mkdir ' & $
    kiexpcmd=root+dd+'bin/lz78exp ' & $
    tasciize=root+dd+'bin/stemp -f ' & $
    expand_cmd='ducall' & $
    imagetype=['aur','bias','cal','dk','flat','air'] & $
    cc='c' & $
    ff='f' & $
    calname='cal' & $
    dkname='dk' & $
    dc='.' & $
    ilist_suffix='.ilist' & $
    ilist_keep_suffix='.ilist.f' & $
    ilist_zip_suffix='.ilist.f.gz' & $
    ilist_root=droot+dd+'ilist' & $
    calsroot=droot+dd+'calstats' & $
    cal_suffix='.RsperDN' & $
    dkroot=droot+dd+dkname & $
    meantag='.mean*' & $
    ratetag='.rate*' & $
    biastag='.bias*' & $
    sroot=root+dd+'scripts' & $
    s_suffix='' & $
    idlroot='/aragorn/user2/steele/idl' & $
    qlif_suffix='.qlif' & $
    qlif_ps_suffix='.qlif.ps' & $
    psroot=root+dd+'ps' & $
    igrfdir='~alfredo\idlpro' & $
    ybscdir='~steele/ybsc4' & $
    fca_suffix='.corr' & $
    filtrans='~steele/PAC/filter/filt.trans'
    ENDELSE

bgroot=iroot+dd+'bkgrd'
flatroot=iroot+dd+'flat'
tapeinforoot=droot+dd+'tapes'
qlroot=droot+dd+'ql'
logroot=iroot+dd+'log'
meanparmroot=droot+dd+'meanparm'
pgmroot=droot+dd+'pgm'
starroot=root+dd+'starpos'
tmproot=iroot+dd+'tmp'
tproot=root+dd+'passband'
zbroot=root+dd+'zenith'
filtinfo=tproot+dd+'cwl.rpb'
;initaliz,filters,modes,mpaths,firstchars
;PRO initaliz,filters,modes,mpaths,firstchars
;
; This procedure sets up the string arrays needed in SHOW.PRO
;

; define and load filter name array
filters=STRARR(10)
OPENR,lun,idlroot+dd+'filters.doc',/GET_LUN & READF,lun,filters
CLOSE,lun & FREE_LUN,lun
; also need string arrays for mode names and paths for images from
; various modes
; define and load mode name array
modes=STRARR(6)
OPENR,lun,idlroot+dd+'modes.doc',/GET_LUN & READF,lun,modes
CLOSE,lun & FREE_LUN,lun
; define and load mode path array
mpaths=STRARR(6)
OPENR,lun,idlroot+dd+'mpaths.doc',/GET_LUN & READF,lun,mpaths
CLOSE,lun & FREE_LUN,lun
; define and load array of image file name first characters
firstchars=STRARR(6)
OPENR,lun,idlroot+dd+'1stchars.doc',/GET_LUN
READF,lun,firstchars & CLOSE,lun & FREE_LUN,lun