$include "windowssdk.inc"

INT n,x

openconsole

LABEL TryAgain
	PRINT
	INPUT "Number? (choose 1 to 14 - 0 to finish, or Enter): ",n
	SELECT n
		CASE 0
			CLOSECONSOLE
			END
		CASE 1
			beep01()
		CASE 2
			beep02()
		CASE 3
			beep03()
		CASE 4
			beep04()
		CASE 5
			beep05()
		CASE 6
			beep06()
		CASE 7
			beep07()
		CASE 8
			beep08()
		CASE 9
			beep09()
		CASE 10
			beep10()
		CASE 11
			beep11()
		CASE 12
			beep12()
		CASE 13
			beep13()
		CASE 14
			beep14()
	ENDSELECT
	GOTO TryAgain
END

SUB beep01()
PRINT
PRINT "Playing: Don't know"
Beep(220,300)
Beep(294,300)
Beep(294,300)
Beep(370,300)
Beep(494,300)
Beep(370,300)
Beep(440,800)
/* */
Beep(440,300)
Beep(494,300)
Beep(440,300)
Beep(370,300)
Beep(392,300)
Beep(370,300)
Beep(330,800)
/* */
Beep(247,300)
Beep(330,300)
Beep(330,300)
Beep(370,300)
Beep(555,300)
Beep(555,300)
Beep(494,300)
Beep(440,300)
Beep(392,800)
Beep(392,300)
Beep(370,300)
Beep(247,800)
Beep(278,300)
Beep(294,300)
Beep(330,2600)
/* */
Beep(220,300)
Beep(294,300)
Beep(294,300)
Beep(370,300)
Beep(494,300)
Beep(370,300)
Beep(440,800)
/* */
Beep(440,300)
Beep(494,300)
Beep(440,300)
Beep(370,300)
Beep(392,300)
Beep(370,300)
Beep(330,800)
/* */
Beep(247,300)
Beep(330,300)
Beep(330,300)
Beep(370,300)
Beep(555,300)
Beep(555,300)
Beep(494,300)
Beep(440,300)
Beep(392,800)
Beep(392,300)
Beep(370,300)
Beep(278,600)
Beep(330,600)
Beep(294,2600)
/*Reff : */
Beep(494,300)
Beep(494,300)
Beep(494,300)
Beep(440,300)
Beep(392,200)
Beep(440,200)
Beep(494,200)
Beep(440,800)
Beep(330,300)
Beep(370,300)
Beep(416,300)
Beep(330,300)
Beep(440,2000)
/* */
Beep(494,800)
Beep(440,800)
Beep(392,1600)
/* */
Beep(555,300)
Beep(555,300)
Beep(555,300)
Beep(494,300)
Beep(440,300)
Beep(494,300)
Beep(440,300)
Beep(392,1400)
/* */
Beep(440,300)
Beep(494,300)
Beep(370,1100)
Beep(330,300)
Beep(294,1800)
/* */
Beep(494,800)
Beep(440,800)
Beep(392,1600)
/* */
Beep(555,300)
Beep(555,300)
Beep(555,300)
Beep(494,300)
Beep(440,300)
Beep(494,300)
Beep(440,300)
Beep(392,1400)
/* */
Beep(440,300)
Beep(494,300)
Beep(370,1100)
Beep(330,300)
Beep(294,1800)
ENDSUB

SUB beep02()
' Happy Birthday
PRINT
PRINT "Playing: Happy Birthday"
Beep(523, 200)
Beep(523, 200)
Beep(578, 400)
Beep(523, 400)
Beep(698, 400)
Beep(659, 800)

Beep(523, 200)
Beep(523, 200)
Beep(578, 400)
Beep(523, 400)
Beep(784, 400)
Beep(698, 800)

Beep(523, 200)
Beep(523, 200)
Beep(1046, 400)
Beep(880, 400)
Beep(698, 400)

Beep(659, 400)
Beep(578, 400)

Beep(932, 200)
Beep(932, 200)
Beep(880, 400)
Beep(698, 400)
Beep(784, 400)
Beep(698, 800)
ENDSUB

SUB beep03()
PRINT
PRINT "Playing: Don't know"
Beep(329,300) 'E
Beep(493,300) 'B
Beep(698,300) 'F^
Beep(659,600) 'E^

