pro fulltemps

; This program prints out the CCD temperatures from the Full
; CCD dataset headers in a  Log.
; It is to be executed from the Log directory.

cd,'DB/Full'

files=findfile('*',count=nfiles)

print,string(10b),'There are ',sstr(nfiles),' Full CCD files in this Log.'
if nfiles eq 0 then goto,exit

print,' File #      CCD Temp       Time'

ans=''				;for bailout question
n=0				;file counter

again:
 for i=1,20 do begin
  print,n,ccdtemp(files(n)),mtime(files(n))
  n=n+1
  if n eq nfiles-1 then goto,exit
 endfor

 print,'' 
 read,"Enter 's' to stop, return to continue: ",ans
if ans eq 's' then goto,exit else goto,again


exit:
cd,'../..'

end