;


#define PRG_CHEER1 15
#define PRG_CHEER2 15

#define PRG_START $10

_CHEER_SE
   Amode
   monomode,1		;no limit & note mono
   panmode,1
   
   vibdelay,0
   vibdepth,16		;very soft
   vibpitch,16		;very slow

   sr_load,#$ff
   sr_portwrite,PORT0
      
   fxmix,32
   fxline,1
 
   span,64
   spanpow,127
   svolume,100
   evolume,127
   priority,14
  
   release,120
   bankchg, 	 BANK_CHEER
   prg,0

   sopensub,10,_BASIC_CHEER
   
   allocvoice,4
   opennote,0,@_CHEER0
   opennote,1,@_CHEER1
   opennote,2,@_CHEER2
   opennote,3,@_CHEER3

   pitchbend,1
   
@_Loop
   wait,64
   sr_portread,PORT0   
   brN,@_Loop

;   waitw,10000
   deallocvoice
   fin
   

;
; many man.   l2
;

@_CHEER0
   velo,127
   nprg,9
   nenv,@_ENV0,16
   tieon	
   tgate,15
@_Loop0
   cn4w,1200
   bra,@_Loop0
   fin

;
; many man 2   cheer0814c, 
;

@_CHEER1
   velo,127
   nprg,15
   nenv,@_ENV1,16
   tieon	
   tgate,15
@_Loop1
   cn4w,1200
   bra,@_Loop1
   fin



;
;  clap ,  m1 or s3 
;



@_CHEER2
   velo,127
   nprg,4
   nenv,@_ENV2,16
   tieon	
   tgate,15
@_Loop2
   cn4w,1200
   bra,@_Loop2
   fin


; 
;  clap2  , l1
;


@_CHEER3
   velo,127
   nprg,8
   nenv,@_ENV3,16
   tieon	
   tgate,15
@_Loop3
   cn4w,1200
   bra,@_Loop3
   fin


#evenw
@_ENV0
;              4460-------5180------6300------7740-------10740-----11460-------13060--16060
#word	4460,0,720,32000,1120,32000,1440,14000,3200,18000,720,32000,2600,32000,3000,0,0,0
@_ENV1
#word	4360,0,720,32000,1120,32000,1440,14000,3200,18000,720,32000,2600,32000,3000,0,0,0
@_ENV2
#word	4160,0,720,32000,1120,32000,1440,14000,3400,18000,720,32000,2600,32000,3000,0,0,0
@_ENV3
#word	4060,0,720,32000,1120,32000,1440,14000,3500,18000,720,32000,2600,32000,3000,0,0,0




_BASIC_CHEER
   Amode
   monomode,1		;no limit & note mono
   panmode,1
   
   vibdelay,0
   vibdepth,8		;very soft
   vibpitch,8		;very slow
   
   sr_load,#$ff
   sr_portwrite,PORT0
      
   fxmix,32
   fxline,1
 
   span,64
   spanpow,127
   svolume,100
   evolume,127
   priority,14
  
   release,120
   bankchg, 	 BANK_CHEER
   prg,0

   allocvoice,4
   opennote,0,@_CHEER0
   opennote,1,@_CHEER1
   opennote,2,@_CHEER2
   opennote,3,@_CHEER3

@_Loop
   wait,64
   sr_portread,PORT0   
   brN,@_Loop

   deallocvoice
   fin
   
@_CHEER0
   killpan
   velo,127
   nprg,10
   nenv,@_ENV0,16
   tieon	
   npan,80	
   tgate,15
@_Loop0
   cn4,120
   cs4,120
   bra,@_Loop0
   fin

;
; many man 2   cheer0814c, 
;

@_CHEER1
   killpan
   velo,127
   nprg,10
   nenv,@_ENV0,16
   tieon	
   tgate,15
   npan,64	
   xxx,20
@_Loop1
   cn4,110
   ds4,100
   bra,@_Loop1
   fin

@_CHEER2
   killpan
   velo,127
   nprg,10
   nenv,@_ENV0,16
   tieon	
   npan,64	
   tgate,15
   xxx,30
@_Loop2
   dn4,100
   cs4,100
   cn4,100
   bra,@_Loop2
   fin


@_CHEER3
   killpan
   velo,127
   nprg,10
   nenv,@_ENV0,16
   tieon	
   npan,48	
   tgate,15
   xxx,40
@_Loop3
   bn3,60
   cn4,60
   cs4,60
   dn4,60
   cs4,60
   cn4,60
   bra,@_Loop3
   fin

#evenw
@_ENV0
;		  600 ------3600------4100-------5500--------9100-----12200-------13400------16800
#word	600,18000,3000,16000,500,24000,1400,28000,3600,24000,3100,32000,3200,28000,3400,0,0,0