home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / piano / tunes / maryhada.txt < prev    next >
Text File  |  1991-11-27  |  637b  |  30 lines
  1. \IF B=0\JUMP BEE2\ELSE\END\X BEE2\ON KEY=YES\OV 0
  2. PRESS ANY KEY
  3. TO EXIT...
  4. Program written by
  5. Russell D. Hoffman,
  6. The Animated Software Co.
  7. This tune is called maryhada.txt
  8. \MOVE -1000 TO G
  9. \MOVE 1 TO Y
  10. \MOVE 118 TO H
  11. \X LOOP
  12. \BEEP H,330*Y \BEEP H,294*Y
  13. \BEEP H,262*Y\BEEP H,294*Y
  14. \BEEP H,330*Y
  15. \BEEP H,330*Y\BEEP H*2,330*Y
  16. \BEEP H,294*Y\BEEP H,294*Y
  17. \BEEP H*2,294*Y\BEEP H,330*Y
  18. \BEEP H,392*Y
  19. \BEEP H*2,393*Y\BEEP H,330*Y
  20. \BEEP H,294*Y\BEEP H,262*Y
  21. \BEEP H,294*Y
  22. \BEEP H,330*Y\BEEP H,330*Y
  23. \BEEP H,330*Y\BEEP H,330*Y
  24. \BEEP H,294*Y\BEEP H,294*Y
  25. \BEEP H,330*Y
  26. \BEEP H,294*Y
  27. \BEEP H*4,262*Y
  28. \ADD 40 TO H
  29. \END
  30.