LBL "NTRX"
MVAR "D"
MVAR "Pp"
MVAR "EAN"
RCL "D"
10
÷
1
+
RCL "EAN"
100
÷
×
RCL "Pp"
-
END