home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / MISC / MUSIC.SUB < prev    next >
Encoding:
Text File  |  1991-05-25  |  12.5 KB  |  327 lines
  1. DefInt A-Z
  2.  
  3. Sub NineTo5 ()
  4.  
  5.     Result = Play("T255L4O1")
  6.     Result = Play("GGGGGGGGGGGGGEFF+")
  7.     For I = 1 To 2
  8.         If I = 1 Then
  9.             Result = Play("O4GO1GGGGGGGGGGGGEFF+")
  10.         Else
  11.             Result = Play("O1GGGGGGGGGGGGGEFF+")
  12.         End If
  13.         For J = 1 To 2
  14.             Result = Play("O2G8G8G8G8BB8B8O3D8D8D8D8EG")
  15.             Result = Play("CCEEG8E8G8AG8G")
  16.             If J = 1 Then
  17.                 Result = Play("GEGEGGGGEDO1DDDDDD")
  18.             Else
  19.                 Result = Play("BAGD8D8AAAGGO1GGGL20O6GDO5BGDO4BGDO3BGL4EG")
  20.             End If
  21.         Next
  22.         For J = 1 To 2
  23.             For K = 1 To 3
  24.                 If K = 2 Then
  25.                     Result = Play("O1G4O3")
  26.                 Else
  27.                     Result = Play("O1C4O3")
  28.                 End If
  29.                 Result = Play("B-2A4G2EGGEGE8G.B-EG")
  30.             Next
  31.             Result = Play("O1AO3AAAA2O1D2O3BABA8B.O4")
  32.             If J = 1 Then
  33.                 Result = Play("DO3EG")
  34.             Else
  35.                 If K = 1 Then
  36.                     Result = Play("D1")
  37.                 Else
  38.                     Result = Play("D1O1G1")
  39.                 End If
  40.             End If
  41.         Next
  42.     Next
  43.  
  44. End Sub
  45.  
  46. Sub BeethovensFifth ()
  47.  
  48.     Result = Play(" T225 O3 L8G L8G L8G L2E- P8 L8F L8F L8F ML L2D L2D MN P8")
  49.     Result = Play(" T225 O3 L8G L8G L8G L8E- L8A- L8A- L8A-L8G O4 L8E- L8E- L8E- ML L2C L8C MN O3 L8G L8G L8G L8D L8A- L8A- L8A- L8G O4 L8F L8F L8F ML L2D L2D MN")
  50.     Result = Play("T225 O4L8G L8G L8F L8E- O3L8E- L8E- L8F L8G O4 L8G L8G L8F  L8E- O3L8E- L8E- L8F L8G O4 L8G L8G L8F L8E- P4 L8C P4 L1G")
  51.     Result = Play("T225 O3 L8A- L8A- L8A-ML L2F L2F MN")
  52.     Result = Play("T225 P8 O3 L8A- L8A- L8A- L8F L8D L8D L8D O2 L8B L8A- L8A- L8A-L8G O1 L8G L8G L8G L8C O3 L8A- L8A- L8A- L8F L8D L8D L8D")
  53.     Result = Play(" T225 O2 L8B- L8A- L8A- L8A- L8G O1 L8G L8G L8G L8C O3 L8G O4 L8C L8C L2CO3 L8B L8B L8B O4 L8D L2D L8D L8D L8D L8E- L8E-L8D L8D L8F L8F L8E L8E- L8G")
  54.     Result = Play("T50  O4 L8G L8F L8F L8A- L8A- L8G L8G L8B- L8B- L8A- L8A-   L8C L8C L8B L8B-L8D L8C L8E-L8E-L8E-L8C L8G L8G L8G L8E-L8C O3 L8G L8G L8E- L8C L8C L8C")
  55.     Result = Play("O2 L8B-O4 L8F L8E- L8E-L8B L8G L8F L8F L8D O3 L8B L8G L8F L8D O2 L8B O3 L8C L8C L8C O4 L8E-L8E-")
  56. End Sub
  57.  
  58. Sub SweetGeorgiaBrown ()
  59.  
  60.     Result = Play("t255msl10o4")
  61.     Result = Play("o4d2.c+4c2.o3b4a4g4f+4e4d2")
  62.     For C = 1 To 10
  63.         Result = Play("t230l50o3do4dt255")
  64.     Next
  65.     GoSub 12310
  66.     For X = 1 To 2
  67.         For C = 1 To 3
  68.             Result = Play("mlt235l64o3bo4d")
  69.         Next
  70.         Result = Play("p16")
  71.         For C = 1 To 8
  72.             Result = Play("o3bo4d")
  73.         Next
  74.         Result = Play("p32")
  75.         For C = 1 To 4
  76.             Result = Play("o3b-o4d-")
  77.         Next
  78.         Result = Play("p32")
  79.         For C = 1 To 6
  80.             Result = Play("o3ao4c")
  81.         Next
  82.         Result = Play("p32")
  83.         For C = 1 To 14
  84.             Result = Play("o3gb")
  85.         Next
  86.         Result = Play("p32p2")
  87.     Next
  88.     Result = Play("t255l4mso3")
  89.     Result = Play("o3bt230l64f+af+af+af+af+af+af+af+a")
  90.     Result = Play("t255l4mso3p2")
  91.     GoSub 12310
  92.     For X = 1 To 2
  93.         Result = Play("t255l4mso3p8l32")
  94.         For C = 1 To 2
  95.             Result = Play("o3f+b-")
  96.         Next
  97.         Result = Play("p32")
  98.         For C = 1 To 4
  99.             Result = Play("o3gb")
  100.         Next
  101.         Result = Play("p32")
  102.         For C = 1 To 4
  103.             Result = Play("o3gb")
  104.         Next
  105.         Result = Play("p32")
  106.         For C = 1 To 4
  107.             Result = Play("o3gb")
  108.         Next
  109.         Result = Play("p32")
  110.         For C = 1 To 4
  111.             Result = Play("o3f+a")
  112.         Next
  113.         Result = Play("p32")
  114.         Result = Play("f+8p32")
  115.         For C = 1 To 12
  116.             Result = Play("o3ab")
  117.         Next
  118.         Result = Play("p16")
  119.         If X = 1 Then
  120.             Result = Play("l4o2msbe")
  121.         Else
  122.             Result = Play("l4o2msb")
  123.         End If
  124.     Next
  125.     Result = Play("t255l4mso3degbo4dd+eo3ba2o4do3b8g.p4o4d4d+4")
  126.     A$ = "mll32o3g+o4e"
  127.     AA$ = A$ + A$
  128.     B$ = "mll32o3f+o4d+"
  129.     BB$ = B$ + B$
  130.     Z$ = A$ + "p16" + B$
  131.     For C = 1 To 8
  132.         Result = Play(Z$)
  133.         Result = Play("p16")
  134.     Next
  135.     Result = Play("msl4o4p8e4.o3bg+e1")
  136.     A$ = "mll32o3go4e"
  137.     AA$ = A$ + A$
  138.     B$ = "mll32o3f+o4d+"
  139.     BB$ = B$ + B$
  140.     Z$ = A$ + "p16" + B$
  141.     For C = 1 To 8
  142.         Result = Play(Z$)
  143.         Result = Play("p16")
  144.     Next
  145.     Result = Play("msl4o4p8e4.c+o3ba1")
  146.     A$ = "mll32o3f+o4d"
  147.     AA$ = A$ + A$
  148.     B$ = "mll32o3fo4c+"
  149.     BB$ = B$ + B$
  150.     Z$ = A$ + "p16" + B$
  151.     For C = 1 To 8
  152.         Result = Play(Z$)
  153.         Result = Play("p16")
  154.     Next
  155.     Result = Play("msl4o4p8d4.o3af+dd8e4d8e4")
  156.     For C = 1 To 8
  157.         Result = Play("l52o3dgb")
  158.     Next
  159.     Result = Play("d8e4d8e4")
  160.     For C = 1 To 6
  161.         Result = Play("l52o3dgb")
  162.     Next
  163.     Result = Play("p4")
  164.     For C = 1 To 4
  165.         Result = Play("l52o3dgb")
  166.     Next
  167.     Result = Play("p16")
  168.     For C = 1 To 8
  169.         Result = Play("l52o3d+f+a")
  170.     Next
  171.     Result = Play("p8")
  172.     Result = Play("t255l4mso2ef+g+ebg+o3c+o2bo3e2o2bg+8mle8mse4")
  173.     For C = 1 To 2
  174.         Result = Play("o3g+52o4d52e52")
  175.     Next
  176.     Result = Play("p16")
  177.     For C = 1 To 4
  178.         Result = Play("o3g+52o4d52e52")
  179.     Next
  180.     Result = Play("p16")
  181.     For C = 1 To 4
  182.         Result = Play("o3g+52o4d52e52")
  183.     Next
  184.     Result = Play("p16")
  185.     Result = Play("t255l4mso2ef+gebgo3c+o2ao3e2c+o2b8mla8msa2b4")
  186.     Result = Play("o2l8ef+gabgb4b-g-b-4afa4ef+gabgb4b-g-b-4a4o1b4g8")
  187.     Result = Play("o3l4d8egbo4dd+8eo3b.")
  188.     For C = 1 To 8
  189.         Result = Play("l52o3bo4e")
  190.     Next
  191.     Result = Play("p16")
  192.     For C = 1 To 8
  193.         Result = Play("l52o3bo4e")
  194.     Next
  195.     Result = Play("p16")
  196.     For C = 1 To 8
  197.         Result = Play("l52o4cf+")
  198.     Next
  199.     Result = Play("p16")
  200.     For C = 1 To 8
  201.         Result = Play("l52o4cf+")
  202.     Next
  203.     Result = Play("p16")
  204.     For C = 1 To 3
  205.         Result = Play("l52o3bo4f+a")
  206.     Next
  207.     For C = 1 To 18
  208.         Result = Play("l52o3bo4eg")
  209.     Next
  210.     Result = Play("l4mso1f+16g8")
  211.  
  212.     Exit Sub
  213. 12310
  214.     Result = Play("t255l4mso3")
  215.     Result = Play("ef+g+.e8bg+o4c+.o3b8o4e2o3b8g+4.e4o2d16d+16ee-d")
  216.     Result = Play("o3ef+g.e8bgo4c+.o3a8o4e2c+8o3b.ao2g16g+16aa-g")
  217.     Result = Play("o3def+.d8af+b.a8o4d2o3a8f+.d")
  218.     Return
  219. End Sub
  220.  
  221. Sub WilliamTell ()
  222.  
  223.     Result = Play("T255MNL16")
  224.     Result = Play("o2mnb4p8msbbmnb4p8msbbb8g#8")
  225.     Result = Play("e8g#8b8g#8b8o3e8o2b8g#8e8g#8")
  226.     Result = Play("b8g#8b8o3e8o2mnb4p8msbbmnb4")
  227.     Result = Play("p8msbbmnb4p8msbbmnb4p8msbb")
  228.     Result = Play("b8bbb8b8b8bbb8b8b8bb")
  229.     Result = Play("b8b8b8bbb8b8mlb2")
  230.     Result = Play("b2b8p8p4p4")
  231.     Result = Play("p8mso1bbb8bbb8bbo2e8f#8g#8o1bb")
  232.     Result = Play("b8bbo2e8g#g#f#8d#8o1b8bbb8bb")
  233.     Result = Play("b8bbo2e8f#8g#8eg#mlb4bmsag#f#")
  234.     Result = Play("e8g#8e8o3bbb8bbb8bbo4e8f#8")
  235.     Result = Play("g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb")
  236.     Result = Play("b8bbb8bbo4e8f#8g#8mleg#b4")
  237.     Result = Play("bag#f#mse8g#8e8o3g#g#g#8g#g#g#8g#g#")
  238.     Result = Play("g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8d#8")
  239.     Result = Play("c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8o4c#8")
  240.     Result = Play("o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8g#g#")
  241.     Result = Play("g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8")
  242.     Result = Play("e8d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8")
  243.     Result = Play("o3g#8o4c#8o3g#8o4c#8o3b8a#8b8o2bbb8f#f#")
  244.     Result = Play("f#8f#f#f#8g#8a8f#4mna8msg#8mne4")
  245.     Result = Play("msg#8f#8f#8f#8o3f#f#f#8f#f#f#8g#8")
  246.     Result = Play("a8mnf#4msa8g#8mne4msg#8f#8o2bb")
  247.     Result = Play("b8o1bbb8bbb8bbo2mne8f#8g#8o1bb")
  248.     Result = Play("b8bbo2e8g#g#f#8d#8o1b8bbb8bb")
  249.     Result = Play("b8bbo2e8f#8g#8eg#mlb4mnbag#f#")
  250.     Result = Play("e8g#8e8o3bbb8bbb8bbo4e8f#8")
  251.     Result = Play("g#8o3bbb8bbo4e8g#g#f#8d#8o3b8bb")
  252.     Result = Play("b8bbb8bbo4e8f#8g#8mleg#mlb4")
  253.     Result = Play("mnbag#f#mne8g#8e8o3mle56f56g56a56b56o4c56d56mne8eee8e8g#4.")
  254.     Result = Play("f#8e8d#8e8c#8mso3bo4c#o3bo4c#o3b")
  255.     Result = Play("o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#")
  256.     Result = Play("g#f#g#f#g#f#g#f#g#f#d#o2bo3mlbo4c#d#e8d#8e8")
  257.     Result = Play("c#8o3msbo4c#o3bo4c#o3bo4c#d#eo3abababo4c#d#o3g#")
  258.     Result = Play("ag#ag#abo4c#o3f#g#f#g#f#af#emne8p8mlc#4")
  259.     Result = Play("mnc#o2cmso3c#o2co3d#c#o2baag#ec#c#c#c#c#e")
  260.     Result = Play("d#o1cg#g#g#g#g#g#o2c#eg#o3c#c#c#c#c#o2co3c#o2co3d#")
  261.     Result = Play("c#o2baag#ec#c#c#c#c#ed#o1cg#g#g#g#g#mng#")
  262.     Result = Play("o2c#eg#o3msc#ed#c#d#o2cg#g#g#o3g#ec#d#o2cg#g#g#")
  263.     Result = Play("o3g#ec#d#o2bg#g#a#gd#d#g#gg#gg#ag#f#e")
  264.     Result = Play("o1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#bo3g#f#ed#")
  265.     Result = Play("f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#d#ef#o2g#")
  266.     Result = Play("ag#aco3c#d#eo2f#g#f#g#f#g#f#g#f#g#f#d#o1b")
  267.     Result = Play("co2c#d#eo1ba#bo2eo1bo2f#o1bo2g#ed#eg#eaf#b")
  268.     Result = Play("o3g#f#ed#f#ec#o2bo3c#o2bo3c#d#ef#g#o2ababo3c#")
  269.     Result = Play("d#ef#o2g#ag#abo3c#d#eo2f#o3c#o2co3c#d#c#o2af#mne")
  270.     Result = Play("o3mlef#g#abo4c#d#mne8mseee8e8g#4.")
  271.     Result = Play("msf8mse8d#8e8c#8o3bo4c#o3bo4c#o3bo4c#d#eo3a")
  272.     Result = Play("bababo4c#d#o3g#ag#ag#abo4c#o3f#g#f#g#f#")
  273.     Result = Play("g#f#g#f#g#f#d#o2bo3mlbo4c#d#mne8eee8e8g#4.")
  274.     Result = Play("msf#8e8d#8e8c#8o3bo4c#o3bo4c#o3b")
  275.     Result = Play("o4c#d#eo3abababo4c#d#o3g#ag#ag#abo4c#o3f#")
  276.     Result = Play("g#f#g#f#ag#f#e8o2b8o3e8g#g#g#8mng#g#g#8")
  277.     Result = Play("g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8f#8e8")
  278.     Result = Play("d#8c#8g#g#g#8g#g#g#8g#g#g#8o4c#8o3g#8")
  279.     Result = Play("o4c#8o3g#8o4c#8o3b8a#8b8a#8b8g#g#g#8")
  280.     Result = Play("g#g#g#8g#g#g#8o4c#8o3g#8o4c#8o3g#8o4c#8o3g#8")
  281.     Result = Play("f#8e8d#8c#8g#g#g#8g#g#g#8g#g#g#8")
  282.     Result = Play("o4c#8o3g#8o4c#8o3g#8o4c#8o3b8a#8b8a#8b8")
  283.     Result = Play("o2f#f#f#8f#f#f#8g#8a8f#4a8g#8")
  284.     Result = Play("e4g#8f#8o0b8o1b8o2f#f#f#8f#f#f#8")
  285.     Result = Play("g#8a8f#4a8g#8e4g#8f#8")
  286.     Result = Play("bbb8o1bbb8bbb8bbo2e8f#8g#8")
  287.     Result = Play("o1bbb8bbo2e8g#g#f#8d#8o1b8bbb8")
  288.     Result = Play("bbb8bbo2e8f#8g#8eg#mlb4mnb")
  289.     Result = Play("ag#f#e8o1b8o2e8o3bbb8bbb8bbo4e8")
  290.     Result = Play("f#8g#8o3bbb8bbo4e8g#g#f#8d#8o3b8")
  291.     Result = Play("bbb8bbb8bbo4e8f#8g#8o3eg#mlb4")
  292.     Result = Play("mnbag#f#mlef#g#mnamlg#abo4mnc#mlo3bo4c#d#mnemld#")
  293.     Result = Play("ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmle")
  294.     Result = Play("f#g#mnamlg#abmno4c#mlo3bo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a")
  295.     Result = Play("o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16")
  296.     Result = Play("mleo4eo3mnep16mlao4ao3mnap16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16")
  297.     Result = Play("mlao4ao3mnao4go3go4go3go4go3go4go3go4msg8e8c8e8o4mng#")
  298.     Result = Play("o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8e8o3b8o4e8mng#o3g#o4g#o3g#o4g#")
  299.     Result = Play("o3g#o4g#o3g#o4msg#8f8c#8f8mna#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4msa#8")
  300.     Result = Play("g8e8g8b8p16mna#p16ap16g#p16f#p16ep16")
  301.     Result = Play("d#p16c#p16o3bp16a#p16ap16g#p16f#p16ep16d#p16f#mle")
  302.     Result = Play("f#g#mnamlg#abmno4c#o3mlbo4c#d#mnemld#ef#mng#ao3bo4ao3bo4a")
  303.     Result = Play("o3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bmlef#g#mnamlg#abmno4c#o3mlb")
  304.     Result = Play("o4c#d#mnemld#ef#mng#ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4ao3bo4a")
  305.     Result = Play("o3bo4ao3bp16mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnap16")
  306.     Result = Play("mlg#o4g#o3mng#p16mld#o4d#o3mnd#p16mleo4eo3mnep16mlao4ao3mnao4go3go4go3go4g")
  307.     Result = Play("o3go4go3go4g8e8c8e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4g#8")
  308.     Result = Play("e8o3b8o4e8g#o3g#o4g#o3g#o4g#o3g#o4g#o3g#o4msg#8mnf8c#8")
  309.     Result = Play("f8a#o3a#o4a#o3a#o4a#o3a#o4a#o3a#o4a#8g8e8g8b8")
  310.     Result = Play("p16a#p16ap16g#p16f#p16ep16d#p16c#p16o3bp16a#p16")
  311.     Result = Play("ap16g#p16f#p16ep16d#p16fmled#ed#mne8bbb8")
  312.     Result = Play("bbb8bbo4e8f#8g#8o3bbb8bbb8")
  313.     Result = Play("bbo4g#8a8b8p8e8f#8g#8p8o3g#8")
  314.     Result = Play("a8b8p8p2o2bco3c#dd#")
  315.     Result = Play("eff#gg#aa#bco4c#d#ed#f#d#ed#f#d#e")
  316.     Result = Play("d#f#d#ed#f#d#ed#f#d#ed#f#d#ed#f#d#e")
  317.     Result = Play("d#f#d#e8eo3eo4eo3eo4eo3eo4e8o3bo2bo3bo2bo3bo2bo3b8")
  318.     Result = Play("g#o2g#o3g#o2g#o3g#o2g#o3g8eo2eo3eo2eo3eo2eo3e8eee8")
  319.     Result = Play("e8e8o2bbb8b8b8g#g#g#8g#8g#8")
  320.     Result = Play("eee8e8e8o1b8o2e8o1b8o2g#8e8b8")
  321.     Result = Play("g#8o3e8o2b8o3e8o2b8o3g#8e8b8g#8o4e4")
  322.     Result = Play("p8eee8e8e8e8e4p8.")
  323.     Result = Play("ee4p8.o2ee2")
  324.  
  325. End Sub
  326.  
  327.