Beep(783,300) 'G^
Beep(698,300) 'F^
Beep(659,600) 'E^

Beep(329,100)
Beep(493,300)
Beep(698,300)
Beep(659,600)

Beep(392,250)
Beep(440,200)
Beep(587,300)

Beep(349,250)
Beep(587,500)

Beep(329,300)
Beep(493,300)
Beep(698,300)
Beep(659,600)

Beep(783,300)
Beep(698,300)
Beep(659,600)

Beep(329,100)
Beep(493,300)
Beep(698,300)
Beep(659,600)

Beep(392,250)
Beep(440,200)
Beep(587,300)

Beep(349,250)
Beep(587,400)
ENDSUB

SUB beep04()
PRINT
PRINT "Playing: Don't know"
beep(196,200)
beep(293,200)
beep(392,300)
beep(196,200)
beep(293,200)
beep(392,600)
beep(100,200)
beep(196,200)
beep(293,200)
beep(392,500)
beep(100,100)
beep(196,200)
beep(293,200)
beep(329,500)
beep(196,200)
beep(293,200)
beep(392,300)
beep(196,200)
beep(293,200)
beep(392,600)
beep(100,200)
beep(196,200)
beep(293,200)
beep(329,300)
beep(100,100)
beep(196,200)
beep(293,300)
beep(329,800)
beep(196,200)
beep(293,200)
beep(392,300)
beep(196,200)
beep(293,200)
beep(392,600)
beep(100,200)
beep(196,200)
beep(293,200)
beep(329,300)
beep(100,100)
beep(196,200)
beep(293,300)
beep(329,800)
beep(196,200)
beep(293,200)
beep(392,300)
beep(196,200)
beep(293,200)
beep(392,600)
beep(100,200)
beep(196,200)
beep(293,200)
beep(329,300)
beep(100,100)
beep(196,200)
beep(293,300)
beep(329,800)
beep(50,30)
beep(196,400) 'G
beep(220,200) 'a
beep(246,400) 'B
beep(50,30)
beep(246,300) 'B
beep(50,30)
beep(220,200) 'A
beep(196,200) 'G
beep(220,700) 'a
beep(196,800) 'G
beep(50,30)
beep(196,200) 'G
beep(220,400) 'a
beep(246,400) 'b
beep(50,30)
beep(246,1000)
beep(50,30)
beep(196,400) 'G
beep(220,200) 'a
beep(246,400) 'B
beep(50,30)
beep(246,300) 'B
beep(50,30)
beep(220,200) 'A
beep(196,200) 'G
beep(220,700) 'a
beep(196,800) 'G
beep(50,30)
beep(196,200) 'G
beep(50,30)
beep(196,500) 'G
beep(220,400) 'a
beep(50,30)
beep(220,1000) 'a
beep(50,30)
beep(50,30)
beep(196,400) 'G
beep(220,200) 'a
beep(246,400) 'B
beep(50,30)
beep(246,300) 'B
beep(50,30)
beep(220,200) 'A
beep(196,200) 'G
beep(220,700) 'a
beep(196,800) 'G
beep(50,30)
beep(196,200) 'G
beep(220,400) 'a
beep(246,400) 'b
beep(50,30)
beep(246,1000)
beep(50,30)
beep(196,400) 'G
beep(220,200) 'a
beep(246,400) 'B
beep(50,30)
beep(246,300) 'B
beep(50,30)
beep(220,200) 'A
beep(196,200) 'G
beep(220,700) 'a
beep(196,800) 'G
beep(50,30)
beep(196,200) 'G
beep(50,30)
beep(196,500) 'G
beep(220,400) 'a
beep(50,30)
beep(220,1000) 'a
beep(50,30)
beep(50,30)
beep(196,600) 'G
beep(220,300) 'a
beep(50,30)
beep(220,300) 'a
beep(220,800) 'a
beep(50,30)
beep(196,2000) 'G
beep(50,30)
beep(190,10)
beep(196,1500) 'G
'----------
' Break down
beep(258,200) 'c
beep(50,30)
beep(261,400)
beep(50,30)
beep(261,400)
beep(50,30)
beep(261,400)
beep(50,30)
beep(293,700) 'd
beep(329,500) 'e^
beep(293,200)
beep(329,500)
' Break
beep(258,200) 'c
beep(50,30)
beep(261,400)
beep(50,30)
beep(261,400)
beep(50,30)
beep(261,400)
beep(50,30)
beep(293,700) 'd
beep(329,500) 'e^
beep(293,200)
beep(329,500)
'-------------
beep(50,30)
beep(196,600) 'G
beep(220,300) 'a
beep(50,30)
beep(220,300) 'a
beep(220,800) 'a
beep(50,30)
beep(196,2000) 'G
beep(50,30)
beep(190,10)
beep(196,1500) 'G
ENDSUB

