Compute key40(6)=1.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (bserial='15372086').
Compute changed=2.
Compute key40(1)=6.
Compute key40(2)=7.
Compute key40(6)=1.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (bserial='16102076').
Compute changed=2.
Compute key40(1)=4.
Compute key40(6)=3.
Compute key40(11)=1.
Compute key40(12)=2.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
Compute keypreg(3)=1.
End if.
Do if (bserial='00250035').
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)=1.
Compute keypreg(3)=1.
End if.
Do if (bserial='00665097').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=11.
Compute key40(11)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=4.
End if.
Do if (bserial='00700040').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute keypreg(1)=1.
End if.
Do if (bserial='00820070').