home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
WINUTIL2
/
WBT31C.ZIP
/
PLAY-CD.WB$
< prev
next >
Wrap
Text File
|
1992-02-26
|
471b
|
21 lines
;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")