SUB beep05()
PRINT
PRINT "Playing: Don't know"
Beep(329,300)
Beep(493,300)
Beep(698,300)
Beep(659,300)

Beep(329,150)
Beep(493,150)
Beep(783,300)
Beep(698,300)
Beep(659,300)

Beep(329,300)
Beep(493,300)
Beep(698,300)
Beep(590,300)

Beep(392,150)
Beep(440,150)
Beep(587,300)

Beep(349,300)
Beep(587,300)

/* and same thing again: */

Beep(329,300)
Beep(493,300)
Beep(698,300)
Beep(659,300)

Beep(329,150)
Beep(493,150)
Beep(783,300)
Beep(698,300)
Beep(659,300)

Beep(329,300)
Beep(493,300)
Beep(698,300)
Beep(590,300)

Beep(392,150)
Beep(440,150)
Beep(587,300)

Beep(349,300)
Beep(587,300)
ENDSUB

SUB beep06()
' Jungle Bells
PRINT
PRINT "Playing: Jingle Bells (sort of)"
for x = 0 to 2
	Beep(523,500) 'Jingle
next x
Beep(523,800) 'Bell
Sleep(200)
for x = 0 to 2
	Beep(523,500) 'Jingle
next x
Beep(523,800) 'Bell
Sleep(200)
Beep(523,500) 'Jin
Sleep(50)
Beep(659,400) 'gle
Sleep(50)
Beep(440,400) 'all
Sleep(50)
Beep(494,400) 'the
Sleep(50)
Beep(523,750) 'way
Sleep(400)
Beep(600,400) 'oh
Sleep(100)
Beep(600,350) 'what
Sleep(200)
Beep(600,300) 'fun
Sleep(150)
Beep(600,250) 'it
Sleep(150)
Beep(600,150) 'is
Sleep(150)
Beep(550,250) 'to
Sleep(150)
Beep(555,350) 'ride
Sleep(50)
Beep(555,200) 'in
Sleep(150)
Beep(555,200) 'a
Sleep(150)
Beep(690,200) 'one
Sleep(150)
Beep(690,200) 'horse
Sleep(150)
Beep(610,200) 'o
Sleep(150)
Beep(535,160) 'pen
Sleep(100)
Beep(500,150) 'sleigh
Beep(500,50) 'sleigh
Sleep(200)
Beep(700,200) 'yeah
ENDSUB

SUB beep07()
' Happy Birthday
PRINT
PRINT "Playing: Happy Birthday No 2"
int C = 523 'DO  - dura 191ms - 382ms
int D = 587 'RE  - dura 170ms - 340ms
int E = 659 'MI  - dura 152ms - 304ms
int F = 698 'FA  - dura 143ms - 286ms
int G = 740 'SOL - dura 135ms - 270ms
int A = 880 'LA  - dura 114ms - 228ms
int B = 988 'SI  - dura 110ms - 220ms
' CCDCFE
Beep(C, 382)
beep(C, 382)
beep(D, 340)
beep(C, 382)
beep(F, 286)
beep(E, 304)
' CCDCGF
Beep(C, 382)
beep(C, 382)
beep(D, 340)
beep(C, 382)
beep(G, 270)
beep(F, 286)
' CCCAFE
Beep(C, 382)
beep(C, 382)
beep(C, 382)
beep(A, 228)
beep(F, 286)
beep(E, 304)
'DBBAFGF
Beep(D, 340)
beep(B, 220)
beep(B, 220)
beep(A, 228)
beep(F, 286)
beep(G, 270)
Beep(F, 286)
ENDSUB

