;+
; NAME:
;     KSC_RAW_PFI
; PURPOSE:
;     display an image from the KSC raw archive. To get one, use anonymous
;        ftp from flare5 at /flare5.data/SXTffi/SAmmdd/ (account yohkoh)
;        where SAmmdd is the given day's subdirectory name
; CATEGORY:
;     Yohkoh
; CALLING SEQUENCE:
;     ksc_raw_pfi, infil
; INPUTS:
;     file name, of form hhmmss.dat
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; ROUTINES CALLED
;     FFI_HEAD
; OUTPUTS:
;     header, 512-byte information of most recent image
;     image, most recent image
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; MODIFICATION HISTORY:
;     HSH 18-feb-96
;-

pro ksc_raw_pfi, infil, header=header, image=image

print,'NOT WRITTEN YET, SORRY'
end
get_lun, lun
if n_elements(infil) eq 0 then infil = findfile('*.dat')
n_dat = n_elements(infil)
for i = 0, n_dat-1 do begin
  openr,lun,infil(i)
  header=bytarr(512)
  readu,lun,header
  resolution=byte(header,89)
  case resolution of 
    0:begin
       lx=1024
       ly=512
      end
    1:begin
       lx=512
       ly=512
      end
    2:begin
       lx=256
       ly=256
      end
  endcase
  image=bytarr(lx,ly)
  readu,lun,image
  close,lun
  wdef,0,lx,ly
  image = rotate(image,5)
  tvscl, image
  ffi_head,header
  print,'Return to get next image'
  pause
endfor
end