'===========================================================================
' Subject: COLLECTION OF PLAY STATEMENTS      Date: 07-04-97 (09:26)       
'  Author: Tom Watson                         Code: QB, QBasic, PDS        
'  Origin: awatson@wctc.net                 Packet: SOUND.ABC
'===========================================================================
'
' This is a library of PLAY statements to be copied for use in Basic
' programs.  After playing a song, the progam will tell you what
' line number contains the song.  Find the line number yourself or use
' the search tool, then copy the whole line and paste it into your
' program.
'
' Note:  If you are selecting a song whose number is one digit, you
' must put a zero in front of it.
'

DEFINT A-Z
SCREEN 12
COLOR 15: CLS
DO
GOSUB circles
GOSUB title
LOOP
END


circles:
RANDOMIZE TIMER
CLS
l = INT(RND * 6 + 1)
p = INT(RND(1) * 2 + 1)
FOR i = 1 TO 400
IF i MOD 2 = 0 THEN
CIRCLE (320, 240), i, l
ELSE
IF i MOD 9 = 0 THEN
k# = TIMER
DO: LOOP UNTIL TIMER - k# >= .000000000000001#
END IF
IF p = 1 THEN CIRCLE (320, 240), i, l ELSE CIRCLE (320, 240), i, l + 8
END IF
NEXT i

FOR i = 1 TO 400
CIRCLE (320, 240), i, 0
NEXT i

RETURN


title:
COLOR 10
LOCATE 5, 33
PRINT "MUSIC LIBRARY"

PLAY "MNT225O2l4El8CCl4DCP4EF"

LOCATE 8, 30
PRINT "SELECT A CATEGORY:"
PRINT
PRINT "    1-) . . . . . . . . . . . . .  JAZZ"
PRINT
PRINT "    2-) . . . . . . . . . . . . CLASSICAL"
PRINT
PRINT "    3-) . . . . . . . . . . . . . SPOOKY"
PRINT
PRINT "    4-) . . . . . . . . . . .  MISCELLANEOUS"
PRINT
PRINT "    5-) . . . . . . . . . . . .  POPULAR"
PRINT
PRINT "    6-) . . . . . . . . . . . . . QUIT"
PRINT
PRINT
PRINT "                        PLEASE MAKE YOUR SELECTION."

DO: k = VAL(INPUT$(1)): LOOP WHILE k > 6 OR k < 1

SELECT CASE k
CASE 1
GOSUB jazz
CASE 2
GOSUB classical
CASE 3
GOSUB spooky
CASE 4
GOSUB miscellaneous
CASE 5
GOSUB popular
CASE 6
END
END SELECT

RETURN


jazz:
GOSUB circles
COLOR 10
PRINT
PRINT "     HERE IS A LIST OF ALL THE JAZZ SONGS:"
PRINT
PRINT "  01) MAPLE LEAF RAG"
PRINT "  02) JELLY BEAN RAG"
PRINT "  03) WHEN THE SAINTS GO MARCHING IN"
PRINT "  04) TAKE THE `A' TRAIN"
PRINT "  05) RHAPSODY IN BLUE"
PRINT "  06) THE ENTERTAINER"
PRINT "  07) BOOGIE WOOGIE"
PRINT "  08) LINUS AND LUCY"
PRINT "  09) MEXICAN HAT DANCE"
PRINT "  10) BILL BAILEY"
PRINT "  11) WHERE IN THE WORLD IS CARMEN SANDIEGO?"

DO: j = VAL(INPUT$(2)): LOOP WHILE j < 1 OR j > 11
SELECT CASE j
CASE 1
LOCATE 4: PRINT CHR$(16)
GOSUB mpleleaf
CASE 2
LOCATE 5: PRINT CHR$(16)
GOSUB jllybean
CASE 3
LOCATE 6: PRINT CHR$(16)
GOSUB saints
CASE 4
LOCATE 7: PRINT CHR$(16)
GOSUB train
CASE 5
LOCATE 8: PRINT CHR$(16)
GOSUB rhapsody
CASE 6
LOCATE 9: PRINT CHR$(16)
GOSUB entertainer
CASE 7
LOCATE 10: PRINT CHR$(16)
GOSUB bog
CASE 8
LOCATE 11: PRINT CHR$(16)
GOSUB linus
CASE 9
LOCATE 12: PRINT CHR$(16)
GOSUB mexican
CASE 10
LOCATE 13: PRINT CHR$(16)
GOSUB bill
CASE 11
LOCATE 14: PRINT CHR$(16)
GOSUB carmen
END SELECT
CLS
PRINT
PRINT "     THIS SONG IS AT LINE "; l; " IN THIS PROGRAM.": l = 0
SLEEP
RETURN


