End if.
Do if (bserial='10355068').
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 (bserial='10517068').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (bserial='11257019' or bserial='11519097').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='11553050').
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.
Do if (bserial='12786037').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=11.
Compute key40(11)=16.
Compute key40(16)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=4.
Compute keypreg(4)=5.
End if.
Do if (bserial='13189078').
More intriguing information
1. Technological progress, organizational change and the size of the Human Resources Department2. Mergers under endogenous minimum quality standard: a note
3. Pupils’ attitudes towards art teaching in primary school: an evaluation tool
4. Altruism with Social Roots: An Emerging Literature
5. Program Semantics and Classical Logic
6. The name is absent
7. The name is absent
8. The name is absent
9. The Demand for Specialty-Crop Insurance: Adverse Selection and Moral Hazard
10. Subduing High Inflation in Romania. How to Better Monetary and Exchange Rate Mechanisms?