Compute key40(7)=11.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (bserial='07342034').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=7.
Compute key40(11)=26.
Compute key40(12)=27.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=6.
End if.
Do if (bserial='08039031').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=2.
Compute key40(3)=16.
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='10231037').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute key40(6)=11.
Compute key40(11)=16.
Compute key40(16)=21.
Compute key40(17)=22.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
Compute keypreg(3)=4.
Compute keypreg(4)=5.
End if.
Do if (bserial='10822000').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(7)=11.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (bserial='02706048').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.