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