Update FPROT.BAS