home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Mother of All Windows Books
/
CD-MOM.iso
/
cd_mom
/
utility
/
lang
/
winbatch
/
mcitest.wb_
< prev
next >
Wrap
Text File
|
1992-02-26
|
210b
|
12 lines
last="???"
ErrorMode(@NOTIFY)
:loop
last=AskLine("MCI Command",last,last)
LastError()
b=playMedia(last)
if LastError()!=0 then goto loop
if b=="" then goto loop
Display(3,"MCI Results",b)
goto loop