End if.
Do if (bserial='16643042').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='16992080').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
* For all manually-altered cases, work out pregnum values for pregnancy slots 1-8.
Do if (changed=2).
loop #i=1 to 8.
do if (key40(5*#i-4) ne 0).
compute xpregnu(#i)=1.
loop #j=1 to 4.
if (key40(5*#i+#j-4) ne 0)xpregnu(#i)=xpregnu(#i)+1.
end loop.
end if.
end loop.
loop #i=1 to 40.
Do if(key40(#i) ne 0).
compute xprega(#i)=vprega(key40(#i)).
compute xpregc(#i)=vpregc(key40(#i)).
compute xpregd(#i)=vpregd(key40(#i)).
compute xkilo(#i)=vkilo(key40(#i)).
compute xpregf(#i)=vpregf(key40(#i)).
compute xpregh(#i)=vpregh(key40(#i)).
compute xwhopa(#i)=vwhopa(key40(#i)).
compute xwerkd(#i)=vwerkd(key40(#i)).
compute xwatkd(#i)=vwatkd(key40(#i)).
compute xabspa(#i)=vabspa(key40(#i)).
compute xabspb(#i)=vabspb(key40(#i)).
compute xabspc(#i)=vabspc(key40(#i)).
compute xabskb(#i)=vabskb(key40(#i)).
compute xabskc(#i)=vabskc(key40(#i)).
compute xabskd(#i)=vabskd(key40(#i)).
compute xabske(#i)=vabske(key40(#i)).
compute xpound(#i)=vpound(key40(#i)).
compute xounce(#i)=vounce(key40(#i)).
compute xprged(#i)=vprged(key40(#i)).
compute xprgem(#i)=vprgem(key40(#i)).
compute xpregg(#i)=vpregg(key40(#i)).
compute xwhopb(#i)=vwhopb(key40(#i)).
compute xabska(#i)=vabska(key40(#i)).