;This WBT file plays a music CD on a CDAudio player.  
;It plays whatever in in the drive, from start to finish.


stat=PlayMedia("status cdaudio mode")
a=1
if stat=="playing" then a=AskYesNo("CD Audio","CD is Playing.  Stop?")
if a==0 then exit 


PlayMedia("open cdaudio shareable alias donna notify")
PlayMedia("set donna time format tmsf")
PlayMedia("play donna from 1")
PlayMedia("close donna")
exit

:CANCEL

PlayMedia("set cdaudio door open")