7900 X=M : GOSUB 8060 : FPD=FPD+FD