Compute changed =2.
End if.
Do if (nserial='093273P').
Compute changed=2.
Compute key40(1)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='095023Z' or nserial='181038T' or nserial='960072L').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='095006Z' or nserial='509228V' or nserial='950288D' or nserial='960029K').
Compute changed=2.
Compute key40(1)=1.
Compute key40(2)=6.
Compute keypreg(1)=1.
End if.
Do if (nserial='120132Q').
Compute changed=2.
Compute key40(1)=6.
Compute key40(6)=1.
Compute key40(7)=2.
Compute keypreg(1)=2.
Compute keypreg(2)=1.
End if.
Do if (nserial='233008U' or nserial='285020B' or nserial='500353Z' or nserial='527001S' or
nserial='565063F' or nserial='650025W').
Compute changed=2.
Compute key40(1)=1.
Compute keypreg(1)=1.
End if.
Do if (nserial='280041J').
Compute changed=2.
Compute key40(1)=2.
Compute key40(2)=1.
Compute key40(6)=6.
Compute key40(11)=11.
Compute key40(16)=16.
Compute key40(21)=21.
Compute keypreg(1)=1.
Compute keypreg(2)=2.
Compute keypreg(3)=3.
Compute keypreg(4)=4.
Compute keypreg(5)=5.
End if.
Do if (nserial='280053R').
Compute changed=2.
Compute key40(1)=1.
Compute key40(6)=6.
Compute key40(11)=16.