classical:
GOSUB circles
COLOR 10
PRINT
PRINT "     HERE IS A LIST OF ALL THE CLASSICAL SONGS:"
PRINT
PRINT "  01) BACH MINUET"
PRINT "  02) LULLABY"
PRINT "  03) WEDDING MARCH"
PRINT "  04) MASTERPIECE THEATER"
PRINT "  05) FšR ELISE"
PRINT "  06) HABANERA"
PRINT "  07) MENUET IN G"
PRINT "  08) MALAGUE„A"
PRINT "  09) ROMEO AND JULIET"
PRINT "  10) THE TOREADOR SONG"
PRINT "  11) THE GIFT TO BE SIMPLE"
PRINT "  12) AURA LEE"
PRINT "  13) FRER JACQUES"

DO: j = VAL(INPUT$(2)): LOOP WHILE j < 1 OR j > 15
SELECT CASE j
CASE 1
LOCATE 4: PRINT CHR$(16)
GOSUB bachminuet
CASE 2
LOCATE 5: PRINT CHR$(16)
GOSUB lullaby
CASE 3
LOCATE 6: PRINT CHR$(16)
GOSUB wedding
CASE 4
LOCATE 7: PRINT CHR$(16)
GOSUB masterpiece
CASE 5
LOCATE 8: PRINT CHR$(16)
GOSUB elise
CASE 6
LOCATE 9: PRINT CHR$(16)
GOSUB habanera
CASE 7
LOCATE 10: PRINT CHR$(16)
GOSUB menuet
CASE 8
LOCATE 11: PRINT CHR$(16)
GOSUB mal
CASE 9
LOCATE 12: PRINT CHR$(16)
GOSUB romjul
CASE 10
LOCATE 13: PRINT CHR$(16)
GOSUB toreodor
CASE 11
LOCATE 14: PRINT CHR$(16)
GOSUB simple
CASE 12
LOCATE 15: PRINT CHR$(16)
GOSUB aura
CASE 13
LOCATE 16: PRINT CHR$(16)
GOSUB jacques
END SELECT
CLS
PRINT
PRINT "     THIS SONG IS AT LINE "; l; " IN THIS PROGRAM.": l = 0
SLEEP
RETURN


spooky:
GOSUB circles
COLOR 10
PRINT
PRINT "     HERE IS A LIST OF ALL THE SPOOKY SONGS:"
PRINT
PRINT "  01) IN THE HALL OF THE MOUNTAIN KING"
PRINT "  02) IRISH BALLAD"
PRINT "  03) HOUSE OF THE RISING SUN"
PRINT "  04) THE SORCERER'S APPRENTICE"
PRINT "  05) OH, NO!"
PRINT "  06) GHOST-GOOSE"
PRINT "  07) THE ADDAMS FAMILY THEME"
PRINT "  08) ALFRED HITCHCOCK"
PRINT "  09) GREENSLEEVES"
PRINT "  10) FUNERAL MARCH"

DO: j = VAL(INPUT$(2)): LOOP WHILE j < 1 OR j > 10
SELECT CASE j
CASE 1
LOCATE 4: PRINT CHR$(16)
GOSUB mountain
CASE 2
LOCATE 5: PRINT CHR$(16)
GOSUB irish
CASE 3
LOCATE 6: PRINT CHR$(16)
GOSUB rising
CASE 4
LOCATE 7: PRINT CHR$(16)
GOSUB apprentice
CASE 5
LOCATE 8: PRINT CHR$(16)
GOSUB ohno
CASE 6
LOCATE 9: PRINT CHR$(16)
GOSUB spoo
CASE 7
LOCATE 10: PRINT CHR$(16)
GOSUB addams
CASE 8
LOCATE 11: PRINT CHR$(16)
GOSUB hitch
CASE 9
LOCATE 12: PRINT CHR$(16)
GOSUB greensleeves
CASE 10
LOCATE 13: PRINT CHR$(16)
GOSUB marchf
END SELECT
CLS
PRINT
PRINT "     THIS SONG IS AT LINE "; l; " IN THIS PROGRAM.": l = 0
SLEEP
RETURN


miscellaneous:
GOSUB circles
COLOR 10
PRINT
PRINT "     HERE IS A LIST OF ALL THE MISCELLANEOUS SONGS:"
PRINT
PRINT "  01) THE JEOPARDY THEME"
PRINT "  02) THE SYNCOPATED CLOCK"
PRINT "  03) TAKE ME OUT TO THE BALL GAME"
PRINT "  04) YANKEE DOODLE"
PRINT "  05) THE HAPPY BIRTHDAY SONG"
PRINT "  06) SHAVE AND A HAIRCUT"
PRINT "  07) R2-D2"
PRINT "  08) THE VICTORS"
PRINT "  09) AULD LANG SYNE"
PRINT "  10) CLOCKER'S THEME"
PRINT "  11) NINTY-NINE BOTTLES OF BEER"
PRINT "  12) JINGLE BELLS"
PRINT "  13) COCKLES AND MUSSELS"
PRINT "  14) LITTLE BROWN JUG"
PRINT "  15) FOUND A PEANUT"
PRINT "  16) FANFARE #1"
PRINT "  17) FANFARE #2"
PRINT "  18) TAPS"

