Do if (nserial='283003R').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=3.
Compute key40(6)=6.
Compute key40(7)=7.
Compute key40(8)=8.
Compute key40(11)=11.
Compute key40(16)=1.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=1.
End if.
Do if (nserial='422073K').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='424029S').
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='511159R').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=2.
Compute keypreg(1)=1.
Compute keypreg(2)=1.
End if.
Do if (nserial='561006W').
Compute changed=2.
Compute key40(1)=11.
Compute key40(6)=6.
Compute key40(11)=1.
Compute keypreg(1)=3.
Compute keypreg(2)=2.
Compute keypreg(3)=1.
End if.
Do if (nserial='782013B').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=2.
Compute keypreg(1)=1.