3020 FPX=1-AL/2 : GOSUB 7710