Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=7.
Compute key40(7)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (bserial='13930037' or bserial='14137024').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute keypreg(1)=1.
End if.
Do if (bserial='14414078').
Compute changed=2.
Compute key40(1)=6.
Compute key40(2)=1.
Compute keypreg(1)=2.
End if.
Do if (bserial='14812036').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
Do if (bserial='15675043').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=7.
Compute key40(7)=6.
Compute key40(11)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
Do if (bserial='15838018').
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.