DO: j = VAL(INPUT$(2)): LOOP WHILE j < 1 OR j > 18
SELECT CASE j
CASE 1
LOCATE 4: PRINT CHR$(16)
GOSUB jeopardy
CASE 2
LOCATE 5: PRINT CHR$(16)
GOSUB syncopated
CASE 3
LOCATE 6: PRINT CHR$(16)
GOSUB ballgame
CASE 4
LOCATE 7: PRINT CHR$(16)
GOSUB yankee
CASE 5
LOCATE 8: PRINT CHR$(16)
GOSUB happy
CASE 6
LOCATE 9: PRINT CHR$(16)
GOSUB shave
CASE 7
LOCATE 10: PRINT CHR$(16)
GOSUB artoo
CASE 8
LOCATE 11: PRINT CHR$(16)
GOSUB victors
CASE 9
LOCATE 12: PRINT CHR$(16)
GOSUB auld
CASE 10
LOCATE 13: PRINT CHR$(16)
GOSUB here
CASE 11
LOCATE 14: PRINT CHR$(16)
GOSUB beer
CASE 12
LOCATE 15: PRINT CHR$(16)
GOSUB jingle
CASE 13
LOCATE 16: PRINT CHR$(16)
GOSUB cockle
CASE 14
LOCATE 17: PRINT CHR$(16)
GOSUB jug
CASE 15
LOCATE 18: PRINT CHR$(16)
GOSUB peanut
CASE 16
LOCATE 19: PRINT CHR$(16)
GOSUB fan1
CASE 17
LOCATE 20: PRINT CHR$(16)
GOSUB fan2
CASE 18
LOCATE 21: PRINT CHR$(16)
GOSUB taps
END SELECT
CLS
PRINT
PRINT "     THIS SONG IS AT LINE "; l; " IN THIS PROGRAM.": l = 0
SLEEP
RETURN


popular:
GOSUB circles
COLOR 10
PRINT
PRINT "     HERE IS A LIST OF ALL THE POPULAR SONGS:"
PRINT
PRINT "  01) THE MACARENA"
PRINT "  02) MISSION: IMPOSSIBLE THEME"
PRINT "  03) BATMAN THEME"
PRINT "  04) HEART AND SOUL"
PRINT "  05) WITH A LITTLE HELP FROM MY FRIENDS"
PRINT "  06) LOCH LOMOND"
PRINT "  07) YESTERDAY"
PRINT "  08) STARS AND STRIPES FOREVER"

DO: j = VAL(INPUT$(2)): LOOP WHILE j < 1 OR j > 8
SELECT CASE j
CASE 1
LOCATE 4: PRINT CHR$(16)
GOSUB macarena
CASE 2
LOCATE 5: PRINT CHR$(16)
GOSUB mission
CASE 3
LOCATE 6: PRINT CHR$(16)
GOSUB batman
CASE 4
LOCATE 7: PRINT CHR$(16)
GOSUB heart
CASE 5
LOCATE 8: PRINT CHR$(16)
GOSUB helpfriend
CASE 6
LOCATE 9: PRINT CHR$(16)
GOSUB lomond
CASE 7
LOCATE 10: PRINT CHR$(16)
GOSUB yesterday
CASE 8
LOCATE 11: PRINT CHR$(16)
GOSUB stars
END SELECT
CLS
PRINT
PRINT "     THIS SONG IS AT LINE "; l; " IN THIS PROGRAM.": l = 0
SLEEP
RETURN

mpleleaf:
10 PLAY  _
"t190o1mnl8dg>g>d<gb>l4d<l8f+>d<f+a>mldl8dmn<<dp8g>l8g>d<gb>l4dl8<f+>d<f+a>mldl4dmnl8 d<<e->gb->e-<<d>>d<<d>>d<<e->gb->e-<<d>>dp4o0l8 gb->dg gb->dg gb->dg gb->dg gp8gp8gp8gl4gl8de<b>dep8 < l4gl8ab-gal4bl8gbgap8gp4 <gp8gp8gp8gl4gl8de<b>dep8 < l4gl8ab-gal4bl8gbgap8g" _

l = 10
RETURN

jllybean:
20 PLAY  _
"t180mbo2l8mnel4d<bl8>d<bgal4gel8gee-dd+eff+fee-l4msdp4>dp4 l8mnel4d<b>l8d<bg>e-<g>l4mse-dp4mnl8el4d<b>l8d<bg<e->gab-l4msag l8mndd+eff+gg+aa+b>cc+l4mnd<d> l8mnel4d<b>l8d<bg>e-<g>l4mse-dp4mnl8el4d<b>l8d<bg<e->gab-l4msag l8mndd+eff+fee-l4msd<d<l2mng"
l = 20
RETURN

