home *** CD-ROM | disk | FTP | other *** search
- :main
- dos cls
- hilite 95,15,1,15,16
- repeat vertically 2,2
- hilite 95,24,4,24,11
- choice 1 do david
- choice 2 do spanish harlem
- choice 3 do by the light
- choice 4,27 exit
- display music.scr
-
- :david
- play T0O3D40F#G60G20GF#GAA40GGBO+D60O-B20BAGF#G80D40F#G60G20GF#GAA40GGBO+D60O-B20BAGF#G80O+E40ED60O-G20O+C40CO-B80O+E40ED60O-B20BAGF#G80
- :by the light
- play T2O3B60O+C20D120G60A20B60A20G40E120A40G40E40F#120D60E20F#60E20D40E80O-BO+D100P10
- play T2O3B60O+C20D120G60A20B60A20G40E120A40BO+CO-BGAO+CO-BG60A20B60A20G40B120G60A20B60G20A40G120P40
- PLAY T2O3E60F20G120O+C60D20E60D20C40O-A120O+D40CO-AB120G60A20B60A20G40A80E80G100P10
- PLAY T2O3E60F20G120O+C60D20E60D20C40O-A120O+D40EFECDFEC60D20E60D20C40E120C60D20E60C20D40C120
- :spanish harlem
- play T2O3P20B40BBO+DDEF#EF#20ED120P20
- play T2O3B40BO+CDDEF#EF#20ED120P20
- play T2O4A40GEAGE20AGEA40GE20AGEAGEAGEAGEAGEG40O-GBO+D100P20
- play T2O3A40ABO+CO-BO+DC20O-BO+C40O-BO+DC20O-BO+C40O-BO+DO-DEG140
- * second time around
- play T2O3P20B40BBO+DDEF#EF#20ED120P20
- play T2O3B40BO+CDDEF#EF#20ED120P20
- play T2O4A40GEAGE20AGEA40GE20AGEAGEAGEAGEAGEG40O-GBO+D100P20
- play T2O3A40ABO+CO-BO+DC20O-BO+C40O-B20O+DC80D40O-DEG140
- * this next one is repeated
- play T2O3P20B40BO+CDDEF#EF#20ED100
- play T2O4P20B40BO+CDDEF#EF#20ED100