1655 IF FPX<.5 THEN XS=X : XT=XX