8676 XA=PX : IF PX<=0 THEN XA=.001