2615 FPX=AL/2 : GOSUB 7710