COLOR 12, 2
CLS
INPUT "What is your name"; name$

begining:
CLS
COLOR 12, 2
CLS
LOCATE 6, 30
PRINT "THERE ARE 6 SONGS"
LOCATE 8, 32
PRINT "SIMPLE GIFTS"
LOCATE 9, 32
PRINT "LETS GO BAND"
LOCATE 10, 32
PRINT "A LITTLE TUNE"
LOCATE 11, 32
PRINT "QUICK SONG"
LOCATE 12, 32
PRINT "FANFARE FOR THE COMMON MAN"
LOCATE 13, 32
PRINT "GO BIG RED"
LOCATE 14, 32
PRINT "RANGE     (WARNING!!  GOES EXTREMELY HIGH) "
LOCATE 16, 27
PRINT "WRITTEN BY: DUSTY SMITH"

INPUT "Hit Enter?", B
PRINT "If you would like to listin to a song type the first letter "
PRINT "of it to play, or press N to leave"
INPUT "Pick your choice "; a$
IF (LEFT$(a$, 1) = "N") THEN GOTO another
IF (LEFT$(a$, 1) = "S") THEN GOTO simple
IF (LEFT$(a$, 1) = "L") THEN GOTO band
IF (LEFT$(a$, 1) = "A") THEN GOTO tune
IF (LEFT$(a$, 1) = "Q") THEN GOTO quick
IF (LEFT$(a$, 1) = "F") THEN GOTO fanfare
IF (LEFT$(a$, 1) = "G") THEN GOTO red
IF (LEFT$(a$, 1) = "R") THEN GOTO range
GOTO begining

simple:
COLOR 15, 2
CLS
LOCATE 17, 32
PRINT "Simple Gifts"
PLAY "T200"
PLAY "L4"
PLAY "O3"
PLAY "f2 b-2 b-> c d< b-> d e- f2 f e- d2 c< b-> c2< f2"
PLAY " > c2 < b-2 > c d c < a f2 f2 b-2 b- > c d < b- > d e- f2 f e-"
PLAY "d2 c< b-> c2 c2 d2 c2< b-2 b-2 b-2 p4 f2 b-> c"
PLAY "d8 e-8 d8 c8< b-> c d d8 e-8 f e-8 d8 c c8 d8 c c d2< d e f# d f# g a2 a g"
PLAY "f#2 e d e2 a2 e2 d2 a f# a e f#2 e2 d2 d e"
PLAY "f# d f# g a2 a g f#2 e d a2 d2 g2 g a b2 g2> d1 "
COLOR 13, 5
PRINT "Thank you for listing to the song, "; name$
INPUT "Hit Enter?", z
GOTO begining

band:
COLOR 10, 4
CLS
LOCATE 15, 45
PRINT "Lets Go Band"
PLAY "o2"
PLAY "t180"
PLAY "L4 g f e d c p4 e p4 f p4 f#g c p4 e p4 f p4 f#g c p4 e p4 f p4 f#g c c c p4 p1 >>c2< b-2 a2 g2 > c c < b-2 a2 g2 > c2 <b-2 a2 b2 >c c c p4 p1 c2< b-2 a2 g2 > c c < b-2 a2 g2 > c2 <b-2 a2 b2 >c c c p4 p1 "
PLAY "L4 c c c p4 c2 c p4 c c c p4 c2 c p4 c c c p4 <b2 b p4 >c c c p4 p1 c c c p4 c2 c p4 c c c p4 c2 c p4 c c c p4 <b2 b p4 >c c c p4 p1< c p4 e p4 f p4 f#g c p4 e p4 f p4 f#g c p4 e p4 f p4 f#g >c c c p4 "
COLOR 12, 2
PRINT "Hope you liked the song, "; name$
INPUT "Hit Enter?", x
GOTO begining

tune:
COLOR 9, 5
CLS
LOCATE 20, 25
PRINT "A Little Tune"
PLAY "ms"
PLAY "t 250"
PLAY "o0"
PLAY "l4 b- > d  e-  e8f8< b-> d  e-  e8f8< b- >  d  e-  e8f8"
PLAY "b- b- b- < p4 b- b- b- p4"
PLAY ">b-8 d8 b-8 d8 b-8 ab-8 p4 "
PLAY "l4 b- > d  e-  e8f8< b-> d  e-  e8f8< b- >  d  e-  e8f8"
PLAY "b- b- b- < p4 b- b- b- p4"
PLAY ">b-8 d8 b-8 d8 b-8 ab-8 p4"
PLAY "l4 b- > d  e-  e8f8< b-> d  e-  e8f8< b- >  d  e-  e8f8"
PLAY "b- b- b- < p4 b- b- b- p4"
PLAY ">b-8 d8 b-8 d8 b-8 ab-8 p4 <<"
PLAY "l4 b- > d  e-  e8f8< b-> d  e-  e8f8< b- >  d  e-  e8f8"
PLAY "b- b- b- < p4 b- b- b- p4"
PLAY ">b-8 d8 b-8 d8 b-8 ab-8 p4 <<"
FOR n = 200 TO 37 STEP -1
SOUND n, 1
NEXT
INPUT "Hit Enter?", x
GOTO begining

