home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / TUNES.UNT < prev    next >
Text File  |  1996-07-04  |  13KB  |  216 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢                      │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   TUNES   .UNT ║                      ╘════════════════─ ║ ║
  6.  │  │ LIBRARY     DAS-NB03.PBL ║                                         ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  9.    ╘═══════════════════════════════════════════════════════════════════════╝
  10. $endif
  11.  
  12. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  13. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  14. $if 1
  15.   $CODE SEG        "DAS_NB03"
  16.   $EVENT            OFF
  17.   $ERROR ALL        OFF
  18.   $OPTIMIZE         SIZE
  19.   $OPTION GOSUB     OFF
  20.   $OPTION CNTLBREAK OFF
  21.   $OPTION SIGNED    OFF
  22.   $DEBUG  MAP       OFF
  23.   $DEBUG  PATH      OFF
  24.   $DEBUG  UNIT      OFF
  25.   $COMPILE          UNIT
  26. $endif
  27.  
  28.   EXTERNAL pSoundOFF%
  29.  
  30. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  31. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  32. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  33. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  34.  
  35. SUB PlayTune( BYVAL Which%, BYVAL Foreground% ) LOCAL PUBLIC
  36.   LOCAL Song$
  37.  
  38.   IF pSoundOff% THEN EXIT SUB
  39.  
  40.   SELECT CASE Which%
  41.     CASE 1                   ' 10 Little Indians (9.4 Sec.)
  42.       Song$ = "MNL10T120O4 FFFN0FFFN0A>CC<AFN0N0GGGN0GGGN0EGGECN0N0FFFN0FFFN0A>CC<AFN0GGGL4CCF."
  43.     CASE 2                   ' Mary Had A Little Lamb (6.8 Sec.)
  44.       Song$ = "MNL8T120O4 EDCDEEEN0 DDDN0 EGGN0  EDCDEEEL6N0L8 EDDEDC."
  45.     CASE 3                   ' OL' MacDonald (5.5 Sec.)
  46.       Song$ = "MNL4T120O4 GGGDEEDN0BBAAG.N0" ' DGGGDEEDN0BBAAG."
  47.     CASE 4                   ' Ittsy Bittsy Spider (6.7 Sec.)
  48.       Song$ = "MNL7T120O4 CFFFGA.AN0AGGAGF.N0 A.AA#>C.C<A#A#>C<A#A"
  49.     CASE 5                   ' A Tisket A Tasket (8.1 Sec.)
  50.       Song$ = "MNL7T120O4 GGE.AGE.FGGEAGE.N0 FGGEAGGEN0AGGEAGE."
  51.     CASE 6                   ' This Is The Way (7.25 Sec.)
  52.       Song$ = "MNL8T120O4 FFFFN0A>C.<AFN0 GGGN0EDCN0 FFFFN0A>C.<AFN0 L7 G.>C.<F."
  53.     CASE 7                   ' Row Row Row Your Boat (6.7 Sec.)
  54.       Song$ = "MNL6T120O4 C.C.CL8DEL7N0 EDEFGN0 >CC<GGEECN0 GFEDC"
  55.     CASE 8                   ' Twinkle Twinkle (9.6 Sec.)
  56.       Song$ = "MNL6T120O4 CCGGAAGN0 FFEEDDCN0 CCGGAAGN0 FFE.E.D.D.C."
  57.     CASE 9                   ' Old Smokie (8.5 Sec.)
  58.       Song$ = "MNL6T120O4 CCEG>C<A.N0 AFGAG.N0 GCEGGD.N0 DEFedc.N0"
  59.     CASE 10                   ' Matcho (10 Sec.)
  60.       Song$ = "MNL7T120O4 EDECN0 EDECN0 EDEC<GAGG>N0 EDECN0 EDECN0 <GAAG>N0 EDEC."
  61.     CASE 11                   ' Working On The Rr<Short> (3.4 Sec.)
  62.       Song$ = "MNL8T120O4 C.<G>C<G>CDE.C.N0" ' F.F.C.D.E."
  63.     CASE 12                   ' Working On The Rr<Long> (19.3 Sec.)
  64.       Song$ = "MNL8T120O4 C.<G>C<G>CDE.C.N0 F.F.C.D.E.N0N0" +_
  65.           "C.<G>C<G>CDE.C.N0 E.E.E.D.D.E.D.N0N0" +_
  66.           "D.DC#DEDC.<G.>N0 F.FFCCDD.E.N0  <A.B>C<B>C<AG.>C.N0 E.F.E.D.C."
  67.     CASE 13                   ' Dirge (3.3 Sec.)
  68.       Song$ = "MNL6T120O2 F.F.FF.A-.GGFF.E.F."
  69.     CASE 14                   ' So Long (5.7 Sec.)
  70.       Song$ = "MNL6T120O4 G.E.FGAGGEN0 F.D.EFGFFDN0"
  71.     CASE 15                   ' This Old Man (10.1 Sec.)
  72.       Song$ = "MNL6T120O4 GEGN0 GEGN0 AGFEDEFN0 L8EFGL6CCCCL8DEFGL6N0 GDDFEDC"
  73.     CASE 16                   ' Brahms Lullaby (10.9 Sec.)
  74.       Song$ = "MNL6T120O4 EEG.N0 EEG.N0 EG>C.<B.A.G.N0 DEF.D.N0 DEF.N0 DFBAG.B>C.<"
  75.     CASE 17                   ' Battle Hymn (34.7 Sec.)
  76.       Song$ = "MNL6T120O4 G.G.GGFEG.>C.DEEEDCN0 C<BAAAB>C<B>C<AGAGEGN0 GGGGGFEG>CDEEEDC.N0 C.D.D.C.<B.>C.<N0N0" +_
  77.           "MNL6T120O4 G.FE.G>C.D.L4E.C.<L6N0 A.B>C.<B>C.<AL4GE.L6N0 G.FE.G>C.D.L4E.C.<L6N0 L4>CDDC<B>C.<"
  78.     CASE 18                   ' Star Spangle (43.6 Sec.)
  79.       Song$ = "MLT100O3L8E-.L16CO2L4A-O3L4CE-L2A-O4L8C.O3L16B-L4A-CDL2E-L8E-E-O4L4C." +_
  80.           "O3L8B-L4A-L2GL8FGL4A-A-E-CO2L4A-O4L8CCL4CD-E-L2E-L8D-CO3L4B-O4L4CD-" +_
  81.           "L2D-L8D-D-L4C.O3L8B-L4A-L2GL8FL16G.L4A-CDL2E-L8E-E-L4A-A-L8A-GL4FFF" +_
  82.           "B-O4L8D-CO3L8B-A-L4A-L4G.P8L8E-E-O3L4A-.L8B-O4L8CD-L2E-O3L8A-B-O4L4" +_
  83.           "C.L8D-O3L4B-L2A-"
  84.     CASE 19                   ' Johnny Comes Marching (19.2 Sec.)
  85.       Song$ = "MNL6T120O4 C.CFFFGG#GG#FD#.CD#.N0 CFFFGG#GG#A#>C.<G#>C.<N0" +_
  86.           "G#>CCC<G#A#A#A#GG#G#G#FGGGN0 G#A#>C.<A#.G#.G.CFFFD#F."
  87.     CASE 20                   ' Daisy Daisy (7 Sec.)
  88.       Song$ = "MNL6T120O4 >C.<A.F.C.L7DE.FDFL6C.N0G.>C.<A.F.L7EFGGAL6G."
  89.     CASE 21                   ' Greek Calander (7.3 Sec.)
  90.       Song$ = "MNL6T120O4 GAB>C.<BAG.F.E.N0 GFEDN0 DEFGAGAG."
  91.     CASE 22                   ' Little Tea Pot (12.2 Sec.)
  92.       Song$ = "MNT120O4 L8CDEFG.>C<N0 A.>C.<G.N0 L7FFFEE.N0DDDCN0" +_
  93.           "L8 CDEFG.>C<N0 A.>C.<G.N0 L6FFFEE.N0DDDC."
  94.     CASE 23                   ' Brother John (12.2 Sec.)
  95.       Song$ = "MNT120O4 L8CDEC.N0CDEC.N0EFG.N0EFG.N0GAGFE.C.N0GAGFE.C.N0L6C.<G.>C.N0C.<G.>C."
  96.     CASE 24                   ' Bouree (12 Sec.)
  97.       Song$ = "MLL8T150O4DEF4EDC+4DEO3A4BO4C+DP10CO3B-A4GFE4FGAP16GF16E16D8P10" +_
  98.           "O4DEF4EDA4FAO3A4BO4C+DP10CO3B-A4GFP32F16G16F16E16F16.P32F2"
  99.     CASE 25                   ' Anvil (18 Sec.)
  100.       Song$ = "MNT200O3E2E4.E8E4.D8C4.O2A8G4.B8O3D4.F8E2C2E2E4.E8E4.D8C4.O2A8G4.B8" +_
  101.           "O3D4.F8E4C4E2C4P4D4P4O2B4O3C4O2A4B4E4P4P8G+8A8B8O3C4C4P8O2B8O3C8" +_
  102.           "D8E4E4P8D8E8F8G2.F8G16F16E4P4P2"
  103.     CASE 26                        ' Addams Family
  104.       Song$ = "O3T220L8CDEFP4O0L4FP8FP8O3L8DEF#GP4O1L4GP8GP8O3L8DEF#GP4DEF#GP4CDEFP4O1L4FP8FP8" +_
  105.           "P4T187O3L8CF.AF.DO2B-.O3GP4FE.GE.CO2A.O3FP4CF.AF.DO2B-.O3GP4FL64EFL8E.CD.EFP4" +_
  106.           "O3T220L8CDEFP4O0L4FP8FP8O3L8DEF#GP4O1L4GP8GP8O3L8DEF#GP4DEF#GP4CDEFP4O1L4FP8FP8" +_
  107.           "P4T187O3L8CF.AF.DO2B-.O3GP4FE.GE.CO2A.O3FP4CF.AF.DO2B-.O3GP4FL64EFL8E.CD.EFP2"
  108.     CASE 27                        ' Auld Lang Syne
  109.       Song$ = "T120MNO2L4CF.L8EL4FAG.L8FL4GAF.L8FL4AO3CL2D.L4DC.O2L8AL4AFG.L8FL4GL8AG" +_
  110.           "L4F.L8DL4DCL2F.O3L4DC.O2L8AP64L4AFG.L8FL4GO3DC.O2L8AP64L4AO3C" +_
  111.           "L2D.L4DC.O2L8AL4AFG.L8FL4GL8AGL4F.L8DL4DCL2F.P2"
  112.     CASE 28                        ' Beverly Hills Cop
  113.       Song$ = "T125MSL4O3FG#L8FL16FL8A#L8FD#L4FL4O4CL8O3FL16FL8O4C#CO3G#FO4CL8FO3L16FL8D#L16D#L8CL8GL4FP2" +_
  114.           "T125MSL4O3FG#L8FL16FL8A#L8FD#L4FL4O4CL8O3FL16FL8O4C#CO3G#FO4CL8FO3L16FL8D#L16D#L8CL8GL4FP2" +_
  115.           "O1L4FFL8D#L16D#L8D#L8CD#L4FFP8L16FL8FCFL4C#C#L8D#L16D#L8D#D#D#FP2L8FCO0L8A#G#L4F" +_
  116.           "O1L4FL8D#L16D#L8D#L8CD#L4FFP8L16FL8FCFL4C#C#L8D#L16D#L8D#D#D#FP2"
  117.     CASE 29                        ' Beverly Hillbillies
  118.       Song$ = "T120O2MST190L8CCFCFGAAFFL4GP32GP32C.P16" +_
  119.           "L8CL4EL8EFL4GL8FEFGFDL4C.P16L8CL4FFAL8GFB-AB->CL4D.P16" +_
  120.           "L8DL4CL8CCL4CL8CC<CDL4EF...P2"
  121.     CASE 30                        ' Deck the Halls
  122.       Song$ = "T250O3L2D.L4CO2L2BAGABGL4ABO3L4CO2L4AL2B.P4L4AL2GF+G.P4O3D." +_
  123.           "L4CO2L2BAGABGL4ABO3L4CO2L4AL2B.P4L4AL2GF+G.P4A.L4BO3L2C" +_
  124.           "O2AB.O3L4CL2DO2AL4BO3CL2DL4EF+L2GF+ED.P4D.L4CO2L2BAGABGL4ABO3CO2A" +_
  125.           "L2B.P4L4AL2GF+L1GP2"
  126.     CASE 31                        ' Flight of the Bumblebee
  127.       Song$ = "T160MLL16O5ED#DC#DC#CO4BO5CO4BB-AG#GF#FED#DC#DC#CO3BO4CO3BB-AG#GF#F" +_
  128.           "O3ED#DC#DC#CO2BO3ED#DC#DC#CO2BO3ED#DC#CFED#O3ED#DC#CC#DD#" +_
  129.           "O3ED#DC#CFED#O3ED#DC#CC#DD#O3ED#DC#DC#CO2BO3CC#DD#EFED#P2"
  130.     CASE 32                        ' Folk Song
  131.       Song$ = "T120MLL16O1AO3AO1AO3BL24O2EAO4C+O2EAO4DO1AO4C+EO1AO4C+EL32O2EAO4C+E" +_
  132.           "O2EAO4C+EL16O2DO4F+O2DO4DL24O2F+O4F+AO2F+O4DF+O1AO4C+EO2C+O4C+E" +_
  133.           "L16O2EP16AP16L16O2DO4F+O2DO4DL24O2F+O4F+AO2F+O4DF+O1AO4C+EO2C+O4C+E" +_
  134.           "L16O2EP16AP16L16EO4EO2EO4DL24O2G+BO4DO2G+BO4DL16O1AO4DO1AO4C+L24O2EAO4C+" +_
  135.           "L24O2EAO4C+L16O2EO4C+O2EO3BL24O2G+BO3BL24O2G+BO3BL16O1AO3AO2EP2"
  136.     CASE 33                        ' I'm A Little Teapot
  137.       Song$ = "T120O2MNL8CDEFL4GO3CO2AO3CO2L2GL4FFEEDDL2CO3L8CO2BAO3CO2L4BGAAL2GO3L4CO2AGFEDC" +_
  138.           "O3L8CDEFL4GO4CO3AO4CO3L2GL4FFEEDDL2CO4L8CO3BAO4CO3L4BGAAL2GO4L4CO3AGFEDCP2"
  139.     CASE 34                        ' James Bond Theme
  140.       Song$ = "MLL8T125O1B4EBO2C4O1EO2CC#4O1EO2C#C4O1EO2CO1B4EBO2C4O1EO2CC#4O1EO2C#C4O1EO2C" +_
  141.           "T150MNO3EF#16F#16F#F#3O2EEEMNO3EG16G16GG3O2F#F#F#MNO3EF#16F#16F#F#3O2EEE" +_
  142.           "MNO3EG16G16GG3O2F#F#F#MNO3EF#16F#16F#F#3O2EEEMNO3EG16G16GG3O2F#F#E" +_
  143.           "MLO4D#O3B64O4DD2O2G64BF#64AMLG24B1P2"
  144.     CASE 35                        ' Jeopardy Theme
  145.       Song$ = "MNT150O3L4DGD<G>DGDP4DGDGMSBP8MNL8AGF#EE-L4DGD<G>DGDP4" +_
  146.           "MSGP8L8EL4DCMN<BAL4GP4O3L4EAE<A>EAEP4EAEAMS>C#P8MNL8<BAG#F#FL4" +_
  147.           "EAE<A>EAEP4MSAP8L8F#L4EDMNL2MSC#<BL4MNAO1L4AAP2"
  148.     CASE 36                        ' Leave it to Beaver
  149.       Song$ = "MST190O2L8CL4FL8A>C<AFL4GL8B-L4>DL8C<B>CFL4DL8<B-L4G..P16" +_
  150.           "L8CL4FL8A>C<AFL4GL8B-L4>DL8C<B>CFD<GEL4F..P8O3L4AL8AL4G.L8FGFL4E-L8EDE-EFGG+L4A..P8" +_
  151.           "O1L4GL8GL4F.L8EFEL4D-L8DDEFG>G<G>C<B-AG.P16O2L8CL4FL8A>C<AFL4GL8B-L4>D" +_
  152.           "L8C<B>CFL4DL8<B-L4G..P16O3L8CL4FL8A>C<AFL4GL8B-L4>DL8C<B>CFD<GEL4F.L8>FP2"
  153.     CASE 37                       ' London Bridge
  154.       Song$ = "T120O3MNL8C.L16DL8CO2B-AB-O3L4CO2L8GAL4B-L8AB-O3L4CL8C.L16DL8CO2B-AB-O3L4C" +_
  155.           "O2GO3CO2L8AL4F.O3O4L8C.L16DL8CO3B-AB-O4L4CO3L8GAL4B-L8AB-O4L4CL8C.L16DL8C" +_
  156.           "O3B-AB-O4L4CO3GO4CO3L8AL4F.P2"
  157.     CASE 38                       ' Maple Leaf Rag
  158.       Song$ = "T120O2MNL16GB-E-GL8B-L16DB-DFB-L4B-P16L16GB-E-GL8B-L16DB-DFMLB-L8B-MNB-BB-L8B-B-" +_
  159.           "L4BL8B-B-P8L8E-G-B-G-E-G-B-O3E-E-E-L16E-L8E-L16O2B-O3CO2GB-O3L8CO2L8E-" +_
  160.           "L16FG-E-FL8GL16E-GE-L8FE-L16O3E-L8E-E-E-L16E-L8E-L16O2B-O3CO2GB-O3L8C" +_
  161.           "O2L16E-E-FG-E-FL8GL16E-GE-L8FE-P2"
  162.     CASE 39                       ' My Darling Clementine
  163.       Song$ = "T120MNO2L8G.L16GL4GDL8B.L16BL4BGL8GBO3L4DDL8CO2BL2AL8ABO3L4CCO2L8B.L16AL4BGL8GB" +_
  164.           "L4ADL8F#.L16AL2GL8G.L16GL4GDL8B.L16BL4BGL8GBO3L4D.L8DCO2BL2AL8ABO3L4CC" +_
  165.           "O2L8B.L16AL4BGL8GBL4ADL8F#.L16AL2GL8G.L16GL4GDL8B.L16BL4BGL8GBO3L4DDL8C" +_
  166.           "O2BL2AL8ABO3L4CCP2"
  167.     CASE 40                       ' Ramblin' Wreck
  168.       Song$ = "MNT200O3E4D8C4C8C4D8E4E8E8D8C8D8E8D8C4O2B8O3MLC2C8MN" +_
  169.           "D8E4E8E4F8G4G8G4G8G4D8D4E8MLD2D8MN" +_
  170.           "G8A4F8A4F8A8O4MLC4C8MNO3B8A8G4E8G4E8G2" +_
  171.           "E4D8C4C8C4D8E4E8E8D8C8D8E8D8C4O2B8O3MLC2C8MNP2"
  172.     CASE 41                       ' The Entertainer
  173.       Song$ = "T120MNO3L8DD#EO4L4CO3L8EO4L4CO3L8EO4L4C.P4P8L8CDD#ECDL4EL8O3BL4O4DCP4P4O3L8DD#EL4" +_
  174.           "O4CO3L8EO4L4CO3L8EL4O4C.P4P4O3L8AGF#AO4CL4EL8DCO3AO4L4DP4P4O3L8DD#EL4O4C" +_
  175.           "O3L8EO4L4CO3L8EO4L4C.P4P4L8CDD#ECDL4EL8O3BO4L4DCP4P4L8CDECDL4EL8CDCECDL4E" +_
  176.           "L8CDCECDL4EO3BO4L4ECP2"
  177.     CASE 42                       ' Violin Sonata #6
  178.       Song$ = "T135MSP8O5L16ED#L8EO4BG#BL16EF#ED#L8EO3BG#BMLL16EBF#BG#BABG#BF#BEO4ED#C#O3BO4ED#C#O3BAG#F#" +_
  179.           "MSL16EBF#BG#BABG#BF#BEO4ED#C#O3BO4ED#C#O3BAG#F#MLEF#G#ABO4C#D#EF#G#AF#G#BEF#G#AB" +_
  180.           "O5C#D#EC#D#EO4BABG#BABG#BF#BEO5ED#C#O4BEO5C#O4EBEAEMSG#BF#BG#BABG#BF#BEO5ED#C#O4BEO5C#O4EBEAE" +_
  181.           "MNG#EEED#EEEF#ED#EEEG#EF#EG#EAEF#EMSG#EEED#EEEF#ED#EEEG#EF#EG#EAEF#EP2"
  182.     CASE 43                       ' Well-Tempered Clavier
  183.       Song$ = "L16T132MSO2CEGO3CEO2GO3CEO2CEGO3CEO2GO3CEO2CDAO3DFO2AO3DFO2CDAO3DFO2AO3DF" +_
  184.           "O1BO2DGO3DFO2GO3DFO1BO2DGO3DFO2GO3DFO2CEGO3CEO2GO3CEO2CEGO3CEO2GO3CE" +_
  185.           "O2CEAO3EAO2AO3EAO2CEAO3EAO2AO3EAO2CDF#AO3DO2F#AO3DO2CDF#AO3DO2F#AO3D" +_
  186.           "O1BO2DGO3DGO2GO3DGO1BO2DGO3DGO2GO3DGO1BO2CEGO3CO2EGO3CO1BO2CEGO3CO2EGO3CP2"
  187.     CASE 44                       ' William Tell Overture
  188.       Song$ = "O2L16T155P8MSO1BBB8BBB8BBO2E8F#8G#8O1BBB8BBO2E8G#G#F#8D#8O1B8BBB8BBB8BBO2E8F#8G#8EG#" +_
  189.           "MLB4BMSAG#F#E8G#8E8O3BBB8BBB8BBO4E8F#8G#8O3BBB8BBO4E8G#G#F#8D#8O3B8BBB8BBB8BB" +_
  190.           "O4E8F#8G#8MLEG#B4BAG#F#MSE8G#8E8P2"
  191.     CASE 45                       ' Love Story
  192.       Song$ = "MNT120L8O3F<AA>FL2FL8<AA>FF<AB-AGGG>EL4E"
  193.     CASE 46                       ' Haloween
  194.       Song$ = "MST200L8O2G7CCG7CCG7CG#CG7CCG7CCG7CG#CO2<B-B->F<B-B->F<B->F#<B->F<B-B->F<B-B->F<B->F#<B-" +_
  195.           "O2G7CCG7CCG7CG#CG7CCG7CCG7CG#CO2<B-B->F<B-B->F<B->F#<B->F<B-B->F<B-B->F<B->F#<B-"
  196.     CASE 47                       ' Mash
  197.       Song$ = "T240O3L4CB-L8AB-B-L4AL8B-B-L4AL8GL2GAL8GAAL4GL8AAL4GL8FL4F" +_
  198.           "L8AL4GL8FGGL4FL8GGL4FL8EL4EL8GL4FL8EFFL4EL8FL8FL4GL8AAL2AP1L4C" +_
  199.           "O4L4DO3L8CO4L8DDO3L4CO4L8DDO3L4CP1CO4L4DO3L8CO4DDO3L4CP1CL4AL8C" +_
  200.           "O4DDL4FL8GGL4FL8DDO3L4CO4L8DL1DL2DP1O3L4CACO4DFGFDO3CO4L1DD"
  201.     CASE 48                       ' Unknown
  202.       Song$ = "T255MNO2E4G4G4G4G4E4D4O1B4O2D4G1G2G4A4B4B4B4B4O3D4O2B4A4G4A1A2" +_
  203.           "O3D4C4O2B4B4B4B4A4G4G4G4C4C4C4C4A4G4F4E4D4D4D4D4B4A4E4F4G1"
  204.   END SELECT
  205.  
  206.   IF Song$ <> "" THEN
  207.      IF Foreground% <> 0 THEN
  208.      PLAY "MF"
  209.        ELSE
  210.      PLAY "MB"
  211.      END IF
  212.      PLAY Song$
  213.   END IF
  214.  
  215. END SUB
  216.