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