' Star Trek The Next Generation...Theme and ship take-off
' Eric Campbell 02-14-94 (616)-968-1641
' stamp output "0" to +side of 10uF capacitor, -side to -speaker (40 ohm or
' 8 ohm with 3 10 ohm series resistors), +speaker to ground.
'         ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
'         ³ Basic    pin 0 ÅÄÄÄ´+ 10æF -ÃÄÄÄ¿ -  
'         ³ Stamp          ³                ÃÄ¿/³ 
'         ³             gndÅ¿               ³ ³ ³40 ê
'         ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ³               ÃÄÙ\³
'                           ÀÄÄ´10êx3ÃÄÄÄÄÄÄÙ +       
'                           only ^ needed when using 8ê speaker
'
'  The intonation of some notes are a little off (middle "c") as they are 
'  between whole numbers and the stamp doesn't recognize decimals or 
'  fractions. Sorry!
'  Have fun!!

   
Theme:		sound 0, (50,60,70,20,85,120,83,40,70,20,50,20,70,20,90,120,90,20,98,160)

		pause 500

take_off:	 for b2 = 128 to 255		'ascending white noises
       		 sound 0, (b2,2)                'for warp drive sound
next
one:	sound 0, (43,80,63,20,77,20,71,80,51,20,90,20,85,140,77,20,80,20,85,20,90,20,80,20,85,60,90,60,92,60,87,60,96,70,0,10,96,10,0,10,96,10,0,10,96,30,0,10,92,30,0,10,87,30,0,10,96,40,0,20,63,10,0,10,63,10,0,10,63,10,0,10,63,20)


pause 10000
goto theme
'  Here are some of the approximate note values for the sound statement,
'  I'm not quite sure what algorithym  parallax used but there isn't any
'  constant (i.e. the 12th root of 2) that you can use to calculate the 
'  values for certain pitches.  However, here are the values that were
'  close for me:(some are almost perfect, some are more than a few beats off)
'  "C"-  36, 83,00 105
'  "Db"- 43, 85, 106
'  "D"-  47, 87, 108, 118, 123
'  "Eb"- 51, 90, 109
'  "E"-  55, 92, 110, 119
'  "F"-  59, 94, 111
'  "Gb"- 63, 96, 112, 120
'  "G"-  6, 67, 98, 113
'  "Ab"- 12, 70, 99, 114(bb),121
'  "A"-  19, 74, 101, 115(#)
'  "Bb"- 25, 77, 103(#), 125
'  "B" - 30, 80, 104, 116, 122                                                                       