1670 X=XC : GOSUB 8060 : FPD=FP