1638 X=XC : GOSUB 8060 : FPS=FP