;************************************
;* SUB TRACK 15: System SE           *
;************************************   
;
; No.
;    0    Button Decide
;    1    Cursor Move
;    2    Pause
;
;    8    LapTime!
;    9    Miss!
;   10    Go back!

;   32    cheer



_SYSTEM_SE
	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64, 64,  0 ,  0
	panmode,1
	svolume,110
	evolume,127
	bprg,BANK_SYS,128
	envelope,@_WaveMemEnv
@_Loop
	waith,6		;2 vframes
	sr_portread,0
	brN,@_Loop
	
	sr_portwrite,7	;stack
	
	sr_sbc,32
	jumpP,@_Subse

	closenote,0
	release,208
	sr_portread,7	;stack
	sr_extbl,@_NotePrgtable
	brN,@_WaveMem
	br0,@_Inst

;............................. Percussion Sound 
@_Perc
	call,@_PercMain
	brA,@_Loop

@_WaveMem
	release,208
	envelope,@_WaveMemEnv
@_Inst
	sr_store,0,@_Prgchg(+1)
@_Prgchg
	prg,0			;Self write
	tblset,@_Notetable
	sr_portread,7	;stack
	sr_tblnopen,0		;This is OK ?
	jump,@_Loop
@_Subse
	tblset,@_Subcall
	ctblcall
	jump,@_Loop



@_Subcall
#label @_PAUSEIN
#label @_SS00,@_SS01,@_SS02,@_SS03,@_SS04,@_SS05,@_SS06
#label @_ss07,@_SS08
#label @_ss09,@_ss0a,@_ss0b
#label @_ss0c,@_ss0d,@_ss0e,@_ss0f
#label @_ss10,@_ss11,@_ss12,@_SS13,@_ss14,@_SS15,@_ss16,@_ss17
#label @_ss18,@_ss19

@_PAUSEIN
	sopensub,13,_PAUSEIN_SUB
	fin
	
@_SS00
	sopensub,14,_Laptime_Sub
	fin
@_SS01
	sopensub,14,_Signal_Sub1
	fin
@_SS02
	sopensub,14,_Signal_Sub2
	fin
@_SS03
;	sopensub,14,_Miss_Sub
	fin
@_SS04
	sr_portread,1		;arg1: Transpose
	sr_store,0,_Ring_Transpose(+1)
	sopensub,14,_Ring_Sub
	fin

@_SS05
	sopensub,14,_PASS_L_SUB
	fin

@_SS06
	sopensub,14,_PASS_R_SUB
	fin


@_SS07
	sopensub,14,_MISS_L_SUB
	fin

@_SS08
	sopensub,14,_MISS_R_SUB
	fin

@_SS09
	sopensub,14,_WIPE_SUB
	fin

@_SS0A
	sopensub,14,_LOGO_SUB
	fin

@_SS0B
	sr_portread,1		;arg1: Transpose
	sr_store,0,_Boostup_Transpose(+1)
	sopensub,13,_BOOSTUP_NORMAL_SUB
	fin

@_SS0C
	sopensub,13,_TITLE_SUB
	fin

@_SS0D
	sopensub,13,_NAME_SUB_L
	fin

@_SS0E
	sopensub,13,_NAME_SUB_R
	fin

@_SS0F
	sopensub,13,_NAME_SUB_END
	fin

@_SS10
	sopensub,13,_CROSSWIPE_L
	sopensub,14,_CROSSWIPE_R
	fin

@_SS11
;	sopensub,14,_TIME_EXTEND_SUB
	fin

@_SS12
	sopensub,14,_TIME_EXTEND_SUB2
	fin

@_SS13
	sopensub,13,_DEMO_SUB
	fin
@_SS14
	sopensub,14,_REVERSE_WARNING_SUB
	fin

@_SS15
;	sr_portread,1		;arg1: Transpose
;	sr_store,0,_Boostup_Transpose(+1)
	sopensub,13,_BOOSTUP_MAX_SUB
	fin

@_SS16
	sopensub,13,_Decide2_Sub
	fin

@_SS17
	sopensub,13,_Wipe3_Sub
	fin
@_SS18
	sopensub,13,_LaptimeF_Sub
	fin

@_SS19
	sopensub,13,_DEMO_TO_RACE
	fin



#evenw
@_WaveMemEnv
#word	6,32000,8,16000,16,8000,32,0,0,0
	

			
@_NotePrgtable
#byte	$80,$80,$80
#byte	$80,$80,0,0,0

