2910 FPX=AL/2 : GOSUB 7710