/* Warp5.rexx */

OPTIONS RESULTS
ADDRESS REXX_SFX

SearchBuffer "'Warp4'"
buf1=RESULT
IF buf1>-1 THEN DO
	SelOperator 'Amplify'
	SetOperatorParam 'Amplify' 'P1S' '1.54'
	ProcessSample buf1
	buf2=RESULT
	IF buf2>-1 THEN DO
		RenameBuffer buf2 "'Warp5'"
		RemoveBuffer buf1
		SetActiveBuffer buf2
		CleanUp 0
	END
END