home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / music / exam04.dba < prev    next >
Encoding:
Text File  |  1999-09-07  |  1.2 KB  |  45 lines
  1. Rem * Title  : Display Music Data
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st Sept 99
  4. rem =======================================================
  5. rem DARK BASIC EXAMPLE PROGRAM 4
  6. rem =======================================================
  7. rem This program will load and get info about 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 Clear the screen
  14. cls 
  15.  
  16. rem Load a music file into number one
  17. load music "music1.mid",1
  18.  
  19. rem This command will check if there is a music number one
  20. if music exist(1)=1:print "there is a music number one":endif
  21.  
  22. rem This command will check if the music number one is playing
  23. if music playing(1)=1
  24.     print "the music is playing"
  25. else
  26.     print "the music is not playing"
  27. endif
  28.  
  29. rem This command will check if the music number one is looping
  30. if music looping(1)=1
  31.     print "the music is looping"
  32. else
  33.     print "the music is not looping"
  34. endif
  35.  
  36. rem This command will check if the music number one is paused
  37. if music paused(1)=1
  38.     print "the music is paused"
  39. else
  40.     print "the music is not paused"
  41. endif
  42.  
  43. rem End the program
  44. end
  45.