DIM songtitl(25)
DIM songdata(25)

songtitl(0) = "Menuet by Johann Sebastian Bach"
songdata(0) = "mbT180L8O3MN O4D4O3MLGABO4C O4D4O3MNG4MLG4 O4MNE4MLCDEF# O4G4O3MNG4MLG4 O4MNC4MLDCO3BA O3MNB4MLO4CO3BAG O3MNA4MLBAGF# G2.MN"

songtitl(1) = "Dixie"
songdata(1) = "mbg10e10c12c12c10d10e10f10g12g12g6e6a12a12a6g6a6g6a10b10>c10d10e3 c10<g10>c3<g10e10g3d10e10 c3 c3g6 >c6e6d6c6<a6>c4p20<a6>d3p20<a6>d3p20< g6>c6e6d6c6<a6b6>c5<a10g6e6>c5<e10e6d4p20e6c4p20e6d3p20 a6g6e6>c3e10d12c4p20<e6c3p20e6d3p20 a6g6e6>e1c10d12c3"

songtitl(2) = "Da Da Dida Dida"
songdata(2) = "mbMN T200 O2  C8 F8 A8 O3 C4 O2A8 O3C4.  O2 C#8 F#8 A#8 O3 C#4 O2A#8 O3C#4.  O2 D8 G8 B8 O3 D4 O2B8 O3D4."

songtitl(3) = "Revilie"
songdata(3) = "MB MN T180  O2 C8.C16 F8 C8 F8 A8 F4 F8.F16 A8 F8 A8 O3C8 O2 A4 F8.A16 O3 C4  O2 A8.F16 C4 C8.C16 F4 F8.F16 F4"

songtitl(4) = "Taps"
songdata(4) = "T120 MN MB  O3L8C.L16C L2F.L8C.L16F  L2A.L8C.L16F L4A L8C L16F L4A L8C L16F L2A.  O3 L8F.L16A ML O4L2C MN O3L4A L4F L2C.  O3L8C.L16C ML L1F MN L4F"

songtitl(5) = "Beethoven's Fifth"
songdata(5) = "mbT180 o2 P2 P8 L8 GGG L2 E-  P24 P8 L8 FFF L2 D"

songtitl(6) = "Football song"
songdata(6) = "MB MN T220 O3  O3 E2 D#4 E4 F8 F4 E8 F2  O3 F8 F4 F8 E4 F4 G8 G4 F#8 G2  O3 A4 O4 C4 O3 B4 A4 G4 E4 C4 D4  O3 E8 G4 F8 E4 D4 C2."

songtitl(7) = "Anchors Away"
songdata(7) = "MB T200O3L4 MLCCMNEGMLAL8AMNL8EL4L2AO4CL4DO3GO4L1C"

songtitl(8) = "America The Beautiful"
songdata(8) = "mbT120 O3  G4 G4. E8 E4 G4 G4. D8 D4 E4 F4 G4 A4 B4 G2.  G4 G4. E8 E4 G4 G4. D8 D4 >D4 C+4 D4 E4 <A4 >D2.  <G4 >E4. E8 D4 C4 C4. <B8 B4 >C4 D4 <B4 A4 G4 >C2.  C4 C4. <A8 A4 >C4 C4. <G8 G4 G4 A4 >C4 <G4 >D4 C2."

songtitl(9) = "Battle Hymn of the Republic"
songdata(9) = "mbT120 O3 L8  F. F. F16 F. E16 D. F16 B-. >C16 D. D16 D. C16 <B-4  B-. A16 G. G16 G. A16 B-. A16 B-. G16 F. G16 F. D16 F4  F. F16 F. F16 F. E16 D. F16 B-. >C16 D. D16 D. C16 <B-4  B-4 >C4 C4 <B-4 A4 B-2 P2  F4. E D. F16 B-. >C16 D2 <B-4 P4 G4. A B-. A16 B-. G16 F2 D4 P4  F4. E D. F16 B-. >C16 D2 <B-4 B-4 >C4 C4 <B-4 A4 B-2"

songtitl(10) = "Star Spangled Banner"
songdata(10) = "mbT120 O2 L4  F8 D8 <B- >D F B-2 >D8 C8 <B- D E F2 F8 F8 >D. C8 <B-  A2 G8 A8 B- B- F D <B- >F8 D8 <B- >D F B-2 >D8 C8  <B- D E F2 F8 F8 >D. C8 <B- A2 G8 A8 B- B- F D <B-  >>D8 D8 D D E- F2. E-8 D8 C C D E-2 E- D2 C8 <B-8  A2 G8 A8 B- D E F2 F B- B- B-8 A8 G G G  >C E-8 D8 C8 <B-8 B- A2 P4  F8 F8 B-. >C8 D8 E-8 F2 <B-8 >C8 D. E-8 C <B-2"

