_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,2
	release,24

	opennote,0,@_Note0

	sr_load,#127
	sr_portwrite,PORT6
	wait,10
	loops,127
@_Loop
	waith,1
	sr_portread, PORT6
	sr_store,0,@_Pan(+1)
	sr_sbc,#1
	sr_portwrite,PORT6
@_Pan
	span,#0
	loope
	jump,_WIPE3_ENTRY


@_Note0
	ntrans,+3
	tgate,14
	velo,127
	loops,4
	 gn5,010
	 an5,010
	 bn5,010
	loope
	fin


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

_WIPE3_ENTRY
	strans,0
	bprg ,BANK_TEST,127
	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,#-16
	sr_portwrite,PORT6	;Bend Stock
       loops,127
	sr_portread,PORT6
	sr_store,0,@_Bend(+1)	
	sr_sbc,#$ff		;bend ++
	sr_portwrite,PORT6

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

	waith,1
       loope
	wait,120       
	fin

@_N4
	xxx,32
@_N3
	xxx,8
@_N2
	xxx,4
@_N1
	tgate,15
	velo,127
;	bn4w,260
	p00(+7),120
	fin