SUB beep08()
PRINT
PRINT "Playing: Don't know"
Beep(480,200)
Beep(1568,200)
Beep(1568,200)
Beep(1568,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(369.99,200)
Beep(392,200)
Beep(369.99,200)
Beep(392,200)
Beep(392,400)
Beep(196,400)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(739.99,200)
Beep(83.99,200)
Beep(880,200)
Beep(830.61,200)
Beep(880,200)
Beep(987.77,400)
Beep(880,200)
Beep(783.99,200)
Beep(698.46,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(880,200)
Beep(830.61,200)
Beep(880,200)
Beep(987.77,400)
Sleep(200)
Beep(1108,10)
Beep(1174.7,200)
Beep(1480,10)
Beep(1568,200)
Sleep(200)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(783.99,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(880,200)
Beep(830.61,200)
Beep(880,200)
Beep(987.77,400)
Beep(880,200)
Beep(783.99,200)
Beep(698.46,200)
Beep(659.25,200)
Beep(698.46,200)
Beep(784,200)
Beep(880,400)
Beep(784,200)
Beep(698.46,200)
Beep(659.25,200)
Beep(587.33,200)
Beep(659.25,200)
Beep(698.46,200)
Beep(784,400)
Beep(698.46,200)
Beep(659.25,200)
Beep(587.33,200)
Beep(523.25,200)
Beep(587.33,200)
Beep(659.25,200)
Beep(698.46,400)
Beep(659.25,200)
Beep(587.33,200)
Beep(493.88,200)
Beep(523.25,200)
Sleep(400)
Beep(349.23,400)
Beep(392,200)
Beep(329.63,200)
Beep(523.25,200)
Beep(493.88,200)
Beep(466.16,200)
Beep(440,200)
Beep(493.88,200)
Beep(523.25,200)
Beep(880,200)
Beep(493.88,200)
Beep(880,200)
Beep(1760,200)
Beep(440,200)
Beep(392,200)
Beep(440,200)
Beep(493.88,200)
Beep(783.99,200)
Beep(440, 200)
Beep(783.99,200)
Beep(1568,200)
Beep(392,200)
Beep(349.23,200)
Beep(392,200)
Beep(440,200)
Beep(698.46,200)
Beep(415.2,200)
Beep(698.46,200)
Beep(1396.92,200)
Beep(349.23,200)
Beep(329.63,200)
Beep(311.13,200)
Beep(329.63,200)
Beep(659.25,200)
Beep(698.46,400)
Beep(783.99,400)
Beep(440,200)
Beep(493.88,200)
Beep(523.25,200)
Beep(880,200)
Beep(493.88,200)
Beep(880,200)
Beep(1760,200)
Beep(440,200)
Beep(392,200)
Beep(440,200)
Beep(493.88,200)
Beep(783.99,200)
Beep(440,200)
Beep(783.99,200)
Beep(1568,200)
Beep(392,200)
Beep(349.23,200)
Beep(392,200)
Beep(440,00)
Beep(698.46,200)
Beep(659.25,200)
Beep(698.46,200)
Beep(739.99,200)
Beep(783.99,200)
Beep(392,200)
Beep(392,200)
Beep(392,200)
Beep(392,200)
Beep(196,200)
Beep(196,200)
Beep(196,200)
Beep(185,200)
Beep(196,200)
Beep(185,200)
Beep(196,200)
Beep(207.65,200)
Beep(220,200)
Beep(233.08,200)
Beep(246.94,200)
ENDSUB

SUB beep09()
PRINT
PRINT "Playing: Don't know"
Beep(659,125)
Beep(659,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(523,125)
Beep(659,125)
Sleep(125)
Beep(784,125)
Sleep(375)
Beep(392,125)
Sleep(375)
Beep(523,125)
Sleep(250)
Beep(392,125)
Sleep(250)
Beep(330,125)
Sleep(250)
Beep(440,125)
Sleep(125)
Beep(494,125)
Sleep(125)
Beep(466,125)
Sleep(42)
Beep(440,125)
Sleep(125)
Beep(392,125)
Sleep(125)
Beep(659,125)
Sleep(125)
Beep(784,125)
Sleep(125)
Beep(880,125)
Sleep(125)
Beep(698,125)
Beep(784,125)
Sleep(125)
Beep(659,125)
Sleep(125)
Beep(523,125)
Sleep(125)
Beep(587,125)
Beep(494,125)
Sleep(125)
Beep(523,125)
Sleep(250)
Beep(392,125)
Sleep(250)
Beep(330,125)
Sleep(250)
Beep(440,125)
Sleep(125)
Beep(494,125)
Sleep(125)
Beep(466,125)
Sleep(42)
Beep(440,125)
Sleep(125)
Beep(392,125)
Sleep(125)
Beep(659,125)
Sleep(125)
Beep(784,125)
Sleep(125)
Beep(880,125)
Sleep(125)
Beep(698,125)
Beep(784,125)
Sleep(125)
Beep(659,125)
Sleep(125)
Beep(523,125)
Sleep(125)
Beep(587,125)
Beep(494,125)
Sleep(375)
Beep(784,125)
Beep(740,125)
Beep(698,125)
Sleep(42)
Beep(622,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(415,125)
Beep(440,125)
Beep(523,125)
Sleep(125)
Beep(440,125)
Beep(523,125)
Beep(587,125)
Sleep(250)
Beep(784,125)
Beep(740,125)
Beep(698,125)
Sleep(42)
Beep(622,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(698,125)
Sleep(125)
Beep(698,125)
Beep(698,125)
Sleep(625)
Beep(784,125)
Beep(740,125)
Beep(698,125)
Sleep(42)
Beep(622,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(415,125)
Beep(440,125)
Beep(523,125)
Sleep(125)
Beep(440,125)
Beep(523,125)
Beep(587,125)
Sleep(250)
Beep(622,125)
Sleep(250)
Beep(587,125)
Sleep(250)
Beep(523,125)
Sleep(1125)
Beep(784,125)
Beep(740,125)
Beep(698,125)
Sleep(42)
Beep(622,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(415,125)
Beep(440,125)
Beep(523,125)
Sleep(125)
Beep(440,125)
Beep(523,125)
Beep(587,125)
Sleep(250)
Beep(784,125)
Beep(740,125)
Beep(698,125)
Sleep(42)
Beep(622,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(698,125)
Sleep(125)
Beep(698,125)
Beep(698,125)
Sleep(625)
Beep(784,125)
Beep(740,125)
Beep(698,125)
Sleep(42)
Beep(622,125)
Sleep(125)
Beep(659,125)
Sleep(167)
Beep(415,125)
Beep(440,125)
Beep(523,125)
Sleep(125)
Beep(440,125)
Beep(523,125)
Beep(587,125)
Sleep(250)
Beep(622,125)
Sleep(250)
Beep(587,125)
Sleep(250)
Beep(523,125)
ENDSUB

SUB beep10()
' The Imperial March (Star Wars)
PRINT
PRINT "Playing: The Imperial March (Star Wars)"
beep(440,500)
beep(440,500)
beep(440,500)
beep(349,350)
beep(523,150)
beep(440,500)
beep(349,350)
beep(523,150)
beep(440,1000)
beep(659,500)
beep(659,500)
beep(659,500)
beep(698,350)
beep(523,150)
beep(415,500)
beep(349,350)
beep(523,150)
beep(440,1000)
ENDSUB

SUB beep11()
' Mission Impossible
PRINT
PRINT "Playing: Mission Impossible"
beep(784,150)
sleep(300)
beep(784,150)
sleep(300)
beep(932,150)
sleep(150)
beep(1047,150)
sleep(150)
beep(784,150)
sleep(300)
beep(784,150)
sleep(300)
beep(699,150)
sleep(150)
beep(740,150)
sleep(150)
beep(784,150)
sleep(300)
beep(784,150)
sleep(300)
beep(932,150)
sleep(150)
beep(1047,150)
sleep(150)
beep(784,150)
sleep(300)
beep(784,150)
sleep(300)
beep(699,150)
sleep(150)
beep(740,150)
sleep(150)
beep(932,150)
beep(784,150)
beep(587,1200)
sleep(75)
beep(932,150)
beep(784,150)
beep(554,1200)
sleep(75)
beep(932,150)
beep(784,150)
beep(523,1200)
sleep(150)
beep(466,150)
beep(523,150)
ENDSUB

SUB beep12()
' Super Mario Intro
PRINT
PRINT "Playing: Super Mario Intro"
beep(659,250) '##E
beep(659,250) '##E
beep(659,300) '##E
beep(523,250) '##C
beep(659,250) '##E
beep(784,300) '##G
beep(392,300) '##g
beep(523,275) '## C
beep(392,275) '##g
beep(330,275) '##e
beep(440,250) '##a
beep(494,250) '##b
beep(466,275) '##a#
beep(440,275) '##a
beep(392,275) '##g
beep(659,250) '##E
beep(784,250) '## G
beep(880,275) '## A
beep(698,275) '## F
beep(784,225) '## G
beep(659,250) '## E
beep(523,250) '## C
beep(587,225) '## D
beep(494,225) '## B
ENDSUB

SUB beep13()
' Tetris
PRINT
PRINT "Playing: Tetris"
Beep(658,125)
Beep(1320,500)
Beep(990,250)
Beep(1056,250)
Beep(1188,250)
Beep(1320,125)
Beep(1188,125)
Beep(1056,250)
Beep(990,250)
Beep(880,500)
Beep(880,250)
Beep(1056,250)
Beep(1320,500)
Beep(1188,250)
Beep(1056,250)
Beep(990,750)
Beep(1056,250)
Beep(1188,500)
Beep(1320,500)
Beep(1056,500)
Beep(880,500)
Beep(880,500)
Sleep(250)
Beep(1188,500)
Beep(1408,250)
Beep(1760,500)
Beep(1584,250)
Beep(1408,250)
Beep(1320,750)
Beep(1056,250)
Beep(1320,500)
Beep(1188,250)
Beep(1056,250)
Beep(990,500)
Beep(990,250)
Beep(1056,250)
Beep(1188,500)
Beep(1320,500)
Beep(1056,500)
Beep(880,500)
Beep(880,500)
Sleep(500)
Beep(1320,500)
Beep(990,250)
Beep(1056,250)
Beep(1188,250)
Beep(1320,125)
Beep(1188,125)
Beep(1056,250)
Beep(990,250)
Beep(880,500)
Beep(880,250)
Beep(1056,250)
Beep(1320,500)
Beep(1188,250)
Beep(1056,250)
Beep(990,750)
Beep(1056,250)
Beep(1188,500)
Beep(1320,500)
Beep(1056,500)
Beep(880,500)
Beep(880,500)
Sleep(250)
Beep(1188,500)
Beep(1408,250)
Beep(1760,500)
Beep(1584,250)
Beep(1408,250)
Beep(1320,750)
Beep(1056,250)
Beep(1320,500)
Beep(1188,250)
Beep(1056,250)
Beep(990,500)
Beep(990,250)
Beep(1056,250)
Beep(1188,500)
Beep(1320,500)
Beep(1056,500)
Beep(880,500)
Beep(880,500)
Sleep(500)
Beep(660,1000)
Beep(528,1000)
Beep(594,1000)
Beep(495,1000)
Beep(528,1000)
Beep(440,1000)
Beep(419,1000)
Beep(495,1000)
Beep(660,1000)
Beep(528,1000)
Beep(594,1000)
Beep(495,1000)
Beep(528,500)
Beep(660,500)
Beep(880,1000)
Beep(838,2000)
Beep(660,1000)
Beep(528,1000)
Beep(594,1000)
Beep(495,1000)
Beep(528,1000)
Beep(440,1000)
Beep(419,1000)
Beep(495,1000)
Beep(660,1000)
Beep(528,1000)
Beep(594,1000)
Beep(495,1000)
Beep(528,500)
Beep(660,500)
Beep(880,1000)
Beep(838,2000)
ENDSUB

SUB beep14()
' Ta Da Da Da
PRINT
PRINT "Playing: Ta Da Da Da"
Beep(1568,200)
Beep(1568,200)
Beep(1568,200)
Beep(1245,1000)
Beep(1397,200)
Beep(1397,200)
Beep(1397,200)
Beep(1175,1000)
ENDSUB