7805 GOSUB 8060 : FPY=FP-FPX