Compute key40(12)=11.
Compute key40(16)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=4.
Compute keypreg(4)=5.
End if.
Do if (nserial='289141M' or nserial='382004V' or nserial='421030K' or nserial='529009V' or
nserial='X25050R').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=2.
Compute keypreg(1)=1.
End if.
Do if (nserial='515085K').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=7.
Compute key40(7)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='581068J').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (nserial='591050U').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute key40(6)=11.
Compute key40(11)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
Compute keypreg(3)=4.
End if.
Do if (nserial='620037K').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(12)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
More intriguing information
1. Giant intra-abdominal hydatid cysts with multivisceral locations2. The name is absent
3. The name is absent
4. Imperfect competition and congestion in the City
5. Integration, Regional Specialization and Growth Differentials in EU Acceding Countries: Evidence from Hungary
6. The name is absent
7. The voluntary welfare associations in Germany: An overview
8. Antidote Stocking at Hospitals in North Palestine
9. Permanent and Transitory Policy Shocks in an Empirical Macro Model with Asymmetric Information
10. Short Term Memory May Be the Depletion of the Readily Releasable Pool of Presynaptic Neurotransmitter Vesicles