2900 FPX=1-AL/2 : GOSUB 7710