'change this to skip some
goto 100


100
for h=1 to 2
 chirp 1,5,1200,50,20
next
pause 300

200
for h=1 to 2
 chirp 1,5,600,50,20
next

300
for h=1 to 12
 pause 500
 freq=2800-200*h
 print "single chirp, start frequency ";freq
 chirp 1,5,freq,50,20
next h
play sound 1,B,O,300
pause 1000

400
print "chirps with different t"

for h=1 to 4
 pause 500
 freq=600
 print "single chirp,t=";20*h
 chirp 1,5,freq,50,20*h
next h

pause 1000

500
print "chirps with different d"

for h=1 to 4
 pause 500
 freq=2000
 print "single chirp, d=";50*h
 chirp 1,5,freq,50*h,20
next h

600
 for h=1 to 5
 'pause 500
 freq=1600-200*h
 print "upward chirp, start frequency ";freq
 chirp 1,5,freq,-50,20
next h
play sound 1,B,O,300
pause 1000

700
for h=1 to 5
 pause 500
 freq=1600-200*h
 print "upward chirp, start frequency ";freq
 chirp 1,5,freq,-50,20
next h
play sound 1,B,O,300
pause 1000

800
for h=1 to 5
 pause 500
 freq=1600-200*h
 print "upward chirps repeated, start frequency ";freq
 for h2=1 to 5
   chirp 1,5,freq,-50,20
 next
next h
play sound 1,B,O,300
pause 1000

end

sub chirp sets,reps,f,d,t
for k=1 to sets
 ' if f and d are multiples of 50 (50 cycles per second)
 ' and t is 20 (20ms), a 50th of a second, sound will be smoooth

 ' more generally if f and d are multiples of 1000/t.

 for n=f to f-d*reps step -d
   play sound 1,B,q,n
   pause t
 next n
next
play sound 1,B,O,300

end sub

'play a square wave
sub sq freq, dur
 play sound 1,B,Q,freq
 pause dur
 play stop
end sub

for n=1 to 10
 sq 1000-50*n,3
 pause 100
next

f=1000
for n=1 to 20
 sq f,3
 pause 70
 f=INT(f*1.1)
next