function fileinfo,fileid
result=' '
spawn,'dir/date=created/nohead/notrail/vers=1 '+fileid,result
rslt=strcompress(result)
return,rslt(0)+rslt(1)
end

nl=0
set_plot,'x'
;set_plot,'ps'
;!P.MULTI=[0,1,2]
;DEVICE,/PORTRAIT,/INCHES,YOFFSET=.5,YSIZE=10.,XSIZE=7.
;!P.FONT=0

infil=' '
print, format='("ENTER FILENAME",$)'
read, format='(a)', infil
infil = '/usr/mdi/idl/'+infil
  x=fltarr(26,500)
  y=strarr(500)
get_lun, lun
openr, lun, infil
x1=fltarr(26)
i=0
while not eof(lun) do begin
  lin=' '
  readf,lun,x1,lin
x(26*i)=x1
y(i)=lin

;print,i
;print,x(*,i),y(i)
i=i+1
endwhile
free_lun,lun

dne1:
free_lun,lun
next1:
print,"Sensor 1-26 (exit<1)"
read,sens
if sens lt 1 then goto,dne3
print,"number of hours "
read,nhours
nticks=fix(nhours*6)
xmin=findgen(nticks)*10
       !x.title = 'Minutes'
       !y.title = 'Temp C'
sens=fix(sens)
pstrt=i-1-nticks
sens1=strtrim(string(sens),2)
       !p.title = '#'+sens1+' '+y(pstrt)+' - '+y(i-1)
      plot,xmin,x(sens-1,pstrt:i-1)
;print,'#'+sens1+' From '+y(pstrt)+' - '+y(i-1)

;print,x(sens-1,pstrt:i-1)
goto,next1

dne3:
end