;
doabd=1
doinfill=1
yrstart=1600
if doabd ne 0 then fadd='abd' else fadd=''
;
for kkk = 0 , 11 do begin
  ploton,1
  pause
  i=yrstart+kkk*24
  maps24,i,doinfill=doinfill,doabd=doabd
  plotoff
  spawn,'mv idl.ps1 fig/maps24_'+fadd+string(i,format='(I4)')+'.ps'
endfor
;
end