quick:
COLOR 4, 6
CLS
LOCATE 17, 32
PRINT "Quick Song"
PLAY "T180"
PLAY "L2"
PLAY "O2"
PLAY "c c6 c6 g6 f#8"
PLAY "g f f6 f6"
PLAY "c6 c6 p8 b8 a8 a-8 g"
PLAY "f#6 g6 > e6 e-6 < g"
PLAY "f# c6 f#6 g6 f6"
PLAY "p4 p8 g8 a8 b8 > c16 c#16 d8 c6 c6"
PLAY "c8 d8 e8 c8 c8 c8 d8 c6 c8 c8 c8 c8 < a8"
PLAY ">c p8 <b8 b8 b6 p8 b8 > c8 d8 e16 f16 f#16"
PLAY "g8 p8 < a-6 c > d6 c6"
PLAY "< g#8 a8 b8 > c8 < f# f e"
INPUT "Hit Enter?", m
GOTO begining

fanfare:
COLOR 1, 6
CLS
LOCATE 15, 30
PRINT "Fanfare For The Common Man"
PLAY "T120"
PLAY "ML"
PLAY "L4"
PLAY "O3"
PLAY "G8 > C8 G2 C8 G8 F2 A F C < G1 P4"
PLAY "F8 A8 > C2 C8 E8 G2 < F8 A8 > C2 P8 < GC1 P2 G>C2"
PLAY " < G8 > C8 C2 C <A F C2 P4 > C < A > D < G B G C1 P4"
PLAY "< A8 > C8 F2 F8 A8 > C3 << A8 > C8 F2 P8 F8 A8 > C2 < G C C1"
PLAY "P1 B- A G A G G1 B- A G A B"
PLAY "> C8 C1 P4 < C8 G8 > C2 < G8 > C8 < A1 P4 > F D C < B A C C2 p8 > F"
PLAY "D C < B A > C C1 P8 << B-8 > F8 B-2 > C << B-8 > F8 B-2 B- > D D2"
PLAY "P4 < B > E2 E1 P8 E1"
INPUT "Hit Enter?", m$
GOTO begining

red:
PLAY "T180"
PLAY "ms"
PLAY "L4"
PLAY "O3"
PLAY "g p8 a p8 b p8 > p8 c"
INPUT "Hit Enter?", m$
GOTO begining

range:
CLS
PRINT "goes from 37hz to 20000hz"
SOUND 37, 30
SOUND 50, 30
SOUND 100, 30
SOUND 200, 30
SOUND 300, 30
SOUND 400, 30
SOUND 500, 30
SOUND 1000, 30
SOUND 2000, 30
SOUND 3000, 30
SOUND 4000, 30
SOUND 5000, 30
SOUND 6000, 30
SOUND 7000, 30
SOUND 8000, 30
SOUND 9000, 30
SOUND 10000, 30
SOUND 12500, 30
SOUND 15000, 30
SOUND 17500, 30
SOUND 20000, 30
INPUT "Press Enter?", z$
GOTO begining
CLS


another:
COLOR 18, 4
PRINT "Next time, just don't come here, "; name$; " unless you want to "
PRINT "listen to a song."
INPUT z$
SCREEN 1
DIM Box%(1 TO 200)
x1% = 0: x2% = 10: y1% = 0: y2% = 10
LINE (x1%, y1%)-(x2%, y2%), 2, BF
GET (x1%, y1%)-(x2%, y2%), Box%
DO
PUT (x1%, y1%), Box%, XOR
x1% = RND * 300
y1% = RND * 180
PUT (x1%, y1%), Box%
LOOP WHILE INKEY$ = ""
LINE (95, 110)-(95, 60)
LINE (95, 60)-(170, 60)
LINE (170, 60)-(170, 110)
LINE (170, 110)-(95, 110)
LINE (95, 60)-(135, 30)
LINE (135, 30)-(170, 60)
CIRCLE (45, 30), 15