'{$STAMP BS2}
i var word
j var word
spkr var nib

spkr=2                  ' speaker pin
output spkr

' --- test ---- (change at your own convenience ) 
gosub sound_18
gosub sound_1
gosub sound_18
pause 500

gosub sound_2
gosub sound_3
gosub sound_6
pause 500

gosub sound_1
gosub sound_4
gosub sound_0
pause 500

gosub sound_16
gosub sound_17
gosub sound_15
pause 500

gosub sound_18
gosub sound_13
gosub sound_18
gosub sound_3
gosub sound_18
gosub sound_7
gosub sound_8

stop '--- end of test --------------------------


' --- noises -------
sound_0:
   for j = 1 to 4
      for i=2000 to 50 step 400   
         freqout spkr,10,i
      next
      for i=800 to 2000 step 400
         freqout spkr,10,i
      next
   next
return

sound_1:
   for i = 800 TO 2000 STEP 100       
      freqout spkr,10,i
   next
   for i= 2000 TO 50 step 100
      freqout spkr,10,i
   next
return

sound_2:
   for i = 1000 to 40 step 20         
      freqout spkr,10,i
   next
return

sound_3:
   for i = 10000 to 500 step 500      
      freqout spkr,10,i
   next
return
                  
sound_4:
   for i = 10 to 50 step 10        
      for j = 50 TO 10 step 10 
         freqout spkr,15,j*20
      next
   next
return
                  
sound_5:
   for i = 1 TO 120 step 2        
      freqout spkr,10,(sin(i + 40) * 50)
   next
return
                  
sound_6:
   for i = 10 TO 50 step 10          
      for j = 50 to 10 step 10
         freqout spkr,10,i * J
      next
   next
return

sound_7:
   for i = 30 to 70 step 5         
      for j = 70 to 30 step 5
         freqout spkr,10,i*j
      next
   next
return

sound_8:
   for i= 30 to 60 step 10        
      for j = 60 to 30 step 10 
         freqout spkr,10,i * j
      next
   next
return
                  

sound_9:
   for i = 1 to 60 step 7         
      freqout spkr,10,(sin(i) + 20) * 30
   next
return

sound_10:
   for i = 1 to 30              
      freqout spkr,20,(i * 14) + 450
   next
return 

sound_11:
   for i = 10000 to 500 step 500
      freqout spkr,20,i
   next
return

sound_12:
   for i = 102 to 82 step 2     
      freqout spkr,40,(COS(i/100) + 36) * 25
      freqout spkr,20,(SIN(i/100) + 20) * 50
   next
return

sound_13:
   for i = 1 to 10               
      freqout spkr,40,1195
      freqout spkr,40,2571
   next
return

sound_14:
    for i= 1 to 3               
      freqout spkr,90, 550
      freqout spkr,90, 400
    next
return

sound_15:
   for i = 40 TO 15 step 1      
      freqout spkr,5,I * 90
      freqout spkr,5,I * 80
      freqout spkr,5,I * 70
      freqout spkr,5,I * 60
      freqout spkr,5,I * 50
   next
return

sound_16:
   for i = 1 to 20               
      freqout spkr,20,1195 - 50 * I
      freqout spkr,20,1195 + 50 * I
   next
return

sound_17:
   for i = 0 to 150 step 10     
      freqout spkr,20,1295 - I
      freqout spkr,20,1095 + I 
   next
return

sound_18:
   for i = 1 to 20
      freqout spkr,10,I * 50
      freqout spkr,10,I * 100
      freqout spkr,10,I * 150
   next
return