Compute keypreg(1)=1.
End if.
Do if (bserial='03403069').
Compute changed=2.
Compute key40(1)=16.
Compute key40(2)=21.
Compute key40(3)=26.
Compute key40(6)=1.
Compute key40(11)=6.
Compute key40(16)=11.
Compute keypreg(1)=4.
Compute keypreg(2)=1.
Compute keypreg(3)=2.
Compute keypreg(4)=3.
End if.
Do if (bserial='03783010').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=11.
Compute key40(6)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (bserial='03947061').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (bserial='05521004').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=2.
Compute key40(7)=3.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
End if.
Do if (bserial='05671063').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=11.
Compute key40(6)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (bserial='06548062').
Compute changed=2.
Compute key40(1)=21.
Compute key40(6)=1.
Compute key40(11)=6.
Compute key40(12)=7.