PRO initqlif,year,month,day

COMMON qlistuff,aflun,qlif,qlsave_hours

; Set up OS-specific items
@isitdos

CD,qlroot

date=STRING(year MOD 100,month,day,FORMAT='(3I2.2)')

qlifname=date+qlif_suffix
qlifx=FINDFILE(qlifname,COUNT=nqlifx)
IF nqlifx EQ 1 $
    THEN OPENU,aflun,qlifname,/GET_LUN $
    ELSE OPENW,aflun,qlifname,/GET_LUN

; The associated file to hold quick-look images is structured to hold
; BYTE arrays of 129 rows of 128 columns, where the top row of each
; array contains an ASCII-formatted header.
qlif=ASSOC(aflun,BYTARR(128,129))
qlsave_hours=REPLICATE(-1,2,7)

CD,droot

RETURN
END