/* Warp2.rexx */

OPTIONS RESULTS
ADDRESS REXX_SFX

SearchBuffer "'Warp1'"
buf1=RESULT
IF buf1>-1 THEN DO
	SelOperator 'ChorusPhaser'
	ProcessSample buf1
	buf2=RESULT
	IF buf2>-1 THEN DO
		RenameBuffer buf2 "'Warp2'"
		RemoveBuffer buf1
		SetActiveBuffer buf2
		CleanUp 0
	END
END