#byte	$0,$0,$80
#byte	0,0,0,0,0

#byte	$7f,$7f,$7f,$7f,$7f,$7f,$7f,$7f
#byte	$7f,$7f,$7f,$7f,$7f,$7f,$7f,$7f
	
@_Notetable

#label  @_BOOSTUP,@_BOOSTDOWN,@_NONE
#label  @_SKYLINE_MOVEON,@_SKYLINE_MOVEOFF,@_NONE,@_NONE,@_NONE

#label  @_NONE ,@_NONE ,@_BACK,@_NONE
#label  @_NONE, @_NONE ,@_NONE,@_NONE

@_NONE
	fin


#include "sys_perc.se"		



;---------------------------------
;  BOOST UP
;=================================


@_BACK
        nprg,131	;pulse
	npan,64
	velo,72
	tgate,8
	ntrans,24
	loops,3
 	 en3,11
	loope
	velo,110
	loops,4
  	 en3,8
	loope
	fin


@_SKYLINE_MOVEON
	call,@_SKYLINE_BASE
	sweep,_SWEEP_AB1_,cn3,48
	cn5w,196
	fin
	
@_SKYLINE_MOVEOFF
	call,@_SKYLINE_BASE
	sweep,_SWEEP_AB1_,cn5,32
	cn3w,196
	fin

@_SKYLINE_BASE
        nprg,131	;pulse
	nenv,@_SKYLINE_ENV,64
	npan,64
	velo,127
	tgate,15
	fin	
#evenw
@_SKYLINE_ENV	
#word	16,16000,24,32000,2,32000,32,0,0,0


;---------------------------------
;  BOOST UP
;=================================

;@_BoostUp
;	tgate,15
;	velo,80
;	tieon
;	nprg,0
;	sweepw,_SWEEP_AB1_,cn2,120
;	cn4w,48
;	sweepw,_SWEEP_AB1_,cn1,180
;	gn4w,360
;	fin

@_BoostUp
	tgate,15
	velo,127
	tieon
;	nprg,0
	nprg,7	;inst.powerup
	cn4,64
	fin
	

	sweepw,_SWEEP_AB1_,cn2,60
	cn4,16
	sweepw,_SWEEP_AB1_,cn1,48
	gs4,32
	sweepw,_SWEEP_BAL_,gs4,16
	cn2,8
	cn3,12
	cn4,16
	fin


	
@_BoostDown
	ntrans,-2
	tgate,15
	velo,110
	tieon
	nprg,0
	sweepw,_SWEEP_ABL_,cn5,120
	cn2w,40
	cn2w,40
	sweepw,_SWEEP_AB1_,cn5,240
	cn2w,480
	fin
	

;==========================================================
;
; SUB - SE
;
;==========================================================


_Laptime_Sub
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 12 , 0 , 64,0, 12 ,  0
	panmode,0
;	strans,0
;	monomode,0		;no limit & note poly
;	fxmix,12
;	vibdepth,0
;	priority,14
;	spanpow,0

 	svolume,100
	prg,128
	envelope,@_WavememEnv
	release,64
	opennote,0,@_Note0
	wait,4
	opennote,1,@_Note1
	waitw,1000
	fin


@_Note0
	npan,0
	velo,127
	tgate,8
	ntrans,24
	loops,3
 	 an3,16
	loope
	velo,96
	npan,127
	loops,3
  	 an3,16
	loope
	fin
@_Note1
	npan,127
	velo,127
	tgate,8
	ntrans,24
	loops,3
 	 an3,16
	loope
	velo,96
	npan,0
	loops,3
  	 an3,16
	loope
	fin

#evenw
@_WaveMemEnv
#word	6,32000,8,16000,16,8000,32,0,0,0
	





_Signal_Sub_Init
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$03, 14 , 0 , 64,127, 104 ,  1
	svolume,100
	panmode,0
	
	vibpitch,64		;very slow
	release ,16
	allocvoice,2
	fin

_Signal_Sub1
	call,_Signal_Sub_Init
	prg    ,131			;wave-memory
 	vibdelay,0
	vibdepthmv,4,0,16	;very soft
	envelope,@_SignalEnv1
	opennote,0,@_Note0
	opennote,1,@_Note1
;	opennote,2,@_Note2
	waitw,160
	deallocvoice
	fin
