home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 May
/
cica_0595_4.zip
/
cica_0595_4
/
UTIL
/
WBT31C
/
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")