1680 X=XD : GOSUB 8060 : FPD=FP-FPD