macarena:
30 PLAY "MNT180L4O2CL8CCL4CL8CCCCCCCE<GGL4>CL8CCL4CL8CCCCCCL4<A G>CL8CCL4CL8CCCCCCL4EGL2GL8EP8GEP4L2C"
l = 30
RETURN

jeopardy:
40 PLAY "T150l4O3CFC<F>CFL2CL4CFCF MLAL8A MN GFEDD-L4CFC<F>CFL2CL4 MLL4FL8F MNDL4C<B-AGL2F  T150l4O3CFC<F>CFL2CL4CFCF MLAL8A MN GFEDD-L4CFC<F>CFL2CL4 MLL4FL8F MNDL4C<B-AP4GP4MSF P4 MLL2CMSL4F"
l = 40
RETURN

mission:
50 PLAY "T190O0L4MSGGB->C<GGFF+GGB->C<GGFF+O2 MN L8B-G MLL2DL4D L8B-G L2D-L4D- MNML L8B-G L2CL4C MN ML <B->C P2 MN T190O0L4GGB->C<GGFF+GGB->C<GGFF+O2 L8B-G MLL2DL4D L8B-G L2D-L4D- MNML L8B-G L2CL4C MN ML <B->C< P2 MS L4GGB->C<GGFF+GGB->C<GGFF+ MSG"
l = 50
RETURN

syncopated:
60 PLAY "t160l4o2msa<a>a<a>a<a>a<a>def+del8mlf+gl4gms<a>c+dec+l8dc+del4f+<a>def+demll8f+gl4gms<a>ef+agl8p8l4f+l8el4d"
l = 60
RETURN

ballgame:
70 PLAY "mnt200l4o1cp4>c<agemll2gl4gmnmll2dl4dmnl4cp4>c<agemll2gggmnl4ag+aefgl2al4fmll2dl4dmnl2al4aab>cd<bagedcp4>c<agemll2gl4gmnl2dl4dl2cl4defgmll2aamnl4ab>cp4p4cp4p4c<bagf+gmll2al4al2bl4b>l2cc"
l = 70
RETURN

mountain:
80 PLAY "mnt120o1l8msab>cdecl4el8d+<b>l4d+l8d<b->l4d<l8ab>cdeceagecel4gp4l8ab>cdecl4el8d+<b>l4d+l8d<b->l4dl8<ab>cdeceag+eg+bl4a"
l = 80
RETURN

bachminuet:
90 PLAY "t120o2mnl4gl8cdefl4gccal8fgab>l4c<cc fl8gfedl4el8fedcl4<b>l8cdecl4dgggl8cdefl4gccal8fgab>l4c<ccfl8gfedl4el8fedcl4dl8edcdmll4cl2c"
l = 90
RETURN

yankee:
100 PLAY "MNT255L4O2GGABGBADGGABL2GF+L4GGAB>C<BAGF+DEF+L2GL4G P4L4EF+EDEF+L2GL4DEDC<L2B>L2DL4EF+EDEF+GEDGF+AL2GL4G"
l = 100
RETURN

lullaby:
110 PLAY "t100mno2l8eel2gl8eel2gl8eg>l4c<baagl8del4fdl8del2fl8dfbal4gb>l2c<l8cc>l2c<l8afl2gl8ecl4fgal8emlgl4gmnl8cc>l2c<l8afl2gl8ecl4fedl2c"
l = 110
RETURN

wedding:
120 PLAY "t100o2mnl4g> l8cp16l16c  l2c<l4g> l8d<p16l16b> l2c <l4g> l8cp16l16f l4fl8ep16l16d l4c<l8bp16l16>cl2d<l4g>l8cp16l16cl2c<l4g>l8dp16l16<b>l2c<l4g>l8cp16l16e l4gl8ep16l16c<l4a> l8dp16l16el2c"
l = 120
RETURN

irish:
130 PLAY "MNT150L8O2AL4>DL8DDEFL4EL8DL4DL8<A>DEFGAA+L2AP8L8AL4>D L8DDC<A+L4AL8AL4AL8FL4AL8AGFEL4FL8DL4DL8EL4FL8FGAA+L4A L8AL4>DP8L8<DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D"
l = 130
RETURN

happy:
140 PLAY "MNT150L8O2CCL4DCFL2EL8CCL4DCGL2FL8CCL4>C<AFEL2DL8A+A+L4AFGL2F"
l = 140
RETURN

shave:
150 PLAY "MNT225O2l4El8CCl4DCP4EF"
l = 150
RETURN

rising:
160 PLAY "T100L4O1MNA>L2DL8EDL2FL8GG+L2AL8FEL2DL4A>L2D<L4A>L2C<L8AGL1AP4P8L8A>L2D<L4DL2FL4GL8AAL4AL8FEL2DL4DL2AL4AL8A<L4AP8>L8FEL1D"
l = 160
RETURN

