dos=(!VERSION.OS EQ 'windows')

IF dos THEN BEGIN & $
    dd='\' & $
    rd='>' & $
    rmcmd='del ' & $
    lscmd='dir ' & $
    mvcmd='move ' & $
    gzipcmd='c:\datacomp\gzip ' & $
    root='c:\data' & $
    droot=root & $
    iroot='c:\images' & $
    imagetype=['auroral','bias','calib','dark','flat','airglow'] & $
    cc='cam' & $
    ff='filt' & $
    calname='calib' & $
    dkname='dark' & $
    dc='_' & $
    ilist_suffix='.ili' & $
    ilist_root=droot+dd+'ilist' & $
    tproot=droot & $
    calsroot=droot+dd+'cals' & $
    cal_suffix='.rs' & $
    dkroot=droot+dd+'tar' & $
    meantag='.mea' & $
    ratetag='.rat' & $
    biastag='.bia' & $
    filtinfo=droot+dd+'cwl.rpb' & $
    sroot='c:\idl\steele' & $
    idlroot=sroot & $
    kiexpcmd='c:\datacomp\lz78exp ' & $
    expand_cmd='ucall' & $
    awk_cmd='c:\gawk\gawk' & $
    awk_src='c:\gawk\tlog.awk' & $
    qlif_suffix='.qli' & $
    qlif_ps_suffix='.qps' & $
    ENDIF ELSE BEGIN & $
    dd='/' & $
    rd='> !' & $
    rmcmd='rm ' & $
    lscmd='/usr/bsd43/bin/ls ' & $
    mvcmd='mv ' & $
    gzipcmd='/usr/local/bin/gzip ' & $
    root='/jasper/cnsr3_data1' & $
    droot=root & $
    iroot=root & $
    imagetype=['aur','bias','cal','dk','flat','air'] & $
    cc='c' & $
    ff='f' & $
    calname='cal' & $
    dkname='dk' & $
    dc='.' & $
    ilist_suffix='.ilist' & $
    ilist_root=droot+dd+'ilist' & $
    tproot=root+dd+'passband' & $
    calsroot=droot+dd+'calstats' & $
    cal_suffix='.RsperDN' & $
    dkroot=droot+dd+dkname & $
    meantag='.mean*' & $
    ratetag='.rate*' & $
    biastag='.bias*' & $
    filtinfo=tproot+dd+'cwl.rpb' & $
    sroot=root+dd+'scripts' & $
    idlroot='/aragorn/user2/steele/idl' & $
    kiexpcmd='/jasper/cnsr3_data1/bin/lz78exp ' & $
    expand_cmd='ducall' & $
    awk_cmd='/usr/bsd43/bin/awk' & $
    awk_src='~cnsr3/tlog/tlog.awk' & $
    qlif_suffix='.qlif' & $
    qlif_ps_suffix='.qlif.ps' & $
    ENDELSE

flatroot=iroot+dd+'flat'
tapeinforoot=droot+dd+'tapes'
qlroot=droot+dd+'ql'
saveroot=droot+dd+'save'
tlogroot=droot+dd+'log'
meanparmroot=droot+dd+'meanparm'
pgmroot=droot+dd+'pgm'
;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,unit,idlroot+dd+'filters.doc',/GET_LUN & READF,unit,filters
CLOSE,unit & FREE_LUN,unit
; also need string arrays for mode names and paths for images from
; various modes
; define and load mode name array
modes=STRARR(6)
OPENR,unit,idlroot+dd+'modes.doc',/GET_LUN & READF,unit,modes
CLOSE,unit & FREE_LUN,unit
; define and load mode path array
mpaths=STRARR(6)
OPENR,unit,idlroot+dd+'mpaths.doc',/GET_LUN & READF,unit,mpaths
CLOSE,unit & FREE_LUN,unit
; define and load array of image file name first characters
firstchars=STRARR(6)
OPENR,unit,idlroot+dd+'1stchars.doc',/GET_LUN
READF,unit,firstchars & CLOSE,unit & FREE_LUN,unit