7810 IF FPY>0 THEN XE=X : FPE=FPY