batman:
170 PLAY "t180l8mso0ddd-d-ccd-d-ddd-d-ccd-d-ddd-d-ccd-d-ddd-d-ccd-d- <l4gl1g<l8d-d-ccd-d->l4gl1g<l8d-d-ccd-d->>l4cl1c<<l8g-g-ffg-g->>l4gl1g<l8d-d-ccd-d->>l4dl2d<<l8a-a->>l4cl2c<<l8g-g->l4gl1g"
l = 180
RETURN

heart:
180 PLAY "t150mno2l4ffl2fp8l8fedefl4gaal2ap8l8agfgal4b-l2>c<f>p8l8dc<b-l4agl2fp8l8gab->l4c<l8b-al2gl4 l4ffl2fp8l8fedefl4gaal2ap8l8agfgal4b-l2>c<f>p8l8dc<b-l4agl1a p8l8b-agl4fel1f"
l = 190
RETURN

saints:
190 PLAY "t255mno1l4cefl1g p4l4cefl1g p4l4cef l2g ecel1dp4l4eed mll2cl4cmncl2el4gggl1fp4l4efl2gecdl1c"
l = 190
RETURN

helpfriend:
200 PLAY  _
"t130mno2l4el8fgl4gl8fel4dl8efl4fl8ffl4el8ddl4dl8cdl2ep2 l4el8fgl4gl8fel4dl8efl4fl8ffl4el8ddl4dl8cdl2el8gcl4el8dl16ccl8ccccl4cl2cl8gcl4el8dl16ccl8ccccl4cl2cl8gcdedl16ccl8ccccl4cl2c l4ga>l2cl4cc<l4bl2al4deel8del4dl2cl4ga>l2cl4cc<bl2al4deel8del4dl1c l4el8fgl4gl8fel4dl8efl4fl8ffl4el8ddl4dl8cdl2ep2 l4el8fgl4gl8fel4dl8efl4fl8ffl4el8ddl4dl8cdl2el8gcl4el8dl16ccl8ccccl4cl2cl8gcl4el8dl16ccl8ccccl4cl2cl8gcdedl16ccl8ccccl4cl2c" _

l = 200
RETURN

artoo:
210 PLAY "T250MNL10O3 CEG P20 C+FG+ DF+A P20 D+GA+ EG+B D+GA+ DF+A C+FG+ CEG"
l = 210
RETURN

masterpiece:
220 PLAY "t150mso2 l8bal4gdgal8b>c<bagab>cl4dl8ddl4dedp8l8c<l4bl8b>cl4dgdd<bl8ab>cd<b>c<l4adal8dd>l2dp4 <l8bal4gdgal8b>c<bagab>cl4dl8ddl4dedp8l8c<l4bl8b>cl4dgdd<bl8ab>cd<b>c<a>dc<bl16abl4al8gl1g"
l = 220
RETURN

train:
230 PLAY "t190o2mnl1dl8<g>l4bp8dgl8bl4 d+p8<fe-d-f>l1el8eff+bdd-cagl4 <bp8p4<deff+>l1dl8<g>l4bp8dgl8al2d+p8l4<fe-d-f>l1el8eff+bdc+cag<l2b"
l = 230
RETURN

elise:
240 PLAY "t160mno4l8 ed+ed+e<b>dc<a<ea>ceab<eg+>eg+b>c<<ea>e>ed+ed+e<b>dc<a<ea>ceab<eg+>e>c<b l2a o4l8 ed+ed+e<b>dc<a<ea>ceab<eg+>eg+b>c<<ea>e>ed+ed+e<b>dc<a<ea>ceab<eg+>e>c<b l4a"
l = 240
RETURN

lomond:
250 PLAY "T120MNO3L8CDL4FL8FGL4AL8GFL4GL8GFL4DL8CDL4FFFL8A>CL2DL4CCDL8DCL4<AL8A>C<B-AGFL4DL8CDFFA>CL4DL8C<AL2GL4F"
l = 250
RETURN

victors:
260 PLAY "MNT200L2O3AL4FGAFGAL2A+L4GAA+GAA+L2>CL4D.L8<AL4AA+FGL2AL4GFL1>CL2<AL4FGAFGAL2A+L4GAA+GAA+L2>CL4D.L8<AL4AA+FGA>C<A.L8GL1F"
l = 260
RETURN

yesterday:
270 PLAY  _
"t120mno2l8gfl2fp4p4l8ab>c+def mlel16emndl2d p4p4l8ddc<b-agl4b-l8a mlal4amngfl8a mlgl4gmnd fl8al2ap4 mno2l8gfl2fp4p4l8ab>c+def mlel16emndl2d p4p4l8ddc<b-agl4b-l8a mlal4amngfl8a mlgl4gmnd fl8al2ap4l2aal4>defl8edep8dl4cd<l1al2aa>l4defl8ed l4ep4l8dl4cefc<b-al8gfl2fp4p4l8ab>c+defep16l16dl2dp4p4l8ddc<b-agl4b-l8a mlal4amngfl8a mlgl4gmndfl8al2ap8l4fagdfl8al1a" _

