home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 51 / SCRPAINT / SCRPAINT.ZIP / MUSIC / MUSIC.TXT < prev    next >
Encoding:
Text File  |  1989-11-07  |  1.3 KB  |  32 lines
  1. :main
  2.   dos cls
  3.   hilite 95,15,1,15,16
  4.   repeat vertically 2,2
  5.   hilite 95,24,4,24,11
  6.   choice 1 do david
  7.   choice 2 do spanish harlem
  8.   choice 3 do by the light
  9.   choice 4,27 exit
  10.   display music.scr
  11.  
  12. :david
  13.   play T0O3D40F#G60G20GF#GAA40GGBO+D60O-B20BAGF#G80D40F#G60G20GF#GAA40GGBO+D60O-B20BAGF#G80O+E40ED60O-G20O+C40CO-B80O+E40ED60O-B20BAGF#G80
  14. :by the light
  15.   play T2O3B60O+C20D120G60A20B60A20G40E120A40G40E40F#120D60E20F#60E20D40E80O-BO+D100P10
  16.   play T2O3B60O+C20D120G60A20B60A20G40E120A40BO+CO-BGAO+CO-BG60A20B60A20G40B120G60A20B60G20A40G120P40
  17.   PLAY T2O3E60F20G120O+C60D20E60D20C40O-A120O+D40CO-AB120G60A20B60A20G40A80E80G100P10
  18.   PLAY T2O3E60F20G120O+C60D20E60D20C40O-A120O+D40EFECDFEC60D20E60D20C40E120C60D20E60C20D40C120
  19. :spanish harlem
  20.   play T2O3P20B40BBO+DDEF#EF#20ED120P20
  21.   play T2O3B40BO+CDDEF#EF#20ED120P20
  22.   play T2O4A40GEAGE20AGEA40GE20AGEAGEAGEAGEAGEG40O-GBO+D100P20
  23.   play T2O3A40ABO+CO-BO+DC20O-BO+C40O-BO+DC20O-BO+C40O-BO+DO-DEG140
  24. * second time around
  25.   play T2O3P20B40BBO+DDEF#EF#20ED120P20
  26.   play T2O3B40BO+CDDEF#EF#20ED120P20
  27.   play T2O4A40GEAGE20AGEA40GE20AGEAGEAGEAGEAGEG40O-GBO+D100P20
  28.   play T2O3A40ABO+CO-BO+DC20O-BO+C40O-B20O+DC80D40O-DEG140
  29. * this next one is repeated
  30.   play T2O3P20B40BO+CDDEF#EF#20ED100
  31.   play T2O4P20B40BO+CDDEF#EF#20ED100
  32.