_DEMO_TO_RACE
	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 12 , 127,127, 64 ,  0
	panmode,1
 	svolume,127

	bprg,BANK_SYS,131
	envelope,@_ENV
	release,3

	vibpitch,60
	vibdepth,32
	vibdelay,0

	opennote,0,@_Note0

	span,80
;	sr_load,#96
;	sr_portwrite,PORT6
;	wait,10
;	loops,64
;@_Loop
;	waith,1
;	sr_portread, PORT6
;	sr_store,0,@_Pan(+1)
;	sr_sbc,#1
;	sr_portwrite,PORT6
;@_Pan
;	span,#0
;	loope
	waitw,138
	jump,_WIPE3_ENTRY


@_Note0
;	ntrans,-5
	ntrans,-3
	tgate,15
	velo,127
	 tieon
	 gs4,004
	 an4,004
	 bf4,004
	 tieoff
	 xxx,010
	 velo,110
	 tieon
	 gn4,004
	 gs4,004
	 an4,004
	 tieoff
	 xxx,010
	 velo,100
	 tieon
	 ds4,004
	 en4,004
	 fn4,004
	 tieoff
	 xxx,010
	 velo,120
	 tieon
	 fn4,004
	 fs4,004
	 gn4,004
	 tieoff
	fin

#evenw
@_ENV
;#word	8,12000,12,16000,12,32000,16,24000,32,12000,64,0,0,0
#word	6,12000,12,16000,12,32000,16,24000,32,12000,64,0,0,0



;  		     pause,mono,pri,trs,pan,pow,fxmix,line

_WIPE3_ENTRY
	strans,0
	bprg ,BANK_WAVE,1
	span,0

 	svolume,127
	opennote,0,@_N1
;	opennote,1,@_N2
;	opennote,2,@_N3
	opennote,3,@_N4
	sr_load,#0
	sr_portwrite,PORT7	;Pan Stock
	sr_load,#$7f
	sr_portwrite,PORT6	;Vol Stock
       loops,127
	sr_portread,PORT6
	sr_store,0,@_Vol(+1)	
	sr_sbc,#$01		;bend ++
	sr_portwrite,PORT6

	sr_portread,PORT7
	sr_store,0,@_Bend(+1)	
	sr_store,0,@_Pan(+1)	
	sr_sbc,#$ff		; pan ++
	sr_portwrite,PORT7
@_Pan
	span,0
@_Bend
	pitchbend,0
@_Vol
	svolume,0

	waith,1
       loope
	wait,120       
	fin

@_N4
	xxx,16
	nprg ,BANK_WAVE,0
	tgate,15
	velo,127
	fs4,100
	fin	
	
@_N1
	tgate,15
	velo,127
;	bn4w,260
	gn4,100
	fin