Do if (bserial='09047035').
Compute changed=2.
Compute key40(1)=11.
Compute key40(6)=6.
Compute key40(11)=1.
Compute keypreg(1)=3.
Compute keypreg(2)=2.
Compute keypreg(3)=1.
End if.
Do if (bserial='13799017').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (bserial='00508088').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=11.
Compute key40(3)=6.
Compute key40(6)=16.
Compute key40(11)=21.
Compute key40(16)=26.
Compute keypreg(1)=1.
Compute keypreg(2)=4.
Compute keypreg(3)=5.
Compute keypreg(4)=6.
End if.
Do if (bserial='03279000').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=21.
Compute key40(11)=26.
Compute key40(16)=6.
Compute key40(21)=11.
Compute key40(26)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=5.
Compute keypreg(3)=6.
Compute keypreg(4)=2.
Compute keypreg(5)=3.
Compute keypreg(6)=4.
End if.
Do if (bserial='06196084').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
More intriguing information
1. The Economic Value of Basin Protection to Improve the Quality and Reliability of Potable Water Supply: Some Evidence from Ecuador2. Consumer Networks and Firm Reputation: A First Experimental Investigation
3. NEW DEVELOPMENTS IN FARM PRICE AND INCOME POLICY PROGRAMS: PART I. SITUATION AND PROBLEM
4. Existentialism: a Philosophy of Hope or Despair?
5. The name is absent
6. Database Search Strategies for Proteomic Data Sets Generated by Electron Capture Dissociation Mass Spectrometry
7. Private tutoring at transition points in the English education system: its nature, extent and purpose
8. Moffett and rhetoric
9. The demand for urban transport: An application of discrete choice model for Cadiz
10. The name is absent