home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
WINDOWS
/
UTILS
/
WBT31C.ZIP
/
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