1650 FPX=1-FP : XX=X : GOSUB 7710