home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Windows Tools / SOS-WIN_TOOLS.ISO / programm / divers / wb_41e / play_cd.wb_ < prev    next >
Encoding:
Text File  |  1992-02-27  |  471 b   |  21 lines
  1. ;This WBT file plays a music CD on a CDAudio player.  
  2. ;It plays whatever in in the drive, from start to finish.
  3.  
  4.  
  5. stat=PlayMedia("status cdaudio mode")
  6. a=1
  7. if stat=="playing" then a=AskYesNo("CD Audio","CD is Playing.  Stop?")
  8. if a==0 then exit 
  9.  
  10.  
  11. PlayMedia("open cdaudio shareable alias donna notify")
  12. PlayMedia("set donna time format tmsf")
  13. PlayMedia("play donna from 1")
  14. PlayMedia("close donna")
  15. exit
  16.  
  17. :CANCEL
  18.  
  19. PlayMedia("set cdaudio door open")
  20.  
  21.