Compute key40(3)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='986100J').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=3.
Compute key40(6)=1.
Compute keypreg(1)=1.
Compute keypreg(6)=1.
End if.
Do if (nserial='X38008Q').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(7)=11.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
End if.
Do if (nserial='Y00174D').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(17)=21.
Compute key40(21)=26.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=6.
End if.
Do if (bserial='05486061').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(11)=12.
Compute key40(12)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (bserial='08052057').
Compute changed=2.
Compute key40(1)=7.