Do if (bserial='09047035').
Compute changed=2.
Compute key40(1)=11.
Compute key40(6)=6.
Compute key40(11)=1.
Compute keypreg(1)=3.
Compute keypreg(2)=2.
Compute keypreg(3)=1.
End if.
Do if (bserial='13799017').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (bserial='00508088').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=11.
Compute key40(3)=6.
Compute key40(6)=16.
Compute key40(11)=21.
Compute key40(16)=26.
Compute keypreg(1)=1.
Compute keypreg(2)=4.
Compute keypreg(3)=5.
Compute keypreg(4)=6.
End if.
Do if (bserial='03279000').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=21.
Compute key40(11)=26.
Compute key40(16)=6.
Compute key40(21)=11.
Compute key40(26)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=5.
Compute keypreg(3)=6.
Compute keypreg(4)=2.
Compute keypreg(5)=3.
Compute keypreg(6)=4.
End if.
Do if (bserial='06196084').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.