1640 X=XD : GOSUB 8060 : FPS=FP-FPS