---------- ONEWQL.PRO
    fname=saveroot+dd+STRING(yr,month,day,tmp/5,tmp MOD 5 $

---------- ISITDOS.PRO
    saveroot=['d:\images\save','e:'] & $
    saveroot=iroot+dd+'save' & $

---------- NEWQL.PRO
    fname=saveroot+dd+STRING(yr,month,day,tmp/5,tmp MOD 5 $

---------- SELBGSIM.PRO
path=saveroot+dd

---------- QLOOKRAY.PRO
dir=saveroot+dd

---------- MAGINT.PRO
path=saveroot+dd

---------- FILOCATE.PRO
    dir=saveroot(dptr)+dd
    ENDREP UNTIL (template NE '') OR (dptr EQ (N_ELEMENTS(saveroot)-1))

---------- VIDEO.PRO
; dir=saveroot+dd

---------- TMBKGRD.PRO
path=saveroot+dd

---------- TRAY2BGS.PRO
path=saveroot+dd

---------- SAVBKGRD.PRO
cpath=saveroot+dd

---------- FCAFIRST.PRO
dir=saveroot+dd