pro gzipqlps,unzip=unzip

@isitdos

syr=1995
smon=9
sday=18
fyr=1995
fmon=10
fday=21
sjday=julday(smon,sday,syr)
fjday=julday(fmon,fday,fyr)

cmd=gzipcmd
if keyword_set(unzip) then cmd=cmd+'-d '

for i=sjday,fjday do begin
    caldat,i,mon,day,year
    date=STRING(year MOD 100,mon,day,FORMAT='(3I2.2)')
    fname=qlroot+dd+date+'ql.ps'
    if keyword_set(unzip) then fname=fname+'z'
    f=rfindfile(fname,count=nf)
    if nf GT 0 THEN spawn,cmd+f(0)
    ENDFOR

RETURN
end