Compute keypreg(3)=3.
End if.
Do if (nserial='500219V').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(12)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
End if.
Do if (nserial='509254W').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='730084J').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=7.
Compute key40(11)=11.
Compute key40(16)=21.
Compute key40(21)=16.
Compute key40(26)=26.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=5.
Compute keypreg(5)=4.
Compute keypreg(6)=6.
End if.
Do if (nserial='950290Q').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=3.
Compute key40(3)=6.
Compute key40(4)=7.
Compute key40(5)=1.
Compute key40(6)=12.
Compute key40(7)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=3.
End if.
Do if (nserial='980004E').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=3.