l = 270
RETURN

rhapsody:
280 PLAY  _
"t160o2 l4ab->c<l2cl4defl8ee-l4dee-l2de l8e-dl4ee-dl2ee-l8del4e-del2e-dl4ab->c<l2cl4defl8gg-l4fgg-l2fgl8g-fl4gg-fl2gg- l4>def<l2fl4gab->cde<l2cl4fgap8l8a>l4defg.d.e.l2g<p8l8a->l4d-e-eg-.d-.e-.g-gab->c<l2cl4defl8ee-l4dee-l2del8e-dl4ee-dl2ee-l8del4e-del2e-d <l4ab->c<l2cl4defl8gg-l4fgg-l2fgl8g-fl4gg- fl2gg-l4>def<l2fl4gab->cde<l2e l4>fgaab>c+<l2c+l4e-fgab->c<l2cl4del8c.d.e.l2fl8e-d-e-d-e-d-l2cl4ccf" _

l = 280
RETURN

entertainer:
290 PLAY  _
"t180mno4l8dec<l4al8bl4gl8dec<l4al8bl4gl8dec<l4al8b>c<a-l4gp4>>l4g<l8dd+e>l4c<l8e>l4c<l8e>l2cp4>l8cdd+ecdl4el8<b>l4dl2cp4<<l8dd+e>l4c<l8e>l4c<l8e>l1c <l8agf+a>cl4el8dc<a>l2dp4<l8dd+e>l4c<l8e>l4c<l8e>l2c >p4p8l8cdd+ecdl4el8<b>l4dl2c p4l8cdecdl4el8cdcecdl4el8cdcecdl4el8<b>l4dc" _

l = 290
RETURN

auld:
300 PLAY "t150o2l4dmlgl8gmngl4g bmlal8amngl4abmll4gl8gmngl4b>dl2ep4l4emldl8dmn<bl4bgmlal8amngl4abmlgl8gmnel4edl2gp4l4> emldl8dmn<bl4bgmlal8amngl4ab>mldl8dmn<bl4b>dl2ep4l4gmldl8dmn<bl4bgmlal8amngl4abmlgl8gmnel4edl2g"
l = 300
RETURN

apprentice:
310 PLAY "t250mno0l4ap4>>e<<a>>p4e<<ap2a>>p4e<<a>>p4e<<ap2>>ef+g+a>p4c<ap4>c<bag+ap4>c<ap4>c<bag+a>p4c<a>c<bab>c<b>dc<b>p4d+<ap4>c<b>dc<b>p4d+<ap4>c<b>cdeeeeeefgg+a"
l = 310
RETURN

ohno:
320 PLAY "t120mnmfo1l8cde-fgfe-fe-fe-dl2cp8l8cccde-de-de-de-dl16e-dl2c"
l = 320
RETURN

here:
330 PLAY "t210mbo2l4msbmnl8bgl4mla-msgmnl8bga-l4al8a-msgp8l4bmnl8bgmnl4a-l8gmsbp4msdddddd mbo2l4msbmnl8bgl4mla-msgmnl8bga-l4al8a-msgp8l4bmnl8bgmnl4a-l8gmsbp4l4>dg"
l = 330
RETURN

spoo:
340 PLAY "t120mll8o1defgl4msap8l8mlagfel4msdmll8defgl4msap8fp8mll2d"
l = 340
RETURN

bog:
350 PLAY "t120mfmso1l16ccecgcacb-cacgce>c<ccecgcacb-cacgce>c<ffaf>c<f>d<f>e-<f>d<f>c<d>a<f> mfmso1l16ccecgcacb-cacgce>c mfmso1l16ggbg>d<g>e<g>f<g>e<g>d<g>b>g<<ffaf>c<f>d<f>e-<f>d<f>c<d>a>f< mfmso1l16ccecgcacb-cacgceg>c<gc>gl8c"
l = 350
RETURN

addams:
360 PLAY "MNT200L8O3CDEFP4P4P8P4P8DEF+GP4P4P8P4P8DEF+GP4DEF+GP4CDEFP4P4P8P4P8P4CF.AF.D<A+.>GP4FE.GE.C<A.>FP4CF.AF.D  <A+.>GP4FL64EFL8E.CD.EFP4CDEFP4P4P8P4P8DEF + GP4P4P8P4P8DEF + GP4DEF+GP4CDEFP4P4P8P4P8"
l = 360
RETURN

linus:
370 PLAY "t150o2mnl8 cdl4el8edl4cl2dcl8cdl4el2el4c<b-ag>l8cdl4el8edl4cl2dc mll4cmnl8cdl2d<l4b-agf> mlcmnl8cdl2dl4c<b-ag> mll4dmnl8dcl2d<l4b-agf> mll4dmnl8d<b>l2dl4c<b-ag> mll4fmnl8fdl2f<l4b-agf>l1a"
l = 370
RETURN

