opcode DelayB, 0, KKKKKKKK
	kTime, kFB, kLP, kHP,  kDW, kFBmod, kDWmod xin
	
	ain zar 2 ; CHANGE 
	kDW += kDWmod
	kFB += kFBmod
	
	abuf delayr 2.7
	atap deltapi kTime
	delayw ain+atap*kFB
	
	aout tone atap, kLP ; check filter type etc
	aout atone aout, kHP ; check filter type etc
	zaw aout*kDW+ain*(1-kDW), 1 ; CHANGE 
endop