@_Note0
	velo,102
	tgate,13
	fn4w,128
	fin
@_Note1
	nprg,129
	velo,64
	fn5w,128
	fin
@_Note2
	nprg,129
	xxx,4
	velo,64
	gn3w,128
	fin
	
#evenw
@_SignalEnv1
#word	4,32000,128,0,0,0


_Signal_Sub2
	call,_Signal_Sub_Init
	prg,131
 	vibdelay,8
        vibdepthmv,0,24,32	;very soft
	envelope,@_SignalEnv2
	opennote,0,@_Note0
	opennote,1,@_Note1
;;;;;;;;;;;	opennote,2,@_Note2
	waitw,800
	deallocvoice
	fin

@_Note0
	velo,100
	tgate,13
	fn5w,640	
	fin

@_Note1
	ntrans,+12
	velo,64
	tgate,13
	fn5w,640	
	fin

@_Note2
	nprg,129
	xxx,4
	velo,64
	tgate,13
	gn4w,640	
	fin


#evenw
@_SignalEnv2
#word	4,32000,480,0,0,0



;_Laptime_Sub2
;	strans,0
;	monomode,0		;no limit & note poly
;	panmode,1
;	fxmix,12
;	svolume,127
;	bankchg,6
;	vibdepth,0
;	prg,0
;	release,64
;	spanpow,0
; 	Amode
;	priority,12
;	opennote,0,@_Note0
;	opennote,1,@_Note1
;	waitw,260
;	fin
;@_Note0
;	velo,110
;	tgate,14
;	nprg,0
;	cn4,032
;	cn4,031
;	cn3,032
;	cn4,033
;
;	velo,127
;	gn2,120
;	fin
		
;@_Note1
;	tgate,8
;	nprg,9
;     loops,2
;	velo,120
;    loops,2
;	cn4,08
;      loope
;	velo,100
;      loops,2
;	gn3,07
;      loope
;     loops,2
;	dn3,08
;      loope
;     loops,2
;	cn3,09
;      loope
;      loope
;  	tgate,15
;	cn3,120
;	fin




; 	tgate,15
;	velo,127
;	an3,16
;	cn4,48
;	fin	

	

;_PASS_NOTE1
; 	tgate,15
;	velo,127
;	gn5,12
;	velo,110
;	gn5,16
;	velo,100
;	gn5w,16
;	fin

;_PASS_NOTE2
;        nprg,129		;pulse
;	tgate,8
;	velo,127
;	sweep,_SWEEP_ABL_,gn4,12
;	gn5,12
;	an5,16
;	bn5,16
;	fin
	

	

;---------------------------------
;  MISS BUOY
;=================================

_MISS_INIT
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,127, 64 ,  0
	panmode,1
	bprg,BANK_SYS,1
	release,16
 	svolume,127
	fin
	

_MISS_L_SUB
	call,_MISS_INIT
	span,16
	bra,_MISS_KYOTU
;	opennote,0,_MISS_Note1
;	opennote,1,_MISS_Note2
;	opennote,2,_MISS_Note3
;	waitw,160
;	fin
	

_MISS_R_SUB
	call,_MISS_INIT
	span,112
_MISS_KYOTU
	opennote,1,_MISS_Note2
	opennote,2,_MISS_Note3
;	opennote,0,_MISS_NOTE
	waitw,160
	fin
	

;_MISS_NOTE
;	tgate,8
;	velo,96
;	cn4,32
;	velo,127
;	gn3,32
;	fin
		


;_MISS_NOTE1
;	tgate,8
;	velo,96
;	gn4,32
;	velo,127
;	bf4,32
;	fin

_MISS_NOTE2
;        nprg,1		;inst.orhit
	tgate,8
	velo,127
	dn4w,160
	fin


_MISS_NOTE3
;        nprg,1		;inst.orhit
	tgate,8
	velo,127
	dn3w,160
	fin

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

_WIPE_SUB
  	Amode
	panmode,1
	initpitch
	multiparamset, $00 ,$00, 14 , 0 , 127,127, 16 ,  0
;	bprg ,BANK_WAVE,0
	bprg ,BANK_SYS,127
 	svolume,127
	opennote,0,@_N1
	sr_load,#0
	sr_portwrite,PORT7	;Pan Stock

       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_sbc,$ff		; pan ++
	sr_portwrite,PORT7
