pro lastspd, index, data, nfiles, oldfile=oldfile, nosfd=nosfd, last=last
;
;
;
if keyword_set(last) then nfiles=last
if n_elements(nfiles) eq 0 then nfiles = 1      ; 1 file is default

spds=newfiles(/spd,last=nfiles, oldfile=oldfile)


neww=0
message,/info,'Displaying Corresponding SFD and OR location...
wdef,xx,/lr,512
lastsfd,findex,data,oldfile=oldfile
neww=[neww,xx]

rd_roadmap,spds,rmap
fov=sxt_uniqfov(rmap,counts=counts)
for i=0,n_elements(counts)-1 do begin
   wdef,256,xpos=i*256 mod 1024, ypos=600
   win=!d.window
   plots,indgen(10),/device,color=0
   xyouts,10,250,'Number images: ' + strtrim(counts(i),2),/data
   neww=[neww,!d.window]
   rd_sda,spds,fov.(i),index,data
   wset,xx
   plot_nar,findex,/overlay,pfi_index=index(0)
   wset,win
   stepper,data,get_info(index,/non),lastss=ss,xsize=256,ysize=256   
   sxt_grid,index(ss),mag=2, grid=5
endfor   
neww=neww(1:*)      ; new windows

yesnox,'Delete Windows?',dw
if dw then for i=0,n_elements(neww)-1 do wdelete,neww(i)

return
end