981076543210RE9870P0=V0123450FNESFisUPower=(0+P1)/2RENlDSlope2=SGN(P0P1=VAL(PowTEIFOUPUTP0=P1ILEATURNNDIF=0ERFlips>=3IFPowerSlope2=0@Meter;"TR2"s=Flips+1r$)$;Power)-P1)THEN$Flips=Flips+.2