songtitl(11) = "Dixie2"
songdata(11) = "MBT140O3E8C8C8C16D16E16F16G8G8G8E8A8A8A8.G16A8.G16  A16B18O4C16D16E4.C16O3G16O4C4.O3G16E16G4.D16E16C4.  T140O3E8C8C8C16D16E16F16G8G8G8E8A8A8A8.G16A8.G16  A16B18O4C16D16E4.C16O3G16O4C4.O3G16E16G4.D16E16C4.  T140O4C8E8D8C8O3A8O4C4O3A8O4D4.O3A8O4D4.O3G8O4C8  E8D8C8O3A8B8O4C8.O3A16G8E8O4C8O3E8E8D4E8C4.  T140E8D4.F8E8G8O4E8.C16D8C4O3E8C4.E8D4.F8E8G8O4E8.C16D8C4."

songtitl(12) = "The Odd Couple"
songdata(12) = "mbmnt120l16o2ao3d8.aa8.gmla2a4mng8.fg4f8.ef2mld2d2.mnp8.dg8.o4dd8.cmld2 d4mnc8.o3b-o4c4o3b-8.amlb-2g2g1mnp4mla4a8.mnfg8.dmlf2g2mnp4mla4a8.mnfg8.ao4c4c8.o3af4 d4 p4 ml a4 a8.  ml f l12 ga o4 c l16 mn d4 d8. c o3 a8. gf4 ml g1 g2. p8.  mn t120 l16  o2 a o3  d8. aa8. g ml a2 a4 mn g8. fg4 f8. ef2 ml d2 d2. mn  p8. d g8.  o4  dd8. c ml d2 d4 mn c8. o3 b- o4 c4 o3 b-8. a ml b-2 g2 g1  mn p4 ml a4 a8. mn fg8. d ml f2g2  mn p4 ml a4 a8. f l12 ga o4 c l16 mn d4 c4 o3  a8. gf8. d"
songdata(12) = songdata(12)+ "ml f2 f8. mn df8. d ml f2 f8. mn df8. d ml f1 f1  mn d8. aa8. g ml a2 a2 p8 l8 ml dfdf1"

songtitl(13) = "Star Wars"
songdata(13) = "mbt136mno3l8ddgfe-dco2b-ago3d2.l12dddl8g4p4p2p2t236l6o2dddl2mlgo3ddmnl6co2bal2o3mlgddmnl6co2bamll2o3gddmnl6co2bo3cl2mlo2a1a4p4mnt236l6o2dddl2mlgo3ddmnl6co2bal2o3mlgddmnl6co2bamll2o3gddmnl6co2bo3cl2mlo2a1a4p4mnt136mno3l8p4mno2l8d4e4.eo3co2bagl12gabl8a8.e16f+4d8.de4.eo3co2bago3d8.o2a16mla4a4mnd4e4.eO3co2bagl12gaba8.e16f+4o3d8.d16l16g8.fe-8.dc8.o2b-a8.go3d2t236l6o2dddl2mlgo3ddmnl6co2bal2o3mlgddmnl6co2bamll2o3gddmnl6co2bo3cl2mlo2a1a4p4mnt236l6o2dddl2mlgo3ddmnl6co2bal2o3mlgdd"
songdata(13) = songdata(13) + "mnl6co2bamll2o3gddmnl6co2bo3cl2mlo2a1a4p4mnl6o3mndddmll1gggg4p4p4mnl12dddg2"

songtitl(14) = "Alex's Theme (Beverly Hills Cop)"
songdata(14) = "mbo3l8f#p8a8.mlf#16mnf#16f#16b8f#ef#p8o4c#8.o3mlf#16mnf#16f#16  o4dc#o3af#o4c#F#o3f#16mle16mne16e16c#g#mlf#f#4p4p3  mbo3l8f#p8a8.mlf#16mnf#16f#16b8f#ef#p8o4c#8.o3mlf#16mnf#16f#16  o4dc#o3af#o4c#F#o3f#16mle16mne16e16c#g#mlf#f#4p4p3  l8o2f#p8o2f#.o2mle16mne16o2e16o1c#o2c#o1ef#p8o2f#p8p16o1c#1  6o2c#ef#o1do2p8d.o1mle16mne16o2e16o1c#ef#o2f#p4p16e16c#o1ba"

songtitl(15) = "Bagpipes"
songdata(15) = "mbT200MN  O2L8AO3L4DL8DDEFL4EL8DL4DL8O2AO3DEFGAB-L2AP8  O3L8AO4L4DL8DDCO3B-L4AL8AL4AL8FL4AL8AGFEL4FL8DL4D  O3L8EL4FL8FGAB-L4AL8AO4L4DP8O3L8DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D  T200MN  O2L8AO3L4DL8DDEFL4EL8DL4DL8O2AO3DEFGAB-L2AP8  O3L8AO4L4DL8DDCO3B-L4AL8AL4AL8FL4AL8AGFEL4FL8DL4D  O3L8EL4FL8FGAB-L4AL8AO4L4DP8O3L8DEFGFEDCL2DP8L8DL2EP8L8EFGFEDCL2D  L1D"

