7825 IF FPY<0 THEN XD=X : FPD=FPY