beer:
380 PLAY "T250MNL4O2GGGDDDGGGL2GL4AAAEEEL1AL4F+F+F+L2F+L4F+F+F+F+L2F+L4F+DDDEEF+GGGL2G"
l = 380
RETURN

hitch:
390 PLAY "MNT150L4O2D+L8D+D+DCL4DL8D+L4FL8<GL4>D+L8D+D+DCL4DL8D+L4FL8<G>D+P8GL4A+L8G+GP8A+L4>DL8C<A+P8>DL4FL8D+DD+DC<A+AG"
l = 390
RETURN

greensleeves:
400 PLAY "t150o2mn l4el2gl4a mlbl8bmn>c<l4bl2al4f+ mldl8dmnel4f+l2gl4e mlel8emnd+l4el2f+l4d+<l2b o2mn l4el2gl4a mlbl8bmn>c<l4bl2al4f+ mldl8dmnel4f+l4mlgl8gmnf+l4e mld+l8d+mnc+l4d+l2el4el2e"
l = 400
RETURN

marchf:
410 PLAY "MNT100L4O1AL8A.L16AL4AL8>C.L16<BL8B.L16AL8A.L16AL2AL4>CL8C.L16CL4CL8E.L16DL8D.L16CL8C.L16CL2C"
l = 410
RETURN

habanera:
420 PLAY  _
"MNT150L8O4D.C+.L4C.L16C.L8<B.A+.L4A.L16A.L8G+.G.L16FGFE.F.L8G.F.L32DL4E.L8>D.C+.L4C.L16C.L8<B.A+.L4A.L16A.L8G.F.L16EFED.E.L8F.E.L4D.L8>D.C+.L4C.L16C.L8<B.A+.L4A.L16A.L8G+.G.L16FGFE.F.L8G.F.L32DL4E.L8>D.C+.L4C.L16C.L8<B.A+.L4A.L16A.L8G.F.L16EFED.E.L8F.E.L4D.L16A.L8D.E.L4F+.L16A.L8F+.E.L4D.L16E.L8F+.G.L32F+L16A.L32F+L16A.L32F+L16A.L32F+L16A.L32GL8B.L32F+L8A.L32EL4G.L16B.L8E.F+.L32EL4G.L16B.L8G.F+.L4E.L16F+.L8G.A.L32GL16B.L32GL16B.L32GL16B.L32GL16B.L32AL8>C+.L32<GL8B.L32F+L4A.L16A.L8>D.E.L32DL4F+.L16<A.L8F+.E.L4D.L16E.L8F+.G.L32F+L16A.L32F+L16A.L32F+L16A.L32F+L16A.L32BL2>D.L16C+DC+L32<EL4G.L16B.L8>E.F+.L32EL4G.L16<B.L8G.F+.L4E.L16F+.L8G.A.L16>C+.<B.G+.A.L1>F+L16EF+EL8D.P8L16A.L8>D." _

l = 420
RETURN

menuet:
440 PLAY  _
"MST200L4O3DGP8GP8GP8GL8DGBGL4AP8AP8AP8AL8DA>C<AL4B>DP8DP8L8DGF+EL4DP8DC<BP8BADGP8GP8GP8GL8DGBGL4AP8AP8AP8AL8DA>C<AL4B>DP8DP8L8DGF+EL4DP8DC<BP8BADP8>DP8DP8DP8DL8<EG+B>DL4CP8CP8CP8CL8<DF+A>CL4<B>DP8DP8L8DGF+EL4DL16E.D.C.L4<BAL2GL4DP8>DP8DP8DP8DL8<EG+B>DL4CP8CP8CP8CL8<DF+A>CL4<B>DP8DP8L8DGF+EL4DL16E.D.C.L4<BAL2G" _

l = 440
RETURN

mal:
450 PLAY "MNT220L8O2G+AL4BL8G+AL4BAG+L8FF+L4G+L8FF+L4G+AG+L8G+AL4BL8G+AL4BAG+L8FF+L4G+L8FF+L4G+AG+L8G+AL4>C+L8<G+AL4>C+<BAL8F+G+L4AL8ABL4>C+D<BL8>FF+L4G+L8FF+L4G+AG+L8FF+L4G+L8FF+L4G+F+FL8G+AL4>C+L8<G+AL4>C+<BAL8F+G+L4AL8ABL4>C+DL2C+"
l = 450
RETURN

romjul:
460 PLAY "MNT200L2O4GL4G<B>CD<AGL2>CCL4<ABL2G+>EL4E<GAA+EFL2G+G+GL4DD+D+EL2A.L4EFA+A+AL2A.L4EFG+G+AL2B.L4F+G>CC<BL2B.L4F+GA+A+BL2>E.L4<B>CDD+EL2A.L4EFGG+AL2B.L4AL2G+GL4G<B>CD<AGL2>CCL4<ABL2G+>EL4E<GAA+EFL2G+G+G>DCP4L4<G>CEL1CCP1"
l = 460
RETURN

