Compute key40(1)=1.
Compute key40(2)=2.
Compute keypreg(1)=1.
End if.
Do if (bserial='12150094').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=11.
Compute key40(11)=16.
Compute key40(12)=17.
Compute key40(16)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
Compute keypreg(3)=4.
Compute keypreg(4)=2.
End if.
Do if (bserial='12693010').
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='12958013').
Compute changed=2.
Compute key40(1)=3.
Compute key40(2)=4.
Compute key40(6)=2.
Compute key40(11)=1.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
Compute keypreg(3)=1.
End if.
Do if (bserial='14046048').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=16.
Compute key40(16)=21.
Compute key40(21)=26.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=4.
Compute keypreg(4)=5.
Compute keypreg(5)=6.
End if.
Do if (bserial='14989074').
Compute changed=2.
Compute key40(1)=6.