@_Pan
	span,0
	waith,1
       loope
	wait,20       
	fin


@_N1
	tgate,15
	velo,127
;	bn4w,260
	dn2w,147		;perc.17
	fin	


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

_WIPE3_SUB
  	Amode
	panmode,1
	initpitch
	multiparamset, $00 ,$00, 14 , 0 , 127,127, 64 ,  0
;	bprg ,BANK_WAVE,0
;	bprg ,BANK_SYS,127
	bprg ,BANK_TEST,127

 	svolume,100
	opennote,0,@_N1
	opennote,1,@_N2
	opennote,2,@_N3
	opennote,3,@_N4
	sr_load,#0
	sr_portwrite,PORT7	;Pan Stock
	sr_load,#127
	sr_portwrite,PORT6	;Bend Stock
       loops,127
	sr_portread,PORT6
	sr_store,0,@_Bend(+1)	
	sr_sbc,#$01
	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	




_LOGO_SUB
  	Amode
	initpitch
	multiparamset, $00 ,$00, 14 , 0 , 64,32, 0 ,  0
	bprg ,BANK_SYS,127
 	svolume,100
	opennote,0,@_N1
	waith,4
	opennote,1,@_N2
	waitw,1000
	fin

@_N1
	npan,0
	velo,127
	DF2W,1000	;P-16
	fin
			
@_N2
	npan,127
	velo,127
	DF2W,1000	;P-16
	fin
			

;---------------------------------
;  BOOST UP
;=================================


_BOOSTUP_NORMAL_SUB
	initpitch
  	Bmode
;  		     pause,mono,pri,trs,pan,pow,fxmix,line
	multiparamset, $00 ,$02, 14 , 0 , 64,32, 32 ,  0
	bprg ,BANK_SYS,132
;	bprg ,BANK_SYS,7
	svolume,127
	allocvoice,2
_BoostUp_Transpose
	sr_load,#0
	sr_sbc,#1	
	envelope,@__BupEnv
	release,16
	tblset,@_NOTETBL
	sr_tblnopen,0
	waitw,160
	deallocvoice
	fin

	sr_store,0,@_Loop(+1)

	sr_portwrite,PORT7	;stack push
	sr_extbl,@_TRSTBL(-1)
	sr_store,0,@_Trs(+1)
	sr_portread,PORT7	;stack pull

	sr_extbl,@_WAITTBL(-1)
	sr_store,0,@_Wait(+1)
@_Trs	
	strans,0
@_Loop
	loops,#1	
 	 opennote,0,@_Note1
@_Wait
	 wait,20
	loope
	waitw,120
	deallocvoice
	fin
@_WAITTBL
#byte	20,20,15,12

@_TRSTBL
#byte	+8,+11,+15,+18


@_NOTE1
	cn4b0w,108,127,0
	fin
#evenw
@__BupEnv
#word	2,32000,4,31000,8,16000,64,0,0,0

@_NOTETBL
#label	@_Note1,@_Note2,@_Note3,@_Note4


@_NOTE1
	cn5b0,120,127,0
	fin

@_NOTE2
	cn5b0,20,127,0
	en5b0,120,127,0
	fin

@_NOTE3
	cn5b0,15,127,0
	en5b0,15,127,0
	gn5b0,120,127,0
	fin

@_NOTE4
	cn5b0,12,127,0
	en5b0,12,127,0
	gn5b0,12,127,0
	bn5b0,120,127,0
	fin

	

;----------------------------------------------------
;	MAXIMUM POWER!
;====================================================


#evenw
_BoostUp_Env
#word	120,24000,20,32000,10,26000,10,31000,480,0,0,0


_BoostUp_Max_Sub
	initpitch
  	Amode
;  		     pause,mono,pri,trs,pan,pow,fxmix,line
	multiparamset, $00 ,$03, 14 , 0 , 64,32, 64 ,  0
	bprg ,BANK_SYS,0
	envelope,_BoostUp_Env
	release,16
 	svolume,90
	allocvoice,3
	opennote,0,@_Note1
	waitw,4
	opennote,1,@_Note2
	waith,4
	opennote,2,@_Note3
	wait,60
	sr_load,#0
       loops,40
	sr_portwrite,PORT7
	waith,8
	sr_portread,PORT7
	sr_store,0,@_Bend(+1)