toreodor:
470 PLAY "MNT150L4O3CL8D.L16CL8<AL16AP16L4AL8A.L16GL8A.L16A+L4AL8AP8L4A+L8G.L16>CL4<A.P8FL8D.L16GL4C.P8L2GL8G>DC<A+AGAA+L4A.P8EAAL8G+BL1>EL8EL16DEDL8C+D<GAA+P8L16AA+AL8F>DL4C.P8P8L16<FGFL8CA+L4AGF."
l = 470
RETURN

stars:
480 PLAY "MNT150L4O3CCL8<A+AL4AL8G+AL2A.L8G+AL4AL8G+AL4>CL8<A.L16>CL2<A+L4G.L8GL4GL8F+GL4GL8F+GL2A+.L8AGAL4>C.DDL2<G.L4>CCL8<A+AL4AL8G+AL2A.L8G+AL4AL8G+AA+AG.L16EL2GL4F.L8FL4FL8EFL4G+L8GFL2>FP8L8<FGA>C<FGA>C<CDAL2GL8FP8>FP8"
l = 480
RETURN

simple:
490 PLAY "t110o1mnl4g>cl8cdecefl4gl8gfl4el8dcl4dddcl8ded<bl4gg>cl8cdecefl4gl8gfl4el8dcl4ddedccc"
l = 490
RETURN

aura:
500 PLAY "t140mlo1l4cfefgdl2gl4fedel2fmncl4cmlfefgdl2gl4fedel1f"
l = 500
RETURN

jacques:
510 PLAY "t150o2mnl4 fgaffgafab-l2>c<l4ab->l2cl8cdc<b-l4af>l8cdc<b-l4afl4fcl2fl4fcl2f"
l = 510
RETURN

jingle:
520 PLAY "t200l4o2mn eel2el4eel2el4eg l3cl8dl1e l4ffl3fl8fl4fel2el8eel4eddel2dgl4eel2el4eel2el4egl3cl8dl1el4ffl3fl8fl4fel2el8efl4ggfdl2c"
l = 520
RETURN

cockle:
530 PLAY "t170o1mnl4g>l3cl8cl4ccecl3dl8dl4ddfdl3el8fl4ggfeeddl2dl4<g>l3cl8cl4ccecl3dl8dl4ddfl8edl4gecgecl3dl8cl4dl2c"
l = 530
RETURN

jug:
540 PLAY "t210o3mnl8c<l4a>cl3cl8c<l4b->dl3dl8dl4mseedefgmnl2a<l4a>cl3cl8c<l4b->dl3dl8dl4mseedegffp4"
l = 540
RETURN

mexican:
550 PLAY "t230o2mnl4ffa>c<afep4>msdcmnp4p4<eegb-gef>p4msdcmnp4p4<ffa>c<afe>p4msdcmnp4p4<eegb-gefp4cf"
l = 550
RETURN

bill:
560 PLAY "t250o2mnl4cl2dl4fag+a>c<cl2dl4fl1al4cl2dl4fl2a>cc<l1ep2l4cl2el4gb-ab->c<cl2el4gl1b-l4cl2el4g>l2cdd<l1ap2l4cl2dl4fag+a>c<cl2dl4fl1al4fl2al4al2>ce-mll1dmndl4d<l2b-l4b-l2ag>l4cl2cl4d<ap4l2al4agf+gl2b-al1f"
l = 560
RETURN

peanut:
570 PLAY "t150o2mnl8ggl4gdl8bbl4bgl8gb>l3dl8dc<bl2al8ab>l4cc<l8bal4bgl8gbl4adl8f+al2g"
l = 570
RETURN

carmen:
580 PLAY  _
"t220o3mn l2cl8cp2l6dl16dl4dd<l2b-l8b-p2>l6cl16cl4cdl2cl8cp2l6dl16dl4dd<l2b-l8b-p4l8>cp8l4>>c<<<ct255c>l3cl8cl4ccl2dl4dd<l3b-l8b-l3b-l8b->l3dl8cl4ccl3cl8cl4ccl2dl4ddc<b>c<b>cp2l3cl8cl4ccl2dl4dd<l3b-l8b-l3b-l8b-l4>dccccp4ccdp4dp4<<<l3b-l8b-l3b-l8b->l4cc" _

l = 580
RETURN

fan1:
590 PLAY "t255mno2l4dl8ddl4dl8ddl2g"
l = 590
RETURN

fan2:
600 PLAY "t255mno2l4g+l8g+g+l4bl8g+g+l4bg+bg+l2e"
l = 600
RETURN

taps:
610 PLAY "t90mno2l4dl8dl1g p8l4dl8gl1bp8 l4dl8gl4bp8l4dl8gl4bp8l4dl8gl1bp8 l4gl8bl2>dl4<bl8gl4dp8l4ddl1g"
l = 610
RETURN