9008 XA=PX : IF XA=1 THEN XA=1.001