print,'Enter the name of the weight list file.'
wlfile=''
read,wlfile

print,'Enter shortest & longest wavelengths to plot.'
lam0=0. & lam1=0.
read, lam0, lam1

print,'Enter size of vertical scale:'
wmax=0.
read, wmax

plot,[lam0,lam1],[0,wmax],/nodata,/xstyle,/ystyle

openr,1,wlfile
while not eof(1) do begin
  vacfile=''
  readf,1,vacfile
  openr,2,vacfile
  lam=fltarr(20) & w=fltarr(20)
  ilam=0
  while not eof(2) do begin
    readf,2,lamin, win & lam(ilam)= lamin & w(ilam)= win & ilam= ilam + 1
  endwhile
  close,2
  oplot,lam(0:ilam-1), w(0:ilam-1)
endwhile
close,1
end