;
doinfill=1
yrstart=1400
;
for kkk = 0 , 23 do begin
  ploton,1
  pause
  i=yrstart+kkk*24
  maps24,i,doinfill=doinfill
  plotoff
  spawn,'mv idl.ps1 fig/maps24_'+string(i,format='(I4)')+'.ps'
endfor
;
end