7765 GOSUB 8060 : FP=FP-FPX