7735 GOSUB 8060 : FP=FP-FPX