Compute key40(2)=6.
Compute key40(6)=11.
Compute keypreg(1)=2.
Compute keypreg(2)=3.
End if.
Do if (bserial='09362043' or bserial='09541070').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=16.
Compute key40(16)=11.
Compute key40(21)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=4.
Compute keypreg(4)=3.
Compute keypreg(5)=5.
End if.
Do if (bserial='00279065').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=2.
Compute key40(11)=1.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
Compute keypreg(3)=1.
End if.
Do if (bserial='05794018').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=2.
Compute key40(11)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
Compute keypreg(3)=2.
End if.
Do if (bserial='07020000').
Compute changed=2.
Compute key40(1)=2.
Compute key40(6)=1.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
End if.
Do if (bserial='08531015').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
End if.