Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='00912021').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=12.
Compute key40(12)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
Do if (bserial='01266041').
Compute changed=2.
Compute key40(1)=11.
Compute key40(6)=6.
Compute key40(11)=1.
Compute key40(12)=2.
Compute keypreg(1)=3.
Compute keypreg(2)=2.
Compute keypreg(3)=1.
End if.
Do if (bserial='01695003').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
End if.
Do if (bserial='02713099').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='03379077').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=12.
Compute key40(12)=11.
Compute keypreg(1)=1.