Do if (nserial='X37008K').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=2.
Compute key40(6)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='X38005J').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=11.
Compute keypreg(1)=2.
Compute keypreg(2)=3.
End if.
Do if (nserial='X82344H').
Compute changed=2.
Compute key40(1)=6.
Compute key40(2)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='Y21037M').
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='041034A').
Compute changed=2.
Compute key40(1)=3.
Compute key40(6)=2.
Compute key40(11)=1.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
Compute keypreg(3)=1.
End if.
Do if (nserial='130007T').
Compute changed=2.
Compute key40(1)=11.
Compute key40(2)=12.
Compute key40(6)=6.
Compute key40(11)=1.
Compute keypreg(1)=3.
Compute keypreg(2)=2.
Compute keypreg(3)=1.
End if.
More intriguing information
1. EMU: some unanswered questions2. Palvelujen vienti ja kansainvälistyminen
3. GOVERNANÇA E MECANISMOS DE CONTROLE SOCIAL EM REDES ORGANIZACIONAIS
4. The name is absent
5. The name is absent
6. AGRICULTURAL TRADE IN THE URUGUAY ROUND: INTO FINAL BATTLE
7. The name is absent
8. The Mathematical Components of Engineering
9. The name is absent
10. The name is absent