songtitl(16) = "Theme from Star Trek"
songdata(16) = "mbT240MLO4B1.D1.F1.O3A1.P8T240O3MLG2G8MNO4C8.MLF2MNF2MLE4.E8C4O3A4O4D4G2P8G4B1P4.  T240O4MLC2C8MNF8.MLB-2MNB-2MLA4.A8F4D4G4O5C2P8C4E1P1  T160O3G2O4F2.E4T240D4C4O3B4  MLT160O3B-2B-1G2O4G2.F4T240E4D4C4T180O3B2B1  MLT160O3B-4A2.B4O4C#D4T240E4F#G  MLT160O4A2B-1.O3B-2.O4C4  MLT160O4D4E-4T240F4G4A-4T160B-2B1  MLT160O3G2O4F2.E4T240D4C4O3B4  MLT160O3B-2B-1A-4  MLT160O3G2O4G2.F4T240E4D4C4  MLT160O3B2B1B-4A2.B4  MLT160O4C4D4T240E4F4E4T160G2.G4  MLT160O4B-2.A4G2C1MLD4.F4.A4."
songdata(16) = songdata(16)+"MLT160O5C1"

songtitl(17) = "abc song"
songdata(17) = "mbO3 l4ccggaal2g l4ffeel8ddddl2c l4ggffee l2dl8ggl4gffeel2d l4ccggaal2g l4ffee l4dd l2c"

songtitl(18) = "bingo"
songdata(18) = "mb O3 L8GGDDEEDDGGAAL4BGBBL8>CCL4C<AAL8BBL4BGGL8AAAGF+DEF+L4GG"

songtitl(19) = "SWEET BETSY FROM PIKE"
songdata(19) = "mbT220 O3  L4CCEGGFDDCCL2CL4CCEG>CCC<BGG L2G L4G  >CCC <BGEFGA L2G L8CD L4EEE GFD DCCL3C  L8CD L4EEE GFD DCC L2C L8CD L4EEE GFD DCC L2C L4C  O3  L4CEGGFDDCCL2CL4CCEG>CCC<BGG L2G L4G  >CCC <BGEFGA L2G L8CD L4EEE GFD DCCL3C  L8CD L4EEE GFD DCC L2C L8CD L4EEE GFD  L4DCCL2C"

songtitl(20) = "shortnin' bread"
songdata(20) = "T120 O3 <L4F>L8DDL4CD<L8FF>L4DL2CL4<F>DCL8DD<L8AAL4GFN0  T180 O4 < F >L8DDL4CD <F> DL2C <L4F >DL8CCL4D <AGF>N0  T200 O5 <L8FF> DD CC L4D <F> DCD   L8<FF>DDCC L4D <AGFN0  T250 O5 <L8FF>DDCCL4D<F>DCD L8<FF>DDCCL4D <AGFN0"

songtitl(21) = "down at the station"
songdata(21) = "T 180 O3 L4G L8GA L4BB L8AG AB L4GG L8BB B>CDDDDC<B>CD<L2B  O3 L8 GGGAL4BBL8AGABL4GG GG>DD <AB> <L2G"

songtitl(22) = "Jingle Bells"
songdata(22) = "mbT150 O3 L8BBL4BL8BBL4BL8B>D<GAL2B L8>CCCCC<BBBBAABL4A>D<  O3 L8BBL4BL8BBL4BL8B>D<GAL2B L8>CCCCC<BBB>DDC<AL2G"

songtitl(23) = "merrily we roll along"
songdata(23) = "mbT 200 O3 L4BAGABBL2BL4AAL2AL4BBL2BL4BAGABBL2BL4AABAL1G  T 200 O3 L4BAGABBL2BL4AAL2AL4BBL2BL4BAGABBL2BL4AABAL1G"

songtitl(24) = "MICHAEL, ROW THE BOAT ASHORE"
songdata(24) = "O3 L4FA MS L2ML>C<L8AL8>CDL2CL4<A>CL1DL2CL4<A>CMS L2MLC<L8A> L4C<AL2GL4FGL2AGF  O3 L4 FA MS L2ML>C<L8AL8>CDL2CL4<A>CL1DL2CL4<A>CMS L2MLC<L8A> L4C<AL2GL4FGL2AGF"

songtitl(25) = "Happy Birthday to You"
songdata(25) = "MNT150L8O4CCL4DCFL2EL8CCL4DCGL2FL8CCL4>C<AFEL2DL8A+A+ L4AFGL2FL8CCL4DCFL2EL8CCL4DCGL2FL8CCL4>C<AFEL2DL8A+A+ L4AFGL2F"

while 1
  cls
  FOR n=0 TO 25
    PRINT n, songtitl(n)
  NEXT
  print "99","Quit"
  print
  INPUT "input number:", song
  if song=99 then end
  PLAY songdata(song)
wend
