2780 FPX=1-AL/200 : GOSUB 7710 : TF=XXX