@_Bend
	pitchbend,0
	sr_sbc,#$fe		;+4
       loope
	waitw,360
	deallocvoice
	fin


@_NOTE1
	tgate,14
	velo,127
	sweep,_SWEEP_AB1_,an0,40
	gn3w,168
	fin
	
@_NOTE2
	tgate,14
	velo,127
	sweep,_SWEEP_AB1_,an0,40
	bn3w,160
	fin

@_NOTE3
	tgate,14
	velo,127
	sweep,_SWEEP_AB1_,an0,40
	dn4w,152
	fin


;@_Note
;	tgate,15
;	velo,127
;	tieon
;	
;	cn3,32
;	sweepw,_SWEEP_NBL_,cn3,160
;	cs3w,160
;	fin

;@_Note
;	tgate,15
;	velo,127
;	tieon
;	
;	cn3,8
;	sweepw,_SWEEP_NBL_,cn3,160
;	cs3w,160
;	fin


;	tgate,15
;	velo,127
;	tieon
;	gn3,64
;	fin



_TITLE_SUB
  	Amode
	initpitch
	panmode,1
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,127, 96 ,  1
	bprg ,BANK_WAVE,0
	envelope,@_ENV_LONG
	release,8
 	svolume,96
	opennote,0,@_N0
	opennote,1,@_N1
	opennote,2,@_N0B
	opennote,3,@_N1B
	sr_load,#127
	sr_portwrite,PORT7	;PanPower Stock

	wait,32
       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_sbc,$01		; panpower --
	sr_portwrite,PORT7
@_Pan
	spanpow,0
	waith,8
       loope
	wait,32       
	fin

#evenw
@_ENV_LONG
#word	160,20000,480,32000,128,31800,240,20000,640,0,0,0

@_N0
	npan,0
	tgate,15
	velo,127
	tieon
	sweepw,_SWEEP_AB1_,dn4,860
	bn3w,860
	fin	
@_N0B
	npan,0
	tgate,15
	velo,127
	tieon
	sweepw,_SWEEP_AB1_,gn3,860
	bn3w,860
	fin	
@_N1
	npan,127
	tgate,15
	velo,127
	sweepw,_SWEEP_AB1_,dn4,860
	bn3w,860
	fin	

@_N1B
	npan,127
	tgate,15
	velo,127
	sweepw,_SWEEP_AB1_,gn3,860
	bn3w,860
	fin	

;---------------------------------------------------
;	NAME ENTRY SOUND
;===================================================


_NAME_SUB_COMMON
  	Amode
	initpitch
	panmode,1
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,64, 16 ,  1
	bprg ,BANK_SYS,127
	release,2
 	svolume,127
	fin	

_NAME_SUB_L
	call,_NAME_SUB_COMMON
	opennote,0,@_N0
	wait,4
	opennote,1,@_N1
	
	waitw,360       
	fin
@_N0
	velo,127
	npan,0
	bra,_NAME_NOTE_PLAY

@_N1
	velo,64
_NAME_NOTE_PLAY_RIGHT
	npan,127
_NAME_NOTE_PLAY
	tgate,15
	killpan
	p0bw,360
	fin	

_NAME_SUB_R
	call,_NAME_SUB_COMMON
	opennote,0,@_N0
	wait,4
	opennote,1,@_N1
	
	waitw,360       
	fin
@_N0
	velo,127
	bra,_NAME_NOTE_PLAY_RIGHT
@_N1
	velo,64
	npan,0
	bra,_NAME_NOTE_PLAY

;-------------------------------------------------------
;NAME ENTRY END
;


_NAME_SUB_END
  	Amode
	initpitch
	panmode,1
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 14 , 0 , 64,127, 32 ,  1
	bprg ,BANK_WAVE,0
	envelope,@_ENV_LONG
	release,32
 	svolume,127
	opennote,0,@_N0
	opennote,1,@_N1
	sr_load,#0
	sr_portwrite,PORT7	;PanPower Stock

	wait,32
       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_sbc,$ff		; panpow ++
	sr_portwrite,PORT7
@_Pan
	spanpow,0
	waith,2
       loope
	wait,32       
	fin

#evenw
@_ENV_LONG
#word	32,32000,480,0,0,0

@_N0
	npan,32
	bra,@_Play
@_N1
	npan,96
@_Play
	tgate,15
	velo,127
	tieon
	sweep,_ASWEEP_NBL_,gn3,255
	gn3,40
	gn4,50
	gn3,45
	gn2,40
	gn1,30
	fin	


