pro loadlab,seq,list,a,dark=dark,plage=plage

listlnth=n_elements(list)
if keyword_set(plage) then plage=1 else plage=0
if keyword_set(dark) then corr=1 else corr=0
imno=strtrim(string(list(0)),2)
if plage then begin
  exten='.img000'
  strput,exten,imno,7-strlen(imno)
endif else begin
  exten='.00'
  strput,exten,imno,3-strlen(imno)
endelse
  fzrd,seq+exten,img,h ;read first image 
;    if plage then img=rebin(img(24:1047,*),256,256) else $
    img=rebin(img(1:1024,1:1024),256,256) 
  dim=size(img) & a=intarr(dim(1),dim(2),listlnth)
  if corr then begin
if plage then begin
    exten='.img000' & dark=strtrim(string(dark),2)	;get name of dark
    strput,exten,dark,7-strlen(dark)
endif else begin
    exten='.00' & dark=strtrim(string(dark),2)	;get name of dark
    strput,exten,dark,3-strlen(dark)
endelse
    fzrd,seq+exten,dk,h	;read dark
;    if plage then dk=rebin(dk(24:1047,*),256,256) else $
      dk=rebin(dk(1:1024,1:1024),256,256)
    img=img-dk
  endif
   a(0,0,0)=img
  for i=1,listlnth-1 do begin	;loop over image series
    imno=strtrim(string(list(i)),2)
if plage then begin
    exten='.img000'
    strput,exten,imno,7-strlen(imno)
endif else begin
    exten='.00'
    strput,exten,imno,3-strlen(imno)
endelse
    fzrd,seq+exten,img,h ;read image and dark correct
;    if plage then img=rebin(img(24:1047,*),256,256) else $
      img=rebin(img(1:1024,1:1024),256,256)
    if corr then img=img-dk
    a(0,0,i)=img
  endfor

end