Do if (bserial='06922067').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='07051003').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(12)=16.
Compute key40(16)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=5.
End if.
Do if (bserial='07405032').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute key40(6)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
End if.
Do if (bserial='08162010').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='08460092').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (bserial='09002054').
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.