_CROSSWIPE_L
  	Amode
	panmode,1
	multiparamset, $00 ,$00, 14 , 0 , 127,127, 16 ,  0
;	bprg ,BANK_WAVE,0
	bprg ,BANK_SYS,127
 	svolume,127
	opennote,0,@_N1
	sr_load,#0
	sr_portwrite,PORT7	;Pan Stock
	pitchbend,+36

       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_store,0,@_Bend(+1)	
	sr_sbc,$ff		; pan ++
	sr_portwrite,PORT7
@_Pan
	span,0
@_Bend
	pitchbend,0
	waith,12
       loope
	wait,20       
	fin


@_N1
	tgate,15
	velo,127
	dn2w,450		;perc.17
	fin	


_CROSSWIPE_R
  	Amode
	panmode,1
	multiparamset, $00 ,$00, 14 , 0 , 127,127, 16 ,  0
;	bprg ,BANK_WAVE,0
	bprg ,BANK_SYS,127
 	svolume,127
	opennote,0,@_N1
	sr_load,#127
	sr_portwrite,PORT7	;Pan Stock

       loops,127
	sr_portread,PORT7
	sr_store,0,@_Pan(+1)	
	sr_store,0,@_Bend(+1)	
	sr_sbc,$01		; pan ++
	sr_portwrite,PORT7
@_Pan
	span,0
@_Bend
	pitchbend,0
	waith,12
       loope
	wait,20       
	fin

@_N1
	tgate,15
	velo,127
	dn2w,450		;perc.17
	fin	



;--------------------------- 
;	Time Extend
;---------------------------

;_TIME_EXTEND_SUB
; 	Amode
;	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
;	multiparamset, $00 ,$02, 14 , 0 , 64,127, 32 ,  0
;	allocvoice,4
;	panmode,1
;	release,64
; 	svolume,100
;	bprg,BANK_SYS,10
;;	vibdelay,24
;;	vibdepthmv,0,16,8
;;	vibpitch,100
;	opennote,0,@_Note0
;	opennote,1,@_Note1
;	waitw,260
;	deallocvoice
;	fin
;@_Note0
;	velo,127
;	tgate,14
;	bn4,016
;	bn4,016
;	cn4,016
;	cs4,001
;	dn4,012
;	fin

;@_Note1
;	velo,100
;	tgate,10
;	gn4,016
;	gn4,016
;	bn4,016
;	gn4,012
;	fin




_TIME_EXTEND_SUB2
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$00, 15 ,+2 , 64,127, 32 ,  0
	allocvoice,4
	panmode,0
	release,64
 	svolume,100
	bprg,BANK_SYS,10
;	vibdelay,24
;	vibdepthmv,0,16,8
;	vibpitch,100
	opennote,0,@_Note0
	opennote,1,@_Note1
	waitw,260
	deallocvoice
	fin
@_Note0
	velo,127
	tgate,14
	bn4,008
	dn5,008
	gn5,008
	cn5,008
	en5,008
	an5,008
	dn5,008
	fs5,008
	bn5,008
	fin

@_Note1
	velo,100
	tgate,10
	gn4,008
	gn4,008
	gn4,008
	bn4,008
	bn4,008
	bn4,008
	dn5,008
	dn5,008
	dn5,008
	fin


;-------------------------------------------------
; REVERSE RUNNING
;=================================================



_REVERSE_WARNING_SUB
  	Amode
	initpitch
;  		     pause,mono,pri,trs, pan,pow,fxmix,line
	multiparamset, $00 ,$02, 14 ,+2 , 64,127, 32 ,  0
	allocvoice,2
	panmode,0
	release,64
 	svolume,80
	bprg,BANK_SYS,5
	vibdelay,0
	vibdepth,8
	vibpitch,120
	opennote,0,@_Note0
	opennote,1,@_Note1
	waitw,260
	deallocvoice
	fin

@_Note1
	xxx,004
	ntrans,-12
@_Note0
	velo,127
	bn4,024
	gn4,048
	fin

;-------------------------------------------------
; CURSOR SCROLL
;=================================================


#include "pause.sub.02"
#include "ring.sub.02"
#include "demo.sub.01"
#include "decide2.sub.01"
#include "demotorace.sub.03"
#include "flap.sub.03"
#include "pass.sub.01"