$include "windowssdk.inc"
DEF n:INT

openconsole
LABEL TryAgain
	PRINT
	INPUT "Number ? ", 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()
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)
RETURN
ENDSUB

SUB beep02()
' 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)
RETURN
ENDSUB

SUB beep03()
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)
RETURN
ENDSUB

SUB beep04()
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
RETURN
ENDSUB

SUB beep05()
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)
RETURN
ENDSUB

SUB beep06()
' Jungle Bells
DEF x:INT
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
RETURN
ENDSUB

SUB beep07()
' Happy Birthday
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)
RETURN
ENDSUB

SUB beep08()
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)
RETURN
ENDSUB

SUB beep09()
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)
RETURN
ENDSUB

SUB beep10()
' 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)
RETURN
ENDSUB

SUB beep11()
' 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)
RETURN
ENDSUB

SUB beep12()
' 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
RETURN
ENDSUB

SUB beep13()
' 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)
RETURN
ENDSUB

SUB beep14()
' 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)
RETURN
ENDSUB