Do if (nserial='630002V').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
End if.
Do if (nserial='730049F').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(11)=11.
Compute key40(16)=16.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
End if.
Do if (nserial='730130N').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=7.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='987100P').
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 (nserial='989011A').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=7.
Compute key40(7)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='X25101F').
Compute changed=2.
Compute key40(1)=3.
Compute key40(2)=2.
Compute key40(6)=1.
Compute keypreg(1)=1.
Compute keypreg(6)=1.
End if.