home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / music / exam02.dba < prev    next >
Encoding:
Text File  |  2000-04-09  |  973 b   |  38 lines
  1. Rem * Title  : Load and Loop Music
  2. Rem * Author : DBS-MB
  3. Rem * Date   : 1st August 99
  4. rem =============================================
  5. rem DARK BASIC EXAMPLE PROGRAM 2
  6. rem =============================================
  7. rem This program will load and loop a music file
  8. rem ---------------------------------------------
  9.  
  10. rem Set the ink to white and paper color to black 
  11. ink rgb(244,214,210),1
  12.  
  13. rem This command will load a midi music file into number one
  14. load music "music1.mid",1
  15. print "music file music1.mid loaded"
  16.  
  17. rem Play the music that was loaded into number one
  18. loop music 1
  19.  
  20. rem Check that music that is playing is looping 
  21. if music looping(1)=0 
  22.     print "This music is not looping"
  23. else
  24.     print "This music is looping"
  25. endif
  26.  
  27. rem Will wait for you to press any key
  28. suspend for key
  29.  
  30. rem Stop the music from playing
  31. stop music 1
  32.  
  33. rem Delete music from memory and free the music number used
  34. delete music 1
  35.  
  36. rem End the program
  37. end
  38.