{ -------------------------------------------------------------------- }
{ table 6.6 }

  xurbrur = v102w; xregion = v101w;
  xeduc   = v106w; xwealth = v190w;
  fertwgt = rweight;
  higcm   = V008 - 1;                                      { High & ... }
 lowcm   = higcm - 35;                                  { ... low limits }
  totexp  = higcm - lowcm + 1;
  higage  = int((higcm - V011)/60);                     { High age & ... }
  higexp  = higcm - V011 - higage*60 + 1;               { ... exposure }
  if higexp > totexp then higexp = totexp endif;
  lowage  = higage - 1;                                  { Low age & ... }
  lowexp  = totexp - higexp;                             { ... exposure }
  agegroup = higage - 2;
  if agegroup in 1:7 then
    if emsample then
      v102w  = notappl; v101w = notappl; v190w = notappl;
      v106w  = notappl; total = 0;
      fertwgt = AWFACTT / 100 * rweight;
    endif;
    colt606 = 1;
    xtab( t606e, higexp*fertwgt );
    colt606 = 2;
    xtab( t606e, higexp*fertwgt );
    if emsample then
      v102w   = xurbrur; v101w = notappl; v190w = notappl;
      v106w   = notappl; total = notappl;
      fertwgt = AWFACTU / 100 * rweight;
      colt606 = 1;
      xtab( t606e, higexp*fertwgt );
      colt606 = 2;
      xtab( t606e, higexp*fertwgt );
      v102w   = notappl; v101w = xregion; v190w = notappl;
      v106w   = notappl; total = notappl;
      fertwgt = AWFACTR / 100 * rweight;
      colt606 = 1;
      xtab( t606e, higexp*fertwgt );
      colt606 = 2;
      xtab( t606e, higexp*fertwgt );
      v102w   = notappl; v101w = notappl; v190w = notappl;
      v106w   = xeduc;   total = notappl;
      fertwgt = AWFACTE / 100 * rweight;
      colt606 = 1;
      xtab( t606e, higexp*fertwgt );
      colt606 = 2;
      xtab( t606e, higexp*fertwgt );
      v102w   = notappl; v101w = notappl; v190w = xwealth;
      v106w   = notappl; total = notappl;
      fertwgt = AWFACTW / 100 * rweight;
      colt606 = 1;
      xtab( t606e, higexp*fertwgt );
      colt606 = 2;
      xtab( t606e, higexp*fertwgt );
    endif
  endif;
  agegroup = lowage - 2;
  if agegroup in 1:7 then
    if emsample then
      v102w   = notappl; v101w = notappl; v190w = notappl;
      v106w   = notappl; total = 0;
      fertwgt = AWFACTT / 100 * rweight;
    endif;
    colt606 = 1;
    xtab( t606e, lowexp*fertwgt );
    colt606 = 2;
    xtab( t606e, lowexp*fertwgt );
    if emsample then
      v102w   = xurbrur; v101w = notappl; v190w = notappl;
      v106w   = notappl; total = notappl;
      fertwgt = AWFACTU / 100 * rweight;
      colt606 = 1;
      xtab( t606e, lowexp*fertwgt );
      colt606 = 2;
      xtab( t606e, lowexp*fertwgt );
      v102w   = notappl; v101w = xregion; v190w = notappl;
      v106w   = notappl; total = notappl;
      fertwgt = AWFACTR / 100 * rweight;
      colt606 = 1;
      xtab( t606e, lowexp*fertwgt );
      colt606 = 2;
      xtab( t606e, lowexp*fertwgt );
      v102w   = notappl; v101w = notappl; v190w = notappl;
      v106w   = xeduc;   total = notappl;
      fertwgt = AWFACTE / 100 * rweight;
      colt606 = 1;
      xtab( t606e, lowexp*fertwgt );
      colt606 = 2;
      xtab( t606e, lowexp*fertwgt );
      v102w   = notappl; v101w = notappl; v190w = xwealth;
      v106w   = notappl; total = notappl;
      fertwgt = AWFACTW / 100 * rweight;
      colt606 = 1;
      xtab( t606e, lowexp*fertwgt );
      colt606 = 2;
      xtab( t606e, lowexp*fertwgt );
    endif
  endif;
  v102w  = xurbrur; v101w = xregion; v190w = xwealth;
  v106w  = xeduc;   total = 0;

  for ch in REC21_EDT do                                { Births }
     birth = B3;
     if birth in lowcm:higcm then
       agegroup = int( (birth-V011)/60 ) - 2;           { Age group at birth }
       if agegroup in 1:7 then
         chi = 0;
         do i = soccurs( REC21 ) while i > ch by (-1)
           if B5(i) = 1 then
             chi = chi + 1
           else
             deathm = B7(i);
             if !special( B6(i) ) & int( B6(i)/100 ) = 3 then   { if age at death in years }
               deathm = B7(i) + 6;                      { assume death occur in the middle }
             endif;
             if B3(i) + deathm >= B3 - 9 then
               chi = chi + 1;
             endif;
           endif;
         enddo;
         if V613 in 0:90 & chi < V613 then
           colt606 = 1;
           xtab( t606b, rweight )
         endif;
         colt606 = 2;
         xtab( t606b, rweight );
       endif;
     endif;
  enddo;